-#!/usr/bin/perl
+#!/usr/local/bin/perl
=pod
use FindBin;
use Getopt::Long;
+use Sys::Hostname;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
my ($err, $msg);
-foreach my $system ($clearadm->FindSystem ($host)) {
+for my $system ($clearadm->FindSystem ($host)) {
($err, $msg) = $clearadm->TrimLoadavg ($$system{name});
if ($msg eq 'Records deleted' or $msg eq '') {
error "#$err: $msg";
} # if
- foreach my $filesystem ($clearadm->FindFilesystem ($$system{name}, $fs)) {
+ for my $filesystem ($clearadm->FindFilesystem ($$system{name}, $fs)) {
($err, $msg) = $clearadm->TrimFS ($$system{name}, $$filesystem{filesystem});
if ($msg eq 'Records deleted' or $msg eq '') {
} else {
error "#$err: $msg";
} # if
- } # foreach
-} # foreach
+ } # for
+} # for
# TODO: These should be configurable
my $sixMonthsAgo = SubtractDays (Today2SQLDatetime, 180);
my %runlog = (
task => 'Scrub',
started => Today2SQLDatetime,
+ system => hostname(),
);
# Scrub old alertlogs
=begin html
<blockquote>
-<a href="http://clearscm.com/php/cvs_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/DateUtils.pm">DateUtils</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Display.pm">Display</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/TimeUtils.pm">TimeUtils</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Utils.pm">Utils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/DateUtils.pm">DateUtils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/TimeUtils.pm">TimeUtils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
</blockquote>
=end html
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
-=cut
\ No newline at end of file
+=cut