663 |
|
|
664 |
use Carp qw/croak/; |
use Carp qw/croak/; |
665 |
use URI; |
use URI; |
666 |
use URI::Escape qw/uri_escape/; |
use MIME::Base64; |
667 |
use IO::Socket::INET; |
use IO::Socket::INET; |
668 |
|
|
669 |
=head1 Search::Estraier::Node |
=head1 Search::Estraier::Node |
747 |
sub set_auth { |
sub set_auth { |
748 |
my $self = shift; |
my $self = shift; |
749 |
my ($login,$passwd) = @_; |
my ($login,$passwd) = @_; |
750 |
$self->{auth} = uri_escape( "$login:$passwd" ); |
$self->{auth} = encode_base64( "$login:$passwd" ); |
751 |
} |
} |
752 |
|
|
753 |
=head2 status |
=head2 status |
784 |
|
|
785 |
my $status = -1; |
my $status = -1; |
786 |
|
|
787 |
|
warn $url; |
788 |
|
|
789 |
$url = new URI($url); |
$url = new URI($url); |
790 |
return unless ($url->scheme ne 'http' || ! $url->host || $url->port < 1); |
return -1 unless ($url && $url->scheme && $url->scheme eq 'http' && $url->host && $url->port > 1); |
791 |
|
|
792 |
my ($host,$port,$query) = ($url->host, $url->port, $url->path); |
my ($host,$port,$query) = ($url->host, $url->port, $url->path); |
793 |
|
|