Added kick() to API::IRC.

doc/CHANGELOG

@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Added kick() to API::IRC.
     * Added DBI and DBD::SQLite to core dependencies.
     * Added on_connect hook, triggered after we receive 001.
     * Updated hooks to use hashrefs.

src/API/IRC.pm

@@ -9,7 +9,7 @@ use warnings;
 use Exporter;
 
 our @ISA       = qw(Exporter);
-our @EXPORT_OK = qw(cjoin cpart cmode umode privmsg notice quit nick names topic
+our @EXPORT_OK = qw(cjoin cpart cmode umode kick privmsg notice quit nick names topic
 					usrc match_mask);
 
 
@@ -122,6 +122,16 @@ sub topic
 	return 1;
 }
 
+# Kick a user.
+sub kick
+{
+    my ($svr, $chan, $nick, $msg) = @_;
+
+    Auto::socksnd($svr, "KICK $chan $nick :$msg");
+
+    return 1;
+}
+
 # Quit IRC.
 sub quit 
 {