#!/usr/bin/perl
  
  require "flush.pl";
  
  $| = 1;
  
  $tmpfaxcover="/tmp/.fax/faxcover.$$";
  $faxcover='faxcover';  # location of faxcover binary
  
  use CGI;
  $query = new CGI;
  require "ctime.pl";
  $tt = &ctime(time());
  chop($tt);
  $sendfax = "/usr/bin/sendfax";
  print STDOUT "\n\n";
  print $query->dump;
  print"<pre>";
  
  @fax = $query->param('fax');
  $to = $query->param('ToName');
  $phone = $query->param('ToNumber');
  $company = $query->param('ToCompany');
  $from = $query->param('FromName');
  $cover = $query->param('Cover');
  $regard = $query->param('Regarding');
  $comments = $query->param('Comments');
  $comment =~ s/\n//g;
  $comment =~ s/\r//g;
  
  push(@args, '-P', 'high');
  push(@args, '-m', '-D');
  push(@args, '-f', "$from");
  push(@args, '-d', "$phone");
  push(@args, '-n');
  
  push(@args, "@fax");
  
  push(@args, "/tmp/.fax/fax_test.$$");
  
  print"Performing $sendfax @args\n";
  
  open(TEST, ">>/tmp/.fax/fax_test.$$");
  print TEST "$comments";
  close(TEST);
  
  open(LOG, ">>/var/spool/fax/log/sendlog");
  print LOG "$tt web $sendfax @args\n";
  close(LOG);
  
  open(SCR, ">>/tmp/.fax/fax_script.$$");
  print SCR "#!/bin/sh\n";
  print SCR "$sendfax @args\n";
  close(SCR);
                                                     
  &flush(STDOUT);
  system("chmod og+x /tmp/.fax/fax_script.$$");
  &flush(STDOUT);
  print "</pre>";
  print "<p><hr><p><center><h1>Fax wurde abgeschickt!</h1></center>";