Improved tei support and script
Change-Id: I62fc97828aec1a1acec7d22f8892f54ed6d81803
diff --git a/script/korapxml2krill_dir b/script/korapxml2krill_dir
index fa589eb..1f8ec14 100644
--- a/script/korapxml2krill_dir
+++ b/script/korapxml2krill_dir
@@ -86,21 +86,29 @@
$call .= ' -y ' . $pretty if $pretty;
$call .= ' -a ' . $_ foreach @allow;
$call .= ' -s ' . $_ foreach @skip;
- print "Convert $file\n";
+ print $file;
system($call);
+ print "\n";
};
my $it = Directory::Iterator->new($input);
+my @dirs;
my $dir;
while (1) {
if (!$it->is_directory && ($dir = $it->get) && $dir =~ s{/data\.xml$}{}) {
- write_file($dir);
+ push @dirs, $dir;
$it->prune;
};
last unless $it->next;
};
+my $count = scalar @dirs;
+for (my $i = 0; $i < $count; $i++) {
+ print "Convert [$i/$count] ";
+ write_file($dirs[$i]);
+};
+
__END__