Revision 7c73b812
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| locale/de/locales.pl | ||
|---|---|---|
|
|
||
|
$basedir = "../..";
|
||
|
$bindir = "$basedir/bin/mozilla";
|
||
|
$dbupdir = "$basedir/sql/Pg-upgrade";
|
||
|
$menufile = "menu.ini";
|
||
|
$submitsearch = qr/type\s*=\s*[\"\']?submit/i;
|
||
|
|
||
| ... | ... | |
|
unshift @menufiles, $menufile;
|
||
|
}
|
||
|
|
||
|
opendir DIR, $dbupdir or die "$!";
|
||
|
@dbplfiles = grep { /\.pl$/ } readdir DIR;
|
||
|
closedir DIR;
|
||
|
|
||
|
# slurp the translations in
|
||
|
if (-f 'all') {
|
||
|
require "all";
|
||
| ... | ... | |
|
# scanhtmlfile($file);
|
||
|
#}
|
||
|
|
||
|
foreach $file (@progfiles) {
|
||
|
map({ handle_file($_, $bindir); } @progfiles);
|
||
|
map({ handle_file($_, $dbupdir); } @dbplfiles);
|
||
|
|
||
|
sub handle_file {
|
||
|
my ($file, $dir) = @_;
|
||
|
print "\n$file" if $arg{v};
|
||
|
%locale = ();
|
||
|
%submit = ();
|
||
|
%subrt = ();
|
||
|
|
||
|
&scanfile("$bindir/$file");
|
||
|
&scanfile("$dir/$file");
|
||
|
|
||
|
# scan custom_{module}.pl or {login}_{module}.pl files
|
||
|
foreach $customfile (@customfiles) {
|
||
|
if ($customfile =~ /_$file/) {
|
||
|
if (-f "$bindir/$customfile") {
|
||
|
&scanfile("$bindir/$customfile");
|
||
|
if (-f "$dir/$customfile") {
|
||
|
&scanfile("$dir/$customfile");
|
||
|
}
|
||
|
}
|
||
|
}
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
open FH, ">$file" or die "$! : $file";
|
||
|
my $localefile = $dir eq $bindir ? $file : "dbupgrade";
|
||
|
open FH, ">$localefile" or die "$! : $localefile";
|
||
|
|
||
|
print FH q|$self{texts} = {
|
||
|
|;
|
||
Auch abrufbar als: Unified diff
Scanne auch das Verzeichnis sql/Pg-upgrade nach Perl-Scripten und parse diese nach der Verwendung von $locale->text(). Die Uebersetzungen werden nicht in einer Datei gespeichert, die wie das Perlscript heisst, sondern fuer alle Datenbankupgradescripte in der Datei "dbupgrade". In einem Upgrade-Script kann eine neue Instanz von Locale erstellt werden: my $dbup_locale = Locale->new($main::language, "dbupgrade");