#!/usr/bin/perl
#^^^^^^^^^^^^^^ Change this to the location of Perl                           #
###############################################################################
# SuperLinks                                                                  #
# Written by Gregory Nolle (greg@nolle.co.uk)                                 #
# Copyright 2000-2003 by PlasmaPulse Solutions (http://www.plasmapulse.com)   #
###############################################################################
# SuperLinks.cgi -> Main script                                               #
###############################################################################
# All configuration is performed in the Control Panel. Please do not edit the #
# script directly.                                                            #
###############################################################################
package SL;

BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File SDBM_File) }

BEGIN {
  #############################################################################
  # Change this to the path to SuperLinks if the script fails.                #
  $SL::PATH = "."; # < < < < < < < < < < < < < < < < < < < < < < < < < < < < <#
  #############################################################################
  # DON'T EDIT BELOW UNLESS YOU KNOW WHAT YOU'RE DOING!                       #
  #############################################################################

  my $ScriptName = $0;
     $ScriptName =~s/\\/\//g;
     $ScriptName =~s/^.*\/([^\/]+)$/$1/g;

  unless (-e $SL::PATH."/".$ScriptName) {
    foreach my $path ( $0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'} ) {
      $path =~s/\\/\//g;
      $path =~s/^(.*)\/[^\/]+$/$1/g;
      if (-e $path."/".$ScriptName) {
        $SL::PATH = $path and last;
      }
    }
  }

  unshift (@INC, "$SL::PATH");
  unshift (@INC, "$SL::PATH/Private");
  unshift (@INC, "$SL::PATH/Private/Variables");
  unshift (@INC, "$SL::PATH/Private/Modules");
  unshift (@INC, "$SL::PATH/Private/Modules/Libraries");
}

BEGIN { require "System.pm.pl";  import System  qw($SYSTEM ); }
BEGIN { require "General.pm.pl"; import General qw($GENERAL); }

###############################################################################
# Main script: #
################

require "Error.pm.pl";
require "Version.pm.pl";

eval {
  require "Action.pm.pl";
  &Action::Main();
} || &Error::CGIError("Couldn't execute your request. $@", "");

exit;
###############################################################################

1;