============================ Brake's.Mailer.Support ============================
   From: Sergey Fadeyev                    2:5020/877      05 Jun 1998  22:32:44
     To: John Gladkih                                      06 Jun 1998  02:05:14
   Subj: Calling hold ...                                                       
================================================================================
*** ⢥  ᮮ饭   MAIL_TO_ME (MAIL_TO_ME).

H ⠪ ,    ⭨y, 05  1998  18:49,
John Gladkih (2:5051/16) ᠫ()  Sergey Fadeyev
 ⥬ "Calling hold ...":

SF>>>>   㧫  䫠஬ hold -  ?    ⮣
SF>>>> ?
SF>>>> 쪮 १  CallableNode   묨 ।⢠?

JG>>>  ?! :)

>>>  Begin brake!.log 
SF>> 04/06/98 15:43:54 [1,03]  Calling hold 2:5020/238, 923-0871[P],
                                        ^^^^
SF>> InfoScience, Sergey Gubanov 04/06/98 15:43:54 [1,03]  Dialing
SF>> ATS17=240DP923-0871: 04/06/98 15:44:14 [1,03]  Not connected, BUSY
>>>   End brake!.log  

JG>>> 祬 宦  宫 - ᪠ ;)

SF>> H,   .Hld .     稭, 宦,
SF>> ⮫쪮 ᫥ ᪠.    䫠  ,  
SF>> 宫,  ࠢ .

JG> !  ப hld  ⥪.

 ;-)
-,  祣  ⮣  㧫  䫠 hold? (  ᮪ )
-,   ⮫쪮  ⠢ ᫥騬 ਯ⮬.  ᫨  ᪮ 
BrkQueueRescan, ⮣  Ok,       易⥫ -   
 ⠪  ,  㧥 - hold.   imho - .   ᬮ 
᭨, 祬    ? ;-)

> Begin Hold.brk 
numeric digits 15
addr=BrkQueueCurrent();
hld=BrkNodeGetBinkName(addr)'.Hld'
call RxFuncAdd 'SysFileDelete', 'RexxUtil', 'SysFileDelete'
call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
call SysFileTree hld,'hld','FO'
if hld.0\=0 then do
    call SysFileDelete hld
end
else do
    i=UTime()+3600
    call SysFileDelete hld
    call lineout hld,i
    call lineout hld
end
/*call BrkQueueRescan*/
return 'Done'

UTime: procedure
    TZ=4              /* specify time difference between local and UTC */
    X=Date('B')-Date('B','01/01/70','E')
    X=X*86400+TIME('S')-TZ*3600
return X

>  End Hold.brk  


  訬 ﬨ
   ࣥ  (SAF).      [Team H ] [BABYLON5] [IP-3-95 MIREA]
...     ﭪ, ᫨  ᫥騩   뤭!
--- GoldED/2 3.00.Beta3+
 * Origin: ६ ᯮ騩 ᢮ 易 (2:5020/877)
================================================================================
