Revision 04b7fa25
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
scripts/locales.pl | ||
---|---|---|
31 | 31 |
my $basedir = "../.."; |
32 | 32 |
my $locales_dir = "."; |
33 | 33 |
my $bindir = "$basedir/bin/mozilla"; |
34 |
my @progdirs = ( "$basedir/SL/Template/Plugin" ); |
|
34 | 35 |
my $dbupdir = "$basedir/sql/Pg-upgrade"; |
35 | 36 |
my $dbupdir2 = "$basedir/sql/Pg-upgrade2"; |
36 | 37 |
my $menufile = "menu.ini"; |
... | ... | |
42 | 43 |
init(); |
43 | 44 |
|
44 | 45 |
opendir DIR, "$bindir" or die "$!"; |
45 |
my @progfiles = grep { /\.pl$/ && !/(_custom|^\.)/ } readdir DIR; |
|
46 |
my @progfiles = map { [ $_, $bindir ] } grep { /\.pl$/ && !/(_custom|^\.)/ } readdir DIR;
|
|
46 | 47 |
seekdir DIR, 0; |
47 | 48 |
my @customfiles = grep /_custom/, readdir DIR; |
48 | 49 |
closedir DIR; |
49 | 50 |
|
51 |
foreach my $dir (@progdirs) { |
|
52 |
opendir DIR, $dir or die "$!"; |
|
53 |
push @progfiles, map { [ $_, $dir ] } grep { /\.pm$/ } readdir DIR; |
|
54 |
closedir DIR; |
|
55 |
} |
|
56 |
|
|
50 | 57 |
# put customized files into @customfiles |
51 | 58 |
my @menufiles; |
52 | 59 |
|
... | ... | |
91 | 98 |
|
92 | 99 |
my %old_texts = %{ $self->{texts} || {} }; |
93 | 100 |
|
94 |
map({ handle_file($_, $bindir); } @progfiles);
|
|
101 |
map({ handle_file(@{ $_ }); } @progfiles);
|
|
95 | 102 |
map({ handle_file($_, $dbupdir); } @dbplfiles); |
96 | 103 |
map({ handle_file($_, $dbupdir2); } @dbplfiles2); |
97 | 104 |
|
Auch abrufbar als: Unified diff
Auch Template-Plugins nach $locale->text() durchsuchen
Conflicts: