webstump/scripts/webstump.pl

   1 #!/usr/bin/perl
   2 #
   3 # This is the main webstump cgi script.
   4 #
   5 # Figure out the home directory
   6 #
   7
   8 if( !($0 =~ /\/scripts\/webstump\.pl$/) ) {
   9   die "This script can only be called with full path name!!!";
  10 }
  11
  12 umask 007;
  13
  14 $webstump_home = $0;
  15 $webstump_home =~ s/\/scripts\/webstump\.pl$//;
  16
  17 my $logfile= "$webstump_home/../errs";
  18 open STDERR, ">> $logfile" or die "$logfile $!";
  19
  20 $webstump_home =~ /(^.*$)/;
  21 $webstump_home = $1;
  22
  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";
  29
  30 $html_mode = "yes";
  31
  32 &init_webstump;
  33
  34 ######################################################################
  35
  36 %request = &readWebRequest;
  37
  38 $command = "";
  39
  40 if( defined %request ) {
  41   &disinfect_request;
  42   $command = $request{'action'} if( defined $request{'action'} );
  43 }
  44
  45 if( ! $command ) {
  46   &html_welcome_page;
  47 } else {
  48   &processWebRequest( $command );
  49 }