--- trunk/Estraier.pm	2006/05/16 16:05:23	154
+++ trunk/Estraier.pm	2006/06/24 15:34:42	160
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.08';
+our $VERSION = '0.07_2';
 
 =head1 NAME
 
@@ -1515,7 +1515,7 @@
 	push @args, 'wwidth=' . $self->{wwidth};
 	push @args, 'hwidth=' . $self->{hwidth};
 	push @args, 'awidth=' . $self->{awidth};
-	push @args, 'skip=' . $self->{skip} if ($self->{skip});
+	push @args, 'skip=' . $cond->{skip} if ($cond->{skip});
 
 	return join('&', @args);
 }
@@ -1743,6 +1743,31 @@
 	return $self->{inform}->{links};
 }
 
+=head2 cacheusage
+
+Return cache usage for a node
+
+  my $cache = $node->cacheusage;
+
+=cut
+
+sub cacheusage {
+	my $self = shift;
+
+	return unless ($self->{url});
+
+	my $resbody;
+	my $rv = $self->shuttle_url( $self->{url} . '/cacheusage',
+		'text/plain',
+		undef,
+		\$resbody,
+	);
+
+	return if ($rv != 200 || !$resbody);
+
+	return $resbody;
+}
+
 =head2 master
 
 Set actions on Hyper Estraier node master (C<estmaster> process)