/[Search-Estraier]/trunk/scripts/estcp-mt.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-mt.pl

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

revision 140 by dpavlin, Sat Jan 21 17:37:07 2006 UTC revision 141 by dpavlin, Wed May 10 14:52:28 2006 UTC
# Line 1  Line 1 
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/;
# Line 30  my $from_n = new Search::Estraier::Node( Line 30  my $from_n = new Search::Estraier::Node(
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 }) {
Legend:
Removed from v.140  
changed lines
  Added in v.141
  ViewVC Help
Powered by ViewVC 1.1.26