[csw-devel] SF.net SVN: opencsw:[663] mirror/check_prtdiag

[dmichelsen at users.sourceforge.net]

Revision: 663
          http://sourceforge.net/p/opencsw/code/663
Author:   dmichelsen
Date:     2013-05-22 14:22:49 +0000 (Wed, 22 May 2013)
Log Message:
-----------
check_prtdiag: Fix output

Modified Paths:
--------------
    mirror/check_prtdiag

Modified: mirror/check_prtdiag
===================================================================
--- mirror/check_prtdiag	2013-05-13 10:05:11 UTC (rev 662)
+++ mirror/check_prtdiag	2013-05-22 14:22:49 UTC (rev 663)
@@ -369,7 +369,7 @@
 if( scalar(@failed) > 0 )
 {
 	print STDERR "\n" if( $verbose );
-	print STDOUT "CRITICAL - Checked $checked component".( $checked le 1 ? "" : "s").", found ".scalar(@failed)." errors : ".join(', ', at failed)."|";
+	print STDOUT uc( $PROGNAME ) . " CRITICAL - Checked $checked component".( $checked le 1 ? "" : "s").", found ".scalar(@failed)." errors : ".join(', ', at failed)."|";
 	print STDOUT join(', ', at passed);
 	print STDOUT "\n";
 	exit(2);
@@ -377,13 +377,13 @@
 elsif( $checked == 0 )
 {
 	print STDERR "\n" if( $verbose );
-	print STDOUT "WARNING - Found nothing to check !\n";
+	print STDOUT uc( $PROGNAME ) . " WARNING - Found nothing to check !\n";
 	exit(1);
 }
 else
 {
 	print STDERR "\n" if( $verbose );
-	print STDOUT "OK - Successfully checked $checked component".( $checked le 1 ? "" : "s")."|";
+	print STDOUT uc( $PROGNAME ) . " OK - Successfully checked $checked component".( $checked le 1 ? "" : "s")."|";
 	print STDOUT join(', ', at passed);
 	print STDOUT "\n";
 	exit(0);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.