🚀 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 = "3.0"
if !($?PAGER) then
  setenv PAGER "more -df"
endif
if !($?FINGER) then
  setenv FINGER "/usr/local/bin/finger"
endif # FINGER patch by Stan Sieler (sieler@allegro.com)
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] Coke Machine at Berkeley"
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] Coke Machine at CMU"
echo " [E] Animaniacs Future Episode Lists      [R] Pepsi Machine at Columbia"
echo " [F] DataBases via Finger                 [S] Coke Machine at Columbia"
echo " [G] Earthquake Info Menu                 [T] Almanac Info/Sports Schedules"
echo " [H] NASA Headline News                   [U] Nova U's Grad. Catalog"
echo " [I] Solar Radio Flux                     [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"
echo " [5] SpaceNews                            [6] Cyber-Sleaze Daily Report"
echo " [7] Code of the Geeks                    [8] U.S. Weather Info Menu"
echo " [9] The Kitchen PAC in NYC               [@] Robin Gelinson's Resume'"
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 | tr -d '\015' | $PAGER
	  breaksw
 case [bB]: 
	  $FINGER solar@xi.uleth.ca | tr -d '\015' | $PAGER
	  breaksw
 case [cC]: 
	  $FINGER daily@xi.uleth.ca | tr -d '\015' | $PAGER
	  breaksw
 case [dD]: 
	  $FINGER nichol@stavanger.sgp.slb.com | tr -d '\015' | $PAGER
	  breaksw
 case [eE]: 
	  $FINGER hendry@helios.physics.utoronto.ca | tr -d '\015' | $PAGER
	  breaksw
 case [fF]: 
	  $FINGER help@dir.su.oz.au | tr -d '\015' | $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 " [H] All Areas"
          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 | tr -d '\015' | $PAGER
	    breaksw
           case [bB]: 
	    $FINGER quake@fm.gi.alaska.edu | tr -d '\015' | $PAGER
	    breaksw
           case [cC]: 
	    $FINGER quake@scec2.gps.caltech.edu | tr -d '\015' | $PAGER
	    breaksw
           case [dD]: 
	    $FINGER quake@slueas.slu.edu | tr -d '\015' | $PAGER
	    breaksw
           case [eE]: 
	    $FINGER quake@seismo.unr.edu | tr -d '\015' | $PAGER
	    breaksw
           case [fF]: 
	    $FINGER quake@andreas.wr.usgs.gov| tr -d '\015' | $PAGER
	    breaksw
           case [gG]: 
	    $FINGER quake@eqinfo.seis.utah.edu | tr -d '\015' | $PAGER
	    breaksw
           case [hH]: 
	    $FINGER quake@gldfs.cr.usgs.gov | tr -d '\015' | $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 | tr -d '\015' | $PAGER
	  breaksw
 case [iI]: 
	  $FINGER solar@drao.nrc.ca | tr -d '\015' | $PAGER
	  breaksw
 case [jJ]: 
	  $FINGER -m yanoff@csd4.csd.uwm.edu | tr -d '\015' | $PAGER
	  breaksw
 case [kK]: 
	  $FINGER forecast@typhoon.atmos.colostate.edu | tr -d '\015' | $PAGER
	  breaksw
 case [lL]: 
	  $FINGER help@atk.itc.cmu.edu | tr -d '\015' | $PAGER
	  breaksw
 case [mM]: 
	  $FINGER higgins@dorsai.dorsai.org| tr -d '\015' | $PAGER
	  breaksw
 case [nN]: 
	  $FINGER coke@xcf.berkeley.edu | tr -d '\015' | $PAGER
	  breaksw
 case [oO]: 
	  $FINGER drink@drink.csh.rit.edu | tr -d '\015' | $PAGER
	  breaksw
 case [Pp]: 
	  $FINGER graph@drink.csh.rit.edu | tr -d '\015' | $PAGER
	  breaksw
 case [qQ]:
	  $FINGER coke@cs.cmu.edu | tr -d '\015' | $PAGER
	  breaksw
 case [rR]:
	  $FINGER pepsi@columbia.edu | tr -d '\015' | $PAGER
 	  breaksw
 case [sS]:
	  $FINGER cocacola@columbia.edu | tr -d '\015' | $PAGER
 	  breaksw
 case [tT]:
	  $FINGER copi@oddjob.uchicago.edu | tr -d '\015' | $PAGER
 	  breaksw
 case [uU]:
	  $FINGER cciscat@alpha.acast.nova.edu | tr -d '\015' | $PAGER
 	  breaksw
 case [vV]:
#         $FINGER jtchern@headcrash.berkeley.edu | tr -d '\015' | $PAGER
	  $FINGER mlb@spam.wicat.com | tr -d '\015' | $PAGER
	  breaksw
 case [wW]:
	  $FINGER nfl@spam.wicat.com | tr -d '\015' | $PAGER
	  breaksw
 case [xX]:
	  $FINGER nflline@spam.wicat.com | tr -d '\015' | $PAGER
	  breaksw
 case [yY]:
	  $FINGER cyndiw@magnus1.com | tr -d '\015' | $PAGER
	  breaksw
 case [zZ]:
	  $FINGER gunter@yarrow.wt.uwa.edu.au | tr -d '\015' | $PAGER
	  breaksw
 case [1]:
	  $FINGER briang@halcyon.com | tr -d '\015' | $PAGER
	  breaksw
 case [2]:
	  $FINGER richh@flode.nvg.unit.no | tr -d '\015' | $PAGER
	  breaksw
 case [3]:
	  $FINGER hottub@paulh.pnet.msen.com | tr -d '\015' | $PAGER
	  breaksw
 case [4]:
	  $FINGER boba@gagme.wwa.com | tr -d '\015' | $PAGER
	  breaksw
 case [5]:
	  $FINGER magliaco@pilot.njin.net | tr -d '\015' | $PAGER
	  breaksw
 case [6]:
	  $FINGER adam@mtv.com | tr -d '\015' | $PAGER
	  breaksw
 case [7]:
	  $FINGER hayden@vax1.mankato.msus.edu | tr -d '\015' | $PAGER
	  breaksw
 case [9]:
	  $FINGER kitchen@panix.com | tr -d '\015' | $PAGER
	  breaksw
 case [@]:
	  $FINGER gelinson@alpha1.csd.uwm.edu | tr -d '\015' | $PAGER
	  breaksw
 case [8]:
#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 " [A] Milwaukee Forecast - 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 " [R] Massachusetts/Boston 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 | tr -d '\015' | $PAGER
	    breaksw
           case [bB]: 
	    $FINGER "forecast state@wisc.edu" | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [cC]: 
	    $FINGER summary@wisc.edu | grep : | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [dD]: 
	    $FINGER climate@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [eE]: 
	    $FINGER cities@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [fF]: 
	    $FINGER precipitation@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [gG]: 
	    $FINGER "weather wind"@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [hH]: 
	    $FINGER temperature@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [iI]: 
	    $FINGER radar@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
	    breaksw
           case [jJ]:
	    $FINGER weather@madlab.sprl.umich.edu | tr -d '\015' | $PAGER
	    breaksw 
           case [kK]:
	    $FINGER weather@rap.ucar.edu | tr -d '\015' | $PAGER
	    breaksw
           case [lL]:
	    $FINGER weather@indiana.edu | tr -d '\015' | $PAGER
	    breaksw
           case [mM]:
	    $FINGER weather@halcyon.com | tr -d '\015' | $PAGER
	    breaksw
           case [nN]:
	    $FINGER obs@awis.auburn.edu | tr -d '\015' | $PAGER
	    $FINGER weather@awis.auburn.edu | tr -d '\015' | $PAGER
	    $FINGER aubdaily@awis.auburn.edu | tr -d '\015' | $PAGER
	    $FINGER radar@awis.auburn.edu | tr -d '\015' | $PAGER
	    breaksw
           case [oO]:
	    $FINGER beach@awis.auburn.edu | tr -d '\015' | $PAGER
	    breaksw
           case [pP]:
	    $FINGER weather@ysu.edu | tr -d '\015' | $PAGER
	    breaksw
           case [qQ]:
	    $FINGER weather@ats.orst.edu | tr -d '\015' | $PAGER
	    breaksw
           case [rR]:
	    $FINGER weather@cirrus.mit.edu | tr -d '\015' | $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@cs.uwm.edu