home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Postcards / receive / receive.cgi < prev    next >
Text File  |  2017-09-21  |  827b  |  42 lines
  1. #!/user/a61/perl/bin/perl
  2. # #!/usr/local/bin/perl
  3.  
  4. $input_error = "Cannot process input";
  5. $file_error = "Cannot open file";
  6.  
  7. $form_password = "password";
  8.  
  9. $dir = "../postcards/";
  10. $extension = ".html";
  11.  
  12. # Read CGI input
  13. # split pairs in variables.
  14. #
  15. read (STDIN, $input, $ENV{'CONTENT_LENGTH'});
  16. @pairs = split (/&/, $input);
  17. if (scalar(@pairs) == 1) {
  18.    foreach $pair (@pairs) {
  19.       ($attribute, $value) =  split (/=/, $pair);
  20.       $value =~ tr/+/ /;
  21.       $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
  22.  
  23.       if ($attribute eq $form_password) {
  24.          $password_input = $value;
  25.       }
  26.    }
  27. }
  28. else {
  29.    print "$input_error\n";
  30.    exit 0;
  31. }
  32.  
  33.  
  34. $file = $dir.$password_input;
  35. $file = $file.$extension;
  36. if ( !(-e $file) ) {
  37.     print "Location: try_again.html\n\n";
  38. }
  39. else {
  40.     print "Location: $file\n\n";
  41. }
  42.