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 / echeckplace.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  96 lines
  1. #!/usr/local/bin/perl
  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/textpre.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 in</title></head>
  40. <body background="/Japan/Theme/image/bg1.gif">
  41. <table border="0" cellspacing="0" cellpadding="0">
  42. <tr><td><a href="/Japan/Theme/index.html" target="_top"><img src="/Japan/Theme/image/gohome.gif" border="0"></a></td>
  43. </tr>
  44. </table>
  45. <center>
  46. <H2>   Welcome to Meeting Place !</H2>
  47. <img src="/Japan/Theme/image/checkin.gif" border="0"alt="Please CHECK-INN!">
  48. <table border="0" cellspacing="1" cellpadding="0">
  49.  
  50. <tr><td colspan="4" align="center"><font size="7">E</font><font size="3">verytime you visit the Theme Pavilion,<br>
  51. please enter your name and address<br>(within 10 characters for each).
  52. </font><br><br></td></tr>
  53.  
  54. <tr><td colspan="4" align="center"><font size="2"><b>*sample*</b><br>
  55. akira/TYO, Bob Smith/St.Lewis, Yuki/Paris<br></font><br><br></td></tr>';
  56.  
  57.  
  58.  
  59. print "<form method=\"get\" action=\"/cgi-bin/Japan/Theme/checkin.cgi\">";
  60.  
  61. print '<tr valign="bottom">
  62. <td>name:<br><br></td>
  63. <td><input type="text" name="your_name" size=10><br><br></td>
  64. <td align="right">place:<br><br></td>
  65. <td><input type="text" name="your_location" size=10><br><br></td></tr>
  66.  
  67. <tr><td></td>';
  68.  
  69. print "<INPUT TYPE=\"HIDDEN\" NAME=\"referer\" VALUE=\"$Referer\">";
  70.  
  71.  
  72. print '<td align="right"><input type="submit" value="submit"></td>
  73. <td><input type="reset" value="reset"></td>
  74. <td></td></tr>
  75. </form>
  76.  
  77. </table>
  78. </center>
  79.  
  80. </body>
  81.  
  82. <hr>
  83. <center>
  84. <adress>
  85. Theme pavilion "sensorium"/IWE\'96 JAPAN
  86. </adress>
  87. </center>
  88.  
  89. </html>';
  90.  
  91. }
  92.  
  93.  
  94.  
  95.  
  96.