commit - bcee9bd5aa53b81ed3d6c66eac7df4908e008a51
commit + 9340b0c7da007489f3d495982d15274da0231c79
blob - 56e8c1c3f9446c9728425a7af09d8534eef525d5
blob + b48af91d4108c8af783bd1abebe7d3870fefc0fd
--- botnow
+++ botnow
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 {