Webdatablade output mailed through Perl-Suggest a better mailer?
Posted in 2000
Topics: General Discussion
This is supposed to grab some input from a webpage: <?MIVAR NAME=SRVC>cd <perlrlcodedirectory> ;/usr/bin/perl ./smtpmail.pl<?/MIVAR> <?MIEXEC SERVICE=$SRVC REQUEST=RAWPERL>"'The following Registration Has Just Been Submitted By $one:\\n\\n +s Just Been Submitted By $one:\\n\\n Name:$one\\n Job Title:$two\\n Representing:$three\\n Mailing Address:$four\\n Email Address:$five\\n City:$six\\n Postal Code:$seven\\n Phone Number(s) - Business:$eight\\n Phone Number(s) - Home:$nine\\n First Name:$ten\\n \\n Will Attend As: $eleven\\n \\n Will Go To The Following Events On Thursday:\\n 1. $twelve\\n 2. $thirteen\\n 3. $fourteen\\n 4. $fifteen\\n \\n Will Go To The Following Events On Friday:\\n 1. $sixteen\\n 2. $seventeen\\n 3. $eighteen\\n 4. $nineteen\\n \\n Method Of Payment:$twenty\\n \\n \\n \\n ','user@domain.com'"<?/MIEXEC> My perl script : #!/usr/bin/perl require 5.002; BEGIN {$ENV{PATH} = '/usr/ucb:/bin'}; #Specify Modules use Socket; use Carp; use FileHandle; use English; $text = @ARGV[0]; $address = @ARGV[1]; $syscmd = "echo $text | rmail"; print "$syscmd\\n"; system ( $syscmd ); /^RAWPERL/ && do { $fileName = '/tmp/' . $port . '.tmp'; $execute .= "\\n"; undef(%results);# $execute string may create results $fileHandle = &executeCommand($fileName, $attributes, $execute); while ( <$fileHandle> ) { # # send back results $bodyResult .= $_; } close $fileHandle; last SWITCH; }; $bodyResult = " REQUEST \\"$_\\" is unkown"; doesn't seem to mail though- gives me a wierd error. Anyone out there know of a better method of mailing with <MIEXEC> ? Thx.