in UBonline.cgi
Images path is placed as CGIPath instead of nonCGI.
is this right?
sub image {
if ($Matched{$name}) {
$file = "$CGIPath/online.gif";
print "Content-type: image/gifn";
print "n"; open(IMAGE, "<$file") || die "Can't open $file: $!";
binmode(IMAGE);
binmode(STDOUT);
while ( ) {
print $_;
}
close(IMAGE);
} else {
$file = "$CGIPath/offline.gif";
print "Content-type: image/gifn";
print "n"; open(IMAGE, "<$file") || die "Can't open $file: $!";
binmode(IMAGE);
binmode(STDOUT);
while ( ) {
print $_;
}
close(IMAGE); }
exit;
} # End sub image