projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed sh/c/n
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index ec49fedd3e61069b5921ab3b4e26c37603182b91..5fb684189dc67811db0e8df4eb9aafce30cbf8db 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-38,6
+38,7
@@
sub init
{
my $user = DXUser->get($main::mycall);
$me = DXProt->new($main::mycall, undef, $user);
{
my $user = DXUser->get($main::mycall);
$me = DXProt->new($main::mycall, undef, $user);
+ $me->{here} = 1;
# $me->{sort} = 'M'; # M for me
}
# $me->{sort} = 'M'; # M for me
}
@@
-606,6
+607,7
@@
sub broadcast_users
foreach $chan (@chan) {
next if grep $chan == $_, @except;
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
}
}
$chan->send($s); # send it if it isn't the except list
}
}