admin: Move user_name/mail check after positional args check

Previously JM-tl-modify expects environments JM_USER_NAME/MAIL
unless -n/-e options are specified, but it prevents users from
just showing help.

diff --git a/admin/JM-tl-modify.pl b/admin/JM-tl-modify.pl
index e79c1db..50f7a72 100755 (executable)
--- a/admin/JM-tl-modify.pl
+++ b/admin/JM-tl-modify.pl
@@ -31,13 +31,6 @@ $update_timestamp = 0 if $opts{"T"};
 $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;
 
@@ -58,6 +51,13 @@ if ($#ARGV < 2) {
     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];