Assertion: script's use | /r/HasProperty | irssi
Facets:
Source sentences:
text: /usr/bin/perl use strict ; use warnings ; use Irssi ; Irssi:: settings_add_str ( 'wikify' , 'wiki_lang' , 'en' ); Irssi:: settings_add_str ( 'wikify' , 'wiki_active_channels' , 'freenode/#wikipedia freenode/#wikibooks' ); sub wikilang { Irssi:: settings_get_str ( 'wiki_lang' ); } sub urlencode { my $string = shift ; $string =~ y / / _ / ; $string =~ s/(\W)/sprintf("%%%02X", ord($1))/seg ; return $string ; } sub wikilink { my $s = shift ; my $u = urlencode $s ; my $l = wikilang ; "[[$s]] <http://$l.wikipedia.org/wiki/$u>" ; } sub wikitemplate { my $s = shift ; my $u = urlencode $s ; my $l = wikilang ; "{{$s}} <http://$l.wikipedia.org