separate version option from help
authorRicardo Mones <ricardo@mones.org>
Fri, 17 Oct 2008 10:41:36 +0000 (10:41 +0000)
committerRicardo Mones <ricardo@mones.org>
Fri, 17 Oct 2008 10:41:36 +0000 (10:41 +0000)
ChangeLog
VERSION
clawsker

index e3bd878..7dda139 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-17 12:39  mones   0.5.0svn199
+
+       * clawsker
+               Separate version info option from help
+
 2008-10-17 03:57  mones   0.5.0svn198
 
        * po/Makefile
diff --git a/VERSION b/VERSION
index 390a733..b80ec73 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.5.0svn198
+0.5.0svn199
index 808cfee..f2dae0a 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -983,10 +983,8 @@ sub new_colours_page() {
     return $cf;
 }
 
-# the command line help
-sub print_help() {
-    my $line = '-' x length ($xl::s{about_title}) . "\n";
-    print $line;
+# version info
+sub print_version() {
     print $xl::s{about_title} . "\n";
     print $xl::s{about_version} . " $VERSION\n";
     print "Perl-GLib " . $Glib::VERSION;
@@ -1004,11 +1002,19 @@ sub print_help() {
                  &Gtk2::minor_version, &Gtk2::micro_version);
     }
     print "\n";
+}
+
+# the command line help
+sub print_help() {
+    my $line = '-' x length ($xl::s{about_title}) . "\n";
+    print $line;
+    print $xl::s{about_title} . "\n";
     print $line;
     print _("Syntax:\n");
     print _("    clawsker [options]\n");
     print _("Options:\n");
     print _("    --help                         Prints this help screen.\n");
+    print _("    --version                      Prints version infos.\n");
     print _("    --verbose                      More messages on standard output.\n");
     print _("    --alternate-config-dir <dir>   Uses <dir> as Claws Mail config dir.\n");
     print _("    --clawsrc <file>               Uses <file> as full resource name.\n");
@@ -1031,6 +1037,10 @@ sub parse_command_line() {
                &print_help; 
                 return FALSE;
            };
+            /--version/ && do { 
+               &print_version; 
+                return FALSE;
+           };
            /--verbose/ && do {
                $VERBOSE = TRUE;
                last;