projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git+ssh://github.com/adefaria/clearscm
[clearscm.git]
/
maps
/
bin
/
mapsscrub.pl
diff --git
a/maps/bin/mapsscrub.pl
b/maps/bin/mapsscrub.pl
index
2a0f54e
..
abf1d31
100755
(executable)
--- a/
maps/bin/mapsscrub.pl
+++ b/
maps/bin/mapsscrub.pl
@@
-80,7
+80,9
@@
sub CleanUp($) {
$total{'Log entries removed'} = CleanLog $timestamp, $opts{dryrun};
for (qw(white black null)) {
$total{'Log entries removed'} = CleanLog $timestamp, $opts{dryrun};
for (qw(white black null)) {
- $total{"${_}list entries removed"} = CleanList(
+ my $listname = ucfirst($_) . 'list entries removed';
+
+ $total{$listname} = CleanList(
userid => $userid,
type => $_,
log => $log,
userid => $userid,
type => $_,
log => $log,
@@
-119,6
+121,10
@@
while (my $rec = GetUser) {
} # while
# Now optimize the database
} # while
# Now optimize the database
-OptimizeDB if $opts{optimize};
+if ($opts{optimize}) {
+ OptimizeDB;
+
+ $log->msg('Database optimized');
+} # if
exit;
exit;