17 |
|
|
18 |
=head1 VERSION |
=head1 VERSION |
19 |
|
|
20 |
Version 0.07 |
Version 0.08 |
21 |
|
|
22 |
=cut |
=cut |
23 |
|
|
24 |
our $VERSION = '0.07'; |
our $VERSION = '0.08'; |
25 |
|
|
26 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
27 |
|
|
40 |
passwd => 'admin', |
passwd => 'admin', |
41 |
database => 'demo', |
database => 'demo', |
42 |
encoding => 'iso-8859-2', |
encoding => 'iso-8859-2', |
43 |
|
clean => 1, |
44 |
); |
); |
45 |
|
|
46 |
Options are: |
Options are: |
91 |
my $url = $self->{masterurl} . '/node/' . $self->{database}; |
my $url = $self->{masterurl} . '/node/' . $self->{database}; |
92 |
$self->{url} = $url; |
$self->{url} = $url; |
93 |
|
|
94 |
$log->debug("opening index $self->{url}"); |
if ($self->{clean}) { |
95 |
|
$log->debug("nodedel $self->{database}"); |
96 |
|
$self->master( action => 'nodedel', name => $self->{database} ); |
97 |
|
} else { |
98 |
|
$log->debug("opening index $self->{url}"); |
99 |
|
} |
100 |
|
|
101 |
my $nodes = $self->master( action => 'nodelist' ); |
my $nodes = $self->master( action => 'nodelist' ); |
102 |
|
|
271 |
|
|
272 |
@labels = grep(/^$args->{to}\t/, @labels); |
@labels = grep(/^$args->{to}\t/, @labels); |
273 |
my $label = shift @labels; |
my $label = shift @labels; |
274 |
$label = split(/\t/, $label)->[1] if ($label); |
(undef,$label) = split(/\t/, $label) if ($label); |
275 |
|
|
276 |
if (! $label) { |
if (! $label) { |
277 |
$log->warn("can't find label for $args->{to}, skipping link creaton"); |
$log->warn("can't find label for $args->{to}, skipping link creaton"); |