From 5bdb9abf8bffa596fc5d1d278c9d3dc2a23f14d6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Demians?= Date: Mon, 17 Aug 2009 20:35:27 +0200 Subject: [PATCH] Remove utility script replaced by a test case Signed-off-by: Galen Charlton Signed-off-by: Henri-Damien LAURENT --- misc/syspref-diff.pl | 67 -------------------------------------------- 1 file changed, 67 deletions(-) delete mode 100755 misc/syspref-diff.pl diff --git a/misc/syspref-diff.pl b/misc/syspref-diff.pl deleted file mode 100755 index 2b437ab44d..0000000000 --- a/misc/syspref-diff.pl +++ /dev/null @@ -1,67 +0,0 @@ -#!/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