X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fmapsscrub.pl;h=91e77a8fcfd4c35a95e5e307ba9da2bc620aeec8;hb=a6e9dab78f1a0b8654f7a7e1d6f007a9f417ff51;hp=d50b70f1de17d0f7861a3db2c1d754c494276890;hpb=8d1cd7efa187991ca2672c2dfc7fbff6a0682f09;p=clearscm.git

diff --git a/maps/bin/mapsscrub.pl b/maps/bin/mapsscrub.pl
index d50b70f..91e77a8 100755
--- a/maps/bin/mapsscrub.pl
+++ b/maps/bin/mapsscrub.pl
@@ -54,6 +54,7 @@ use Getopt::Long;
 use Pod::Usage;
 
 use DateUtils;
+use Display;
 use Logger;
 use MAPS;
 use Utils;
@@ -61,6 +62,8 @@ use Utils;
 my %opts = (
   usage    => sub { pod2usage },
   help     => sub { pod2usage (-verbose => 2)},
+  verbose  => sub { set_verbose },
+  debug    => sub { set_debug },
   optimize => 1,
 );
 
@@ -116,6 +119,10 @@ while (my $rec = GetUser) {
 } # while
 
 # Now optimize the database
-OptimizeDB if $opts{optimize};
+if ($opts{optimize}) {
+  OptimizeDB;
+
+  $log->msg('Database optimized');
+} # if
 
 exit;