home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2 / Openstep-4.2-Intel-User.iso / NextLibrary / PrivateFrameworks / Uucp.framework / Versions / A / Resources / contrib / uuxconv < prev    next >
Text File  |  1993-08-29  |  1KB  |  51 lines
  1. #!/bin/sh
  2. #
  3. # uuxconv
  4. #
  5. # After converting to Taylor from SVR4.03 UUCP, I still had a lot of
  6. # jobs queued up to go out.
  7. #
  8. # This script is a one-shot to mass-requeue a site's spool.
  9. #
  10. # It doesn't go and do your whole spool, nor even all grades.
  11. # you need to go into each grade directory for each site and 
  12. # execute this.
  13. #
  14. # i.e.:  You have a site named 'foo'
  15. # cd /var/spool/uucp/foo/Z
  16. # uuxconv foo
  17. # 
  18. # it does delete the 'D' & 'X' after requeing them, but doesn't remove
  19. # the 'C' files.
  20. #
  21. # I foolishly went and ran this script on all my queued jobs, without
  22. # adding the improvements to recursively go through the entire UUCP spool,
  23. # so now I'm out of files to test with.  I don't want to add the code
  24. # to do that since I can't test it, and this worked.
  25. #
  26. # I hereby give this (trivial :-)) program to the GNU Project/FSF
  27. # and Ian Taylor in it's entirety, so that it can be placed in
  28. # the contrib directory of taylor-uucp, and save others the pain
  29. # of rewriting it.
  30. #
  31. # Richard Nickle (rick@trystro.uucp, rnickle@gnu.ai.mit.edu)
  32. # May 27, 1993
  33. #
  34. if [ $# -eq 0 ]
  35. then
  36.     echo "Usage: $0 sitename"
  37.     exit 1
  38. fi
  39. exit 0
  40. site=$1
  41. tsite=`echo $site | cut -c1-5`
  42. find . -name "D.$tsite*" -print |
  43. while read file
  44. do
  45.     control=`egrep "^C" $file | cut -c3-`
  46.     input=`egrep "^I" $file | cut -c3-`
  47.     (uux - -r -z $site!$control < $input) && (rm $file $input)
  48.     echo "$site!$control < $input"
  49. done
  50. exit 0
  51.