add some Hello and Bye

[spider.git] / perl / Aranea.pm

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index f4d9a1ec1a33af09c959304c67e8e2ff0b2007d8..ed1c99cda1e429ce27928c5099e9a2e856206596 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -152,9 +152,12 @@ sub disconnect
        my $call = $self->call;
 
        return if $self->{disconnecting}++;
-       
+
+       my $thing = Thingy::Bye->new(origin=>$main::mycall, user=>$call);
+       $thing->process($self);
+
        # get rid of any PC16/17/19
-#      eph_del_regex("^PC1[679]*$call");
+       eph_del_regex("^PC1[679]*$call");
 
        # do routing stuff, remove me from routing table
        my $node = Route::Node::get($call);
@@ -165,7 +168,7 @@ sub disconnect
                # and all my ephemera as well
                for (@rout) {
                        my $c = $_->call;
-#                      eph_del_regex("^PC1[679].*$c");
+                       eph_del_regex("^PC1[679].*$c");
                }
        }