asif
c53b89667f
Add new timestamp template and delete the old one. Update report script file to use new 'status' tags to generate logwatch reports.
37 lines
1.0 KiB
Perl
37 lines
1.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
##########################################################################
|
|
# $Id$
|
|
##########################################################################
|
|
|
|
###############################################################################
|
|
## Filter dates in ISO-8601 format located at the start of a given line
|
|
## Format: '%Y-%m-%dT%H:%M:%SZ'
|
|
###############################################################################
|
|
|
|
use Logwatch ':dates';
|
|
|
|
my $Debug = $ENV{'LOGWATCH_DEBUG'} || 0;
|
|
|
|
### Specify the format of the date/time stamp itself
|
|
$SearchDate = TimeFilter('%Y-%m-%dT%H:%M:%SZ');
|
|
|
|
if ( $Debug > 5 ) {
|
|
print STDERR "DEBUG: Inside FullDateTime...\n";
|
|
print STDERR "DEBUG: Looking For: " . $SearchDate . "\n";
|
|
}
|
|
|
|
while (defined($ThisLine = <STDIN>)) {
|
|
### specify the regex that defines how to find 'SearchDate'
|
|
if ($ThisLine =~ m/^$SearchDate /o) {
|
|
print $ThisLine;
|
|
}
|
|
}
|
|
|
|
# vi: shiftwidth=3 syntax=perl tabstop=3 et
|
|
# Local Variables:
|
|
# mode: perl
|
|
# perl-indent-level: 3
|
|
# indent-tabs-mode: nil
|
|
# End:
|