/[Search-Estraier]/trunk/scripts/estcp.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/scripts/estcp.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 83 by dpavlin, Tue Jan 17 00:41:18 2006 UTC revision 84 by dpavlin, Tue Jan 17 11:43:38 2006 UTC
# Line 19  die "usage: $0 http://localhost:1978/nod Line 19  die "usage: $0 http://localhost:1978/nod
19  my $debug = 0;  my $debug = 0;
20  my $max = 256;  my $max = 256;
21    
 $max = 1024;  
   
22  # create and configure node  # create and configure node
23  my $from_n = new Search::Estraier::Node(  my $from_n = new Search::Estraier::Node(
24          url => $from,          url => $from,
# Line 56  while($more) { Line 54  while($more) {
54          }          }
55          foreach my $l (split(/\n/,$res)) {          foreach my $l (split(/\n/,$res)) {
56                  (my $id, $prev) = split(/\t/,$l, 2);                  (my $id, $prev) = split(/\t/,$l, 2);
57                  $to_n->put_doc( $from_n->get_doc( $id ));  
58                    #$to_n->put_doc( $from_n->get_doc( $id ));
59    
60                    my $doc_draft = $from_n->_fetch_doc( id => $id, chomp_resbody => 1 );
61                    $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";
62    
63                  $i++;                  $i++;
64          }          }
65          warn "$prev\n";          warn "$prev\n";
Legend:
Removed from v.83  
changed lines
  Added in v.84
  ViewVC Help
Powered by ViewVC 1.1.26