[evolvis-commits] r10801: Add 20050325* new files↵

mirabilos at evolvis.org mirabilos at evolvis.org
Thu Feb 24 17:55:50 CET 2011


Author: mirabilos
Date: 2011-02-24 17:55:50 +0100 (Thu, 24 Feb 2011)
New Revision: 10801

Modified:
   trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl
Log:
Add 20050325* 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:55:47 UTC (rev 10800)
+++ trunk/gforge_base/evolvisforge-5.1/gforge/deb-specific/db-upgrade.pl	2011-02-24 16:55:50 UTC (rev 10801)
@@ -2089,6 +2089,57 @@
         $dbh->commit () ;
     }
 
+    $version = &get_db_version ;
+    $target = "4.1-4" ;
+    if (&is_lesser ($version, $target)) {
+        &debug ("Upgrading with 20050325-1.sql") ;
+
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20050325-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.") ;
+        $dbh->commit () ;
+    }
+
+    $version = &get_db_version ;
+    $target = "4.1-5" ;
+    if (&is_lesser ($version, $target)) {
+        &debug ("Upgrading with 20050325-2.php") ;
+	system("php -q -d include_path=/etc/gforge:/usr/share/gforge/:/usr/share/gforge/www/include /usr/lib/gforge/db/20050325-2.php") == 0
+	or die "system call of 20050325-2.php failed: $?" ;
+        &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-3.sql") ;
+
+        @reqlist = @{ &parse_sql_file ("/usr/lib/gforge/db/20050325-3.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