With reference to 'Kill body script' by Patrick Ford
> > If you've ever had a news message only half arrive you'll know that
> > trying to re-fetch it is a pain.
>
> I did have that happen just minutes before I opend you message. What
> a briliant coincidence!
These things happen :)
> It didn't work unless I started Snoopdos myself. That's no problem though.
> I did set the path in the script and re-checked it.
>
> Thanks for yet another brilliant and immensely useful script.
That very kind of you, considering the thing didn't work, do any of the
others run; because they use the same start-up code.
If this 'SYS:Utilities/SNOOPDOS' is still your SnoopDos path, then I can
see no reason for the failure. But try typing this line into a shell :
rx 'address command "SYS:Utilities/SNOOPDOS"'
and see if 'SnoopDos' starts, if it dose, then the new version of the
script should work, fingers crossed.
I have had a few things happen with version 3.6 I didn't foresee.
I've changed some of the quoting to see if that helps, the trouble is, both
ways work on my system, but have a go with this one, just make sure the
message you kill is not one you wish to keep. :-)
--
Regards
Jules
--
This punishment is not boring and pointless
-- Bart Simpson
-- 8< -- Cut Here -- 8< --
/*
$VER: 1.1 KillMessageBody.rx (27-09-2000)
$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.
*/
/* And the path of Snoopdos. Example SNOOP='SYS:Utilities/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"
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"
ADDRESS COMMAND 'WAIT 1'
QUIT
IF ~EXISTS('T:SnoopMD') THEN EXIT
/* Find the correct line. */
PDRAW=""
CALL OPEN('MD','T:SnoopMD','R')
PDRAW=READLN('MD')
DO UNTIL POS('DBX_',PDRAW)>0
PDRAW=READLN('MD')
END
CALL CLOSE('MD')
/* Kill it */
ADDRESS COMMAND 'DELETE "'PDRAW'" DELETE T:SnoopMD QUIET'
EXIT
-- 8< -- And here -- 8< --
Good luck with this one.
__________________________________________________________________
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
