X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdblookup.pl;h=bcf21d92b9842349ef8d64090c3598817ce69da4;hb=a7f70834da6b7ade42f3c356e436b31216eafa0e;hp=a7a6c4d688684c5ec63c7f1c26b11a78521d9efa;hpb=e1083e99492d7847a1a5112751a1fba61d5c4655;p=scpubgit%2Fstemmatology.git

diff --git a/script/dblookup.pl b/script/dblookup.pl
index a7a6c4d..bcf21d9 100755
--- a/script/dblookup.pl
+++ b/script/dblookup.pl
@@ -11,17 +11,22 @@ use Text::Tradition::Directory;
 binmode( STDOUT, ':utf8' );
 binmode( STDERR, ':utf8' );
 
-my( $name, $delete, $list, $dsn ) = 
-	( undef, undef, 1, 'dbi:SQLite:dbname=db/traditions.db' );
+my( $name, $delete, $dbuser, $dbpass );
+my( $list, $dsn ) = ( 1, 'dbi:SQLite:dbname=db/traditions.db' );
 
 GetOptions( 
 	'r|rename=s' => \$name,
 	'd|delete' => \$delete,
 	'dsn=s' => \$dsn,
+	'u|user=s' => \$dbuser,
+	'p|pass=s' => \$dbpass,
 	);
 	
 my @uuids = @ARGV;  # UUID is whatever is left over
-my $kdb = Text::Tradition::Directory->new( 'dsn' => $dsn );
+my %dbargs = ( 'dsn' => $dsn );
+$dbargs{'extra_args'} = { 'user' => $dbuser } if $dbuser;
+$dbargs{'extra_args'}->{'password'} = $dbpass if $dbpass;
+my $kdb = Text::Tradition::Directory->new( %dbargs );
 $list = !$delete;
 
 if( $delete ) {