# This script adds command /lwho that shows # locally logged users in current window use strict; use vars qw($VERSION %IRSSI); $VERSION = '0.01a'; %IRSSI = ( authors => 'Mika', contact => '[Mika] @ IRCnet', name => 'Local who', description => 'Displays users logged on system in current window, simple one', license => '-', url => '-', changed => 'none', bugs => 'none?' ); use Irssi; use Sys::Hostname; Irssi::command_bind('lwho' => sub { my $floodi = " ---- users logged on system \cB". hostname ."\cB"; my $output = `w`; $floodi =~ s/ - $//; Irssi::active_win()->print("$floodi\n$output ----", MSGLEVEL_CRAP); } ); Irssi::print("local who $VERSION by [Mika]");