#!/usr/bin/perl use CGI::Carp (fatalsToBrowser); $| = 1; print "Content-type: text/html\n\n"; ######################################################################## # # sendatxt.cgi # ######################################################################## ######################################## # Which files do you want to send? ######################################## $headfile = "rawmailhead.txt"; $file = "rawmail.html"; $mail_cmd = '/usr/lib/sendmail -t'; open(FILE, "$headfile"); @headlines = (); close(FILE); open(FILE, "$file"); @lines = (); close(FILE); open(MAIL,"|$mail_cmd"); foreach $headline (@headlines) { print MAIL $headline; } foreach $line (@lines) { print MAIL $line; } print MAIL "\n\n"; close(MAIL); print "
Files Sent: $headfile, $file\n"; exit 0;