/[Search-Estraier]/trunk/lib/Search/Estraier.pm

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /trunk/lib/Search/Estraier.pm

Parent Directory | Revision Log | View Patch Patch

-revision 103 by dpavlin,
Sat Jan 28 20:44:15 2006 UTC
+revision 122 by dpavlin,
Tue May  2 10:19:47 2006 UTC
 Line 4 
 use 5.008;
  use strict;
  use warnings;
- our $VERSION = '0.04_1';
+ our $VERSION = '0.05_1';
  =head1 NAME
 Line 599 
 sub options {
  }
+ =head2 set_skip
+ Set number of skipped documents from beginning of results
+   $cond->set_skip(42);
+ Similar to C<offset> in RDBMS.
+ =cut
+ sub set_skip {
+         my $self = shift;
+         $self->{skip} = shift;
+ }
+ =head2 skip
+ Return skip for this condition.
+   print $cond->skip;
+ =cut
+ sub skip {
+         my $self = shift;
+         return $self->{skip};
+ }
  package Search::Estraier::ResultDocument;
  use Carp qw/croak/;
-Line 789 
 sub hint {
+Line 818 
 sub hint {
          return $self->{hints}->{$key};
  }
- =head2 hits
+ =head2 hints
  More perlish version of C<hint>. This one returns hash.
-Line 874 
 sub new {
+Line 903 
 sub new {
          my $self = {
                  pxport => -1,
                  timeout => 0,   # this used to be -1
-                 dnum => -1,
-                 wnum => -1,
-                 size => -1.0,
                  wwidth => 480,
                  hwidth => 96,
                  awidth => 96,
                  status => -1,
          };
          bless($self, $class);
          if ($#_ == 0) {
-Line 894 
 sub new {
+Line 921 
 sub new {
                  warn "## Node debug on\n" if ($self->{debug});
          }
+         $self->{inform} = {
+                 dnum => -1,
+                 wnum => -1,
+                 size => -1.0,
+         };
          $self ? return $self : return undef;
  }
-Line 1270 
 sub _fetch_doc {
+Line 1303 
 sub _fetch_doc {
  sub name {
          my $self = shift;
-         $self->_set_info unless ($self->{name});
+         $self->_set_info unless ($self->{inform}->{name});
-         return $self->{name};
+         return $self->{inform}->{name};
  }
-Line 1283 
 sub name {
+Line 1316 
 sub name {
  sub label {
          my $self = shift;
-         $self->_set_info unless ($self->{label});
+         $self->_set_info unless ($self->{inform}->{label});
-         return $self->{label};
+         return $self->{inform}->{label};
  }
-Line 1296 
 sub label {
+Line 1329 
 sub label {
  sub doc_num {
          my $self = shift;
-         $self->_set_info if ($self->{dnum} < 0);
+         $self->_set_info if ($self->{inform}->{dnum} < 0);
-         return $self->{dnum};
+         return $self->{inform}->{dnum};
  }
-Line 1309 
 sub doc_num {
+Line 1342 
 sub doc_num {
  sub word_num {
          my $self = shift;
-         $self->_set_info if ($self->{wnum} < 0);
+         $self->_set_info if ($self->{inform}->{wnum} < 0);
-         return $self->{wnum};
+         return $self->{inform}->{wnum};
  }
-Line 1322 
 sub word_num {
+Line 1355 
 sub word_num {
  sub size {
          my $self = shift;
-         $self->_set_info if ($self->{size} < 0);
+         $self->_set_info if ($self->{inform}->{size} < 0);
-         return $self->{size};
+         return $self->{inform}->{size};
  }
-Line 1486 
 sub cond_to_query {
+Line 1519 
 sub cond_to_query {
          push @args, 'wwidth=' . $self->{wwidth};
          push @args, 'hwidth=' . $self->{hwidth};
          push @args, 'awidth=' . $self->{awidth};
+         push @args, 'skip=' . $self->{skip} if ($self->{skip});
          return join('&', @args);
  }
-Line 1659 
 sub set_link {
+Line 1693 
 sub set_link {
          my $reqbody = 'url=' . uri_escape($url) . '&label=' . uri_escape($label);
          $reqbody .= '&credit=' . $credit if ($credit > 0);
-         $self->shuttle_url( $self->{url} . '/_set_link',
+         if ($self->shuttle_url( $self->{url} . '/_set_link',
                  'application/x-www-form-urlencoded',
                  $reqbody,
                  undef
-         ) == 200;
+         ) == 200) {
+                 # refresh node info after adding link
+                 $self->_set_info;
+                 return 1;
+         }
+ }
+ =head2 admins
+  my @admins = @{ $node->admins };
+ Return array of users with admin rights on node
+ =cut
+ sub admins {
+         my $self = shift;
+         $self->_set_info unless ($self->{inform}->{name});
+         return $self->{inform}->{admins};
+ }
+ =head2 guests
+  my @guests = @{ $node->guests };
+ Return array of users with guest rights on node
+ =cut
+ sub guests {
+         my $self = shift;
+         $self->_set_info unless ($self->{inform}->{name});
+         return $self->{inform}->{guests};
+ }
+ =head2 links
+  my $links = @{ $node->links };
+ Return array of links for this node
+ =cut
+ sub links {
+         my $self = shift;
+         $self->_set_info unless ($self->{inform}->{name});
+         return $self->{inform}->{links};
  }
-Line 1694 
 sub _set_info {
+Line 1774 
 sub _set_info {
          return if ($rv != 200 || !$resbody);
-         # it seems that response can have multiple line endings
+         my @lines = split(/[\r\n]/,$resbody);
-         $resbody =~ s/[\r\n]+$//;
+         $self->{inform} = {};
+         ( $self->{inform}->{name}, $self->{inform}->{label}, $self->{inform}->{dnum},
+                 $self->{inform}->{wnum}, $self->{inform}->{size} ) = split(/\t/, shift @lines, 5);
+         return $resbody unless (@lines);
+         shift @lines;
+         while(my $admin = shift @lines) {
+                 push @{$self->{inform}->{admins}}, $admin;
+         }
+         while(my $guest = shift @lines) {
+                 push @{$self->{inform}->{guests}}, $guest;
+         }
+         while(my $link = shift @lines) {
+                 push @{$self->{inform}->{links}}, $link;
+         }
-         ( $self->{name}, $self->{label}, $self->{dnum}, $self->{wnum}, $self->{size} ) =
+         return $resbody;
-                 split(/\t/, $resbody, 5);
  }

 Legend:



Removed from v.103
 


changed lines


 
Added in v.122
 Legend:



Removed from v.103
 


changed lines


 
Added in v.122
-Removed from v.103
+Added in v.122

	ViewVC Help
Powered by ViewVC 1.1.26