#!/bin/sh

# Displays the current weather forecast and radar map for Dewitt NY
# Written by Michael Miller on 29-Jul-2005

URL1="http://mobile.wunderground.com/auto/mobile/NY/Dewitt.html"
URL2="http://radblast.wunderground.com/cgi-bin/radar/WUNIDS?station=TYX"

FORECAST=` lynx -width 1000 -dump $URL1 |
           sed 's/^ *//' |
           sed -n '/^Forecast as of/,/^_/p' `

wget -O "/tmp/radar.gif" $URL2  2>/dev/null

cat <<EOF | wish &
  text .forecast -wrap word -height 24 -width 30 -spacing3 7
  .forecast insert end "$FORECAST"

  image create photo radar -file "/tmp/radar.gif"
  label .map -image radar

  grid .forecast .map
EOF