/usr/share/piwi/crontab/toady.pl is in piwi 0.8+20041206-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | #! /usr/bin/perl -w
use strict;
use warnings;
use DBI;
require 'Classes/Filter.pm';
require 'Functions/config.pl';
require 'Functions/db.pl';
require 'Functions/FilterList.pl';
package main;
if ( ! $ARGV[0] ) {die( "usage: perl crontab/toady.pl Filter.flt\n" );};
our %conf = (); # configuration directives
LoadConfig();
# Open the DB connection :
our $dbh = DB_Open();
while( my $FilterFile = shift )
{
if ( -f $FilterFile )
{
my $Filter = Filter->new();
$Filter->load( $FilterFile );
my $TotalResultNb = $Filter->count();
if ( $TotalResultNb > 0 )
{
print " $TotalResultNb alerts match the following rule/filter : $FilterFile\n";
print ' '.( $Filter->comment() )."\n";
}
}
else
{
print " Filter not found : $FilterFile\n";
}
}
|