remove finishes and derive disconnect instead

[spider.git] / perl / BBS.pm

diff --git a/perl/BBS.pm b/perl/BBS.pm
index 68bf4314b0af022a6f554ea26b03a05d8121b1ab..741fb116a15da803d27a9f24730f7ba3f4a72bec 100644 (file)
--- a/perl/BBS.pm
+++ b/perl/BBS.pm
@@ -39,7 +39,6 @@ sub init
 sub new 
 {
        my $self = DXChannel::alloc(@_);
-       $self->{'sort'} = 'B';  
        return $self;
 }
 
@@ -124,11 +123,12 @@ sub normal
 #
 # end a connection (called by disconnect)
 #
-sub finish
+sub disconnect
 {
        my $self = shift;
        my $call = $self->call;
        Log('BBS', "$call", "disconnected");
+       $self->SUPER::disconnect;
 }
 
 #