From 6f2fc71ffadb049855b2ff2c9fc0a1952b736484 Mon Sep 17 00:00:00 2001
From: plegall <plg@piwigo.org>
Date: Tue, 20 Aug 2013 17:10:56 +0000
Subject: remove obsolete/useless scripts

git-svn-id: http://piwigo.org/svn/trunk@24201 68402e56-0260-453c-a942-63ccdbb3a9ee
---
 tools/replace_language_values.pl | 61 ----------------------------------------
 1 file changed, 61 deletions(-)
 delete mode 100644 tools/replace_language_values.pl

(limited to 'tools/replace_language_values.pl')

diff --git a/tools/replace_language_values.pl b/tools/replace_language_values.pl
deleted file mode 100644
index f901e1140..000000000
--- a/tools/replace_language_values.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my $replacement_file = $ARGV[0];
-my $language_dir = $ARGV[1];
-
-# load the new values for given keys
-my %new_value_of = ();
-open(my $ifh_rep, '<'.$replacement_file);
-while (<$ifh_rep>) {
-    if (m/^\$lang\['(.*)'\] \s* = \s* (.*);/x) {
-        $new_value_of{$1} = $2;
-    }
-}
-# use Data::Dumper; print Dumper(\%new_value_of); exit();
-
-my %replacement_performed_for = ();
-
-foreach my $file_code (qw/upgrade install admin common plugin/) {
-    my $filename = $language_dir.'/'.$file_code.'.lang.php';
-    # print $filename;
-    if (not -f $filename) {
-        # print ' is missing', "\n";
-        next;
-    }
-    print $filename.' is under process', "\n";
-
-    my $file_content = '';
-
-    open(my $ifh, '<'.$filename);
-    while (my $line = <$ifh>) {
-        if ($line =~ m/^\$lang\['(.*)'\] \s* =/x) {
-            if (defined $new_value_of{$1}) {
-                $file_content.= '$lang[\''.$1.'\'] = '.$new_value_of{$1}.';'."\n";
-                $replacement_performed_for{$1}++;
-            }
-            else {
-                $file_content.= $line;
-            }
-        }
-        elsif ($line =~ m/^?>/) {
-            $file_content.= $line;
-        }
-        else {
-            $file_content.= $line;
-        }
-    }
-    close($ifh);
-
-    open(my $ofh, '>'.$filename);
-    print {$ofh} $file_content;
-    close($ofh);
-}
-
-foreach my $new_value (keys %new_value_of) {
-    if (not defined $replacement_performed_for{$new_value}) {
-        print 'no replacement performed on: ', $new_value, "\n";
-    }
-}
-- 
cgit v1.2.3