From 0b522ea31836a29bd056239e896d06b657b7d74a Mon Sep 17 00:00:00 2001
From: Pekka Riikonen <priikone@silcnet.org>
Date: Tue, 26 Feb 2002 15:31:18 +0000
Subject: [PATCH] 	updates.

---
 apps/irssi/scripts/Makefile.am     |   9 +-
 apps/irssi/scripts/autorejoin.pl   |  41 -------
 apps/irssi/scripts/beep.pl         |  40 +++++++
 apps/irssi/scripts/dns.pl          | 183 +++++++++++++++++++++++++++++
 apps/irssi/scripts/mail-maildir.pl | 119 +++++++++++++++++++
 apps/irssi/scripts/mlock.pl        | 119 -------------------
 apps/irssi/scripts/privmsg.pl      |  18 ---
 apps/irssi/scripts/quitmsg.pl      |  35 ------
 apps/irssi/scripts/realname.pl     |  34 ------
 9 files changed, 346 insertions(+), 252 deletions(-)
 delete mode 100644 apps/irssi/scripts/autorejoin.pl
 create mode 100644 apps/irssi/scripts/beep.pl
 create mode 100644 apps/irssi/scripts/dns.pl
 create mode 100644 apps/irssi/scripts/mail-maildir.pl
 delete mode 100644 apps/irssi/scripts/mlock.pl
 delete mode 100644 apps/irssi/scripts/privmsg.pl
 delete mode 100644 apps/irssi/scripts/quitmsg.pl
 delete mode 100644 apps/irssi/scripts/realname.pl

diff --git a/apps/irssi/scripts/Makefile.am b/apps/irssi/scripts/Makefile.am
index e7653f06..eafdc27a 100644
--- a/apps/irssi/scripts/Makefile.am
+++ b/apps/irssi/scripts/Makefile.am
@@ -2,12 +2,11 @@ scriptdir = $(datadir)/silc/scripts
 
 script_DATA = \
 	autoop.pl \
-	autorejoin.pl \
 	clones.pl \
 	hello.pl \
-	mail.pl \
-	privmsg.pl \
-	realname.pl \
-	quitmsg.pl
+	mail.pl	\
+	beep.pl	\
+	dns.pl	\
+	mail-maildir.pl
 
 EXTRA_DIST = $(script_DATA)
diff --git a/apps/irssi/scripts/autorejoin.pl b/apps/irssi/scripts/autorejoin.pl
deleted file mode 100644
index 3738f5fc..00000000
--- a/apps/irssi/scripts/autorejoin.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-# automatically rejoin to channel after kicked
-
-# /SET autorejoin_channels #channel1 #channel2 ...
-
-# NOTE: I personally don't like this feature, in most channels I'm in it
-# will just result as ban. You've probably misunderstood the idea of /KICK
-# if you kick/get kicked all the time "just for fun" ...
-
-use strict;
-use Irssi::Irc;
-
-sub channel_rejoin {
-  my ($server, $channel) = @_;
-
-  # check if channel has password
-  my $chanrec = $server->channel_find($channel);
-  my $password = $chanrec->{key} if ($chanrec);
-
-  # We have to use send_raw() because the channel record still
-  # exists and irssi won't even try to join to it with command()
-  $server->send_raw("JOIN $channel $password");
-}
-
-sub event_rejoin_kick {
-  my ($server, $data) = @_;
-  my ($channel, $nick) = split(/ +/, $data);
-
-  return if ($server->{nick} ne $nick);
-
-  # check if we want to autorejoin this channel
-  my @chans = split(/ ,/, Irssi::settings_get_str('autorejoin_channels'));
-  foreach my $chan (@chans) {
-    if (lc($chan) eq lc($channel)) {
-      channel_rejoin($server, $channel);
-      last;
-    }
-  }
-}
-
-Irssi::settings_add_str('misc', 'autorejoin_channels', '');
-Irssi::signal_add('event kick', 'event_rejoin_kick');
diff --git a/apps/irssi/scripts/beep.pl b/apps/irssi/scripts/beep.pl
new file mode 100644
index 00000000..1e5bb490
--- /dev/null
+++ b/apps/irssi/scripts/beep.pl
@@ -0,0 +1,40 @@
+# $Id$
+
+use Irssi 20020121.2020 ();
+$VERSION = "0.10";
+%IRSSI = (
+	  authors     => 'Jean-Yves "decadix" Lefort',
+	  contact     => 'jylefort\@brutele.be, decadix on IRCNet',
+	  name        => 'beep',
+	  description => 'Replaces your terminal bell by a command specified via /set; adds a beep_when_not_away setting',
+	  license     => 'BSD',
+	  changed     => '$Date$ ',
+);
+
+# /set's:
+#
+#	beep_when_not_away	opposite of builtin beep_when_away
+#
+#	beep_command		if not empty, the specified command will be
+#				executed instead of the normal terminal bell
+
+use strict;
+
+sub beep {
+  my $server = Irssi::active_server;
+  if ($server && ! $server->{usermode_away}
+      && ! Irssi::settings_get_bool("beep_when_not_away")) {
+    Irssi::signal_stop();
+  } else {
+    if (my $command = Irssi::settings_get_str("beep_command")) {
+      system($command);
+      Irssi::signal_stop();
+    }
+  }
+}
+
+Irssi::settings_add_bool("lookandfeel", "beep_when_not_away", 0);
+Irssi::settings_add_str("misc", "beep_command",
+			"esdplay ~/sound/events/beep.wav &");
+
+Irssi::signal_add("beep", "beep");
diff --git a/apps/irssi/scripts/dns.pl b/apps/irssi/scripts/dns.pl
new file mode 100644
index 00000000..01a12f24
--- /dev/null
+++ b/apps/irssi/scripts/dns.pl
@@ -0,0 +1,183 @@
+# /DNS <nick>|<host>|<ip> ...
+# for irssi 0.7.99 by Timo Sirainen
+# version 2.0
+
+use strict;
+use Socket;
+use POSIX;
+
+my (%resolve_hosts, %resolve_nicks, %resolve_print); # resolve queues
+my $userhosts; # number of USERHOSTs currently waiting for reply
+my $lookup_waiting; # 1 if we're waiting a reply for host lookup
+
+# for the current host lookup
+my ($print_server, $print_host, $print_name, @print_ips);
+my ($input_skip_next, $input_query);
+
+my $pipe_tag;
+
+sub cmd_dns {
+  my ($nicks, $server) = @_;
+  return if !$nicks;
+
+  # get list of nicks/hosts we want to know
+  my $tag = !$server ? undef : $server->{tag};
+  my $ask_nicks = "";
+  my $print_error = 0;
+  foreach my $nick (split(" ", $nicks)) {
+    if ($nick =~ /[\.:]/) {
+      # it's an IP or hostname
+      $resolve_hosts{$nick} = $tag;
+    } else {
+      # it's nick
+      if (!$print_error && (!$server || !$server->{connected})) {
+	$print_error = 1;
+	Irssi::print("Not connected to server");
+      } else {
+	$resolve_nicks{$nick} = 1;
+	$ask_nicks .= "$nick ";
+      }
+    }
+  }
+
+  if ($ask_nicks ne "") {
+    # send the USERHOST query
+    $userhosts++;
+    $server->redirect_event('userhost', 1, $ask_nicks, 0, 'redir dns failure', {
+                            'event 302' => 'redir dns host',
+                            '' => 'event empty' } );
+    $server->send_raw("USERHOST :$nicks");
+  }
+
+  # ask the IPs/hostnames immediately
+  host_lookup() if (!$lookup_waiting);
+}
+
+sub sig_failure {
+  Irssi::print("Error getting hostname for nick");
+  %resolve_nicks = () if (--$userhosts == 0);
+}
+
+sub sig_userhost {
+  my ($server, $data) = @_;
+  $data =~ s/^[^ ]* :?//;
+  my @hosts = split(/ +/, $data);
+
+  # move resolve_nicks -> resolve_hosts
+  foreach my $host (@hosts) {
+    if ($host =~ /^([^=\*]*)\*?=.(.*)@(.*)/) {
+      my $nick = $1;
+      my $user = $2;
+      $host = $3;
+
+      $resolve_hosts{$host} = $resolve_nicks{$nick};
+      delete $resolve_nicks{$nick};
+      $resolve_print{$host} = "[$nick!$user"."@"."$host]";
+    }
+  }
+
+  if (--$userhosts == 0 && %resolve_nicks) {
+    # unknown nicks - they didn't contain . or : so it can't be
+    # IP or hostname.
+    Irssi::print("Unknown nicks: ".join(' ', keys %resolve_nicks));
+    %resolve_nicks = ();
+  }
+
+  host_lookup() if (!$lookup_waiting);
+}
+
+sub host_lookup {
+  return if (!%resolve_hosts);
+
+  my ($host) = keys %resolve_hosts;
+  $print_server = $resolve_hosts{$host};
+
+  $print_host = undef;
+  $print_name = $resolve_print{$host};
+  @print_ips = ();
+
+  delete $resolve_hosts{$host};
+  delete $resolve_print{$host};
+
+  $input_query = $host;
+  $input_skip_next = 0;
+
+  # pipe is used to get the reply from child
+  my ($rh, $wh);
+  pipe($rh, $wh);
+
+  # non-blocking host lookups with fork()ing
+  my $pid = fork();
+  if (!defined($pid)) {
+    %resolve_hosts = ();
+    %resolve_print = ();
+    Irssi::print("Can't fork() - aborting");
+    close($rh); close($wh);
+    return;
+  }
+  $lookup_waiting++;
+
+  if ($pid > 0) {
+    # parent, wait for reply
+    close($wh);
+    Irssi::pidwait_add($pid);
+    $pipe_tag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, $rh);
+    return;
+  }
+
+  my $text;
+  eval {
+    # child, do the lookup
+    my $name = "";
+    if ($host =~ /^[0-9\.]*$/) {
+      # ip -> host
+      $name = gethostbyaddr(inet_aton($host), AF_INET);
+    } else {
+      # host -> ip
+      my @addrs = gethostbyname($host);
+      if (@addrs) {
+	@addrs = map { inet_ntoa($_) } @addrs[4 .. $#addrs];
+	$name = join (" ", @addrs);
+      }
+    }
+
+    $print_name = $input_query if !$print_name;
+    if (!$name) {
+      $text = "No information for $print_name";
+    } else {
+      $text = "$print_name: $name";
+    }
+  };
+  $text = $! if (!$text);
+
+  eval {
+    # write the reply
+    print($wh $text);
+    close($wh);
+  };
+  POSIX::_exit(1);
+}
+
+sub pipe_input {
+  my $rh = shift;
+  my $text = <$rh>;
+  close($rh);
+
+  Irssi::input_remove($pipe_tag);
+  $pipe_tag = -1;
+
+  my $server = Irssi::server_find_tag($print_server);
+  if ($server) {
+    $server->print('', $text);
+  } else {
+    Irssi::print($text);
+  }
+
+  $lookup_waiting--;
+  host_lookup();
+}
+
+Irssi::command_bind('dns', 'cmd_dns');
+Irssi::signal_add( {
+        'redir dns failure' => \&sig_failure,
+        'redir dns host' => \&sig_userhost } );
diff --git a/apps/irssi/scripts/mail-maildir.pl b/apps/irssi/scripts/mail-maildir.pl
new file mode 100644
index 00000000..493fd2e4
--- /dev/null
+++ b/apps/irssi/scripts/mail-maildir.pl
@@ -0,0 +1,119 @@
+# $Id$
+
+$VERSION = "1.8";
+%IRSSI = (
+    authors     => "Matti Hiljanen",
+    contact     => "qvr\@staff.peliportti.net",
+    name        => "mail-maildir",
+    description => "Mail counter statusbar item with maildir support",
+    license     => "Public Domain",
+    url         => "http://matin.maapallo.org/softa/irssi",
+);
+
+# Mail counter statusbar item
+# for irssi 0.7.99 by Timo Sirainen
+#
+# Maildir support added by Matti Hiljanen
+# 
+#  /SET maildir_mode - ON/OFF 
+#  /SET mail_file - specifies mbox file/Maildir location
+#  /SET mail_refresh_time - in seconds, how often to check for new mail
+
+use Irssi::TextUI;
+
+my $maildirmode = 0; # maildir=1, file(spools)=0
+
+my $last_refresh_time, $refresh_tag;
+
+# for mbox caching
+my $last_size, $last_mtime, $last_mailcount, $last_mode;
+
+sub mbox_count {
+  my $mailfile = shift;
+  my $count;
+  my $maildirmode=Irssi::settings_get_bool('maildir_mode'); 
+  if (!$maildirmode) {
+     my @stat = stat($mailfile);
+     my $size = $stat[7];
+     my $mtime = $stat[9];
+
+     # if the file hasn't changed, get the count from cache
+     return $last_mailcount if ($last_size == $size && $last_mtime == $mtime);
+     $last_size = $size;
+     $last_mtime = $mtime;
+
+     my $f = gensym;
+     return 0 if (!open($f, $mailfile));
+
+     while (<$f>) {
+        $count++ if (/^From /);
+        $count-- if (/^Subject: .*FOLDER INTERNAL DATA/);
+     }
+     close($f);
+     $last_mailcount = $count;
+  } else {
+     opendir(DIR, "$mailfile/cur") or return 0;
+     while (defined(my $file = readdir(DIR))) {
+        next if $file =~ /S/ || $file =~ /^(.|..)$/;
+        $count++;
+     }
+     closedir(DIR);
+
+     opendir(DIR, "$mailfile/new") or return 0;
+     while (defined(my $file = readdir(DIR))) {
+        next if $file =~ /^(.|..)$/;
+        $count++;
+     }
+     closedir(DIR);
+  }
+  return $count;
+}
+
+sub mail {
+  my ($item, $get_size_only) = @_;
+
+  $count = mbox_count(Irssi::settings_get_str('mail_file'));
+  if ($count == 0) {
+    # no mail - don't print the [Mail: ] at all
+    if ($get_size_only) {
+      $item->{min_size} = $item->{max_size} = 0;
+    }
+  } else {
+    $item->default_handler($get_size_only, undef, $count, 1);
+  }
+}
+
+sub refresh_mail {
+  Irssi::statusbar_items_redraw('mail');
+}
+
+sub read_settings {
+  my $time = Irssi::settings_get_int('mail_refresh_time');
+  my $mode = Irssi::settings_get_bool('maildir_mode');
+  unless ($time == $last_refresh_time) {
+     $last_refresh_time = $time;
+     Irssi::timeout_remove($refresh_tag) if ($refresh_tag);
+     $refresh_tag = Irssi::timeout_add($time*1000, 'refresh_mail', undef);
+  }
+  return if ($mode == $last_mode);
+  $last_mode = $mode;
+  if (!$mode) {
+     Irssi::settings_set_str('mail_file', "$ENV{'MAIL'}");
+  } else {
+     Irssi::settings_set_str('mail_file', "$ENV{'HOME'}/Maildir");
+  }
+  refresh_mail;
+}
+
+if (!$maildirmode) {
+   Irssi::settings_add_str('misc', 'mail_file', $ENV{'MAIL'});
+} else {
+   Irssi::settings_add_str('misc', 'mail_file', "$ENV{'HOME'}/Maildir");
+}
+Irssi::settings_add_int('misc', 'mail_refresh_time', 60);
+Irssi::settings_add_bool('misc', 'maildir_mode', "$maildirmode");
+
+Irssi::statusbar_item_register('mail', '{sb Mail: $0-}', 'mail');
+
+read_settings();
+Irssi::signal_add('setup changed', 'read_settings');
diff --git a/apps/irssi/scripts/mlock.pl b/apps/irssi/scripts/mlock.pl
deleted file mode 100644
index 35ad7856..00000000
--- a/apps/irssi/scripts/mlock.pl
+++ /dev/null
@@ -1,119 +0,0 @@
-# /MLOCK <channel> <mode>
-#
-# Locks the channel mode to <mode>, if someone else tries to change the mode
-# Irssi will automatically change it back. +k and +l are a bit special since
-# they require the parameter. If you omit the parameter, like setting the
-# mode to "+ntlk", Irssi will allow all +k and +l (or -lk) mode changes.
-
-use Irssi;
-use Irssi::Irc;
-use strict;
-
-my %keep_channels;
-
-sub cmd_mlock {
-	my ($data, $server) = @_;
-	my ($channel, $mode) = split(/ /, $data, 2);
-
-	$keep_channels{$channel} = $mode;
-	mlock_check_mode($server, $channel);
-}
-
-sub mlock_check_mode {
-        my ($server, $channame) = @_;
-
-	my $channel = $server->channel_find($channame);
-	return if (!$channel || !$channel->{chanop});
-
-        my $keep_mode = $keep_channels{$channame};
-	return if (!$keep_mode);
-
-	# old channel mode
-	my ($oldmode, $oldkey, $oldlimit);
-	$oldmode = $channel->{mode};
-        $oldmode =~ s/^([^ ]*).*/\1/;
-	$oldkey = $channel->{key};
-	$oldlimit = $channel->{limit};
-
-	# get the new channel key/limit
-	my (@newmodes, $newkey, $limit);
-	@newmodes = split(/ /, $keep_mode); $keep_mode = $newmodes[0];
-	if ($keep_mode =~ /k/) {
-		if ($keep_mode =~ /k.*l/) {
-                        $newkey = $newmodes[1];
-                        $limit = $newmodes[2];
-		} elsif ($keep_mode =~ /l.*k/) {
-			$limit = $newmodes[1];
-                        $newkey = $newmodes[2];
-		} else {
-                        $newkey = $newmodes[1];
-		}
-	} elsif ($keep_mode =~ /l/) {
-		$limit = $newmodes[1];
-	}
-
-	# check the differences
-	my %allmodes;
-	$keep_mode =~ s/^\+//;
-	for (my $n = 0; $n < length($keep_mode); $n++) {
-		my $modechar = substr($keep_mode, $n, 1);
-		$allmodes{$modechar} = '+';
-	}
-
-	for (my $n = 0; $n < length($oldmode); $n++) {
-		my $modechar = substr($oldmode, $n, 1);
-
-		if ($allmodes{$modechar} eq '+') {
-			next if (($modechar eq "k" && $newkey ne $oldkey) ||
-				 ($modechar eq "l" && $limit != $oldlimit));
-			delete $allmodes{$modechar};
-		} else {
-			$allmodes{$modechar} = '-';
-		}
-	}
-
-	# create the mode change string
-	my ($modecmd, $extracmd);
-	foreach my $mode (keys %allmodes) {
-		Irssi::print("key = '$mode':".$allmodes{$mode});
-		if ($mode eq "k") {
-			if ($allmodes{$mode} eq '+') {
-				next if ($newkey eq "");
-				if ($oldkey ne "") {
-					# we need to get rid of old key too
-					$modecmd .= "-k";
-					$extracmd .= " $oldkey";
-				}
-				$extracmd .= " $newkey";
-			} else {
-				$extracmd .= " $oldkey";
-			}
-		}
-		if ($mode eq "l" && $allmodes{$mode} eq '+') {
-			next if ($limit <= 0);
-                        $extracmd .= " $limit";
-		}
-		$modecmd .= $allmodes{$mode}.$mode;
-	}
-
-	if ($modecmd ne "") {
-		$channel->{server}->command("/mode $channame $modecmd$extracmd");
-	}
-}
-
-sub mlock_mode_changed {
-	my ($server, $data) = @_;
-	my ($channel, $mode) = split(/ /, $data, 2);
-
-	mlock_check_mode($server, $channel);
-}
-
-sub mlock_synced {
-	my $channel = $_[0];
-
-	mlock_check_mode($channel->{server}, $channel->{name});
-}
-
-Irssi::command_bind('mlock', 'cmd_mlock');
-Irssi::signal_add_last("event mode", "mlock_mode_changed");
-Irssi::signal_add("channel synced", "mlock_synced");
diff --git a/apps/irssi/scripts/privmsg.pl b/apps/irssi/scripts/privmsg.pl
deleted file mode 100644
index b1d119cb..00000000
--- a/apps/irssi/scripts/privmsg.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-# listen PRIVMSGs - send a notice to yourself when your nick is meantioned
-
-use Irssi;
-use strict;
-
-sub event_privmsg {
-	my ($server, $data, $nick, $address) = @_;
-	my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
-
-	return if (!$server->ischannel($target));
-
-	my $mynick = $server->{nick};
-	return if ($text !~ /\b$mynick\b/);
-
-	$server->command("/notice $mynick In channel $target, $nick!$address said: $text");
-}
-
-Irssi::signal_add("event privmsg", "event_privmsg");
diff --git a/apps/irssi/scripts/quitmsg.pl b/apps/irssi/scripts/quitmsg.pl
deleted file mode 100644
index 981b15a0..00000000
--- a/apps/irssi/scripts/quitmsg.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-# If quit message isn't given, quit with a random message
-# read from ~/.irssi/irssi.quit
-
-use Irssi;
-use Irssi::Irc;
-use strict;
-
-my $quitfile = glob "~/.irssi/irssi.quit";
-
-sub cmd_quit {
-	my ($data, $server, $channel) = @_;
-	return if ($data ne "");
-
-	open (f, $quitfile) || return;
-	my $lines = 0; while(<f>) { $lines++; };
-
-	my $line = int(rand($lines))+1;
-
-	my $quitmsg;
-	seek(f, 0, 0); $. = 0;
-	while(<f>) {
-		next if ($. != $line);
-
-		chomp;
-		$quitmsg = $_;
-		last;
-	}
-	close(f);
-
-	foreach my $server (Irssi::servers) {
-		$server->command("/disconnect ".$server->{tag}." $quitmsg");
-	}
-}
-
-Irssi::command_bind('quit', 'cmd_quit');
diff --git a/apps/irssi/scripts/realname.pl b/apps/irssi/scripts/realname.pl
deleted file mode 100644
index ccb1c6b1..00000000
--- a/apps/irssi/scripts/realname.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-# /RN - display real name of nick
-
-use Irssi;
-use Irssi::Irc;
-use strict;
-
-sub cmd_realname {
-	my ($data, $server, $channel) = @_;
-
-	$server->send_raw("WHOIS :$data");
-
-	# ignore all whois replies except "No such nick" or the 
-	# first line of the WHOIS reply
-	$server->redirect_event($data, 2,
-			  "event 318", "event empty", -1,
-			  "event 402", "event 402", -1,
-			  "event 401", "event 401", 1,
-			  "event 311", "redir whois", 1,
-			  "event 301", "event empty", 1,
-			  "event 312", "event empty", 1,
-			  "event 313", "event empty", 1,
-			  "event 317", "event empty", 1,
-			  "event 319", "event empty", 1);
-}
-
-sub event_rn_whois {
-	my ($num, $nick, $user, $host, $empty, $realname) = split(/ +/, $_[1], 6);
-	$realname =~ s/^://;
-
-	Irssi::print("%_$nick%_ is $realname");
-}
-
-Irssi::command_bind('rn', 'cmd_realname');
-Irssi::signal_add('redir whois', 'event_rn_whois');
-- 
2.43.0