$update_translator = 1 if $opts{"u"};
$update_translator = 0 if $opts{"U"};
-my $user_name = $opts{"n"} || $ENV{'JM_USER_NAME'};
-my $user_mail = $opts{"e"} || $ENV{'JM_USER_MAIL'};
-if ($update_translator && ($user_name eq "" || $user_mail eq "")) {
- print STDERR "Translator name or mail not specified.\n";
- exit 0;
-}
-
$clear_entry = 1 if $opts{"c"};
$ARGV[2] = "_DUMMY_" if $clear_entry;
exit 0;
}
+my $user_name = $opts{"n"} || $ENV{'JM_USER_NAME'};
+my $user_mail = $opts{"e"} || $ENV{'JM_USER_MAIL'};
+if ($update_translator && ($user_name eq "" || $user_mail eq "")) {
+ print STDERR "Translator name or mail not specified.\n";
+ exit 0;
+}
+
my $tlist = $ARGV[0];
my $page = $ARGV[1];
my $command = $ARGV[2];