Changeset 208 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm

Timestamp:

Oct 14, 2007, 8:36:47 PM (17 years ago)

Author:

Bruno Cornec

Message:

Improved newver again

File:

• devel/pb/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb/lib/ProjectBuilder/Base.pm

@@ -380 +380 @@
 
 if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
-    pb_system("svn copy $oldurl $newurl","Copying $oldurl to $newurl ");
+    pb_system("svn copy -m 'Creation of $newurl from $oldurl' $oldurl $newurl","Copying $oldurl to $newurl ");
 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
 } else {
@@ -394 +394 @@
 if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
     pb_system("svn co $url $destination","Checking $url to $destination ");
+} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
+} else {
+    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
+}
+}
+
+sub pb_cms_checkin {
+my $cms = shift;
+my $dir = shift;
+
+if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
+    pb_system("svn ci $dir","Checking in $dir");
+    pb_system("svn up $dir","Updating $dir");
 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
 } else {