X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=locale%2Fde%2Flocales.pl;h=a497ee6915a0bd0c07e438940a96ab0ecf1a54b2;hb=7c1cce830809d78ca8459f84f43fbe9c182ccb43;hp=da86e02499a466d426dcfb9478d84c126a29c6c8;hpb=a507676c62c769abf01dcd9a2f91cfa1b5dd3841;p=kivitendo-erp.git diff --git a/locale/de/locales.pl b/locale/de/locales.pl index da86e0249..a497ee691 100755 --- a/locale/de/locales.pl +++ b/locale/de/locales.pl @@ -6,9 +6,12 @@ # this version of locles processes not only all required .pl files # but also all parse_html_templated files. -use POSIX; -use FileHandle; use Data::Dumper; +use FileHandle; +use Getopt::Long; +use List::Util qw(first); +use POSIX; +use Pod::Usage; $| = 1; @@ -21,16 +24,32 @@ $submitsearch = qr/type\s*=\s*[\"\']?submit/i; %referenced_html_files = (); -# Arguments: -# -v verbose -# -n no custom files -# -h extended checks on HTML templates +my $opt_v = 0; +my $opt_n = 0; +my $opt_c = 0; + +sub parse_args { + my ($help, $man); + + GetOptions('no-custom-files' => \$opt_n, + 'check-files' => \$opt_c, + 'verbose' => \$opt_v, + 'help' => \$help, + 'man' => \$man,); + + if ($help) { + pod2usage(1); + exit 0; + } -foreach $item (@ARGV) { - $item =~ s/-//g; - $arg{$item} = 1; + if ($man) { + pod2usage(-exitstatus => 0, -verbose => 2); + exit 0; + } } +parse_args(); + opendir DIR, "$bindir" or die "$!"; @progfiles = grep { /\.pl$/ && !/(_|^\.)/ } readdir DIR; seekdir DIR, 0; @@ -38,10 +57,10 @@ seekdir DIR, 0; closedir DIR; # put customized files into @customfiles -@customfiles = () if ($arg{n}); -if ($arg{n}) { - @menufiles = ($menufile); +if ($opt_n) { + @customfiles = (); + @menufiles = ($menufile); } else { opendir DIR, "$basedir" or die "$!"; @menufiles = grep { /.*?_$menufile$/ } readdir DIR; @@ -62,6 +81,8 @@ if (-f 'all') { require "all"; } +my %old_texts = %{ $self->{texts} }; + # Read HTML templates. #%htmllocale = (); #@htmltemplates = <../../templates/webpages/*/*_master.html>; @@ -75,7 +96,7 @@ map({ handle_file($_, $dbupdir2); } @dbplfiles2); sub handle_file { my ($file, $dir) = @_; - print "\n$file" if $arg{v}; + print "\n$file" if $opt_v; %locale = (); %submit = (); %subrt = (); @@ -101,7 +122,7 @@ sub handle_file { if ($file eq 'menunew.pl') { foreach $item (@menufiles) { &scanmenu("$basedir/$item"); - print "." if $arg{v}; + print "." if $opt_v; } } @@ -249,13 +270,45 @@ $missing = { } +@lost = (); + +if (-f "lost") { + require "lost"; + unlink "lost"; +} + +while (($text, $translation) = each %old_texts) { + next if ($alllocales{$text}); + + push @lost, { 'text' => $text, 'translation' => $translation }; +} + +if (scalar @lost) { + splice @lost, 0, (scalar @lost - 50) if (scalar @lost > 50); + + open FH, ">lost"; + print FH "#!/usr/bin/perl\n\n" . + "# The last 50 texts that have been removed.\n" . + "# This file will be auto-generated by locales.pl. Do not edit it.\n\n" . + "\@lost = (\n"; + + foreach $entry (@lost) { + $entry->{text} =~ s/\'/\\\'/g; + $entry->{translation} =~ s/\'/\\\'/g; + print FH " { 'text' => '$entry->{text}', 'translation' => '$entry->{translation}' },\n"; + } + + print FH ");\n\n1;\n"; + close FH; +} + open(FH, "LANGUAGE"); @language = ; close(FH); $trlanguage = $language[0]; chomp $trlanguage; -if ($arg{h}) { +if ($opt_c) { search_unused_htmlfiles(); search_translated_htmlfiles_wo_master(); } @@ -325,6 +378,9 @@ sub scanfile { my $dont_include_subs = shift; my $scanned_files = shift; + # sanitize file + $file =~ s=/+=/=g; + $scanned_files = {} unless ($scanned_files); return if ($scanned_files->{$file}); $scanned_files->{$file} = 1; @@ -365,8 +421,8 @@ sub scanfile { # &scanhtmlfile($newfile); # &converthtmlfile($newfile); $cached{$file}{scanh}{$newfile} = 1; - print "." if $arg{v}; - } elsif ($arg{h}) { + print "." if $opt_v; + } elsif ($opt_c) { print "W: missing HTML template: " . strip_base($newfile) . " (referenced from " . strip_base($file) . ")\n"; } } @@ -481,9 +537,10 @@ sub scanmenu { sub scanhtmlfile { local *IN; - + if (!defined $cached{$_[0]}) { - + my %plugins = ( 'loaded' => { }, 'needed' => { } ); + open(IN, $_[0]) || die $_[0]; my $copying = 0; @@ -492,6 +549,15 @@ sub scanhtmlfile { while (my $line = ) { chomp($line); + while ($line =~ m/\[\%[^\w]*use[^\w]+(\w+)[^\w]*?\%\]/gi) { + $plugins{loaded}->{$1} = 1; + } + + while ($line =~ m/\[\%[^\w]*(\w+)\.\w+\(/g) { + my $plugin = $1; + $plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript MultiColumnIterator)); + } + while ("" ne $line) { if (!$copying) { if ($line =~ m||i) { @@ -532,6 +598,12 @@ sub scanhtmlfile { } close(IN); + + foreach my $plugin (keys %{ $plugins{needed} }) { + next if ($plugins{loaded}->{$plugin}); + print "E: " . strip_base($_[0]) . " requires the Template plugin '$plugin', but is not loaded with '[\% USE $plugin \%]'.\n"; + } + &converthtmlfile($_[0]); } @@ -640,8 +712,54 @@ sub search_translated_htmlfiles_wo_master { } sub strip_base { - $_[0] =~ s|^../../||; - $_[0] =~ s|templates/webpages/||; + my $s = "$_[0]"; # Create a copy of the string. - return $_[0]; + $s =~ s|^../../||; + $s =~ s|templates/webpages/||; + + return $s; } + +__END__ + +=head1 NAME + +locales.pl - Collect strings for translation in Lx-Office + +=head1 SYNOPSIS + +locales.pl [options] + + Options: + -n, --no-custom-files Do not process files whose name contains "_" + -c, --check-files Run extended checks on HTML files + -v, --verbose Be more verbose + -h, --help Show this help + +=head1 OPTIONS + +=over 8 + +=item B<-n>, B<--no-custom-files> + +Do not process files whose name contains "_", e.g. "custom_io.pl". + +=item B<-c>, B<--check-files> + +Run extended checks on the usage of templates. This can be used to +discover HTML templates that are never used as well as the usage of +non-existing HTML templates. + +=item B<-v>, B<--verbose> + +Be more verbose. + +=back + +=head1 DESCRIPTION + +This script collects strings from Perl files, the menu.ini file and +HTML templates and puts them into the file "all" for translation. It +also distributes those translations back to the individual files. + +=cut