Changeset 576 for lang/perl/irssi

Show
Ignore:
Timestamp:
10/21/07 18:47:40 (6 years ago)
Author:
typester
Message:

lang/perl/irssi/scripts/xcezx.pl: refactored

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/irssi/scripts/xcezx.pl

    r574 r576  
    22use warnings; 
    33 
    4 use Irssi; 
     4use Irssi qw/signal_add/; 
    55 
    66our $VERSION = '0.01'; 
     7our %IRSSI   = ( name => 'xcezx' ); 
    78 
    8 our %IRSSI = ( 
    9     name    => 'xcezx', 
    10     authors => 'Daisuke Murase', 
     9signal_add( 
     10    'message public' => sub { 
     11        my ( $server, $msg, $nick, $address, $target ) = @_; 
     12        $server->command("MSG $target xcezx--") if $msg =~ /xcezx--/; 
     13    } 
    1114); 
    12  
    13 sub sig_public { 
    14     my ($server, $msg, $nick, $address, $target) = @_; 
    15     $server->command("MSG $target xcezx--") if $msg =~ /xcezx--/; 
    16 } 
    17  
    18 Irssi::signal_add('message public', \&sig_public);