1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use strict; |
use strict; |
4 |
use Search::Estraier; |
use Search::Estraier 0.06; |
5 |
use URI::Escape qw/uri_escape/; |
use URI::Escape qw/uri_escape/; |
6 |
use Time::HiRes; |
use Time::HiRes; |
7 |
use POSIX qw/strftime/; |
use POSIX qw/strftime/; |
30 |
url => $from, |
url => $from, |
31 |
croak_on_error => 1, |
croak_on_error => 1, |
32 |
debug => $debug, |
debug => $debug, |
33 |
|
user => 'admin', |
34 |
|
passwd => 'admin', |
35 |
); |
); |
36 |
my $to_n = new Search::Estraier::Node( |
my $to_n = new Search::Estraier::Node( |
37 |
url => $to, |
url => $to, |
38 |
croak_on_error => 1, |
croak_on_error => 1, |
39 |
debug => $debug, |
debug => $debug, |
40 |
|
user => 'admin', |
41 |
|
passwd => 'admin', |
42 |
|
create => 1, |
43 |
|
label => $from_n->label, |
44 |
); |
); |
45 |
|
|
46 |
unless(eval{ $to_n->name }) { |
unless(eval{ $to_n->name }) { |