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

[spider.git] / perl / create_sysop.pl

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