X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=78cd05e4b7a2360a41228897f2bf4e8fa1382147;hb=23eb40f3ca578c64cf140589eb08ab5a5b228d8e;hp=d3b1e955411833567a8b2551c55e19d1616b4136;hpb=1a5d68f6fa95908f15ee0064571fed09673abe97;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;