[Gforge-commits] gforge/deb-specific db-upgrade.pl,1.45,1.46

[lo-lan-do]

Update of /cvsroot/gforge/gforge/deb-specific
In directory db.perdue.net:/tmp/cvs-serv6231/deb-specific

Modified Files:
        db-upgrade.pl 
Log Message:
3.2.1-0+2, using 20031205.sql.


Index: db-upgrade.pl
===================================================================
RCS file: /cvsroot/gforge/gforge/deb-specific/db-upgrade.pl,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- db-upgrade.pl       17 Dec 2003 20:03:03 -0000      1.45
+++ db-upgrade.pl       17 Jan 2004 20:27:27 -0000      1.46
@@ -1390,6 +1390,26 @@
        $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 ("/usr/lib/gforge/db/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 () ;
+    }
+
     debug "It seems your database $action went well and smoothly.  That's 
cool." ;
     debug "Please enjoy using Gforge." ;