\n";
print "| | \n";
print "\n";
if ($file) {
open(FILE,">/tmp/fax-$$.raw");
while (<$file>) {
print { FILE } $_;
}
close FILE;
}
if ($error eq "") {
print "Fax wird gesendet:\n";
print "\n";
print "Von Name: " ,$from_name,"\n";
print " Tel.-Nr.: " ,$from_phone,"\n";
print " Fax-Nr.: " ,$from_fax,"\n\n";
print "An Name: " ,$to_name,"\n";
print " Fax-Nr.: " ,$to_fax,"\n";
print " Firma: " ,$to_firm,"\n\n";
print "Betrifft: " ,$regarding,"\n\n";
print "File: " ,$file,"\n\n";
print " \n";
print "Die Ausgabe des Programms sendfax:\n\n";
print `/usr/local/bin/sendfax -h fax.chemnitz.debis-sfi.de -c '$text' -s a4 -r '$regarding' -x '$to_firm' -D -R -f '$mail' -d '$destination' -X '$from_fax' -F '$from_phone' 2>&1 /tmp/fax-$$.raw`;
print "\n ";
print "
Wenn die Übertragung des Faxes aus irgendwelchen Gründen nicht gelingen sollte werden Sie per Email automatisch informiert, aber auch bei erfolgter Übertragung (deswegen ist auch die Angabe der Email-Adresse so wichtig)\n
";
print "
\n\nChemnitz FaxServer; ",`date`,"\n\n";
print " | \n";
} else {
print "Nutzer: $user (Private Defaults Einstellen)
";
print "Folgende(r) Fehler trat(en) auf:
\n";
print "\n";
print $error,"\n";
print "
\n";
print "Die Datei wurde nicht gesendet.
\n";
print "
\n\nChemnitz FaxServer; ",`date`,"\n\n";
print "\n";
}
system "rm /tmp/fax-$$.raw";
print $query->end_html;