'service|s=s',
'sysconfdir|c=s',
'install',
+ 'install_version_storage|install-version-storage',
'upgrade',
'current_version|current-version',
'developer_prepare|developer-prepare',
- 'overwrite_deployment|overwrite-deployment',
+ 'overwrite_deployment|overwrite-deployment|force_overwrite|force-overwrite',
'deployment_dir|deployment-dir=s',
'debug|d+','help|h|?','man|m');
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).
print "The current database version is: ".$dh->database_version."\n";
exit 0;
} elsif ($options{install}) {
- if ($options{developer_prepare}) {
- $dh->prepare_install;
- $dh->prepare_deploy;
- } else {
- $dh->install;
- }
+ $dh->prepare_install if $options{developer_prepare};
+ $dh->install unless $options{developer_prepare};
} elsif ($options{upgrade}) {
- $dh->prepare_upgrade;
- $dh->upgrade;
+ $dh->prepare_deploy if $options{developer_prepare};
+ $dh->prepare_upgrade() if $options{developer_prepare};
+ $dh->upgrade unless $options{developer_prepare};
+} elsif ($options{install_version_storage}) {
+ $dh->prepare_version_storage_install if $options{developer_prepare};
+ $dh->install_version_storage unless $options{developer_prepare};
}