#!/usr/bin/perl # # game calendar # use CGI qw/:standard/; require "./mailto1.pl"; print header; print "\n"; print "\n"; print "\n"; print "Cramer Technical Services - Contact us\n"; print "\n"; print ""; print ""; print "\n"; print "\n"; &draw_col("./ctsnavcol.txt"); print "
\n"; print "
\n"; # ----------- Main ----------- $sendername = param('SENDERNAME'); $sender = param('SENDER'); $phone = param('PHONE'); $subject = param('SUBJECT'); $textbody = param('MESSAGE'); $retry = 0; if ( ($sendername eq '') || ($sender eq '') || ($phone eq '') || ($subject eq '') || ($textbody eq '') ) { print "
\n"; print "\n"; print "\n"; print "
\n"; print "
Email Our Support Center
 \n"; print "
\n"; print "\n"; if ( $sendername eq '' ) { ++$retry; } print "\n"; if ( $sender eq '' ) { ++$retry; } print "\n"; if ( $phone eq '') { ++$retry; } print "\n"; if ( $subject eq '' ) { ++$retry; } print "\n"; if ( $textbody eq '' ) { ++$retry; } print "\n"; if ( $retry > 0 ) { print "
 Name * Required
 Email * Required
 Phone * Required
 Subject * Req.
 Message * Required
"; print "Click or your message. "; print "
\n"; print "\n"; } } else { print "Sending Message ... "; $receiver = "andrew.cramer\@cramer-ts.com"; # $receiver1 = "ibm600x\@cramer-ts.com"; &mailto($sendername,$sender,$phone,$receiver,$subject,$textbody); # &mailto($sendername,$sender,$phone,$receiver1,$subject,$textbody); print "Message Sent.
\n"; print "
Thank you. Click [HOME] to return.

\n"; } # ------------ print "
\n"; print "\n"; print "\n"; sub draw_col($file) { my $filename = "$_[0]"; my $text; $text = `cat ./$filename`; print "$text\n"; return; } sub conv_date($ymd) { my $mydate; my $ymd = "$_[0]"; my $year = substr($ymd,0,4); my $mon = substr($ymd,4,2); my $day = substr($ymd,6,2); my $tmon = "@months[$mon-1]"; if ( $day <= 9 ) { $day = substr($day,1,1); } $mydate = "$tmon $day, $year"; return $mydate; }