[sword-svn] r225 - trunk/modules/perlconverters

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-10-28 17:11:41 -0700 (Wed, 28 Oct 2009)
New Revision: 225

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
finished adding revision/date info to usage statement

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-10-29 00:00:08 UTC (rev 224)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-10-29 00:11:41 UTC (rev 225)
@@ -43,8 +43,8 @@
 
 # Stores the script version and date
 $version = "1.7";
-$date = qw/$Date$/;
-$rev = qw/$Rev$/;
+$date = '$Date$';
+$rev = '$Rev$';
 # Sets the version of OSIS used in the OSIS header
 $osisVersion = "2.1.1";
 # Stores the USFM Version
@@ -80,6 +80,11 @@
  "BLT" => "Bel", "ADE" => "AddEsth"
  );
 
+$date =~ /(\d{4}-\d{2}-\d{2})/;
+$rev .= "($1)";
+$rev =~ s/\$//g;
+$rev =~ s/Rev: //;
+
 # Generates a list of available encodings.
 use Encode;
 @encodingList = Encode->encodings(":all");
@@ -90,7 +95,7 @@
 
 # Syntax instructions
 if (scalar(@ARGV) < 2) {
-    print "\nusfm2osis.pl -- USFM $usfmVersion to OSIS $osisVersion converter version $version-$rev\n($date)\n\nSyntax: usfm2osis.pl <osisWork> [-o OSIS-file] [-e USFM encoding] <USFM filenames|wildcard>\n";
+    print "\nusfm2osis.pl -- USFM $usfmVersion to OSIS $osisVersion converter version $version\nRevision $rev\n\nSyntax: usfm2osis.pl <osisWork> [-o OSIS-file] [-e USFM encoding] <USFM filenames|wildcard>\n";
     print "- Arguments in braces < > are required. Arguments in brackets [ ] are optional.\n";
     print "- The osisWork is a short name with no spaces which will identify your module.\n";
     print "- If no -o option is specified for the output filename, the default output file is: \n\tosisWork.osis.xml.\n";