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

B.31 Monitoring/launcher.pl 321
#mv /etc/mail/sendmail.cf /etc/mail/sendmail.cf.BAK
#sh /etc/init.d/sendmail stop
#sh /etc/init.d/sendmail start
) #2>&1 >/dev/null
#echo monitor: done | /usr/ucb/mail -s monitor feyrer
B.31 Monitoring/launcher.pl
#!/soft/bin/perl5 -- # -*- perl -*-
##########################################################################
# The contents of this file are (c) Copyright 1996 by Hubert Feyrer.
# Any use of the knowledge stored in this file may not be used outside
# of the Fachhochschule Regensburg without contacting me first.
###########################################################################
# Launcher & collector
#
use Net::Ping;
$prefix="sysmon";
#$mailto="hubert.feyrer\@informatik.fh-regensburg.de";
$mailto="root\@rfhs8012.fh-regensburg.de";
$perhost_timeout=5;
$ssh = "ssh";
$scp = "scp -q";
###########################################################################
sub scanhosts
{
local($buftype)=$|;
@HOSTS=("rfhs8012", "pcschuster", "tabaluga", "sunsauer", "delphi",
"rfhpc8130", "rfhpc8131", "rfhpc8132", "rfhpc8133", "rfhpc8082");
@xHOSTS=("rfhpc8133");
unlink "$TMPDIR/$prefix.messages";
unlink "$TMPDIR/$prefix.df";
unlink "$TMPDIR/$prefix.sulog";
unlink "$TMPDIR/$prefix.last";
unlink "$TMPDIR/$prefix.perms";
unlink "$TMPDIR/$prefix.swap";
$|=1;
foreach $host ( @HOSTS ) {
print "$host...";
$up=`ping $host`;
if($up =~ /alive/){
# Problem: Platten ohne root-access gemountet
system "$scp $pwd/foreach-host.pl $host:/tmp";
print ".";
system "$ssh $host /tmp/foreach-host.pl /tmp";
print ".";
system "$ssh $host cat /tmp/$prefix.messages >>$TMPDIR/$prefix.messages"; print
".";
system "$ssh $host cat /tmp/$prefix.df >>$TMPDIR/$prefix.df"; print
".";
system "$ssh $host cat /tmp/$prefix.sulog >>$TMPDIR/$prefix.sulog"; print
".";
system "$ssh $host cat /tmp/$prefix.last >>$TMPDIR/$prefix.last"; print
".";
system "$ssh $host cat /tmp/$prefix.perms >>$TMPDIR/$prefix.perms"; print
".";
system "$ssh $host cat /tmp/$prefix.swap >>$TMPDIR/$prefix.swap"; print
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003