????

Your IP : 3.147.46.136

Current Path : /proc/322176/root/scripts/
Upload File :
Current File : //proc/322176/root/scripts/migrate_legacy_lang_to_locale

#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/migrate_legacy_lang_to_locale
#                                                    Copyright 2016 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use warnings;

use Cpanel::Config::LoadCpUserFile      ();
use Cpanel::Config::Users               ();
use Cpanel::Locale::Utils::User::Modify ();

foreach my $user ( Cpanel::Config::Users::getcpusers() ) {
    my $cpuser_ref = Cpanel::Config::LoadCpUserFile::loadcpuserfile($user);
    if ( $cpuser_ref->{'__LOCALE_MISSING'} ) {
        Cpanel::Locale::Utils::User::Modify::migrate_user_locale_from_file( $user, $cpuser_ref->{'LANG'} );
    }
}

exit 0;