#!/usr/bin/perl
print "Mail Function Test\n";
print " \n";
if((!$ARGV[0])||(!$ARGV[1])||(!$ARGV[2])) {
        print "usage: mailtest <email\@address.com> <subject> <'message file name'>\n";
}  else {
      $DATE=`date +%m-%d-%Y`;
      $email=$ARGV[0];
      $subject=$ARGV[1];
      $message=$ARGV[2];
      $filename=$ARGV[2];
      $$Owner_name="jacktest\@innovativeinternet.com";

      # Send an acknowledgement msg to the visitor
      if ($User_email)
      {
         local($filename) = "/tmp/$DATE.tmp";
         local($ackmsg) = $filename;
         open (ACKMSG, "<$ackmsg");

         $line = <ACKMSG>;
         if ($line)
         {
            open(TFILE,">$filename");
            print TFILE "From: \"$Owner_name\" <$Owner_email>\n";
            print TFILE "Subject: On-Line Order Confirmation!\n\n";
            print TFILE "Dear ";
            if ($User_name) { print TFILE "$User_name,\n\n"; }
            else { print TFILE "Sir/Madam,\n\n"; }

            print TFILE "$line";
            while ($line = <ACKMSG>)
            {
               print TFILE "$line";
            }
            close (TFILE);
            if ($User_email !~ / /) { `/usr/sbin/sendmail $User_email < $filename`; }
            unlink("$filename");
         }
         close (ACKMSG);
      }
   }

print " \n";
print "Send: $ARGV[0]\n";
print "Send: $email\n";
print "Send: $ARGV[1]\n";
print "Send: $subject\n";
print "Send: $ARGV[2]\n";
print "Send: $message\n";

#}