projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix chat
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 270183bffd5058f7916aa19bc0c1a7d861243c24..42c80b533e63bc737c0d6e56caeedfbdf8590a45 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-810,15
+810,15
@@
sub chat
my $self = shift;
my $line = shift;
my $isolate = shift;
my $self = shift;
my $line = shift;
my $isolate = shift;
- my $to = shift;
my $target = shift;
my $target = shift;
+ my $to = shift;
my $text = shift;
my ($filter, $hops);
my $text = shift;
my ($filter, $hops);
- return unless grep uc $_ eq $t
o
, @{$self->{user}->{group}};
+ return unless grep uc $_ eq $t
arget
, @{$self->{user}->{group}};
$text =~ s/^\#\d+ //;
$text =~ s/^\#\d+ //;
- my $buf = "$t
o
de $_[0]: $text";
+ my $buf = "$t
arget
de $_[0]: $text";
$buf =~ s/\%5E/^/g;
$buf .= "\a\a" if $self->{beep};
$self->local_send('C', $buf);
$buf =~ s/\%5E/^/g;
$buf .= "\a\a" if $self->{beep};
$self->local_send('C', $buf);