[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qsos-commits] qsos/tools/createemptysheet createemptysheet.pl
From: |
Goneri Le Bouder |
Subject: |
[Qsos-commits] qsos/tools/createemptysheet createemptysheet.pl |
Date: |
Thu, 30 Nov 2006 19:10:58 +0000 |
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";