⮢  carbon copy 
>Serg Svetov, 2:5029/1.666

 㪠, p 뤨p 直 ⢨⮢    ᪮p客 carbon
copy    ᪮쪮  饩. ᫨  祣- ⨫ - 
 p   )

ScanPKTIn - 頥   ᫥ pᯠ .
ProcessMGSs - p⪠ 뫠

[ Begin Data.Cfg ]
PKTArea %INBOUND% PKTSecured System
PKTArea %INPROTIN% PKTUnSecured System
PKTArea %UNPACKIN% PKTUnPacked System
PKTArea %LOCALIN% PKTLocal System

Data NAME Twit_Name_From
> ...... ! )
#END# Data
Data NAME Twit_Name_To
> ......  )
#END# Data
Data ADDRESS Twit_Address_From
#END# Data
Data ADDRESS Twit_Address_To
#END# Data
Data ADDRESSNAME Twit_Name_Address_From
#END# Data
Data ADDRESSNAME Twit_Name_Address_To
#END# Data
Data STRINGS Do_Not_Twit_Areas
 %LINE[1,1,255]%
 AREA:RZ.GAMES
 %LINE[1,1,255]%
 AREA:1.PVT
#END# Data

Data NAME Save_Name_From
#END# Data
Data NAME Save_Name_To
 Serg Svetov
 Warlock
#END# Data
Data ADDRESS Save_Address_From
#END# Data
Data ADDRESS Save_Address_To
#END# Data
Data ADDRESSNAME Save_Name_Address_From
#END# Data
Data ADDRESSNAME Save_Name_Address_To
#END# Data
Data STRINGS Do_Not_Save_Areas
#END# Data

Variable Killed_Msg 0
Variable Saved_Msg  0

Variable Inbound_Num 0
Variable UnProtect_Num 0
Variable Local_Num 0
Variable UnPacked_Num 0
[ End   Data.Cfg ]
[ Begin Itrack.Cfg ]
Block Kill_Twit_Msg
 Select !Do_Not_Twit_Areas &@Attribute ECHOMAIL
  SetVariable Killed_Msg %Eval[%Killed_Msg%,+,1]%
  Kill
 #ELSE# Select
  SelectTo System &SysOps &@Attribute !ECHOMAIL
   SetVariable Killed_Msg %Eval[%Killed_Msg%,+,1]%
   Kill
  #END# SelectTo
 #END# Select
#END# Block

Block Save_Msg
 Select !Do_Not_Save_Areas &@Attribute ECHOMAIL
  CopyArea Mail_2_Me
  #END# CopyArea
  SetVariable Saved_Msg %Eval[%Saved_Msg%,+,1]%
 #END# Select
#END# Block

Block ProcessPKTs
 SelectFrom Twit_Name_From #Twit_Address_From #Twit_Name_Address_From
  SelectTo Save_Name_To #Save_Address_To #Save_Name_Address_To
   Call Save_Msg
  #ELSE# SelectTo
   Call Kill_Twit_Msg
  #END# SelectTo
 #ELSE# SelectFrom
  SelectTo Twit_Name_To #Twit_Address_To #Twit_Name_Address_To
   SelectFrom Save_Name_From #Save_Address_From #Save_Name_Address_From
    Call Save_Msg
   #ELSE# SelectFrom
    Call Kill_Twit_Msg
   #END# SelectFrom
  #ELSE# SelectTo
   SelectFrom Save_Name_From #Save_Address_From #Save_Name_Address_From
    Call Save_Msg
   #ELSE# SelectFrom
    SelectTo Save_Name_To #Save_Address_To #Save_Name_Address_To
     Call Save_Msg
    #END# SelectTo
   #END# SelectFrom
  #END# SelectTo
 #END# SelectFrom
 Select @Attribute !ECHOMAIL
  SetAttribute @Attribute !LOCAL
  SelectTo !System
   SetAttribute @Attribute INTRANSIT
  #ELSE# SelectTo
   SetAttribute @Attribute !INTRANSIT
  #END# SelectTo
  Call ProcessMSGs
 #ELSE# Select
  SetAttribute @Attribute !CHANGED
 #END# Select
#END# Block

Block ScanPKTIn
 Select @Files %INBOUND%\*.pkt
  Scan PKTSecured
   SetVariable Inbound_Num %Eval[%Inbound_Num%,+,1]%
   Call ProcessPKTs
  #END# Scan
 #END# Select
 Select @Files %UNPACKIN%\*.pkt
  Scan PKTUnPacked
   SetVariable UnPacked_Num %Eval[%UnPacked_Num%,+,1]%
   Call ProcessPKTs
  #END# Scan
 #END# Select
 Select @Files %LOCALIN%\*.pkt
  Scan PKTLocal
   SetVariable Local_Num %Eval[%Local_Num%,+,1]%
   Call ProcessPKTs
  #END# Scan
 #END# Select
 Select @Files %INPROTIN%\*.pkt
  Scan PKTUnSecured
   SetVariable UnProtect_Num %Eval[%UnProtect_Num%,+,1]%
   Select @Attribute !ECHOMAIL
    Select @Condition %MyNode% > 0
     SelectTo ~System #HubSegment
      Call ProcessPKTs
     #ELSE# SelectTo
      AddLine 0
      AddLine 0  Reason: unsecured mail
      AddLine 0
      Move Bad_Mail
     #END# SelectTo
    #END# Select
   #END# Select
  #END# Scan
 #END# Select
 Call Pack_Outbound
 LogString  Incoming NetMail Messages:
 LogString   Secured:   %Inbound_Num%
 LogString   UnSecured: %UnProtect_Num%
 LogString   UnPacked:  %UnPacked_Num%
 LogString   Local:     %Local_Num%
 LogString  Result of PKT scanning:
 LogString   Killed:    %Killed_Msg%
 LogString   Saved:     %Saved_Msg%
#END# Block
[ End   Itrack.Cfg ]
