use DBI;
use POSIX;
-our $minrandlength = 6;
our $randlength;
-our $maxrandlength = 50;
our $maxperuser = 10000;
our $qualdom;
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;