With reference to 'Kill body script' by me
> /* Set up Snoopdos */
> FUNCTIONS=NONE
This isn't my week, why I put a '=' between 'Functions' and 'none', I
don't know. Sorry for this folks, lets try again,
-- 8< -- Cut here -- 8< --
/*
$VER: 1.1 KillMessageBody.rx (21-02-2002)
$AUTHOR: by Jules (JA888)� 2000
$DESCRIPTION: Kill message body.
Create a button in your 'Message list window'
'Action' string, put the path of this script
If you've ever had a news post fail to arrive fully and
you want to try to re-fetch it, then you will need to kill
the body of the message.
Instructions
1) If 'Snoopdos' is not in your system path, enter the new path
in this script.
2) Select, but do noy open the message.
3) Run this script, to kill the body.
4) Wait for disk activity to stop.
5) Close and re-open the message, and MD will try to reload the message.
You use this script at your own risk.
*/
/* And the path of Snoopdos. Example SNOOP="SYS:Tools/Snoopdos" */
SNOOP="SNOOPDOS"
/* Check that Microdot is running */
IF ~SHOW('P','MD.1') THEN EXIT
IF EXISTS('T:SnoopMD') THEN ADDRESS COMMAND 'DELETE T:SnoopMD QUIET'
/* Check if SnoopDos is running; if not, then start it */
SNOOPPATH="RUN >NIL: "||SNOOP||" HIDEMETHOD=TOOLSMENU HIDE"
IF ~SHOW('P','SNOOPDOS') THEN DO
ADDRESS COMMAND SNOOPPATH
ADDRESS COMMAND "WAITFORPORT SNOOPDOS"
END
/* Set up Snoopdos */
ADDRESS SNOOPDOS
CLEARBUFFER
FORMAT "%255n"
ENABLE
FUNCTIONS NONE
NOONLYSHOWFAILS
NOSHOWCLI
NOSHOWFULLPATH
NOUSEDEVICENAMES
NOMONITORPACKETS
NOPACKETDEBUGGER
NOMONITORROMCALLS
NOIGNORESHELL
SHOWFULLPATH
OPEN
/* Read the message in MD-II */
ADDRESS MD.1
READSELECTEDMSGS
/* Save the SnoopDos Buffer */
ADDRESS COMMAND 'WAIT 1'
ADDRESS SNOOPDOS
SAVEBUFFER "T:SnoopMD"
DISABLE
ADDRESS COMMAND 'WAIT 1'
QUIT
IF ~EXISTS('T:SnoopMD') THEN EXIT
/* Find the correct line. */
PDRAW=""
CALL OPEN('MD','T:SnoopMD','R')
DO UNTIL EOF('MD')
PDRAW=STRIP(READLN('MD'),'B')
IF POS('DBX_',PDRAW)>0 THEN DO
ADDRESS COMMAND 'DELETE 'PDRAW' QUIET'
LEAVE
END
END
CALL CLOSE('MD')
ADDRESS COMMAND 'DELETE T:SnoopMD QUIET'
EXIT
-- 8< -- Cut here -- 8< --
--
Regards
Jules
__________________________________________________________________
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
