# HG changeset patch
# User casties
# Date 1174486861 -3600
# Node ID 724c615b5982fd95f534be675722e2c3eb6de106
# Parent  4d958249d337c011c45fe6729c05ce71391a677c
added please-wait-message

diff -r 4d958249d337 -r 724c615b5982 archivecheck.pl
--- 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 |") {
diff -r 4d958249d337 -r 724c615b5982 unarchiver.pl
--- 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";