#!/bin/rc
rfork enf

g=()
b=http://radar.weather.gov/ridge
f=/lib/radar
flag=-i
nl='
'
l = (topo.jpg county.gif cities.gif warn.gif hw.gif radar.gif)

fn sigint{
	rm -f $g
}

fn get{
	g=$f/$2
	if(~ $#* 3)
	if(test -f $f/$2)
	if(test $f/$2 -older $3)
		rm $g
	if(! test -f $f/$2)
		hget $b/$1 > $g || fail
	g=()
}

mkdir -p $f
get graphics/black.gif black.gif
get Overlays/Topo/Short/FFC_Topo_Short.jpg topo.jpg
get Overlays/County/Short/FFC_County_Short.gif county.gif
get Overlays/Highways/Short/FFC_Highways_Short.gif hw.gif
get Overlays/Cities/Short/FFC_City_Short.gif cities.gif
get RadarImg/N0R/FFC_N0R_0.gif radar.gif 15m
get Warnings/Short/FFC_Warnings_0.gif warn.gif 15m

compose -t $f/$l|page