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 / text.cgi < prev    next >
Text File  |  2017-09-21  |  3KB  |  124 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 'frames.pl';
  12. require 'meetinit.pl';
  13.  
  14. $ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/text.cgi';
  15.  
  16. # print "Content-type: text/html\n\n";
  17.  
  18. &read_in_data;
  19. &init_dbm;
  20. &process_data;
  21. &print_frames;
  22. &close_dbm;
  23.  
  24. #########################################################################
  25.  
  26.  
  27.  
  28. sub read_in_data {
  29.  
  30. # read in submitted form data contents into the hash %FormDataHash
  31.   &ReadInFormData(\%FormDataHash);
  32.  
  33.   foreach $Key (keys(%FormDataHash)) {
  34.  
  35.     $FieldValue = $FormDataHash{$Key};
  36.  
  37.     &jcode::convert(*FieldValue, 'jis');
  38.  
  39.     $FormDataHash{$Key} = $FieldValue;
  40.  
  41. # print "//$Key:$FormDataHash{$Key}//\n";
  42.   }
  43.   $UserName = $FormDataHash{'username'};
  44.   $ParkName = $FormDataHash{'park'};
  45.  
  46. }
  47.  
  48. sub init_dbm {
  49.     
  50.   $TextPath = "$ThemePath/$ParkName/park/dbm/$TextLocation";   
  51.   $ColorFilePath = "$ThemePath/$ParkName/park/dbm/$ColorFile";   
  52.   $ColorNamesPath = "$ThemePath/$ParkName/park/dbm/$ColorNames";   
  53.   dbmopen(%TextDB,$TextPath,0666);
  54.   dbmopen(%Colors,$ColorFilePath,0666);
  55.   dbmopen(%ColorName,$ColorNamesPath,0666);
  56.  
  57. }
  58.  
  59. sub process_data {
  60.  
  61.   $Count = 0;
  62.   foreach $Key (sort(keys(%TextDB))) {
  63.     $TempArray[$Count] = $TextDB{$Key};
  64. #    print "$Key : $TextDB{$Key}\n";
  65.     $Count++;
  66.   }
  67.   $TextDB{"0"} =  "<FONT COLOR=\"#$ColorName{$UserName}\">$UserName : $FormDataHash{'textin'}";
  68. #    print "0 : $TextDB{'0'}\n";
  69.   $Count = 1;
  70.   $Max = 10;
  71.   while ($Count ne $Max) {
  72.     $Displace = $Count - 1;
  73.     $TextDB{$Count} = $TempArray[$Displace];
  74. #    print "$Count : $TextDB{$Count}\n";
  75.     $Count++;
  76.   }
  77.   open (TEXT,">> $ThemePath/logs/$ParkName\.park\.log");
  78.   select (TEXT);
  79.   print "$UserName : $FormDataHash{'textin'}\n";
  80.   select (STDOUT);
  81.   close (TEXT);
  82. }
  83.  
  84.  
  85. sub print_frames {
  86.  
  87.   select(STDOUT);
  88.   # tell the server that we're sending data back now
  89.   print "Content-type: text/html\n\n";
  90.  
  91.   # now send the server some html stuff
  92.   print "<HTML>\n\n";
  93.  
  94.   print "<HEAD>\n\n";
  95.   print "<TITLE>Meeting Place Entryway</TITLE>\n";
  96.   print "</HEAD>\n\n";
  97.  
  98.   print "<BODY>\n\n";
  99.  
  100.   print "<FORM ACTION=\"$ThemeCgi/text.cgi\" METHOD=\"POST\">\n\n";
  101.  
  102.   print "<INPUT TYPE=\"TEXT\" NAME=\"textin\" SIZE=40>";
  103.  
  104.   print "<INPUT TYPE=\"HIDDEN\" NAME=\"username\" VALUE=\"$UserName\">";
  105.   print "<INPUT TYPE=\"HIDDEN\" NAME=\"park\" VALUE=\"$ParkName\">";
  106.   print "</FORM>";
  107.  
  108.   print "</BODY>\n\n";
  109.  
  110.  
  111.   print "</HTML>\n\n";
  112. }
  113.  
  114.  
  115. sub close_dbm {
  116.  
  117.   dbmclose(%TextDB);
  118.   dbmclose(%Colors);
  119.   dbmclose(%ColorName);
  120.  
  121. }
  122.  
  123.  
  124.