#!/usr/bin/perl
# Adds the weight column to dpm_fs and populates with default value
# Updates schema_version_dpm table
# i.e. the update from schema 3.2.0 to 3.3.0
use Common;
use strict;
use warnings;

sub update_mysql($) {
	my ($dbh_dpm) = @_;

	$dbh_dpm->do ("ALTER TABLE dpm_fs ADD weight INTEGER");
	$dbh_dpm->do ("UPDATE dpm_fs SET weight = 1");

	$dbh_dpm->do ("UPDATE schema_version_dpm SET major = 3, minor = 3, patch = 0");

	$dbh_dpm->commit;
}

sub update_oracle($) {
        my ($dbh_dpm) = @_;

	$dbh_dpm->do ("ALTER TABLE dpm_fs ADD weight NUMBER(10)");
	$dbh_dpm->do ("UPDATE dpm_fs SET weight = 1");

	$dbh_dpm->do ("UPDATE schema_version_dpm SET major = 3, minor = 3, patch = 0");

	$dbh_dpm->commit;
}

# Main method
my ($vendor, $connection) = Common::main();

if ($vendor eq "MySQL") {
  update_mysql($connection);
}
if ($vendor eq "Oracle") {
  update_oracle($connection);
}

$connection->disconnect();

