michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix to support module and config types for mass operations

Browse Source
This commit is contained in:
Ilia Rostovtsev
2020-02-28 15:34:14 +03:00
parent 09b6994115
commit aba0337d24
1 changed files with 25 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
bin/manipulate-language
View File

@@ -22,19 +22,21 @@ use Pod::Usage;
sub main
{
my %opt;
GetOptions('help|h' => \$opt{'help'},
'type|w:s' => \$opt{'type'},
'modules|m:s' => \$opt{'modules'},
'language-target|t:s' => \$opt{'language-target'},
'language-source|s:s' => \$opt{'language-source'},
'language-source-encoding|e:s' => \$opt{'language-source-encoding'},
'no-translate|o!' => \$opt{'no-translate'},
# 'action|a:s' => \$opt{'action'}, ####################################
# 'key|k:s' => \$opt{'key'}, ########### coming soon! ###########
# 'value|d:s' => \$opt{'value'}, ####################################
'overwrite|f!' => \$opt{'overwrite'},
'log|l:s' => \$opt{'log'},
'verbose|v:i' => \$opt{'verbose'});
GetOptions(
'help|h' => \$opt{'help'},
'type|w:s' => \$opt{'type'},
'modules|m:s' => \$opt{'modules'},
'language-target|t:s' => \$opt{'language-target'},
'language-source|s:s' => \$opt{'language-source'},
'language-source-encoding|e:s' => \$opt{'language-source-encoding'},
'no-translate|o!' => \$opt{'no-translate'},
# 'action|a:s' => \$opt{'action'}, ####################################
# 'key|k:s' => \$opt{'key'}, ########### coming soon! ###########
# 'value|d:s' => \$opt{'value'}, ####################################
'overwrite|f!' => \$opt{'overwrite'},
'log|l:s' => \$opt{'log'},
'verbose|v:i' => \$opt{'verbose'});
my %data;
# Print help and exit
@@ -98,9 +100,11 @@ sub main
{
wanted => sub {
$found = $File::Find::name;
if (!-l $found && $found =~ /$type\/$language_source$/) {
if (!-l $found && ($found =~ /$type\/$language_source$/ || $found =~ /$type\.info$/)) {
$found =~ s/^$path\///g;
$found =~ s/\/$type\/$language_source//g;
$found =~ s/\/$type\.info//g;
$found =~ s/\/$language_source//g;
$found =~ s/\/$language_source//g;
push(@modules, $found);
}
@@ -718,8 +722,13 @@ sub talk
if ($what eq 'affected') {
my $affected = "@{$data->{'modules'}}";
$affected =~ s/\b(lang)\b/(lang)/;
say GREEN, "Affected modules: ", RESET, YELLOW BOLD, $affected, RESET;
exit if (!prompt('next'));
if ($affected) {
say GREEN, "Affected modules: ", RESET, YELLOW BOLD, $affected, RESET;
exit if (!prompt('next'));
} else {
say RED, "Error: No modules found to operate on", RESET;
exit;
}
say GREEN, "Affected languages: ", RESET, YELLOW BOLD,
"" . ("@{$opt->{'language-target'}}" || "@{$data->{'languages_source_list_codes'}}") . "", RESET;
exit if (!prompt('next'));