home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume12 / unpackmaps3.0 / part01 / uuwhere < prev   
Encoding:
Text File  |  1990-05-14  |  852 b   |  44 lines
  1. :
  2. #    Copyright 1990, Chris Lewis, All Rights Reserved
  3. MAPDIR=/usr/spool/news/maps
  4. WHEREFILE=$MAPDIR/where.db
  5. COMPRESS=/usr2/clewis/maps/compress12
  6.  
  7. if [ $1 = "-v" ]
  8. then
  9.     verbose=1
  10.     shift
  11. fi
  12. for i
  13. do
  14.     echo Searching for $i
  15.     if [ -n "$verbose" ]
  16.     then
  17.     list=`sed -n -e "/^$i/s/[     ][     ]*/:/gp" $WHEREFILE`
  18.     for j in $list
  19.     do
  20.         eval `echo $j | sed -e 's/\([^:]*\):\([^:]*\):\(.*\)/s=\1 f=\2 l=\3/p'`
  21.         echo $s $f $l
  22.         numlist=`echo $l | sed -e 's/[, ][, ]*/ /g'`
  23.         for l in $numlist
  24.         do
  25.         echo "Found $s in $f at line $l"
  26.         if [ -n "$f" -a -n "$l" ]
  27.         then
  28.             if [ -r $MAPDIR/$f ]
  29.             then
  30.             cat $MAPDIR/$f
  31.             elif [ -r $MAPDIR/$f.Z ]
  32.             then
  33.             $COMPRESS -dc $MAPDIR/$f.Z
  34.             else
  35.             echo "No such file $f" >&2
  36.             fi | sed -n -e "$l,/^#N/p"
  37.         fi
  38.         done
  39.     done
  40.     else
  41.     grep "^$i" $WHEREFILE
  42.     fi
  43. done
  44.