Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Nedeľa, 25. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / perl-modules / Platon / Log / Mail

Rozdiely pre perl-modules/Platon/Log/Mail/Postfix.pm medzi verziami 1.7 a 1.8

verzia 1.7, 2004/12/09 10:31:27 verzia 1.8, 2004/12/09 12:33:31
Riadok 10 
Riadok 10 
 # 2004-10-19 - created  # 2004-10-19 - created
 #  #
   
 # $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.6 2004/11/28 23:01:06 rajo Exp $  # $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.7 2004/12/09 10:31:27 rajo Exp $
   
 package Platon::Log::Mail::Postfix;  package Platon::Log::Mail::Postfix;
   
Riadok 94  sub savelog($$;)
Riadok 94  sub savelog($$;)
                 }                  }
   
                 # $xx->{status} = "Not-Delivered" or "Passed" or "BANNED" or "INFECTED"                  # $xx->{status} = "Not-Delivered" or "Passed" or "BANNED" or "INFECTED"
                 ($xx->{amavis_counter}, $xx->{status}, $line) = ($line =~ m/^\(\d+-(\d+)\) ([^,\s]+)[\s,]*(.*)$/o);                  ($xx->{amavis_id}, $xx->{status}, $line) = ($line =~ m/^\(([\d-]+)\) ([^,\s]+)[\s,]*(.*)$/o);
                   ($xx->{amavis_counter}) = ($xx->{amavis_id} =~ m/(\d+)$/o);
                 if ($xx->{status} eq 'INFECTED') {                  if ($xx->{status} eq 'INFECTED') {
                         ($xx->{amavis_virus_name}, $line) = ($line =~ m/^\(([^\)]+)\), (.*)$/o);                          ($xx->{amavis_virus_name}, $line) = ($line =~ m/^\(([^\)]+)\), (.*)$/o);
                 }                  }
Riadok 249  sub savelog($$;)
Riadok 250  sub savelog($$;)
   
                         # try to parse status info from amavis:                          # try to parse status info from amavis:
                         # ... relay=127.0.0.1[127.0.0.1], delay=4, status=sent (250 2.6.0 Ok, id=32286-03, from MTA: 250 Ok: queued as 9A1491400624)                          # ... relay=127.0.0.1[127.0.0.1], delay=4, status=sent (250 2.6.0 Ok, id=32286-03, from MTA: 250 Ok: queued as 9A1491400624)
                         if ($xx->{rest} =~ m/queued as (\S+)\)$/o) {                          if ($xx->{rest} =~ m/id=(\S+),.*queued as (\S+)\)$/o) {
                                 $xx->{new_postfix_key} = $1;                                  $xx->{amavis_id} = $1;
                                   $xx->{new_postfix_key} = $2;
                         }                          }
   
                         return $self->_savelog($xx);                          return $self->_savelog($xx);
Riadok 315  sub _savelog($$;)
Riadok 317  sub _savelog($$;)
                 $data->{size},                  $data->{nrcpt},                 $data->{relay}, $data->{delay},                  $data->{size},                  $data->{nrcpt},                 $data->{relay}, $data->{delay},
                 $data->{status},                $data->{proto},                 $data->{helo},  $data->{sasl_method},                  $data->{status},                $data->{proto},                 $data->{helo},  $data->{sasl_method},
                 $data->{sasl_username},                  $data->{sasl_username},
                 $data->{amavis_counter},        $data->{amavis_virus_name},     $data->{amavis_banned_file},                  $data->{amavis_id},             $data->{amavis_counter},        $data->{amavis_virus_name},     $data->{amavis_banned_file},
                 $data->{amavis_quarantine},     $data->{amavis_SA_score},                  $data->{amavis_quarantine},     $data->{amavis_SA_score},
                 $data->{rest}                  $data->{rest}
         ) or warn $self->{sql_insert}->errstr;          ) or warn $self->{sql_insert}->errstr;
Riadok 340  sub _init($$;)
Riadok 342  sub _init($$;)
                         mail_size, mail_nrcpt, relay, delay,                          mail_size, mail_nrcpt, relay, delay,
                         status, proto, helo, sasl_method,                          status, proto, helo, sasl_method,
                         sasl_username,                          sasl_username,
                         amavis_counter, amavis_virus_name, amavis_banned_file,                          amavis_id, amavis_counter, amavis_virus_name, amavis_banned_file,
                         amavis_quarantine, amavis_SA_score,                          amavis_quarantine, amavis_SA_score,
                         message)                          message)
                 VALUES                  VALUES
Riadok 351  sub _init($$;)
Riadok 353  sub _init($$;)
                         ?, ?, ?, ?,                          ?, ?, ?, ?,
                         ?, ?, ?, ?,                          ?, ?, ?, ?,
                         ?,                          ?,
                         ?, ?, ?,                          ?, ?, ?, ?,
                         ?, ?,                          ?, ?,
                         ?)                          ?)
                 ");                  ");
Legend:
Odstranené z verzie1.7  
zmenené riadky
  Pridané vo verzii1.8
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok