use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "0.2";
%IRSSI = (
 authors => 'Sam Hocevar',
 contact => 'sam\@zoy.org',
 name => 'Wikilinks',
 description => 'Simple script that translates wiki links to URLs',
 license => 'WTFPL',
 url => 'http://sam.zoy.org/wikipedia/',
 changed => '$Id: blah$'
);
my %chan2lang = (
 '#wikipedia-da' => 'da',
 '#wikipedia-darc' => 'da',
 '#wikipedia-de' => 'de',
 '#wikipedia-derc' => 'de',
 '#wikipedia-es' => 'es',
 '#wikipedia-esrc' => 'es',
 '#wikipedia-fr' => 'fr',
 '#wikipedia-frrc' => 'fr',
 '#wikimedia-fr' => 'fr',
);
sub linkify {
 my ($a, $link, $b, $name, $c, $remain, $target) = @_;
 my $lang = $chan2lang{$target} || 'en';
 my $ret = "$a\x0306\x02$link\x0f$b\x0306\x02$name\x0f$c$remain";
 $link =~ s/([%"&!\$&\(\)\*\+=\?^#'])/'%' . unpack("H*", 1ドル)/eig;
 $link =~ y/ /_/;
 $ret .= " (\x0306http://$lang.wikipedia.org/wiki/$link\x0f)";
 return $ret;
}
sub wikilinks {
 my ($server, $data, $nick, $mask, $target) = @_;
 my $win = Irssi::window_find_name($target);
 my $lang = 'en';
 if (!defined($win)) {
 $win = Irssi::window_find_refnum(1);
 }
 $data =~ s!(\[\[ *)([^\]\|]*[^\]\| ])( *\|? *)([^\]]*)( *\]\])(\w*)!linkify(1,ドル 2,ドル 3,ドル 4,ドル 5,ドル 6,ドル $target)!ge;
 Irssi::signal_continue($server, $data, $nick, $mask, $target);
}
Irssi::signal_add('message irc action', 'wikilinks');
Irssi::signal_add('message public', 'wikilinks');
Irssi::signal_add('message private', 'wikilinks');
Irssi::signal_add('message topic', 'wikilinks');
Irssi::signal_add('message irc own_action', 'wikilinks');
Irssi::signal_add('message own_private', 'wikilinks');
Irssi::signal_add('message own_public', 'wikilinks');
</div><div class="naked_ctrl">
<form action="/index.cgi/larger-text" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://sam.zoy.org/wikipedia/wikilinks.pl">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://sam.zoy.org/wikipedia/wikilinks.pl" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text" selected="selected">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>