mathieu: utils/ci/toolbox kolab-test-toolbox.pl,1.1,1.2

[cvs at kolab.org]

Author: mathieu

Update of /kolabrepository/utils/ci/toolbox
In directory doto:/tmp/cvs-serv16143

Modified Files:
	kolab-test-toolbox.pl 
Log Message:
Show help if no action specified

Index: kolab-test-toolbox.pl
===================================================================
RCS file: /kolabrepository/utils/ci/toolbox/kolab-test-toolbox.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- kolab-test-toolbox.pl	4 Dec 2009 07:35:04 -0000	1.1
+++ kolab-test-toolbox.pl	10 Dec 2009 18:27:16 -0000	1.2
@@ -963,6 +963,7 @@
 #-------------------------------------------------------
 my $o_help = 0;
 my $o_man = 0;
+my $action;
 my $result = GetOptions(
     'help|?' => \$o_help,
     'man' => \$o_man,
@@ -972,12 +973,13 @@
 
 pod2usage(-exitstatus => 0, -verbose => 2) if $o_man;
 pod2usage(-exitstatus => 0, -verbose => 1) if $o_help;
+pod2usage(-exitstatus => 0, -verbose => 1) if !$action;
 
 #-------------------------------------------------------
 
 sub process
 {
-    my $action = shift;
+    $action = shift;
     
     if(!defined($vmm)) {
         initial_check();