Changeset 204 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Oct 14, 2007, 8:20:11 PM (17 years ago)

Author:

Bruno Cornec

Message:

Coding of newver in progress

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -24 +24 @@
 use ProjectBuilder::Distribution qw (pb_distro_init);
 use ProjectBuilder::Version qw (pb_version_init);
-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);
+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 pb_cms_isdiff pb_cms_copy pb_cms_checkout);
 
 my %opts;                   # CLI Options
@@ -695 +695 @@
 sub pb_newver {
 
+    die "-V Version parameter needed" if ((not defined $newver) || ($newver eq ""));
     my $cms=pb_cms_init($ENV{'PBPROJ'});
     if ($cms->{$ENV{'PBPROJ'}} ne "svn") {
@@ -702 +703 @@
     die "You need to have no differences before creating a new version" if ($res != 0);
     my $cmsurl = pb_cms_getinfo($cms);
-    my $newurl = dirname($cmsurl).$newver;
-    pb_cms_copy($cmsurl,$newurl);
-    pb_cms_checkout($newurl);
+    my $newurl = dirname($cmsurl)."/$newver";
+    pb_cms_copy($cms,$cmsurl,$newurl);
+    pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/..");
 }