psybncmove.pl

• package main
  • sig_message_private
• EOF

# Prints messages from '-psyBNC' to the active window
use Irssi;
use vars qw($VERSION %IRSSI); 
$VERSION = '0.01';
%IRSSI = (
    authors     => 'Valentin Batz',
    contact	=> 'senneth@irssi.org', 
    name        => 'psybncmove',
    description => 'Prints private messages from -psyBNC in the active window',
    license	=> 'Public Domain',
    url		=> 'http://www.oberkommando.org/~senneth/irssi/scripts/',
    changed 	=> '$LastChangedDate: 2006-01-31 22:42:42 +0100 (Di, 31 Jan 2006) $',
    revision 	=> '$LastChangedRevision: 372 $',
);
Irssi::theme_register([
	'psybnc_msg', '{privmsgnick $0}$1'
]);

sub sig_message_private {
	#"message private", SERVER_REC, char *msg, char *nick, char *address
	my ($server, $msg, $nick, $address) = @_;
	return unless ($server);
	my $psynick = Irssi::settings_get_str("psybnc_nick");
	return unless (lc $nick eq lc $psynick);
	my $actwin = Irssi::active_win();
	$actwin->printformat( MSGLEVEL_CLIENTCRAP, psybnc_msg, $nick, $msg);
	Irssi::signal_stop();
}
Irssi::signal_add_first("message private", "sig_message_private");

Irssi::settings_add_str("misc","psybnc_nick", "-psyBNC");