home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / sngsimp2.zip / UPsimpsonIn.pl < prev    next >
Perl Script  |  1996-12-21  |  3KB  |  77 lines
  1. #!/usr/bin/perl
  2. print "Content-type: text/html\n\n";
  3.  
  4.     print "<HTML>";
  5.     print "<HEAD>";
  6.     print "<TITLE>Saved.</TITLE>";
  7.     print "</HEAD>";
  8.     print "<PRE>";
  9.     print "<BODY>";
  10.     print "Saving...\n\n";
  11.  
  12. print "\n\n";
  13. #while(($key,$value) = each %ENV) {
  14. #  print "$key=$value\n";
  15. #}
  16.  
  17.  
  18. ###print "cont_len=",$ENV{'CONTENT_LENGTH'},"\n";
  19.  
  20. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  21.  
  22. ###print "Buffer is : ",$buffer;
  23. ###print "\n\n\n 3 spaces \n\n\n";
  24.  
  25. @pairs = split(/&/, $buffer);
  26. foreach $pair (@pairs)
  27. {
  28.     ($name, $value) = split(/=/, $pair);
  29.     $value =~ tr/+/ /;
  30.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  31.  
  32. ###    print "name=",$name,"   value=",$value,"\n";
  33.  
  34.     $FORM{$name} = $value;
  35. }
  36.  
  37. sub write
  38. {
  39.     open(TalOutputFile1,">/usr/www/host1207/simple/play/simpson/UPsimpsonIn.txt") || die "Can't open UPsimpsonIn.txt !\n $!\n $@\n";
  40.     chmod 0777, $_;
  41.  
  42.     print TalOutputFile1 $FORM{'Short1'},";",$FORM{'Long1'},";",$FORM{'Jump1'},";\n";
  43.     print TalOutputFile1 $FORM{'Short2'},";",$FORM{'Long2'},";",$FORM{'Jump2'},";\n";
  44.     print TalOutputFile1 $FORM{'Short3'},";",$FORM{'Long3'},";",$FORM{'Jump3'},";\n";
  45.     print TalOutputFile1 $FORM{'Short4'},";",$FORM{'Long4'},";",$FORM{'Jump4'},";\n";
  46.     print TalOutputFile1 $FORM{'Short5'},";",$FORM{'Long5'},";",$FORM{'Jump5'},";\n";
  47.     print TalOutputFile1 $FORM{'Short6'},";",$FORM{'Long6'},";",$FORM{'Jump6'},";\n";
  48.     print TalOutputFile1 $FORM{'Short7'},";",$FORM{'Long7'},";",$FORM{'Jump7'},";\n";
  49.     print TalOutputFile1 $FORM{'Short8'},";",$FORM{'Long8'},";",$FORM{'Jump8'},";\n";
  50.     print TalOutputFile1 $FORM{'Short9'},";",$FORM{'Long9'},";",$FORM{'Jump9'},";\n";
  51.     print TalOutputFile1 $FORM{'Short10'},";",$FORM{'Long10'},";",$FORM{'Jump10'},";\n";
  52.     print TalOutputFile1 $FORM{'Short11'},";",$FORM{'Long11'},";",$FORM{'Jump11'},";\n";
  53.     print TalOutputFile1 $FORM{'Short12'},";",$FORM{'Long12'},";",$FORM{'Jump12'},";\n";
  54.     print TalOutputFile1 $FORM{'Short13'},";",$FORM{'Long13'},";",$FORM{'Jump13'},";\n";
  55.     print TalOutputFile1 $FORM{'Short14'},";",$FORM{'Long14'},";",$FORM{'Jump14'},";\n";
  56.     print TalOutputFile1 $FORM{'Short15'},";",$FORM{'Long15'},";",$FORM{'Jump15'},";\n";
  57.     print TalOutputFile1 $FORM{'Short16'},";",$FORM{'Long16'},";",$FORM{'Jump16'},";\n";
  58.     print TalOutputFile1 $FORM{'Short17'},";",$FORM{'Long17'},";",$FORM{'Jump17'},";\n";
  59.     print TalOutputFile1 $FORM{'Short18'},";",$FORM{'Long18'},";",$FORM{'Jump18'},";\n";
  60.     print TalOutputFile1 $FORM{'Short19'},";",$FORM{'Long19'},";",$FORM{'Jump19'},";\n";
  61.     print TalOutputFile1 $FORM{'Short20'},";",$FORM{'Long20'},";",$FORM{'Jump20'},";\n";
  62.     print TalOutputFile1 "E;END;http://www.sngchicago.com;\n";
  63.     close TalOutputFile1;
  64.  
  65.     print "Saved lines successfully.\n\n";
  66.     print "Click ";
  67.     print "<a href=http://www7.homecom.com/host1207/simple/play/simpson/play.html> HERE </a>";
  68.     print " to see Your Updated Simpson.";
  69.  
  70.     print "</BODY></HTML>";
  71.     exit;
  72. }
  73.  
  74. #Main
  75. &write;
  76.  
  77.