4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.07_1'; |
our $VERSION = '0.07_2'; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
1743 |
return $self->{inform}->{links}; |
return $self->{inform}->{links}; |
1744 |
} |
} |
1745 |
|
|
1746 |
|
=head2 cacheusage |
1747 |
|
|
1748 |
|
Return cache usage for a node |
1749 |
|
|
1750 |
|
my $cache = $node->cacheusage; |
1751 |
|
|
1752 |
|
=cut |
1753 |
|
|
1754 |
|
sub cacheusage { |
1755 |
|
my $self = shift; |
1756 |
|
|
1757 |
|
return unless ($self->{url}); |
1758 |
|
|
1759 |
|
my $resbody; |
1760 |
|
my $rv = $self->shuttle_url( $self->{url} . '/cacheusage', |
1761 |
|
'text/plain', |
1762 |
|
undef, |
1763 |
|
\$resbody, |
1764 |
|
); |
1765 |
|
|
1766 |
|
return if ($rv != 200 || !$resbody); |
1767 |
|
|
1768 |
|
return $resbody; |
1769 |
|
} |
1770 |
|
|
1771 |
=head2 master |
=head2 master |
1772 |
|
|
1773 |
Set actions on Hyper Estraier node master (C<estmaster> process) |
Set actions on Hyper Estraier node master (C<estmaster> process) |