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

Timestamp:

Apr 30, 2012, 2:48:37 AM (12 years ago)

Author:

Bruno Cornec

Message:

• pb_vcs_add and pb_vcs_up now support a list of dirs/files as second parameter

File:

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

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

@@ -388 +388 @@
 This function updates a local directory with the VCS content.
 The first parameter is the schema of the VCS systems (svn, cvs, svn+ssh, ...)
-The second parameter is the directory to update.
+The second parameter is the list of directory to update.
 
 =cut
@@ -394 +394 @@
 sub pb_vcs_up {
 my $scheme = shift;
-my $dir = shift;
+my @dir = shift;
 my $vcscmd = pb_vcs_cmd($scheme);
 
 if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {
-    pb_system("$vcscmd up $dir","Updating $dir ");
+    pb_system("$vcscmd up ".join(' ',@dir),"Updating ".join(' ',@dir));
 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
 } else {
@@ -433 +433 @@
 This function adds to a VCS content from a local directory.
 The first parameter is the schema of the VCS systems (svn, cvs, svn+ssh, ...)
-The second parameter is the directory/file to add.
+The second parameter is a list of directory/file to add.
 
 =cut
@@ -439 +439 @@
 sub pb_vcs_add {
 my $scheme = shift;
-my $f = shift;
+my @f = shift;
 my $vcscmd = pb_vcs_cmd($scheme);
 
 if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {
-    pb_system("$vcscmd add $f","Adding $f to VCS ");
+    pb_system("$vcscmd add ".join(' ',@f),"Adding ".join(' ',@f)." to VCS ");
 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
 } else {
     die "cms $scheme unknown";
 }
-pb_vcs_up($scheme,$f);
+pb_vcs_up($scheme,@f);
 }