home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / comm / bbs / eazybbs / c / seteazymail < prev    next >
Encoding:
AmigaDOS Script File  |  1995-04-09  |  661 b   |  35 lines
  1. .key user/A
  2. .bra [
  3. .ket ]
  4.  
  5. Assign EXISTS UUMAIL: >nil:
  6. If WARN
  7.     Quit 5
  8. EndIf
  9.  
  10. Set eazyusername `mb:c/unspace "[user]"`
  11.  
  12. MB:C/Exist UULIB:Aliases
  13. If $RC GT 0 VAL
  14.     ;
  15.     ; UULIB:Aliases exists, so we have a sendmail
  16.     ; that supports this file.
  17.     ;
  18.     Search >nil: UULIB:Aliases "${eazyusername}: " QUIET
  19.     If $RC GT 0 VAL
  20.         Echo "${eazyusername}: *"*|mail2eazy [user]*"" >> UULIB:Aliases
  21.     EndIf
  22. Else
  23.     ;
  24.     ; No UULIB:Aliases, so this must be a crazy admin
  25.     ; or we have Feulner's or wusel's sendmail installed.
  26.     ;
  27.     MB:C/Exist "uumail:${eazyusername}"
  28.     If $RC EQ 0 VAL
  29.         Echo "forward to *|mail2eazy *"[user]*"" > "uumail:${eazyusername}"
  30.     EndIf
  31. EndIf
  32.  
  33. Unset eazyusername
  34.  
  35.