default generation method is alphanum
END
our %usage_genopts = (
-'alphanum' => <<END
+'alphanum' => <<END,
-l<randlength> (number of letters+digits)
END
);
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;
sub action_list_actions {
print $usage2 or die $!;
+ print "genopts\n" or die $!;
+ print $usage_genopts{$genmethod} or die $!;
}
while (@ARGV) {