Changeset 1576 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/VCS.pm

Timestamp:

May 23, 2012, 1:29:16 PM (12 years ago)

Author:

Bruno Cornec

Message:

Add support of the PBVCSOPT environment variable to pass options to the VCS command such as a login/passwd authentication (useful for pbtest)

File:

• devel/pb-modules/lib/ProjectBuilder/VCS.pm (modified) (2 diffs)

devel/pb-modules/lib/ProjectBuilder/VCS.pm

@@ -520 +520 @@
 my $scheme = shift;
 my $cmd = "";
+my $cmdopt = "";
 
 # If there is a socks proxy to use
@@ -528 +529 @@
 }
 
+if (defined $ENV{'PBVCSOPT'}) {
+    $cmdopt .= $ENV{'PBVCSOPT'};
+}
+
 if ($scheme =~ /hg/) {
-    return($cmd."hg")
+    return($cmd."hg ".$cmdopt)
 } elsif ($scheme =~ /git/) {
-    return($cmd."git")
+    return($cmd."git ".$cmdopt)
 } elsif ($scheme =~ /svn/) {
-    return($cmd."svn")
+    return($cmd."svn ".$cmdopt)
 } elsif ($scheme =~ /svk/) {
-    return($cmd."svk")
+    return($cmd."svk ".$cmdopt)
 } elsif ($scheme =~ /cvs/) {
-    return($cmd."cvs")
+    return($cmd."cvs ".$cmdopt)
 } elsif (($scheme =~ /http/) || ($scheme =~ /ftp/)) {
     my $command = pb_check_req("wget",1);