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 / textpre.cgi < prev    next >
Text File  |  2017-09-21  |  1KB  |  68 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/textpre.cgi';
  15.  
  16. # print "Content-type: text/html\n\n";
  17. &read_in_data;
  18. &print_frames;
  19.  
  20. #########################################################################
  21.  
  22. sub read_in_data {
  23.  
  24. # read in submitted form data contents into the hash %FormDataHash
  25.   &ReadInFormData(\%FormDataHash);
  26.  
  27.   foreach $Key (keys(%FormDataHash)) {
  28.  
  29. # print "//$Key:$FormDataHash{$Key}//\n";
  30.   }
  31.   $UserName = $FormDataHash{'username'};
  32.   $ParkName = $FormDataHash{'park'};
  33. }
  34.  
  35. sub print_frames {
  36.  
  37.   select(STDOUT);
  38.   # tell the server that we're sending data back now
  39.   print "Content-type: text/html\n\n";
  40.  
  41.   # now send the server some html stuff
  42.   print "<HTML>\n\n";
  43.  
  44.   print "<HEAD>\n\n";
  45.   print "<TITLE>Meeting Place Entryway</TITLE>\n";
  46.   print "</HEAD>\n\n";
  47.  
  48.   print "<BODY>\n\n";
  49.  
  50.   print "<FORM ACTION= \"$ThemeCgi/text.cgi\" METHOD=\"POST\">\n\n";
  51.  
  52.   print "Input : ";
  53.   print "<INPUT TYPE=\"TEXT\" NAME=\"textin\" SIZE=60>";
  54.  
  55.   print "<INPUT TYPE=\"HIDDEN\" NAME=\"username\" VALUE=\"$UserName\">";
  56.   print "<INPUT TYPE=\"HIDDEN\" NAME=\"park\" VALUE=\"$ParkName\">";  
  57.   print "</FORM>";
  58.  
  59.   print "</BODY>\n\n";
  60.  
  61.  
  62.   print "</HTML>\n\n";
  63. }
  64.  
  65.  
  66.  
  67.  
  68.