X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBBS.pm;h=a39b41a538ac8dc78857a850fae374669f43af62;hb=2b58ccdf81685a1167a43c38705a0d84b9d8d661;hp=e2920a476f23d3fa21bde78e71f23b6bc202162e;hpb=6b19958cbe351af8d5462f4e0e03b87875eec16a;p=spider.git diff --git a/perl/BBS.pm b/perl/BBS.pm index e2920a47..a39b41a5 100644 --- a/perl/BBS.pm +++ b/perl/BBS.pm @@ -15,18 +15,23 @@ use strict; use DXUser; use DXChannel; use DB_File; -use Carp; +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 $bidcleanint = 86400; # the time between bid cleaning intervals $maxbidage = 60; # the maximum age of a stored bid +use vars qw($VERSION $BRANCH); +$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0; +$main::build += $VERSION; +$main::branch += $BRANCH; + sub init { tie %hash, 'DB_File', $bidfn; @@ -39,7 +44,6 @@ sub init sub new { my $self = DXChannel::alloc(@_); - $self->{'sort'} = 'B'; return $self; } @@ -116,7 +120,7 @@ sub normal } } elsif ($com =~ /^F/) { $self->disconnect; - } elsif ($com =~ /^(B|Q)) { + } elsif ($com =~ /^(B|Q)/) { $self->disconnect; } } @@ -124,11 +128,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 +145,5 @@ sub process } +1; +