All pastes #616333 Raw Edit

tonkkis

public text v1 · immutable
·published 2007-07-12 16:17 UTC
rendered paste body
use vars qw($VERSION %IRSSI);
use Irssi;
use strict;
%IRSSI = ();

sub foobar {

	my ($data, $server, $witem) = @_;
	if ($witem) {
		$witem->command("MSG "."#tonkman.org "."Hello world");
	}
}

Irssi::command_bind('%foo', 'foobar');