{
my $user = DXUser->get($main::mycall);
$me = DXProt->new($main::mycall, undef, $user);
+ $me->{here} = 1;
# $me->{sort} = 'M'; # M for me
}
foreach $chan (@chan) {
next if grep $chan == $_, @except;
+ $s =~ s/\a//og if !$chan->{beep};
$chan->send($s); # send it if it isn't the except list
}
}