- open(OUT, ">$file") || die;
-
- my $copying = 0;
- my $text = "";
- while (my $line = <IN>) {
- chomp($line);
- if ("" eq $line) {
- print(OUT "\n");
- next;
- }
-
- while ("" ne $line) {
- if (!$copying) {
- if ($line =~ m|<translate>|i) {
- print(OUT $`);
- substr($line, 0, $+[0]) = "";
- $copying = 1;
- print(OUT "\n") if ("" eq $line);
-
- } else {
- print(OUT "${line}\n");
- $line = "";
- }
-
- } else {
- if ($line =~ m|</translate>|i) {
- $text .= $`;
- substr($line, 0, $+[0]) = "";
- $text =~ s/\s+/ /g;
- $copying = 0;
- $alllocales{$text} = 1;
- $htmllocale{$text} = 1;
- print(OUT $self->{"texts"}{$text} || $text);
- print(OUT "\n") if ("" eq $line);
- $text = "";
-
- } else {
- $text .= $line;
- $line = "";
- }
- }
- }
- }
-
- close(IN);
- close(OUT);