Accept a message argument to /instance.

darcs-hash:20080905141755-ebe41-0f4289786d5b53c1d65d93aa90c4346e4f9fa0c1.gz

diff --git a/IrssiInterface.pl b/IrssiInterface.pl
index 5cae6feca6480c144fe6e199214972162b0d693a..8541a2970f9b09494288938973b3a46089f186d5 100644 (file)
--- a/IrssiInterface.pl
+++ b/IrssiInterface.pl
@@ -423,16 +423,18 @@ sub cmd_common_startup ($$) {
 }
 
 sub cmd_instance {
-  my ($inst, $server, $witem) = @_;
+  my ($args, $server, $witem) = @_;
 
   return if not cmd_common_startup($server,$witem);
 
-  if ($inst eq "") {
+  if ($args eq "") {
     delete $$instance_labels{$$server{'address'}}{$$witem{'name'}};
     $witem->print("No longer using a default instance tag.");
     return;
   }
 
+  my ($inst, $msg) = split(/ /, $args, 2);
+
   my $enc = $hc->encode($inst);
   if (not defined $enc) {
     $witem->print("Can't set instance to '$inst'");
@@ -442,6 +444,10 @@ sub cmd_instance {
   $$instance_labels{$$server{'address'}}{$$witem{'name'}} = $enc;
 
   $witem->print("Default instance is now '$inst'.");
+
+  if ($msg ne "") {
+    cmd_inst_say($args, $server, $witem);
+  }
 }
 #Irssi::settings_set_str('current_instance', $_[0]);