/[webpac]/trunk/all2xml.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 /trunk/all2xml.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 74 by dpavlin, Sat Jul 5 22:37:30 2003 UTC
# Line 431  print STDERR "using: $type...\n"; Line 431  print STDERR "using: $type...\n";
431    
432                  open(FEED,"feeds/$prog |") || die "can't start $prog: $!";                  open(FEED,"feeds/$prog |") || die "can't start $prog: $!";
433    
434                  my $i=0;        # record nr.                  my $i=1;        # record nr.
435    
436                  my $data;                  my $data;
437                  my $line=1;                  my $line=1;
# Line 440  print STDERR "using: $type...\n"; Line 440  print STDERR "using: $type...\n";
440                          chomp;                          chomp;
441    
442                          if (/^$/) {                          if (/^$/) {
443                                  my $swishpath = $database."#".$i;                                  my $swishpath = $database."#".$i++;
444    
445                                  if (my $xml = data2xml($type_base,$data,$add_xml,$cfg,$database)) {                                  if (my $xml = data2xml($type_base,$data,$add_xml,$cfg,$database)) {
446                                          $xml = $cp2utf->convert($xml);                                          $xml = $cp2utf->convert($xml);
# Line 454  print STDERR "using: $type...\n"; Line 454  print STDERR "using: $type...\n";
454                                  next;                                  next;
455                          }                          }
456    
457                            $line = $1 if (s/^(\d+):\s*//);
458                          $data->{$line++} = $_;                          $data->{$line++} = $_;
459    
460                          fakeprogress($i++);                          fakeprogress($i);
461    
462                  }                  }
463          }          }

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

  ViewVC Help
Powered by ViewVC 1.1.26