vfmg: vfmg - add version

[sparky]

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] {@wms}
 
 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