Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
31 lines (25 sloc) 752 Bytes
# 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]");