#!/usr/bin/perl
print "Content-type: image/gif\n\n";

use CGI

# $e = new CGI;

# $lat = $a->param('lat');
# $lon = $b->param('lon');
# $width = $c->param('width');
# $height = $d->param('height');
# $zipcode = $e->param('zipcode');
# $city = $f->param('city');
# $state = $g->param('state');
# $maptype = $h->param('maptype');

# $query = $a->param('zipcode');
# read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# $myurl = "http://www.minimum.weather.net/cgi-bin/natfusion.cgi" ;

$myurl = "http://www.visibility.weather.net/cgi-bin/natfusion.cgi" ;

$wget_response = `wget -q -O /tmp/nationalinterrad.gif $myurl`;

if(open (GIF, "</tmp/nationalinterrad.gif")) {
         print (<GIF>);
         close(GIF);
        }
 
print $wget_response;

# end of this access file