the great rename: isis2xml.* -> all2xml.*

[webpac] / all2xml.pl
diff --git a/all2xml.pl b/all2xml.pl

index 101d871..ca67d72 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -231,7 +231,8 @@ sub data2xml {
  
         # dump formatted output in <html>
         if ($html) {
-               $xml .= xmlify("html",$html);
+               #$xml .= xmlify("html",$html);
+               $xml .= "<html><![CDATA[ $html ]]></html>";
         }
         
         if ($xml) {
@@ -431,7 +432,7 @@ print STDERR "using: $type...\n";
  
                 open(FEED,"feeds/$prog |") || die "can't start $prog: $!";
  
-               my $i=0;        # record nr.
+               my $i=1;        # record nr.
  
                 my $data;
                 my $line=1;
@@ -440,7 +441,7 @@ print STDERR "using: $type...\n";
                         chomp;
  
                         if (/^$/) {
-                               my $swishpath = $database."#".$i;
+                               my $swishpath = $database."#".$i++;
  
                                 if (my $xml = data2xml($type_base,$data,$add_xml,$cfg,$database)) {
                                         $xml = $cp2utf->convert($xml);
@@ -454,9 +455,10 @@ print STDERR "using: $type...\n";
                                 next;
                         }
  
+                       $line = $1 if (s/^(\d+):\s*//);
                         $data->{$line++} = $_;
  
-                       fakeprogress($i++);
+                       fakeprogress($i);
  
                 }
         }
@@ -471,15 +473,21 @@ __END__
  
  =head1 NAME
  
-isis2xml.pl - read isis file and dump XML
+all2xml.pl - read various file formats and dump XML for SWISH-E
  
  =head1 DESCRIPTION
  
-This command will read ISIS data file using OpenIsis perl module and
-create XML file for usage with I<SWISH-E>
-indexer. Dispite it's name, this script B<isn't general xml generator>
-from isis files (isis allready has something like that). Output of this
-script is tailor-made for SWISH-E.
+This command will read ISIS data file using OpenIsis perl module, MARC
+records using MARC module and optionally Micro$oft Excel files to
+create one XML file for usage with I<SWISH-E> indexer. Dispite it's name,
+this script B<isn't general xml generator> from isis files (isis allready
+has something like that). Output of this script is tailor-made for SWISH-E.
+
+=head1 BUGS
+
+Documentation is really lacking. However, in true Open Source spirit, source
+is best documentation. I even made considerable effort to comment parts
+which are not intuitively clear, so...
  
  =head1 AUTHOR