+
+#
+# Pedantically check that all the html tags in each language file
+# match.
+#
+sub CheckLangTags
+{
+ my($en, $enVars) = LangParse("lib/BackupPC/Lang/en.pm");
+ my($errors);
+
+ foreach my $lang ( qw(fr.pm de.pm es.pm it.pm nl.pm) ) {
+ my($d, $dVars) = LangParse("lib/BackupPC/Lang/$lang");
+ foreach my $v1 ( @$en ) {
+ my $v2 = shift(@$d);
+ if ( $v1->{var} ne $v2->{var} ) {
+ print("Botch: got $lang var $v2->{var} vs en.pm $v1->{var}\n");
+ exit;
+ }
+ my $t1 = LangTextStrip($v1->{val});
+ my $t2 = LangTextStrip($v2->{val});
+ if ( $t1 ne $t2 ) {
+ print("$v1->{var}: got en.pm $t1\nvs $lang $t2\n\n");
+ $errors++;
+ }
+ }
+ }
+ return $errors;
+}
+
+sub LangTextStrip
+{
+ my($t) = @_;
+
+ $t = "" if ( $t !~ /<.*>/ );
+ $t =~ s/^[^<]*</</s;
+ $t =~ s/([}>])[^<]*</$1</g;
+ $t =~ s/>[^<]*$/>/;
+ $t =~ s/(value=)"[^"]*"/$1""/sg;
+ $t =~ s/({h[12]\()"[^"]*"/$1""/g;
+ $t =~ s/ENG[\s\n]*//sg;
+ $t =~ s/^(<<EOF;\n)[^<]*/$1/g;
+ return $t;
+}
+
+sub LangParse
+{
+ my($file) = @_;
+ open(C, $file) || die("can't open $file");
+ binmode(C);
+ my($out, @lang, $var);
+ my $comment = 1;
+ my $allVars = {};
+ my $endLine = undef;
+ while ( <C> ) {
+ if ( /^#/ && !defined($endLine) ) {
+ if ( $comment ) {
+ $out .= $_;
+ } else {
+ if ( $out ne "" ) {
+ $allVars->{$var} = @lang if ( defined($var) );
+ push(@lang, {
+ text => $out,
+ var => $var,
+ });
+ }
+ $var = undef;
+ $comment = 1;
+ $out = $_;
+ }
+ } elsif ( /^\s*\$Lang\{([^}]*)/ ) {
+ $comment = 0;
+ if ( defined($var) ) {
+ $allVars->{$var} = @lang if ( defined($var) );
+ push(@lang, {
+ text => $out,
+ var => $var,
+ });
+ $out = $_;
+ } else {
+ $out .= $_;
+ }
+ $var = $1;
+ $endLine = $1 if ( /^\s*\$Lang\{[^}]*} *= *<<(.*);/ );
+ $endLine = $1 if ( /^\s*\$Lang\{[^}]*} *= *<<'(.*)';/ );
+ } else {
+ $endLine = undef if ( defined($endLine) && /^\Q$endLine[\n\r]*$/ );
+ $out .= $_;
+ }
+ }
+ if ( $out ne "" ) {
+ $allVars->{$var} = @lang if ( defined($var) );
+ push(@lang, {
+ text => $out,
+ var => $var,
+ });
+ }
+ close(C);
+ foreach my $v ( @lang ) {
+ if ( $v->{text} =~ /\$Lang{$v->{var}}\s*=\s*(.*)/s ) {
+ $v->{val} = $1;
+ }
+ }
+ return (\@lang, $allVars);
+}