From 51bec47b81cbda82e71924af7c07eed2e29992fa Mon Sep 17 00:00:00 2001 From: Elijah Perrault Date: Mon, 7 Feb 2011 13:29:33 -0700 Subject: [PATCH] Fixed a usrc() bug. --- src/API/IRC.pm | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/API/IRC.pm b/src/API/IRC.pm index 5812f0c..50d0e33 100644 --- a/src/API/IRC.pm +++ b/src/API/IRC.pm @@ -78,6 +78,16 @@ sub notice return 1; } +# Send an ACTION PRIVMSG. +sub act +{ + my ($svr, $target, $message) = @_; + + Auto::socksnd($svr, "PRIVMSG $target :\001ACTION $message\001"); + + return 1; +} + # Change bot nickname. sub nick { @@ -139,7 +149,7 @@ sub usrc return ( nick => $si[0], - user => $si[1], + user => $sii[0], host => $sii[1] ); }