1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#
# Query the DPM database and updates the 's_uid' and 'protocol' fields
#
package UpdateDpmDatabase;
use DBI;
use Common;
use strict;
use warnings;
sub update_mysql($) {
my ($dbh_dpm) = @_;
$dbh_dpm->do ("ALTER TABLE dpm_req ADD groups VARCHAR(255)");
$dbh_dpm->do ("ALTER TABLE dpm_pending_req ADD groups VARCHAR(255)");
$dbh_dpm->do ("ALTER TABLE dpm_pool ADD groups VARCHAR(255) BINARY");
$dbh_dpm->do ("UPDATE dpm_pending_req SET groups=r_gid");
$dbh_dpm->do ("UPDATE dpm_req SET groups=r_gid");
$dbh_dpm->do ("UPDATE dpm_pool SET groups=gid");
$dbh_dpm->do ("ALTER TABLE dpm_pool DROP gid");
$dbh_dpm->do ("DROP TABLE schema_version");
$dbh_dpm->do ("CREATE TABLE schema_version_dpm (major INTEGER NOT NULL, minor INTEGER NOT NULL, patch INTEGER NOT NULL) TYPE=INNODB");
$dbh_dpm->do ("INSERT INTO schema_version_dpm VALUES(3, 1, 0)");
$dbh_dpm->commit;
}
sub update_oracle($) {
my ($dbh_dpm) = @_;
$dbh_dpm->do ("ALTER TABLE dpm_req ADD groups VARCHAR2(255)");
$dbh_dpm->do ("ALTER TABLE dpm_pending_req ADD groups VARCHAR2(255)");
$dbh_dpm->do ("ALTER TABLE dpm_pool ADD groups VARCHAR2(255)");
$dbh_dpm->do ("UPDATE dpm_pending_req SET groups=r_gid");
$dbh_dpm->do ("UPDATE dpm_req SET groups=r_gid");
$dbh_dpm->do ("UPDATE dpm_pool SET groups=gid");
$dbh_dpm->do ("ALTER TABLE dpm_pool DROP COLUMN gid");
$dbh_dpm->do ("CREATE TABLE schema_version_dpm (major NUMBER(1), minor NUMBER(1), patch NUMBER(1))");
$dbh_dpm->do ("INSERT INTO schema_version_dpm VALUES(3, 1, 0)");
$dbh_dpm->commit;
}
1;
|
