3 # This is the main webstump cgi script.
5 # Figure out the home directory
8 if( !($0 =~ /\/scripts\/webstump\.pl$/) ) {
9 die "This script can only be called with full path name!!!";
15 $webstump_home =~ s/\/scripts\/webstump\.pl$//;
17 my $logfile= "$webstump_home/../errs";
18 open STDERR, ">> $logfile" or die "$logfile $!";
20 $webstump_home =~ /(^.*$)/;
23 require "$webstump_home/config/webstump.cfg";
24 require "$webstump_home/scripts/webstump.lib.pl";
25 require "$webstump_home/scripts/filter.lib.pl";
26 require "$webstump_home/scripts/html_output.pl";
27 #require "$webstump_home/scripts/gatekeeper.lib";
28 require "$webstump_home/scripts/mime-parsing.lib";
34 ######################################################################
36 %request = &readWebRequest;
40 if( defined %request ) {
42 $command = $request{'action'} if( defined $request{'action'} );
48 &processWebRequest( $command );