#!/usr/bin/env rc

DEFAULT=dsm

fn usage{
	echo 'usage: weather 3-letter-city-code' >[1=2]
	echo 'for a list of cities in new york, say' >[1=2]
	echo '	weather ny' >[1=2]
	exit usage
}

switch($#*){
case 0
	arg=$DEFAULT
	if(~ $#weather 1)
		arg=$weather
case 1
	arg=$1
case *
	usage
}

switch($arg){
case [a-zA-Z][a-zA-Z][a-zA-Z]
	script=('' '' 'C' '4' '1' '1' $arg 'X')
case [a-zA-Z][a-zA-Z]
	script=('' '' 'C' '4' '1' '3' $arg 'X')
case *
	usage
}

{
	for(i in $script)
		echo $i
} |
nc rainmaker.wunderground.com 23 | 
# Mutes header on connect
sed -n '/Enter .-letter .* code:/,/CITY FORECAST MENU/p' |
sed 's/Enter .-letter .* code: //'  | 
sed 's/   Press Return to continue, M to return to menu, X to exit: //' |
grep -v 'CITY FORECAST MENU'  |
sed 's/ *$//'  |
uniq |
sed -n '/VTEC/q; p' |
sed 's/          Weather/Weather/g' |
tr -d '\r'