X-Git-Url: http://git.ipfire.org/?p=ipfire-2.x.git;a=blobdiff_plain;f=tools%2Fcheck_strings.pl;h=b623778b710c0e72a2b6ec00851c96a4e057378b;hp=f9f57d67fe7053709bad9325fafacc9a7e377f99;hb=84578512f52e62bc994b944f88f1785c73b4d96a;hpb=cd1a2927226c734d96478e12bb768256fb64a06a;ds=sidebyside

diff --git a/tools/check_strings.pl b/tools/check_strings.pl
old mode 100644
new mode 100755
index f9f57d67fe..b623778b71
--- a/tools/check_strings.pl
+++ b/tools/check_strings.pl
@@ -1,62 +1,65 @@
-#!/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";
-	}
-}
+#!/usr/bin/perl
+###############################################################################
+#                                                                             #
+# IPFire.org - A linux based firewall                                         #
+# Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
+#                                                                             #
+# This program 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 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.       #
+#                                                                             #
+###############################################################################
+
+my (%tr2, $basedir);
+
+use Cwd;
+use File::Find;
+
+my  $lang = "$ARGV[0]";
+if ( $lang eq "") {
+	print "ERROR: Please give me a language!\n";
+	exit;
+}
+
+$basedir = cwd();
+require "${basedir}/langs/$lang/cgi-bin/$lang.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/html"  );
+find (\&wanted, "$basedir/src/scripts"  );
+find (\&wanted, "$basedir/config/cfgroot"  );
+find (\&wanted, "$basedir/config/menu"  );
+
+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";
+	}
+}