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

B.34 Monitoring/foreach-host.pl 340
}
sub nukefile {
local($fr, @files) = @_;
foreach $file ( @files ) {
}
}
if ( -f "$file" ) {
system("rm $fr $file 2>/dev/null >/dev/null");
}
###########################################################################
#
# 1. Ausmisten, Teil 1
#
resetsize("/var/adm/vold.log");
resetsize("/var/cron/log");
resetsize("/var/lp/logs/lpNet");
resetsize("/var/lp/logs/lpsched");
resetsize("/var/lp/logs/requests");
#resetsize("/var/mail/uucp");
#resetsize("/var/mail/lp");
nukefile("", ); # Solaris
nukefile("", );# Solaris
nukefile("", );# Solaris
nukefile("-fr", );# Solaris
nukefile("-fr", ); # Solaris
nukefile("-fr", );# Solaris
nukefile("-fr", );# Solaris
nukefile("-fr", );# Solaris
nukefile("-fr", ); # Solaris
#
# 2. $TMPDIR/$prefix.messages
#
if ( -f "/var/adm/messages" ) { # Solaris
system("cp /var/adm/messages $TMPDIR/$prefix.messages");
system("grep -v sendmail /var/log/syslog >>$TMPDIR/$prefix.messages");
} elsif ( -f "/var/log/messages" ) {# NetBSD
system("cp /var/log/messages $TMPDIR/$prefix.messages");
system "grep -v su: /var/log/authlog >>$TMPDIR/$prefix.messages";
}
# restart syslogd
if ( -f "/var/run/syslogd.pid" ) {
system("kill -HUP `cat /var/run/syslogd.pid`");
} elsif ( -f "/etc/syslog.pid" ) {
system("kill -HUP `cat /etc/syslog.pid`");
}
#
# 3. $TMPDIR/$prefix.df
#
system("df -k / ".
"| grep -v Filesystem ".
"| sed ".
" -e \"s,^/dev/dsk/c.d.s.,,\" ".
" -e \"s,^/dev/dsk/c.t.d.s.,,\" ".
" -e \"s,/dev/md/dsk/d.,,\" ".
" -e \"s,/dev/wd..,,\" ".
" -e \"s,^,`uname -n`: ,\"".
" >$TMPDIR/$prefix.df");
#
# 4. $TMPDIR/$prefix.sulog
#
if (open(DEF,"/etc/default/su")) {# Solaris
$sulog="/var/adm/sulog";
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003