home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk1.iso / altsrc / articles / 10730 < prev    next >
Internet Message Format  |  1994-06-22  |  12KB
  1. Path: wupost!crcnis1.unl.edu!news.mid.net!newsfeed.ksu.ksu.edu!moe.ksu.ksu.edu!vixen.cso.uiuc.edu!uwm.edu!csd4.csd.uwm.edu!yanoff
  2. From: yanoff@csd4.csd.uwm.edu (Scott A. Yanoff)
  3. Newsgroups: alt.sources,alt.internet.services
  4. Subject: FingerInfo v3.2 (NEW!)
  5. Date: 20 Jun 1994 14:24:51 GMT
  6. Organization: University of Wisconsin - Milwaukee
  7. Lines: 338
  8. Distribution: world
  9. Message-ID: <2u48rjINNleo@uwm.edu>
  10. NNTP-Posting-Host: 129.89.7.4
  11. Summary: Added ARTS Pace, Added more earthquake sites.
  12. Originator: yanoff@csd4.csd.uwm.edu
  13. Xref: wupost alt.sources:10730 alt.internet.services:26759
  14.  
  15. #!/bin/csh -f
  16. # FingerInfo  By Scott A. Yanoff    yanoff@csd4.csd.uwm.edu
  17. # (C) 1994 Computing Services Division, Univ. of Wisconsin - Milwaukee
  18. #
  19. set version = "3.2"
  20. if !($?PAGER) then
  21.   setenv PAGER "more -df"
  22. endif
  23. if !($?FINGER) then
  24.   setenv FINGER "/usr/local/bin/finger"
  25. endif # FINGER patch by Stan Sieler (sieler@allegro.com)
  26. if  $#argv != 0 then
  27.  echo -n " This is Version "$version" of FingerInfo by Scott Yanoff. "
  28.  echo "(yanoff@csd4.csd.uwm.edu)"
  29.  echo Usage: `basename $0`
  30.  exit
  31. endif
  32. #Save our current biff status, and set to biff n while running this program:
  33. setenv boff `biff | awk '{print $2}'`
  34. biff n
  35. #
  36. onintr main
  37. main:
  38. clear
  39. echo "                      * Welcome to FingerInfo v"$version" *"
  40. echo "                  (C) 1994 Scott Yanoff "
  41. echo ""
  42. echo ""
  43. echo " [A] Auroral Activity                     [N] Coke Machine at Berkeley"
  44. echo " [B] 3-Hour Solar and Geophysical Report  [O] Coke Machine in CS House at RIT"
  45. echo " [C] Daily Solar and Geophysical Report   [P] Graph of soda at RIT"
  46. echo " [D] List of Periodic Postings to Usenet  [Q] Coke Machine at CMU"
  47. echo " [E] Animaniacs Future Episode Lists      [R] Pepsi Machine at Columbia"
  48. echo " [F] DataBases via Finger                 [S] Coke Machine at Columbia"
  49. echo " [G] Earthquake Info Menu                 [T] Almanac Info/Sports Schedules"
  50. echo " [H] NASA Headline News                   [U] Nova U's Grad. Catalog"
  51. echo " [I] Solar Radio Flux                     [V] Baseball Scores/Standings"
  52. echo " [J] Wisconsin Scores/Standings           [W] NFL Scores/Standings"
  53. echo " [K] Tropical Storm Forecast              [X] NFL Line Spread"
  54. echo " [L] Remote Andrew Demo Service for X     [Y] Weekly Trivia"
  55. echo " [M] Cable Regulation Digest              [Z] Most Powerful Computing Sites"
  56. echo " [1] Seattle Radio News & Information     [2] Random talk.bizarre Stories"
  57. echo " [3] Paul's Hottub                        [4] ASCII Art FAQ"
  58. echo " [5] SpaceNews                            [6] Cyber-Sleaze Daily Report"
  59. echo " [7] Code of the Geeks                    [8] U.S. Weather Info Menu"
  60. echo " [9] The Kitchen PAC in NYC               [@] ARTS Pace On-line Magazine"
  61. menu:
  62. echo ""
  63. echo -n "Please select one of the above (or return to quit): _"
  64. set ans = $<
  65. switch ($ans)
  66.  case [aA]: 
  67.       $FINGER aurora@xi.uleth.ca | tr -d '\015' | $PAGER
  68.       breaksw
  69.  case [bB]: 
  70.       $FINGER solar@xi.uleth.ca | tr -d '\015' | $PAGER
  71.       breaksw
  72.  case [cC]: 
  73.       $FINGER daily@xi.uleth.ca | tr -d '\015' | $PAGER
  74.       breaksw
  75.  case [dD]: 
  76.       $FINGER nichol@stavanger.sgp.slb.com | tr -d '\015' | $PAGER
  77.       breaksw
  78.  case [eE]: 
  79.       $FINGER hendry@helios.physics.utoronto.ca | tr -d '\015' | $PAGER
  80.       breaksw
  81.  case [fF]: 
  82.       $FINGER help@dir.su.oz.au | tr -d '\015' | $PAGER
  83.       breaksw
  84.  case [gG]: 
  85.   quakeinfo:
  86.       clear
  87.       echo "                       * Welcome to U.S. QuakeInfo *"
  88.       echo "                  (C) 1994 Scott A. Yanoff "
  89.       echo ""
  90.           echo ""
  91.       echo " [A] Washington, Oregon"
  92.       echo " [B] Alaska"
  93.       echo " [C] Southern California"
  94.       echo " [D] Eastern MO and Southern Illinois"
  95.       echo " [E] Nevada and Eastern California"
  96.       echo " [F] Northern California"
  97.       echo " [G] Utah, Wyoming, Montana"
  98.       echo " [H] Hawaii"
  99.       echo " [I] UNITED STATES"
  100.       echo " [J] WORLD"
  101.           echo ""
  102.           echo -n "Please select one of the above (or return to go back): "
  103.           set quake = $<
  104.           switch ($quake)
  105.            case [aA]: 
  106.         $FINGER quake@geophys.washington.edu | tr -d '\015' | $PAGER
  107.         breaksw
  108.            case [bB]: 
  109.         $FINGER quake@fm.gi.alaska.edu | tr -d '\015' | $PAGER
  110.         breaksw
  111.            case [cC]: 
  112.         $FINGER quake@scec2.gps.caltech.edu | tr -d '\015' | $PAGER
  113.         breaksw
  114.            case [dD]: 
  115.         $FINGER quake@slueas.slu.edu | tr -d '\015' | $PAGER
  116.         breaksw
  117.            case [eE]: 
  118.         $FINGER quake@seismo.unr.edu | tr -d '\015' | $PAGER
  119.         breaksw
  120.            case [fF]: 
  121.         $FINGER quake@andreas.wr.usgs.gov| tr -d '\015' | $PAGER
  122.         breaksw
  123.            case [gG]: 
  124.         $FINGER quake@eqinfo.seis.utah.edu | tr -d '\015' | $PAGER
  125.         breaksw
  126.            case [hH]: 
  127.         $FINGER quake@tako.wr.usgs.gov | tr -d '\015' | $PAGER
  128.         breaksw
  129.            case [iI]: 
  130.         $FINGER quake@gldfs.cr.usgs.gov | tr -d '\015' | $PAGER
  131.         breaksw
  132.            case [jJ]: 
  133.         $FINGER spyder@dmc.iris.washington.edu | tr -d '\015' | $PAGER
  134.         breaksw
  135.         default:
  136.             if $quake == "" then 
  137.          goto main
  138.         endif
  139.         echo ""
  140.         echo " Please enter an item from the above menu! "
  141.         breaksw
  142.       endsw
  143.       echo ""
  144.       echo "               PRESS RETURN OR ENTER TO CONTINUE"
  145.       set KEY = $<
  146.       goto quakeinfo
  147.  case [hH]: 
  148.       $FINGER nasanews@space.mit.edu | tr -d '\015' | $PAGER
  149.       breaksw
  150.  case [iI]: 
  151.       $FINGER solar@drao.nrc.ca | tr -d '\015' | $PAGER
  152.       breaksw
  153.  case [jJ]: 
  154.       $FINGER -m yanoff@csd4.csd.uwm.edu | tr -d '\015' | $PAGER
  155.       breaksw
  156.  case [kK]: 
  157.       $FINGER forecast@typhoon.atmos.colostate.edu | tr -d '\015' | $PAGER
  158.       breaksw
  159.  case [lL]: 
  160.       $FINGER help@atk.itc.cmu.edu | tr -d '\015' | $PAGER
  161.       breaksw
  162.  case [mM]: 
  163.       $FINGER higgins@dorsai.dorsai.org| tr -d '\015' | $PAGER
  164.       breaksw
  165.  case [nN]: 
  166.       $FINGER coke@xcf.berkeley.edu | tr -d '\015' | $PAGER
  167.       breaksw
  168.  case [oO]: 
  169.       $FINGER drink@drink.csh.rit.edu | tr -d '\015' | $PAGER
  170.       breaksw
  171.  case [Pp]: 
  172.       $FINGER graph@drink.csh.rit.edu | tr -d '\015' | $PAGER
  173.       breaksw
  174.  case [qQ]:
  175.       $FINGER coke@cs.cmu.edu | tr -d '\015' | $PAGER
  176.       breaksw
  177.  case [rR]:
  178.       $FINGER pepsi@columbia.edu | tr -d '\015' | $PAGER
  179.        breaksw
  180.  case [sS]:
  181.       $FINGER cocacola@columbia.edu | tr -d '\015' | $PAGER
  182.        breaksw
  183.  case [tT]:
  184.       $FINGER copi@oddjob.uchicago.edu | tr -d '\015' | $PAGER
  185.        breaksw
  186.  case [uU]:
  187.       $FINGER cciscat@alpha.acast.nova.edu | tr -d '\015' | $PAGER
  188.        breaksw
  189.  case [vV]:
  190. #         $FINGER jtchern@headcrash.berkeley.edu | tr -d '\015' | $PAGER
  191.       $FINGER mlb@spam.wicat.com | tr -d '\015' | $PAGER
  192.       breaksw
  193.  case [wW]:
  194.       $FINGER nfl@spam.wicat.com | tr -d '\015' | $PAGER
  195.       breaksw
  196.  case [xX]:
  197.       $FINGER nflline@spam.wicat.com | tr -d '\015' | $PAGER
  198.       breaksw
  199.  case [yY]:
  200.       $FINGER cyndiw@magnus1.com | tr -d '\015' | $PAGER
  201.       breaksw
  202.  case [zZ]:
  203.       $FINGER gunter@yarrow.wt.uwa.edu.au | tr -d '\015' | $PAGER
  204.       breaksw
  205.  case [1]:
  206.       $FINGER briang@halcyon.com | tr -d '\015' | $PAGER
  207.       breaksw
  208.  case [2]:
  209.       $FINGER richh@flode.nvg.unit.no | tr -d '\015' | $PAGER
  210.       breaksw
  211.  case [3]:
  212.       $FINGER hottub@paulh.pnet.msen.com | tr -d '\015' | $PAGER
  213.       breaksw
  214.  case [4]:
  215.       $FINGER boba@gagme.wwa.com | tr -d '\015' | $PAGER
  216.       breaksw
  217.  case [5]:
  218.       $FINGER magliaco@pilot.njin.net | tr -d '\015' | $PAGER
  219.       breaksw
  220.  case [6]:
  221.       $FINGER adam@mtv.com | tr -d '\015' | $PAGER
  222.       breaksw
  223.  case [7]:
  224.       $FINGER hayden@vax1.mankato.msus.edu | tr -d '\015' | $PAGER
  225.       breaksw
  226.  case [9]:
  227.       $FINGER kitchen@panix.com | tr -d '\015' | $PAGER
  228.       breaksw
  229.  case [@]:
  230.       $FINGER mjrst6+@pitt.edu | tr -d '\015' | $PAGER
  231.       breaksw
  232.  case [8]:
  233. #Note that you can change the stuff below to suit YOUR area....
  234.   weatherinfo:
  235.       clear
  236.       echo "                       * Welcome to U.S. WeatherInfo *"
  237.       echo "                  (C) 1994 Scott A. Yanoff "
  238.           echo ""
  239.       echo " [A] Milwaukee Forecast - includes storm reports"
  240.       echo " [B] Wisconsin State Forecast "
  241.       echo " [C] Wisconsin Summary (statewide)"
  242.       echo " [D] Climate Info for Today & Yesterday - hi/lo/normal, sunrise/sunset"
  243.       echo " [E] Weather Info for Wisconsin Cities "
  244.       echo " [F] Wisconsin Precipitation Map"
  245.       echo " [G] Wisconsin Wind Map"
  246.       echo " [H] Wisconsin Temperatures Map"
  247.       echo " [I] Wisconsin Radar Map"
  248.       echo ""
  249.       echo " [J] Detroit Forecast" 
  250.       echo " [K] Colorado Forecast"
  251.       echo " [L] Indiana Forecast/Bloomington Weather"
  252.       echo " [M] Washington Forecast"
  253.       echo " [N] Alabama/Auburn Forecast"
  254.       echo " [O] Pensacola, FL Forecast "
  255.       echo " [P] Youngstown, OH and Vicinity Forecast "
  256.       echo " [Q] Oregon Forecast "
  257.       echo " [R] Massachusetts/Boston Forecast  "
  258.           echo ""
  259.           echo -n "Please select one of the above (or return to go back): "
  260.           set weather = $<
  261.           switch ($weather)
  262.            case [aA]: 
  263.         $FINGER weather@csd4.csd.uwm.edu | tr -d '\015' | $PAGER
  264.         breaksw
  265.            case [bB]: 
  266.         $FINGER "forecast state@wisc.edu" | tr -d '\015' | colrm 1 21 | $PAGER +6
  267.         breaksw
  268.            case [cC]: 
  269.         $FINGER summary@wisc.edu | grep : | tr -d '\015' | colrm 1 21 | $PAGER +6
  270.         breaksw
  271.            case [dD]: 
  272.         $FINGER climate@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
  273.         breaksw
  274.            case [eE]: 
  275.         $FINGER cities@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
  276.         breaksw
  277.            case [fF]: 
  278.         $FINGER precipitation@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
  279.         breaksw
  280.            case [gG]: 
  281.         $FINGER "weather wind"@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
  282.         breaksw
  283.            case [hH]: 
  284.         $FINGER temperature@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
  285.         breaksw
  286.            case [iI]: 
  287.         $FINGER radar@wisc.edu | tr -d '\015' | colrm 1 21 | $PAGER +6
  288.         breaksw
  289.            case [jJ]:
  290.         $FINGER weather@madlab.sprl.umich.edu | tr -d '\015' | $PAGER
  291.         breaksw 
  292.            case [kK]:
  293.         $FINGER weather@rap.ucar.edu | tr -d '\015' | $PAGER
  294.         breaksw
  295.            case [lL]:
  296.         $FINGER weather@indiana.edu | tr -d '\015' | $PAGER
  297.         breaksw
  298.            case [mM]:
  299.         $FINGER weather@halcyon.com | tr -d '\015' | $PAGER
  300.         breaksw
  301.            case [nN]:
  302.         $FINGER obs@awis.auburn.edu | tr -d '\015' | $PAGER
  303.         $FINGER weather@awis.auburn.edu | tr -d '\015' | $PAGER
  304.         $FINGER aubdaily@awis.auburn.edu | tr -d '\015' | $PAGER
  305.         $FINGER radar@awis.auburn.edu | tr -d '\015' | $PAGER
  306.         breaksw
  307.            case [oO]:
  308.         $FINGER beach@awis.auburn.edu | tr -d '\015' | $PAGER
  309.         breaksw
  310.            case [pP]:
  311.         $FINGER weather@ysu.edu | tr -d '\015' | $PAGER
  312.         breaksw
  313.            case [qQ]:
  314.         $FINGER weather@ats.orst.edu | tr -d '\015' | $PAGER
  315.         breaksw
  316.            case [rR]:
  317.         $FINGER weather@cirrus.mit.edu | tr -d '\015' | $PAGER
  318.         breaksw
  319.         default:
  320.             if $weather == "" then 
  321.          goto main
  322.         endif
  323.         echo ""
  324.         echo " Please enter an item from the above menu! "
  325.         breaksw
  326.       endsw
  327.       echo ""
  328.       echo "               PRESS RETURN OR ENTER TO CONTINUE"
  329.       set KEY = $<
  330.       goto weatherinfo
  331.  default: 
  332.           if $ans == "" then
  333.       echo ""
  334.       echo "Thank you for using FingerInfo v"$version
  335.       biff $boff
  336.       exit
  337.       endif
  338.       echo ""
  339.       echo " Please enter an item from the above menu! "
  340.       breaksw
  341.      endsw
  342.      echo ""
  343.      echo "               PRESS RETURN OR ENTER TO CONTINUE"
  344.      set KEY = $<
  345.      goto main
  346. end
  347. end
  348. -- 
  349.  _/\ _ !\ _         @          Milwaukee, WI - A Great Place On a Great Lake
  350. !  _! !! ! !_  ~~  @ ~  ~~         
  351. ! ! ! !! ! ! !~~__=||_~ ~~~ Computing Services Division - MAINFRAME CONSULTING
  352. ! ! ! _! ! ~~~ ~\____/  ~~~  yanoff@csd4.csd.uwm.edu   yanoff@cs.uwm.edu
  353.