Something went wrong while setting issue due date.
Add support for IRCD's that require CTCP version to be sent
if ( $input =~ m/\:(.+)\sPRIVMSG\s(.+)\s\:\x01VERSION\x01/ ) { my $ctcp_requester = $1; print "SENDING CTCP VERSION TO $ctcp_requester\n"; $heap->{'socket'}->send( 'NOTICE '.$ctcp_requester." :".chr(1)."VERSION perl $^V".chr(1)."\r\n" ); print "SENT CTCP VERSION TO $ctcp_requester\n"; }
@danpaul88