#!/usr/bin/perl

require '/usr/lib/perl/getopts.pl';

$usage = "$0 [-r]
	-r	Show wxmap on root\n";

&Getopts('rh') || die $usage;
die $usage if $opt_h;

$sockaddr = 'S n a4 x8';

$SOCK_STREAM = 1;
$AF_INET     = 2;

chop($thishost = `hostname`);
($name, $aliases, $proto) = getprotobyname("tcp");
($name, $aliases, $type, $len, $thisaddr) = gethostbyname($thishost);

$host = "wx.atmos.uiuc.edu";
$port = 70;

($fqdn, $aliases, $type, $len, $thataddr) = gethostbyname($host);

$this = pack($sockaddr, $AF_INET, 0, $thisaddr);
$that = pack($sockaddr, $AF_INET, $port, $thataddr);

if ($opt_r) {
  open(XV, "| xv -root -maxpect -quit -") || die "xv: $!";
}
else {
  open(XV, "| xv -") || die "xv: $!";
}
socket(FS, $AF_INET, $SOCK_STREAM, $proto) || die "socket: $!";
bind(FS, $this) || die "bind: $!";
connect(FS, $that) || die "connect: $!";
select(FS); $| = 1; alarm(360);

print "9/Images/Surface Images/Wxmap United States/00LATEST.GIF\r\n";

print XV <FS>;
close(FS) || die "close: $!";
close(XV) || die "close xv: $!";
