Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Saturday, October 17, 2026
[BACK] [TXT][DIR] Up to [Platon] / perl-modules / Platon / Log / Mail

Diff for perl-modules/Platon/Log/Mail/Postfix.pm between version 1.11 and 1.12

version 1.11, 2005/12/04 21:33:45 version 1.12, 2008/08/01 15:58:06
Line 10 
Line 10 
 # 2004-10-19 - created  # 2004-10-19 - created
 #  #
   
 # $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.10 2004/12/09 18:09:53 rajo Exp $  # $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.11 2005-12-04 21:33:45 rajo Exp $
   
 package Platon::Log::Mail::Postfix;  package Platon::Log::Mail::Postfix;
   
Line 35  sub savelog($$;)
Line 35  sub savelog($$;)
 { # {{{  { # {{{
         my ($self, $line) = @_;          my ($self, $line) = @_;
         my $xx = { };          my $xx = { };
         my $length = 24;          my $length = 25;
   
         if ($line !~ m/^20/o) {          if ($line !~ m/^20/o) {
                 $length = 15;                  $length = 16;
         }          }
         my $time = str2time(substr($line, 0, $length));          my $time_str = substr($line, 0, $length);
           my $time     = str2time($time_str);
         $xx->{created} = time2str('%Y-%m-%dT%X%z', $time);          $xx->{created} = time2str('%Y-%m-%dT%X%z', $time);
         #print 'input = "' , substr($line, 0, $length) , '" output = "' , $xx->{created}, "\"\n";          #print 'input = "' , substr($line, 0, $length) , '" output = "' , $xx->{created}, "\"\n";
         $line   = substr($line, $length);          $line   = substr($line, $length);
   
         #return 1;  
         return 0 unless defined($xx->{created});          return 0 unless defined($xx->{created});
   
         # first separate hostname          # first separate hostname
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top