X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bin%2Fdebbugs-loadsql;fp=bin%2Fdebbugs-loadsql;h=17edf44fa727d67e09afd3b520e4165aa71f1cd8;hb=0556c717b9847428d3350204c7acd95e9987a889;hp=a0da985d6a29a2196cc875c6433eff2bde63e6a6;hpb=e4b7198845771dbfc3fadbbe6c7f382dbb905e02;p=debbugs.git

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index a0da985..17edf44 100755
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -163,6 +163,7 @@ Getopt::Long::Configure('pass_through');
 GetOptions(\%options,
            'quick|q',
            'service|s=s',
+	   'dsn=s',
            'sysconfdir|c=s',
            'progress!',
            'spool_dir|spool-dir=s',
@@ -746,7 +747,8 @@ sub db_connect {
     my ($options) = @_;
     # connect to the database; figure out how to handle errors
     # properly here.
-    my $s = Debbugs::DB->connect($options->{service}) or
+    my $s = Debbugs::DB->connect($options->{dsn} //
+				 $options->{service}) or
         die "Unable to connect to database: ";
 }