4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.07_1'; |
our $VERSION = '0.08'; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
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; |