#!/bin/csh -f
# FingerInfo  Version 1.9 By Scott A. Yanoff    yanoff@csd4.csd.uwm.edu
# (C) 1993 Computing Services Division, Univ. of Wisconsin - Milwaukee
#
if !($?PAGER) then
  setenv PAGER "more -df"
endif
if  $#argv != 0 then
 echo -n " This is Version 1.9 of FingerInfo by Scott Yanoff. "
 echo "(yanoff@csd4.csd.uwm.edu)"
 echo Usage: `basename $0`
 exit
endif
#Save our current biff status, and set to biff n while running this program:
setenv boff `biff | awk '{print $2}'`
biff n
#
onintr main
main:
clear
echo "                        * Welcome to FingerInfo *"
echo "    			  (C) 1993 Scott Yanoff "
echo ""
echo ""
echo " [A] Auroral Activity                     [M] MnM/Coke Machine at CMU"
echo " [B] 3-Hour Solar and Geophysical Report  [N] Coke Machine in CS House at RIT"
echo " [C] Daily Solar and Geophysical Report   [O] Graph of soda at RIT"
echo " [D] List of Periodic Postings to Usenet  [P] Cyber-Sleaze Daily Report"
echo " [E] Billboard Charts                     [Q] Code of the Geeks"
echo " [F] DataBases via Finger                 [R] U.S. Weather Info"
echo " [G] Earthquake Info                      [S] Almanac Info/Sports Schedules"
echo " [H] NASA Headline News                   [T] Random Star Trek/TNG Quotes"
echo " [I] Nielsen TV Ratings                   [U] Nova U.'s Grad. Catalog"
echo " [J] Packer Scores/Standings              [V] NFL Scores/Standings"
echo " [K] Tropical Storm Forecast              [W] NFL Line Spread"
echo " [L] Remote Andrew Demo Service for X     [X] Weekly Trivia"
menu:
echo ""
echo -n "Please select one of the above (or return to quit): _"
set ans = $<
switch ($ans)
 case [aA]: 
	  finger aurora@xi.uleth.ca | $PAGER
	  breaksw
 case [bB]: 
	  finger solar@xi.uleth.ca | $PAGER
	  breaksw
 case [cC]: 
	  finger daily@xi.uleth.ca | $PAGER
	  breaksw
 case [dD]: 
	  finger nichol@stavanger.sgp.slb.com | $PAGER
	  breaksw
 case [eE]: 
	  finger buckmr@rpi.edu | $PAGER
	  breaksw
 case [fF]: 
	  finger help@dir.su.oz.au | $PAGER
	  breaksw
 case [gG]: 
	  finger quake@geophys.washington.edu | $PAGER
	  breaksw
 case [hH]: 
	  finger nasanews@space.mit.edu | $PAGER
	  breaksw
 case [iI]: 
	  finger normg@halcyon.halcyon.com | $PAGER
	  breaksw
 case [jJ]: 
	  finger yanoff@csd4.csd.uwm.edu | $PAGER
	  breaksw
 case [kK]: 
	  finger forecast@typhoon.atmos.colostate.edu | $PAGER
	  breaksw
 case [lL]: 
	  finger help@atk.itc.cmu.edu | $PAGER
	  breaksw
 case [mM]: 
	  finger coke@cs.cmu.edu | $PAGER
	  breaksw
 case [nN]: 
	  finger drink@drink.csh.rit.edu | $PAGER
	  breaksw
 case [oO]: 
	  finger graph@drink.csh.rit.edu | $PAGER
	  breaksw
 case [Pp]: 
	  finger adam@mtv.com | $PAGER
	  breaksw
 case [qQ]:
	  finger hayden@vax1.mankato.msus.edu | $PAGER
 	  breaksw
 case [sS]:
	  finger copi@oddjob.uchicago.edu | $PAGER
 	  breaksw
 case [tT]:
	  finger franklin@ug.cs.dal.ca
 	  breaksw
 case [uU]:
	  finger cciscat@alpha.acast.nova.edu | $PAGER
	  breaksw
 case [vV]:
	  finger nfl@spam.wicat.com | $PAGER
	  breaksw
 case [wW]:
	  finger nflline@spam.wicat.com | $PAGER
	  breaksw
 case [xX]:
	  finger cyndiw@magnus1.com | $PAGER
	  breaksw
 case [rR]: 
#Note that you can change the stuff below to suit YOUR area....
  weatherinfo:
	  clear
	  echo "             	      * Welcome to U.S. WeatherInfo *"
	  echo "    			  (C) 1993 Scott A. Yanoff "
	  echo ""
          echo ""
	  echo " [A] Local Forecast (Milwaukee) - includes storm reports"
	  echo " [B] Wisconsin State Forecast "
	  echo " [C] Wisconsin Summary (statewide)"
	  echo " [D] Climate Info for Today & Yesterday - hi/lo/normal, sunrise/sunset"
	  echo " [E] Weather Info for Wisconsin Cities "
	  echo " [F] Wisconsin Precipitation Map"
	  echo " [G] Wisconsin Wind Map"
	  echo " [H] Wisconsin Temperatures Map"
	  echo " [I] Wisconsin Radar Map"
	  echo ""
	  echo " [J] Detroit Forecast"
	  echo " [K] Colorado Forecast"
	  echo " [L] Indiana Forecast/Bloomington Weather"
	  echo " [M] Washington Forecast"
	  echo " [N] Alabama/Auburn Forecast"
	  echo " [O] Pensacola, FL Forecast "
	  echo " [P] Youngstown, OH and Vicinity Forecast "
          echo ""
          echo -n "Please select one of the above (or return to go back): "
          set weather = $<
          switch ($weather)
           case [aA]: 
	    finger weather@csd4.csd.uwm.edu | $PAGER
	    breaksw
           case [bB]: 
	    finger "forecast state@wisc.edu" | colrm 1 21 | $PAGER +6
	    breaksw
           case [cC]: 
	    finger summary@wisc.edu | grep : | colrm 1 21 | $PAGER +6
	    breaksw
           case [dD]: 
	    finger climate@wisc.edu | colrm 1 21 | $PAGER +6
	    breaksw
           case [eE]: 
	    finger cities@wisc.edu | colrm 1 21 | $PAGER +6
	    breaksw
           case [fF]: 
	    finger precipitation@wisc.edu | colrm 1 21 | $PAGER +6
	    breaksw
           case [gG]: 
	    finger "weather wind"@wisc.edu | colrm 1 21 | $PAGER +6
	    breaksw
           case [hH]: 
	    finger temperature@wisc.edu | colrm 1 21 | $PAGER +6
	    breaksw
           case [iI]: 
	    finger radar@wisc.edu | colrm 1 21 | $PAGER +6
	    breaksw
           case [jJ]:
	    finger weather@madlab.sprl.umich.edu | $PAGER
	    breaksw 
           case [kK]:
	    finger weather@rap.ucar.edu | $PAGER
	    breaksw
           case [lL]:
	    finger weather@indiana.edu | $PAGER
	    breaksw
           case [mM]:
	    finger weather@halcyon.com | $PAGER
	    breaksw
           case [nN]:
	    finger obs@awis.auburn.edu | $PAGER
	    finger weather@awis.auburn.edu | $PAGER
	    finger aubdaily@awis.auburn.edu | $PAGER
	    finger radar@awis.auburn.edu | $PAGER
	    breaksw
           case [oO]:
	    finger beach@awis.auburn.edu | $PAGER
	    breaksw
           case [pP]:
	    finger weather@ysu.edu | $PAGER
	    breaksw
 	   default:
            if $weather == "" then 
	     goto main
	    endif
	    echo ""
	    echo " Please enter an item from the above menu! "
	    breaksw
	  endsw
	  echo ""
	  echo "               PRESS RETURN OR ENTER TO CONTINUE"
	  set KEY = $<
	  goto weatherinfo
 default: 
          if $ans == "" then
	  echo ""
	  echo "Thank you for using FingerInfo v1.9"
	  biff $boff
	  exit
	  endif
	  echo ""
	  echo " Please enter an item from the above menu! "
	  breaksw
	 endsw
	 echo ""
	 echo "               PRESS RETURN OR ENTER TO CONTINUE"
	 set KEY = $<
	 goto main
end
end