GIF89a;
Direktori : /scripts/ |
Current File : //scripts/locale_info |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/locale_info Copyright 2022 cPanel, L.L.C. # 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::Locale (); use Cpanel::SafeDir::Read (); use Getopt::Param::Tiny (); use Cpanel::Themes::Get (); use Cpanel::YAML::Syck (); my $prm = Getopt::Param::Tiny->new( { 'no_args_help' => 1, 'help_coderef' => sub { print <<"END_HELP"; Usage: $0 {Options} Provide information about existing cPanel-based locales. Options: --help This help screen --list List available locales (aside from default's aliases en_us and i_default) --locale={locale_tag} Show information about the locale specified by {locale_tag} (e.g. --locale=en) --file Show the given locale's file information --theme={theme_name} Same as option "--file" but in the context of the given theme specified by {theme_name} (e.g. --theme=x3) --3rdparty Show the given locale's 3rdparty mapping END_HELP exit; }, } ); my $locale = Cpanel::Locale->get_handle(); if ( $prm->param('list') ) { print YAML::Syck::Dump( [ sort 'en', $locale->list_available_locales() ] ); } else { my $theme = ''; if ( $prm->param('theme') ) { # this should be a method and also used in locale compiler my @theme_list; foreach my $theme_dir ( Cpanel::SafeDir::Read::read_dir('/usr/local/cpanel/base/frontend') ) { next if $theme_dir =~ m/^\./; next if -l '/usr/local/cpanel/base/frontend/' . $theme_dir; next if !Cpanel::Themes::Get::is_usable_theme($theme_dir); push @theme_list, $theme_dir; } if ( grep { $prm->param('theme') eq $_ } @theme_list ) { $theme = $prm->param('theme'); $prm->param( 'file', 1 ); # get into file context } else { print $locale->maketext( qq{Invalid value for \xE2\x80\x9C[_1]\xE2\x80\x9D.}, '--theme' ) . "\n"; print $prm->help(); exit 1; } } my $loc = $prm->param('locale') || ''; # do not default to 'en', promote explicitly asking for what you want my $working_locale; if ( $loc eq 'en' || $loc eq 'en_us' || $loc eq 'i_default' ) { local $Cpanel::CPDATA{'RS'} = $theme; # TODO: This doesn't seem to work. It works below and from CLI though ... $working_locale = Cpanel::Locale->get_handle('en_us'); } else { if ( $loc && grep { $loc eq $_ } $locale->list_available_locales() ) { local $Cpanel::CPDATA{'RS'} = $theme; $working_locale = Cpanel::Locale->get_handle($loc); } else { print $locale->maketext( qq{Invalid value for \xE2\x80\x9C[_1]\xE2\x80\x9D.}, '--locale' ) . "\n"; print $prm->help(); exit 1; } } if ( $prm->param('3rdparty') ) { for my $third_party ( $working_locale->cpanel_get_3rdparty_list() ) { print "$third_party: " . $working_locale->cpanel_get_3rdparty_lang($third_party) . "\n"; } } elsif ( $prm->param('file') ) { # TODO: one or more --key == "info" about key (does not exist, has this value, etc) print 'CDB File: ' . $working_locale->get_cdb_file_path() . "\n"; my $class = $working_locale->get_language_class(); no strict 'refs'; print "Version: ${$class . '::VERSION'}\n"; print "Encoding: ${$class . '::Encoding'}\n"; print "Build info:\n" . $working_locale->maketext('__FORENSIC') . "\n"; ## no extract maketext } else { require Cpanel::Locale::Utils::Display; print YAML::Syck::Dump( Cpanel::Locale::Utils::Display::get_locale_menu_hashref($working_locale) ); } }