| Subject: | Wrong numeric sent in response to TIME |
Upon receiving a TIME command, the server sends numeric 351
(RPL_VERSION) instead of 391 (RPL_TIME), though the body of the message
is correct. Patch follows.
--- /usr/local/share/perl/5.10.0/POE/Component/Server/IRC.pm 2008-10-01
11:35:14.000000000 +0000
+++ IRC.pm 2009-01-24 20:22:16.000000000 +0000
@@ -1508,7 +1508,7 @@
$self->{ircd}->send_output( { prefix => $nick, command => 'TIME',
params => [ $self->_state_peer_name( $target ) ] },
$self->_state_peer_route( $target ) );
last SWITCH;
}
- push @{ $ref }, { prefix => $server, command => '351', params => [
$nick, $server, time2str( "%A %B %e %Y -- %T %z", time() ) ] };
+ push @{ $ref }, { prefix => $server, command => '391', params => [
$nick, $server, time2str( "%A %B %e %Y -- %T %z", time() ) ] };
}
return @{ $ref } if wantarray();
return $ref;