[svk-commit] r2529 - branches/mirror-boostrap/utils

nobody at bestpractical.com nobody at bestpractical.com
Wed Aug 8 06:39:31 EDT 2007


Author: clsung
Date: Wed Aug  8 06:39:20 2007
New Revision: 2529

Modified:
   branches/mirror-boostrap/utils/mipush

Log:
- workable version

Modified: branches/mirror-boostrap/utils/mipush
==============================================================================
--- branches/mirror-boostrap/utils/mipush	(original)
+++ branches/mirror-boostrap/utils/mipush	Wed Aug  8 06:39:20 2007
@@ -64,11 +64,15 @@
 	    $path = $prefix.$path;
 	    $rec->set_header('Node-copyfrom-path' => $path );
 	}
-
+	if (my $rev = $rec->get_header('Node-copyfrom-rev')) {
+	    $rec->set_header('Node-copyfrom-rev' =>
+		scalar $m->find_local_rev( $rev, $m->source_uuid ) );
+	}
+	
 	if ($rec->get_header('Revision-number')) {
 	    $rev = $rec->get_header('Revision-number');
 	    $prev = $rev if !$prev;
-	    $rec->set_property('svm:headrev',$rec->get_header('Revision-number'));
+	    $rec->set_property('svm:headrev',$m->source_uuid.':'.$rec->get_header('Revision-number'));
 	}
 
 
@@ -85,7 +89,8 @@
     if ($rev and $prev != $rev) {
 	$buf = $header.$buf;
 	open my $fh, '<', \$buf;
-	my $ret = SVN::Repos::load_fs2( $repos, $fh, \*STDERR, $SVN::Repos::load_uuid_default, undef, undef, undef, undef, undef );
+	my $ret = SVN::Repos::load_fs2( $repos, $fh, \*STDERR, $SVN::Repos::load_uuid_default, undef, 0, 0, undef, undef );
+	# (repos,dumpstream,feedback_stream,uuid_action,parent_dir,use_pre_commit_hook,use_post_commit_hook,cancel_func,cancel_baton,pool);
 #	warn Dumper($ret);
 	$buf = "";
 	$prev = $rev;


More information about the svk-commit mailing list