colme.pl

   1 use strict;
   2 
   3 sub send_text {
   4     my ( $data, $server, $witem ) = @_;
   5     if ( $witem
   6         && ( ( $witem->{type} eq "CHANNEL" ) || ( $witem->{type} eq "QUERY" ) )
   7         && ( $data =~ /^:me (.*)$/ ) )
   8     {
   9 	
  10         $witem->command("action $witem->{name} $1");
  11 	Irssi::signal_stop();
  12     }
  13 }
  14 
  15 Irssi::signal_add 'send text' => 'send_text'
  16