From 4eef5ad5a1da19f091f3c6f1e50c60772db40a4c Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1