#!/usr/local/bin/perl -w

my $DEBUG = 0;
use strict;

my $image;

if ($ENV{HTTP_USER_AGENT} =~ /MSIE/i) {
    $image = "/home/scsfac/downeyt/public_html/images/nnc_lockup2.gif";
} else {
    $image = "/home/scsfac/downeyt/public_html/images/bnrIE.gif";
}

showHTML() if $DEBUG > 0;

makeJump() if $DEBUG == 0;

sub makeJump {
    open IMAGE, $image or die "not found";
    print "Pragma: no-cache\n";
    print "Content-type: image/gif\n\n";

    binmode STDOUT;
    my $buffer = "";
    while (read( IMAGE, $buffer, 16_384) ){
	print $buffer;
    }
    close IMAGE;

}


sub makeList {
    my (@list) = @_;
    my $strList = "";
    foreach (@list) {
	$strList .= "<LI>$_\n";
    }
    return $strList;
}