$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
+ $sys_ldap_base_dn $sys_ldap_host $admin_password
$server_admin $domain_name $newsadmin_groupid $statsadmin_groupid
- $skill_list $libdir $sqldir/ ;
+ $libdir $sqldir/ ;
require ("/etc/gforge/local.pl") ;
$libdir="/usr/share/gforge/lib";
require ("$libdir/sqlhelper.pm") ; # Our SQL functions
require ("$libdir/include.pl"); # Some other functions
-&debug ("You'll see some debugging info during this installation.") ;
-&debug ("Do not worry unless told otherwise.") ;
-
&db_connect ;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
eval {
- my ($sth, @array, $version, $action, $path, $target) ;
+ my ($sth, @array, $version, $path, $target) ;
# Do we have at least the basic schema?
# Create Sourceforge database
if (! &table_exists ($dbh, 'groups')) { # No 'groups' table
# Installing SF 2.6 from scratch
- $action = "installation" ;
&debug ("Creating initial Sourceforge database from files.") ;
&create_metadata_table ("2.5.9999") ;
@array = $sth->fetchrow_array () ;
$sth->finish () ;
if ($array[0] == 0) {
- &debug ("Updating debian_meta_data table.") ;
$query = "INSERT INTO debian_meta_data (key, value) VALUES ('current-path', 'scratch-to-2.6')" ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
}
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
} else { # A 'groups' table exists
- $action = "upgrade" ;
-
if (! &table_exists ($dbh, 'debian_meta_data')) { # No 'debian_meta_data' table
# If we're here, we're upgrading from 2.5-7 or earlier
# We therefore need to create the table
$sth->finish () ;
if ($array[0] == 0) {
- # &debug ("Updating debian_meta_data table.") ;
$query = "INSERT INTO debian_meta_data (key, value) VALUES ('current-path', '2.5-to-2.6')" ;
- # debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
- &debug ("Committing.") ;
$dbh->commit () ;
}
}
}
$query = "SELECT count(*) from debian_meta_data where key = 'current-path'";
- # debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@array = $sth->fetchrow_array () ;
$path = "" ;
} else {
$query = "SELECT value from debian_meta_data where key = 'current-path'";
- # debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@array = $sth->fetchrow_array () ;
PATH_SWITCH: {
($path eq 'scratch-to-2.6') && do {
- $version = &get_db_version ;
- $target = "2.5.9999.1+global+data+done" ;
- if (&is_lesser ($version, $target)) {
- my @filelist = qw{ sf-2.6-complete.sql } ;
- # TODO: user_rating.sql
-
- foreach my $file (@filelist) {
- &debug ("Processing $file") ;
- @reqlist = @{ &parse_sql_file ($sqldir."/".$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 () ;
- }
+ &update_with_sql ("sf-2.6-complete", "2.5.9999.1+global+data+done") ;
$version = &get_db_version ;
$target = "2.5.9999.2+local+data+done" ;
do "/etc/gforge/local.pl" or die "Cannot read /etc/gforge/local.pl" ;
- my ($login, $pwd, $md5pwd, $email, $noreplymail, $date) ;
+ my ($login, $md5pwd, $unixpwd, $email, $noreplymail, $date) ;
- $login = $admin_login ;
- $pwd = $admin_password ;
- $md5pwd=qx/echo -n $pwd | md5sum/ ;
- chomp $md5pwd ;
- $md5pwd =~ s/(.{32}) .*/$1/ ;
+ $login = 'admin' ;
+ $md5pwd = 'INVALID' ;
+ $unixpwd = 'INVALID' ;
$email = $server_admin ;
$noreplymail="noreply\@$domain_name" ;
$date = time () ;
"UPDATE groups SET homepage = '$domain_name/stats/' where group_id = 3",
"UPDATE groups SET homepage = '$domain_name/peerrating/' where group_id = 4",
"UPDATE users SET email = '$noreplymail' where user_id = 100",
- "INSERT INTO users VALUES (101,'$login','$email','$md5pwd','Sourceforge admin','A','/bin/bash','','N',2000,'shell',$date,'',1,0,NULL,NULL,0,'','GMT', 1, 0)",
+ "INSERT INTO users VALUES (101,'$login','$email','$md5pwd','Sourceforge admin','A','/bin/bash','$unixpwd','N',2000,'shell',$date,'',1,0,NULL,NULL,0,'','GMT', 1, 0)",
"SELECT setval ('\"users_pk_seq\"', 102, 'f')",
"INSERT INTO user_group (user_id, group_id, admin_flags) VALUES (101, 1, 'A')",
"INSERT INTO user_group (user_id, group_id, admin_flags) VALUES (101, 2, 'A')",
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
if (&is_lesser ($version, $target)) {
&debug ("Inserting skills.") ;
- foreach my $skill (split m/;/, $skill_list) {
+ foreach my $skill (split m/;/, "Ada;C;C++;HTML;LISP;Perl;PHP;Python;SQL") {
push @reqlist, "INSERT INTO people_skill (name) VALUES ('$skill')" ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$version = &get_db_version ;
$target = "2.6-0+checkpoint+1" ;
if (&is_lesser ($version, $target)) {
- &debug ("Updating debian_meta_data table.") ;
$query = "DELETE FROM debian_meta_data WHERE key = 'current-path'" ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
&bump_sequence_to ($dbh, "project_task_pk_seq", 100) ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$version = &get_db_version ;
$target = "2.6-0+checkpoint+1" ;
if (&is_lesser ($version, $target)) {
- &debug ("Database has successfully been converted.") ;
$query = "DELETE FROM debian_meta_data WHERE key = 'current-path'" ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+12" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021125.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021125.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+13" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021212.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021212.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+14" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021213-1.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021213-1.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
+ &update_with_sql("20021125", "2.6-0+checkpoint+12") ;
+ &update_with_sql("20021212", "2.6-0+checkpoint+13") ;
+ &update_with_sql("20021213-1", "2.6-0+checkpoint+14") ;
$version = &get_db_version ;
$target = "2.6-0+checkpoint+15" ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+16" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021214.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021214.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+17" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021215.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021215.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+18" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021216.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021216.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+19" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20021223-2.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20021223-2.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+20" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030102-2.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030102-2.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+21" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030105.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030105.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+22" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030107.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030107.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+23" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030109.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030109.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
+ &update_with_sql("20021214", "2.6-0+checkpoint+16") ;
+ &update_with_sql("20021215", "2.6-0+checkpoint+17") ;
+ &update_with_sql("20021216", "2.6-0+checkpoint+18") ;
+ &update_with_sql("20021223-2", "2.6-0+checkpoint+19") ;
+ &update_with_sql("20030102-2", "2.6-0+checkpoint+20") ;
+ &update_with_sql("20030105", "2.6-0+checkpoint+21") ;
+ &update_with_sql("20030107", "2.6-0+checkpoint+22") ;
+ &update_with_sql("20030109", "2.6-0+checkpoint+23") ;
$version = &get_db_version ;
$target = "2.6-0+checkpoint+24" ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+25" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030113-2.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030113-2.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+26" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030131.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030131.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+27" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030209.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030209.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "2.6-0+checkpoint+28" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030312.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030312.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing $target.") ;
- $dbh->commit () ;
- }
+ &update_with_sql("20030113-2", "2.6-0+checkpoint+25") ;
+ &update_with_sql("20030131", "2.6-0+checkpoint+26") ;
+ &update_with_sql("20030209", "2.6-0+checkpoint+27") ;
+ &update_with_sql("20030312", "2.6-0+checkpoint+28") ;
$version = &get_db_version ;
$target = "2.6-0+checkpoint+29" ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
+ &update_with_sql("20030513", "2.6-0+checkpoint+31") ;
+
$version = &get_db_version ;
- $target = "2.6-0+checkpoint+31" ;
+ $target = "3.0-1" ;
if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030513.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030513.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
+ &debug ("Database schema is now version 3.0-1.") ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
-
- $version = &get_db_version ;
- $target = "3.0-1" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Database schema is now version 3.0-1.") ;
-
- &update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
-
- $version = &get_db_version ;
- $target = "3.0-7" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20030822.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20030822.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.1-0+1" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20031105.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20031105.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
-
- &debug ("Upgrading with 20031124.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20031124.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.1-0+2" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20031129.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20031129.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.1-0+3" ;
- if (&is_lesser ($version, $target)) {
- # Yes, I know. 20031126 < 20031129, yet we apply that change later.
- # Blame tperdue for late committing.
- # They are independent anyway.
- &debug ("Upgrading with 20031126.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20031126.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.2.1-0+2" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20031205.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20031205.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.2.1-0+3" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040130.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040130.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.2.1-0+4" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040204.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040204.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.2.1-0+5" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040315.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040315.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-0+0" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 200403251.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/200403251.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-0+1" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 200403252.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/200403252.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-0+3" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040507.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040507.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-0+4" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040722.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040722.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-0+6" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040804.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040804.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-0+7" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040826.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040826.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 () ;
- }
+ &update_with_sql("20030822", "3.0-7") ;
+ &update_with_sql("20031105", "3.1-0+1") ;
+ &update_with_sql("20031124", "3.1-0+1.1") ;
+ &update_with_sql("20031129", "3.1-0+2") ;
+ &update_with_sql("20031126", "3.1-0+3") ;
+ &update_with_sql("20031205", "3.2.1-0+2") ;
+ &update_with_sql("20040130", "3.2.1-0+3") ;
+ &update_with_sql("20040204", "3.2.1-0+4") ;
+ &update_with_sql("20040315", "3.2.1-0+5") ;
+ &update_with_sql("200403251", "3.3.0-0+0") ;
+ &update_with_sql("200403252", "3.3.0-0+1") ;
+ &update_with_sql("20040507", "3.3.0-0+3") ;
+ &update_with_sql("20040722", "3.3.0-0+4") ;
+ &update_with_sql("20040804", "3.3.0-0+6") ;
+ &update_with_sql("20040826", "3.3.0-0+7") ;
$version = &get_db_version ;
$target = "3.3.0-2+1" ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$sth3->execute () ;
$sth3->finish () ;
}
- }
- $sth2->finish () ;
- }
- $sth->finish () ;
-
- &update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-2+4" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040914.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040914.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-2+4+1" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041001.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041001.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-2+5" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041005.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041005.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-2+6" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041006.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041006.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-3" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041014.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041014.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "3.3.0-4" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041020.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041020.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "4.0.0-0" ;
- # This is an exception, I reapply a modified version of 20040729.sql since it was doing nothing
- # the other call was deleted from this file
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20040729.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20040729.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "4.0.0-0+1" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Granting read access permissions to NSS") ;
-
- @reqlist = ( "GRANT SELECT ON nss_passwd TO gforge_nss",
- "GRANT SELECT ON nss_groups TO gforge_nss",
- "GRANT SELECT ON nss_usergroups TO gforge_nss",
- ) ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
+ }
+ $sth2->finish () ;
+ }
+ $sth->finish () ;
+
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
+ &update_with_sql("20040914", "3.3.0-2+4") ;
+ &update_with_sql("20041001", "3.3.0-2+4+1") ;
+ &update_with_sql("20041005", "3.3.0-2+5") ;
+ &update_with_sql("20041006", "3.3.0-2+6") ;
+ &update_with_sql("20041014", "3.3.0-3") ;
+ &update_with_sql("20041020", "3.3.0-4") ;
+ &update_with_sql("20040729", "4.0.0-0") ;
+
$version = &get_db_version ;
- $target = "4.0.0-0+2" ;
+ $target = "4.0.0-0+1" ;
if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041031.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041031.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
&debug ("Granting read access permissions to NSS") ;
- @reqlist = ( "GRANT SELECT ON mta_users TO gforge_mta",
- "GRANT SELECT ON mta_lists TO gforge_mta",
+ @reqlist = ( "GRANT SELECT ON nss_passwd TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON nss_groups TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON nss_usergroups TO ${sys_dbuser}_nss",
) ;
foreach my $s (@reqlist) {
$query = $s ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
$version = &get_db_version ;
- $target = "4.0.0-0+3" ;
- # This is an exception, I reapply a modified version of 20040729.sql since it was doing nothing
- # the other call was deleted from this file
+ $target = "4.0.0-0+2" ;
if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041104.sql") ;
+ &debug ("Upgrading with 20041031.sql") ;
- @reqlist = @{ &parse_sql_file ("$sqldir/20041104.sql") } ;
+ @reqlist = @{ &parse_sql_file ("$sqldir/20041031.sql") } ;
foreach my $s (@reqlist) {
$query = $s ;
# debug $query ;
}
@reqlist = () ;
- &update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "4.0.0-0+4" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041108.sql") ;
+ &debug ("Granting read access permissions to NSS") ;
- @reqlist = @{ &parse_sql_file ("$sqldir/20041108.sql") } ;
+ @reqlist = ( "GRANT SELECT ON mta_users TO ${sys_dbuser}_mta",
+ "GRANT SELECT ON mta_lists TO ${sys_dbuser}_mta",
+ ) ;
foreach my $s (@reqlist) {
$query = $s ;
# debug $query ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "4.0.2-0+0" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20041124.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20041124.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 () ;
- }
+ &update_with_sql("20041104", "4.0.0-0+3") ;
+ &update_with_sql("20041108", "4.0.0-0+4") ;
+ &update_with_sql("20041124", "4.0.2-0+0") ;
$version = &get_db_version ;
$target = "4.0.2-0+1" ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
-# $version = &get_db_version ;
-# $target = "4.0.2-0+2" ;
-# if (&is_lesser ($version, $target)) {
-# &debug ("Upgrading with 20041222-debian.sql") ;
-#
-# @reqlist = @{ &parse_sql_file ("$sqldir/20041222-debian.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 () ;
-# }
-
- $version = &get_db_version ;
- $target = "4.0.2-0+3" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050115.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050115.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
+ &update_with_sql("20050115", "4.0.2-0+3") ;
#
# We got this at upgrade
#
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
- $version = &get_db_version ;
- $target = "4.0.2-0+5" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050130.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050130.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "4.0.2-0+6" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050212.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050212.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 () ;
- }
+ &update_with_sql("20050130", "4.0.2-0+5") ;
+ &update_with_sql("20050212", "4.0.2-0+6") ;
$version = &get_db_version ;
$target = "4.0.2-0+7" ;
if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050214-nss.sql valantine") ;
+ &debug ("Upgrading with 20050214-nss.sql") ;
@reqlist = @{ &parse_sql_file ("$sqldir/20050214-nss.sql") } ;
foreach my $s (@reqlist) {
$query = $s ;
+ $query =~ s/TO gforge_nss;/TO ${sys_dbuser}_nss;/ ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "4.1-0" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050224-2.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050224-2.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 () ;
- }
+ &update_with_sql("20050224-2", "4.1-0") ;
$version = &get_db_version ;
$target = "4.1-1" ;
@reqlist = @{ &parse_sql_file ("$sqldir/20050225-nsssetup.sql") } ;
foreach my $s (@reqlist) {
$query = $s ;
+ $query =~ s/TO gforge_nss;/TO ${sys_dbuser}_nss;/ ;
# debug $query ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "4.1-2" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050311.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050311.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "4.1-3" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050315.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050315.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "4.1-4" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050325-2.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050325-2.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 () ;
- }
+ &update_with_sql("20050311", "4.1-2") ;
+ &update_with_sql("20050315", "4.1-3") ;
+ &update_with_sql("20050325-2", "4.1-4") ;
$version = &get_db_version ;
$target = "4.1-5" ;
}
&update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "4.1-6" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050325-5.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050325-5.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
- $version = &get_db_version ;
- $target = "4.1-7" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050605.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050605.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 () ;
- }
+ &update_with_sql("20050325-5", "4.1-6") ;
+ &update_with_sql("20050605", "4.1-7") ;
$version = &get_db_version ;
$target = "4.1-8" ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
- $dbh->commit () ;
- }
-
- $version = &get_db_version ;
- $target = "4.1-9" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050628.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050628.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 () ;
- }
-
- $version = &get_db_version ;
- $target = "4.5-1" ;
- if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with 20050711.sql") ;
-
- @reqlist = @{ &parse_sql_file ("$sqldir/20050711.sql") } ;
- foreach my $s (@reqlist) {
- $query = $s ;
- # debug $query ;
- $sth = $dbh->prepare ($query) ;
- $sth->execute () ;
- $sth->finish () ;
- }
- @reqlist = () ;
-
- &update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
+ &update_with_sql("20050628", "4.1-9") ;
+ &update_with_sql("20050711", "4.5-1") ;
&update_with_sql("20050906","4.5-2");
- # 20051027-1 was renamed 20050804-1
- #&update_with_sql("20051027-1","4.5-3");
&update_with_sql("20050804-1","4.5-3");
$version = &get_db_version ;
$sth->finish () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
&drop_table_if_exists ($dbh, "tmp_lang") ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
&drop_index_if_exists ($dbh, "statssite_oid") ;
&drop_index_if_exists ($dbh, "statssitepgsbyday_oid") ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
&update_with_sql("20100308-forum-attachment-types","4.8.99-6");
+ $version = &get_db_version ;
+ $target = "4.8.99-7" ;
+ if (&is_lesser ($version, $target)) {
+ &debug ("Granting read access permissions to NSS and MTA") ;
+
+ @reqlist = ( "GRANT SELECT ON nss_passwd TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON nss_groups TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON nss_usergroups TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON mta_users TO ${sys_dbuser}_mta",
+ "GRANT SELECT ON mta_lists TO ${sys_dbuser}_mta",
+ ) ;
+ foreach my $s (@reqlist) {
+ $query = $s ;
+ # debug $query ;
+ $sth = $dbh->prepare ($query) ;
+ $sth->execute () ;
+ $sth->finish () ;
+ }
+ @reqlist = () ;
+
+ &update_db_version ($target) ;
+ &debug ("...OK.") ;
+ $dbh->commit () ;
+ }
+
&update_with_sql("20100330-add-system-event","5.0.0-1");
&update_with_sql("20100331-alter-system-event","5.0.0-2");
&update_with_sql("20100505-alter-user-preference","5.0.1-1");
&update_with_sql("20100730-docman","5.0.1-8");
&update_with_sql("20100924-theme","5.0.1-9");
&update_with_sql("20100926-pfo-rbac","5.0.1-10");
+ &update_with_sql("20100927-pfo-rbac","5.0.1-11");
+ &update_with_sql("20101012-docman-webdav","5.0.51-1");
+ &update_with_sql("20101021-pfo-rbac","5.0.51-2");
+ &update_with_sql("20101025-ipv6","5.0.51-3");
- ########################### INSERT HERE #################################
+ $version = &get_db_version ;
+ $target = "5.0.51-4" ;
+ if (&is_lesser ($version, $target)) {
+ &debug ("Granting read access permissions to NSS and MTA") ;
- &debug ("It seems your database $action went well and smoothly. That's cool.") ;
- &debug ("Please enjoy using FusionForge.") ;
+ @reqlist = ( "GRANT SELECT ON nss_passwd TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON nss_groups TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON nss_usergroups TO ${sys_dbuser}_nss",
+ "GRANT SELECT ON mta_users TO ${sys_dbuser}_mta",
+ "GRANT SELECT ON mta_lists TO ${sys_dbuser}_mta",
+ ) ;
+ foreach my $s (@reqlist) {
+ $query = $s ;
+ # debug $query ;
+ $sth = $dbh->prepare ($query) ;
+ $sth->execute () ;
+ $sth->finish () ;
+ }
+ @reqlist = () ;
+
+ &update_db_version ($target) ;
+ &debug ("...OK.") ;
+ $dbh->commit () ;
+ }
+
+ &update_with_sql("20101027-docman-lock","5.0.51-5");
+ &update_with_sql("20101105-pfo-rbac","5.0.51-6");
+ &update_with_sql("20101029-docman-monitoring","5.0.51-7");
+ &update_with_sql("20100402_add_query_options","5.0.51-8");
+ &update_with_sql("20101024-docman-createonline","5.0.51-9");
+ &update_with_sql("20101213-project-template","5.0.51-10");
+ &update_with_sql("20110110-pw-size","5.0.51-11");
+ &update_with_sql("20110405-forum_attachment_fix-bug284","5.0.51-12");
+ &update_with_sql("20110408-anonymous-read-news","5.0.51-13");
+ &update_with_sql("20110414-move-news-forums-to-own-project","5.0.51-14");
+
+ ########################### INSERT HERE #################################
# There should be a commit at the end of every block above.
# If there is not, then it might be symptomatic of a problem.
sub update_db_version ( $ ) {
my $v = shift or die "Not enough arguments" ;
- &debug ("Updating debian_meta_data table.") ;
$query = "UPDATE debian_meta_data SET value = '$v' WHERE key = 'db-version'" ;
- # debug $query ;
my $sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
return $version ;
}
-sub update_with_sql ( $ ) {
- my $sqldate = shift or die "Not enough arguments" ;
+sub update_with_sql ( $$ ) {
+ my $sqlfile = shift or die "Not enough arguments" ;
my $target = shift or die "Not enough arguments" ;
my $version = &get_db_version ;
if (&is_lesser ($version, $target)) {
- &debug ("Upgrading with $sqldate.sql") ;
+ &debug ("Upgrading database with $sqlfile.sql") ;
- @reqlist = @{ &parse_sql_file ("$sqldir/$sqldate.sql") } ;
+ @reqlist = @{ &parse_sql_file ("$sqldir/$sqlfile.sql") } ;
foreach my $s (@reqlist) {
my $query = $s ;
# debug $query ;
@reqlist = () ;
&update_db_version ($target) ;
- &debug ("Committing.") ;
+ &debug ("...OK.") ;
$dbh->commit () ;
}
}