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

B.31 Monitoring/launcher.pl 326
}
= split(/\s+/, $l);
if ($iscksum ne $shouldcksum) {
print TMPREPORT "$host: ckecksum of $file is $iscksum,
should be $shouldcksum\n";
}
if ($isperm ne $shouldperm) {
print TMPREPORT "$host: permissions of $file is $isperm,
should be $shouldperm\n";
}
if ($isowner ne $shouldowner) {
print TMPREPORT "$host: owner of $file is $isowner,
should be $shouldowner\n";
}
if ($isgroup ne $shouldgroup) {
print TMPREPORT "$host: group of $file is $isgroup,
should be $shouldgroup\n";
}
}else{
print REPORT "Unknown host/file $host/$file in $TMPDIR/$prefix.perms?!?\n";
}
}
close(IN);
close(TMPREPORT);
if (-s "daily-report.$REPORT.$$") {
print REPORT "############################################",
"###############################\n";
print REPORT "############################################",
"###############################\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "### Permission checks - POSSIBLE SECURITY BREACH!!!\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_sulog
{
open(TMPREPORT,">daily-report.$REPORT.$$") or die;
open(IN,"sort +2 $TMPDIR/$prefix.sulog|") || die;
while(){
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\n";
print REPORT "###\n";
print REPORT "###\n";
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003