applydate

来自「Logwatch是一款分析和报告系统日志」· 代码 · 共 54 行

##########################################################################
# $Id: applydate,v 1.11 2005/06/28 01:40:00 mike Exp $
##########################################################################

########################################################
# This was written and is maintained by:
#    Luuk de Boer <[e-mail]>
#
# Please send all comments, suggestions, bug reports,
#    etc, to [e-mail]
########################################################

use POSIX qw(strftime);
use Logwatch ':dates';

my $Debug = $ENV{'LOGWATCH_DEBUG'} || 0;

my $time = time;

$SearchDate = TimeFilter('%m/%d/%y %H:%M:%S');
$SearchDate2 = TimeFilter('%Y/%m/%d %H:%M:%S');

if ( $Debug > 5 ) {
   print STDERR "DEBUG: Inside ApplyDate (samba)...\n";
   print STDERR "DEBUG: Looking For: $SearchDate or $SearchDate2\n";
}

$ThisLine = <STDIN>;
mainloop: while ($ThisLine) {
   if ($ThisLine =~ m/^$SearchDate /o) {
      print $ThisLine;
   }
   elsif ($ThisLine =~ m/^\[$SearchDate2/o) {
      chomp($ThisLine);
      print $ThisLine;
      while ($ThisLine = <STDIN>) {
         if ($ThisLine =~ m/^\[....\/..\/.. ..:..:../) {
            # Found next entry
            print "\n";
            next mainloop;
         } else {
            chomp($ThisLine);
            print $ThisLine;
         }
      }
      print "\n";
   } else {
      $ThisLine = <STDIN>;
   }
}

# vi: shiftwidth=3 tabstop=3 syntax=perl et