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

Timestamp:

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

Author:

Bruno Cornec

Message:

Coding of newver in progress

File:

• devel/pb/lib/ProjectBuilder/Base.pm (modified) (1 diff)

devel/pb/lib/ProjectBuilder/Base.pm

@@ -354 +354 @@
 }
 }
-    
-
+
+sub pb_cms_getinfo {
+my $cms = shift;
+my $url = "";
+my $void = "";
+
+if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
+    open(PIPE,"LANGUAGE=C svn info $ENV{'PBROOT'} |") || die "Unable to get svn info from $ENV{'PBROOT'}";
+    while (<PIPE>) {
+        ($void,$url) = split(/^Repository Root:/) if (/^Repository Root:/);
+    }
+    close(PIPE);
+} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
+} else {
+    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
+}
+return($url);
+}
+
+sub pb_cms_copy {
+my $cms = shift;
+my $oldurl = shift;
+my $newurl = shift;
+
+if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
+    pb_system("svn copy $oldurl $newurl","Copying $oldurl to $newurl ");
+} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
+} else {
+    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
+}
+}
+
+sub pb_cms_checkout {
+my $cms = shift;
+my $url = shift;
+my $destination = shift;
+
+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_isdiff {
+my $cms = shift;
+
+if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
+    open(PIPE,"svn diff $ENV{'PBROOT'} |") || die "Unable to get svn diff from $ENV{'PBROOT'}";
+    my $l = 0;
+    while (<PIPE>) {
+        $l++;
+    }
+    return($l);
+} elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
+} else {
+    die "cms $cms->{$ENV{'PBPROJ'}} unknown";
+}
+}
 
 # Get all filters to apply