Changeset 582

Timestamp:

10/21/07 19:06:52 (6 years ago)

Author:

typester

Message:

lang/perl/irssi/scripts/xcezx.pl: 無限ループよけのコード追加

Files:

• lang/perl/irssi/scripts/xcezx.pl (modified) (1 diff)

lang/perl/irssi/scripts/xcezx.pl

@@ -7 +7 @@
 our %IRSSI   = ( name => 'xcezx' );
 
+my $last = 0;
 signal_add(
     'message public' => sub {
         my ( $server, $msg, $nick, $address, $target ) = @_;
-        $server->command("MSG $target xcezx--") if $msg =~ /xcezx--/;
+        return unless $msg =~ /xcezx--/;
+        return unless time >= $last+5;
+
+        $server->command("MSG $target xcezx--");
+        $last = time;
     }
 );