X-Git-Url: http://git.claws-mail.org/?p=clawsker.git;a=blobdiff_plain;f=clawsker;h=f2dae0a109f1ceb533ff703b7544485f8f298b9b;hp=808cfee691d4a9b08c5dd1e73216eb171e3ce938;hb=96ec096c62a0716d9a26d274624b5081e354ed72;hpb=13f7f28925d57c54a2333e3d9a706f94fdd47098 diff --git a/clawsker b/clawsker index 808cfee..f2dae0a 100755 --- 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