Comments about the Internet 1996 World Exposition

#!/usr/local/bin/perl -- -*-perl-*- #$mailprog = '/usr/lib/sendmail -odq'; #$recipient = 'fairmaster@park.org'; # Print out a content-type for HTTP/1.0 compatibility print "Content-type: text/html\n\n"; if ($ENV{'CONTENT_LENGTH'} <= 0) { $reference = $ENV{'QUERY_STRING'} ; $reference =~ tr/+/ /s; print <Comments about the Internet 1996 World Exposition

Comments to the Internet 1996 World Exposition The Internet 1996 World Exposition is closed

Thank you for your interest in the 1996 World Exposition. For the past year, this world's fair for the information age has provided a meeting point for artists, engineers, corporate executives, and people in all walks of life. Several thousand pavilions from 75 countries have participated in this fair and we've had 5 million visitors from 130 countries and territories.

Unfortunately, the world's fair has come to an end. We appreciate your interest, but we won't be adding any more pavilions to the fair. Please don't feel that this is the only way you can participate in the network: we encourage you to join thousands of your colleagues around the world dedicated to building public parks in the global village.

Regards,

Dr. Rob Blokzijl
Secretary-General
The Internet 1996 World Exposition

EoI } else { # Print a title and initial heading print "Thank you"; # Make the person feel good for writing to us print ""; print ""; print ""; print ""; print "
"; print ""; print ""; print " "; print " "; print ""; print "
"; print "
"; print " "; print "
"; print "Thank You!"; print ""; print "
"; # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @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; # Stop people from using subshells to execute commands $value =~ s/~!/ ~!/g; $FORM{$name} = $value; } print "Thank you for your comments regarding:"; print "
$FORM{'subject'}
"; print ""; if (! $FORM{'username'} || ! $FORM{'subject'} || ! $FORM{'comments'}) { print "
However, messages with no email address, subject or comments will not be sent."; print "
"; } else { # Now send mail to $recipient &send_mail; } print "
"; print ""; print " "; print " "; print ""; print ""; print ""; print "

$\"[Unreadable$ "; print "
"; print ""; print ""; } exit 0; # # send mail message # sub send_mail { local($about) = $FORM{'about'}; open (MAIL, "|$mailprog $recipient ") || die "Can't open $mailprog!\n"; print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n"; print MAIL "Subject: $FORM{'subject'}\n\n"; print MAIL "$FORM{'username'} ($FORM{'realname'}) sent the following\n"; print MAIL "comment about $about:\n"; print MAIL "------------------------------------------------------------\n"; print MAIL "URL: $FORM{'url'}\n"; print MAIL "$FORM{'comments'}"; print MAIL "\n------------------------------------------------------------\n"; print MAIL "Server name: $ENV{'SERVER_NAME'}\n"; print MAIL "Gateway Interface: $ENV{'GATEWAY_INTERFACE'}\n"; print MAIL "Path Info: $ENV{'PATH_INFO'}\n"; print MAIL "Path Translated: $ENV{'PATH_TRANSLATED'}\n"; print MAIL "Script Name: $ENV{'SCRIPT_NAME'}\n"; print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n"; print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n"; print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n"; print MAIL "User Agent: $ENV{'HTTP_USER_AGENT'}\n" if defined($ENV{'HTTP_USER_AGENT'}); close (MAIL); }