Fixed rule

[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{"${_}list entries removed"} = CleanList(
+    my $listname = ucfirst($_) . 'list entries removed';
+
+    $total{$listname} = CleanList(
       userid => $userid,
       type   => $_,
       log    => $log,
@@ -119,6 +121,10 @@ while (my $rec = GetUser) {
 } # while
 
 # Now optimize the database
-OptimizeDB if $opts{optimize};
+if ($opts{optimize}) {
+  OptimizeDB;
+
+  $log->msg('Database optimized');
+} # if
 
 exit;