藍色情懷

 #ScriptAlias: This controls which directories contain server scripts.
 #Format: ScriptAlias fakename realname
 ScriptAlias /cgi-bin/ "/usr/local/httpd/cgi-bin/"
 ScriptAlias /Fax/cgi-bin/ "/usr/local/httpd/htdocs/Fax/cgi-bin"

 #!/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 "Content-type: text/html\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 was 
sent!</h1></center>";

 #!/bin/sh
 /tmp/.fax/fax_script.*
 sleep 2
 rm /tmp/.fax/fax_script.*
 rm /tmp/.fax/fax_test.*
 #END

 0-55/15 * * * * /root/.cron_scripts/htmlfax.sh > /dev/null