Graybyt3 Was Here

Linux host2053.hostmonster.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Apache
67.20.112.170

File Name : convert_language_to_2.1.pl

#!/usr/bin/perl

# Here is the way I finally used this script:
#
# for language in ar_SA cz_CZ da_DK de_DE es_AR es_ES hr_HR hu_HU it_IT ja_JP nl_NL pl_PL pt_BR pt_PT ru_RU sr_RS vi_VN zh_CN
# do
#   export PWG_LANG=$language
#   rm -rf language/$PWG_LANG
#   cp -r ../branches/2.0/language/$PWG_LANG language/
#   perl tools/convert_language_to_2.1.pl language/$PWG_LANG
# done

use strict;
use warnings;

my $language_dir = $ARGV[0];

my @file_codes = qw/upgrade install admin common/;

my %ignore_keys = (
    'user_status_admin' => '',
    'user_status_generic' => '',
    'user_status_guest' => '',
    'user_status_normal' => '',
    'user_status_webmaster' => '',
    'Level 0' => '',
    'Level 1' => '',
    'Level 2' => '',
    'Level 4' => '',
    'Level 8' => '',
    'ACCESS_0' => '',
    'ACCESS_1' => '',
    'ACCESS_2' => '',
    'ACCESS_3' => '',
    'ACCESS_4' => '',
    'ACCESS_5' => '',
    'month' => '',
    'day' => '',
    'chronology_monthly_calendar' => '',
    'chronology_monthly_list' => '',
    'chronology_weekly_list' => '',
);

my %remove_keys = (
    common => {
        "You can\\'t upload pictures in this category" => '',
        'display pictures added on' => '',
        'Email address is missing' => '',
        'Delete: %s' => '',
        'All tags must match' => '',
        'Validate: %s' => '',
        'Upgrade from %s to %s' => '',
    },
    admin => {
        'nbm_content_goto_2' => '',
        'nbm_content_hello_2' => '',
        'nbm_redirect_msg' => '',

'username' => '',
        'No tag defined. Use Administration>Pictures>Tags' => '',
        'Remote site url must start by http or https and must only contain characters among "/", "a-zA-Z0-9", "-" or "_"' => '',
        'path' => '',
        'Unable to retrieve server informations since allow_url_fopen is disabled.' => '',
        'The following tag were deleted' => '',
        'Remote site' => '',
        'Piwigo home' => '',
        'Move up' => '',
        'Instructions' => '',
        'Hits' => '',
        'General' => '',
        'Gallery description' => '',
        'Extensions' => '',
        'Demo' => '',
        'Categories ascending alphanumerically ordered' => '',
        'Categories descending alphanumerically ordered' => '',
        'Categories sorted in ascending order ⇓' => '',
        'Categories sorted in ascending order &dArr;' => '',
        'Categories sorted in descending order ⇑' => '',
        'Categories sorted in descending order &uArr;' => '',
        'Bugs' => '',
        'Automatic installation' => '',
        'Upgrade from version %s to %s' => '',
        'Upgrade from %s to %s' => '',
        'Upload Form' => '',
    },
    upgrade => {
        'Are you sure?' => '',
        'In <i>%s</i>, before <b>?></b>, insert:' => '',
    },
    install => {
        'Parameters are correct' => '',
        'Installation finished' => '',
        'The next step of the installation is now possible' => '',
        'next step' => '',
    }
);

my %to_copy = ();

# load the replacements
my %replace_by = ();
foreach my $file_code (@file_codes) {
    open(my $ifh_rep, '<language/templates/'.$file_code.'.lang.php');
    while (<$ifh_rep>) {
        if (m/^\$lang\['(.*)'\] \s* = \s* (['"])(.*)\2;/x) {
            if ($1 ne $3 and length($1) > 0) {
                $replace_by{$1} = $3;
            }
        }
    }
}
# use Data::Dumper; print Dumper(\%replace_by); exit();

my $append_to_common = '';

foreach my $file_code (@file_codes) {
    my $filename = $language_dir.'/'.$file_code.'.lang.php';
    print $filename;
    if (not -f $filename) {
        print ' is missing', "\n";
        next;
    }
    print ' is under process', "\n";

if ($file_code eq 'admin') {
        %to_copy = (
            'Are you sure?' => '',
            'Email address is missing. Please specify an email address.' => '',
            'delete this comment' => '',
            'validate this comment' => '',
        );
    }
    else {
        %to_copy = ();
    }

my $file_content = '';
    my $copy_content = '';

open(my $ifh, '<'.$language_dir.'/'.$file_code.'.lang.php');
    while (my $line = <$ifh>) {
        if ($line =~ m/^\$lang\['(.*)'\] \s* =/x) {
            if (defined $remove_keys{$file_code}{$1}) {
                next;
            }
            elsif (defined $ignore_keys{$1}) {
                $file_content.= $line;
            }
            elsif (defined $to_copy{$1}) {
                $append_to_common.= $line;
            }
            elsif (defined $replace_by{$1}) {
                my $search = quotemeta($1);
                my $replace = $replace_by{$1};

$line =~ s{$search}{$replace};

if (defined $to_copy{$replace}) {
                    $append_to_common.= $line;
                }
                else {
                    $file_content.= $line;
                }
            }
            else {
                $file_content.= $line;
            }
        }
        elsif ($line =~ m/^?>/) {
            if ('common' eq $file_code) {
                $file_content.= $append_to_common;
            }
            $file_content.= $line;
        }
        else {
            $file_content.= $line;
        }
    }
    close($ifh);

open(my $ofh, '>'.$language_dir.'/'.$file_code.'.lang.php');
    print {$ofh} $file_content;
    close($ofh);
}

System Information
*ReClick For Close
File : BlackDragon /wp-includes/Requests/src/test.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	historj6/historj6	0755	2011-01-27 10:00:49
..	dir	-	historj6/historj6	0755	2024-12-22 12:52:49
language	dir	-	historj6/historj6	0755	2011-01-27 10:00:49
config.inc.php	text/x-php	275 B	historj6/historj6	0644	2010-03-21 07:31:20
convert_language_to_2.1.pl	text/x-perl	5.25 KB	historj6/historj6	0755	2010-04-09 12:17:50
convert_template_to_2.1.pl	text/x-perl	1.1 KB	historj6/historj6	0755	2010-04-03 03:16:34
create_listing_file.php	text/x-php	55.38 KB	historj6/historj6	0644	2011-01-24 05:25:28
create_listing_file_local.inc.php	text/x-php	378 B	historj6/historj6	0644	2009-05-13 04:29:15
fill_history.pl	text/x-perl	7.54 KB	historj6/historj6	0755	2009-05-13 04:29:15
index.php	text/x-php	1.72 KB	historj6/historj6	0644	2010-03-19 04:37:10
key2value.php	text/x-php	3.68 KB	historj6/historj6	0644	2010-03-17 03:22:51
local-layout.css	text/plain	199 B	historj6/historj6	0644	2009-05-13 04:29:15
metadata.php	text/x-php	3.02 KB	historj6/historj6	0644	2010-03-19 04:37:10
missing_keys.pl	text/x-perl	4.88 KB	historj6/historj6	0755	2010-04-09 12:17:50
piwigo_remote.pl	text/x-perl	10.24 KB	historj6/historj6	0755	2009-11-22 04:59:14
prototype.js	text/plain	126.11 KB	historj6/historj6	0644	2009-05-13 04:29:15
pwg_rel_create.sh	text/x-shellscript	958 B	historj6/historj6	0755	2010-11-01 10:25:58
release_creation.readme	text/plain	1.42 KB	historj6/historj6	0644	2009-05-13 04:29:15
replace.php	text/x-php	1.17 KB	historj6/historj6	0644	2010-03-23 03:50:29
translation_analysis.php	text/x-php	5.35 KB	historj6/historj6	0644	2010-04-04 12:36:49
ws.htm	text/html	9.29 KB	historj6/historj6	0644	2009-05-13 04:29:15