X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBBS.pm;h=25b5f1f22e739f34cd4e9f8f80b5eb3af29a1df0;hb=refs%2Fheads%2Fmojo;hp=c8f3b1f3dc9f7b979b9fdcd1def3582807784b0f;hpb=f155969d600561b9ef151a7ce2494a0c89aed033;p=spider.git

diff --git a/perl/BBS.pm b/perl/BBS.pm
index c8f3b1f3..25b5f1f2 100644
--- a/perl/BBS.pm
+++ b/perl/BBS.pm
@@ -6,7 +6,7 @@
 #
 # Copyright (c) 1999 - Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 package BBS;
@@ -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
@@ -115,7 +114,7 @@ sub normal
 		}
     } elsif ($com =~ /^F/) {
 		$self->disconnect;
-	} elsif ($com =~ /^(B|Q)) {
+	} elsif ($com =~ /^(B|Q)/) {
 		$self->disconnect;
 	}
 }
@@ -123,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;
 }
 
 # 
@@ -139,3 +139,5 @@ sub process
 
 }
 
+1;
+