home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / elm / elm2.4 / utils / printmail.SH < prev    next >
Encoding:
Text File  |  1992-10-03  |  832 b   |  40 lines
  1. case $CONFIG in
  2. '')
  3.     if test ! -f config.sh; then
  4.     ln ../config.sh . || \
  5.     ln ../../config.sh . || \
  6.     ln ../../../config.sh . || \
  7.     (echo "Can't find config.sh."; exit 1)
  8.     fi
  9.     . ./config.sh
  10.     ;;
  11. esac
  12. case "$0" in
  13. */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  14. esac
  15.  
  16. echo "Extracting utils/printmail (with variable substitutions)"
  17. echo $startsh > printmail
  18. cat >>printmail <<'!NO!SUBS!'
  19. # printmail: part of the Elm mail system
  20. # @(#)$Id: printmail.SH,v 5.1 1992/10/04 00:46:45 syd Exp $
  21. #        Copyright (c) 1988-1992 USENET Community Trust
  22. #         Copyright (c) 1986,1987 Dave Taylor
  23.  
  24. if [ "$1" = "-p" ]; then
  25.   flags="-p";shift
  26. fi
  27.  
  28. if [ "$1" != "" ]; then
  29.   if [ ! -r $1 ]; then
  30.     echo printmail: cannot open folder $1 1>&2
  31.     exit 1
  32.   else
  33.     flags="$flags -f $1"
  34.   fi
  35. fi
  36.  
  37. # and now invoke readmsg
  38. exec readmsg $flags \*
  39. !NO!SUBS!
  40.