1084 |
my $id = shift || return; |
my $id = shift || return; |
1085 |
return unless ($self->{url}); |
return unless ($self->{url}); |
1086 |
croak "id must be number, not '$id'" unless ($id =~ m/^\d+$/); |
croak "id must be number, not '$id'" unless ($id =~ m/^\d+$/); |
1087 |
$self->shuttle_url( $self->{url} . '/out_doc', |
if ($self->shuttle_url( $self->{url} . '/out_doc', |
1088 |
'application/x-www-form-urlencoded', |
'application/x-www-form-urlencoded', |
1089 |
"id=$id", |
"id=$id", |
1090 |
undef |
undef |
1091 |
) == 200; |
) == 200) { |
1092 |
|
$self->_set_info; |
1093 |
|
return $id; |
1094 |
|
} |
1095 |
|
return undef; |
1096 |
} |
} |
1097 |
|
|
1098 |
|
|
1110 |
my $self = shift; |
my $self = shift; |
1111 |
my $uri = shift || return; |
my $uri = shift || return; |
1112 |
return unless ($self->{url}); |
return unless ($self->{url}); |
1113 |
$self->shuttle_url( $self->{url} . '/out_doc', |
if ($self->shuttle_url( $self->{url} . '/out_doc', |
1114 |
'application/x-www-form-urlencoded', |
'application/x-www-form-urlencoded', |
1115 |
"uri=" . uri_escape($uri), |
"uri=" . uri_escape($uri), |
1116 |
undef |
undef |
1117 |
) == 200; |
) == 200) { |
1118 |
|
$self->_set_info; |
1119 |
|
return $uri; |
1120 |
|
} |
1121 |
|
return undef; |
1122 |
} |
} |
1123 |
|
|
1124 |
|
|
1690 |
$self->_set_info; |
$self->_set_info; |
1691 |
return 1; |
return 1; |
1692 |
} |
} |
1693 |
|
return undef; |
1694 |
} |
} |
1695 |
|
|
1696 |
=head2 admins |
=head2 admins |