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 / library.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  123 lines
  1. #!/usr/local/bin/perl5
  2.  
  3. $| = 1;
  4. # script for life section of the Theme Kan
  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 'lists.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_users;
  21. &print_gif;
  22. &close_dbm;
  23.  
  24. #########################################################################
  25.  
  26. sub read_in_data {
  27.  
  28. # read in submitted form data contents into the hash %FormDataHash
  29. &ReadInFormData(\%FormDataHash);
  30.  
  31. foreach $Key (keys(%FormDataHash)) {
  32.  
  33. # print "//$Key:$FormDataHash{$Key}//\n";
  34. }
  35.  
  36. $SecName = $FormDataHash{'section'};
  37. $TypeName = $FormDataHash{'sectype'};
  38.  
  39. # print "$FormDataHash{'gif'}\n";
  40. # print "$SecName\n";
  41. # print "$TypeName\n";
  42.  
  43. }
  44.  
  45.  
  46. sub init_dbm {
  47.  
  48.       
  49.   $ListLastPath = "$ThemePath/$SecName/park/dbm/$TypeName/$ListLast";   
  50.   $ListUsersPath = "$ThemePath/$SecName/park/dbm/$TypeName/$ListUsers";   
  51.  
  52.   dbmopen(%LastAccessToPage,$ListLastPath,0666);
  53.   dbmopen(%UserAccessToPage,$ListUsersPath,0666);
  54.  
  55. #  $Count = 1;
  56. #  while ($Count < $PeopleNo) {
  57. #    $UserAccessToPage{$Count} = "none";
  58. #    $LastAccessToPage{$Count} = 0;
  59. #    $Count++;
  60. #  }
  61.  
  62. }
  63.  
  64.  
  65. sub check_users  {
  66.  
  67.   $ExpireTime = time - $ExpiryTime; 
  68.   $Key = 1;
  69.   $WhileNo = $PeopleNo + 1;
  70.   $People = 0;
  71.  
  72.   while ($Key < $WhileNo) {
  73.     if ($LastAccessToPage{$Key} > 0) {
  74.       if ($LastAccessToPage{$Key} < $ExpireTime) {
  75.         $UserAccessToPage{$Key} = "none";
  76.         $LastAccessToPage{$Key} = 0;
  77.       }
  78.     }
  79.     $Key++;
  80.   }
  81.  
  82.   $Key = 1;
  83.  
  84.   while ($Key < $WhileNo) {
  85.     if ($LastAccessToPage{$Key} > 0) {
  86.         $People++;
  87.     }
  88.     $Key++;
  89.   }
  90. }
  91.  
  92.  
  93. sub print_gif {
  94.  
  95.   $NumGifPath = "$ThemePath/$SecName";
  96.   if ($People < 30) {  
  97.   open (IMAGE, "$NumGifPath/image/$People.gif");
  98.   }
  99.   else {
  100.   open (IMAGE, "$NumGifPath/image/over.gif");
  101.   }
  102.   select(STDOUT);
  103.   # tell the server that we're sending data back now
  104.  
  105.   print "Content-type: image/gif\n\n";
  106.   while (<IMAGE>) {
  107.  
  108.     print $_; 
  109.   }
  110.   close (IMAGE);
  111. }
  112.  
  113. sub close_dbm {
  114.  
  115.   dbmclose(%LastAccessToPage);
  116.   dbmclose(%UserAccessToPage);
  117.  
  118. }
  119.  
  120.  
  121.  
  122.  
  123.