home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / alt / gopher / 1027 < prev    next >
Encoding:
Internet Message Format  |  1992-07-21  |  8.0 KB
  1. Path: sparky!uunet!wupost!ukma!widener!netnews.upenn.edu!msuinfo!news
  2. From: boone@convex.cl.msu.edu (Dennis Boone)
  3. Newsgroups: alt.gopher
  4. Subject: Gopher Road Map tool "gophertree"
  5. Keywords: tree listing road map gopher gophertree
  6. Message-ID: <1992Jul21.205327.13158@msuinfo.cl.msu.edu>
  7. Date: 21 Jul 92 20:53:27 GMT
  8. Sender: news@msuinfo.cl.msu.edu
  9. Organization: Michigan State University, East Lansing
  10. Lines: 245
  11.  
  12. This tool creates an indented listing of the files in a Gopher server.
  13. We feel that a listing like the one created by gophertree will be helpful
  14. to new users as they begin using Gopher.  Later, as they develop confidence,
  15. it becomes a useful index.  By default, the listing is set up for printing
  16. on standard letter paper, but the program is configurable.  A sample listing
  17. appears below.
  18.  
  19. Gophertree is a major modification of the gopherls tool found in the Gopher
  20. distribution.
  21.  
  22. Example output:
  23.  
  24. MSU Gopher Road Map                      Host: gopher.msu.edu
  25. Last Update: 7/21/92                                                Page:   1
  26.  
  27. Name                    Type    Destination
  28. --------------------------------------    -------    ------------------------------
  29. About Gopher                            Dir     serv2.cl.msu.edu
  30.   What is it? (under construction)      File    serv2.cl.msu.edu
  31.   Why do I need it? (under constructio  File    serv2.cl.msu.edu
  32.   Where can I get it? (under construct  File    serv2.cl.msu.edu
  33.   How do I use it? (under construction  File    serv2.cl.msu.edu
  34.   Who can I contact?                    File    serv2.cl.msu.edu
  35.   When was the last update?             File    serv2.cl.msu.edu
  36.   About MSU's Gopher                    File    serv2.cl.msu.edu
  37. Michigan State University               Dir     serv2.cl.msu.edu
  38.   Alumni Association                    Dir     serv2.cl.msu.edu
  39.     Up Front: MSU Trustees Help Direct  File    serv2.cl.msu.edu
  40.     In-Basket                           File    serv2.cl.msu.edu
  41.     National Alumni Board Officers 199  File    serv2.cl.msu.edu
  42.     MSU Alumni Magazine (Table of Cont  File    serv2.cl.msu.edu
  43.     Around Circle Drive                 File    serv2.cl.msu.edu
  44.     People/John Mueller: Oldies But Go  File    serv2.cl.msu.edu
  45.     People/Arthur Hills: Golf's Hottes  File    serv2.cl.msu.edu
  46.     People/Ingrid Jones: Can't Beat He  File    serv2.cl.msu.edu
  47.     People/Ivan Lahaie: In the Realm o  File    serv2.cl.msu.edu
  48.     People/Joan Sills: The World's Top  File    serv2.cl.msu.edu
  49.     People/Julie Dixon: Medicine Woman  File    serv2.cl.msu.edu
  50.     People/Wayne Fontes: NFL Coach of   File    serv2.cl.msu.edu
  51.     People/Harriette McAdoo: Defining   File    serv2.cl.msu.edu
  52.     Dow Gift Will Accelerate Composite  File    serv2.cl.msu.edu
  53.     Meet Merrily Dean Baker, MSU's A.D  File    serv2.cl.msu.edu
  54.     . . .
  55.   Campus Events & Sights                Dir     serv2.cl.msu.edu
  56.     About Campus Events & Sights        File    serv2.cl.msu.edu
  57.     Bulletins                           File    serv2.cl.msu.edu
  58.     Events                              Dir     serv2.cl.msu.edu
  59.       Search Everything                 Index   netsun.cl.msu.edu
  60.       Search May                        Index   netsun.cl.msu.edu
  61.       May                               Dir     serv2.cl.msu.edu
  62.       Search June                       Index   netsun.cl.msu.edu
  63.       June                              Dir     serv2.cl.msu.edu
  64.  
  65.  
  66. The program:
  67. ---------------------------------snip-------------------------------
  68. #! /bin/sh
  69. # This is a shell archive, meaning:
  70. # 1. Remove everything above the #! /bin/sh line.
  71. # 2. Save the resulting text in a file.
  72. # 3. Execute the file with /bin/sh (not csh) to create the files:
  73. #    gophertree
  74. # This archive created: Tue Jul 21 16:49:49 1992
  75. export PATH; PATH=/bin:$PATH
  76. if test -f 'gophertree'
  77. then
  78.     echo shar: will not over-write existing file "'gophertree'"
  79. else
  80. cat << \SHAR_EOF > 'gophertree'
  81. #!/usr/local/bin/perl
  82. # gophertree
  83. # Prints pretty indented listings of a Gopher menu tree
  84. # Copyright (C) 1992, Trustees of Michigan State University
  85. # 
  86. # Modifications:
  87. # Original author unknown
  88. # 07/07/92 Boone      Major conversion from gopherls
  89. # End Modifications
  90.  
  91. sub dokill
  92. {
  93.     kill 9,$child if $child;
  94. }
  95.  
  96. sub Opengopher
  97. {
  98.     $sockaddr++;
  99.     local($them,$port) = @_;    
  100.     $them = 'localhost' unless $them;
  101.  
  102.     $AF_INET = 2;
  103.     $SOCK_STREAM = 1;
  104.  
  105.     $SIG{'INT'} = 'dokill';
  106.  
  107.     $sockaddr = 'S n a4 x8';
  108.  
  109.     chop($hostname = `hostname`);
  110.  
  111.     ($name,$aliases,$proto) = getprotobyname('tcp');
  112.     ($name,$aliases,$port) = getservbyname($port,'tcp')
  113.     unless $port =~ /^\d+$/;;
  114.     ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
  115.     ($name,$aliases,$type,$len,$thataddr) = gethostbyname($them);
  116.  
  117.     $this = pack($sockaddr, $AF_INET, $sockaddr, $thisaddr);
  118.     $that = pack($sockaddr, $AF_INET, $port, $thataddr);
  119.  
  120.     # Make the socket filehandle.
  121.     socket(S, $AF_INET, $SOCK_STREAM, $proto) || die $!;
  122.  
  123.     # Give the socket an address.
  124.     bind(S, $this) || die $!;
  125.  
  126.     # Call up the server.
  127.     connect(S,$that) || die $!;
  128.  
  129.     # Set socket to be command buffered.
  130.     select(S); $| = 1; select(STDOUT);
  131.  
  132. }
  133.  
  134. sub GetList 
  135. {
  136.     local($CurrentHost, $Port, $Path, $indent) = @_;
  137.     local(@dirx, $Name, $Obj, $fname, $ftype, $fhost, $i);
  138.     &Opengopher($CurrentHost, $Port);
  139.     print S "$Path\n";
  140.     @dirx = <S>;
  141.     close(S);
  142.     $i = 0;
  143.     foreach (@dirx) 
  144.     {
  145.         last if /^\./;
  146.         chop; chop;
  147.         ($ObjName, $Path, $CurrentHost, $Port) = split('\t', $_);
  148.         $Name = substr($ObjName, 1);
  149.         $Obj = substr($ObjName, 0, 1);
  150.         $fname = $indent . $Name;
  151.         $ftype = "";
  152.         $ftype = "File" if ($Obj eq "0");
  153.         $ftype = "Dir" if ($Obj eq "1");
  154.         $ftype = "Phone" if ($Obj eq "2");
  155.         $ftype = "Error" if ($Obj eq "3");
  156.         $ftype = "MacHqx" if ($Obj eq "4");
  157.         $ftype = "PcHqx" if ($Obj eq "5");
  158.         $ftype = "Uue" if ($Obj eq "6");
  159.         $ftype = "Index" if ($Obj eq "7");
  160.         $ftype = "Telnet" if ($Obj eq "8");
  161.         $ftype = "Binary" if ($Obj eq "9");
  162.         $ftype = "File" if ($Obj eq "R");
  163.         $ftype = "TN3270" if ($Obj eq "T");
  164.         $ftype = "File" if ($Obj eq "e");
  165.         $ftype = "Ftp" if ($Obj eq "f");
  166.         $ftype = "HTML" if ($Obj eq "h");
  167.         $ftype = "Info" if ($Obj eq "i");
  168.         $ftype = "Mail" if ($Obj eq "m");
  169.         $ftype = "Sound" if ($Obj eq "s");
  170.         $ftype = "Index" if ($Obj eq "w");
  171.         $fhost = $CurrentHost;
  172.  
  173.         write if (($i < $breaklong) && ($Obj ne "i"));
  174.  
  175.         if (($Obj eq "1") && ($CurrentHost eq $firsthost) && 
  176.             (($Port != $firstport) || ($Path != ""))) 
  177.         {
  178.             &GetList($CurrentHost, $Port, $Path, $indent . $iadd);
  179.         }
  180.  
  181.         $i++ if ($Obj eq "0");
  182.         if ($i == 15) 
  183.         {
  184.             print("$indent. . .\n");
  185.             --$-;
  186.         }
  187.     }
  188. }
  189.  
  190. # **************************************************************************
  191. # * Main
  192. # **************************************************************************
  193.  
  194. # Parse command line
  195.  
  196.     if ($#ARGV < 1) 
  197.     {
  198.         print "Usage:  gophertree  host  port  path\n";
  199.         exit(1);
  200.     }
  201.  
  202.     $firsthost = $CurrentHost = $ARGV[0];
  203.     $firstport = $Port = $ARGV[1];
  204.     $Path = "";
  205.     if ($#ARGV == 2) 
  206.     {
  207.         $Path = $ARGV[2];
  208.     }
  209.  
  210. # Initialize some variables
  211.  
  212.     ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  213.     $today = $mon+1 . "/" . $mday . "/" . $year;
  214.  
  215.     $^ = 'TOP';         # Report header format
  216.     $~ = 'STDOUT';      # Report body format
  217.     $indent = "";       # Goes in front of description to indicate treeness
  218.  
  219. # CHANGE--User-configurable defaults
  220.  
  221.     $breaklong = 15;    # CHANGE--Where to break long lists, place ". . ."
  222.     $= = 55;            # CHANGE--Lines per page
  223.     $iadd = "  ";       # CHANGE--Amount to indent each new level
  224.  
  225. # Real work
  226.  
  227.     &GetList($CurrentHost, $Port, $Path, $indent);
  228.     exit(0);
  229.  
  230. #
  231. # Formats
  232. #
  233.  
  234. format TOP =
  235.  
  236. MSU Gopher Road Map                      Host: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  237. $firsthost
  238. Last Update: @<<<<<<<                                               Page: @>>
  239. $today $%
  240.  
  241. Name                    Type    Destination
  242. --------------------------------------    -------    ------------------------------
  243. .
  244.  
  245. format STDOUT =
  246. @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  247. $fname $ftype $fhost
  248. .
  249. SHAR_EOF
  250. fi # end of overwriting check
  251. #    End of shell archive
  252. exit 0
  253.  
  254. ---------------------------------snip-------------------------------
  255. --
  256.  == Frustration is portable. ==
  257.