shithub: rcmisc

ref: 468e61644c1d6c846d737b5eb8f370f8938c0ec0
dir: /weather/

View raw version 
#!/bin/rc
# weather(1) - by Fulton Browne - MIT Licence

rfork e

DEFAULT=pdx
p = 'no'

fn usage{
	echo 'usage: weather [-p] [location]' >[1=2]
	exit usage
}
while (~ $1 -*){
	switch($1){
	case '-p'
		p='yes'
		shift
	case *
		usage
	}
}
switch($#*){
case 0
	arg=$DEFAULT
	if(~ $#weather 1)
		arg=$weather
case 1
	arg=$1
case *
	usage
}

if (~ $p 'no') hget 'http://wttr.in/'$arg'?format=%25t%20%25C'
if not hget http://wttr.in/~$arg.png | page
echo