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

Timestamp:

Oct 24, 2008, 8:00:53 PM (16 years ago)

Author:

Bruno Cornec

Message:

Adds pb_cms_mod_svn_http function to support fossology https svn checkout with svn+https syntax in URLs

File:

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

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -135 +135 @@
             $tmp = "$destdir/".basename($source);
         }
+        $source = pb_cms_mod_svn_http($source);
         pb_system("svn export $source $tmp","Exporting $source from SVN to $tmp ");
     } else {
+        $uri = pb_cms_mod_svn_http($uri);
         pb_system("svn export $uri $destdir","Exporting $uri from SVN to $destdir ");
     }
@@ -292 +294 @@
 
 if ($scheme =~ /^svn/) {
+    $oldurl = pb_cms_mod_svn_http($oldurl);
+    $newurl = pb_cms_mod_svn_http($newurl);
     pb_system("svn copy -m \"Creation of $newurl from $oldurl\" $oldurl $newurl","Copying $oldurl to $newurl ");
 } elsif ($scheme eq "flat") {
@@ -315 +319 @@
 
 if ($scheme =~ /^svn/) {
+    $url = pb_cms_mod_svn_http($url);
     pb_system("svn co $url $destination","Checking out $url to $destination ");
 } elsif (($scheme eq "ftp") || ($scheme eq "http")) {
@@ -708 +713 @@
 }
 
+sub pb_cms_mod_svn_http {
+
+my $url = shift;
+
+$url =~ s/^svn\+(http[s]*):/$1:/;
+return($url);
+}
+
 =back