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; |
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); |
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 |
} |
} |