4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.03_1'; |
our $VERSION = '0.04_1'; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
1432 |
|
|
1433 |
warn "## response status: ",$res->status_line,"\n" if ($self->{debug}); |
warn "## response status: ",$res->status_line,"\n" if ($self->{debug}); |
1434 |
|
|
|
return -1 if (! $res->is_success); |
|
|
|
|
1435 |
($self->{status}, $self->{status_message}) = split(/\s+/, $res->status_line, 2); |
($self->{status}, $self->{status_message}) = split(/\s+/, $res->status_line, 2); |
1436 |
|
|
1437 |
|
return -1 if (! $res->is_success); |
1438 |
|
|
1439 |
$$resbody .= $res->content; |
$$resbody .= $res->content; |
1440 |
|
|
1441 |
warn "## response body:\n$$resbody\n" if ($resbody && $self->{debug}); |
warn "## response body:\n$$resbody\n" if ($resbody && $self->{debug}); |
1535 |
$reqbody .= '&credit=' . $credit if ($credit > 0); |
$reqbody .= '&credit=' . $credit if ($credit > 0); |
1536 |
|
|
1537 |
$self->shuttle_url( $self->{url} . '/_set_link', |
$self->shuttle_url( $self->{url} . '/_set_link', |
1538 |
'text/plain', |
'application/x-www-form-urlencoded', |
1539 |
$reqbody, |
$reqbody, |
1540 |
undef |
undef |
1541 |
) == 200; |
) == 200; |