🚀 go-pugleaf

#!/bin/csh -f
# FingerInfo  By Scott A. Yanoff    yanoff@csd4.csd.uwm.edu
# (C) 1994 Computing Services Division, Univ. of Wisconsin - Milwaukee
#
set version = "2.6"
if !($?PAGER) then
  setenv PAGER "more -df"
endif
if  $#argv != 0 then
 echo -n " This is Version "$version" 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 v"$version" *"
echo "    			  (C) 1994 Scott Yanoff "
echo ""
echo ""
echo " [A] Auroral Activity                     [N] MnM/Coke Machine at CMU"
echo " [B] 3-Hour Solar and Geophysical Report  [O] Coke Machine in CS House at RIT"
echo " [C] Daily Solar and Geophysical Report   [P] Graph of soda at RIT"
echo " [D] List of Periodic Postings to Usenet  [Q] Cyber-Sleaze Daily Report"
echo " [E] Billboard Charts                     [R] Code of the Geeks"
echo " [F] DataBases via Finger                 [S] U.S. Weather Info Menu"
echo " [G] Earthquake Info Menu                 [T] Almanac Info/Sports Schedules"
echo " [H] NASA Headline News                   [U] Nova U's Grad. Catalog"
echo " [I] Nielsen TV Ratings                   [V] Baseball Scores/Standings"
echo " [J] Wisconsin Scores/Standings           [W] NFL Scores/Standings"
echo " [K] Tropical Storm Forecast              [X] NFL Line Spread"
echo " [L] Remote Andrew Demo Service for X     [Y] Weekly Trivia"
echo " [M] Cable Regulation Digest              [Z] Most Powerful Computing Sites"
echo " [1] Seattle Radio News & Information     [2] Random talk.bizarre Stories"
echo " [3] Paul's Hottub                        [4] ASCII Art FAQ"
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]: 
  quakeinfo:
	  clear
	  echo "             	      * Welcome to U.S. QuakeInfo *"
	  echo "    			  (C) 1994 Scott A. Yanoff "
	  echo ""
          echo ""
	  echo " [A] Washington, Oregon"
	  echo " [B] Alaska"
	  echo " [C] Southern California"
	  echo " [D] Southern Illinois"
	  echo " [E] Nevada and California"
	  echo " [F] Northern California"
	  echo " [G] Utah, Wyoming, Montana"
          echo ""
          echo -n "Please select one of the above (or return to go back): "
          set quake = $<
          switch ($quake)
           case [aA]: 
	    finger quake@geophys.washington.edu | $PAGER
	    breaksw
           case [bB]: 
	    finger quake@fm.gi.alaska.edu | $PAGER
	    breaksw
           case [cC]: 
	    finger quake@scec2.gps.caltech.edu | $PAGER
	    breaksw
           case [dD]: 
	    finger quake@slueas.slu.edu | $PAGER
	    breaksw
           case [eE]: 
	    finger quake@seismo.unr.edu | $PAGER
	    breaksw
           case [fF]: 
	    finger quake@andreas.wr.usgs.gov| $PAGER
	    breaksw
           case [gG]: 
	    finger quake@eqinfo.seis.utah.edu | $PAGER
	    breaksw
 	   default:
            if $quake == "" 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 quakeinfo
 case [hH]: 
	  finger nasanews@space.mit.edu | $PAGER
	  breaksw
 case [iI]: 
	  finger normg@halcyon.halcyon.com | $PAGER
	  breaksw
 case [jJ]: 
	  finger -m 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 higgins@dorsai.dorsai.org| $PAGER
	  breaksw
 case [nN]: 
	  finger coke@cs.cmu.edu | $PAGER
	  breaksw
 case [oO]: 
	  finger drink@drink.csh.rit.edu | $PAGER
	  breaksw
 case [Pp]: 
	  finger graph@drink.csh.rit.edu | $PAGER
	  breaksw
 case [qQ]:
	  finger adam@mtv.com | $PAGER
	  breaksw
 case [rR]:
	  finger hayden@vax1.mankato.msus.edu | $PAGER
 	  breaksw
 case [tT]:
	  finger copi@oddjob.uchicago.edu | $PAGER
 	  breaksw
 case [uU]:
	  finger cciscat@alpha.acast.nova.edu | $PAGER
 	  breaksw
 case [vV]:
#         finger jtchern@headcrash.berkeley.edu | $PAGER
	  finger mlb@spam.wicat.com | $PAGER
	  breaksw
 case [wW]:
	  finger nfl@spam.wicat.com | $PAGER
	  breaksw
 case [xX]:
	  finger nflline@spam.wicat.com | $PAGER
	  breaksw
 case [yY]:
	  finger cyndiw@magnus1.com | $PAGER
	  breaksw
 case [zZ]:
	  finger gunter@yarrow.wt.uwa.edu.au | $PAGER
	  breaksw
 case [1]:
	  finger briang@halcyon.com | $PAGER
	  breaksw
 case [2]:
	  finger richh@flode.nvg.unit.no | $PAGER
	  breaksw
 case [3]:
	  finger hottub@paulh.pnet.msen.com | $PAGER
	  breaksw
 case [4]:
	  finger boba@gagme.wwa.com | $PAGER
	  breaksw
 case [sS]:
#Note that you can change the stuff below to suit YOUR area....
  weatherinfo:
	  clear
	  echo "             	      * Welcome to U.S. WeatherInfo *"
	  echo "    			  (C) 1994 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 " [Q] Oregon 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
           case [qQ]:
	    finger weather@ats.orst.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 v"$version
	  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
-- 
 _/\ _ !\ _         @           Milwaukee, WI - A Great Place On a Great Lake
!  _! !! ! !_  ~~  @ ~  ~~         
! ! ! !! ! ! !~~__=||_~ ~~~ Computing Services Division - MAINFRAME CONSULTING
! ! ! _! ! ~~~ ~\____/  ~~~  yanoff@csd4.csd.uwm.edu   yanoff@point.cs.uwm.edu