add warning about #

[d.git] / evade-mail-admin

diff --git a/evade-mail-admin b/evade-mail-admin
index dc5e37ef2db5385531c390287242c736c56cf7cc..fb22d3943a8e7e91e66c5e922b572927881673c2 100755 (executable)
--- a/evade-mail-admin
+++ b/evade-mail-admin
@@ -25,6 +25,7 @@ actions
   list
   list-actions
 empty string for redirect means reject
+remember to quote comments (to protect # from your shell)
 END
 our $usage3 = <<'END';
 privileged actions
@@ -85,7 +86,7 @@ our $maxdomainlen = 40;
 sub nextarg () {
     die "too few arguments\n" unless @ARGV;
     my $v = shift @ARGV;
-    die "option too late on command line\n" if $v =~ m/^-/;
+    die "option in wrong place on command line\n" if $v =~ m/^-/;
     return $v;
 }
 
@@ -294,7 +295,7 @@ sub gendefaults_wordlist {
        + (length $worddelim) * ($numwords-1); # delimiters
     die "assuming lowest reasonable mean word length $minmaxmeanwordlen".
        " addrs would be $expectedmindomlen long but".
-       " your maximum length specified $maxdomainlen\n"
+       " maximum length is set to $maxdomainlen (use different -m?)\n"
        if $expectedmindomlen > $maxdomainlen;
 }