Changeset 204 for devel/pb/bin/pb


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

Coding of newver in progress

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r203 r204  
    2424use ProjectBuilder::Distribution qw (pb_distro_init);
    2525use ProjectBuilder::Version qw (pb_version_init);
    26 use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_cms_export pb_cms_log);
     26use ProjectBuilder::Base qw (pb_conf_read pb_conf_get pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout);
    2727
    2828my %opts;                   # CLI Options
     
    695695sub pb_newver {
    696696
     697    die "-V Version parameter needed" if ((not defined $newver) || ($newver eq ""));
    697698    my $cms=pb_cms_init($ENV{'PBPROJ'});
    698699    if ($cms->{$ENV{'PBPROJ'}} ne "svn") {
     
    702703    die "You need to have no differences before creating a new version" if ($res != 0);
    703704    my $cmsurl = pb_cms_getinfo($cms);
    704     my $newurl = dirname($cmsurl).$newver;
    705     pb_cms_copy($cmsurl,$newurl);
    706     pb_cms_checkout($newurl);
     705    my $newurl = dirname($cmsurl)."/$newver";
     706    pb_cms_copy($cms,$cmsurl,$newurl);
     707    pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/..");
    707708}
    708709
Note: See TracChangeset for help on using the changeset viewer.