#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#               "End of shell archive."
# Contents:  README linkmerge linkmerge-weekly
# Wrapped by riddle@rio-grande on Thu Apr 15 18:44:35 1993
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'README' -a "${1}" != "-c" ; then
 echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(1391 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
XNewsgroups: comp.infosystems.gopher
XFrom: [email protected] (Prentiss Riddle)
XSubject: linkmerge: a tool to merge remote Gopher directories
XMessage-ID: <[email protected]>
XSender: [email protected] (News)
XOrganization: Ministry of Information, William's Marsh
XDate: Thu, 25 Mar 1993 22:38:19 GMT
X
XProblem: I want to offer a "subject tree" of Internet resources
Xcategorized by subject area but I don't have time to develop my own.
XThere are a number of useful efforts to categorize Gopher resources by
Xsubject area, but none of them has yet emerged as a comprehensive
Xstandard.
X
XSolution: The perl script below.  By merging carefully selected
Xsubdirectories of other sites' subject area trees, I was able to come
Xup with a pretty fair union of several of them.  The result is far from
Xperfect, but it will do until something better comes along.  This
Xapproach also allows me to put my own local resources into the same
Xtree.  To see this in action, take a look at:
X
XName=Information by Subject Area
XType=1
XPort=70
XPath=1/Subject
XHost=riceinfo.rice.edu
X
XI'm interested in what other people think of this idea.
X
X-- Prentiss Riddle ("aprendiz de todo, maestro de nada") [email protected]
X-- Unix Systems Programmer, Office of Networking and Computing Systems
X-- Rice University, POB 1892, Houston, TX 77251 / Mudd 208 / 713-285-5327
X-- Opinions expressed are not necessarily those of my employer.
END_OF_FILE
if test 1391 -ne `wc -c <'README'`; then
   echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'linkmerge' -a "${1}" != "-c" ; then
 echo shar: Will not clobber existing file \"'linkmerge'\"
else
echo shar: Extracting \"'linkmerge'\" \(14022 characters\)
sed "s/^X//" >'linkmerge' <<'END_OF_FILE'
X#!/usr/local/bin/perl
X#
X# linkmerge 0.1 -- merge a group of links to gopher resources
X#
X# usage: linkmerge < links-to-dirs-to-be-merged > .merged-links
X#
X# Linkmerge is intended as a way to make use of efforts elsewhere in
X# Gopherspace to gather collections of Internet resources organized
X# by subject.  Linkmerge examines a specified set of Gopher directories
X# and produces a merged list of links to their contents.  It makes an
X# attempt to eliminate duplicate links and to resolve WAIS and go4gw
X# resources to use local servers.  Linkmerge also allows for a "stop
X# list" of resources which it should suppress in its output.
X#
X#
X# INPUT FORMAT:
X# The input consists of gopher links to the directories to be merged,
X# as well as individual resources to be suppressed, in the following
X# format (note that the tabs are essential):
X#
X#      merge <tab> path <tab> host <tab> port
X#      stop  <tab> path <tab> host <tab> port
X#
X# OUTPUT FORMAT:
X# The output is in the format of a gopherd .links file with comments to
X# help in debugging, e.g.:
X#
X#      # Merging 1/.dir/ams.taes.ag.resource tamuts.tamu.edu 70
X#      # Merging 1/catalog/Agriculture flubber.ciesin.org 70
X#      # Merging 1/Selected/Agriculture hunter.unr.edu 70
X#
X#      Name=CYFER-net USDA ES Gopher Server.
X#      #     from tamuts.tamu.edu
X#      Path=
X#      Host=cyfer.esusda.gov
X#      Port=70
X#      Type=1
X#      #Also CYFER-net USDA ES Gopher Server.
X#      #     from flubber.ciesin.org
X#
X#      Name=Agricola
X#      #     from tamuts.tamu.edu
X#      Path=
X#      Host=isn.iastate.edu
X#      Port=0
X#      Type=8
X#      #Also Agricola
X#      #     from flubber.ciesin.org
X#
X#      Name=QUERRI (Database for North Central States)
X#      #     from hunter.unr.edu
X#      Path=
X#      Host=isn.rdns.iastate.edu
X#      Port=0
X#      Type=8
X#
X#
X# RESOURCE RESOLUTION:
X# When two or more of the input directories list the same resource, the
X# name in the output will be taken from the first input directory which
X# contained it.  For this reason, more trustworthy or better-designed
X# input directories should be listed first.
X#
X# If the following configuration variables are defined below, this program
X# will try to resolve links to WAIS indexes to a local copy:
X#      $waisdir $waishost $waispath $waisport
X#
X# If the following configuration variables are defined below, this program
X# will resolve remote go4gw links to use a local go4gw server:
X#      $go4gwhost $go4gwport @go4gwserv
X#
X# Note that "stop" operations take place *after* the above resolutions.
X#
X#
X# EXAMPLE:
X# Here is a simple shell script using linkmerge which could be called from
X# crontab.
X#
X#      #!/bin/csh -f
X#      #
X#      # Script to use linkmerge to merge several collections of
X#      # agriculture resources.
X#      #
X#      set MERGE="/foo/cwis/bin/linkmerge"
X#      set SUBJDIR="/foo/cwis/gopher/world/BySubject"
X#
X#      if ( -f $SUBJDIR/Agriculture/.mergelinks ) then
X#              /bin/mv -f $SUBJDIR/Agriculture/.mergelinks \
X#                      $SUBJDIR/.oldlinks/Agriculture
X#      endif
X#      $MERGE > $SUBJDIR/Agriculture/.mergelinks <<'EOF'
X#      merge   1/.dir/ams.taes.ag.resource     tamuts.tamu.edu 70
X#      merge   1/catalog/Agriculture   flubber.ciesin.org      70
X#      stop    1/.data/owl-eradication tamuts.tamu.edu 70
X#      'EOF'
X#
X#----------------------------------------------------------------------------
X# History:
X# 03/18/93 PASR  Original version by Prentiss Riddle ([email protected]), but
X#                based on gopherclone by Bob Alberti
X#                ([email protected]) and friends:
X#                   original NNTP client suggested by eci386!clewis
X#                   socket code by [email protected] (Carl M. Fongheiser)
X#                   adaptation for gopher by [email protected] (Edward Vielmetti)
X#                   mods to indexer by Bob Alberti
X# 03/25/93 PASR  Declared this version 0.1 and posted it to the net.
X#----------------------------------------------------------------------------
X#
X# CONFIGURATION -- set these variables to suit your site
X
X$debug = 1;            # Turn off for fewer comments in output
X
X# Local Gopher/WAIS configuration information.  Define these variables
X# if a Gopher server on the local machine contains an extensive directory
X# of WAIS sources and you'd rather make WAIS queries via your local Gopher
X# server than a remote Gopher server.  If you do not wish to use this
X# feature, leave these variables undefined.
X#
X# Note that the program will *look* for a matching WAIS ".src" file on
X# the local machine and only transform the link to use it if a match is
X# found.  It will look in two places: (1) the directory $dir and (2) a
X# subdirectory  of $dir consisting of the first letter of the name of
X# the WAIS source (e.g., "$dir/Foobar.src" and "$dir/f/Foobar.src").
X#
X# Variables:
X#   $waishost   hostname of your Gopher server (should be this machine)
X#   $waisport   port number of your Gopher server
X#   $waisdir    full Unix directory in which to look for WAIS sources
X#   $waispath   Gopher path (i.e., relative to the top of your Gopher tree)
X#                  of your WAIS sources
X# Example:
X#   $waishost = "gopher.foobar.edu";
X#   $waisport = 70;
X#   $waisdir = "/usr/gopher/Other/WAIS";
X#   $waispath = "/Other/WAIS";
X$waishost = "riceinfo.rice.edu";
X$waisport = 70;
X$waisdir = "/chico-b/cwis/gopher/world/OtherGophers/WAIS";
X$waispath = "/OtherGophers/WAIS";
X
X# Host and port of your local go4gw gateway and the services which it
X# provides.  Define these if you run a go4gw gateway and you wish for
X# links to be translated to use it instead of remote go4gw gateways.
X# (Note: this could backfire if there are non-go4gw paths which look
X# like go4gw ones.)
X#
X# If you do not wish to use this feature (or if you don't know what go4gw
X# does :-) ), leave these variables undefined.
X#
X# Variables:
X#   $go4gwhost   hostname of host where your go4gw gateway runs
X#   $go4gwport   port number of your go4gw gateway
X#   @go4gwserv   list of go4gw services you wish to have translated
X#
X# Example:
X#   $go4gwhost = "gopher.foobar.edu";
X#   $go4gwport = 9999;
X#   @go4gwserv = ("areacode", "ftp", "geo", "nntp");
X$go4gwhost = "riceinfo.rice.edu";
X$go4gwport = 1103;
X@go4gwserv = ("areacode", "geo", "nntp");
X
X# END OF CONFIGURATION SECTION
X#----------------------------------------------------------------------------
X#
X#Data structures:
X#
X# @merge       A list of links to Gopher directories to be merged.
X#              Its values consist of tab-separated Gopher links in the
X#              form "path<tab>host<tab>port".
X#
X# %stop                A table of links to resources to be suppressed.  Its
X#               indexes consist of tab-separated Gopher links in the
X#               form "path<tab>host<tab>port".  It returns "1"
X#              for any resource which appeared in a "stop" line on
X#              input.  Gopher links used to index it should be forced
X#               to lowercase prior to insertion or lookup in order to
X#               eliminate mismatches caused by case distinction.
X#
X# %links       A table of all of the Gopher links we've seen so far.  Its
X#              indexes consist of tab-separated Gopher links in the
X#              form "path<tab>host<tab>port<tab>type".  The values it
X#              returns are the numeric indices of the other tables
X#              here.  Gopher links used to index it should be forced
X#              to lowercase prior to insertion or lookup in order to
X#              eliminate false duplicates caused by case distinction.
X#
X# @paths       The path of each link, indexed by a value returned by
X#              $links[].
X#
X# @hosts       The host of each link, indexed by a value returned by
X#              $links[].
X#
X# @ports       The port of each link, indexed by a value returned by
X#              $links[].
X#
X# @types       The type of each link, indexed by a value returned by
X#              $links[].
X#
X# @names       The names associated with each link, indexed by a value
X#              returned by $links[].  Each value returned by $names[]
X#              can have multiple tab-separated names, but only the
X#              first is used to generate a "live" link in the output;
X#              the others are available for debugging purposes.
X#
X# @viahosts    The hosts where each link was found, indexed by a value
X#              returned by $links[].  Each value returned by $viahosts[]
X#              can have multiple tab-separated hostnames.  This
X#              information is kept for debugging purposes.
X#
X# $nlinks      Number of entries (starting with 1) in the lists indexed
X#              by %links.
X#----------------------------------------------------------------------------
X
X# Here's how to make your own socket.ph:
X#      cp /usr/include/sys/socket.h socket.h
Xrequire 'socket.ph';  # h2ph socket
X
X# Read the input and save it into @merge and %stop.
Xwhile (<STDIN>) {
X       chop;
X       $op = "";
X       ($op, $path, $host, $port) =
X               /^(\S*) *\t([^\t]*)\t(\S+)\t(\d+)$/;
X       if ($op eq "stop") {
X               # Add it to the stop list.
X               $link = "$path\t$host\t$port";
X               $link =~ tr/A-Z/a-z/;
X               $stop{$link} = 1;
X               print("# Stop  $link\n");
X               next;
X       }
X       unless ($op eq "merge") {
X               print("# UNRECOGNIZED INPUT: $_\n");
X               next;
X       }
X       push(@merge, "$path\t$host\t$port");
X       print("# Merge $path $host $port\n");
X}
Xprint("#\n");
X
X# Step through the links in @merge.
X$nlinks = 0;
Xwhile ($mergelink = shift(@merge)) {
X       print("# Merging $mergelink\n");
X       ($path, $viahost, $port) = split(/\t/, $mergelink);
X
X       # Make sure the path has an initial type selector (default "1/").
X       $path =~ s#^/#1/#;
X       unless ($path =~ m#^1/#) {
X               print("#         ^ BAD PATH -- IGNORED!\n");
X               next;
X       }
X       unless ($viahost && $port && $path) {
X               print("#         ^ INCOMPLETE PATH/HOST/PORT -- IGNORED!\n");
X               next;
X       }
X
X       chop($hostname = `hostname`);   # get host name in variable
X       ($N) = &tcpconnect($viahost, $hostname);
X       unless ($N) {
X               # bad connection
X               print("#         ^ COULDN'T OPEN TCP CONNECTION $N!\n");
X               next;
X       }
X       send(N,"$path\r\n", 0)
X               || die "Send $d to $viahost barfed with: $!\n";
X       while (<N>) {
X               last if /^\.\r\n$/;     # loop til lone period
X               if (m#^(.)(.*)\t([^\t]*)\t([^\t]+)\t(\d+)\s*$#) {
X                       # We have a link to process.
X                       $type = $1;
X                       $name = $2;
X                       $path = $3;
X                       $host = $4;
X                       $port = $5;
X                       $host =~ s/^\s*//;
X                       $host =~ s/\s*$//;
X                       $name =~ s/^\s*//;
X                       $name =~ s/\s*$//;
X                       &normalize();
X
X                       # Is this on our stop list?
X                       $link = "$path\t$host\t$port";
X                       $link =~ tr/A-Z/a-z/;
X                       #print ("# Checking \"$link\"\n") if $debug;
X                       if ($stop{$link}) {
X                               print("# STOPPED $name: $path\t$host\t$port\t$type\n") if $debug;
X                               next;
X                       }
X
X                       # Re-make the link the way %links needs it. :-(
X                       $link = "$path\t$host\t$port\t$type";
X                       $link =~ tr/A-Z/a-z/;
X
X                       # Have we seen this one before?
X                       if ($links{$link}) {
X                               # Save all names & viahosts, even for
X                               # links we've seen.
X                               $l = $links{$link};
X                               $names[$l] .= "$name\t";
X                               $viahosts[$l] .= "$viahost\t";
X                       } else {
X                               # Nope -- save it.
X                               $links{$link} = ++$nlinks;
X                               $paths[$nlinks] = $path;
X                               $hosts[$nlinks] = $host;
X                               $ports[$nlinks] = $port;
X                               $types[$nlinks] = $type;
X                               $names[$nlinks] = "$name\t";
X                               $viahosts[$nlinks] = "$viahost\t";
X                       }
X                       print("#         $name: $path\t$host\t$port\t$type\n") if $debug;
X               } else {
X                       print("#         ^ BAD MATCH: $_\n");
X               }
X       }
X       close(N);
X}
Xundef(%links);         # don't need this any more...
X
X# Now unroll our data structures and generate a report in the form of
X# a Gopher ".links" file.
Xfor ($l = 1; $l <= $nlinks; $l++ ) {
X       @thesenames = split(/\t/, $names[$l]);
X       @theseviahosts = split(/\t/, $viahosts[$l]);
X       print("\nName=$thesenames[0]\n#     from $theseviahosts[0]\n");
X       print("Path=$paths[$l]\n");
X       print("Host=$hosts[$l]\n");
X       print("Port=$ports[$l]\n");
X       print("Type=$types[$l]\n");
X       for ($i = 1; $i <= $#thesenames; $i++) {
X               print("#Also $thesenames[$i]\n");
X               print("#     from $theseviahosts[$i]\n");
X       }
X}
X
X#----------------------------------------------------------------------------
X# Normalize a gopher link prior to saving it in %linktab.
X# Our goal here is largely to resolve duplicates, but we also translate
X# some links to remote servers to use local ones if possible.
X#
X# Global variables used:
X#      $host $name $path $port $type
X#      $go4gwhost $go4gwport @go4gwserv
X#      $waisdir $waishost $waispath $waisport
X
Xsub normalize {
X       local($firstchar, $service, $waissrc);
X
X       # Try to resolve WAIS sources to something available locally.
X       # Look in both $waisdir and subdirectories based on its first char.
X       if ($type eq "7" && $path =~ m#waissrc:.*/([^/*]+.src)#) {
X               # WAIS source -- is this available locally?
X               $waissrc = $1;
X               $firstchar = substr($waissrc, 0, 1);
X               $firstchar =~ tr/A-Z/a-z/;
X               if (-d $waisdir && -f "$waisdir/$waissrc") {
X                       $host = $waishost;
X                       $port = $waisport;
X                       $path = "waissrc:$waispath/$waissrc";
X               } elsif (-d "$waisdir/$firstchar" &&
X                               -f "$waisdir/$firstchar/$waissrc") {
X                       $host = $waishost;
X                       $port = $waisport;
X                       $path = "waissrc:$waispath/$firstchar/$waissrc";
X               }
X       }
X
X       # Try to resolve remote go4gw gateways to the local one.
X       # (Note: this could backfire if there are non-go4gw paths which
X       # look like go4gw ones.)
X       if ($go4gwhost) {
X               ($service) = $path =~ /^(\w*)/;
X               if ($service && grep(/$service/, @go4gwserv)) {
X                       $host = $go4gwhost;
X                       $port = $go4gwport;
X               }
X       }
X       if ($path =~ /^nntp / && $nntphost && $nntpport) {
X               $host = $nntphost;
X               $port = $nntpport;
X       }
X
X       # TO DO: substitute a local g2ftp gateway.
X}
X
X#----------------------------------------------------------------------------
Xsub tcpconnect {                    #Get TCP info in place
X   local($host, $hostname) = @_;
X   $sockaddr = 'S n a4 x8';
X
X
X   ($name,$aliases,$proto) = getprotobyname('tcp');
X   ($name,$aliases,$port) = getservbyname($port, 'tcp')
X        unless $port =~ /^\d+$/;
X   ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
X   ($name,$aliases,$type,$len,$thataddr) = gethostbyname($host);
X
X   $this = pack($sockaddr, &AF_INET, 0, $thisaddr);
X   $that = pack($sockaddr, &AF_INET, $port, $thataddr);
X
X   sleep(2);
X
X   #socket(N, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
X   #bind(N, $this)                            || die "bind: $!";
X   #connect(N, $that)                         || die "connect: $!";
X   socket(N, &PF_INET, &SOCK_STREAM, $proto) || return 0;
X   bind(N, $this)                            || return 0;
X   connect(N, $that)                         || return 0;
X
X   return(N);
X}
X#----------------------------------------------------------------------------
X# end of linkmerge
END_OF_FILE
if test 14022 -ne `wc -c <'linkmerge'`; then
   echo shar: \"'linkmerge'\" unpacked with wrong size!
fi
chmod +x 'linkmerge'
# end of 'linkmerge'
fi
if test -f 'linkmerge-weekly' -a "${1}" != "-c" ; then
 echo shar: Will not clobber existing file \"'linkmerge-weekly'\"
else
echo shar: Extracting \"'linkmerge-weekly'\" \(15240 characters\)
sed "s/^X//" >'linkmerge-weekly' <<'END_OF_FILE'
X#!/bin/csh -f
X#
X# linkmerge-weekly -- weekly run of linkmerge from cron to generate
X#                     RiceInfo's "Information by Subject Area" subtree
X#
X# THIS IS JUST A MODEL!!  You should re-write it considerably to meet
X# your own site's needs.
X#
X# History:
X# 03/18/93  PASR  Original version.
X# 04/09/93  PASR  Added some directories from the Well.
X#
X#---------------------------------------------------------------------
X
Xset MERGE="/chico-b/cwis/bin/linkmerge"
Xset SUBJDIR="/chico-b/cwis/gopher/world/Subject"
X
Xif ( -f $SUBJDIR/Aerospace/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Aerospace/.mergelinks $SUBJDIR/.oldlinks/Aerospace
Xendif
X$MERGE > $SUBJDIR/Aerospace/.mergelinks <<'EOF'
Xmerge  1/catalog/aero  flubber.ciesin.org      70
X'EOF'
X
Xif ( -f $SUBJDIR/Agriculture/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Agriculture/.mergelinks $SUBJDIR/.oldlinks/Agriculture
Xendif
X$MERGE > $SUBJDIR/Agriculture/.mergelinks <<'EOF'
Xmerge  1/.dir/ams.taes.ag.resource     tamuts.tamu.edu 70
Xmerge  1/catalog/Agriculture   flubber.ciesin.org      70
Xmerge  1/catalog/Forestry      flubber.ciesin.org      70
Xmerge  1/Wide Area Information Services databases/Agriculture  pinus.slu.se    70
Xmerge  1/Selected/Agriculture  hunter.unr.edu  70
X'EOF'
X
Xif ( -f $SUBJDIR/Anth/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Anth/.mergelinks $SUBJDIR/.oldlinks/Anth
Xendif
X$MERGE > $SUBJDIR/Anth/.mergelinks <<'EOF'
Xmerge  1/.dir/ethnic.dir       tamuts.tamu.edu 70
Xmerge  1/Wide Area Information Services databases/Anthropology pinus.slu.se    70
X'EOF'
X
Xif ( -f $SUBJDIR/Arts/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Arts/.mergelinks $SUBJDIR/.oldlinks/Arts
Xendif
X$MERGE > $SUBJDIR/Arts/.mergelinks <<'EOF'
Xmerge  1/.dir/fineart.dir      tamuts.tamu.edu 70
Xmerge  1/.dir/music.dir        tamuts.tamu.edu 70
Xmerge  1/Subject Tree/Arts     sunic.sunet.se  70
Xmerge  1/library/disciplines/arts      dewey.lib.ncsu.edu      70
Xmerge  1/art   nkosi.well.sf.ca.us     70
X'EOF'
X
Xif ( -f $SUBJDIR/Astronomy/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Astronomy/.mergelinks $SUBJDIR/.oldlinks/Astronomy
Xendif
X$MERGE > $SUBJDIR/Astronomy/.mergelinks <<'EOF'
Xmerge  1/.dir/astronomy.dir    tamuts.tamu.edu 70
Xmerge  1/catalog/Astronomy     flubber.ciesin.org      70
Xmerge  1/library/disciplines/astronomy dewey.lib.ncsu.edu      70
X'EOF'
X
Xif ( -f $SUBJDIR/Biology/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Biology/.mergelinks $SUBJDIR/.oldlinks/Biology
Xendif
X# The helix stop entry is for Current Contents.
X$MERGE > $SUBJDIR/Biology/.mergelinks <<'EOF'
Xmerge  1/topic weeds.mgh.harvard.edu   70
Xmerge  1/.dir/biology.dir      tamuts.tamu.edu 70
Xmerge  1/.dir/botany.dir       tamuts.tamu.edu 70
Xmerge  1/catalog/Biology       flubber.ciesin.org      70
Xmerge  1/Wide Area Information Services databases/Biology      pinus.slu.se    70
Xstop   1/      helix.nih.gov   72
X'EOF'
X
X#if ( -f $SUBJDIR/Census/.mergelinks ) then
X#      /bin/mv -f $SUBJDIR/Census/.mergelinks $SUBJDIR/.oldlinks/Census
X#endif
X#$MERGE > $SUBJDIR/Census/.mergelinks <<'EOF'
X#merge 1/.dir/census.dir       tamuts.tamu.edu 70
X#'EOF'
X
Xif ( -f $SUBJDIR/Chemistry/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Chemistry/.mergelinks $SUBJDIR/.oldlinks/Chemistry
Xendif
X$MERGE > $SUBJDIR/Chemistry/.mergelinks <<'EOF'
Xmerge  1/.dir/chemistry.dir    tamuts.tamu.edu 70
Xmerge  1/catalog/Chemistry     flubber.ciesin.org      70
Xmerge  1/library/disciplines/chemistry dewey.lib.ncsu.edu      70
X'EOF'
X
Xif ( -f $SUBJDIR/Computing/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Computing/.mergelinks $SUBJDIR/.oldlinks/Computing
Xendif
X$MERGE > $SUBJDIR/Computing/.mergelinks <<'EOF'
Xmerge  1/Computer      chico.rice.edu  70
Xmerge  1/.dir/compsci.dir      tamuts.tamu.edu 70
Xmerge  1/.dir/computing.dir    tamuts.tamu.edu 70
Xmerge  1/catalog/computers     flubber.ciesin.org      70
Xmerge  1/catalog/computing     flubber.ciesin.org      70
Xmerge  1/library/disciplines/computer  dewey.lib.ncsu.edu      70
Xmerge  1/Wide Area Information Services databases/computers-and-software       pinus.slu.se    70
Xmerge  1/Selected/Computing    hunter.unr.edu  70
X'EOF'
X
Xif ( -f $SUBJDIR/Economics/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Economics/.mergelinks $SUBJDIR/.oldlinks/Economics
Xendif
X$MERGE > $SUBJDIR/Economics/.mergelinks <<'EOF'
Xmerge  1/.dir/economics.dir    tamuts.tamu.edu 70
Xmerge  1/catalog/Economics     flubber.ciesin.org      70
X'EOF'
X
Xif ( -f $SUBJDIR/Education/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Education/.mergelinks $SUBJDIR/.oldlinks/Education
Xendif
X$MERGE > $SUBJDIR/Education/.mergelinks <<'EOF'
Xmerge  1/.dir/education.dir    tamuts.tamu.edu 70
Xmerge  1/catalog/Education     flubber.ciesin.org      70
Xmerge  1/Wide Area Information Services databases/Education    pinus.slu.se    70
Xmerge  1/Subject Tree/Learning Sciences        sunic.sunet.se  70
Xmerge  1/Selected/Schools      hunter.unr.edu  70
X'EOF'
X
Xif ( -f $SUBJDIR/Environment/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Environment/.mergelinks $SUBJDIR/.oldlinks/Environment
Xendif
X$MERGE > $SUBJDIR/Environment/.mergelinks <<'EOF'
Xmerge  1/.dir/material.safety.dir      tamuts.tamu.edu 70
Xmerge  1/catalog/Environment   flubber.ciesin.org      70
Xmerge  1/Wide Area Information Services databases/envsci       pinus.slu.se    70
Xmerge  1/Environment   nkosi.well.sf.ca.us     70
X'EOF'
X
Xif ( -f $SUBJDIR/Geography/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Geography/.mergelinks $SUBJDIR/.oldlinks/Geography
Xendif
X$MERGE > $SUBJDIR/Geography/.mergelinks <<'EOF'
Xmerge  1/catalog/Geography     flubber.ciesin.org      70
Xmerge  1/catalog/earth flubber.ciesin.org      70
Xmerge  1/Selected/Geography    hunter.unr.edu  70
X'EOF'
X
Xif ( -f $SUBJDIR/Geology/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Geology/.mergelinks $SUBJDIR/.oldlinks/Geology
Xendif
X$MERGE > $SUBJDIR/Geology/.mergelinks <<'EOF'
Xmerge  1/catalog/geology       flubber.ciesin.org      70
Xmerge  1/library/disciplines/earth     dewey.lib.ncsu.edu      70
X'EOF'
X
Xif ( -f $SUBJDIR/Government/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Government/.mergelinks $SUBJDIR/.oldlinks/Government
Xendif
X$MERGE > $SUBJDIR/Government/.mergelinks <<'EOF'
Xmerge  1/.dir/polsci.dir       tamuts.tamu.edu 70
Xmerge  1/.dir/law.dir  tamuts.tamu.edu 70
Xmerge  1/.dir/govt.dir tamuts.tamu.edu 70
Xmerge  1/catalog/Government    flubber.ciesin.org      70
Xmerge  1/catalog/Law   flubber.ciesin.org      70
Xmerge  1/catalog/Politics      flubber.ciesin.org      70
Xmerge  1/library/disciplines/government        dewey.lib.ncsu.edu      70
Xmerge  1/English/Topics/Civil-liberties        otax.tky.hut.fi 70
Xmerge  1/Subject Tree/Law      sunic.sunet.se  70
Xmerge  1/Subject Tree/Politics sunic.sunet.se  70
Xmerge  1/Politics      nkosi.well.sf.ca.us     70
X'EOF'
X
Xif ( -f $SUBJDIR/Grants/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Grants/.mergelinks $SUBJDIR/.oldlinks/Grants
Xendif
X$MERGE > $SUBJDIR/Grants/.mergelinks <<'EOF'
Xmerge  1/ogp   ricevm1.rice.edu        70
Xmerge  1/osr   ricevm1.rice.edu        70
Xmerge  1/.dir/research.opport.dir      tamuts.tamu.edu 70
Xmerge  1/Subject Tree/Grants and Funding       sunic.sunet.se  70
Xmerge  1/Selected/Funding      hunter.unr.edu  70
X'EOF'
X
Xif ( -f $SUBJDIR/History/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/History/.mergelinks $SUBJDIR/.oldlinks/History
Xendif
X$MERGE > $SUBJDIR/History/.mergelinks <<'EOF'
Xmerge  1/catalog/History       flubber.ciesin.org      70
Xmerge  1/library/disciplines/history   dewey.lib.ncsu.edu      70
X'EOF'
X
Xif ( -f $SUBJDIR/Language/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Language/.mergelinks $SUBJDIR/.oldlinks/Language
Xendif
X$MERGE > $SUBJDIR/Language/.mergelinks <<'EOF'
Xmerge  1/Wide Area Information Services databases/Linguistic   pinus.slu.se    70
Xmerge  1/Subject Tree/Linguistics      sunic.sunet.se  70
X'EOF'
X
Xif ( -f $SUBJDIR/LibSci/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/LibSci/.mergelinks $SUBJDIR/.oldlinks/LibSci
Xendif
X$MERGE > $SUBJDIR/LibSci/.mergelinks <<'EOF'
Xmerge  1/.dir/librsubj.dir     tamuts.tamu.edu 70
Xmerge  1/catalog/infoscience   flubber.ciesin.org      70
Xmerge  1/library/disciplines/library   dewey.lib.ncsu.edu      70
Xmerge  1/Subject Tree/Library Science  sunic.sunet.se  70
X'EOF'
X
Xif ( -f $SUBJDIR/LitBooks/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/LitBooks/.mergelinks $SUBJDIR/.oldlinks/LitBooks
Xendif
X$MERGE > $SUBJDIR/LitBooks/.mergelinks <<'EOF'
Xmerge  1/Ebooks/By Title       joeboy.micro.umn.edu    70
Xmerge  1/.dir/journalism.dir   tamuts.tamu.edu 70
Xmerge  1/library/disciplines/literature        dewey.lib.ncsu.edu      70
Xmerge  1/Wide Area Information Services databases/Literature   pinus.slu.se    70
X'EOF'
X
Xif ( -f $SUBJDIR/Math/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Math/.mergelinks $SUBJDIR/.oldlinks/Math
Xendif
X$MERGE > $SUBJDIR/Math/.mergelinks <<'EOF'
Xmerge  1/.dir/math.dir tamuts.tamu.edu 70
Xmerge  1/catalog/Mathematics   flubber.ciesin.org      70
Xmerge  1/library/disciplines/math      dewey.lib.ncsu.edu      70
Xmerge  1/Subject Tree/Mathematics      sunic.sunet.se  70
X'EOF'
X
Xif ( -f $SUBJDIR/Medicine/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Medicine/.mergelinks $SUBJDIR/.oldlinks/Medicine
Xendif
X$MERGE > $SUBJDIR/Medicine/.mergelinks <<'EOF'
Xmerge  1/.dir/medicine.dir     tamuts.tamu.edu 70
Xmerge  1/.dir/nutrition.dir    tamuts.tamu.edu 70
Xmerge  1/catalog/Health        flubber.ciesin.org      70
Xmerge  1/catalog/Nutrition     flubber.ciesin.org      70
Xmerge  1/library/disciplines/medicine  dewey.lib.ncsu.edu      70
Xmerge  1/Wide Area Information Services databases/Medicine     pinus.slu.se    70
Xmerge  1/Subject Tree/Medicine sunic.sunet.se  70
Xmerge  1/Selected/Biomedical   hunter.unr.edu  70
Xstop   1/med/AM-J-FOREN        next1.acs.umn.edu       3333
Xstop   1/med/AM-J-IND-M        next1.acs.umn.edu       3333
Xstop   1/ag/ANAT-HISTOL        next1.acs.umn.edu       3333
Xstop   1/lif/B-EXP-B-MED       next1.acs.umn.edu       3333
Xstop   1/med/CENT-AFR-J        next1.acs.umn.edu       3333
Xstop   1/lif/DEVELOP-MED       next1.acs.umn.edu       3333
Xstop   1/lif/J-INTERN-M        next1.acs.umn.edu       3333
Xstop   1/med/J-INTERN-M        next1.acs.umn.edu       3333
Xstop   1/soc/J-PUBL-H-M        next1.acs.umn.edu       3333
Xstop   1/med/J-PUBL-H-M        next1.acs.umn.edu       3333
Xstop   1/med/J-SPORT-MED       next1.acs.umn.edu       3333
Xstop   1/med/J-ROY-S-MED       next1.acs.umn.edu       3333
Xstop   1/lif/J-ROY-S-MED       next1.acs.umn.edu       3333
Xstop   1/ag/J-VET-MED-B        next1.acs.umn.edu       3333
Xstop   1/med/MT-SINAI-J        next1.acs.umn.edu       3333
Xstop   1/med/N-ENG-J-MED       next1.acs.umn.edu       3333
Xstop   1/lif/N-ENG-J-MED       next1.acs.umn.edu       3333
Xstop   1/lif/NUCL-MED-BI       next1.acs.umn.edu       3333
Xstop   1/lif/STAT-MED  next1.acs.umn.edu       3333
Xstop   0/med/CENT-AFR-J/0/TRADITIONAL-MEDICINE next1.acs.umn.edu       3333    0
Xstop   1/lif/TREND-CARD        next1.acs.umn.edu       3333
Xstop   1/lif/YALE-J-BIOL       next1.acs.umn.edu       3333
X'EOF'
X
Xif ( -f $SUBJDIR/Networks/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Networks/.mergelinks $SUBJDIR/.oldlinks/Networks
Xendif
X$MERGE > $SUBJDIR/Networks/.mergelinks <<'EOF'
Xmerge  1/Computer/AroundTheNet/Networks        chico.rice.edu  70
Xmerge  1/catalog/network       flubber.ciesin.org      70
X'EOF'
X
Xif ( -f $SUBJDIR/Oceanography/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Oceanography/.mergelinks $SUBJDIR/.oldlinks/Oceanography
Xendif
X$MERGE > $SUBJDIR/Oceanography/.mergelinks <<'EOF'
Xmerge  1/catalog/Oceanography  flubber.ciesin.org      70
X'EOF'
X
Xif ( -f $SUBJDIR/Physics/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Physics/.mergelinks $SUBJDIR/.oldlinks/Physics
Xendif
X$MERGE > $SUBJDIR/Physics/.mergelinks <<'EOF'
Xmerge  1/.dir/physics.dir      tamuts.tamu.edu 70
Xmerge  1/catalog/Physics       flubber.ciesin.org      70
Xmerge  1/library/disciplines/physics   dewey.lib.ncsu.edu      70
X'EOF'
X
Xif ( -f $SUBJDIR/RelPhil/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/RelPhil/.mergelinks $SUBJDIR/.oldlinks/RelPhil
Xendif
X$MERGE > $SUBJDIR/RelPhil/.mergelinks <<'EOF'
Xmerge  1/.dir/religion.dir     tamuts.tamu.edu 70
Xmerge  1/.dir/philosophy.dir   tamuts.tamu.edu 70
Xmerge  1/library/disciplines/religion  dewey.lib.ncsu.edu      70
Xmerge  1/Subject Tree/Philosophy       sunic.sunet.se  70
X'EOF'
X
Xif ( -f $SUBJDIR/SocPsy/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/SocPsy/.mergelinks $SUBJDIR/.oldlinks/SocPsy
Xendif
X$MERGE > $SUBJDIR/SocPsy/.mergelinks <<'EOF'
Xmerge  1/.dir/psychology.dir   tamuts.tamu.edu 70
Xmerge  1/library/disciplines/social    dewey.lib.ncsu.edu      70
Xstop   nntp ls soc     riceinfo.rice.edu       1103
Xstop   1/soc   msuinfo.cl.msu.edu      70
X'EOF'
X
Xif ( -f $SUBJDIR/Weather/.mergelinks ) then
X       /bin/mv -f $SUBJDIR/Weather/.mergelinks $SUBJDIR/.oldlinks/Weather
Xendif
X$MERGE > $SUBJDIR/Weather/.mergelinks <<'EOF'
Xstop   0/Weather/About chico.rice.edu  70
Xmerge  1/Weather       chico.rice.edu  70
Xmerge  1/.dir/weather.dir      tamuts.tamu.edu 70
Xmerge  1/catalog/weather       flubber.ciesin.org      70
Xmerge  1/catalog/climate       flubber.ciesin.org      70
X'EOF'
X
Xexit
X
X##########################################################################
X#
X# Leftovers -- subject directories from various sources which couldn't be
X# fit into the above scheme
X
X# ciesin leftovers
X1Energy 1/catalog/Energy       flubber.ciesin.org      70
X1Humanities    1/catalog/Humanities    flubber.ciesin.org      70
X1Libraries     1/catalog/Libraries     flubber.ciesin.org      70
X1Molecular Biology     1/catalog/molecular     flubber.ciesin.org      70
X1Science       1/catalog/Science       flubber.ciesin.org      70
X1Social Science 1/catalog/social       flubber.ciesin.org      70
X1Society and Culture   1/catalog/society       flubber.ciesin.org      70
X
X# ncsu leftovers
X1Agriculture and Biology       1/library/disciplines/agriculture       dewey.lib.ncsu.edu      70
X1Earth Science 1/library/disciplines/earth     dewey.lib.ncsu.edu      70
X
X# pinus leftovers
X#1Archie databases     1/Wide Area Information Services databases/archie-dbs   pinus.slu.se    70
X#1Bibliographies 1/Wide Area Information Services databases/Bibliographies     pinus.slu.se    70
X#1FTP archives 1/Wide Area Information Services databases/ftp-archives pinus.slu.se    70
X#1Graphics     1/Wide Area Information Services databases/Graphics     pinus.slu.se    70
X#1Library catalogues   1/Wide Area Information Services databases/library-catalogues   pinus.slu.se    70
X#1Miscellaneous        1/Wide Area Information Services databases/Miscellaneous        pinus.slu.se    70
X#1Newsgroup and Mailing-list archives  1/Wide Area Information Services databases/newsgroup-archives   pinus.slu.se    70
X#1Pacific Studies      1/Wide Area Information Services databases/pacstud      pinus.slu.se    70
X#1Social Science 1/Wide Area Information Services databases/socsci     pinus.slu.se    70
X#1Whois        1/Wide Area Information Services databases/Whois        pinus.slu.se    70
X
X# sunet leftovers
X#0A_List_of_Contents   0/Subject Tree/A_List_of_Contents       sunic.sunet.se  70
X#0About the Subject Tree 0/Subject Tree/About the Subject Tree sunic.sunet.se  70
X#1Biology subject tree 1/      gopher.embnet.unibas.ch 70
X#1Conferences, (from Norway)   1/Subject Tree/Conferences, (from Norway)       sunic.sunet.se  70
X#1Drugs        1/English/Topics/Drugs  otax.tky.hut.fi 70
X#1Geography and Oceanography   1/Subject Tree/Geography and Oceanography       sunic.sunet.se  70
X#1LPF  1/English/Topics/LPF    otax.tky.hut.fi 70
X#1Linux        1/English/Topics/Linux  otax.tky.hut.fi 70
X#1Networking and Computing     1/Subject Tree/Networking and Computing sunic.sunet.se  70
X#1On Usenet    1/Subject Tree/On Usenet        sunic.sunet.se  70
X#1WAIS Subject Tree (via SLU, Sweden)  1/Wide Area Information Services databases      pinus.slu.se    70
X#1Weather-Astronomy-Navigation 1/Subject Tree/Weather-Astronomy-Navigation     sunic.sunet.se  70
X
X# unr leftovers
X#1Humanities   1/Selected/Humanities   hunter.unr.edu  70
X#1Science      1/Selected/Science      hunter.unr.edu  70
X#1Social Sciences      1/Selected/Social       hunter.unr.edu  70
X
X# tamu leftovers
X#1Bulletin Boards      1/.dir/bbs.dir  tamuts.tamu.edu 70
X#      1/.dir/census.dir       tamuts.tamu.edu 70
X#1Comics 1/.dir/comics.dir     tamuts.tamu.edu 70
X#1Disability Information 1/.dir/disability.dir tamuts.tamu.edu 70
X#1Earth Science        1/.dir/earthsci.dir     tamuts.tamu.edu 70
X#1Images 1/.dir/images.dir     tamuts.tamu.edu 70
X#1Software     1/.dir/software.dir     tamuts.tamu.edu 70
X#1Sounds 1/.dir/sounds.dir     tamuts.tamu.edu 70
X#1Subject Listings from other Gopher Servers   1/.dir/subject.gophers.dir      tamuts.tamu.edu 70
X#1Transportation 1/.dir/transportation.dir     tamuts.tamu.edu 70
X#1Travel 1/.dir/travel.dir     tamuts.tamu.edu 70
X
X# end of linkmerge-weekly script
END_OF_FILE
if test 15240 -ne `wc -c <'linkmerge-weekly'`; then
   echo shar: \"'linkmerge-weekly'\" unpacked with wrong size!
fi
chmod +x 'linkmerge-weekly'
# end of 'linkmerge-weekly'
fi
echo shar: End of shell archive.
exit 0

You are viewing proxied material from gopher.meulie.net. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.