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 openpkg-cvs@openpkg.org