Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

try.pl

  • Loading branch information...
commit c103458a28cbf9da11e34a037a4cbac037c3801b 1 parent 289ca7d
Daisuke Murase authored

Showing 1 changed file with 24 additions and 0 deletions. Show diff stats Hide diff stats

  1. 24  try.pl
24  try.pl
... ...
@@ -0,0 +1,24 @@
  1
+use strict;
  2
+use warnings;
  3
+use Encode;
  4
+
  5
+eval q[use Irssi; 1]; die $@ if $@;
  6
+
  7
+our $VERSION = '0.1';
  8
+our %IRSSI   = (
  9
+    name => 'try',
  10
+);
  11
+
  12
+# SERVER_REC, char *msg, char *target
  13
+sub sig_own_public {
  14
+    my ($server, $msg, $target) = @_;
  15
+
  16
+    use utf8;
  17
+    $msg = decode_utf8 $msg;
  18
+
  19
+    $msg =~ s/つらい/STFUAWSC!/g;
  20
+
  21
+    Irssi::signal_continue(encode_utf8 $msg, $target);
  22
+}
  23
+
  24
+Irssi::signal_add('message own_public' => \&sig_own_public);

0 notes on commit c103458

Please sign in to comment.
Something went wrong with that request. Please try again.