[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gforge-commits] gforge/deb-specific db-upgrade.pl,1.45,1.46
From: |
lo-lan-do |
Subject: |
[Gforge-commits] gforge/deb-specific db-upgrade.pl,1.45,1.46 |
Date: |
Sat, 17 Jan 2004 14:27:29 -0600 |
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." ;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Gforge-commits] gforge/deb-specific db-upgrade.pl,1.45,1.46,
lo-lan-do <=