From 9d980caab270f3697d059083e4b7a2825f221754 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Zden=C4=9Bk=20=C5=A0ustr?= Date: Wed, 28 Jan 2009 09:17:28 +0000 Subject: [PATCH] Minor output format modifications. --- org.glite.lb/etics-tag-consistency.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/org.glite.lb/etics-tag-consistency.pl b/org.glite.lb/etics-tag-consistency.pl index 34da9ec..3ffbeac 100755 --- a/org.glite.lb/etics-tag-consistency.pl +++ b/org.glite.lb/etics-tag-consistency.pl @@ -28,7 +28,7 @@ usage: $0 [-h] subsystem.name [subsystem.name] [...] die $usage unless @ARGV[0]; if (defined $opt_c) { - printf ("\n\nYou have selected the -c option. Note that etics may require authetication.\n If you cannot see any progress in the script, it is probably waiting for your password. ;-)\n\n"); + printf ("\n\nYou have selected the -c option. Note that etics may require authetication.\n If you cannot see any progress in the script, it is probably waiting for your password. ;-)\n\n"); } # ********************************** @@ -40,7 +40,7 @@ usage: $0 [-h] subsystem.name [subsystem.name] [...] #Clean possible trailing '/' (even multiple occurrences :-) from subsystem name $subsystem=~s/\/+$//; - printf(" $subsystem\n"); + printf("$subsystem\n"); $subsystem=~/\.([^\.]+?)$/; @@ -50,7 +50,7 @@ usage: $0 [-h] subsystem.name [subsystem.name] [...] foreach $module (@modules) { - printf(" %-30s", $module); + printf(" %-30s", $module); if (open VP, "$module/project/version.properties") { @@ -75,19 +75,19 @@ usage: $0 [-h] subsystem.name [subsystem.name] [...] $current_prefix="$current_prefix" . "_R_"; $current_tag="$current_prefix" . "$current_major" . "_$current_minor" . "_$current_revision" . "_$current_age"; - if ($module eq $subsystem) { $subsystem_tag = $current_tag; } + if ($module eq $subsystem) { $subsystem_tag = $current_tag; } printf("\t $current_major.$current_minor.$current_revision-$current_age"); unless (system("cvs log -h $module/project/version.properties | grep -E \"\\W$current_tag\\W\" > /dev/null")) - { printf ("\t module tag OK"); } + { printf ("\t mod. OK"); } else { printf(STDERR "\nERROR: Tag $current_tag does not exist in module $module!\n"); } if ($module ne $subsystem ) { unless (system("cvs log -h $module/project/version.properties | grep -E \"\\W$subsystem_tag\\W\" > /dev/null")) - { printf ("\t subsystem tag OK"); } + { printf ("\t subsys. OK"); } else { printf(STDERR "\nERROR: Tag $subsystem_tag does not exist in module $module!\n"); } @@ -103,7 +103,7 @@ usage: $0 [-h] subsystem.name [subsystem.name] [...] if (defined $opt_c) { unless (system("etics-list-configuration $module | grep \"$current_tag\" &> /dev/null")) - { printf ("\t etics configuration OK"); } + { printf ("\t etics OK"); } else { printf(STDERR "\nERROR: Configuration $current_tag for module $module does not exist!\n"); } -- 1.8.2.3