home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume7 / uunet / get_files next >
Encoding:
Text File  |  1989-06-03  |  662 b   |  28 lines
  1. #!/bin/csh -f
  2. # get_files - by Scott E. Garfinkle (seg@smsdpg.uu.net)
  3. # create and execute uucp commands based on extract from uunet's ls-lR
  4. if($#argv == 1) then
  5.     set fn=$1
  6. else
  7.     set fn=want
  8. endif
  9. set tfile=temp.$$
  10. set tfile2=temp2.$$
  11. cat > $tfile << 'XX'    # sed script
  12. /^$/d
  13. /:$/s// :/
  14. /^d/d
  15. s/^-.*198[6789] //
  16. s/^-.*[0-5][0-9] //
  17. 'XX'
  18. cat > $tfile2 << 'XX'     # awk script
  19. $0 ~ /.*:/ { prefix = $1 }
  20. $0 !~ /.*:/ { printf "%s/%s\n", prefix, $0 }
  21. 'XX'
  22. sed -f $tfile < $fn | awk -f $tfile2 | \
  23.     sed 's;/usr/spool/ftp\(.*\);uucp -d uunet\!\\~uucp\1 ~uucp\1;' | \
  24.     (echo "Executing following commands:" > /dev/tty; tee /dev/tty) | \
  25.     sh -s
  26. rm $tfile $tfile2
  27.  
  28.