#!d:/perl/bin/perl
#!/usr/local/bin/perl -w
#######################################################################
# #
# This entire package is Copyright 2003 Kryptronic, Inc. and is #
# distributed under license. View the license agreement for more #
# information. Installation of this software package indicates #
# acceptance of the license agreement. #
# #
# Software Version: 5.1.3 (tiki) #
# Package Date: November 24, 2003 #
# Author: Nick Hendler, Webmaster, Kryptronic, Inc. #
# Author Email: webmaster@kryptronic.com #
# #
#######################################################################
#########
######### Edit the following paths and URLs to set up this
######### software package to execute properly.
#########
######### The server_*_path variables are the paths to the different
######### components of this software package. Enter below the paths
######### to the 'cgi-bin', 'data' and 'media' directories.
######### These are server paths and not URLs.
#########
$server_script_path = "/var/www/vhosts/marshgardendecor.com/cgi-bin/ccp51";
$server_data_path = "/var/www/vhosts/marshgardendecor.com/httpdocs/ccp51files/data";
$server_media_path = "/var/www/vhosts/marshgardendecor.com/httpdocs/ccp51files/media";
#########
######### The url_*_path variables are the paths to the different
######### compontents of this software package. Enter below the paths
######### to the 'cgi-bin' and 'media' directories.
######### These are URL paths and should be entered with a 'http'.
#########
$url_script_path = "http://marshgardendecor.com/cgi-bin/ccp51";
$url_media_path = "http://marshgardendecor.com/ccp51files/media";
#######################################################################
# Do Not Edit Below This Line #
#######################################################################
if ((-e "$server_script_path") && (-e "$server_data_path") && (-e "$server_media_path")) {
require "$server_script_path/library/common/initialize.pl";
$script_name = "cp-app.cgi";
$execute_type = "ste";
if ($url_script_path ne "" && $url_media_path ne "" && $script_name ne "" && $execute_type ne "") {
&initialize;
} ######### End of if statement.
} else {
print "Content-type: text/html\n\n";
print "Script Execution Error\n";
print "Script Execution Error
The following server paths are not correct:
\n";
if (!(-e "$server_script_path")) {print "Server Script Path \(\$server_script_path variable\)
\n";}
if (!(-e "$server_data_path")) {print "Server Data Path \(\$server_data_path variable\)
\n";}
if (!(-e "$server_media_path")) {print "Server Media Path \(\$server_media_path variable\)
\n";}
print "
\n";
print "The root web directory of this account appears to be:
\n";
print "$ENV{'DOCUMENT_ROOT'}
";
print "\n";
} ######### End of if statement.
#######################################################################
# Exit #
#######################################################################
exit;