Mercurial > hg > foxridge-archiver

changeset 50:724c615b5982

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added please-wait-message
author casties
date Wed, 21 Mar 2007 15:21:01 +0100
parents 4d958249d337
children 116162d2d06e
files archivecheck.pl unarchiver.pl
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/archivecheck.pl	Tue Mar 06 18:41:25 2007 +0100
+++ b/archivecheck.pl	Wed Mar 21 15:21:01 2007 +0100
@@ -16,7 +16,7 @@
 #
 
 # program version
-my $version = "0.4.2 (7.12.2005 ROC)";
+my $version = "0.4.3 (21.3.2007 ROC)";
 
 # read command line parameters
 my $args = parseargs;
@@ -205,6 +205,7 @@
     $archcmd .= " -description='$archname'";
     $archcmd .= " '$dirquery'";
 
+    logger('INFO', "querying TSM server for $dirquery, please wait...");
     my $archcnt = 0;
     print LOG "CMD: $archcmd\n";
     if (open ARCH, "$archcmd 2>&1 |") {
--- a/unarchiver.pl	Tue Mar 06 18:41:25 2007 +0100
+++ b/unarchiver.pl	Wed Mar 21 15:21:01 2007 +0100
@@ -18,7 +18,7 @@
 #
 
 # program version
-my $version = "0.3.1 (21.6.2005)";
+my $version = "0.3.2 (21.3.2007)";
 
 # read command line parameters
 my $args = parseargs;
@@ -205,6 +205,8 @@
     $archcmd .= " '$archmount/'"; # archive mount point
     $archcmd .= " '$archparent/'"; # destination dir name
 
+    logger('INFO', "querying TSM server for $archmount, please wait...");
+
     my $archcnt = 0;
     my $numfiles = 0;
     print LOG "CMD: $archcmd\n";