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 e75b4f0424fe990732e8b4fbc8ff340a60e1e2e7..47b68667ca6e9d570589a3e0960b6c02cf12d82c 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -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);
                                        }
                                }
                        }