Hello All
This little script shows up a bug in MD-II. But also allows you to
re-combine files split across more tham one message. Just make sure MD-II is
saving the first part to 'T:' else it will not work.
Happy new year, to all.
--- 8< -- Cut Here -- 8< ---
/*
$VER: 0.02 JoinTheParts_MD.rx (26-12-2000)
$AUTHOR: by Jules <[EMAIL PROTECTED]> �2000
$DESCRIPTION: Stick Uudecode attachments back together.
This script should join the parts of a file which has been
split across a number of messages, I hope.
Libraries:
ixemul.library (v48)
reqtools.library (v37,1413)
rexxreqtools.library (v38)
Command:
Uudecode (on Aminet, search slrn in News/Comm)
Instructions:
1) Select but do not open the first part of the file; it must contain
the the starting boundary.
2) Run the script.
3) Enter the number of parts in the first reqester, or if you
run it from a 'shell', give the number as an argument.
4) Make sure that the first part is saved to T:
Note:
Just 'OK', or press 'Return', the file save requesters, MD-II will
not save a file if I use the 'NOREQ' option, BUG!
*/
OPTIONS RESULTS
PARSE ARG PICOUNT
IF PICOUNT <1 THEN DO
USINGREQTOOLS=0
NL = '0a'x
CALL ADDLIB("libs:rexxreqtools.library", 0, -30, 0)
CALL RTGETLONG('2','How many parts'NL'do you wish to join','Come togerther right now',
,"_Yes please|_No thank you",'RTGL_MIN=2 RTGL_MAX=99')
IF RTRESULT~=1 THEN DO ; EXIT ; END
PICOUNT=RESULT
USINGREQTOOLS=1
END
IF PICOUNT<2 THEN EXIT
CALL PRAGMA 'DIRECTORY','T:'
ADDRESS MD.1
ExtractSelectedMsgs File 'EXTRACTEDFILE'
DO EE=2 TO PICOUNT
GOTOMSG NEXT ; ExtractSelectedMsgs File 'EXTRACTEDFILE' PART 1 APPEND
END
ADDRESS COMMAND 'WAIT'
CALL PRAGMA 'DIRECTORY','RAM:'
ADDRESS COMMAND 'C:uudecode T:EXTRACTEDFILE >NIL:'
CALL PRAGMA 'DIRECTORY','SYS:'
IF USINGREQTOOLS=1 THEN CALL rtezrequest('All done.',"Thank you")
ELSE SAY 'Complete.'
ADDRESS COMMAND "C:DELETE T:EXTRACTEDFILE QUIET >NIL:"
EXIT
--- 8< -- And Here -- 8< ---
--
Regards
Jules
--
I will not say Springfield just to get applause
-- Bart Simpson
__________________________________________________________________
MicroDot-II Mailing List - http://www.vapor.com/md2/
MicroDot-II FAQ: http://faq.vapor.com/md2/
Listserver Help: mailto:[EMAIL PROTECTED]?Subject=HELP
Unsubscribe....: mailto:[EMAIL PROTECTED]?Subject=UNSUBSCRIBE
