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 >
Wrap
Text File
|
2017-09-21
|
1KB
|
69 lines
#!/usr/local/bin/perl
$| = 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 'meetinit.pl';
require 'frames.pl';
require 'output.pl';
$ThisFile = '/stage/htdocs/cgi-bin/Japan/Theme/update.cgi';
# print "Content-type: text/html\n\n";
&read_in_data;
&init_dbm;
&print_frame;
&close_dbm;
#########################################################################
sub read_in_data {
# read in submitted form data contents into the hash %FormDataHash
&ReadInFormData(\%FormDataHash);
$GifName = $FormDataHash{'gif'};
$UserName = $FormDataHash{'username'};
$ParkName = $FormDataHash{'park'};
$UpdateString = $FormDataHash{'update'};
# print "$FormDataHash{'gif'}\n";
# print "$FormDataHash{'username'}\n";
}
sub init_dbm {
$TextPath = "$ThemeDBMPath/$ParkName/$TextLocation";
dbmopen(%TextDB,$TextPath,0666);
}
sub print_frame {
$LastKey = chop($UpdateString);
if ($LastKey > 0) {
&print_user;
}
else {
&print_meet;
}
}
sub close_dbm {
dbmclose(%TextDB);
}