OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-registry Date: 25-Nov-2005 19:56:39
Branch: HEAD Handle: 2005112518563900
Modified files:
openpkg-registry registry-db.pl
Log:
upgrade path for new cache table
Summary:
Revision Changes Path
1.7 +16 -2 openpkg-registry/registry-db.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-registry/registry-db.pl
============================================================================
$ cvs diff -u -r1.6 -r1.7 registry-db.pl
--- openpkg-registry/registry-db.pl 24 Nov 2005 21:27:11 -0000 1.6
+++ openpkg-registry/registry-db.pl 25 Nov 2005 18:56:39 -0000 1.7
@@ -37,8 +37,8 @@
# program name, version and date
my $progname="registry-db.pl";
-my $progvers="0.0.24";
-my $progdate="24-Nov-2005";
+my $progvers="0.0.26";
+my $progdate="25-Nov-2005";
# derive data version from program version
my $datavers={};
@@ -191,6 +191,20 @@
return 1;
}
+ # 0.0.24 introduced cache table
+ #
+ elsif ( $dbv->{version}->{major} == 0
+ and $dbv->{version}->{minor} == 0
+ and $dbv->{version}->{patch} < 24 ) {
+ $sql = &schemasession3();
+ $rv = $dbh->do($sql);
+ print "[schema.3]\nrv=".$rv." message=".$dbh->errstr."\n\n"; die if
($dbh->errstr =~ m|ERROR|);
+ $sql = sprintf("UPDATE config SET value = '0.0.24';");
+ $rv = $dbh->do($sql);
+ print "$sql\nrv=".$rv." message=".$dbh->errstr."\n\n"; die if
($dbh->errstr =~ m|ERROR|);
+ return 1;
+ }
+
# program data version and database version already match
#
elsif ( $dbv->{version}->{major} == $datavers->{major}
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
