/[webpac]/trunk2/all2all.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/all2all.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 67 by dpavlin, Fri Jul 4 23:29:27 2003 UTC revision 90 by dpavlin, Sun Jul 13 13:22:50 2003 UTC
# Line 124  sub data2xml { Line 124  sub data2xml {
124                          # init vars so that we go into while...                          # init vars so that we go into while...
125                          ($swish,$display) = (1,1);                          ($swish,$display) = (1,1);
126    
127                          if ($swish || $display) {                          # while because of repeatable fields
128                            while ($swish || $display) {
129                                  ($swish,$display) = parse_format($type, $format,$row,$repeat_off++,$import2cp);                                  ($swish,$display) = parse_format($type, $format,$row,$repeat_off++,$import2cp);
130                                    if ($repeat_off > 1000) {
131                                            print STDERR "loop (more than 1000 repeatable fields) deteced in $row, $format\n";
132                                            last;
133                                    }
134                                    
135                                  # filter="name" ; filter this field through                                  # filter="name" ; filter this field through
136                                  # filter/[name].pm                                  # filter/[name].pm
137                                  my $filter = $x->{filter};                                  my $filter = $x->{filter};
# Line 231  sub data2xml { Line 237  sub data2xml {
237    
238          # dump formatted output in <html>          # dump formatted output in <html>
239          if ($html) {          if ($html) {
240                  $xml .= xmlify("html",$html);                  #$xml .= xmlify("html",$html);
241                    $xml .= "<html><![CDATA[ $html ]]></html>";
242          }          }
243                    
244          if ($xml) {          if ($xml) {
# Line 431  print STDERR "using: $type...\n"; Line 438  print STDERR "using: $type...\n";
438    
439                  open(FEED,"feeds/$prog |") || die "can't start $prog: $!";                  open(FEED,"feeds/$prog |") || die "can't start $prog: $!";
440    
441                  my $i=0;        # record nr.                  my $i=1;        # record nr.
442    
443                  my $data;                  my $data;
444                  my $line=1;                  my $line=1;
# Line 440  print STDERR "using: $type...\n"; Line 447  print STDERR "using: $type...\n";
447                          chomp;                          chomp;
448    
449                          if (/^$/) {                          if (/^$/) {
450                                  my $swishpath = $database."#".$i;                                  my $swishpath = $database."#".$i++;
451    
452                                  if (my $xml = data2xml($type_base,$data,$add_xml,$cfg,$database)) {                                  if (my $xml = data2xml($type_base,$data,$add_xml,$cfg,$database)) {
453                                          $xml = $cp2utf->convert($xml);                                          $xml = $cp2utf->convert($xml);
# Line 454  print STDERR "using: $type...\n"; Line 461  print STDERR "using: $type...\n";
461                                  next;                                  next;
462                          }                          }
463    
464                            $line = $1 if (s/^(\d+):\s*//);
465                          $data->{$line++} = $_;                          $data->{$line++} = $_;
466    
467                          fakeprogress($i++);                          fakeprogress($i);
468    
469                  }                  }
470          }          }
# Line 471  __END__ Line 479  __END__
479    
480  =head1 NAME  =head1 NAME
481    
482  isis2xml.pl - read isis file and dump XML  all2xml.pl - read various file formats and dump XML for SWISH-E
483    
484  =head1 DESCRIPTION  =head1 DESCRIPTION
485    
486  This command will read ISIS data file using OpenIsis perl module and  This command will read ISIS data file using OpenIsis perl module, MARC
487  create XML file for usage with I<SWISH-E>  records using MARC module and optionally Micro$oft Excel files to
488  indexer. Dispite it's name, this script B<isn't general xml generator>  create one XML file for usage with I<SWISH-E> indexer. Dispite it's name,
489  from isis files (isis allready has something like that). Output of this  this script B<isn't general xml generator> from isis files (isis allready
490  script is tailor-made for SWISH-E.  has something like that). Output of this script is tailor-made for SWISH-E.
491    
492    =head1 BUGS
493    
494    Documentation is really lacking. However, in true Open Source spirit, source
495    is best documentation. I even made considerable effort to comment parts
496    which are not intuitively clear, so...
497    
498  =head1 AUTHOR  =head1 AUTHOR
499    

Legend:
Removed from v.67  
changed lines
  Added in v.90

  ViewVC Help
Powered by ViewVC 1.1.26