weather script

util/weather

@@ -0,0 +1,34 @@
+#!/bin/rc
+
+rfork e
+
+DEFAULT=ewr
+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