From 03929dac2a29664878d2c971648a4fe1fb698462 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 15 Apr 2024 22:19:02 +0200
Subject: Adding upstream version 20231031.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 scripts/whos.pl | 109 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 109 insertions(+)
 create mode 100644 scripts/whos.pl

(limited to 'scripts/whos.pl')

diff --git a/scripts/whos.pl b/scripts/whos.pl
new file mode 100644
index 0000000..96eb898
--- /dev/null
+++ b/scripts/whos.pl
@@ -0,0 +1,109 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '1.01';
+%IRSSI = (
+    authors     => 'Erik Fears',
+    contact     => 'strtok@softhome.net',
+    name        => 'whos',
+    description => 'This script allows ' .
+                   'you to view all users ' .
+                   'on a specific server.',
+    license     => 'GPL',
+);
+
+Irssi::command_bind('whos', \&cmd_whos);
+Irssi::command_bind('whoss', \&cmd_whoss);
+Irssi::signal_add('redir whos', \&sig_whos);
+Irssi::signal_add('redir whosend', \&sig_whosend);
+
+Irssi::theme_register([
+   'whos' => '%#{channelhilight $[-10]0} %|{nick $[!9]1} $[!3]2 $[!2]3 $4@$5 {comment {hilight $6}}',
+   'whos_end' => 'End of /WHOS list',
+   'whos_hil' => '{hilight $0} $1'
+]);
+
+#results
+my %res;
+
+#WHOS <CHANNEL>
+sub cmd_whos
+{
+   my @parv;
+   my ($data, $server, $witem) = @_;
+   my $chan;
+   if (exists $res{$server->{tag}}) {
+      $res{$server->{tag}}=();
+   }
+   $res{$server->{tag}}->{result}=();
+   $res{$server->{tag}}->{server}=();
+   $res{$server->{tag}}->{regex}='';
+
+   if( !($witem && $witem->{type} eq "CHANNEL") ) 
+   {
+      return;
+   }
+
+   $chan = $witem->{name};
+
+   @parv = split(/\s+/,$data); 
+
+   $server->redirect_event("who", 1, $chan, 0, undef, {
+      "event 352" => "redir whos",
+      "event 315" => "redir whosend",
+      "" => "event empty"}
+   );
+
+  
+   if(length($parv[0]) <= 0)
+   {
+      $res{$server->{tag}}->{regex}='';
+   }
+   else
+   {
+      $res{$server->{tag}}->{regex}=$parv[0];
+   }
+
+   $server->send_raw("WHO " . $chan);
+}
+
+#strtok #ribena strtok not.deprecated irc.choopa.net strtok H@ :0 (char *, const char *);
+
+
+sub sig_whos
+{
+   my @who;
+   my ($server, $msg, $nick, $address, $target) = @_;
+
+   @who = split(/\s+/,$msg,9);
+
+   $res{$server->{tag}}->{result}->{$who[5]}=[@who];
+}
+
+sub sig_whosend
+{
+   my ($server, $msg, $nick, $address, $target) = @_;
+   if ($res{$server->{tag}}->{regex} eq '') {
+      $res{$server->{tag}}->{regex}= $nick;
+   }
+   Irssi::printformat(MSGLEVEL_CRAP,'whos_hil','regex:',$res{$server->{tag}}->{regex});
+   foreach (sort keys %{$res{$server->{tag}}->{result}}) {
+      my @r=@{$res{$server->{tag}}->{result}->{$_}};
+      if ($r[4] =~ m/$res{$server->{tag}}->{regex}/ ) {
+         Irssi::printformat(MSGLEVEL_CRAP,'whos',@r[1,5,6,7,2,3,8]);
+      }
+      $res{$server->{tag}}->{server}->{$r[4]}=1;
+   }
+   Irssi::printformat(MSGLEVEL_CRAP, 'whos_end');
+}
+
+sub cmd_whoss {
+   my ($args, $server, $witem) = @_;
+   Irssi::printformat(MSGLEVEL_CRAP,'whos_hil','servers:');
+   foreach (sort keys %{$res{$server->{tag}}->{server}}) {
+      Irssi::print($_,MSGLEVEL_CRAP);
+   }
+}
+
+# vim:set ts=3 sw=3 expandtab:
-- 
cgit v1.2.3