Added topic() to API::IRC.

doc/CHANGELOG

@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Added topic() to API::IRC.
     * Added has_priv() to API::Std.
     * Finished the host-based privilege/permission system.
     * Added hook on_preconnect, this comes before USER (after PASS).

src/API/IRC.pm

@@ -9,7 +9,8 @@ use warnings;
 use Exporter;
 
 our @ISA       = qw(Exporter);
-our @EXPORT_OK = qw(cjoin cpart cmode umode privmsg notice quit nick names usrc match_mask);
+our @EXPORT_OK = qw(cjoin cpart cmode umode privmsg notice quit nick names topic
+					usrc match_mask);
 
 
 # Join a channel.
@@ -99,6 +100,16 @@ sub names
 	return 1;
 }
 
+# Send a topic to the channel.
+sub topic
+{
+	my ($svr, $chan, $topic) = @_;
+	
+	Auto::socksnd($svr, "TOPIC $chan :$topic");
+	
+	return 1;
+}
+
 # Quit IRC.
 sub quit 
 {