Prepare for git repository

[spider.git] / perl / BBS.pm

diff --git a/perl/BBS.pm b/perl/BBS.pm
index 68bf4314b0af022a6f554ea26b03a05d8121b1ab..9785876fee1e4814c50443049cee76e660b62675 100644 (file)
--- a/perl/BBS.pm
+++ b/perl/BBS.pm
@@ -16,11 +16,10 @@ use DXUser;
 use DXChannel;
 use DB_File;
 use DXDebug;
+use vars qw (@ISA %bid $bidfn $lastbidclean $bidcleanint %hash $maxbidage);
 
 @ISA = qw(DXChannel);
 
-use vars qw (%bid $bidfn $lastbidclean $bidcleanint);
-
 %bid = ();                                             # the bid hash
 $bidfn = "$main::root/msg/bid";        # the bid file filename
 $lastbidclean = time;                  # the last time the bid file was cleaned
@@ -39,7 +38,6 @@ sub init
 sub new 
 {
        my $self = DXChannel::alloc(@_);
-       $self->{'sort'} = 'B';  
        return $self;
 }
 
@@ -116,7 +114,7 @@ sub normal
                }
     } elsif ($com =~ /^F/) {
                $self->disconnect;
-       } elsif ($com =~ /^(B|Q)) {
+       } elsif ($com =~ /^(B|Q)/) {
                $self->disconnect;
        }
 }
@@ -124,11 +122,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;
 }
 
 # 
@@ -140,3 +139,5 @@ sub process
 
 }
 
+1;
+