Questions about this topic? Sign up to ask in the talk tab.
Difference between revisions of "User:Mike/wikilink.pl"
From NetSec
GertieUbpgdd (Talk | contribs) (4 mutiny) |
AlizaLorenzo (Talk | contribs) |
||
| (One intermediate revision by one other user not shown) | |||
| Line 1: | Line 1: | ||
| − | use strict; | + | {{code|text=<syntaxhighlight lang="perl">use strict; |
use Irssi; | use Irssi; | ||
| Line 107: | Line 107: | ||
Irssi::command_bind('link', 'wikilink_self') | Irssi::command_bind('link', 'wikilink_self') | ||
| + | </syntaxhighlight>}} | ||
Latest revision as of 04:19, 17 July 2012
|
<syntaxhighlight lang="perl">use strict; use Irssi; Irssi::signal_add 'message public', 'sig_message_public'; sub sig_message_public { my ($server, $msg, $nick, $nick_addr, $target, $host, $text) = @_;
my ($link, $linkname, $article, $artname);
unless ($target =~ m/(?:ed-logging)/i) { #dofuckall here
$article = $msg;
$artname = $msg;
if ($target =~ m/(?:bha-wiki
|
