projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added caching to clearadm
[clearscm.git]
/
clearadm
/
clearadmscrub.pl
diff --git
a/clearadm/clearadmscrub.pl
b/clearadm/clearadmscrub.pl
index
8417622
..
f8b558e
100755
(executable)
--- a/
clearadm/clearadmscrub.pl
+++ b/
clearadm/clearadmscrub.pl
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/
local/
bin/perl
=pod
=pod
@@
-49,6
+49,7
@@
use warnings;
use FindBin;
use Getopt::Long;
use FindBin;
use Getopt::Long;
+use Sys::Hostname;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
@@
-80,7
+81,7
@@
verbose "$FindBin::Script V$VERSION";
my ($err, $msg);
my ($err, $msg);
-for
each
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 '') {
($err, $msg) = $clearadm->TrimLoadavg ($$system{name});
if ($msg eq 'Records deleted' or $msg eq '') {
@@
-89,7
+90,7
@@
foreach my $system ($clearadm->FindSystem ($host)) {
error "#$err: $msg";
} # if
error "#$err: $msg";
} # if
- for
each
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 '') {
($err, $msg) = $clearadm->TrimFS ($$system{name}, $$filesystem{filesystem});
if ($msg eq 'Records deleted' or $msg eq '') {
@@
-97,8
+98,8
@@
foreach my $system ($clearadm->FindSystem ($host)) {
} else {
error "#$err: $msg";
} # if
} else {
error "#$err: $msg";
} # if
- } # for
each
-} # for
each
+ } # for
+} # for
# TODO: These should be configurable
my $sixMonthsAgo = SubtractDays (Today2SQLDatetime, 180);
# TODO: These should be configurable
my $sixMonthsAgo = SubtractDays (Today2SQLDatetime, 180);
@@
-106,6
+107,7
@@
my $sixMonthsAgo = SubtractDays (Today2SQLDatetime, 180);
my %runlog = (
task => 'Scrub',
started => Today2SQLDatetime,
my %runlog = (
task => 'Scrub',
started => Today2SQLDatetime,
+ system => hostname(),
);
# Scrub old alertlogs
);
# Scrub old alertlogs
@@
-178,4
+180,4
@@
Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
-=cut
\ No newline at end of file
+=cut