- Timestamp:
- Oct 24, 2008, 8:00:53 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/CMS.pm
r590 r600 135 135 $tmp = "$destdir/".basename($source); 136 136 } 137 $source = pb_cms_mod_svn_http($source); 137 138 pb_system("svn export $source $tmp","Exporting $source from SVN to $tmp "); 138 139 } else { 140 $uri = pb_cms_mod_svn_http($uri); 139 141 pb_system("svn export $uri $destdir","Exporting $uri from SVN to $destdir "); 140 142 } … … 292 294 293 295 if ($scheme =~ /^svn/) { 296 $oldurl = pb_cms_mod_svn_http($oldurl); 297 $newurl = pb_cms_mod_svn_http($newurl); 294 298 pb_system("svn copy -m \"Creation of $newurl from $oldurl\" $oldurl $newurl","Copying $oldurl to $newurl "); 295 299 } elsif ($scheme eq "flat") { … … 315 319 316 320 if ($scheme =~ /^svn/) { 321 $url = pb_cms_mod_svn_http($url); 317 322 pb_system("svn co $url $destination","Checking out $url to $destination "); 318 323 } elsif (($scheme eq "ftp") || ($scheme eq "http")) { … … 708 713 } 709 714 715 sub pb_cms_mod_svn_http { 716 717 my $url = shift; 718 719 $url =~ s/^svn\+(http[s]*):/$1:/; 720 return($url); 721 } 722 710 723 =back 711 724
Note:
See TracChangeset
for help on using the changeset viewer.