home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Pavilions / BrainOpera / cgi-bin / text / mail-utilities < prev    next >
Text File  |  2017-09-21  |  1KB  |  46 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Script written by Ben (benjamin@media.mit.edu) to mail stuff using
  4. # a CGI script
  5.  
  6. # This procedure mails to someone
  7. # It takes as arguments, in this order :
  8. # sender_name, sender_email, recipient_name, recipient_email, 
  9. # subject, message, user_info
  10. sub mailer {
  11.     chop(local($date)=`date`);
  12.     local($sender_name)=$_[0];
  13.     local($sender_email)=$_[1];
  14.     local($recipient_name)=$_[2];
  15.     local($recipient_email)=$_[3];
  16.     local($subject)=$_[4];
  17.     local($message)=$_[5];
  18.     local($user_info)=$_[6];
  19.     open(mail,"| /bin/mail $recipient_email");
  20.     print mail "From: \"WEB FORM: $sender_name\" <$sender_email>\n";
  21.     print mail "To: \"$recipient_name\" <$recipient_email>\n";
  22.     print mail "Subject: $subject";
  23.     print mail "\n\n";
  24.     print mail "DATE : $date \n";
  25.     print mail "USER INFO:\n$user_info\n\n";
  26.     print mail "MESSAGE:\n$message\n";
  27.     close(mail);
  28. }
  29.  
  30.     
  31. sub mailer_user {
  32.     local($sender_name)=$_[0];
  33.     local($sender_email)=$_[1];
  34.     local($recipient_name)=$_[2];
  35.     local($recipient_email)=$_[3];
  36.     local($subject)=$_[4];
  37.     local($message)=$_[5];
  38.     open(mail,"| /bin/mail $recipient_email");
  39.     print mail "From: \"$sender_name\" <$sender_email>\n";
  40.     print mail "To: \"$recipient_name\" <$recipient_email>\n";
  41.     print mail "Subject: $subject";
  42.     print mail "\n\n";
  43.     print mail "$message\n";
  44.     close(mail);
  45. }
  46.