#!/usr/bin/perl
# The previous line (first line in file) needs to point to the system path for perl on Unix machines.
# Under NT, this line is usually unnecessary...unless you are running Apache for NT.
####################################################################################
# Copyright (C) 2000 Anaconda Partners LLC  
####################################################################################
$ap_setpackage = 1;
package APFX;
$ap_setpackage = 1;
$ExecutiveInit++;
unless($ExecutiveInit)
{
	$ap_modules{versions} .= "[ANACONDA! LAUNCH STUB]: [1.2]  [6/6/00]<BR>";
}
#
#### EXTRA PARAMETERS ##########################################################
# 
# Additional parameters can be set here to pass to the Anaconda Executive.  If you want
# to run the Foundation products with several different options, and you don't want to
# always pass the options on the URL, you can create multiple copies of apexec.pl, all 
# named differently, and put the specific URL options for each in this setting.
$ap_extraparms = "odp.directpath=1&etype=odp";
#
#### PATHS #####################################################################
# 
# This should be unnecessary, but if the stub cannot find the apexecutive.apl file, you can hardcode 
# the system path to the script directory where the apexecutive.apl file is found. Do not include a 
# trailing "/".
$ap_scriptpath = "d:/home/explorec/explorechiltoncounty.com/cgi-bin";
#
# System path to template files.
$ap_parm{templatepath} = "d:/home/explorec/explorechiltoncounty.com/cgi-bin";
#
# Name of template file (or URL)
#$ap_parm{template} = "aftemplate.shtml";
$ap_parm{templateurl} = "http://www.explorechiltoncounty.com/cgi-bin/aftemplate.shtml";
#
#### COMMUNICATIONS ############################################################
#
# STD or ALT
# Try setting this to "ALT" if the host communication times out.
$ap_parm{commtype} = "STD";
# 
# UNIX or NT 
$ap_parm{os} = "UNIX";
#  
# Timeout value
$ap_parm{maxtime} = 12;
#
#### SECURITY ##################################################################
#
# For extra security:
# This line lets you define the hosts that are authorized to refer browsers to this
# script.  Uncomment the line and edit or add your addresses to utilize this.
#@ap_referers = ('anaconda.net');
#
#### USER DEFINED EXTENSIONS ###################################################
#
# User defined processing file
# File gets "required" in (if it exists) right after settings.  Don't do important processing in the
# main file if you plan on using mod_perl, as mod_perl doesn't run this section for successive instances.
# You can read documentation about the user defined processing at:
# http://anaconda.net/support/ap_af_user_defined.shtml
#$ap_userfunc{FILE} = "ap_extra.pl";
#
################################################################################
###### PLEASE CHANGE NOTHING BELOW THIS LINE! ##################################
 $| = 1;  if(@ap_referers) { fap_stub_DoRefs(); } if($ap_scriptpath and (-e "$ap_scriptpath/apexecutive.apl")) { $I1II1I1II1I1I1II = "$ap_scriptpath/apexecutive.apl";
$ap_parm{scriptpath} = $ap_scriptpath; } else { $ap_parm{scriptpath} = $ENV{'SCRIPT_FILENAME'}; if(!$ap_parm{scriptpath}) { $ap_parm{scriptpath} = $ENV{'PATH_TRANSLATED'};
} $ap_parm{scriptpath} =~ s|[\\/]*[\w\.\d]+$||i; $I1II1I1II1I1I1II = "$ap_parm{scriptpath}/apexecutive.apl";  } if(-e $I1II1I1II1I1I1II) { require "$I1II1I1II1I1I1II";
&fap_exec_go(); } else { print "Content-type: text/html\n\n"; print "Anaconda Error: Cannot find Anaconda Executive (apexecutive.apl), looked in [$ap_scriptpath] and [$ap_parm{scriptpath}]<BR>";
} sub fap_stub_DoRefs   { my($I1III11I1111I1II) = 0; if ($ENV{'HTTP_REFERER'})  { foreach $I111IIIIII111I1I (@ap_referers)  { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$I111IIIIII111I1I|i) 
{ $I1III11I1111I1II = 1; last; } } } else  { $I1III11I1111I1II = 1; } if ($I1III11I1111I1II != 1)  { print "Content-type: text/html\n\n"; print "Anaconda Error: Invalid Referer";
exit; } } 1;