[Qsos-commits] qsos/tools/showtemplate showtemplate.pl

[Gonéri Le Bouder]

CVSROOT:        /sources/qsos
Module name:    qsos
Branch:         
Changes by:     Gonéri Le Bouder <address@hidden>      06/04/24 16:20:01

Modified files:
        tools/showtemplate: showtemplate.pl 

Log message:
        drop <licenseid>, <release> and <qsosspecificformat>
        fix: close </document> correctly

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/qsos/tools/showtemplate/showtemplate.pl.diff?tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: qsos/tools/showtemplate/showtemplate.pl
diff -u qsos/tools/showtemplate/showtemplate.pl:1.3 
qsos/tools/showtemplate/showtemplate.pl:1.4
--- qsos/tools/showtemplate/showtemplate.pl:1.3 Tue Apr 18 09:47:25 2006
+++ qsos/tools/showtemplate/showtemplate.pl     Mon Apr 24 16:20:01 2006
@@ -5,7 +5,9 @@
 use Getopt::Long;
 
 sub _help {
-  print "usage createtemplate.pl -f sheet.qsos > template.qsos\n";
+  print "usage createtemplate.pl (option) -f sheet.qsos > template.qsos\n";
+  print "option:\n"; 
+  print "\t--global -g : global\n"; 
 }
 my ($help, $file, $global);
 
@@ -15,7 +17,7 @@
   'help' => \$help,
 );
 
-if (!($file && (-f $file))) {
+if ($help || !($file && (-f $file))) {
   _help();
   exit 1;
 }
@@ -29,11 +31,14 @@
   s!(<creation>).+(<\/creation>)!$1$2!g;
   s!(<appname>).+(<\/appname>)!$1$2!g;
   s!(<licensedesc>).+(<\/licensedesc>)!$1$2!g;
+  s!(<licenseid>).+(<\/licenseid>)!$1$2!g;
+  s!(<release>).+(<\/release>)!$1$2!g;
   s!(<url>).+(<\/url>)!$1$2!g;
   s!(<email>).+(<\/email>)!$1$2!g;
   s!(<name>).+(<\/name>)!$1$2!g;
   s!(<qsosappfamily>).+(<\/qsosappfamily>)!$1$2!g;
   s!(<demourl>).+(<\/demourl>)!$1$2!g;
+  s!(<qsosspecificformat>).+(<\/qsosspecificformat>)!$1$2!g;
   if ($inheader) {
     s!(<desc>).+(<\/desc>)!$1$2!g;
   }
@@ -45,7 +50,7 @@
   chomp if (s!^[\t\ ]{0,}$!!);
   print;
   if ($global && /<\/section>/) {
-    print "<document>\n";
+    print "</document>\n";
     last;
   }
 }