Path: nntp-server.caltech.edu!news.claremont.edu!uunet!cs.utexas.edu!zaphod.mps.ohio-state.edu!uwm.edu!csd4.csd.uwm.edu!yanoff
From: yanoff@csd4.csd.uwm.edu (Scott A. Yanoff)
Newsgroups: alt.internet.services
Subject: FingerInfo Shell Script
Date: 14 May 1993 16:04:31 GMT
Organization: University of Wisconsin - Milwaukee, WI
Lines: 171
Distribution: world
Message-ID: <1t0fufINNg9c@uwm.edu>
NNTP-Posting-Host: 129.89.7.4
Summary: CSH shell script that contains many services
Originator: yanoff@csd4.csd.uwm.edu

The following is a nice little CSH shell script that I wrote that contains
ALL kinds of information via the finger command.  All you need to do
is save the file below and run it....
------------------------------CUT HERE----------------------------------------

#!/bin/csh
# FingerInfo  Version 1.0 By Scott A. Yanoff    yanoff@csd4.csd.uwm.edu
# (C) 1993 Computing Services Division, Univ. of Wisconsin - Milwaukee
#
if  $#argv != 0 then
 echo -n " This is Version 1.0 of FingerInfo by Scott Yanoff. "
 echo "(yanoff@csd4.csd.uwm.edu)"
 echo "Usage: fingerinfo "
 exit
endif
#Save our current biff status, and set to biff n while running this program:
setenv boff `biff | awk '{print $2}'`
biff n
#
main:
clear
echo "  			  * Welcome to FingerInfo *"
echo "    			  (C) 1993 Scott A. Yanoff "
echo ""
echo ""
echo " [A] Auroral Activity                     [M] MnM Machine at CMU"
echo " [B] 3-Hour Solar and Geophysical Report  [N] Coke Machine at CMU"
echo " [C] Daily Solar and Geophysical Report   [O] Bargraph at CMU"
echo " [D] Baseball Scores/Standings            [P] Coke Machine at RIT"
echo " [E] Billboard Charts                     [Q] Wisconsin Weather Info"
echo " [F] DataBases via Finger "
echo " [G] Earthquake Info "
echo " [H] NASA Headline News"
echo " [I] Nielson TV Ratings"
echo " [J] Rock/Metal Lyrics Quiz"
echo " [K] Tropical Storm Forecast"
echo " [L] Remote Andrew Demo Service for X"
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 | more -df
	  breaksw
 case [bB]: 
	  finger solar@xi.uleth.ca | more -df
	  breaksw
 case [cC]: 
	  finger daily@xi.uleth.ca | more -df
	  breaksw
 case [dD]: 
	  finger jtchern@sandstorm.berkeley.edu | more -df
	  breaksw
 case [eE]: 
	  finger buckmr@rpi.edu | more -df
	  breaksw
 case [fF]: 
	  finger help@dir.su.oz.au | more -df
	  breaksw
 case [gG]: 
	  finger quake@geophys.washington.edu | more -df
	  breaksw
 case [hH]: 
	  finger nasanews@space.mit.edu | more -df
	  breaksw
 case [iI]: 
	  finger normg@halcyon.halcyon.com | more -df
	  breaksw
 case [jJ]: 
	  finger gim@139.133.202.141 | more -df
	  breaksw
 case [kK]: 
	  finger forecast@typhoon.atmos.colostate.edu | more -df
	  breaksw
 case [lL]: 
	  finger help@atk.itc.cmu.edu | more -df
	  breaksw
 case [mM]: 
	  finger mnm@coke.elab.cs.cmu.edu | more -df
	  breaksw
 case [nN]: 
	  finger coke@coke.elab.cs.cmu.edu | more -df
	  breaksw
 case [oO]: 
	  finger bargraph@coke.elab.cs.cmu.edu | more -df
	  breaksw
 case [pP]: 
	  finger drink@csh.rit.edu | more -df
	  breaksw
 case [qQ]: 
  weatherinfo:
	  clear
	  echo "             	    * Welcome to Wisconsin WeatherInfo *"
	  echo "    			  (C) 1993 Scott A. Yanoff "
	  echo ""
          echo ""
	  echo " [1] Local Forecast "
	  echo " [2] State Forecast "
	  echo " [3] Summary "
	  echo " [4] Climate Info "
	  echo " [5] Weather Info for Cities "
	  echo " [6] Precipitation Map"
	  echo " [7] Wind Map"
	  echo " [8] Temperatures Map"
	  echo " [9] Radar Map"
          echo ""
          echo -n "Please select one of the above (or return to go back): _"
          set weather = $<
          switch ($weather)
           case [1]: 
	    finger weather@csd4.csd.uwm.edu | more -df
	    breaksw
           case [2]: 
	    finger "forecast state@wisc.edu" | colrm 1 21 | more +6 -df
	    breaksw
           case [3]: 
	    finger summary@wisc.edu | grep : | colrm 1 21 | more +6 -df
	    breaksw
           case [4]: 
	    finger climate@wisc.edu | colrm 1 21 | more +6 -df
	    breaksw
           case [5]: 
	    finger cities@wisc.edu | colrm 1 21 | more +6 -df
	    breaksw
           case [6]: 
	    finger precipitation@wisc.edu | colrm 1 21 | more +6 -df
	    breaksw
           case [7]: 
	    finger "weather wind"@wisc.edu | colrm 1 21 | more +6 -df
	    breaksw
           case [8]: 
	    finger temperature@wisc.edu | colrm 1 21 | more +6 -df
	    breaksw
           case [9]: 
	    finger radar@wisc.edu | colrm 1 21 | more +6 -df
	    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.0"
	  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 by a Great Lake
!  _! !! ! !_  ~~  @ ~  ~~         
! ! ! !! ! ! !~~__=||_~ ~~~ Computing Services Division - MAINFRAME CONSULTING
! ! ! _! ! ~~~ ~\____/  ~~~  yanoff@csd4.csd.uwm.edu