Commit Diff


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 {