projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c6552c9
)
add #9000 as a default group and tidy up send_chats calls
author
Dirk Koopman
<djk@tobit.co.uk>
Tue, 10 Jul 2007 16:27:11 +0000
(17:27 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Tue, 10 Jul 2007 16:27:11 +0000
(17:27 +0100)
perl/DXCommandmode.pm
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
perl/Version.pm
patch
|
blob
|
history
perl/create_sysop.pl
patch
|
blob
|
history
perl/update_sysop.pl
patch
|
blob
|
history
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 {
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 {
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 {
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';
$version = '1.54';
$subversion = '0';
-$build = '11
1
';
+$build = '11
2
';
1;
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->{dxok} = 1;
$self->{annok} = 1;
$self->{lang} = 'en';
+ $self->{group} = [qw(local #9000)];
# write it away
$self->close();
# 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->{dxok} = 1;
$self->{annok} = 1;
$self->{lang} = 'en';
+ $self->{group} = [qw(local #9000)];
# write it away
$self->close();
# write it away
$self->close();