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 / Theme.0105 / checkin.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  85 lines
  1. #! /usr/local/bin/perl5
  2.  
  3. # HTTP cookie cutter
  4. # JRH 12/18/95
  5.  
  6. $| = 1;
  7. # script for meeting room cookies
  8.  
  9. $CgiPath      = '/stage/htdocs/cgi-bin/Japan/Theme';
  10. push(@INC, "$CgiPath");
  11. require 'jcode.pl'; # tends to be in /usr/local/lib/perl
  12. require 'read-form.pl'; # tends to be in your cgi path
  13. require 'meetinit.pl';
  14.  
  15. $ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/checkin.cgi';
  16. $ExpDate = '';
  17. $ExpTime = 0;
  18. $CookiePath = '/';
  19. $ParkName = '';
  20. # print "Content-type: text/html\n\n";
  21.  
  22. # &get_referer;
  23. &read_in_data;
  24. &return_data;
  25.  
  26. #########################################################################
  27.  
  28. # sub get_referer {
  29.  
  30. #   $Referer = $ENV{'HTTP_REFERER'};
  31. # }
  32.  
  33.  
  34. sub read_in_data {
  35.  
  36. # read in submitted form data contents into the hash %FormDataHash
  37. &ReadInFormData(\%FormDataHash);
  38.  
  39. foreach $Key (keys(%FormDataHash)) {
  40.  
  41.   $FieldValue = $FormDataHash{$Key};
  42.  
  43.   &jcode::convert(*FieldValue, 'euc');
  44.  
  45.   $FormDataHash{$Key} = $FieldValue;
  46. }
  47.  
  48.  
  49. $UserName = $FormDataHash{'your_name'};
  50. $LocName = $FormDataHash{'your_location'};
  51. $ParkName = $FormDataHash{'park'};
  52. $Referer = $FormDataHash{'referer'};
  53.  
  54. }
  55.  
  56. sub return_data {
  57.  
  58.   print "Set-Cookie: NAME=$UserName\; domain=$CookieDomain\; path=$CookiePath\;\n";
  59.   print "Set-Cookie: LOCATION=$LocName\; domain=$CookieDomain\; path=$CookiePath\;\n";
  60.   if ($ParkName ne '') {
  61.  
  62.     print "Location: $Referer\n";
  63.     print "Content-type: text/html\n\n";
  64.     print "<HTML><HEAD><TITLE>Redirect</TITLE></HEAD><BODY><H1>Redirect</H1></BODY></HTML>";
  65.   }
  66.   else {
  67.     print "Location: $Referer\n";
  68.     print "Content-type: text/html\n\n";
  69.     print "<HTML><HEAD><TITLE>Redirect</TITLE></HEAD><BODY><H1><A HREF=\"$ThemeSite$ThemeURL/index.html\">Back To Home Page</A></H1></BODY></HTML>";
  70.   }
  71.  
  72. }
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.