From 4eef5ad5a1da19f091f3c6f1e50c60772db40a4c Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 10 Jul 2007 17:27:11 +0100 Subject: [PATCH] add #9000 as a default group and tidy up send_chats calls --- perl/DXCommandmode.pm | 4 ++-- perl/DXProt.pm | 2 +- perl/Version.pm | 2 +- perl/create_sysop.pl | 1 + perl/update_sysop.pl | 1 + 5 files changed, 6 insertions(+), 4 deletions(-) diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index e75b4f04..47b68667 100644 --- 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 0ca491ea..af28b192 100644 --- 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 e8910866..93cd53b0 100644 --- 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 40fc6f05..622bc056 100755 --- 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 e4bf45ae..cec9f56e 100755 --- 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(); -- 2.43.0