From 881d0979c4be1ce3e6aab79c319939097fec77c6 Mon Sep 17 00:00:00 2001 From: Frederic Demians Date: Mon, 9 Jun 2008 10:32:20 +0200 Subject: [PATCH] Small script to identify syspref differences between languages (3). See Signed-off-by: Joshua Ferraro --- misc/syspref-diff.pl | 67 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100755 misc/syspref-diff.pl diff --git a/misc/syspref-diff.pl b/misc/syspref-diff.pl new file mode 100755 index 0000000000..2b437ab44d --- /dev/null +++ b/misc/syspref-diff.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +# This file is part of Koha. +# +# Koha 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. +# +# Koha 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 +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +=head1 NAME + +syspref-diff.pl + +For example: + + cd /installer/data/mysql + syspref-diff.pl en/mandatory.sql fr-FR/1-Obligatoire/unimarcsp.sql + +=head1 DESCRIPTION + +Make a diff between two Koha syspref files. +'en' syspref file beeing authoritative, this script identifies +variables to be added/deleted in another language syspref file. + +=cut + +use strict; + + +my $file1 = shift @ARGV; +my $file2 = shift @ARGV; + +open FILE1, "<$file1" or die "Unable to open $file1\n"; +open FILE2, "<$file2" or die "Unable to open $file2\n"; + +my (%syspref1, %syspref2); +my $variable; + +while ( ) { + /VALUES.*\(\'([\w-:]+)\'/; + $variable = lc $1; + $syspref1{$variable} = 1 unless $syspref1{$variable}; +} +while ( ) { + /VALUES.*\(\'([\w-:]+)\'/; + $variable = lc $1; + $syspref2{$variable} = 1 unless $syspref2{$variable}; +} + +print "Variables present in $file1 but unavailable in $file2\n"; +for ( sort keys %syspref1 ) { + print $_, "\n" unless $syspref2{$_}; +} +print "\nVariables present in $file2 but unavailable in $file2\n"; +for ( sort keys %syspref2 ) { + print $_, "\n" unless $syspref1{$_}; +} + + -- 2.39.5