gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

This should be good enough to replace text-extract.pl, but some real 

testing is needed.
This commit is contained in:
acli 2004-02-12 09:02:39 +00:00
parent 7d244a0b70
commit 0be46ba475
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
misc/translator/text-extract2.pl
View File

@ -7,8 +7,6 @@
# This script is meant to be a drop-in replacement of text-extract.pl
# FIXME: Trailing spaces are not yet handled correctly
use Getopt::Long;
use strict;
@ -201,6 +199,7 @@ sub text_extract (*) {
last unless defined $s;
my($kind, $t, $attr) = @$s; # FIXME
if ($kind eq KIND_TEXT) {
$t =~ s/\s+$//s;
$text{$t} = 1 if $t =~ /\S/s; # FIXME... trailing whitespace
} elsif ($kind eq KIND_TAG && %$attr) {
# value [tag=input], meta
@ -210,13 +209,14 @@ sub text_extract (*) {
next if $a eq 'content' && $tag ne 'meta';
next if $a eq 'value' && $tag ne 'input';
my($key, $val, $val_orig, $order) = @{$attr->{$a}};
$val =~ s/\s+$//s;
$text{$val} = 1 if $val =~ /\S/s;
}
}
}
}
for my $t (keys %text) {
printf "%s\n", $t unless $t =~ /^(?:\s|\ )*$/;
printf "%s\n", $t unless $t =~ /^(?:\s|\ )*$/s;
}
}