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:   27-Nov-2005 01:00:09
  Branch: HEAD                             Handle: 2005112700000600

  Modified files:
    openpkg-registry        registry-db.pl

  Log:
    database 0.0.x upgrade to 0.1.0

  Summary:
    Revision    Changes     Path
    1.9         +21 -1      openpkg-registry/registry-db.pl
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-registry/registry-db.pl
  ============================================================================
  $ cvs diff -u -r1.8 -r1.9 registry-db.pl
  --- openpkg-registry/registry-db.pl   26 Nov 2005 23:46:15 -0000      1.8
  +++ openpkg-registry/registry-db.pl   27 Nov 2005 00:00:06 -0000      1.9
  @@ -37,7 +37,7 @@
   
   #   program name, version and date
   my $progname="registry-db.pl";
  -my $progvers="0.1.0";
  +my $progvers="0.1.2";
   my $progdate="27-Nov-2005";
   
   #   derive data version from program version
  @@ -205,6 +205,16 @@
           return 1;
       }
   
  +    #   0.0.x upgrade to 0.1.0 is a nop
  +    #
  +    elsif (    $dbv->{version}->{major} == 0
  +           and $dbv->{version}->{minor} == 0  ) {
  +        $sql = sprintf("UPDATE config SET value = '0.1.0';");
  +        $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}
  @@ -317,6 +327,16 @@
           return 0;
       }
   
  +    #   0.0.x upgrade to 0.1.0 is a nop
  +    #
  +    elsif (    $dbv->{version}->{major} == 0
  +           and $dbv->{version}->{minor} == 0  ) {
  +        $sql = sprintf("UPDATE reg_config SET value = '0.1.0';");
  +        $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 only differ in patchlevel 
- just uprev the number
       #
       elsif (    $dbv->{version}->{major} == $datavers->{major}
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     [email protected]

Reply via email to