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

B.31 Monitoring/launcher.pl 324
}
print REPORT "\n";
}
unlink "daily-report.$REPORT.$$";
###########################################################################
sub report_df
{
print REPORT "############################################",
"###############################\n";
print REPORT "############################################",
"###############################\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "### Belegung Root-Filesystem (du -k /)\n";
print REPORT "###\n";
print REPORT "###\n";
print REPORT "Host kbytes used avail capacity Mounted on\n";
open(IN,"sort $TMPDIR/$prefix.df|") || die;
while(){
print REPORT $_;
}
close(IN);
print REPORT "\n";
print REPORT "\n";
}
###########################################################################
sub report_perms
{
open(TMPREPORT, ">daily-report.$REPORT.$$") or die;
# rfhs8012 (ssh rfhs8012 /soft/bin/perl5 < mksecuritysignature)
$perms{"rfhs8012 /etc/passwd"} = "448735344 -rw-r--r-- root sys";
$perms{"rfhs8012 /etc/group"} = "3289002030 -rw-r--r-- root sys";
$perms{"rfhs8012 /etc/shadow"} = "2163032732 -r-------- root sys";
$perms{"rfhs8012 /etc/inetd.conf"} = "4011404607 -rw-r--r-- root other";
$perms{"rfhs8012 /root/.rhosts"} = "4294967295 -rw------- root other";
$perms{"rfhs8012 /root/.ssh/authorized_keys"} = "174866321 -rw------- root other";
$perms{"rfhs8012 /root/.ssh/authorized_keys2"} = "1768930165 -rw-r--r-- root other";
# delphi (ssh delphi /soft/bin/perl5 < mksecuritysignature)
$perms{"rfhpc8317 /etc/passwd"} = "1323218279 -r--r--r-- root sys";
$perms{"rfhpc8317 /etc/group"} = "1127466945 -rw-r--r-- root sys";
$perms{"rfhpc8317 /etc/shadow"} = "2243804910 -r-------- root sys";
$perms{"rfhpc8317 /etc/inetd.conf"} = "2679348089 -r--r--r-- root sys";
$perms{"rfhpc8317 /root/.rhosts"} = " ";
$perms{"rfhpc8317 /root/.ssh/authorized_keys"} = "3139843058 -rw------- root other";
$perms{"rfhpc8317 /root/.ssh/authorized_keys2"} = "1768930165 -rw-r--r-- root other";
$perms{"rfhpc8317 /root/.rhosts"} = "4294967295 -rw------- root other";
# pcschuster: ssh pcschuster /soft/bin/perl < mksecuritysignature
$perms{"pcschuster /etc/passwd"} = "1476238359 -rw-r--r-- root wheel";
$perms{"pcschuster /etc/group"} = "3259879957 -rw-r--r-- root wheel";
$perms{"pcschuster /etc/inetd.conf"} = "607567665 -rw-r--r-- root wheel";
$perms{"pcschuster /root/.rhosts"} = "4294967295 -rw------- root wheel";
$perms{"pcschuster /root/.ssh/authorized_keys"} = "3139843058 -rw-r--r-- root wheel";
$perms{"pcschuster /root/.ssh/authorized_keys2"} = "1768930165 -rw-r--r-- root wheel";
$perms{"pcschuster /etc/master.passwd"} = "3906944461 -rw------- root wheel";
$perms{"pcschuster /etc/pwd.db"} = "1707376108 -rw-r--r-- root wheel";
$perms{"pcschuster /etc/spwd.db"} = "3053495885 -rw------- root wheel";
# sunsauer (ssh sunsauer /soft/bin/perl5 < mksecuritysignature)
$perms{"sunsauer /etc/passwd"} = "2200727203 -rw-r--r-- root sys";
$perms{"sunsauer /etc/group"} = "1127466945 -rw-r--r-- root sys";
$perms{"sunsauer /etc/shadow"} = "1711703122 -r-------- root sys";
$perms{"sunsauer /etc/inetd.conf"} = "2190305100 -r--r--r-- root sys";
$perms{"sunsauer /root/.ssh/authorized_keys"} = "3139843058 -rw------- root other";
$perms{"sunsauer /root/.ssh/authorized_keys2"} = "1768930165 -rw-r--r-- root other";
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003