================================ Jonny-Personal ================================
   From: Sergey Fadeyev                    2:5020/877      06 Jun 1998  18:35:18
     To: John Gladkih                      2:5051/16       06 Jun 1998  23:36:22
   Subj: Calling hold ...                                                       
================================================================================
-=> Note: Copied from BRAKE'S.MAILER.SUPPORT by WIMM/2 1.31

*** ⢥  ᮮ饭   MAIL_TO_ME (MAIL_TO_ME).

H ⠪ ,    yy, 06  1998  12:06,
John Gladkih (2:5051/16) ᠫ()  Sergey Fadeyev
 ⥬ "Calling hold ...":

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

JG>  ࠧ. 宦  易  hld,    -  ⭮. 
JG> 㣨 㧫 ⠪ 뢠? ஡ ᯥਬ஢ .

 뢠  묨 㧫,    ⠢ 宫 㪠 ਯ⮬. 
᫨  ᪠ -  ଠ쭮, ⪫ - 襮ᠭ 䥪. 
ந - 100%. ஢ ᠬ.   ਯ  ࠧ, ࠢ ⮫쪮 
 ᢮ ⮯ TZ  UTime (,  㢮஢  ⮩  , 
-, ⮫쪮  ࠢ  饭 ;-):

> 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]
... H  ஬: H  ᥡ,  !!!!
--- GoldED/2 3.00.Beta3+
 * Origin: ⤥ ਣ蠥    ⠪ (2:5020/877)
================================================================================
