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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
#!/usr/bin/perl -w
#
# $Id: db-upgrade.pl 4083 2005-03-05 14:34:05Z gsmet $
#
# Debian-specific script to upgrade the database between releases
# Roland Mas <lolando@debian.org>
use strict ;
use diagnostics ;
use DBI ;
use MIME::Base64 ;
use HTML::Entities ;
use vars qw/$dbh @reqlist $query/ ;
use vars qw/$sys_default_domain $sys_cvs_host $sys_download_host
$sys_shell_host $sys_users_host $sys_docs_host $sys_lists_host
$sys_dns1_host $sys_dns2_host $FTPINCOMING_DIR $FTPFILES_DIR
$sys_urlroot $sf_cache_dir $sys_name $sys_themeroot
$sys_news_group $sys_dbhost $sys_dbname $sys_dbuser $sys_dbpasswd
$sys_ldap_base_dn $sys_ldap_host $admin_login $admin_password
$server_admin $domain_name $newsadmin_groupid $statsadmin_groupid
$skill_list/ ;
use vars qw/$pluginname/ ;
sub is_lesser ( $$ ) ;
sub is_greater ( $$ ) ;
sub debug ( $ ) ;
sub parse_sql_file ( $ ) ;
require ("/usr/lib/gforge/lib/include.pl") ; # Include a few predefined functions
require ("/usr/lib/gforge/lib/sqlparser.pm") ; # Our magic SQL parser
require ("/usr/lib/gforge/lib/sqlhelper.pm") ; # Our SQL functions
debug "You'll see some debugging info during this installation." ;
debug "Do not worry unless told otherwise." ;
&db_connect ;
# debug "Connected to the database OK." ;
$pluginname = "cvstracker" ;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
eval {
my ($sth, @array, $version, $path, $target) ;
&create_plugin_metadata_table ($dbh, $pluginname);
$version = &get_db_version ;
$target = "0.1" ;
if (is_lesser $version, $target) {
my @filelist = ( "/usr/lib/gforge/plugins/$pluginname/lib/$pluginname-init.sql" ) ;
foreach my $file (@filelist) {
debug "Processing $file" ;
@reqlist = @{ &parse_sql_file ($file) } ;
foreach my $s (@reqlist) {
$query = $s ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
debug "Committing." ;
$dbh->commit () ;
}
$version = &get_db_version ;
$target = "0.3" ;
if (&is_lesser ($version, $target)) {
&debug ("Upgrading with 20050305.sql") ;
@reqlist = @{ &parse_sql_file ("/usr/lib/gforge/plugins/$pluginname/lib/20050305.sql") } ;
foreach my $s (@reqlist) {
$query = $s ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
}
@reqlist = () ;
&update_db_version ($target) ;
&debug ("Committing.") ;
$dbh->commit () ;
}
debug "It seems your database install/upgrade went well and smoothly. That's cool." ;
debug "Please enjoy using Debian GForge." ;
# There should be a commit at the end of every block above.
# If there is not, then it might be symptomatic of a problem.
# For safety, we roll back.
$dbh->rollback ();
};
if ($@) {
warn "Transaction aborted because $@" ;
debug "Transaction aborted because $@" ;
debug "Last SQL query was:\n$query\n(end of query)" ;
$dbh->rollback ;
debug "Please report this bug on the Debian bug-tracking system." ;
debug "Please include the previous messages as well to help debugging." ;
debug "You should not worry too much about this," ;
debug "your DB is still in a consistent state and should be usable." ;
exit 1 ;
}
$dbh->rollback ;
$dbh->disconnect ;
sub update_db_version ( $ ) {
my $v = shift or die "Not enough arguments" ;
my $tablename = "plugin_" .$pluginname . "_meta_data" ;
debug "Updating $tablename table." ;
$query = "UPDATE $tablename SET value = '$v' WHERE key = 'db-version'" ;
# debug $query ;
my $sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
}
sub get_db_version () {
my $tablename = "plugin_" .$pluginname . "_meta_data" ;
$query = "SELECT value FROM $tablename WHERE key = 'db-version'" ;
# debug $query ;
my $sth = $dbh->prepare ($query) ;
$sth->execute () ;
my @array = $sth->fetchrow_array () ;
$sth->finish () ;
my $version = $array [0] ;
return $version ;
}
|
