Revision 8e34e6dc
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| scripts/locales.pl | ||
|---|---|---|
| 35 | 35 |
my $locales_dir = "."; |
| 36 | 36 |
my $bindir = "$basedir/bin/mozilla"; |
| 37 | 37 |
my @progdirs = ( "$basedir/SL" ); |
| 38 |
my $dbupdir = "$basedir/sql/Pg-upgrade"; |
|
| 39 |
my $dbupdir2 = "$basedir/sql/Pg-upgrade2"; |
|
| 40 | 38 |
my $menufile = "menu.ini"; |
| 41 | 39 |
my @javascript_dirs = ($basedir .'/js', $basedir .'/templates/webpages'); |
| 42 | 40 |
my $javascript_output_dir = $basedir .'/js'; |
| ... | ... | |
| 98 | 96 |
unshift @menufiles, "$basedir/$menufile"; |
| 99 | 97 |
} |
| 100 | 98 |
|
| 101 |
tie %dir_h, 'IO::Dir', $dbupdir; |
|
| 102 |
my @dbplfiles = grep { /\.pl$/ } keys %dir_h;
|
|
| 103 |
|
|
| 104 |
tie %dir_h, 'IO::Dir', $dbupdir2; |
|
| 105 |
my @dbplfiles2 = grep { /\.pl$/ } keys %dir_h;
|
|
| 99 |
my @dbplfiles; |
|
| 100 |
foreach my $sub_dir ("Pg-upgrade", "Pg-upgrade2", "Pg-upgrade2-auth") {
|
|
| 101 |
my $dir = "$basedir/sql/$sub_dir"; |
|
| 102 |
tie %dir_h, 'IO::Dir', $dir; |
|
| 103 |
push @dbplfiles, map { [ $_, $dir ] } grep { /\.pl$/ } keys %dir_h;
|
|
| 104 |
} |
|
| 106 | 105 |
|
| 107 | 106 |
# slurp the translations in |
| 108 | 107 |
if (-f "$locales_dir/all") {
|
| ... | ... | |
| 123 | 122 |
my %old_texts = %{ $self->{texts} || {} };
|
| 124 | 123 |
|
| 125 | 124 |
handle_file(@{ $_ }) for @progfiles;
|
| 126 |
handle_file($_, $dbupdir) for @dbplfiles; |
|
| 127 |
handle_file($_, $dbupdir2) for @dbplfiles2; |
|
| 125 |
handle_file(@{ $_ }) for @dbplfiles;
|
|
| 128 | 126 |
scanmenu($_) for @menufiles; |
| 129 | 127 |
|
| 130 | 128 |
for my $file_name (map({find_files($_)} @javascript_dirs)) {
|
Auch abrufbar als: Unified diff
locales.pl: auch sql/Pg-upgrade2-auth scannen