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 / checklist.cgi < prev    next >
Text File  |  2017-09-21  |  1KB  |  66 lines
  1. #!/usr/local/bin/perl5
  2.  
  3. $| = 1;
  4. # script for meeting room
  5.  
  6. # jrh
  7. $CgiPath      = '/stage/htdocs/cgi-bin/Japan/Theme';
  8. push(@INC, "$CgiPath");
  9. require 'jcode.pl'; # tends to be in /usr/local/lib/perl
  10. require 'read-form.pl'; # tends to be in your cgi path
  11. require 'frames.pl';
  12. require 'meetinit.pl';
  13.  
  14. $ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/checklist.cgi';
  15.  
  16. # print "Content-type: text/html\n\n";
  17. &get_referer;
  18. &print_room;
  19.  
  20. #########################################################################
  21.  
  22. sub get_referer {
  23.  
  24.   $Referer = $ENV{'HTTP_REFERER'};
  25.  
  26. }
  27.  
  28.  
  29.  
  30. sub print_room {
  31.  
  32.   select(STDOUT);
  33.   # tell the server that we're sending data back now
  34.   print "Content-type: text/html\n\n";
  35.  
  36.   # now send the server some html stuff
  37.  
  38.   print '<html>
  39. <head><title>Check inn</title></head>
  40. <body bgcolor="#ffffff">
  41. <P>';
  42.  
  43. print "<FORM method=\"POST\" ACTION=\"$ThemeSite$ThemeCgi/checkin.cgi\">";
  44.  
  45. print 'Name: <BR>
  46. <INPUT TYPE="TEXT" NAME="your_name" SIZE=10><BR>
  47. Location:<BR>
  48. <INPUT TYPE="TEXT" NAME="your_location" SIZE=10><BR>';
  49.  
  50. print "<INPUT TYPE=\"HIDDEN\" NAME=\"referer\" VALUE=\"$Referer\">";
  51.  
  52.  
  53. print '<input type="submit" value="Submit">
  54. </form>
  55.  
  56. </body>
  57.  
  58.  
  59. </html>';
  60.  
  61. }
  62.  
  63.  
  64.  
  65.  
  66.