home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #5
/
AmigaPlus_Extra-CD_5-97.iso
/
online-tools
/
mail
/
netmail
/
drivers
/
amipop.mailget
next >
Wrap
Text File
|
1995-09-30
|
1KB
|
37 lines
/*
** $VER: AmiPOP.mailget 1.3 (30.9.95)
** Copyright (c) 1995 Riccardo Solmi
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
PARSE ARG email, user, pwd, host, mbox, flags
flags = UPPER(flags)
IF user = "" | pwd = "" | host = "" | mbox = "" THEN RETURN 1
cmd = 'AmiTCP:bin/AmiPOP'
IF ~EXISTS(cmd) THEN DO
cmd = GetVar('NetMail/AmiPOPCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/AmiPOPCmd `Which "AmiPOP"`'
cmd = GetVar('NetMail/AmiPOPCmd')
IF cmd = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/AmiPOPCmd `RequestFile Title "Select AmiPOP command" Noicons`'
cmd = GetVar('NetMail/AmiPOPCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/AmiPOPCmd ENVARC:NetMail/AmiPOPCmd'
END
END
END
parms1 = 'Username "'user'" Password "'pwd'" POPHost "'host'" Mailbox "'mbox'"'
parms2 = 'APPEND QUIET ONCE'
IF INDEX(flags, 'LEAVE') = 0 THEN parms2 = parms2 'DELETE'
parms2 = parms2 'NOWINDOW'
ADDRESS COMMAND '"'cmd'"' parms1 parms2
RETURN RC