Changeset 1127 in ProjectBuilder for devel/pb/lib/ProjectBuilder/CMS.pm

Timestamp:

Dec 21, 2010, 2:37:35 AM (13 years ago)

Author:

Bruno Cornec

Message:

• Modify pb_check_req interface to return the found value and allow direct call
• Use pb_check_req to avoid some hardcoded path

File:

• devel/pb/lib/ProjectBuilder/CMS.pm (modified) (3 diffs)

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -798 +798 @@
         open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
         close(CL);
-        if (-x "/usr/bin/svn2cl") {
-            pb_system("/usr/bin/svn2cl --group-by-day --authors=$authors -i -o $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN with svn2cl");
+        my $command = pb_check_req("svn2cl",1);
+        if (-x $command) {
+            pb_system("$command --group-by-day --authors=$authors -i -o $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN with svn2cl");
         } else {
             # To be written from pbcl
@@ -824 +825 @@
         open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog";
         close(CL);
-        if (-x "/usr/bin/cvs2cl") {
-            pb_system("/usr/bin/cvs2cl --group-by-day -U $authors -f $dest/ChangeLog $pkgdir","Generating ChangeLog from CVS with cvs2cl");
+        my $command = pb_check_req("cvs2cl",1);
+        if (-x $command) {
+            pb_system("$command --group-by-day -U $authors -f $dest/ChangeLog $pkgdir","Generating ChangeLog from CVS with cvs2cl");
         } else {
             # To be written from pbcl
@@ -882 +884 @@
     return($cmd."cvs")
 } elsif (($scheme =~ /http/) || ($scheme =~ /ftp/)) {
-    if (-x "/usr/bin/wget") {
-        return($cmd."/usr/bin/wget -nv -O ");
-    } elsif (-x "/usr/bin/curl") {
-        return($cmd."/usr/bin/curl -o ");
-    } else {
-        die "Unable to handle $scheme.\nNo wget/curl available, please install one of those";
+    my $command = pb_check_req("wget",1);
+    if (-x $command) {
+        return($cmd."$command -nv -O ");
+    } else {
+        $command = pb_check_req("curl",1);
+        if (-x $command) {
+            return($cmd."$command -o ");
+        } else {
+            die "Unable to handle $scheme.\nNo wget/curl available, please install one of those";
+        }
     }
 } else {