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 / checkplace.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  98 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 inn</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="3">Ñ╞í╝Ñ▐Ñ╤Ñ╙ÑΩѬÑ≤ñ╦╞■ñδ╩²ñ╧<br>
  51. ñ¬╠╛┴░ñ╚ñ¬╜╗ñ▐ñññ╬├╧╠╛ñ≥╞■ñ∞ñ╞ñ»ñ└ñ╡ññ</font><br><br></td></tr>
  52.  
  53. <tr><td colspan="4" align="center"><font size="2"><b>*sample*</b><br>
  54. akira/TYO, Bob Smith/St.Lewis, Yuki/Paris<br></font><br><br></td></tr>';
  55.  
  56.  
  57.  
  58. print "<form method=\"get\" action=\"/cgi-bin/Japan/Theme/checkin.cgi\">";
  59.  
  60. print '<tr valign="bottom">
  61. <td>name:<br><br></td>
  62. <td><input type="text" name="your_name" size=10><br><br></td>
  63. <td align="right">place:<br><br></td>
  64. <td><input type="text" name="your_location" size=10><br><br></td></tr>
  65.  
  66. <tr><td></td>';
  67.  
  68. print "<INPUT TYPE=\"HIDDEN\" NAME=\"referer\" VALUE=\"$Referer\">";
  69.  
  70.  
  71. print '<td align="right"><input type="submit" value="submit"></td>
  72. <td><input type="reset" value="reset"></td>
  73. <td></td></tr>
  74. </form>
  75.  
  76. <tr><td colspan="4" align="center"><font size="1"><br><br>*╦Φ▓≤ÑóÑ»Ñ╗Ñ╣ñ╣ñδ┼┘ñ╦║╞╞■╬╧ñ╖ñ╞ñ»ñ└ñ╡ññ<br>
  77. *╞■╬╧╞Γ═╞ñ╧┴░▓≤ñ╚░█ñ╩ñ├ñ╞ñΓ╣╜ñññ▐ñ╗ñ≤<br>
  78. *╠╛┴░/├╧╠╛ñ╚ñΓñ╦10╩╕╗·░╩╞Γí╩╚╛│╤ÑóÑδÑ╒ÑíÑ┘Ñ├Ñ╚í╦ñ╟ñ¬┤Ωñññ╖ñ▐ñ╣</font></td></tr>
  79. </table>
  80. </center>
  81.  
  82. </body>
  83.  
  84. <hr>
  85. <center>
  86. <adress>
  87. theme pavilion sensorium @IWE\'96 JAPAN
  88. </adress>
  89. </center>
  90.  
  91. </html>';
  92.  
  93. }
  94.  
  95.  
  96.  
  97.  
  98.