# # Prints a window activity line to a fifo # # Based on activity_file and nicklist # # # The script uses 3 variables: # act_fifo_width: How many characters wide the act list can be # act_fifo_path: Path to the fifo # act_fifo_hilight: How to hilight the "ACT" in the beginning: # 0: No "ACT" # 1: "ACT" with no color # 2: "ACT" with color # 3: " ACT " with color and added spaces # # Changes: # 1.1: Now also updates fifo when config or window numbers are changed. # use strict; use Irssi qw( settings_get_int settings_get_str settings_add_int settings_add_str signal_add_last ); use Fcntl; use IO::Handle; use vars qw($VERSION %IRSSI); $VERSION = "1.1"; %IRSSI = ( authors => 'Daniel Kalør (Xnybre)', contact => '[email protected]', name => 'act_fifo', description => 'Print window activity to a fifo', license => 'GPLv2', changed => '2008-08-27' ); my $last_values = {}; my @colors = ("","\033[0;36;40m","\033[1;37;40m","\033[1;35;40m"); sub fifo_stop { close FIFO; Irssi::print("Fifo closed."); } sub item_status_changed { my ($item, $oldstatus) = @_; return if ! ref $item->{server}; my $tag = $item->{server}{tag}; my $name = $item->{name}; return if ! $tag || ! $name; store_status() if ! $last_values->{$tag}{$name} || $last_values->{$tag}{$name}{level} != $item->{data_level}; } sub store_status { my $new_values = {}; my @items = (); for my $window ( sort { $a->{refnum} <=> $b->{refnum} } Irssi::windows() ) { for my $item ( $window->items() ) { next if ! ref $item->{server}; my $tag = $item->{server}{tag}; my $name = $item->{name}; next if ! $tag || ! $name || $item->{data_level} == 0; $new_values->{$tag}{$name} = { level => $item->{data_level}, window => $window->{refnum}, }; push @items, $new_values->{$tag}{$name}; } } print FIFO "\033[2J\033[1;1H" or fifo_stop(); my $maxw = settings_get_int('act_fifo_width'); my $w = 0; if(scalar(@items) > 0) { my $hi = settings_get_int('act_fifo_hilight'); if($hi == 1) { print FIFO "ACT:" or fifo_stop(); $w += 4; } elsif($hi == 2) { print FIFO "\033[1;37;41mACT:\033[0m" or fifo_stop(); $w += 4; } elsif($hi > 2) { print FIFO "\033[1;37;41m ACT: \033[0m" or fifo_stop(); $w += 6; } } for ( @items ) { my $win = $_->{window}; my $winw = int(log($win)/log(10))+1; if($winw + 2 + $w > $maxw) { print FIFO "\033[1;31;40mM\033[0m"; last; } print FIFO "$colors[$_->{level}] $win\033[0m" or fifo_stop(); $w += $winw + 1; } $last_values = $new_values; } settings_add_int('act_fifo','act_fifo_width',25); settings_add_int('act_fifo','act_fifo_hilight',2); settings_add_str('act_fifo', 'act_fifo_path', Irssi::get_irssi_dir . '/act_fifo'); ## open/create FIFO my $path = settings_get_str('act_fifo_path'); unless (-p $path) { # not a pipe if (-e _) { # but a something else die "$0: $path exists and is not a pipe, please remove it\n"; } else { require POSIX; POSIX::mkfifo($path, oct(666)) or die "can\'t mkfifo $path: $!"; Irssi::print("Fifo created. Start reading it (\"cat $path\") and try again."); return; } } if (!sysopen(FIFO, $path, O_WRONLY | O_NONBLOCK)) { # or die "can't write $path: $!"; print("Couldn\'t write to the fifo ($!). Please start reading the fifo (\"cat $path\") and try again."); return; } FIFO->autoflush(1); print FIFO "\033[2J\033[1;1H"; # erase screen & jump to 0,0 # store initial status store_status(); signal_add_last('setup changed', \&store_status); signal_add_last('window item activity', \&item_status_changed); signal_add_last('window refnum changed', \&store_status);