add #9000 as a default group and tidy up send_chats calls

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 30ad8c560fd2b81a9ff1dad5dcc98fd8c0c68784..47b68667ca6e9d570589a3e0960b6c02cf12d82c 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -308,7 +308,7 @@ sub normal
                                if ($self->{state} eq 'talk') {
                                        $self->send_talks($_,  $self->msg('talkend'));
                                } else {
-                                       $self->send_chats($_,  $self->msg('chatend', $_));
+                                       $self->local_send('C', $self->msg('chatend', $_));
                                }
                        }
                        $self->state('prompt');
@@ -329,7 +329,7 @@ sub normal
                                                        if ($self->{state} eq 'talk') {
                                                                $self->send_talks($_, $l);
                                                        } else {
-                                                               $self->send_chats($_, $l)
+                                                               send_chats($self, $_, $l)
                                                        }
                                                }
                                        }
@@ -347,7 +347,7 @@ sub normal
                                        if ($self->{state} eq 'talk') {
                                                $self->send_talks($_, $rawline);
                                        } else {
-                                               $self->send_chats($_, $rawline);
+                                               send_chats($self, $_, $rawline);
                                        }
                                }
                        }