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

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);
                                        }
                                }
                        }

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0ca491ea24c49842c18612c66fa3914579001ea2..af28b19244877fabde913352b2da767bbb51ceac 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1541,7 +1541,7 @@ sub import_chat
                                Log('ann', $target, $main::mycall, $text);
                                $main::me->normal(DXProt::pc93($target, $main::mycall, $via, $text));
                        } else {
-                               $main::me->send_chats($target, $text);
+                               DXCommandmode::send_chats($main::me, $target, $text);
                        }
                }
        }

diff --git a/perl/Version.pm b/perl/Version.pm
index e8910866822285b1b2afae457a4ee123843932f7..93cd53b037a63b6a52ffd2530b9d4e70f012388a 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '111';
+$build = '112';
 
 1;

diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl
index 40fc6f05314392a1a38c794fcb269d801f76a3b5..622bc05656052a05edb19b2c30daf5839d7fb3dc 100755 (executable)
--- a/perl/create_sysop.pl
+++ b/perl/create_sysop.pl
@@ -69,6 +69,7 @@ sub create_it
        $self->{dxok} = 1;
        $self->{annok} = 1;
        $self->{lang} = 'en';
+       $self->{group} = [qw(local #9000)];
   
        # write it away
        $self->close();

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index e4bf45aebce90bc5c1faf1c3707387c9adecc6fd..cec9f56ec04757c7e32e70f7dbed105d28f26b80 100755 (executable)
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -75,6 +75,7 @@ sub create_it
        $self->{dxok} = 1;
        $self->{annok} = 1;
        $self->{lang} = 'en';
+       $self->{group} = [qw(local #9000)];
   
        # write it away
        $self->close();