X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=78cd05e4b7a2360a41228897f2bf4e8fa1382147;hb=43a8ee12581aa51eb93cd8958b429077f22df76d;hp=d3b1e955411833567a8b2551c55e19d1616b4136;hpb=af378e74088394d9c70a9a01d67a311cf4774d96;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index d3b1e955..78cd05e4 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -111,6 +111,21 @@ sub del
 	return @nodes;
 }
 
+# this deletes this node completely by grabbing the parents
+# and deleting me from them
+sub delete
+{
+	my $self = shift;
+	my @out;
+	
+	$self->_del_users;
+	foreach my $call (@{$self->{parent}}) {
+		my $parent = Route::Node::get($call);
+		push @out, $parent->del($self) if $parent;
+	}
+	return @out;
+}
+
 sub del_nodes
 {
 	my $parent = shift;