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

B.33 Monitoring/filtertest.pl 339
}
1;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
#return 1 if m||;
return 0;
B.33 Monitoring/filtertest.pl
#!/soft/bin/perl5
# tests filterrules.pl
require "filterrules.pl";
while() {
next if skip("$_"); # from filterrules.pl
}
print "$_";
B.34 Monitoring/foreach-host.pl
#!/soft/bin/perl5 -- # -*- perl -*-
##########################################################################
# The contents of this file are (c) Copyright 1996-1999 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.
###########################################################################
$prefix="sysmon";
die "Usage: $0 tmp-dir\n" if $#ARGV < 0 || !-d $ARGV[0];
$TMPDIR=$ARGV[0];
$opsys = `uname -s`;
chomp($opsys);# IRIX, SunOS, NetBSD
###########################################################################
# Hilfsroutinen:
#
sub checkfile {
local($file) = @_;
}
return if ! -f $file;
system("echo `uname -n` `cksum '$file' | awk '{ print \$1;}' `' '`ls -Llad '$file'`
>>$TMPDIR/$prefix.perms");
#HF#system("ls -Llad '$file' >>$TMPDIR/$prefix.perms");
sub resetsize {
local($file, $owner, $group) = @_;
return if ! -f $file;
system("cp /dev/null $file");
system("chown $owner $file") if $owner ne "";
system("chgrp $group $file") if $group ne "";
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003