sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ping: Determines end by numeric 315 instead of a 3-second timer now.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-04-20 20:20:58 -06:00
1 parent ba5de67e4a
commit 0864f549d1
2 files changed
+15 -12
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

doc/CHANGELOG
+1
View File
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
3.0 Indev 3.0 Indev
=============================================================================== ===============================================================================
* Ping: Determines end by numeric 315 instead of a 3-second timer now.
* Werewolf: Fixed a GUARD issue and made it possible to VISIT yourself. * Werewolf: Fixed a GUARD issue and made it possible to VISIT yourself.
* Possibly fixed a rare fatal error. * Possibly fixed a rare fatal error.
* Werewolf: Rewrote WAIT to be more decent. * Werewolf: Rewrote WAIT to be more decent.
modules/Ping.pm
+14 -12
View File
@@ -4,7 +4,7 @@
package M::Ping; package M::Ping;
use strict; use strict;
use warnings; use warnings;
use API::Std qw(cmd_add cmd_del timer_add timer_del hook_add hook_del); use API::Std qw(cmd_add cmd_del hook_add hook_del rchook_add rchook_del);
use API::IRC qw(privmsg notice who); use API::IRC qw(privmsg notice who);
my (@PING, $STATE); my (@PING, $STATE);
my $LAST = 0; my $LAST = 0;
@@ -15,6 +15,8 @@ sub _init {
cmd_add('PING', 0, 'cmd.ping', \%M::Ping::HELP_PING, \&M::Ping::cmd_ping) or return; cmd_add('PING', 0, 'cmd.ping', \%M::Ping::HELP_PING, \&M::Ping::cmd_ping) or return;
# Create the on_whoreply hook. # Create the on_whoreply hook.
hook_add('on_whoreply', 'ping.who', \&M::Ping::on_whoreply) or return; hook_add('on_whoreply', 'ping.who', \&M::Ping::on_whoreply) or return;
# Hook onto numeric 315.
rchook_add('315', 'ping.eow', \&M::Ping::ping) or return;
# Success. # Success.
return 1; return 1;
@@ -24,10 +26,10 @@ sub _init {
sub _void { sub _void {
# Delete the PING command. # Delete the PING command.
cmd_del('PING') or return; cmd_del('PING') or return;
# Delete the ping.ping timer if it exists.
timer_del('ping.ping');
# Delete the on_whoreply hook. # Delete the on_whoreply hook.
hook_del('on_whoreply', 'ping.who') or return; hook_del('on_whoreply', 'ping.who') or return;
# Delete 315 hook.
rchook_del('315', 'ping.eow') or return;
# Success. # Success.
return 1; return 1;
@@ -56,9 +58,6 @@ sub cmd_ping {
# Ship off a WHO. # Ship off a WHO.
who($src->{svr}, $src->{chan}); who($src->{svr}, $src->{chan});
# Set a timer for ping.
timer_add('ping.ping', 1, 3, \&M::Ping::ping);
return 1; return 1;
} }
@@ -85,15 +84,18 @@ sub on_whoreply {
# Ping! # Ping!
sub ping { sub ping {
my ($svr, $chan) = split '::', $STATE, 2; if ($STATE) {
privmsg($svr, $chan, 'PING! '.join(' ', @PING)); my ($svr, $chan) = split '::', $STATE, 2;
@PING = (); privmsg($svr, $chan, 'PING! '.join(' ', @PING));
$STATE = 0; @PING = ();
$STATE = 0;
}
return 1; return 1;
} }
# Start initialization. # Start initialization.
API::Std::mod_init('Ping', 'Xelhua', '1.00', '3.0.0a10'); API::Std::mod_init('Ping', 'Xelhua', '1.01', '3.0.0a10');
# build: perl=5.010000 # build: perl=5.010000
__END__ __END__
@@ -104,7 +106,7 @@ __END__
=head1 VERSION =head1 VERSION
1.00 1.01
=head1 SYNOPSIS =head1 SYNOPSIS