CGIservletSETUP.pl

   1 # Configure CGIservlet by assigning to the relevant variables.
   2 # This is just a copy of the default setup area of CGIservlet.pl.
   3 # This file is read AFTER the default setup, but BEFORE the command line
   4 # options are processed.
   5 #
   6 # License for use and disclaimers
   7 #
   8 # CGIscriptor merges plain ASCII HTML files transparantly
   9 # with CGI variables, in-line PERL code, shell commands,
  10 # and executable scripts in other scripting languages.
  11 #
  12 # This program is free software; you can redistribute it and/or
  13 # modify it under the terms of the GNU General Public License
  14 # as published by the Free Software Foundation; either version 2
  15 # of the License, or (at your option) any later version.
  16 #
  17 # This program is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU General Public License for more details.
  21 #
  22 # You should have received a copy of the GNU General Public License
  23 # along with this program; if not, write to the Free Software
  24 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  25 #
  26 ############################################################
  27 #                                                          #
  28 #   Parse arguments (you can define DEFAULT VALUES here)   #
  29 #                                                          #
  30 ############################################################
  31
  32 # User set Envrionment variables
  33 $UserEnv{'CGIMasterKey'} = "Sherlock investigates oleander curry in Bath";
  34
  35 $port      = 8080;           # The port number
  36
  37 # (Fast) direct translation of full URL paths
  38 %AliasTranslation = ('/Welcome.html' => '/');   # Alias => RealURL pairs (ONLY paths)
  39 # Regular expression alias translation, in order of application
  40 # (this can be quite slow)
  41 @RegAliasTranslation = ('^(\..*|.*/\..*)$','\.htm$', '^.*\.log$'); # Full regular expression alias/url pairs: URL
  42 @RegURLTranslation = ('/','.html', '/');   # Full regular expression alias/url pairs: PATH
  43
  44 #$textroot  = $ENV{'PWD'} || `pwd`; # current working directory
  45 #chomp($textroot);           # Remove nasty newline, if present
  46 #$doarg     = '';          # do "filename",
  47
  48 $beginarg  = "require 'CGIscriptor.pl';"; # eval($Argument) at the start of the program
  49 # Use the files from CGIscriptor/ if it exists
  50 $beginarg  = "require 'CGIscriptor/CGIscriptor.pl'" if -d 'CGIscriptor';
  51
  52 $evalarg   = 'Handle_Request();'; # eval($Argument) for each request
  53 $execarg   = '';          # `command \'$textroot$Path\' \'$QueryString\'`
  54
  55 #$welcome   = '/index.html';  # Default path
  56
  57 #  Rudimentary security, overflow detection
  58 #$MaxBrood  = 32;               # Maximum number of running children
  59 #$MaxTime  = 36000;           # Maximum time a child may run in seconds
  60 #$MaxLength = 2**15;          # Maximum Request Length
  61
  62 # If one of the following lists contains any client addresses or names, all others are
  63 # blocked (be carefull, your site will be inaccessible if you misspell them).
  64 #@RemoteHost = ();              # Accepted Hosts, suggest: localhost
  65 #@RemoteAddr = ();              # Accepted IP addresses, suggest: @RemoteAddr=('127.0.0.1')
  66 #$DefaultRemoteAddr = '127.0.0.1';  # default, use localhost IP address
  67 #$NONAME = 0;                   # if 1, do NOT ask for REMOTE_HOST (faster)
  68
  69 # Store the whole Web Site in a hash table and use this RAM image
  70 $UseRAMimage = 0;
  71
  72 # Execute shell CGI scripts when no -d, -e, or -x are supplied
  73 $ExecuteOSshell = 0;            # Do you REALY want this? It is dangerous
  74
  75 1;      # Make require happy