#!/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 "\n\n";
print "\n\n";
print "Meeting Place Entryway\n";
print "\n\n";
print "\n\n";
print "";
print "\n\n";
print "\n\n";
}