specify riak url and dsn as arguments

diff --git a/koha/koha2riak-search.pl b/koha/koha2riak-search.pl
index ed6281c..2fb5b4b 100755 (executable)
--- a/koha/koha2riak-search.pl
+++ b/koha/koha2riak-search.pl
@@ -6,8 +6,10 @@ use RiakSearch;
 use Data::Dump qw/dump/;
 
 
-my $riak_url = 'http://10.60.0.92:8098';
-my $dbi = 'DBI:mysql:dbname=koha;host=10.60.0.10;port=3306';
+my ( $riak_url, $dbi ) = @ARGV;
+
+$riak_url ||= 'http://10.60.0.92:8098';
+$dbi ||= 'DBI:mysql:dbname=koha;host=10.60.0.10;port=3306';
 my @tables = qw(
 biblioitems
 biblio