[pkg-kolab] r1450 - pkg-kolab_testsuite

[Mathieu Parent]

Author: sathieu
Date: 2009-11-29 12:03:17 +0000 (Sun, 29 Nov 2009)
New Revision: 1450

Modified:
   pkg-kolab_testsuite/testsuite
Log:
More verbosity about platform

Modified: pkg-kolab_testsuite/testsuite
===================================================================
--- pkg-kolab_testsuite/testsuite	2009-11-29 01:08:59 UTC (rev 1449)
+++ pkg-kolab_testsuite/testsuite	2009-11-29 12:03:17 UTC (rev 1450)
@@ -185,6 +185,11 @@
     return $size;
 }
 
+#-------------------------------------------------------
+sub list_platforms
+{
+    print join("\n", $cfg->Sections)."\n";
+}
 #=======================================================
 # Domain functions
 #-------------------------------------------------------
@@ -974,12 +979,17 @@
         exit 0;
     }
     if($platform eq 'none') {
-        print "Missing option: --platform\n";
-        pod2usage(-exitstatus => 0, -verbose => 1);
+        print "Missing option: --platform\n\n";
+        print "Available platforms:\n";
+        list_platforms();
+        print "\n";
+        pod2usage(-exitstatus => 1, -verbose => 1);
     }
     if(!$cfg->SectionExists($platform)) {
-        print "Platform does'nt exists: $platform\n";
-        pod2usage(-exitstatus => 0, -verbose => 1);
+        print "Platform does'nt exists: $platform\n\n";
+        print "Available platforms:\n";
+        list_platforms();
+        exit(1);
     }
     
     #SSH