From: Tara L Andrews <tla@mit.edu>
Date: Sat, 17 Aug 2013 18:41:07 +0000 (+0200)
Subject: Slightly more informative closing message
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b8ed4449efec54b85faf36ec37148f4645be407;p=scpubgit%2Fstemmatology.git

Slightly more informative closing message
---

diff --git a/analysis/idp_server/idprestore.pl b/analysis/idp_server/idprestore.pl
index 358976e..e25ac33 100644
--- 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