All pastes #616402 Raw Edit

UskoKyykka

public text v1 · immutable
·published 2007-07-12 16:56 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 #uskokyykka Hello world");
	}
}

Irssi::command_bind foo => \&foobar;