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

Timestamp:

Sep 6, 2007, 8:13:48 PM (17 years ago)

Author:

Bruno Cornec

Message:

SImplification on hash management

File:

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

devel/pb/lib/ProjectBuilder/Base.pm

@@ -277 +277 @@
 my ($cms) = pb_conf_get("cms");
 # This one is optional
-my ($cvsroot) = pb_conf_read($ENV{'PBETC'},"cvsroot");
+my ($cvsroot,$cvsrsh) = pb_conf_read($ENV{'PBETC'},"cvsroot","cvsrsh");
 
 if ($cms->{$proj} eq "svn") {
@@ -295 +295 @@
     #
     $ENV{'CVSROOT'} = $cvsroot->{$proj} if (defined $cvsroot->{$proj});
+    $ENV{'CVSRSH'} = $cvsrsh->{$proj} if (defined $cvsrsh->{$proj});
 } else {
     die "cms $cms->{$proj} unknown";
@@ -314 +315 @@
         $tmp = $destdir."/".basename($source);
     }
-    pb_system("svn export $source $tmp","Exporting $source from SVN");
+    pb_system("svn export $source $tmp","Exporting $source fr\"om SVN to $tmp");
 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
     my $dir=dirname($destdir);
@@ -321 +322 @@
     $tmp=basename($source);
     # CVS needs a relative path !
-    pb_system("cd $dir ; cvs export -D $pbdate -d $base $tmp","Exporting $source from CVS");
+    pb_system("cd $dir ; cvs export -D \"$pbdate\" -d $base $tmp","Exporting $source from CVS to $destdir");
 } else {
     die "cms $cms->{$ENV{'PBPROJ'}} unknown";
@@ -333 +334 @@
 
 if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
-    pb_system("svn log $pkgdir > $destfile","Extracting log info from SVN");
+    pb_system("svn log -v $pkgdir > $destfile","Extracting log info from SVN");
 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") {
     my $tmp=basename($pkgdir);