Import scripts from scripts.irssi.org

1 files changed, 29 insertions, 0 deletions

diff --git a/scripts/lwho.pl b/scripts/lwho.pl
new file mode 100644
index 0000000..5a70079
--- /dev/null
+++ b/scripts/lwho.pl
@@ -0,0 +1,29 @@
+# This script adds command /lwho that shows 
+# locally logged users in current window
+
+
+$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]");