#!/usr/local/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"; $dbfile = "$home/incoming-db"; $user_name =`cat $fax_home/admin/users|grep $user|awk -F: 'BEGIN{ORS=""}{print \$1}'`; @file = $query->param('file'); @users = $query->param('user'); print $query->header; print "\nForward Fax\n\n"; print "\n"; print "\n"; print "
        \n"; print "Nutzer: $user | Persönl. Einstellungen | FaxHome | Sende Mitteilung | Sende Datei | Inbox\n
\n"; print "

Fax wurde weitergeleitet an:

\n"; print "
";
foreach (@users) {
	$name = `echo \"$_\" | awk '{ORS=\"\"}{print \$2}'`." ".`echo \"$_\" | awk -F, 'BEGIN{ORS=\"\"}{print \$1}'`;
	$login=`cat $fax_home/admin/users|grep \"$name\"|awk -F: '{ORS=""; print \$2}'`;
	if (-e "$fax_home/$login/@file") {
		print "(Achtung: $name hatte dieses Fax bereits erhalten)\n";
	} else {
		system "echo \"`date '+%a %e.%b %X'`: Weitergeleitet von `cat $fax_home/admin/users|awk -F: '/:$user\$/ {print \$1}'` an `cat $fax_home/admin/users|awk -F: '/:$login\$/ {print \$1}'`\" >>$home/@file.log";
		system "cp $home/@file* $fax_home/$login/";
		while (-e "$fax_home/$login/faxdblock") {
		  sleep 2;
		}
		system "touch $fax_home/$login/faxdblock";
		system "mv $fax_home/$login/incoming-db $fax_home/$login/incoming-db.tmp";
		system "echo `cat $dbfile|grep @file|sed -e 's/[^|]*\$/NEW/'` >$fax_home/$login/incoming-db";
		system "cat $fax_home/$login/incoming-db.tmp >>$fax_home/$login/incoming-db";
		system "rm $fax_home/$login/incoming-db.tmp";
		system "rm $fax_home/$login/faxdblock";
		open(MAIL,"|mail $login");
		print MAIL "From: $user_name <$user>\n";
		print MAIL "To: $name <$login>\n";
		print MAIL "Subject: Sie haben ein neues Fax erhalten\n";
		print MAIL "\n";
		print MAIL `/usr/local/sbin/faxinfo $home/@file|sed -e '1 d'`,"\n";
		print MAIL "Den FaxServer und ihre persoenliche Fax-Inbox erreichen Sie unter der\n";
		print MAIL "URL: http://www.chemnitz.debis-sfi.de/fax/ (bzw. http://138.201.148.171/fax/)\n";
		print MAIL ".\n";
		close(MAIL);
		print "$name ($login\@chemnitz.debis-sfi.de)\n";
	}
}
print "
"; print "
\n
\nChemnitz FaxServer; ",`date`,"
\n"; print "
\n"; print $query->end_html; while (-e "$home/faxdblock") { sleep 2; } system "touch $home/faxdblock"; system "cat $dbfile | sed -e '/@file/ s/NEW/FORWARDED/' | sed -e '/@file/ s/VIEWED/FORWARDED/' |sed -e '/@file/ s/PRINTED/FORWARDED/' >$home/incoming-db.tmp"; system "mv $home/incoming-db.tmp $dbfile"; system "rm $home/faxdblock";