AutoScripter(tm) - Remailer Script


Although the "mailto:" tag can be used to send a form to one address, you'll need to use a cgi script to perform the mailing to multiple addresses. This simple, "plain vanilla" Perl script may be just the ticket for what you wish to do.

Here is the perl for "rm.cgi" #!/usr/local/bin/perl # Modify path above to conform to path to perl # on your server # RDEV -- 3/15/99 John-Michael Keyes jk@syndicatedmedia.com # Note to sysadmins: This is pretty vanilla Perl. The whole # point is to let javascript do the pre-processing and the # script simply bounces to the sendmail utility in the shell MAIN: { &getinput; &startup; &mailit; &show_next_page; } sub startup { # OK, fill in the following variables to customize this # program to your needs. # 1. Define path to sendmail on your server.On most UNIX # machines the mail program will be as shown here: Macintosh # or NT will be something a little different... $mail_program='/usr/lib/sendmail -t'; # 2. Change this variable to the email address to which you # want the form mailed. $your_email='your_name@some_domain.com'; # 3. Change this variable to your name, or if you use a mail # program that filters email, you might want to put a # keyword here. $your_name='Your Company Name'; # 4. Here we look for a variable called remailer_sender and # if it exists we chop at the first space. or replace the # $input{'remailer_sender'} with your own defined $from_line. $input{'remailer_sender'}=~s/\s*// if defined($input{'remailer_sender'}); $from_line="$input{'remailer_sender'}"; # 5. This variable will be on the subject line of the email # you receive, or if you use a mail program that filters # email, you might want to put a keyword here. $your_subject='Some_Subject_Line'; # 6. The reply page must be the full URL (not root/relative) # of the page that appears after mail is sent. $your_reply_page='http://www.your_domain.com/rates/thanks_for_order.html'; $timer=time; $\|=1; } sub getinput { #parse the variable buffer both get and post if ($ENV{'REQUEST_METHOD'} eq "GET"){$bigcontent = $ENV{'QUERY_STRING'};} else {read(STDIN, $bigcontent, $ENV{'CONTENT_LENGTH'});} @content = split(/&/, $bigcontent); foreach $content (@content) { ($name, $value)= split(/=/,$content); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name}=$value; } } sub mailit { # open (MAIL,"\|$mail_program $your_email"); print MAIL <<EOT; To: $your_name<$your_email> From: $from_line Subject: $your_subject EOT # Add a hidden form variable named "delimited" to your submitting # form. Set its value to "comma" or to "tab" depending upon how # you want the form elements separated in the text of the email # message. while(($form_name,$user_input)=each(%input)) { if ($input{'delimited'} eq 'comma' \|\| $input{'delimited'} eq 'tab') { #transform returns and linefeeds to spaces for delimiting fields $user_input=~s/\r+\|\n+\|\f+/ /g; print MAIL "'$user_input'," if $input{'delimited'} eq 'comma'; print MAIL "$user_input\t" if $input{'delimited'} eq 'tab'; } else { print MAIL "$form_name: $user_input\n"; } } } sub show_next_page { print STDOUT <<EOT; Content-type: text/html <HTML><HEAD></HEAD> <BODY BGCOLOR=WHITE><CENTER> <TABLE BORDER=0 WIDTH=100%> <TR><TD ALIGN=CENTER><B>Thank You $from_line!</B> <P>Your order has been processed.</TD></TR> </TABLE> </BODY> </HTML> EOT exit; }
Here you can get some typical HTML Client's Website Title (optional) Your Name (optional): Your copyright info (optional):

© Copyright 1994-2007 John-Michael M. Keyes and John H. and Erika E. Keyes. All rights reserved.