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

B.34 Monitoring/foreach-host.pl 341
loop:
while(){
}
close(DEF);
last loop if ($sulog)=/SULOG=(.+)/;
system "sed \"s,\^,`uname -n`: ,\" $sulog >$TMPDIR/$prefix.sulog";
} elsif (-f "/var/log/authlog") {# NetBSD
$sulog="/var/log/authlog";
system "grep su: $sulog | sed \"s,\^,`uname -n`: ,\" >$TMPDIR/$prefix.sulog";
}
#
# 5. $TMPDIR/$prefix.last
#
system "last | sed \"s/^/`uname -n`: /\" >$TMPDIR/$prefix.last";
#
# 6. $TMPDIR/$prefix.swap (notyet!)
#
# NetBSD: /sbin/swapctl -l | grep /dev
# Solaris: /usr/sbin/swap -l (sucks...)
# Iris: /sbin/swap -ln
if ($opsys eq "SunOS") {
# Solaris
system "echo `uname -s` `uname -n` `/usr/sbin/swap -l | grep /dev` >$TMPDIR/$prefix.swap";
} elsif ($opsys eq "IRIX") {
# Irix
system "echo `uname -s` `uname -n` `/sbin/swap -lbn | grep /dev` >$TMPDIR/$prefix.swap";
} else {
# NetBSD
system "echo `uname -s` `uname -n` `/sbin/swapctl -kl | grep /` >$TMPDIR/$prefix.swap";
}
#
# 7. Ausmisten, Teil 2
#
resetsize("/var/log/syslog"); # Solaris
resetsize("/var/adm/messages"); # Solaris
resetsize("/var/log/messages"); # NetBSD
resetsize("/var/adm/lastlog"); # Solaris
resetsize("/var/adm/sulog"); # Solaris
resetsize("/var/adm/wtmp", "adm", "adm");# Solaris
resetsize("/var/adm/wtmpx", "adm", "adm");# Solaris
resetsize("/var/log/authlog"); # Solaris, NetBSD
#
# 8. Permissions sicherstellen
#
checkfile("/etc/passwd");
checkfile("/etc/group");
checkfile("/etc/shadow");
checkfile("/etc/inetd.conf");
checkfile("/root/.rhosts");
checkfile("/etc/master.passwd");
checkfile("/etc/pwd.db");
checkfile("/etc/spwd.db");
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003