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 / waiting.cgi.sav < prev   
Text File  |  2017-09-21  |  6KB  |  247 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 'meetinit.pl';
  12. require 'frames.pl';
  13.  
  14. $ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/entry.cgi';
  15.  
  16. # print "Content-type: text/html\n\n";
  17.  
  18. &read_in_data;
  19. &init_dbm;
  20. &check_open;
  21. &print_html;
  22. &close_dbm;
  23.  
  24. #########################################################################
  25.  
  26.  
  27.  
  28.  
  29.  
  30. sub read_in_data {
  31.  
  32. # read in submitted form data contents into the hash %FormDataHash
  33. &ReadInFormData(\%FormDataHash);
  34.  
  35. foreach $Key (keys(%FormDataHash)) {
  36.  
  37. # print "//$Key:$FormDataHash{$Key}//\n";
  38. }
  39.  
  40. $ParkName = $FormDataHash{'park'};
  41.  
  42. # print "$FormDataHash{'gif'}\n";
  43. # print "$UserName\n";
  44. }
  45.  
  46. sub init_dbm {
  47.  
  48.   $LastPath = "$ThemeDBMPath/$ParkName/$LastAccess";   
  49.   $UserPath = "$ThemeDBMPath/$ParkName/$UserAccess";   
  50.   $UpdatePath = "$ThemeDBMPath/$ParkName/$LastUpdate";   
  51.   $EntryPath = "$ThemeDBMPath/$ParkName/$EntryTime";   
  52.   $GifPath = "$ThemeDBMPath/$ParkName/$GifNumber";   
  53.   dbmopen(%LastAccessToPage,$LastPath,0666);
  54.   dbmopen(%UserAccessToPage,$UserPath,0666);
  55.   dbmopen(%LastUpdateToPage,$UpdatePath,0666);
  56.   dbmopen(%EntryToPage,$EntryPath,0666);
  57.   dbmopen(%GifToPage,$GifPath,0666);
  58.  
  59. }
  60.  
  61. sub check_open  {
  62.  
  63. # Set Up Constant factors
  64.   $ExpireTime = time - $ExpiryTime; 
  65.   $WhileNo = $FrameNo + 1;
  66.   $Key = 1;
  67.  
  68. # Clean out expired frames
  69.  
  70.   while ($Key < $WhileNo) {
  71.     
  72.     if ($LastAccessToPage{$Key} > 0) {
  73.       if ($LastAccessToPage{$Key} < $ExpireTime) {
  74.         $CleanKey = $Key;
  75.         $UserAccessToPage{$Key} = "vacant";
  76.         $LastAccessToPage{$Key} = 0;
  77.         $LastUpdateToPage{$Key} = time;
  78.         $GifToPage{$Key} = "$ThemeSite$ThemeURL/$ParkName/park/image/vacancy.gif";
  79.         &clean_frame;
  80.       }
  81.     }
  82.     $Key++;
  83.   }
  84.  
  85.   $Key = 1;
  86.  
  87.   while ($Key < $WhileNo) {
  88.     
  89.     $Users[$Key] = $UserAccessToPage{$Key};
  90.     $Last[$Key] = $LastAccessToPage{$Key};
  91.     $Entry[$Key] = $EntryToPage{$Key};
  92.     if ($Last[$Key] == 0) {
  93.       $Entry[$Key] = 'soon';
  94.     }
  95.     else {
  96.       $Entry[$Key] = gmtime($Entry[$Key]);
  97.       $Entry[$Key] = "$Entry[$Key] GMT";
  98.     }
  99.     $Gif[$Key] = $GifToPage{$Key};
  100.     $Key++;
  101.   }
  102.  
  103. # Check for open frames
  104.  
  105.   $Open = 0;
  106.   $Key = 1;
  107.  
  108.   while ($Key < $WhileNo) {
  109.     
  110.     if ($LastAccessToPage{$Key} == 0) {
  111.       $Open++;
  112.       $LastKey = $Key;
  113.     }
  114.     $Key++;
  115.   }
  116.   
  117. }
  118.  
  119.  
  120. sub print_html {
  121.  
  122.   select(STDOUT);
  123.   # tell the server that we're sending data back now
  124.   print "Content-type: text/html\n\n";
  125.  
  126.   # now send the server some html stuff
  127.   print '
  128. <html>
  129. <head>
  130. <META HTTP-EQUIV=REFRESH CONTENT=25; URL=waiting.cgi">
  131. <title>pocket park waiting</title></head>
  132. <basefont size="3">
  133. <body bgcolor="#ffffff">
  134. <br>
  135. <center>
  136. <table width="95%" cellpadding="0" cellspacing="0">
  137. <tr>';
  138.   if ($Open == 0) {
  139.   print '<td align="center"><font size="5">All seats full!</font></td>';
  140.   }
  141.   else {
  142.   print "<font size=\"5\">Welcome to the ";
  143.     if ($ParkName eq 'linked') {
  144.       print "Linked Senses ";
  145.     }
  146.     elsif ($ParkName eq 'sjapan') {
  147.       print "Sensing Japan ";
  148.     }
  149.     elsif ($ParkName eq 'sware') {
  150.       print "Senseware ";
  151.     }
  152.     elsif ($ParkName eq 'sense') {
  153.       print "\"Sense\" ";
  154.     }
  155.     elsif ($ParkName eq 'library') {
  156.       print "Library ";
  157.     }
  158.     elsif ($ParkName eq 'press') {
  159.       print "Media Watch ";
  160.     }
  161.   print "Pocket Park</FONT><BR>\n";
  162.   print "<td align=\"center\"><font size=\"5\">$Open seat(s) free!</font></td>";  
  163.   }
  164.   print '
  165. </tr>
  166. </table>';
  167.  
  168. print "<form action=\"$ThemeCgi/entry.cgi\" method=\"POST\">";
  169.  
  170. print '<table><tr valign="top">';
  171. print "<td><input type=\"radio\" name=\"gif\" value=\"face1.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face1.gif\"></td>";
  172. print "<td><input type=\"radio\" name=\"gif\" value=\"face2.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face2.gif\"></td>";
  173. print "<td><input type=\"radio\" name=\"gif\" value=\"face3.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face3.gif\"></td>";
  174. print "<td><input type=\"radio\" name=\"gif\" value=\"face4.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face4.gif\"></td>";
  175. print "<td><input type=\"radio\" name=\"gif\" value=\"face5.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face5.gif\"></td>";
  176. print "<td><input type=\"radio\" name=\"gif\" value=\"face6.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face6.gif\"></td>";
  177.  
  178. print '
  179. </tr></table>
  180. <br>
  181. You can also use your own URL for a picture.<BR>
  182. <INPUT TYPE="TEXT" NAME="urlgif" SIZE=40 VALUE="http://"><BR>
  183. Please select your face. Then....
  184. <input type="submit" value="Enter!">';
  185.  
  186. print "<input type=\"hidden\" name=\"park\" value=\"$ParkName\">";
  187.  
  188. print '
  189.  
  190. </form>
  191.  
  192.  
  193. <table border width="90%" cellpadding="2" cellspacing="2">';
  194.  
  195. print "<tr><td align=\"center\"><img src=\"$Gif[6]\" width=60 height=60></td>";
  196.  
  197. print "<td>$Users[6]</td>";
  198. print "<td>$Entry[6]</td></tr>";
  199.  
  200. print "<tr><td align=\"center\"><img src=\"$Gif[5]\" width=60 height=60></td>";
  201.  
  202. print "<td>$Users[5]</td>";
  203. print "<td>$Entry[5]</td></tr>";
  204.  
  205. print "<tr><td align=\"center\"><img src=\"$Gif[4]\" width=60 height=60></td>";
  206.  
  207. print "<td>$Users[4]</td>";
  208. print "<td>$Entry[4]</td></tr>";
  209.  
  210. print "<tr><td align=\"center\"><img src=\"$Gif[3]\" width=60 height=60></td>";
  211.  
  212. print "<td>$Users[3]</td>";
  213. print "<td>$Entry[3]</td></tr>";
  214.  
  215. print "<tr><td align=\"center\"><img src=\"$Gif[2]\" width=60 height=60></td>";
  216.  
  217. print "<td>$Users[2]</td>";
  218. print "<td>$Entry[2]</td></tr>";
  219.  
  220. print "<tr><td align=\"center\"><img src=\"$Gif[1]\" width=60 height=60></td>";
  221.  
  222. print "<td>$Users[1]</td>";
  223. print "<td>$Entry[1]</td></tr>";
  224.  
  225. print '</table>
  226.  
  227.  
  228. </body>
  229. <hr>
  230. <adress><center>
  231. theme pavilion sensorium@IWE\'96 JAPAN
  232. </center></adress>
  233. </html>';
  234.  
  235. }
  236.  
  237.  
  238.  
  239. sub close_dbm {
  240.  
  241.   dbmclose(%LastAccessToPage);
  242.   dbmclose(%UserAccessToPage);
  243.   dbmclose(%EntryToPage);
  244.  
  245. }
  246.  
  247.