Changeset 41406 for trunk/tools/eam/rebalance/neb_check_trash.pl

Timestamp:

Aug 25, 2020, 10:15:47 AM (6 years ago)

Author:

eugene

Message:

updates to rebalance scripts

File:

• trunk/tools/eam/rebalance/neb_check_trash.pl (modified) (4 diffs)

trunk/tools/eam/rebalance/neb_check_trash.pl

@@ -12 +12 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
 
-my ($srchost,$trashdir);
+my ($srchost,$trashdir,$savedir);
 
 GetOptions(
-    'srchost=s' => \$srchost,
-    'trashdir=s' => \$trashdir) || pod2usage(2);
+    'srchost=s'  => \$srchost,
+    'trashdir=s' => \$trashdir,
+    'savedir=s'  => \$savedir) || pod2usage(2);
 
 my ( $dbname, $dbhost, $dbport, $dbpass, $dbuser );
@@ -39 +40 @@
     defined $dbname && defined $dbhost && defined $dbport && defined $dbuser && defined $dbpass;
 
-pod2usage( -msg => "Cannot determine trash directory", -exitval => 2) unless defined $trashdir && defined $srchost;
+pod2usage( -msg => "Cannot determine srchost, trashdir, or savedir", -exitval => 2) unless defined $trashdir && defined $savedir && defined $srchost;
 
 my  $host_check = `hostname`; chomp($host_check);
@@ -52 +53 @@
 
 my $dbh = DBI->connect($dsn, $dbuser, $dbpass, { RaiseError => 1, AutoCommit => 1} ) or die "Unable to connect to database $DBI::errstr\n";
+
+unless (mkdir $savedir) { die "failed to make savedir\n"; }
 
 my @files = <${trashdir}/*>;
@@ -96 +99 @@
 
     if ($Nrows == 0) { # We should find this instance
-        print "ERROR : NO DB ENTRY: $summary\n";
+        print "ERROR : NO DB ENTRY: (saving) $summary\n";
+        system ("mv $filename $savedir/");
         next;
     }