--- trunk/scripts/estcp.pl	2006/01/17 00:41:18	83
+++ trunk/scripts/estcp.pl	2006/01/17 11:43:38	84
@@ -19,8 +19,6 @@
 my $debug = 0;
 my $max = 256;
 
-$max = 1024;
-
 # create and configure node
 my $from_n = new Search::Estraier::Node(
 	url => $from,
@@ -56,7 +54,12 @@
 	}
 	foreach my $l (split(/\n/,$res)) {
 		(my $id, $prev) = split(/\t/,$l, 2);
-		$to_n->put_doc( $from_n->get_doc( $id ));
+
+		#$to_n->put_doc( $from_n->get_doc( $id ));
+
+		my $doc_draft = $from_n->_fetch_doc( id => $id, chomp_resbody => 1 );
+		$to_n->shuttle_url( $to_n->{url} . '/put_doc', 'text/x-estraier-draft', $doc_draft, undef) == 200 or die "can't insert $doc_draft\n";
+
 		$i++;
 	}
 	warn "$prev\n";