From Stas_Mishchenkov@f58.n460.z2.fidonet.org Fri Sep  3 09:20:33 1999
Path: news.simcb.ru!f1666.n5020.z2!f204.n5020.z2!f238.n5020!f68.n463!f114.n460!ccssu.ccssu.crimea.ua!f12.n460.z2!f58.n460.z2!not-for-mail
Newsgroups: fido.brakes.mailer.support
Distribution: fido7
X-Comment-To: john gladkih
From: Stas Mishchenkov <Stas_Mishchenkov@f58.n460.z2.fidonet.org>
Date: Wed, 01 Sep 99 04:43:17 +0400
Subject: ?
Message-ID: <936168299@f58.n460.z2.fidonet>
Organization: Lingua Latina non est cauda caninae!
X-FTN-AREA: BRAKE'S.MAILER.SUPPORT
X-FTN-MSGID: 2:460/58@fidonet.org 37cccb6b
X-FTN-KLUDGE: PID: SemiGrand
X-FTN-CHRS: CP866 2
X-FTN-RealName: Brother Rabbit
X-FTN-KLUDGE: \001\001 [!]Windows'95  १ࢠ⨢ -   ࠢ,   .
X-FTN-KLUDGE: TID:SimplyTheTosser
X-FTN-Tearline: SemiGrand & Stas Mishchenkov
X-FTN-Origin: Lingua Latina non est cauda caninae! (2:460/58)
X-FTN-SEEN-BY: 50/993 452/25 460/12 50 57 58 111 112 114 461/640 462/30 463/58 68
X-FTN-SEEN-BY: 463/207 220 666 464/34 466/34 468/57 469/38 478/25 550/4692 4635/4
X-FTN-SEEN-BY: 4635/8 5000/76 5001/17 5002/5002 5003/15 5005/5005 5010/77 148
X-FTN-SEEN-BY: 5011/13 5015/4 5020/10 37 52 69 115 128 204 238 400 758 1100 1169
X-FTN-SEEN-BY: 5020/1301 1381 1666 1851 1978 5021/11 5022/5 5023/1 8 11 5025/2
X-FTN-SEEN-BY: 5028/51 5029/1 5030/23 115 239 251 5033/4 5040/47 5042/8 5045/7
X-FTN-SEEN-BY: 5049/256 5050/5050 5053/16 5055/92 5057/1 5058/1000 5061/7 15
X-FTN-SEEN-BY: 5063/1 27 5066/18 5070/66 5075/10 5077/3 28 5078/20 5079/50 5080/68
X-FTN-SEEN-BY: 5081/3 5083/13 5085/100 5090/2 5095/4 5099/1 5100/8
X-FTN-PATH: 460/58 12 114 463/68 5020/238 204
X-FTN-PATH: 5020/1666
Lines: 85
Xref: news.simcb.ru fido.brakes.mailer.support:592

Hi, john!

    ᯫ  ᮡ   ᥣ 㡨... , , ... ;)

-----
* 01 Sep 05:44:07 BRK!
* 01 Sep 05:44:13 BRK! Flag detected: Toss.it
* 01 Sep 05:44:13 BRK! Flag removed: Toss.it
* 01 Sep 05:44:13 BRK! Run: E:\FIDO\ItraX\in.cmd
* 01 Sep 05:44:23 BRK! Flag detected: split.it
* 01 Sep 05:44:23 BRK! Flag removed: split.it
* 01 Sep 05:44:23 BRK! Echo-splitter cycle started
* 01 Sep 05:44:23 BRK! Flag detected: ScanMail.br1
* 01 Sep 05:44:23 BRK! Flag removed: ScanMail.br1
* 01 Sep 05:44:26 BRK! Unable to open e:\fido\out\bso\FidoOut\11F800AD.HLO: The
file or directory specified is read-only.
* 01 Sep 05:44:28 BRK! Node 2:4600/173@fidonet Is Busy Now.
* 01 Sep 05:44:28 BRK! Node 2:4600/173@fidonet Is Busy Now.
* 01 Sep 05:45:12 BRK! Node 2:4600/173@fidonet Is Busy Now.
* 01 Sep 05:45:12 BRK! Node 2:4600/173@fidonet Is Busy Now.
* 01 Sep 05:45:12 BRK! Node 2:4600/173@fidonet Is Busy Now.
-----
  CallableNode CallNode.brk             ; pp     
-----
** Begin of 'CallNode.brk' **
/******************************************************************************

                CallNode.Brk (C) Stas Mishchenkov, 1999

   H    㧥,  PauseTime. ६ 㪠뢠  ᥪ㭤.

   Usage: CallNode <NodeAddress>
                NodeAddress - address of node.
*****************************************************************************/

PauseTime = 10800

Parse arg Address

If Address = '' then do
   Call BrkLog ''
   Call BrkLog 'You must specify node addres as first parametr.'
   Call BrkLog ''
   Call BrkLog 'Usage: CallNode <NodeAddress>'
   Call BrkLog '        NodeAddress - address of node.'
   Call BrkLog ''
   Return 'YOURSELF'
end

if BrkNodeIsBusy(Address) \= 'FAIL' then do
   Call BrkLog 'Node 'Address' Is Busy Now.'
   Return 'NO'
end

Node = BrkNodeGetBinkName(Address)
LastOk = ''
do while lines(Node||'.Sta') \= 0
   s = LineIn(Node||'.Sta')
   if Word(s, 1) = 'OkTime' then do
      LastOk = Word(s, 2)
      leave
   end
end

If LastOk = '' then do
   Return 'YOURSELF'
end

c = ((1970-1)*365)+Trunc( (1970-1)/4 )-Trunc( 1970/100 )+Trunc((1970-1)/400)
Sec = (Date('b')-c)*24*60*60+Time('S')-Word( Translate(LastOk, ' ', '-'),1
)+BrkGetTimeZone()

If Sec > PauseTime then do
   Return 'YOURSELF'
End
else
   Return 'NO'
**  End of 'CallNode.brk'  **

PS:  筮    ࠪ  ,   , ,   ᫮,
   ६  祣  .

Have a nice nights!
            Stas Mishchenkov.


