#!/usr/bin/perl
### This line above "#!/usr/bin/perl" must be set in all programs to 
###the actual location of Perl on your sytstem.  Ask your system administrator.
 
########## MAKE SURE THIS FILE IS INSTALLED AS "config.cfg" ###########
########## MAKE SURE cgi-lib.pl IS INSTALLED WITH THIS FILE ####

############################################################################
## This code is part of SiteWrapper and/or SiteColors, 
## both Trademarks of and Copyright (C) 1996, World Media Services.
## All Rights Reserved.
## Authored by Barrett W. Nuzum and Paul Helinski
############################################################################

#######################################################################
### $serveradmin - set with the email address of the page administrator 
### -- probably you.  Note that any "@" or "$" symbols you wish to print on your 
### HTML pages must have a backslash before it.  Be careful on emails.
$serveradmin = "webmaster\@world-media.com";

#######################################################################
### $server - this variable MUST be set with the correct, full URL of the
### directory you've installed the wrapper into. 
# Example:
# If your site is located at http://www.YourCompany.com, plug it in that way.
# If it is in a directory other than main, add that to the path.                       
$server = "http://www.YourCompany.com";

#######################################################################
### $password should equal the encrypted password obtained from 
### http://www.world-media.com/webtechniques/Encrypt.cgi

$password = "";

#######################################################################
### $logs - If you do not intend to create logs, leave @logs as empty. 
### Otherwise add the pages you wish to log.  Each should be in quotes, separated by
###commas
# Example:
# @logs = ("index.htm", "info.htm")
@logs = ;

#######################################################################
### If you want a standard $HEADER and $FOOTER to be available to your 
### documents, set these variables to the filenames you want to use. 
### Otherwise, leave them the default.

$headerfile = "header.txt";
$footerfile = "footer.txt";

########################################################################### 
### %jumpnames - This requires one key and value for each document you want 
### accessible from $JUMPLIST. Set the value of that document to the way you 
### want it to appear in the option box.
#
# Example:
# %jumpnames = ("index.htm" => "The Home Page", 
#         "intro.html" => "Introductions", 
#         "misc.html" => "Miscellaneous", 
#        "contact.html" => "Contacting Us");

%jumpnames = ("index.htm" => "Your Home Page");

###########################################################################
### %titlenames - This will appear as the title of each document if you use  
### the standard $htmlheadfile, and place $HEADER as the header of your html 
### documents. One entry per document, similar to %jumpnames.
#
# Example:
#  %titlenames = ("index.htm" => "Welcome Aboard!", 
#                "intro.html" => "Introducing Our New Product", 
#                "misc.html" => "Legal Addendum", 
#                "contact.html" => "Contact Us.");

%titlenames = ("index.htm", "Welcome To Your Home Page");

##################################################################
########### DO NOT MODIFY THE CODE BELOW THIS LINE ###########
##################################################################
$index = 0;
foreach $key (sort keys(%jumpnames)) {
    $file_number{$key} = $index;
    $number_file{$index} = $key;
    $index++;
}

sub print_file {
        open(HTML, "$_[0]") || print "<!-- Couldn't locate $_[0] -->";
        while (<HTML>) {
                s/"/\\"/g;
                s/&/\\&/g;
                print eval qq/"$_"/; 
        }
        close(HTML);
}

if (-e "tagfile.dat") {
        open(BODTAGS, "tagfile.dat");
        $/ = "\n";
        @body_tags_array = <BODTAGS>;
        close(BODTAGS);
        $bodytag =~ s/\n//g;
        $bodytag = "<BODY @body_tags_array>";
        $BODYTAG = $bodytag;
} else {
        $bodytag = "BGCOLOR=#FFFFFF LINK=#08299C VLINK=#9C09CC";
        $BODYTAG = $bodytag;
}

######################## END OF UNMODIFYABLE CODE ################
######################################################################
### MAKE SURE THIS SEMICOLON ENDS FILE. WITHOUT IT PERL WILL BREAK ###
;