᫨   ⥬ 諮 ᥣ  祬 XX  
>Alex S Aganichev, 2:5020/604.19

 p pp ,   ⥫ ᤥ...

    -  ᫥騩 p ᫥ p室 UUE 㤥
p itrack.cfg :(,    p... :-)

=== Cut ===
᮪ ⥬, 㦨  uu :-)
 blacklog.cfg  begin 
Data Address AssHole
#End# Data
 blacklog.cfg  end 
砫 ⮩. ਨ ⠢  - ᭥...
H 㤥 - ⨯:

Data Address AssHole
2:5020/604.19 ; 200000
#End# Data

 2:5020/604.19 -   ⥬, 200000 - 騩 ࠧ uuencod,
ॢᨢ訩 ...

 itrack.cfg  begin 
$Include BlackLog.Cfg

FidoArea c:\tmp TmpArea

DATA ADDRESS valid_domains
  2:*/*.*
  41:*/*.*
  777:*/*.*
#END# DATA

;  ᪠஢ ᠣ
UUCheck
Selectto @Attribute Triggered
  WriteString UUE_Log.Tpl %From[1234]% ;; %MsgLength%
  Selectto Asshole
      Createreturn no_way 0
      #End# Createreturn
      Createforward no_way 0
      #End# Createforward
  #End# Selectto
#End# Selectto

; ᫥ ᪠஢  ᠣ
Selectto @Condition %Length[UUE_Log.Tpl]% > 0
  Reminder TmpArea @DateAddress *.*.* UUE_Log 2:5020/604.19 SysOp
  #End# Reminder
  Variable UUE_Sender
  Variable UUE_Size
  Scan TmpArea
    AddHeader BlackLog.Cfg
    KillFile BlackLog.Cfg
    Deleteline 1
    WriteString BlackLog.Cfg Data Address AssHole
    WhileFrom @Condition %LineCount% > 0
      SetVariable UUE_Sender %Line[1,1]%
      ChangeFrom Address %UUE_Sender%
      SetVariable UUE_Size 0
      SelectFrom valid_domains
        WhileFrom !@Condition %Eval[0,+,%Match[%UUE_Sender%,3]%]% = 0
          SetVariable UUE_Size %Eval[%UUE_Size%,+,%Match[%UUE_Sender%,3]%]%
          DeleteLine %UUE_Sender%*
        #End# WhileFrom
        SelectFrom @Condition %UUE_Size% > 100000
          WriteString BlackLog.Cfg %UUE_Sender% ;; %UUE_Size%
        #End# SelectFrom
      #Else# SelectFrom
        DeleteLine 1
      #End# SelectFrom
    #End# WhileFrom
    WriteString BlackLog.Cfg #End# Data
    Kill
  #End# Scan
  KillFile UUE_log.tpl
#End# Selectto
 itrack.cfg  end 

H   no_way.tpl

 no_way.tpl  begin 
Sorry, but I don't want to route UUE from System %OLDFROM[]%: limit exceeded.

--- %PROGRAM%
 * Origin: - Warez Manager - v.0.1 -
 no_way.tpl  end 
=== Cut ===
