#!/usr/bin/perl

# (C) 2005-2008 Michael Weinberger
# See http://wiki.contribs.org/Dirty_Tools for full documentation

use strict;
use esmith::ConfigDB;
use esmith::FormMagick;
use esmith::PasswordTools;
use Getopt::Long;

my %opts;
my $getRes = GetOptions( 
	"number=s"=>\$opts{'number'},
	"length=s"=>\$opts{'length'},
	"mixed-case"=>\$opts{'mixed-case'},
	"add-consonants"=>\$opts{'add-consonants'},
	"help"=>\$opts{'help'},
);

if( $opts{'help'} )
	{
	print "Usage: dt-pw-generate [--length=N] [--mixed-case] [--add-consonants]\n";
	exit 0;
	}

for(my $i=0; $i<($opts{'number'}?$opts{'number'}:1); $i++)
	{
	my $pw=sme_generate_password(
		$opts{'length'} ? $opts{'length'} : 8,
		$opts{'add-consonants'} ? 'yes' : 'no',
		$opts{'mixed-case'} ? 'yes' : 'no',
		);
	print "$pw\n";
	}