webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 11:13:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

git-svn-id: http://svn.ipfire.org/svn/ipfire/IPFire/source@16 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8

Browse Source
This commit is contained in:
ipfire
2006-02-15 21:15:54 +00:00
parent 6d63f4c4b3
commit cd1a292722
1206 changed files with 185026 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
tools/check_strings.pl Normal file
View File

@@ -0,0 +1,62 @@
#!/usr/bin/perl
#
############################################################################
# #
# This file is part of the IPCop Firewall. #
# #
# IPCop is free software; you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
# (at your option) any later version. #
# #
# IPCop is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with IPCop; if not, write to the Free Software #
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
# #
# Copyright (C) 2004-03-12 Mark Wormgoor <mark@wormgoor.com> #
# #
############################################################################
#
# $Id: check_strings.pl,v 1.1.2.4 2005/02/28 19:35:03 eoberlander Exp $
#
my (%tr2, $basedir);
use Cwd;
use File::Find;
$basedir = cwd();
require "${basedir}/langs/en/cgi-bin/en.pl";
sub wanted {
if ( -f $File::Find::name && open(FILE, $File::Find::name)) {
while (<FILE>) {
while ($_ =~ /\$Lang::tr{'([A-Za-z0-9,:_\s\/\.-]+)'}/g) {
$tr2{$1} = 'empty string';
}
}
close(FILE);
}
}
## Main
find (\&wanted, $basedir );
for my $key ( sort (keys %tr) ) {
my $value = $tr{$key};
if (! $tr2{$key}) {
print "WARNING: translation string unused: $key\n";
}
}
for my $key ( sort(keys %tr2) ) {
my $value = $tr2{$key};
if (! $tr{$key}) {
print "WARNING: untranslated string: $key\n";
}
}