start add_suites support

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index a7a90b986382d72bb5729152dfce4343652283a4..abbb60dc5e853fa16396b4d72fbba6990b34bde8 100755 (executable)
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -147,6 +147,8 @@ my %subcommands =
                       },
      'configuration' => {function => \&add_configuration,
                         },
+     'suites' => {function => \&add_suites,
+                 },
      'logs' => {function => \&add_logs,
                },
      'help' => {function => sub {pod2usage({verbose => 2});}}
@@ -391,6 +393,12 @@ sub add_configuration {
     my ($options,$opts,$p,$config,$argv) = @_;
 }
 
+sub add_suite {
+    my ($options,$opts,$p,$config,$argv) = @_;
+    # suites
+    die "add_suite is currently not implemented; modify suites manually using SQL."
+}
+
 sub add_logs {
     my ($options,$opts,$p,$config,$argv) = @_;