--- Webpacus/lib/Webpacus/Model/WebPAC.pm	2006/02/19 18:12:52	402
+++ Webpacus/lib/Webpacus/Model/WebPAC.pm	2006/02/19 18:12:57	403
@@ -381,6 +381,60 @@
 }
 
 
+=head2 list_nodes
+
+  my @nodes = $m->list_nodes( 'site' );
+
+Return all databases which have records for selected site. Returned array of
+hashes has elements C<name> and C<label>.
+
+=cut
+
+sub list_nodes {
+	my $self = shift;
+
+	my $site = shift;
+
+	$self->{log}->debug("list_nodes use site $site");
+
+	$self->setup_site( $site );
+
+	my @nodes;
+
+	if ($self->{est_node}->doc_num > 0) {
+		push @nodes, {
+			name => $self->{est_node}->name,
+			label => $self->{est_node}->label,
+		}
+	}
+
+	# refresh set info
+	$self->{est_node}->_set_info;
+
+	my $links = $self->{est_node}->links || return @nodes;
+
+	$self->{log}->dumper( $links, 'links' );
+
+	foreach my $link (@{ $links }) {
+		my ($url, $label, $credit) = split(/\t/, $link, 3);
+		if ($url =~ m#/node/(.+)$#) {
+			push @nodes, {
+				name => $1,
+				label => $label,
+			}
+		} else {
+			$self->{log}->warn("can't find node name in link $link");
+		}
+	}
+
+	$self->{log}->dumper( \@nodes, 'nodes' );
+
+	return @nodes;
+}
+
+=cut
+
+
 =head2 save_html
 
   $m->save_html( '/full/path/to/file', $content );