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

B.31 Monitoring/launcher.pl 327
}
open(IN, "daily-report.$REPORT.$$") || die;
while(){
print REPORT "$_";
}
close(IN);
print REPORT "\n";
print REPORT "\n";
}
unlink "daily-report.$REPORT.$$";
###########################################################################
sub report_sulog_messages
{
open(TMPREPORT,">daily-report.$REPORT.$$") or die;
open(IN,"sort +1 $TMPDIR/$prefix.messages |") || die;
while(){
if (/su:/ and !/pam_sm_authenticate/) {
s/\[.*\] //;
print TMPREPORT $_;
#print REPORT $_ if /-(root|dummy)$/;
}
}
close(IN);
close(TMPREPORT);
}
if (-s "daily-report.$REPORT.$$") {
print REPORT "############################################",
"###############################\n";
print REPORT "############################################",
"###############################\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "### su-log (messages)\n";
print REPORT "###\n";
print REPORT "###\n";
open(IN, "daily-report.$REPORT.$$") || die;
while(){
print REPORT "$_";
}
close(IN);
print REPORT "\n";
print REPORT "\n";
}
unlink "daily-report.$REPORT.$$";
###########################################################################
sub report_homespace
{
print REPORT "############################################",
"###############################\n";
print REPORT "############################################",
"###############################\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "### Belegung /home* (rfhs8012)\n";
print REPORT "###\n";
print REPORT "###\n";
open(IN,"df -k /home* | egrep 'home|kbytes' |") || die;
while(){
print REPORT $_;
}
close(IN);
print REPORT "\n";
print REPORT "\n";
}
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003