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

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index 17edf44..b718a05 100755
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -142,6 +142,7 @@ use DateTime;
 use File::stat;
 use File::Basename;
 use File::Spec;
+use File::Find;
 use IO::Dir;
 use IO::File;
 use IO::Uncompress::AnyUncompress;
@@ -184,7 +185,9 @@ my %subcommands =
      'versions' => {function => \&add_versions,
                    },
      'debinfo' => {function => \&add_debinfo,
-                   arguments => {'0|null' => 0},
+                   arguments => {'0|null' => 0,
+				 'debinfo_dir|debinfo-dir=s' => 0,
+				},
                   },
      'maintainers' => {function => \&add_maintainers,
                       },
@@ -369,6 +372,15 @@ sub add_debinfo {
     my ($options,$opts,$p,$config,$argv) = @_;
 
     my @files = @{$argv};
+    if (exists $opts->{debinfo_dir} and not @files) {
+	find(sub {
+		 if (-f $_ and /\.debinfo$/) {
+		     push @files, $File::Find::name;
+		 }
+	     },
+	     $opts->{debinfo_dir}
+	    );
+    }
     if (not @files) {
        {
 	   local $/ = "\n";