# /statusbar window add testsbar
# / testsbar <random string>
use Irssi;
use vars qw($VERSION %IRSSI);
use strict;
my $default = 'default string';
my $str;

$VERSION="0.1";
%IRSSI = (
	authors	    => 'phyber',
	contact	    => 'phyber@#irssi',
	name	    => 'testsbar',
	description => 'show a random string on the statusbar',
	license	    => 'public domain',
);

sub reload {
	Irssi::statusbar_items_redraw('testsbar');
}

sub show {
	my ($item, $get_size_only) = @_;
	my $string = get();
	chomp $string;
	$item->default_handler($get_size_only, "{sb ".$string."}", undef, 1);	
}

sub get {
	if (!defined $str) {
		return $default;
	}
	else {
		return $str;
	}
}

sub testsbar {
	my ($args, $server, $witem) = @_;
	$str = $args;
	reload();
}

Irssi::command_bind('testsbar', \&testsbar);
Irssi::statusbar_item_register('testsbar', '$0', 'show');
Irssi::signal_add('setup changed', 'setup');