/[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 84 by dpavlin, Tue Jan 17 11:43:38 2006 UTC revision 85 by dpavlin, Tue Jan 17 15:00:50 2006 UTC
# Line 31  my $to_n = new Search::Estraier::Node( Line 31  my $to_n = new Search::Estraier::Node(
31          debug => $debug,          debug => $debug,
32  );  );
33    
34    unless(eval{ $to_n->name }) {
35            if ($to =~ m#^(http://.+)/node/(\w+)$#) {
36                    my ($url,$name) = ($1,$2);
37                    print "Creating '$name' on $url\n";
38                    $to_n->shuttle_url( $url . '/master?action=nodeadd',
39                            'application/x-www-form-urlencoded',
40                            'name=' . uri_escape($name) . '&label=' . uri_escape( $name ),
41                            undef,
42                    );
43            } else {
44                    die "can't extract node name from $to\n";
45            }
46    }
47    
48  print "Copy from ",$from_n->name," (",$from_n->label,") to ",$to_n->name," (",$to_n->label,") - ",$from_n->doc_num," documents (",$from_n->word_num," words, ",$from_n->size," bytes)\n";  print "Copy from ",$from_n->name," (",$from_n->label,") to ",$to_n->name," (",$to_n->label,") - ",$from_n->doc_num," documents (",$from_n->word_num," words, ",$from_n->size," bytes)\n";
49    
50  my $doc_num = $from_n->doc_num || 1;  my $doc_num = $from_n->doc_num || 1;

Legend:
Removed from v.84  
changed lines
  Added in v.85

  ViewVC Help
Powered by ViewVC 1.1.26