home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / Arn103a.lha / c / sendm
Encoding:
AmigaDOS Script File  |  1993-02-07  |  582 b   |  29 lines
  1. .key mailfile/a,username
  2. .bra {
  3. .ket }
  4. .dot ~
  5.  
  6. ; This script is only for archiving outgoing mail
  7. ; It is stored in $maildir/$archive
  8.  
  9. set maildir= "T:folders"
  10. set archive= "mail.sent"
  11. IF exists "{mailfile}"
  12.  IF NOT exists $maildir
  13.     makedir $maildir
  14.  ENDIF
  15.  echo >>$maildir/$archive From rob (ARCHIVE)
  16.  echo >>$maildir/$archive "Date: " NOLINE
  17.  date >>$maildir/$archive
  18.  type >>$maildir/$archive "{mailfile}"
  19.  IF "{username}" EQ ""
  20.     sendmail <{mailfile}
  21.  ELSE
  22.     sendmail <{mailfile} -f "{username}"
  23.  ENDIF
  24. ELSE
  25.  echo "{mailfile} not found!"
  26. ENDIF
  27. unset maildir
  28. unset archive
  29.