Nachricht an FaxAdmin

#!/usr/bin/perl use CGI; $query = new CGI; $http_home = "/home/mha/public_html/server"; $user = $query->remote_user(); $home = "$http_home/fax/user/$user"; if ( -e "$home/setup") { open (SETUP, "<$home/setup"); while () { SWITCH: /^NAME:(.*)/ && do {$name=$1;}; /^EMAIL:(.*)/ && do {$mail=$1;}; } } else { $name=`cat $|grep $user|awk -F: '{print \$5}'|awk -F, '{print \$1}'`; $mail="$user\@chemnitz.debis-sfi.de"; } print $query->header; print < Nachricht an FaxAdmin

Ihre Nachricht an den FaxServer-Administrator



Ihre EMail Adresse:    
Ihr Name:

EOF ; print "Chemnitz FaxServer; ",`date`,"\n

\n"; print "\n"; print "

\n"; print "\n";