#!/usr/bin/perl $frag = "/www/cgi-bin/mailform.txt"; $domain = $ENV{'SERVER_NAME'}; $root_dir = $ENV{'SERVER_NAME'}; $root_dir =~ s/\.com|\.net|\.org//i; $root_dir =~ s/www.//i; $docroot = $root_dir; $root_dir = "/www/htdocs/".$root_dir; $uid = (stat($root_dir))[4]; $owner = (getpwuid($uid))[0]; $header = "Planetmind Form Processing Script

"; # Parse Form Contents read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $FORM{$name} = $value; } $recipient = $FORM{"to_email"}; ($scriptname,$domain) = split(/\@/,$FORM{'to_email'}); $scriptname = "formmail_".$scriptname.".cgi"; # branch... if (!$FORM{'submit'}) { &return_form; exit; } # open file open(FILE, "$frag") || print "notopen $frag\n"; @fragment = ; close(FILE); # open new script to write open(FILE, ">$scriptname") || print "no $scriptname\n"; print FILE qq!#\!/usr/bin/perl \$mailprog = '/usr/lib/sendmail -i -t'; \@referers = ('206.168.82.69','planetmind.net','$domain'); \@valid_ENV = ('REMOTE_HOST','REMOTE_ADDR','REMOTE_USER','HTTP_USER_AGENT'); !; print FILE '@recipients = (\'^'.$recipient.'\'); '; foreach $line(@fragment) { print FILE $line; } close(FILE); $ex = `chmod 755 $scriptname`; # return response print "Content-type: text/html\n\n"; print $header; print "You new script has been installed. The complete form tag you should use in your script is:

\n"; print "

<FORM METHOD=\"POST\" ACTION=\"http://".$ENV{'SERVER_NAME'}."/".$docroot."cgi/$scriptname\">

\n"; print "Form submissions will be emailled to $FORM{'to_email'}.

\n"; print "An example appears below. More info on using the script and creating the form can be found HERE.

\n"; print "

[back to Admin Page]

\n"; print qq!

Form Example

You can change anything in the NAME= to suit your needs. If you use the "redirect" hidden field, you have to create the thanks.html page. Just copy and paste it into your page.

<FORM METHOD="POST" ACTION="http://$ENV{'SERVER_NAME'}/$docroot!;
print qq!cgi/$scriptname">
Name: <INPUT NAME="Name" TYPE="text" SIZE=32,1><BR>
Address: <INPUT NAME="Address" TYPE="text" SIZE=32,1><BR>
City: <INPUT NAME="City" TYPE="text" SIZE=32,1><BR>
State: <INPUT NAME="Address" TYPE="text" SIZE=2,1> Zip: <INPUT NAME="Zip" TYPE="text" SIZE=12,1><BR>
Email: <INPUT NAME="email" TYPE="text" SIZE=32,1><BR>
Tell us about yourself:  <BR>
<TEXTAREA NAME="Comments" ROWS=4 COLS=60 WRAP=soft></TEXTAREA>

<INPUT NAME="redirect" TYPE="hidden" VALUE="http://yourdomain.com/thanks.html">
<INPUT NAME="recipient" TYPE="hidden" VALUE="$recipient">
<INPUT NAME="subject" TYPE="hidden" VALUE="Form Submission">

<INPUT NAME="submit" TYPE="submit" VALUE="Submit">
</form>

!; print ""; exit; sub return_form { print "Content-type: text/html\n\n"; print qq! Planetmind Form Processing Script

Planetmind Form Processing Script Installer

This form will install a form processing script that will send an email with the submitted form's contents to the email address you specify.

There is a list of form fields you can use and how to implement them.

Some of the possible uses of this script are:

1) You want to have a form that will be mailed to you, but aren't sure how to write the CGI script for it.
2) You are the webmaster of your site and want to allow users to use forms, but not to have their own cgi-bin directories, which can cause security risks to your system. You can set this script up and then allow all users to run off of it. 3) Want to have one script to parse all of your html forms and mail them to you.

!; }