Improve addTrEntry
This commit is contained in:
parent
f93c1bc394
commit
2e4fe68246
|
@ -3,21 +3,37 @@
|
||||||
use strict;
|
use strict;
|
||||||
use JSON;
|
use JSON;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
my ( $portal, $modify, $help, $delete );
|
my ( $portal, $modify, $help, $delete, $reorder );
|
||||||
my $json =
|
my $json =
|
||||||
JSON->new->utf8->pretty()->canonical()->space_before(0)->space_after(0);
|
JSON->new->utf8->pretty()->canonical()->space_before(0)->space_after(0);
|
||||||
|
|
||||||
GetOptions(
|
GetOptions(
|
||||||
"portal|p" => \$portal,
|
"portal|p" => \$portal,
|
||||||
"modify|m" => \$modify,
|
"modify|m" => \$modify,
|
||||||
"delete|d" => \$delete,
|
"delete|d" => \$delete,
|
||||||
"help|h" => \$help,
|
"reorder|r" => \$reorder,
|
||||||
|
"help|h" => \$help,
|
||||||
);
|
);
|
||||||
usage() if $help or !@ARGV;
|
usage() if $help or ( !@ARGV and !$reorder );
|
||||||
my $key = shift @ARGV or usage();
|
my $key = shift @ARGV;
|
||||||
my $enText = shift @ARGV or $delete or usage();
|
my $enText = shift @ARGV;
|
||||||
my $frText = shift(@ARGV) || $enText;
|
my $frText = shift(@ARGV) || $enText;
|
||||||
|
|
||||||
|
# Check args
|
||||||
|
usage() if $delete and $modify;
|
||||||
|
if ($key) {
|
||||||
|
usage() if $reorder;
|
||||||
|
if ($delete) {
|
||||||
|
usage() if $enText;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
usage() unless $enText;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
usage() unless $reorder;
|
||||||
|
}
|
||||||
|
|
||||||
# Main
|
# Main
|
||||||
my $wdir =
|
my $wdir =
|
||||||
'lemonldap-ng-'
|
'lemonldap-ng-'
|
||||||
|
@ -36,19 +52,19 @@ for my $lang (@langs) {
|
||||||
close $file;
|
close $file;
|
||||||
}
|
}
|
||||||
my $jsonObj = $json->decode($content);
|
my $jsonObj = $json->decode($content);
|
||||||
if ( !$jsonObj->{$key} and $delete ) {
|
if ($key) {
|
||||||
print STDERR "$key does not exist, aborting deletion\n";
|
if ( $jsonObj->{$key} xor( $delete or $modify ) ) {
|
||||||
usage();
|
print STDERR ( $jsonObj->{$key}
|
||||||
}
|
? "key already exists\n"
|
||||||
elsif ( $jsonObj->{$key} and $modify ) {
|
: "key doesn't exit\n" );
|
||||||
print STDERR "$key already exists, aborting\n";
|
usage();
|
||||||
usage();
|
}
|
||||||
}
|
if ($delete) {
|
||||||
if ($delete) {
|
delete $jsonObj->{$key};
|
||||||
delete $jsonObj->{$key};
|
}
|
||||||
}
|
else {
|
||||||
else {
|
$jsonObj->{$key} = ( $lang eq 'fr.json' ? $frText : $enText );
|
||||||
$jsonObj->{$key} = ( $lang eq 'fr.json' ? $frText : $enText );
|
}
|
||||||
}
|
}
|
||||||
$content = $json->encode($jsonObj);
|
$content = $json->encode($jsonObj);
|
||||||
$content =~ s/\n\s+/\n/sg;
|
$content =~ s/\n\s+/\n/sg;
|
||||||
|
@ -65,9 +81,10 @@ Usage:
|
||||||
$0 <option> key enText <frText>
|
$0 <option> key enText <frText>
|
||||||
|
|
||||||
Options:
|
Options:
|
||||||
--portal -p: add entry in portal translation instead of manager
|
--portal -p: add entry in portal translation instead of manager
|
||||||
--modify -m: modify an existing entry
|
--modify -m: modify an existing entry
|
||||||
--delete -d: delete an existing key
|
--delete -d: delete an existing key
|
||||||
|
--reorder -r: reorder files
|
||||||
--help -h: display this
|
--help -h: display this
|
||||||
EOT
|
EOT
|
||||||
exit( $help ? 0 : 1 );
|
exit( $help ? 0 : 1 );
|
||||||
|
|
Loading…
Reference in New Issue
Block a user