);
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',
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).
} 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;
}