#!/usr/bin/perl use CGI; $query = new CGI; umask 007; $user = $query->remote_user(); $http_home = "/home/mha/public_html/server"; $fax_home = "$http_home/fax"; $home = "$fax_home/$user"; $passwdfile = "$http_home/conf/users"; if ($query->param('action') eq "true") { open (SETUP, "> $home/setup"); print SETUP "NAME:".$query->param('name')."\n"; print SETUP "PHONE:".$query->param('phone')."\n"; print SETUP "FAX:".$query->param('fax')."\n"; print SETUP "EMAIL:".$query->param('mail')."\n"; print SETUP "IMG-SIZE:".$query->param('img-size')."\n"; print SETUP "PRINTER-NAME:".$query->param('printer')."\n"; print SETUP "PRINTER-SERVICE:".$query->param('service')."\n"; print SETUP "PRINTER-PASSWORD:".$query->param('password')."\n"; print SETUP "PRINTER-TYPE:".$query->param('type')."\n"; close (SETUP); } open (SETUP, "<$home/setup"); print $query->header; print "\nPersönliches FaxServer-Setup\n\n"; print "\n"; print "\n"; print "
        \n"; print "Nutzer: $user | Persönl. Einstellungen | FaxHome | Sende Mitteilung | Sende Datei | Inbox\n
\n"; if ($query->param('action') eq "true") { print "

Setup gespeichert als:

\n
\n"; } else { print "

Persönliches FaxServer-Setup

\n
\n"; print "
    \n"; print "
  • Name, Telefon/Fax-Nummer und EMail-Adresse werden bei Nutzung des WWW->Fax Gateways automatisch in das Formular eingetragen, die Daten hier anzugeben spart also Schreibarbeit.\n"; print "
  • Rechner/Service-Name (im Windows-Netzwerk!), Drucker-Typ und ein evtl. Passwort werden vom FaxServer dazu verwendet, um (den im Windows-Netzwerk freigegebenen) Drucker am Arbeitsplatz anzusteuern. Dadurch kann der FaxServer Faxe auf dem Arbeitsplatzdrucker ausgeben.
    \n"; print " Zu beachten ist hierbei, daß für Nutzung mit Windows alles in Großbuchstaben angegeben werden muß."; print "
\n
\n"; } print "
\n
";
if ($query->param('action') ne "true") {
	print "              \n\n";
}
while () {
SWITCH:
	/^NAME:(.*)/		&& do 	{
print "    Name:     \n";
				};
	/^PHONE:(.*)/	&& do 	{
print "    Tel.:     \n";
				};
	/^FAX:(.*)/		&& do 	{
print "    Fax:      \n";
				};
	/^EMAIL:(.*)/	&& do 	{
print "    Email:    \n";
				};
	/^IMG-SIZE:(.*)/	&& do 	{
print "    Größe:     (Anfangs Verkleinerungs-Faktor für angezeigte Faxe)\n";
				};
	/^PRINTER-NAME:(.*)/	&& do 	{
print "    Rechner:  \n";
				};
	/^PRINTER-SERVICE:(.*)/	&& do 	{
print "    Service:  \n";
				};
	/^PRINTER-PASSWORD:(.*)/	&& do 	{
print "    Passwort: \n";
				};
	/^PRINTER-TYPE:(.*)/	&& do 	{
print "    Typ:      \n";
				};
}
if ($query->param('action') eq "true") {
	$pw=$query->param('newpasswd1');
	if ($pw ne "") {
		if ($pw eq $query->param('newpasswd2')) {
			print "\n    Passwortänderung FaxServer: ";
			print `$http_home/bin/www-passwd $passwdfile $user \'$pw\'`;
# the lines below change the system password
#			print "\n    Passwortänderung chws01: ";
#			print `$http_home/bin/change_pw /etc/passwd $user \'$pw\'`;
#			print "\n           Achtung: Ab sofort gilt das neue Passwort!";
#			print "\n           (Für Mail, FaxServer und login auf chws01)";
		} else {
			print "\n    Passwortänderung: Die eingegebenen Passwörter stimmen\n";
			print "    nicht überein, das Passwort wurde nicht geändert.\n";
		}
	}
} else {
	print "
\n";
	print "
Zugangspaßwort ändern (8 Zeichen max.):
\n";
	print "      Neues Paßwort:       \n";
	print "      Paßwort wiederholen: \n\n";
#	print "Das Paßwort wird sowohl für login auf chws01 (damit auch für EMail)\n";
#	print "und FaxServer geändert.\n";
}
print "";
print "
\n"; print "
\n
\nChemnitz FaxServer; ",`date`,"
\n"; print "
\n"; close (SETUP); print $query->end_html;