From: Ian Jackson Date: Wed, 4 Sep 2013 22:56:08 +0000 (+0100) Subject: genopts alphanum tidyups, more X-Git-Tag: test~20 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=d.git;a=commitdiff_plain;h=26ec3797c5841b90c0ff23997e1e5d392308056e genopts alphanum tidyups, more --- diff --git a/service b/service index aefff42..d3e0499 100755 --- a/service +++ b/service @@ -39,9 +39,7 @@ use strict; use DBI; use POSIX; -our $minrandlength = 6; our $randlength; -our $maxrandlength = 50; our $maxperuser = 10000; our $qualdom; @@ -52,6 +50,10 @@ our $priv; our $showcomment; our $genmethod = 'alphanum'; +# for alphanum +our $minrandlength = 6; +our $maxrandlength = 50; + sub nextarg () { die "too few arguments\n" unless @ARGV; my $v = shift @ARGV;