| \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 {
if ($SUB_serve_picture eq '') {
$ZCODE=q`
$SUB_serve_picture = '1';
sub 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);
$size = 250000;
while ($size > 0) {
$size = read(MYPIC,$the_picture,$size);
print "$the_picture";
}
close(MYPIC);
}
}
}
`;eval($ZCODE);if ($@ ne ''){&zcode_error($ZCODE,$@,__FILE__,__LINE__);}
}
&SUB_serve_picture;
}
#######################################################################
# Alias and Override
#
# This routine allows the use of aliases for switches, such as
# using xm= instead of exact_match=
#
# Also, override certain setup variables under certain conditions
#
#######################################################################
sub alias_and_override {
local ($junk,$raw_text)="";
local (@mylibs,$lib);
local ($testval,$testval2,$found_response);
&codehook("alias_and_override_top");
if (defined($form_data{'versions'})) {
print "Content-type: text/html\n\n";
print "\n| $junk | $versions{$junk} |
| $junk | $versions{$junk} |