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
/
textpre.cgi
< prev
next >
Wrap
Text File
|
2017-09-21
|
1KB
|
67 lines
#!/usr/local/bin/perl5
$| = 1;
# script for meeting room
# jrh
$CgiPath = '/stage/htdocs/cgi-bin/Japan/Theme';
push(@INC, "$CgiPath");
require 'jcode.pl'; # tends to be in /usr/local/lib/perl
require 'read-form.pl'; # tends to be in your cgi path
require 'frames.pl';
require 'meetinit.pl';
$ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/textpre.cgi';
# print "Content-type: text/html\n\n";
&read_in_data;
&print_frames;
#########################################################################
sub read_in_data {
# read in submitted form data contents into the hash %FormDataHash
&ReadInFormData(\%FormDataHash);
foreach $Key (keys(%FormDataHash)) {
# print "//$Key:$FormDataHash{$Key}//\n";
}
$UserName = $FormDataHash{'username'};
$ParkName = $FormDataHash{'park'};
}
sub print_frames {
select(STDOUT);
# tell the server that we're sending data back now
print "Content-type: text/html\n\n";
# now send the server some html stuff
print "<HTML>\n\n";
print "<HEAD>\n\n";
print "<TITLE>Meeting Place Entryway</TITLE>\n";
print "</HEAD>\n\n";
print "<BODY>\n\n";
print "<FORM ACTION= \"$ThemeCgi/text.cgi\" METHOD=\"POST\">\n\n";
print "<INPUT TYPE=\"TEXT\" NAME=\"textin\" SIZE=40>";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"username\" VALUE=\"$UserName\">";
print "<INPUT TYPE=\"HIDDEN\" NAME=\"park\" VALUE=\"$ParkName\">";
print "</FORM>";
print "</BODY>\n\n";
print "</HTML>\n\n";
}