--- trunk/Estraier.pm	2006/01/05 17:54:18	33
+++ trunk/Estraier.pm	2006/01/05 21:51:54	36
@@ -663,7 +663,7 @@
 
 use Carp qw/croak/;
 use URI;
-use URI::Escape qw/uri_escape/;
+use MIME::Base64;
 use IO::Socket::INET;
 
 =head1 Search::Estraier::Node
@@ -747,7 +747,7 @@
 sub set_auth {
 	my $self = shift;
 	my ($login,$passwd) = @_;
-	$self->{auth} = uri_escape( "$login:$passwd" );
+	$self->{auth} = encode_base64( "$login:$passwd" );
 }
 
 =head2 status
@@ -784,8 +784,10 @@
 
 	my $status = -1;
 
+	warn $url;
+
 	$url = new URI($url);
-	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);
 
 	my ($host,$port,$query) = ($url->host, $url->port, $url->path);