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 $webstump_home = $0;
  13 $webstump_home =~ s/\/scripts\/webstump\.pl$//;
  14
  15 $webstump_home =~ /(^.*$)/;
  16 $webstump_home = $1;
  17
  18 require "$webstump_home/config/webstump.cfg";
  19 require "$webstump_home/scripts/webstump.lib.pl";
  20 require "$webstump_home/scripts/filter.lib.pl";
  21 require "$webstump_home/scripts/html_output.pl";
  22 #require "$webstump_home/scripts/gatekeeper.lib";
  23 require "$webstump_home/scripts/mime-parsing.lib";
  24
  25 $html_mode = "yes";
  26
  27 &init_webstump;
  28
  29 ######################################################################
  30
  31 %request = &readWebRequest;
  32
  33 $command = "";
  34
  35 if( defined %request ) {
  36   &disinfect_request;
  37   $command = $request{'action'} if( defined $request{'action'} );
  38 }
  39
  40 if( ! $command ) {
  41   &html_welcome_page;
  42 } else {
  43   &processWebRequest( $command );
  44 }