home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / Japan / Public / Hiroshima / maileng.cgi < prev   
Text File  |  2017-09-21  |  4KB  |  101 lines
  1. #!/usr/local/bin/perl -- -*-perl-*-
  2. # ------------------------------------------------------------
  3. #  ìLôçîºâzü[âÇâyü[âWâAâôâPü[âg
  4. # ------------------------------------------------------------
  5. # Print out a content-type for HTTP/1.0 compatibility
  6. print "Content-type: text/html\n\n";
  7.  
  8. # Define fairly-constants
  9.  
  10. # This should match the mail program on your system.
  11. $mailprog = '/usr/lib/sendmail -odq';
  12.  
  13. # This should be set to the username or alias that runs your WWW server.
  14. #$recipient = 'k_kemco@mxa.meshnet.or.jp';
  15.  $recipient = 'pref@hiroshima-cdas.or.jp';
  16.  
  17. # Get the input
  18.     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  19.  
  20.     # Split the name-value pairs
  21.     @pairs = split(/&/, $buffer);
  22.  
  23.     foreach $pair (@pairs) {
  24.         ($name, $value) = split(/=/, $pair);
  25.  
  26.     # Un-Webify plus signs and %-encoding
  27.         $value =~ tr/+/ /;
  28.         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  29.  
  30.     # Stop people from using subshells to execute commands
  31.         $value =~ s/~!/ ~!/g;
  32.  
  33.     # Uncomment for debugging purposes
  34.     # echo "Setting $name to $value<P>";
  35.  
  36.         $FORM{$name} = $value;
  37.     }
  38.  
  39.     # Now send mail to $recipient
  40.     &send_mail;
  41.  
  42. # Print a title and initial heading
  43.     print "<BASE TARGET=\"contents\">\n";
  44.     print "<Head><Title>Thank you</Title></Head>\n";
  45.     print "<BODY BACKGROUND=\"/Japan/Public/Hiroshima/html/images/others/backgrd.gif\" BGCOLOR=\"#FFFFFF\">";
  46.     print "<BR><CENTER><H1><B>Opinionaire</B><HR>";
  47.     print "<BR>";
  48.     print "<BR>";
  49.     print "<BR>";
  50.     print "<BR>";
  51.     print "<BR>";
  52.     print "<BR><H3>";
  53.     print "Thank you! Your opinionaire have been delivered.\n";
  54.     print "<BR>";
  55.     print "<BR>";
  56.     print "<BR>";
  57.     print "<BR>";
  58.     print "<BR>";
  59.     print "<BR>";
  60.     print "<BR>";
  61.     print "<H4>";
  62.     print "[";
  63.     print "<A HREF=\"/Japan/Public/Hiroshima/htmleng/etopix.htm\">TOPICS</A>|";
  64.     print "<A HREF=\"/Japan/Public/Hiroshima/htmleng/econtens.htm\">GOVERNOR</A>|";
  65.     print "<A HREF=\"/Japan/Public/Hiroshima/htmleng/elegacy.htm\">CULTURAL LEGACY</A>|";
  66.     print "<A HREF=\"/Japan/Public/Hiroshima/htmleng/econtri.htm\">CONTRIBUTE</A>|";
  67.     print "<A HREF=\"/Japan/Public/Hiroshima/htmleng/eoutline.htm\">OUTLINE</A>|";
  68.     print "<A HREF=\"/Japan/Public/Hiroshima/html/index.htm\" TARGET=\"_top\">TOP</A>";
  69.     print "]<BR><BR>";
  70.     print "[";
  71.     print "<A HREF=\"http://www.hiroshima-cdas.or.jp/pref/\" TARGET=\"_top\">HOME</A>|";
  72.     print "<A HREF=\"http://japan.park.org/Japan\" TARGET=\"_top\">JAPAN ZONE</A>|";
  73.     print "<A HREF=\"http://park.org/\" TARGET=\"_top\">CENTRAL</A>";
  74.     print "]";
  75.     print "</body>\n";
  76.  
  77. exit 0;
  78.  
  79. #-------------------------------------------------------------
  80. #  send mail message
  81. #-------------------------------------------------------------
  82. sub send_mail {
  83.     open (MAIL, "|$mailprog $recipient ") || die "Can't open $mailprog!\n";
  84.     print MAIL "Äüû╝üF$FORM{'name'}\n";
  85.     print MAIL "ɽò╩üF$FORM{'sex'}\n";
  86.     print MAIL "öNùεüF$FORM{'age'}\n";
  87.     print MAIL "ÅZÅèüF$FORM{'nationality'}\n";
  88.     print MAIL "é¿éαé╡éδé⌐é┴é╜ôαùeüF$FORM{'interesting'}\n";
  89.     print MAIL "é┬é▄éτé╚é⌐é┴é╜ôαùeüF$FORM{'uninteresting'}\n";
  90.     print MAIL "ìíîπé╓é╠è≤û]üEùvû]üF$FORM{'demand'}\n";
  91.     print MAIL "âRâüâôâgüEé╗é╠æ╝ü@üF$FORM{'comment'}\n";
  92.     print MAIL "étéhécü@ü@ü@ü@ü@ü@üF$FORM{'uid'}\n";
  93.     print MAIL "------------------------------------------------------------\n";
  94.     print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
  95.     print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
  96.     print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
  97.     print MAIL "User Agent: $ENV{'HTTP_USER_AGENT'}\n";
  98. #   if defined($ENV{'HTTP_USER_AGENT'});
  99.     close (MAIL);
  100. }
  101.