/[Search-Estraier]/trunk/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 27 by dpavlin, Thu Jan 5 15:21:29 2006 UTC revision 29 by dpavlin, Thu Jan 5 15:30:35 2006 UTC
# Line 661  sub hint { Line 661  sub hint {
661    
662  package Search::Estraier::Node;  package Search::Estraier::Node;
663    
664    use Carp qw/croak/;
665    
666  =head1 Search::Estraier::Node  =head1 Search::Estraier::Node
667    
668  =head2 new  =head2 new
# Line 687  sub new { Line 689  sub new {
689          $self ? return $self : return undef;          $self ? return $self : return undef;
690  }  }
691    
692    =head2 set_url
693    
694    Specify URL to node server
695    
696      $node->set_url('http://localhost:1978');
697    
698    =cut
699    
700    sub set_url {
701            my $self = shift;
702            $self->{url} = shift;
703    }
704    
705    =head2 set_proxy
706    
707    Specify proxy server to connect to node server
708    
709      $node->set_proxy('proxy.example.com', 8080);
710    
711    =cut
712    
713    sub set_proxy {
714            my $self = shift;
715            my ($host,$port) = @_;
716            croak "proxy port must be number" unless ($port =~ m/^\d+$/);
717            $self->{pxhost} = $host;
718            $self->{pxport} = $port;
719    }
720    
721  package Search::Estraier::Master;  package Search::Estraier::Master;
722    
723  use Carp;  use Carp;

Legend:
Removed from v.27  
changed lines
  Added in v.29

  ViewVC Help
Powered by ViewVC 1.1.26