#!/usr/local/bin/perl
#
# form to mail to the webmaster
# author: h. falkenberg 16. aug. 1994
# changed: m. speh 23 Okt 1994
#-------------------------------------------------------------------------
# Title:
local($title)="Email to Marcus Speh";
# send mail to:
local($mailto)="marcus\@andersen.co.uk";
# URL path of this script:
local($scriptname)="http://www.desy.de/userWWW/cgi-bin/mail2marcus.pl";
#--- end of configuration ---
sub send_index {
print "Content-type: text/html\n\n";
print "\n", $title;
print "\n\n";
print "$title
\n";
print "\n";
print " \n";
}
sub doit {
do { &'send_index; return; } unless (length($ENV{"QUERY_STRING"})>0);
local(@query_strings) = split("&", $ENV{"QUERY_STRING"});
foreach $q (@query_strings) {
($attr, $val) = split("=", $q);
# this is still just a hack..
$val =~ s/%20/ /g;
$val =~ s/%21/!/g;
$val =~ s/%22/"/g;
$val =~ s/%23/#/g;
$val =~ s/%24/\$/g;
$val =~ s/%25/%/g;
$val =~ s/%26/&/g;
$val =~ s/%27/"/g;
$val =~ s/%28/(/g;
$val =~ s/%29/)/g;
$val =~ s/%2C/,/g;
$val =~ s/%2F/\//g;
$val =~ s/%3B/;/g;
$val =~ s/%3F/?/g;
$val =~ s/%3D/=/g;
$val =~ s/%5B/[/g;
$val =~ s/%5D/]/g;
$val =~ s/%5E/^/g;
$val =~ s/%7B/{/g;
$val =~ s/%7D/}/g;
$val =~ s/%5C/\\/g;
$val =~ s/%3C/\n