With reference to 'Kill body script' by Patrick Ford
> I was wrong--it does start Snoopdos. But it seems to get stuck in a loop:
Now that annoying, its as if the file 'T:SnoopMD' is empty, this version of
the script sets just about everything I can think of with 'SnoopDos'. this
new version should not get stuck in a loop. I really didn't intend that you
become a beta-tester. :-)
--
Regards
Jules
--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.
*/
TRACE R
/* 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" ; LOGFORMAT "%255n" ; ENABLE
FUNCTIONS=NONE ; NOCHANGEDIR ; NOSHOWFULLPATH ; NOONLYSHOWFAILS
NOSHOWCLI ; NOMONITORPACKETS ; NOPACKETDEBUGGER ; NOMONITORROMCALLS
IGNORESHELL ; NOUSEDEVICENAMES ; 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< --
__________________________________________________________________
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
