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 / update.cgi < prev    next >
Text File  |  2017-09-21  |  1KB  |  69 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $| = 1;
  4.  
  5. # script for meeting room
  6.  
  7. # jrh
  8. $CgiPath      = '/stage/htdocs/cgi-bin/Japan/Theme';
  9. push(@INC, "$CgiPath");
  10. require 'jcode.pl'; # tends to be in /usr/local/lib/perl
  11. require 'read-form.pl'; # tends to be in your cgi path
  12. require 'meetinit.pl';
  13. require 'frames.pl';
  14. require 'output.pl';
  15.  
  16. $ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/update.cgi';
  17.  
  18. # print "Content-type: text/html\n\n";
  19.  
  20. &read_in_data;
  21. &init_dbm;
  22. &print_frame;
  23. &close_dbm;
  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.   $GifName = $FormDataHash{'gif'};
  35.   $UserName = $FormDataHash{'username'};
  36.   $ParkName = $FormDataHash{'park'};
  37.   $UpdateString = $FormDataHash{'update'};
  38.  
  39. # print "$FormDataHash{'gif'}\n";
  40. # print "$FormDataHash{'username'}\n";
  41. }
  42.  
  43. sub init_dbm {
  44.     
  45.   $TextPath = "$ThemeDBMPath/$ParkName/$TextLocation";
  46.   dbmopen(%TextDB,$TextPath,0666);
  47.   
  48. }
  49.  
  50. sub print_frame {
  51.  
  52.   $LastKey = chop($UpdateString);
  53.   if ($LastKey > 0) {
  54.     &print_user;    
  55.   }
  56.   else {
  57.     &print_meet;
  58.   }
  59.  
  60. }
  61.  
  62.  
  63. sub close_dbm {
  64.  
  65.   dbmclose(%TextDB);
  66.  
  67. }
  68.  
  69.