Slightly more informative closing message

[scpubgit/stemmatology.git] / analysis / idp_server / idprestore.pl

diff --git a/analysis/idp_server/idprestore.pl b/analysis/idp_server/idprestore.pl
index 358976e..e25ac33 100644 (file)
--- a/analysis/idp_server/idprestore.pl
+++ b/analysis/idp_server/idprestore.pl
@@ -68,6 +68,7 @@ open( IDPBACKUP, "$dumpfile" )
 binmode IDPBACKUP, ':utf8';
 my $nodel;
 my $ctr = 0;
+my $restored = 0;
 while( <IDPBACKUP> ) {
        chomp;
        $ctr++;
@@ -77,6 +78,7 @@ while( <IDPBACKUP> ) {
        if( $result ) {
                try {
                        $dir->store( $result->object_key => $result );
+                       $restored++;
                } catch ($err) {
                        $nodel = 1;
                        if( $err =~ /already in use / || $err =~ /Duplicate/) {
@@ -91,6 +93,6 @@ while( <IDPBACKUP> ) {
        }
 }
 close IDPBACKUP;
-say "Done.";
+say "Restored $restored / $ctr results.";
 
 unlink( $dumpfile ) unless $nodel;
\ No newline at end of file