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 |
|
|
1515 |
push @args, 'wwidth=' . $self->{wwidth}; |
push @args, 'wwidth=' . $self->{wwidth}; |
1516 |
push @args, 'hwidth=' . $self->{hwidth}; |
push @args, 'hwidth=' . $self->{hwidth}; |
1517 |
push @args, 'awidth=' . $self->{awidth}; |
push @args, 'awidth=' . $self->{awidth}; |
1518 |
push @args, 'skip=' . $self->{skip} if ($self->{skip}); |
push @args, 'skip=' . $cond->{skip} if ($cond->{skip}); |
1519 |
|
|
1520 |
return join('&', @args); |
return join('&', @args); |
1521 |
} |
} |
1662 |
croak "mode must be number, not '$mode'" unless ($mode =~ m/^\d+$/); |
croak "mode must be number, not '$mode'" unless ($mode =~ m/^\d+$/); |
1663 |
|
|
1664 |
$self->shuttle_url( $self->{url} . '/_set_user', |
$self->shuttle_url( $self->{url} . '/_set_user', |
1665 |
'text/plain', |
'application/x-www-form-urlencoded', |
1666 |
'name=' . uri_escape($name) . '&mode=' . $mode, |
'name=' . uri_escape($name) . '&mode=' . $mode, |
1667 |
undef |
undef |
1668 |
) == 200; |
) == 200; |
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) |