home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #5
/
AmigaPlus_Extra-CD_5-97.iso
/
online-tools
/
mail
/
netmail
/
drivers
/
uuinout.encoder
< prev
next >
Wrap
Text File
|
1995-09-30
|
2KB
|
76 lines
/*
** $VER: uuInOut.encoder 1.3 (30.9.95)
** Copyright (c) 1995 Riccardo Solmi
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
IF UPPER(ARG(1)) = 'INFO' THEN RETURN 'UUencode'
cmd1 = 'AmiTCP:bin/uuIn'
IF ~EXISTS(cmd1) THEN DO
cmd1 = GetVar('NetMail/uuInCmd')
IF cmd1 = 0 | ~EXISTS(cmd1) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/uuInCmd `Which "uuIn"`'
cmd = GetVar('NetMail/uuInCmd')
IF cmd = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/uuInCmd `RequestFile Title "Select uuIn command" Noicons`'
cmd1 = GetVar('NetMail/uuInCmd')
IF cmd1 = 0 | ~EXISTS(cmd1) THEN DO
IF UPPER(ARG(1)) = 'ENCODE' THEN RETURN 2
ELSE RETURN ''
END
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/uuInCmd ENVARC:NetMail/uuInCmd'
END
END
END
cmd2 = 'AmiTCP:bin/uuOut'
IF ~EXISTS(cmd2) THEN DO
cmd2 = GetVar('NetMail/uuOutCmd')
IF cmd2 = 0 | ~EXISTS(cmd2) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/uuOutCmd `Which "uuOut"`'
cmd2 = GetVar('NetMail/uuOutCmd')
IF cmd2 = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/uuOutCmd `RequestFile Title "Select uuOut command" Noicons`'
cmd2 = GetVar('NetMail/uuOutCmd')
IF cmd2 = 0 | ~EXISTS(cmd2) THEN DO
IF UPPER(ARG(1)) = 'ENCODE' THEN RETURN 2
ELSE RETURN ''
END
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/uuOutCmd ENVARC:NetMail/uuOutCmd'
END
END
END
SELECT
WHEN UPPER(ARG(1)) = 'ENCODE' THEN DO
PARSE ARG , from, dest, format
ADDRESS COMMAND '"'cmd1'" "'from'" "'dest'"'
RETURN RC
END
WHEN UPPER(ARG(1)) = 'DECODE' THEN DO
PARSE ARG , from, path, format
ADDRESS COMMAND '"'cmd2'" >T:attlist "'from'" "'path'" verbose'
attlist = ''
IF OPEN(fin, 'T:attlist', 'Read') THEN DO
DO WHILE EOF(fin) = 0
line = READLN(fin)
PARSE VAR line 'decoding "' attfile '"'
IF attfile ~= '' THEN attlist = attlist'|'FilePart(attfile)
END
CLOSE(fin)
DeleteFile('T:attlist')
PARSE VAR attlist '|' attlist
END
RETURN attlist
END
OTHERWISE
END
RETURN ''