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: 04-Jul-2006 16:18:06
Branch: HEAD Handle: 2006070415180600
Modified files:
openpkg-registry registry-db.pl
Log:
database upgrade procedures
Summary:
Revision Changes Path
1.25 +10 -13 openpkg-registry/registry-db.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-registry/registry-db.pl
============================================================================
$ cvs diff -u -r1.24 -r1.25 registry-db.pl
--- openpkg-registry/registry-db.pl 22 Jun 2006 10:02:26 -0000 1.24
+++ openpkg-registry/registry-db.pl 4 Jul 2006 14:18:06 -0000 1.25
@@ -37,8 +37,8 @@
# program name, version and date
my $progname="registry-db.pl";
-my $progvers="0.4.1";
-my $progdate="12-May-2006";
+my $progvers="0.5.0";
+my $progdate="04-Jul-2006";
# derive data version from program version
my $datavers={};
@@ -242,11 +242,11 @@
return 1;
}
- # 0.[012].x upgrade to 0.3.0 is a nop
+ # 0.[012].x upgrade to 0.5.0 is a nop
#
elsif ( $dbv->{version}->{major} == 0
- and $dbv->{version}->{minor} < 3 ) {
- $sql = sprintf("UPDATE config SET value = '0.3.0';");
+ and $dbv->{version}->{minor} < 5 ) {
+ $sql = sprintf("UPDATE config SET value = '0.5.0';");
$rv = $dbh->do($sql);
print "$sql\nrv=".$rv." message=".$dbh->errstr."\n\n"; die if
($dbh->errstr =~ m|ERROR|);
return 1;
@@ -397,24 +397,21 @@
and $dbv->{version}->{minor} == 3 ) {
$sql="";
$sql .= sprintf("ALTER TABLE reg_user ADD COLUMN fullname TEXT;\n");
- $sql .= &funcregistry();
$sql .= sprintf("UPDATE reg_config SET value = '0.4.0';\n");
$rv = $dbh->do($sql);
print "$sql\nrv=".$rv." message=".$dbh->errstr."\n\n"; die if
($dbh->errstr =~ m|ERROR|);
return 1;
}
- # 0.4.0 upgrade to 0.4.1
+ # 0.4.0 upgrade to 0.5.0
#
elsif ( $dbv->{version}->{major} == 0
- and $dbv->{version}->{minor} == 4
- and $dbv->{version}->{patch} == 0 ) {
+ and $dbv->{version}->{minor} == 4) {
$sql = "";
my $constraint = q{ CHECK (registry_orel ~
'^[^-]+-((CURRENT|CURRENT-[0-9]+|[^.-]+-STABLE|[^.-]+-STABLE-[0-9]+|[^.-]+\.[^.-]+-SOLID|[^.-]+\.[^.-]+-SOLID-[0-9]+|[^.-]+\.[^.-]+-RELEASE).*|[0-9]+\.[0-9]+)$')
};
$sql .= sprintf("ALTER TABLE reg_instance DROP CONSTRAINT
reg_instance_registry_orel_check;\n");
$sql .= sprintf("ALTER TABLE reg_instance ADD CONSTRAINT
reg_instance_registry_orel_check $constraint;\n");
- $sql .= &funcregistry();
- $sql .= sprintf("UPDATE reg_config SET value = '0.4.1';\n");
+ $sql .= sprintf("UPDATE reg_config SET value = '0.5.0';\n");
$rv = $dbh->do($sql);
print "$sql\nrv=".$rv." message=".$dbh->errstr."\n\n"; die if
($dbh->errstr =~ m|ERROR|);
return 1;
@@ -663,8 +660,8 @@
sub sample()
{
return <<'EOT'
- INSERT INTO reg_user VALUES ('[EMAIL PROTECTED]');
- INSERT INTO reg_user VALUES ('[EMAIL PROTECTED]');
+ INSERT INTO reg_user VALUES ('[EMAIL PROTECTED]', 'One');
+ INSERT INTO reg_user VALUES ('[EMAIL PROTECTED]', 'Two');
INSERT INTO reg_instance VALUES (
'd98267da-0874-11d9-b8f6-0002a5489f14',
'1169823e-22db-3547-9f72-20c2ef18619f',
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
