Added BBS.pm to start allowing BBSes to send mail into the cluster

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 3ccadeaf426e0864d355a76d095faa36d8ad54f8..eafa76ad527083212ee0d8a31c12485e23f01dc4 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -165,6 +165,13 @@ sub del
        delete $channels{$self->{call}};
 }
 
+# is it a bbs
+sub is_bbs
+{
+       my $self = shift;
+       return $self->{sort} eq 'B';
+}
+
 # is it an ak1a cluster ?
 sub is_ak1a
 {