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

[Goneri Le Bouder]

CVSROOT:        /sources/qsos
Module name:    qsos
Changes by:     Goneri Le Bouder <goneri>       06/11/30 19:10:58

Modified files:
        tools/createemptysheet: createemptysheet.pl 

Log message:
        now '-' can be used in .qin file name
        Thank you Walid for the bug report :).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qsos/tools/createemptysheet/createemptysheet.pl?cvsroot=qsos&r1=1.1&r2=1.2

Patches:
Index: createemptysheet.pl
===================================================================
RCS file: /sources/qsos/qsos/tools/createemptysheet/createemptysheet.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- createemptysheet.pl 10 Nov 2006 22:35:44 -0000      1.1
+++ createemptysheet.pl 30 Nov 2006 19:10:58 -0000      1.2
@@ -4,7 +4,7 @@
 
 use Getopt::Long;
 
-my $includedir;
+my $includedir = "../../sheet/include/";
 my $qtpl;
 
 GetOptions (
@@ -18,6 +18,7 @@
 
   print STDERR "usage:\n";
   print STDERR "  createemptysheet --include=/includepath --qtpl 
qsos-template.qtpl:\n";
+  print STDERR " Default include directory is $includedir\n";
   exit 1;
 }
 
@@ -31,7 +32,7 @@
 close QTPL;
 
 while (my $line = shift @buff) {
-  if ($line =~ /<include\W+section="(\w+)"\/>/) { # this is an include
+  if ($line =~ /<include\W+section="([-\w]+)"\W*\/>/) { # this is an include
 #    print STDERR "Including $1\n";
     open INCLUDE, "<$includedir/$1.qin" or die "Failed to open includefile
     $1.qin";