Technische Dokumentation zum Unix-Verbund ... - Dr. Hubert Feyrer

B.32 Monitoring/filterrules.pl 330
}
}
print REPORT "\n";
print REPORT "\n";
###########################################################################
###########################################################################
###
### M A I N
###
###
chdir "/home3/bedienst/feyrer/work/SysOp/Monitoring";
chop($pwd=`pwd`);
$TMPDIR="$pwd/tmp";
die "$0: started from wrong dir - no ./tmp here!\n" if ! -d $TMPDIR;
print "Scanning hosts\n";
scanhosts;
#
# Report in Datei erstellen
#
chop($REPORT=`date '+%Y%m%d'`);
open(REPORT,">daily-report.$REPORT") || die;
print "Creating report\n";
report_perms;
report_rootlogins;
report_metastat;
report_homespace;
report_df;
report_swap;
report_sulog;
report_sulog_messages;
report_messages;
report_last;
report_login_messages;
close(REPORT);
print "Mailing report\n";
system("/usr/ucb/mail -s 'Sunpool-Log $REPORT' $mailto