Changeset 208


Ignore:
Timestamp:
Oct 14, 2007, 8:36:47 PM (12 years ago)
Author:
bruno
Message:

Improved newver again

Location:
devel/pb
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r204 r208  
    705705    my $newurl = dirname($cmsurl)."/$newver";
    706706    pb_cms_copy($cms,$cmsurl,$newurl);
    707     pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/..");
     707    pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/../$newver");
     708    my $oldver=basename($cmsurl);
     709    open(FILE,"+<$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb") || die "Unable to open $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb";
     710    while(<FILE>) {
     711        s/projver[:space:]+$ENV{'PBPROJ'}[:space:]*=[:space:]*$oldver/projver $ENV{'PBPROJ'} = $newver/;
     712    }
     713    close(FILE);
     714    pb_cms_checkin($cms,"$ENV{'PBROOT'}/../$newver");
    708715}
    709716
  • devel/pb/lib/ProjectBuilder/Base.pm

    r206 r208  
    380380
    381381if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
    382     pb_system("svn copy $oldurl $newurl","Copying $oldurl to $newurl ");
     382    pb_system("svn copy -m 'Creation of $newurl from $oldurl' $oldurl $newurl","Copying $oldurl to $newurl ");
    383383} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
    384384} else {
     
    394394if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
    395395    pb_system("svn co $url $destination","Checking $url to $destination ");
     396} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
     397} else {
     398    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
     399}
     400}
     401
     402sub pb_cms_checkin {
     403my $cms = shift;
     404my $dir = shift;
     405
     406if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
     407    pb_system("svn ci $dir","Checking in $dir");
     408    pb_system("svn up $dir","Updating $dir");
    396409} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
    397410} else {
Note: See TracChangeset for help on using the changeset viewer.