commit 9340b0c7da007489f3d495982d15274da0231c79 from: jrmu date: Tue Aug 01 05:17:33 2023 UTC Use putserv instead of printing directly to socket commit - bcee9bd5aa53b81ed3d6c66eac7df4908e008a51 commit + 9340b0c7da007489f3d495982d15274da0231c79 blob - 56e8c1c3f9446c9728425a7af09d8534eef525d5 blob + b48af91d4108c8af783bd1abebe7d3870fefc0fd --- botnow +++ botnow @@ -247,20 +247,18 @@ sub putservlocalnet { sub whois { my( $bot, $target )=@_; - my $socket = $bot->{sock}; - print $socket "WHOIS $target $target\r\n"; + putserv($bot, "WHOIS $target $target\r\n"); } sub ctcp { my( $bot, $target )=@_; - my $socket = $bot->{sock}; -# print $socket "PRIVMSG $target :".chr(01)."CLIENTINFO".chr(01)."\r\n"; -# print $socket "PRIVMSG $target :".chr(01)."FINGER".chr(01)."\r\n"; -# print $socket "PRIVMSG $target :".chr(01)."SOURCE".chr(01)."\r\n"; - print $socket "PRIVMSG $target :".chr(01)."TIME".chr(01)."\r\n"; -# print $socket "PRIVMSG $target :".chr(01)."USERINFO".chr(01)."\r\n"; - print $socket "PRIVMSG $target :".chr(01)."VERSION".chr(01)."\r\n"; -# print $socket "PRIVMSG $target :".chr(01)."PING".chr(01)."\r\n"; + #putserv($bot, "PRIVMSG $target :".chr(01)."CLIENTINFO".chr(01)."\r\n"); + #putserv($bot, "PRIVMSG $target :".chr(01)."FINGER".chr(01)."\r\n"); + #putserv($bot, "PRIVMSG $target :".chr(01)."SOURCE".chr(01)."\r\n"); + putserv($bot, "PRIVMSG $target :".chr(01)."TIME".chr(01)."\r\n"); + #putserv($bot, "PRIVMSG $target :".chr(01)."USERINFO".chr(01)."\r\n"); + putserv($bot, "PRIVMSG $target :".chr(01)."VERSION".chr(01)."\r\n"); + #putserv($bot, "PRIVMSG $target :".chr(01)."PING".chr(01)."\r\n"); } sub debug {