load_packages now only changes rows it has to

[debbugs.git] / bin / debbugs-installsql

diff --git a/bin/debbugs-installsql b/bin/debbugs-installsql
index 4e19dbe507b21e94db4824848ad1eccae9f5ff1f..ede803cdab59870fb5355dc8c3458ae089e4fdcd 100755 (executable)
--- a/bin/debbugs-installsql
+++ b/bin/debbugs-installsql
@@ -81,9 +81,10 @@ my %options = (debug           => 0,
               );
 
 GetOptions(\%options,
-           'service|s',
-           'sysconfdir|c',
+           'service|s=s',
+           'sysconfdir|c=s',
            'install',
+           'install_version_storage|install-version-storage',
            'upgrade',
            'current_version|current-version',
            'developer_prepare|developer-prepare',
@@ -98,7 +99,7 @@ $DEBUG = $options{debug};
 
 my @USAGE_ERRORS;
 
-my @exclusive_options = qw(install upgrade current_version);
+my @exclusive_options = qw(install upgrade current_version install_version_storage);
 if (1 < grep {exists $options{$_}} @exclusive_options) {
       push @USAGE_ERRORS,"You must only give one of the ".
           join(', ',map {s/_/-/g; "--".$_} @exclusive_options).
@@ -135,16 +136,16 @@ if ($options{current_version}) {
 } elsif ($options{install}) {
     if ($options{developer_prepare}) {
         $dh->prepare_install;
+        $dh->prepare_deploy;
     } else {
         $dh->install;
     }
 } elsif ($options{upgrade}) {
-    if ($options{developer_prepare}) {
-        $dh->prepare_deploy;
-        $dh->prepare_upgrade;
-    } else {
-        $dh->upgrade;
-    }
+    $dh->prepare_upgrade;
+    $dh->upgrade;
+} elsif ($options{install_version_storage}) {
+    $dh->prepare_version_storage_install;
+    $dh->install_version_storage;
 }