Nutzer Administration

#!/usr/local/bin/perl use CGI; $query = new CGI; umask 007; $http_home = "/home/mha/public_html/server"; $user_home = "$http_home/fax"; $home = "$http_home/fax/admin"; $passwdfile = "$http_home/conf/users"; print $query->header; print < Nutzer Administration

Nutzer: FaxAdmin | NutzerAdmin | Persönl. Einstellungen | FaxHome | Inbox

Nutzerverwaltung

EOF ; if ($query->param('action') eq " Hinzufügen ") { print "

\n";
	open(FILE,") {
		m/^(.*):(.*):(.*):(.*):(.*),.*,.*,:.*:.*$/;
		$id=$1;
		$name=$5;
		$passwd=$2;
                if ( -e "$user_home/$id") {
                        print "Die ID $id existiert bereits.\n";
                } else {
			system "mkdir -m 770 $user_home/$id";
			system "echo \"require user $id\" >$user_home/$id/.htaccess";
			system "echo \"$name:$id\" >>$home/users";
			system "echo \"NAME:$name\" >$user_home/$id/setup";
			system "echo \"PHONE:+49 371 4340-\" >>$user_home/$id/setup";
			system "echo \"FAX:+49 371 4340-103\" >>$user_home/$id/setup";
			system "echo \"EMAIL:$id\@chemnitz.debis-sfi.de\" >>$user_home/$id/setup";
			system "echo \"IMG-SIZE:2.6\" >>$user_home/$id/setup";
			system "echo \"PRINTER-NAME:\" >>$user_home/$id/setup";
			system "echo \"PRINTER-SERVICE:\" >>$user_home/$id/setup";
			system "echo \"PRINTER-PASSWORD:\" >>$user_home/$id/setup";
			system "echo \"PRINTER-TYPE:LaserJet 3\" >>$user_home/$id/setup";
			system "echo \"$id:$passwd\" >>$http_home/conf/users";
			print "Nutzer $name ($id) hinzugefügt\n";
		}
	}
	close(FILE);
	system "cat $home/users | sort >$home/users.tmp";
	system "mv $home/users.tmp $home/users";
	$tmp_users = `cat $http_home/conf/users | awk -F: 'BEGIN{ORS=\" \"} {print \$1}'`;
	system "cat $http_home/conf/groups | sed -e '/^faxuser:/d' >$http_home/conf/groups.tmp";
	system "echo \"faxuser: $tmp_users\" >>$http_home/conf/groups.tmp";
	system "mv $http_home/conf/groups.tmp $http_home/conf/groups";
	print "

\n"; } else { print "

";
	print "Nutzer aus $home/passwd Hinzufügen:\n";
	print "     \n";
	print "\n

\n"; } print "

\nChemnitz FaxServer; ",`date`,"

\n"; print "

\n"; print $query->end_html;