[sword-svn] r143 - trunk/modules/perlconverters
chrislit at www.crosswire.org
chrislit at www.crosswire.org
Thu Jun 12 07:15:25 MST 2008
Author: chrislit
Date: 2008-06-12 07:15:25 -0700 (Thu, 12 Jun 2008)
New Revision: 143
Modified:
trunk/modules/perlconverters/zef2osis.pl
Log:
tiny bug
Modified: trunk/modules/perlconverters/zef2osis.pl
===================================================================
--- trunk/modules/perlconverters/zef2osis.pl 2008-06-12 09:04:38 UTC (rev 142)
+++ trunk/modules/perlconverters/zef2osis.pl 2008-06-12 14:15:25 UTC (rev 143)
@@ -1,227 +1,227 @@
-#!/usr/bin/perl
-
-## Zefania XML to OSIS (2.1.1) converter
-
-## Licensed under the standard BSD license:
-
-# Copyright (c) 2007 CrossWire Bible Society <http://www.crosswire.org/>
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are
-# met:
-#
-# * Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-# * Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in
-# the documentation and/or other materials provided with the
-# distribution.
-# * Neither the name of the CrossWire Bible Society nor the names of
-# its contributors may be used to endorse or promote products
-# derived from this software without specific prior written
-# permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-## For general inquiries, comments, suggestions, bug reports, etc. email:
-## sword-support at crosswire.org
-
-#########################################################################
-
-$version = "1.0";
-$date = "2007-04-21";
-$osisVersion = "2.1.1";
-
- at OSISbook = (
-#OT
- "Gen", "Exod", "Lev", "Num", "Deut", "Josh", "Judg", "Ruth", "1Sam", "2Sam", "1Kgs", "2Kgs", "1Chr", "2Chr", "Ezra", "Neh", "Esth", "Job", "Ps", "Prov", "Eccl", "Song", "Isa", "Jer", "Lam", "Ezek", "Dan", "Hos", "Joel", "Amos", "Obad", "Jonah", "Mic", "Nah", "Hab", "Zeph", "Hag", "Zech", "Mal",
-
-#NT
-"Matt", "Mark", "Luke", "John", "Acts", "Rom", "1Cor", "2Cor", "Gal", "Eph", "Phil", "Col", "1Thess", "2Thess", "1Tim", "2Tim", "Titus", "Phlm", "Heb", "Jas", "1Pet", "2Pet", "1John", "2John", "3John", "Jude", "Rev",
-
-#Apocrypha
-"Tob", "Jdt", "AddEsth", "Wis", "Sir", "Bar", "EpJer", "PrAzar", "Sus", "Bel", "1Macc", "2Macc", "3Macc", "4Macc", "1Esd", "2Esd", "PrMan", "Ps151", "PssSol", "Odes"
-);
-
-if (scalar(@ARGV) < 2) {
- print "zef2osis.pl -- Zefania XML to OSIS $osisVersion converter version $version ($date)\nSyntax: zef2osis.pl <osisWork> <input filename> [-o OSIS-file]\n";
- exit (-1);
-}
-
-$osisWork = $ARGV[0];
-
-if ($ARGV[2] eq "-o") {
- $outputFilename = "$ARGV[3];"
-}
-else {
- $outputFilename = "$osisWork.osis.xml";
-}
-open (OUTF, ">$outputFilename") or die "Could not open file $ARGV[2] for writing.";
-
-($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
-$year += 1900;
-$mon++;
-$date = sprintf("%04d\-%02d\-%02d", $year, $mon, $mday);
-
-open (INF, $ARGV[1]);
- at data = <INF>;
-close (INF);
-
-$book = "";
-$chap = "";
-$vers = "";
-
-$pr = 0;
-
-sub delempty {
- $iline = @_[1];
- $tag = @_[0];
- $iline =~ s/<$tag[^>]*><\/$tag>//g;
- return $iline;
-}
-
-$enc = "utf8";
-
-$q = 0;
-$hd_source = "<source>Zefania XML (http:\/\/www.zefania.de)<\/source>\n";
-$lang = "";
-$hd_title = "<title><\/title>\n";
-$hd_description = "<description><\/description>\n";
-
-foreach $line (@data) {
- if ($enc ne "utf8") {
- utf8::encode($line);
- }
-
- if ($pr == 1) {
-
- $line =~ s/[\r\n]+/\n/g;
- $line =~ s/^\s+//;
- $line =~ s/\s+$//;
- $line =~ s/¶//g; #delete pilcrows from OLB modules--they're inserted programmatically, not based on the actual text
- $line =~ s/<(\?|\!--)[^\>]+>//;
- $line =~ s/<\/XMLBIBLE>//;
-
- $i = 1;
- while ($i > 0) {
- $line = delempty("NOTE", $line);
- $line = delempty("DIV", $line);
- $line = delempty("STYLE", $line);
- $line = delempty("BIBLEBOOK", $line);
- $line = delempty("CHAPTER", $line);
- $line = delempty("VERS", $line);
- $i--;
- }
-
- $line =~ s/#FF0000/red/g;
-
- $line =~ s/<STYLE css=\"color:red\">([^<]+?)<\/STYLE>/<q who="Jesus">$1<\/q>/g;
- $line =~ s/<STYLE css=\"font-style:italic\;color:red\">([^<]+?)<\/STYLE>/<q who="Jesus"><hi type="italic">$1<\/hi><\/q>/g;
-
- $line =~ s/\;? ?color:\#[0-9a-fA-F]{6}\;?//g;
-
- $line =~ s/<STYLE css=\"font\-weight:bold\">(.+?)<\/STYLE>/<hi type="bold">$1<\/hi>/g;
- $line =~ s/<STYLE css=\"font\-style:italic\">(.+?)<\/STYLE>/<hi type="italic">$1<\/hi>/g;
- $line =~ s/<STYLE css=\"font\-size: ?x-small\">(.+?)<\/STYLE>/<hi type="x-small">$1<\/hi>/g;
-
- $line =~ s/<STYLE css=\"color:red\">(.+?)<\/STYLE>/<q who="Jesus">$1<\/q>/g;
-
- if ($line =~ /<BIBLEBOOK /) {
- $line =~ s/<BIBLEBOOK .*?bnumber=\"(\d+)\".*?>/<div type="book" osisID="@OSISbook[$1-1]">/;
- $book = @OSISbook[$1-1];
- }
- if ($line =~ /<CHAPTER /) {
- $line =~ s/<CHAPTER .*?cnumber=\"(\d+)\".*?>/<chapter osisID="$book.$1">/;
- $chap = $1;
- }
-
- $line =~ s/<VERS vnumber=\"0\">(.+?)<\/VERS>/<p>$1<\/p>/g;
-
- if ($line =~ /<VERS /) {
- $line =~ s/<VERS .*?vnumber=\"(\d+)\".*?>/<verse osisID="$book.$chap.$1">/;
- $vers = $1;
- }
-
- $line =~ s/<\/BIBLEBOOK>/<\/div>/g;
- $line =~ s/<\/CHAPTER>/<\/chapter>/g;
- $line =~ s/<\/VERS>/<\/verse>/g;
- $line =~ s/<(\/?)CAPTION[^>]*>/<$1title>/g;
- $line =~ s/<PROLOG[^>]*>/<div type="introduction">/g;
- $line =~ s/<\/PROLOG>/<\/div>/g;
-
- $line =~ s/n-studynote/x-studynote/g; #elberfelder hack
- $line =~ s/<DIV><NOTE type="x-studynote"><DIV><NOTE type="x-studynote">(.+?)<\/NOTE><\/DIV><\/NOTE><\/DIV>/<note>$2<\/note>/g; #elberfelder hack
- $line =~ s/<DIV><NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE>([^<]+)<\/DIV>/<note>$2$3<\/note>/g; #elberfelder hack
- $line =~ s/<DIV> <NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE><\/DIV>/ <note>$2<\/note>/g; #elberfelder hack
-
- $line =~ s/<DIV><NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE><\/DIV>/<note>$2<\/note>/g;
- $line =~ s/<DIV><NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE><\/DIV>/<note>$2<\/note>/g;
-
-
- $line =~ s/ <\/hi>/<\/hi> /g;
-
- if ($line !~ /^\s*$/) {
- print OUTF "$line\n";
- }
- }
- elsif ($line =~ /<\?xml .*?encoding=\"[Ii][Ss][Oo]\-8859\-1\"\?>/) {
- use encoding 'latin1';
- $enc = "latin1";
- }
- elsif ($line =~ /<\/INFORMATION>/) {
- print OUTF "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<osis xmlns=\"http://www.bibletechnologies.net/2003/OSIS/namespace\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://www.bibletechnologies.net/2003/OSIS/namespace http://www.bibletechnologies.net/osisCore.$osisVersion.xsd\">\n<osisText osisRefWork=\"Bible\" xml:lang=\"$lang\" osisIDWork=\"$osisWork\">\n<header>\n<revisionDesc><date>$date<\/date><p>initial OSIS 2.1.1 version<\/p><\/revisionDesc>\n<work osisWork=\"$osisWork\">\n$hd_title$hd_contributor$hd_creator<creator role=\"encoder\">zef2osis.pl from http:\/\/www.crosswire.org<\/creator>\n<date><\/date>\n$hd_description$hd_publisher<type type=\"OSIS\">Bible<\/type>\n<identifier type=\"OSIS\">$osisWork<\/identifier>\n$hd_source<language type=\"IETF\">$lang<\/language>\n$hd_rights<scope><\/scope>\n<refSystem>Bible<\/refSystem>\n<\/work>\n<\/header>\n";
-
- $pr = 1;
- }
- else {
- if ($line =~ /(<title>.+?<\/title>)/) {
- $hd_title = "$1\n";
- }
- elsif ($line =~ /(<creator>.+?<\/creator>)/) {
- $hd_creator = "$1\n";
- }
- elsif ($line =~ /(<contributors>.+?<\/contributors>)/) {
- $hd_contributor = "$1\n";
- $hd_contributor =~ s/contributors/contributor/;
- }
- elsif ($line =~ /(<description>.+?<\/description>)/) {
- $hd_description = "$1\n";
- }
- elsif ($line =~ /(<source>.+?<\/source>)/) {
- $hd_source = $1;
- $hd_source =~ s/<\/source>/\nvia Zefania XML (http:\/\/www.zefania.de)<\/source>\n/;
- }
- elsif ($line =~ /(<rights>.+?<\/rights>)/) {
- $hd_rights = "$1\n";
- }
- elsif ($line =~ /(<publisher>.+?<\/publisher>)/) {
- $hd_publisher = "$1\n";
- }
- elsif ($line =~ /<language>(.+?)<\/language>/) {
- $lang = $1;
- if ($lang eq "ENG") {
- $lang = "en";
- }
- elsif ($lang eq "GER") {
- $lang = "de";
- }
- else {$lang = ""};
- }
- }
-}
-
-print OUTF "<\/osisText>\n";
-print OUTF "<\/osis>\n";
-
-close (OUTF);
+#!/usr/bin/perl
+
+## Zefania XML to OSIS (2.1.1) converter
+
+## Licensed under the standard BSD license:
+
+# Copyright (c) 2007-2008 CrossWire Bible Society <http://www.crosswire.org/>
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+# * Redistributions of source code must retain the above copyright
+# notice, this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright
+# notice, this list of conditions and the following disclaimer in
+# the documentation and/or other materials provided with the
+# distribution.
+# * Neither the name of the CrossWire Bible Society nor the names of
+# its contributors may be used to endorse or promote products
+# derived from this software without specific prior written
+# permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+## For general inquiries, comments, suggestions, bug reports, etc. email:
+## sword-support at crosswire.org
+
+#########################################################################
+
+$version = "1.1";
+$date = "2008-06-12";
+$osisVersion = "2.1.1";
+
+ at OSISbook = (
+#OT
+ "Gen", "Exod", "Lev", "Num", "Deut", "Josh", "Judg", "Ruth", "1Sam", "2Sam", "1Kgs", "2Kgs", "1Chr", "2Chr", "Ezra", "Neh", "Esth", "Job", "Ps", "Prov", "Eccl", "Song", "Isa", "Jer", "Lam", "Ezek", "Dan", "Hos", "Joel", "Amos", "Obad", "Jonah", "Mic", "Nah", "Hab", "Zeph", "Hag", "Zech", "Mal",
+
+#NT
+"Matt", "Mark", "Luke", "John", "Acts", "Rom", "1Cor", "2Cor", "Gal", "Eph", "Phil", "Col", "1Thess", "2Thess", "1Tim", "2Tim", "Titus", "Phlm", "Heb", "Jas", "1Pet", "2Pet", "1John", "2John", "3John", "Jude", "Rev",
+
+#Apocrypha
+"Tob", "Jdt", "AddEsth", "Wis", "Sir", "Bar", "EpJer", "PrAzar", "Sus", "Bel", "1Macc", "2Macc", "3Macc", "4Macc", "1Esd", "2Esd", "PrMan", "Ps151", "PssSol", "Odes"
+);
+
+if (scalar(@ARGV) < 2) {
+ print "zef2osis.pl -- Zefania XML to OSIS $osisVersion converter version $version ($date)\nSyntax: zef2osis.pl <osisWork> <input filename> [-o OSIS-file]\n";
+ exit (-1);
+}
+
+$osisWork = $ARGV[0];
+
+if ($ARGV[2] eq "-o") {
+ $outputFilename = "$ARGV[3];"
+}
+else {
+ $outputFilename = "$osisWork.osis.xml";
+}
+open (OUTF, ">$outputFilename") or die "Could not open file $ARGV[2] for writing.";
+
+($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
+$year += 1900;
+$mon++;
+$date = sprintf("%04d\-%02d\-%02d", $year, $mon, $mday);
+
+open (INF, $ARGV[1]);
+ at data = <INF>;
+close (INF);
+
+$book = "";
+$chap = "";
+$vers = "";
+
+$pr = 0;
+
+sub delempty {
+ $iline = @_[1];
+ $tag = @_[0];
+ $iline =~ s/<$tag[^>]*><\/$tag>//g;
+ return $iline;
+}
+
+$enc = "utf8";
+
+$q = 0;
+$hd_source = "<source>Zefania XML (http:\/\/www.zefania.de)<\/source>\n";
+$lang = "";
+$hd_title = "<title><\/title>\n";
+$hd_description = "<description><\/description>\n";
+
+foreach $line (@data) {
+ if ($enc ne "utf8") {
+ utf8::encode($line);
+ }
+
+ if ($pr == 1) {
+
+ $line =~ s/[\r\n]+/\n/g;
+ $line =~ s/^\s+//;
+ $line =~ s/\s+$//;
+ $line =~ s/¶//g; #delete pilcrows from OLB modules--they're inserted programmatically, not based on the actual text
+ $line =~ s/<(\?|\!--)[^\>]+>//;
+ $line =~ s/<\/XMLBIBLE>//;
+
+ $i = 1;
+ while ($i > 0) {
+ $line = delempty("NOTE", $line);
+ $line = delempty("DIV", $line);
+ $line = delempty("STYLE", $line);
+ $line = delempty("BIBLEBOOK", $line);
+ $line = delempty("CHAPTER", $line);
+ $line = delempty("VERS", $line);
+ $i--;
+ }
+
+ $line =~ s/#FF0000/red/g;
+
+ $line =~ s/<STYLE css=\"color:red\">([^<]+?)<\/STYLE>/<q who="Jesus">$1<\/q>/g;
+ $line =~ s/<STYLE css=\"font-style:italic\;color:red\">([^<]+?)<\/STYLE>/<q who="Jesus"><hi type="italic">$1<\/hi><\/q>/g;
+
+ $line =~ s/\;? ?color:\#[0-9a-fA-F]{6}\;?//g;
+
+ $line =~ s/<STYLE css=\"font\-weight:bold\">(.+?)<\/STYLE>/<hi type="bold">$1<\/hi>/g;
+ $line =~ s/<STYLE css=\"font\-style:italic\">(.+?)<\/STYLE>/<hi type="italic">$1<\/hi>/g;
+ $line =~ s/<STYLE css=\"font\-size: ?x-small\">(.+?)<\/STYLE>/<hi type="x-small">$1<\/hi>/g;
+
+ $line =~ s/<STYLE css=\"color:red\">(.+?)<\/STYLE>/<q who="Jesus">$1<\/q>/g;
+
+ if ($line =~ /<BIBLEBOOK /) {
+ $line =~ s/<BIBLEBOOK .*?bnumber=\"(\d+)\".*?>/<div type="book" osisID="@OSISbook[$1-1]">/;
+ $book = @OSISbook[$1-1];
+ }
+ if ($line =~ /<CHAPTER /) {
+ $line =~ s/<CHAPTER .*?cnumber=\"(\d+)\".*?>/<chapter osisID="$book.$1">/;
+ $chap = $1;
+ }
+
+ $line =~ s/<VERS vnumber=\"0\">(.+?)<\/VERS>/<p>$1<\/p>/g;
+
+ if ($line =~ /<VERS /) {
+ $line =~ s/<VERS .*?vnumber=\"(\d+)\".*?>/<verse osisID="$book.$chap.$1">/;
+ $vers = $1;
+ }
+
+ $line =~ s/<\/BIBLEBOOK>/<\/div>/g;
+ $line =~ s/<\/CHAPTER>/<\/chapter>/g;
+ $line =~ s/<\/VERS>/<\/verse>/g;
+ $line =~ s/<(\/?)CAPTION[^>]*>/<$1title>/g;
+ $line =~ s/<PROLOG[^>]*>/<div type="introduction">/g;
+ $line =~ s/<\/PROLOG>/<\/div>/g;
+
+ $line =~ s/n-studynote/x-studynote/g; #elberfelder hack
+ $line =~ s/<DIV><NOTE type="x-studynote"><DIV><NOTE type="x-studynote">(.+?)<\/NOTE><\/DIV><\/NOTE><\/DIV>/<note>$2<\/note>/g; #elberfelder hack
+ $line =~ s/<DIV><NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE>([^<]+)<\/DIV>/<note>$2$3<\/note>/g; #elberfelder hack
+ $line =~ s/<DIV> <NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE><\/DIV>/ <note>$2<\/note>/g; #elberfelder hack
+
+ $line =~ s/<DIV><NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE><\/DIV>/<note>$2<\/note>/g;
+ $line =~ s/<DIV><NOTE type="(x-studynote|x-bold)">(.+?)<\/NOTE><\/DIV>/<note>$2<\/note>/g;
+
+
+ $line =~ s/ <\/hi>/<\/hi> /g;
+
+ if ($line !~ /^\s*$/) {
+ print OUTF "$line\n";
+ }
+ }
+ elsif ($line =~ /<\?xml .*?encoding=\"[Ii][Ss][Oo]\-8859\-1\"\?>/) {
+ use encoding 'latin1';
+ $enc = "latin1";
+ }
+ elsif ($line =~ /<\/INFORMATION>/) {
+ print OUTF "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<osis xmlns=\"http://www.bibletechnologies.net/2003/OSIS/namespace\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://www.bibletechnologies.net/2003/OSIS/namespace http://www.bibletechnologies.net/osisCore.$osisVersion.xsd\">\n<osisText osisRefWork=\"Bible\" xml:lang=\"$lang\" osisIDWork=\"$osisWork\">\n<header>\n<revisionDesc><date>$date<\/date><p>initial OSIS 2.1.1 version<\/p><\/revisionDesc>\n<work osisWork=\"$osisWork\">\n$hd_title$hd_contributor$hd_creator<creator role=\"encoder\">zef2osis.pl from http:\/\/www.crosswire.org<\/creator>\n<date><\/date>\n$hd_description$hd_publisher<type type=\"OSIS\">Bible<\/type>\n<identifier type=\"OSIS\">$osisWork<\/identifier>\n$hd_source<language type=\"IETF\">$lang<\/language>\n$hd_rights<scope><\/scope>\n<refSystem>Bible<\/refSystem>\n<\/work>\n<\/header>\n";
+
+ $pr = 1;
+ }
+ else {
+ if ($line =~ /(<title>.+?<\/title>)/) {
+ $hd_title = "$1\n";
+ }
+ elsif ($line =~ /(<creator>.+?<\/creator>)/) {
+ $hd_creator = "$1\n";
+ }
+ elsif ($line =~ /(<contributors>.+?<\/contributors>)/) {
+ $hd_contributor = "$1\n";
+ $hd_contributor =~ s/contributors/contributor/g;
+ }
+ elsif ($line =~ /(<description>.+?<\/description>)/) {
+ $hd_description = "$1\n";
+ }
+ elsif ($line =~ /(<source>.+?<\/source>)/) {
+ $hd_source = $1;
+ $hd_source =~ s/<\/source>/\nvia Zefania XML (http:\/\/www.zefania.de)<\/source>\n/;
+ }
+ elsif ($line =~ /(<rights>.+?<\/rights>)/) {
+ $hd_rights = "$1\n";
+ }
+ elsif ($line =~ /(<publisher>.+?<\/publisher>)/) {
+ $hd_publisher = "$1\n";
+ }
+ elsif ($line =~ /<language>(.+?)<\/language>/) {
+ $lang = $1;
+ if ($lang eq "ENG") {
+ $lang = "en";
+ }
+ elsif ($lang eq "GER") {
+ $lang = "de";
+ }
+ else {$lang = ""};
+ }
+ }
+}
+
+print OUTF "<\/osisText>\n";
+print OUTF "<\/osis>\n";
+
+close (OUTF);
More information about the sword-cvs
mailing list