[evolvis-commits] r10573: Deal with 2 new file?==?UTF-8?Q?s↵
mirabilos at evolvis.org
mirabilos at evolvis.org
Thu Feb 24 17:51:35 CET 2011
Author: mirabilos
Date: 2011-02-24 17:51:35 +0100 (Thu, 24 Feb 2011)
New Revision: 10573
Modified:
trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl
Log:
Deal with 2 new files
Modified: trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl
===================================================================
--- trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl 2011-02-24 16:51:34 UTC (rev 10572)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl 2011-02-24 16:51:35 UTC (rev 10573)
@@ -1980,6 +1980,46 @@
$dbh->commit () ;
}
+ $version = &get_db_version ;
+ $target = "4.1-0" ;
+ if (&is_lesser ($version, $target)) {
+ &debug ("Upgrading with 20050224.sql") ;
+
+ @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20050224.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-1" ;
+ if (&is_lesser ($version, $target)) {
+ &debug ("Upgrading with 20050225-nsssetup.sql") ;
+
+ @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20050225-nsssetup.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 $action went well and smoothly. That's cool.") ;
&debug ("Please enjoy using Gforge.") ;
More information about the evolvis-commits
mailing list