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
  34 # Master password
  35 $UserEnv{'CGIMasterKey'} = "Sherlock investigates oleander curry in Bath";
  36 #$REQUEST_CGIMASTERKEY_FROM_TERMINAL = 1;
  37
  38 # In real use, you should read the key from a keyfile (on USB) and do a
  39 # SHA256(plaintext_key) if you have to use readable text!, e.g.,
  40 # open(KEYFILE, "</media/KEYS/keyfile");$UserEnv{'CGIMasterKey'} = <KEYFILE>;chomp($UserEnv{'CGIMasterKey'});close(KEYFILE);
  41
  42 $port      = 8080;           # The port number
  43
  44 # (Fast) direct translation of full URL paths
  45 %AliasTranslation = ('/Welcome.html' => '/');   # Alias => RealURL pairs (ONLY paths)
  46 # Regular expression alias translation, in order of application
  47 # (this can be quite slow)
  48 @RegAliasTranslation = ('^(\..*|.*/\..*)$','\.htm$', '^.*\.log$'); # Full regular expression alias/url pairs: URL
  49 @RegURLTranslation = ('/','.html', '/');   # Full regular expression alias/url pairs: PATH
  50
  51 #$textroot  = $ENV{'PWD'} || `pwd`; # current working directory
  52 #chomp($textroot);           # Remove nasty newline, if present
  53 #$doarg     = '';          # do "filename",
  54
  55 $beginarg  = "require 'CGIscriptor.pl';"; # eval($Argument) at the start of the program
  56 # Use the files from CGIscriptor/ if it exists
  57 $beginarg  = "require 'CGIscriptor/CGIscriptor.pl'" if -d 'CGIscriptor';
  58
  59 $evalarg   = 'Handle_Request();'; # eval($Argument) for each request
  60 $execarg   = '';          # `command \'$textroot$Path\' \'$QueryString\'`
  61
  62 #$welcome   = '/index.html';  # Default path
  63
  64 #  Rudimentary security, overflow detection
  65 #$MaxBrood  = 32;               # Maximum number of running children
  66 #$MaxTime  = 36000;           # Maximum time a child may run in seconds
  67 #$MaxLength = 2**15;          # Maximum Request Length
  68
  69 # If one of the following lists contains any client addresses or names, all others are
  70 # blocked (be carefull, your site will be inaccessible if you misspell them).
  71 #@RemoteHost = ();              # Accepted Hosts, suggest: localhost
  72 #@RemoteAddr = ();              # Accepted IP addresses, suggest: @RemoteAddr=('127.0.0.1')
  73 #$DefaultRemoteAddr = '127.0.0.1';  # default, use localhost IP address
  74 #$NONAME = 0;                   # if 1, do NOT ask for REMOTE_HOST (faster)
  75
  76 # Store the whole Web Site in a hash table and use this RAM image
  77 $UseRAMimage = 0;
  78
  79 # Execute shell CGI scripts when no -d, -e, or -x are supplied
  80 $ExecuteOSshell = 0;            # Do you REALY want this? It is dangerous
  81
  82 1;      # Make require happy