Parent Directory | Revision Log | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |