--- trunk/Estraier.pm	2006/01/28 20:44:15	103
+++ trunk/Estraier.pm	2006/02/19 17:13:57	108
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.04_1';
+our $VERSION = '0.04_2';
 
 =head1 NAME
 
@@ -789,7 +789,7 @@
 	return $self->{hints}->{$key};
 }
 
-=head2 hits
+=head2 hints
 
 More perlish version of C<hint>. This one returns hash.
 
@@ -1659,11 +1659,57 @@
 	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->{name});
+	return $self->{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->{name});
+	return $self->{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->{name});
+	return $self->{links};
 }
 
 
@@ -1694,11 +1740,28 @@
 
 	return if ($rv != 200 || !$resbody);
 
-	# it seems that response can have multiple line endings
-	$resbody =~ s/[\r\n]+$//;
-
+	my @lines = split(/[\r\n]/,$resbody);
+	
 	( $self->{name}, $self->{label}, $self->{dnum}, $self->{wnum}, $self->{size} ) =
-		split(/\t/, $resbody, 5);
+		split(/\t/, shift @lines, 5);
+
+	return $resbody unless (@lines);
+
+	shift @lines;
+
+	while(my $admin = shift @lines) {
+		push @{$self->{admins}}, $admin;
+	}
+	
+	while(my $guest = shift @lines) {
+		push @{$self->{guests}}, $guest;
+	}
+
+	while(my $link = shift @lines) {
+		push @{$self->{links}}, $link;
+	}
+
+	return $resbody;
 
 }