#!/usr/local/bin/perl use CGI; $query = new CGI; umask 007; $http_home = "/home/mha/public_html/server"; $user = $query->remote_user(); $fax_home = "$http_home/fax"; $home = "$fax_home/admin"; $dbfile = "$home/incoming-db"; print < View Incoming Fax-Queue
         Admin: $user | NutzerAdmin | Persönl. Einstellungen | FaxHome | Inbox
EOF ; if (`wc $dbfile|awk '{print \$1}'` != "0") { open(FILE, $dbfile); print "

Übersicht über eingegangene Faxe

\n"; print "
\n"; print "\n"; while () { chop(); ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6,$Fld7,$Fld8) = split('\|', $_, 9999); if (-e "$home/processing-$Fld1") { $s_blink = ""; $e_blink = ""; } else { $s_blink = $e_blink = ""; } print "\n"; print "\n"; print "\n"; if (-e "$home/processing-$Fld1") { $t=`ls -l $home/$Fld1-*-rev.gif|wc -l`; $t=~chop($t); print "\n"; } else { print "\n"; } if ($Fld8 eq "NEW") { print "\n"; } else { print "\n"; } print "\n"; if (-e "$home/processing-$Fld1") { print "\n"; } else { print "\n"; } print "\n"; if (-e "$home/processing-$Fld1") { print "\n"; } else { print "\n"; } print "\n"; } close(FILE); print "
Absender Zeit Seiten Status Aktion
$s_blink $Fld5 $e_blink$s_blink $Fld6 $e_blink$s_blink ($t)$Fld7 $e_blink$s_blink $Fld7 $e_blink$s_blink $Fld8 $e_blink$s_blink $Fld8 $e_blink View Forward Forward  Print Delete Delete 
\n"; } else { print "

Keine Faxe in Incoming-Queue

\n"; } print "

Reload drücken um die Anzeige zu aktualisieren

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