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 < prev    next >
Text File  |  2017-09-21  |  6KB  |  248 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. #    print "$Gif[$Key] : $GifToPage{$Key}\n";
  101.     $Key++;
  102.   }
  103.  
  104. # Check for open frames
  105.  
  106.   $Open = 0;
  107.   $Key = 1;
  108.  
  109.   while ($Key < $WhileNo) {
  110.     
  111.     if ($LastAccessToPage{$Key} == 0) {
  112.       $Open++;
  113.       $LastKey = $Key;
  114.     }
  115.     $Key++;
  116.   }
  117.   
  118. }
  119.  
  120.  
  121. sub print_html {
  122.  
  123.   select(STDOUT);
  124.   # tell the server that we're sending data back now
  125.   print "Content-type: text/html\n\n";
  126.  
  127.   # now send the server some html stuff
  128.   print '
  129. <html>
  130. <head>
  131. <META HTTP-EQUIV=REFRESH CONTENT=25; URL=waiting.cgi">
  132. <title>pocket park waiting</title></head>
  133. <basefont size="3">
  134. <body bgcolor="#ffffff">
  135. <br>
  136. <center>
  137. <table width="95%" cellpadding="0" cellspacing="0">
  138. <tr>';
  139.   if ($Open == 0) {
  140.   print '<td align="center"><font size="5">All seats full!</font></td>';
  141.   }
  142.   else {
  143.   print "<font size=\"5\">Welcome to the ";
  144.     if ($ParkName eq 'linked') {
  145.       print "Linked Senses ";
  146.     }
  147.     elsif ($ParkName eq 'sjapan') {
  148.       print "Sensing Japan ";
  149.     }
  150.     elsif ($ParkName eq 'sware') {
  151.       print "Senseware ";
  152.     }
  153.     elsif ($ParkName eq 'sense') {
  154.       print "\"Sense\" ";
  155.     }
  156.     elsif ($ParkName eq 'library') {
  157.       print "Library ";
  158.     }
  159.     elsif ($ParkName eq 'press') {
  160.       print "Media Watch ";
  161.     }
  162.   print "Pocket Park</FONT><BR>\n";
  163.   print "<td align=\"center\"><font size=\"5\">$Open seat(s) free!</font></td>";  
  164.   }
  165.   print '
  166. </tr>
  167. </table>';
  168.  
  169. print "<form action=\"$ThemeCgi/entry.cgi\" method=\"POST\">";
  170.  
  171. print '<table><tr valign="top">';
  172. print "<td><input type=\"radio\" name=\"gif\" value=\"face1.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face1.gif\"></td>";
  173. print "<td><input type=\"radio\" name=\"gif\" value=\"face2.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face2.gif\"></td>";
  174. print "<td><input type=\"radio\" name=\"gif\" value=\"face3.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face3.gif\"></td>";
  175. print "<td><input type=\"radio\" name=\"gif\" value=\"face4.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face4.gif\"></td>";
  176. print "<td><input type=\"radio\" name=\"gif\" value=\"face5.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face5.gif\"></td>";
  177. print "<td><input type=\"radio\" name=\"gif\" value=\"face6.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face6.gif\"></td>";
  178.  
  179. print '
  180. </tr></table>
  181. <br>
  182. You can also use your own URL for a picture.<BR>
  183. <INPUT TYPE="TEXT" NAME="urlgif" SIZE=40 VALUE="http://"><BR>
  184. Please select your face. Then....
  185. <input type="submit" value="Enter!">';
  186.  
  187. print "<input type=\"hidden\" name=\"park\" value=\"$ParkName\">";
  188.  
  189. print '
  190.  
  191. </form>
  192.  
  193.  
  194. <table border width="90%" cellpadding="2" cellspacing="2">';
  195.  
  196. print "<tr><td align=\"center\"><img src=\"$Gif[6]\" width=60 height=60></td>";
  197.  
  198. print "<td>$Users[6]</td>";
  199. print "<td>$Entry[6]</td></tr>";
  200.  
  201. print "<tr><td align=\"center\"><img src=\"$Gif[5]\" width=60 height=60></td>";
  202.  
  203. print "<td>$Users[5]</td>";
  204. print "<td>$Entry[5]</td></tr>";
  205.  
  206. print "<tr><td align=\"center\"><img src=\"$Gif[4]\" width=60 height=60></td>";
  207.  
  208. print "<td>$Users[4]</td>";
  209. print "<td>$Entry[4]</td></tr>";
  210.  
  211. print "<tr><td align=\"center\"><img src=\"$Gif[3]\" width=60 height=60></td>";
  212.  
  213. print "<td>$Users[3]</td>";
  214. print "<td>$Entry[3]</td></tr>";
  215.  
  216. print "<tr><td align=\"center\"><img src=\"$Gif[2]\" width=60 height=60></td>";
  217.  
  218. print "<td>$Users[2]</td>";
  219. print "<td>$Entry[2]</td></tr>";
  220.  
  221. print "<tr><td align=\"center\"><img src=\"$Gif[1]\" width=60 height=60></td>";
  222.  
  223. print "<td>$Users[1]</td>";
  224. print "<td>$Entry[1]</td></tr>";
  225.  
  226. print '</table>
  227.  
  228.  
  229. </body>
  230. <hr>
  231. <adress><center>
  232. theme pavilion sensorium@IWE\'96 JAPAN
  233. </center></adress>
  234. </html>';
  235.  
  236. }
  237.  
  238.  
  239.  
  240. sub close_dbm {
  241.  
  242.   dbmclose(%LastAccessToPage);
  243.   dbmclose(%UserAccessToPage);
  244.   dbmclose(%EntryToPage);
  245.  
  246. }
  247.  
  248.