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 / waiting.cgi < prev   
Text File  |  2017-09-21  |  5KB  |  224 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 '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 = "$ThemePath/$ParkName/park/dbm/$LastAccess";   
  49.   $UserPath = "$ThemePath/$ParkName/park/dbm/$UserAccess";   
  50.   $EntryPath = "$ThemePath/$ParkName/park/dbm/$EntryTime";   
  51.   $GifPath = "$ThemePath/$ParkName/park/dbm/$GifNumber";   
  52.   dbmopen(%LastAccessToPage,$LastPath,0666);
  53.   dbmopen(%UserAccessToPage,$UserPath,0666);
  54.   dbmopen(%EntryToPage,$EntryPath,0666);
  55.   dbmopen(%GifToPage,$GifPath,0666);
  56.  
  57. }
  58.  
  59. sub check_open  {
  60.  
  61. # Set Up Constant factors
  62.   $ExpireTime = time - $ExpiryTime; 
  63.   $WhileNo = $FrameNo + 1;
  64.   $Key = 1;
  65.  
  66. # Clean out expired frames
  67.  
  68.   while ($Key < $WhileNo) {
  69.     
  70.     if ($LastAccessToPage{$Key} > 0) {
  71.       if ($LastAccessToPage{$Key} < $ExpireTime) {
  72.         $CleanKey = $Key;
  73.         $UserAccessToPage{$Key} = "vacant";
  74.         $LastAccessToPage{$Key} = 0;
  75.         $GifToPage{$Key} = "$ThemeSite$ThemeURL/$ParkName/park/image/vacancy.gif";
  76.         &clean_frame;
  77.       }
  78.     }
  79.     $Key++;
  80.   }
  81.  
  82.   $Key = 1;
  83.  
  84.   while ($Key < $WhileNo) {
  85.     
  86.     $Users[$Key] = $UserAccessToPage{$Key};
  87.     $Last[$Key] = $LastAccessToPage{$Key};
  88.     $Entry[$Key] = $EntryToPage{$Key};
  89.     if ($Last[$Key] == 0) {
  90.       $Entry[$Key] = 'soon';
  91.     }
  92.     else {
  93.       $Entry[$Key] = gmtime($Entry[$Key]);
  94.       $Entry[$Key] = "$Entry[$Key] GMT";
  95.     }
  96.     $Gif[$Key] = $GifToPage{$Key};
  97.     $Key++;
  98.   }
  99.  
  100. # Check for open frames
  101.  
  102.   $Open = 0;
  103.   $Key = 1;
  104.  
  105.   while ($Key < $WhileNo) {
  106.     
  107.     if ($LastAccessToPage{$Key} == 0) {
  108.       $Open++;
  109.       $LastKey = $Key;
  110.     }
  111.     $Key++;
  112.   }
  113.   
  114. }
  115.  
  116.  
  117. sub print_html {
  118.  
  119.   select(STDOUT);
  120.   # tell the server that we're sending data back now
  121.   print "Content-type: text/html\n\n";
  122.  
  123.   # now send the server some html stuff
  124.   print '
  125. <html>
  126. <head>
  127. <META HTTP-EQUIV=REFRESH CONTENT=25; URL=waiting.cgi">
  128. <title>pocket park waiting</title></head>
  129. <basefont size="3">
  130. <body bgcolor="#ffffff">
  131. <br>
  132. <center>
  133. <table width="95%" cellpadding="0" cellspacing="0">
  134. <tr>';
  135.   if ($Open == 0) {
  136.   print '<td align="center"><font size="5">All seats full!</font></td>';
  137.   }
  138.   else {
  139.   print "<td align=\"center\"><font size=\"5\">$Open seat(s) free!</font></td>";  
  140.   }
  141.   print '
  142. </tr>
  143. </table>';
  144.  
  145. print "<form action=\"$ThemeCgi/entry.cgi\" method=\"POST\">";
  146.  
  147. print '<table><tr valign="top">';
  148. print "<td><input type=\"radio\" name=\"gif\" value=\"face1.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face1.gif\"></td>";
  149. print "<td><input type=\"radio\" name=\"gif\" value=\"face2.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face2.gif\"></td>";
  150. print "<td><input type=\"radio\" name=\"gif\" value=\"face3.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face3.gif\"></td>";
  151. print "<td><input type=\"radio\" name=\"gif\" value=\"face4.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face4.gif\"></td>";
  152. print "<td><input type=\"radio\" name=\"gif\" value=\"face5.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face5.gif\"></td>";
  153. print "<td><input type=\"radio\" name=\"gif\" value=\"face6.gif\"></td><td><img src=\"$ThemeURL/$ParkName/park/image/face6.gif\"></td>";
  154.  
  155. print '
  156. </tr></table>
  157. <br>
  158. You can also use your own URL for a picture.<BR>
  159. <INPUT TYPE="TEXT" NAME="urlgif" SIZE=40 VALUE="http://"><BR>
  160. Please select your face. Then....
  161. <input type="submit" value="Enter!">';
  162.  
  163. print "<input type=\"hidden\" name=\"park\" value=\"$ParkName\">";
  164.  
  165. print '
  166.  
  167. </form>
  168.  
  169.  
  170. <table border width="90%" cellpadding="2" cellspacing="2">';
  171.  
  172. print "<tr><td align=\"center\"><img src=\"$Gif[6]\" width=60 height=60></td>";
  173.  
  174. print "<td>$Users[6]</td>";
  175. print "<td>$Entry[6]</td></tr>";
  176.  
  177. print "<tr><td align=\"center\"><img src=\"$Gif[5]\" width=60 height=60></td>";
  178.  
  179. print "<td>$Users[5]</td>";
  180. print "<td>$Entry[5]</td></tr>";
  181.  
  182. print "<tr><td align=\"center\"><img src=\"$Gif[4]\" width=60 height=60></td>";
  183.  
  184. print "<td>$Users[4]</td>";
  185. print "<td>$Entry[4]</td></tr>";
  186.  
  187. print "<tr><td align=\"center\"><img src=\"$Gif[3]\" width=60 height=60></td>";
  188.  
  189. print "<td>$Users[3]</td>";
  190. print "<td>$Entry[3]</td></tr>";
  191.  
  192. print "<tr><td align=\"center\"><img src=\"$Gif[2]\" width=60 height=60></td>";
  193.  
  194. print "<td>$Users[2]</td>";
  195. print "<td>$Entry[2]</td></tr>";
  196.  
  197. print "<tr><td align=\"center\"><img src=\"$Gif[1]\" width=60 height=60></td>";
  198.  
  199. print "<td>$Users[1]</td>";
  200. print "<td>$Entry[1]</td></tr>";
  201.  
  202. print '</table>
  203.  
  204.  
  205. </body>
  206. <hr>
  207. <adress><center>
  208. theme pavilion sensorium@IWE\'96 JAPAN
  209. </center></adress>
  210. </html>';
  211.  
  212. }
  213.  
  214.  
  215.  
  216. sub close_dbm {
  217.  
  218.   dbmclose(%LastAccessToPage);
  219.   dbmclose(%UserAccessToPage);
  220.   dbmclose(%EntryToPage);
  221.  
  222. }
  223.  
  224.