Author: sparky Date: Tue Apr 18 17:26:46 2006 GMT
Module: vfmg Tag: HEAD
---- Log message:
- add version
---- Files affected:
vfmg:
vfmg (1.84 -> 1.85)
---- Diffs:
================================================================
Index: vfmg/vfmg
diff -u vfmg/vfmg:1.84 vfmg/vfmg:1.85
--- vfmg/vfmg:1.84 Tue Apr 18 18:08:53 2006
+++ vfmg/vfmg Tue Apr 18 19:26:41 2006
@@ -6,9 +6,12 @@
use Getopt::Long qw(GetOptions :config bundling);
use Encode qw(encode decode);
+my $VERSION = "0.9.95";
+
# header {{{
# default options {{{
my $o_help=0;
+my $o_version=0;
my $o_tags=0;
my $o_end=0;
my $o_verbose=0;
@@ -60,6 +63,7 @@
GetOptions( # {{{
'help|h' => \$o_help,
+ 'version|V' => \$o_version,
'tags|t' => \$o_tags,
'end|e' => \$o_end,
'verbose|v' => \$o_verbose,
@@ -107,7 +111,8 @@
Usage: $0 [options] [EMAIL PROTECTED]
Options:
- -h, --help - print this help
+ -h, --help - print this help and exit
+ -V, --version - print version information and exit
Diagnostics:
-t, --tags - echo omitted tags to stderr
@@ -156,6 +161,12 @@
EOF
exit;
} # }}}
+
+if ($o_version) {
+ print "VFolders Menu Generator version: $VERSION\n";
+ print 'Last update: $date$'."\n";
+ exit;
+}
unless (exists $ARGV[0]) {
local $" = ", ";
================================================================
---- CVS-web:
http://cvs.pld-linux.org/vfmg/vfmg?r1=1.84&r2=1.85&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
