| \n";
print "Error loading library $require_file: \n $@\n"; print " Please contact the site administrator to ", "fix the error. \($ENV{'SERVER_ADMIN'}\) \n"; print " |
# 
#
# Note: using the http:// format is less efficient
# converted to taint-mode sub 2/5/2000
sub serve_picture {
local ($qstr,$sc_path_of_images_directory) = @_;
local ($test, $test2, $my_path_to_image);
$qstr =~ /([\w\-\=\+\/\.\:]+)/;
$qstr = "$1";
$my_path_to_image = $sc_path_of_images_directory . $qstr ;
$test = substr($my_path_to_image,0,6);
$test2 = substr($my_path_to_image,(length($my_path_to_image)-3),3);
if ($test2=~ /jpg/i || $test2 =~ /gif/i || $test2 =~ /png/i) {
# file is ok to display
if ($test2=~ /jpg/i) {# .jpg is jpeg file
$test2 = "jpeg";
}
if ($test=~ /http:\//i || $test =~ /https:/i) {
# need to GET the info .. no implemented here in agora
# use LWP::Simple;
# print "Content-type: image/$test2\n\n";
# print get($my_path_to_image);
} else { # is a filename we can load up directly
print "Content-type: image/$test2\n\n";
if (!(-f $my_path_to_image)) {# try adding another slash!
$my_path_to_image = $sc_path_of_images_directory ."/" . $qstr ;
}
open (MYPIC,$my_path_to_image);
binmode(MYPIC);
$size = 250000;
while ($size > 0) {
$size = read(MYPIC,$the_picture,$size);
print $the_picture;
}
close(MYPIC);
}
}
}
#######################################################################
sub pre_header_navigation {
local($temp,$inx,@things_to_delete,@form_keys,$form_name,$count);
local(@temp,$request,$actual);
if ($cart_id eq $my_cookie_cart_id) {
&set_agora("BROWSER_COOKIES_ON","yes");
}
# Check if running under SSI ... may need to do something special
if ($sc_running_an_SSI_store =~ /yes/i) {
$test_for_forced_redirect = &get_agora("SSI_FORCE_REDIRECT");
&set_agora("SSI_FORCE_REDIRECT",'');
# What name would we use for the form data?
@form_keys = grep(/SSI_FORM_DATA/,&get_agora_names);
if ($sc_unique_cart_modifier eq '') {
$sc_unique_cart_modifier = &make_random_chars;
}
@form_keys = grep(/$sc_unique_cart_modifier/,@form_keys);
$form_name = $form_keys[0];
# Check for existance of SSI_FORM_DATA
$temp = &get_agora("$form_name");
if ($temp ne '') {
%form_data = split(/\x01/,$temp);
&alias_and_override;
&error_check_form_data;
} else {
# For safety and such, only keep max 90 POSTs cached
# automatically delete old ones even if not a POST!
$count = &get_agora("SSI_FORM_COUNT");
$count = $count+1;
if ($count < 10 || $count > 99) {$count = "10";}
&set_agora("SSI_FORM_COUNT",$count);
@things_to_delete = grep(/SSI_FORM_DATA_${count}_/,&get_agora_names);
foreach $inx (@things_to_delete) {&set_agora($inx,'');}
# see if we need to force a redirect
($request,$junk) = split(/\?/,$ENV{'REQUEST_URI'},2);
@temp = split(/\//,$request);
$request = pop(@temp);
($request,$junk) = split(/\?/,$request,2);
@temp = split(/\//,$sc_store_url);
$actual = pop(@temp);
if ($request ne $actual && (!($sc_allow_forced_SSI_redirect =~ /no/))) {
if ($test_for_forced_redirect eq '') {
$form_data{'SSI'} = 1;
&set_agora("SSI_FORCE_REDIRECT",'1');
}
}
if (defined($form_data{'SSI'})) { # setup the redirect
$temp = '';
delete($form_data{'SSI'}); # Don't re-direct a redirect!
$sc_unique_cart_modifier = &make_random_chars; # Need new id!!
foreach $inx (keys %form_data) {
$temp .= "$inx\x01$form_data{$inx}\x01";
}
&set_agora("SSI_FORM_DATA_${count}_$sc_unique_cart_modifier",$temp);
$href = "$sc_store_url?cart_id=$cart_id";
$href .= "&crtmod=$sc_unique_cart_modifier";
$temp = $ENV{'SCRIPT_NAME'};
if ($temp =~ /nph-agora.cgi$/i) {
$SSI_redirect_message = "HTTP/1.0 302 Found\n";
$SSI_redirect_message .= "$sc_cookie_information";
$SSI_redirect_message .= "Location: $href\n";
} else {
$SSI_redirect_message = qq~$sc_doctype
| $junk | $versions{$junk} |
| $junk | $versions{$junk} |