Questions about this topic? Sign up to ask in the talk tab.

User:Mike/wikilink.pl

From NetSec
< User:Mike
Revision as of 04:19, 17 July 2012 by AlizaLorenzo (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

<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