1#!/bin/rc 2 3rfork e 4 5DEFAULT=ewr 6 7fn usage{ 8 echo 'usage: weather 3-letter-city-code' >[1=2] 9 echo 'for a list of cities in new york, say' >[1=2] 10 echo ' weather ny' >[1=2] 11 exit usage 12} 13 14switch($#*){ 15case 0 16 arg=$DEFAULT 17 if(~ $#weather 1) 18 arg=$weather 19case 1 20 arg=$1 21case * 22 usage 23} 24 25switch($arg){ 26case [a-zA-Z][a-zA-Z][a-zA-Z] 27 script=('' '' 'C' '4' '1' '1' $arg '' '' '' '' 'X') 28case [a-zA-Z][a-zA-Z] 29 script=('' '' 'C' '4' '1' '3' $arg '' '' '' '' 'X') 30case * 31 usage 32} 33 34{ 35 for(i in $script) 36 echo $i 37} | 38con -nrl tcp!rainmaker.wunderground.com!telnet | 39sed -n '/Enter .-letter .* code:/,/CITY FORECAST MENU/p' | 40sed 's/Enter .-letter .* code: //' | 41sed 's/ Press Return to continue, M to return to menu, X to exit: //' | 42grep -v 'CITY FORECAST MENU' | 43tr -d ' 44' | 45sed 's/ *$//' | 46uniq 47 48