From: Alexander Færøy <redacted>
Date: Sat, 31 May 2014 11:10:46 +0000 (+0200)
Subject: Import scripts from scripts.irssi.org
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=2d0759e6ca5767b48bcc85bf38c2c43d5f0b63b1;p=irssi-scripts.irssi.org.git

Import scripts from scripts.irssi.org
---

diff --git a/scripts/8-ball.pl b/scripts/8-ball.pl
new file mode 100644
index 0000000..04564a7
--- /dev/null
+++ b/scripts/8-ball.pl
@@ -0,0 +1,124 @@
+#8-ball / decision ball
+#
+#What is this?
+#
+#The 8-ball (Eight-ball) is a decision ball which i bought
+#in a gadget shop when i was in London. I then came up with 
+#the idea to make an irc-version of this one :)
+#There are 16 possible answers that the ball may give you.
+#
+#
+#usage   
+#
+#Anyone in the same channel as the one who runs this script may
+#write "8-ball: question ?" without quotes and where question is
+#a question to ask the 8-ball. 
+#An answer is given randomly. The possible answers are the exact
+#same answers that the real 8-ball gives.
+#
+#Write "8-ball" without quotes to have the the ball tell you
+#how money questions it've got totally.
+#
+#Write "8-ball version" without quotes to have him tell what
+#his version is.
+#
+#
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind signal_add);
+use IO::File;
+$VERSION = '0.20';
+%IRSSI = (
+	authors		=> 'Patrik Jansson',
+	contact		=> 'gein@knivby.nu',
+	name		=> '8-ball',
+	description	=> 'Dont like to take decisions? Have the 8-ball do it for you instead.',
+	license		=> 'GPL',
+);
+
+sub own_question {
+	my ($server, $msg, $target) = @_;
+	question($server, $msg, "", $target);
+}
+
+sub public_question {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	question($server, $msg, $nick.": ", $target);
+}
+sub question($server, $msg, $nick, $target) {
+	my ($server, $msg, $nick, $target) = @_;
+	$_ = $msg;
+	if (!/^8-ball/i) { return 0; }
+
+	if (/^8-ball:.+\?$/i) {
+		my $ia = int(rand(16));
+		my $answer = "";
+		SWITCH: {
+		 if ($ia==0) { $answer = "Yes"; last SWITCH; }
+		 if ($ia==1) { $answer = "No"; last SWITCH; }
+ 		 if ($ia==2) { $answer = "Outlook so so"; last SWITCH; }
+		 if ($ia==3) { $answer = "Absolutely"; last SWITCH; }
+		 if ($ia==4) { $answer = "My sources say no"; last SWITCH; }
+	 	 if ($ia==5) { $answer = "Yes definitely"; last SWITCH; }
+		 if ($ia==6) { $answer = "Very doubtful"; last SWITCH; }
+	 	 if ($ia==7) { $answer = "Most likely"; last SWITCH; }
+		 if ($ia==8) { $answer = "Forget about it"; last SWITCH; }
+		 if ($ia==9) { $answer = "Are you kidding?"; last SWITCH; }
+		 if ($ia==10) { $answer = "Go for it"; last SWITCH; }
+		 if ($ia==11) { $answer = "Not now"; last SWITCH; }
+		 if ($ia==12) { $answer = "Looking good"; last SWITCH; }
+		 if ($ia==13) { $answer = "Who knows"; last SWITCH; }
+		 if ($ia==14) { $answer = "A definite yes"; last SWITCH; }
+		 if ($ia==15) { $answer = "You will have to wait"; last SWITCH; }
+		 if ($ia==16) { $answer = "Yes, in due time"; last SWITCH; }
+       		 if ($ia==17) { $answer = "I have my doubts"; last SWITCH; }
+		}
+		$server->command('msg '.$target.' '.$nick.'8-ball says: '.$answer);
+	  
+                my ($fh, $count);
+                $fh = new IO::File;
+                $count = 0;
+                if ($fh->open("< .8-ball")){
+                        $count = <$fh>;
+                        $fh->close;
+                }
+                $count++;
+		$fh = new IO::File;
+                if ($fh->open("> .8-ball")){
+                        print $fh $count;
+                        $fh->close;
+                }else{
+                        print "Couldn't open file for output. The value $count couldn't be written.";
+                	return 1;
+		}
+		return 0;
+	} elsif (/^8-ball$/i) {
+             
+		my ($fh, $count);
+                $fh = new IO::File;
+                $count = 0;
+                if ($fh->open("< .8-ball")){
+                        $count = <$fh>;
+                        $server->command('msg '.$target.' 8-ball says: I\'ve got '.$count.' questions so far.');
+			$fh->close;
+                }else{
+                        print "Couldn't open file for input";
+			return 1;
+                }
+		return 0;
+
+	} elsif (/^8-ball version$/i){
+		$server->command('msg '.$target.' My version is: '.$VERSION);
+		return 0;
+	} else {
+		if(!/^8-ball says/i){ 
+			$server->command('msg '.$target.' '.$nick.'A question please.');
+			return 0;
+		}
+	}
+
+}
+
+signal_add("message public", "public_question");
+signal_add("message own_public", "own_question");
diff --git a/scripts/Cirssi.pl b/scripts/Cirssi.pl
new file mode 100644
index 0000000..947a373
--- /dev/null
+++ b/scripts/Cirssi.pl
@@ -0,0 +1,722 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+# Consolidate Irssi Player
+#
+# Copyright (C) 2009 Dani Soufi
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+#
+# Change Log:
+# v2.0.0:
+#       - Start/Play(Toggle)/Stop/Pause/Unpause/Next/Previous/Volume MOC Player control functions are added.
+#       - MOC Player support is implemented.
+# v1.1.2:
+#       - The script is now meant to be a bit more intelligent in dealing with song tags and different user song display settings.
+#       - Display album name in --details if it exists.
+# v1.1.0:
+#       - Script's name is renamed to Consolidate Irssi Player on global basis to expand it's use in the future.
+#       - Removed cmd_shuffle{} and cmd_repeat{} functions since they aren't supported anymore by Audacious2.
+#       - Added use --details flag for bitrate and frequency details in current playing song.
+#       - Added Jump to specific song in the playing list according to track number.
+#       - Added Volume control support from Irssi.
+#       - Updated the script to work with the newest Audacious v2 and audtool2 available.
+# v1.0.4:
+#       - Added Repeat on/off capability
+#       - Added Shuffle on/off capability
+#       - Fixed script output handling for audacious version in case audacious isn't running
+#       - If encountered a problem with audacious version, try changing `audacious --version` to `audtool -v`
+# v1.0.3:
+#       - Added Playlist functionality
+#       - Added Song details (Bitrate/Frequency/Length/Volume)
+#       - Current song notice with song details (Optional)
+# v1.0.2:
+#       - The script now handles warning support if you got audacious not running
+#       - Added track number, current time elapse and total track time
+#       - Added Stop functionality
+# v1.0.1:
+#       - Added ability to autonotify the channel after skipping a song (optional)
+#       - Added Skip/Play/Pause/Resume calls
+#
+# How To Use?
+# Copy your script into ~/.irssi/scripts/ directory
+# Load your script with /script load audacious in your Irssi Client
+# Type '/audacious help' in any channel for script commands
+# For autoload insert your script into ~/.irssi/scripts/autorun/ directory
+# Even better would be if you placed them in ~/.irssi/scripts/ and created symlinks in autorun directory
+#
+use Irssi;
+use IPC::Open3;
+
+$VERSION = '2.0.0';
+%IRSSI = (
+   authors      =>   "Dani Soufi (compengi)",
+   contact      =>   "IRC: Freenode network, #ubuntu-lb",
+   name         =>   "Consolidate Irssi Player",
+   description  =>   "Controls Audacious2 and MOCP from Irssi",
+   license      =>   "GNU General Public License",
+   url          =>   "http://bazaar.launchpad.net/~compengi/%2Bjunk/Cirssi/annotate/head%3A/Cirssi.pl",
+   changed      =>   "Thu Aug 14 22:43 CET 2009",
+);
+
+#################################################################################
+# Please do not change anything below this, unless you know what you are doing. #
+#################################################################################
+
+sub cmd_aud_song {
+   my ($data, $server, $witem) = @_;
+	# Get current song information.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+   # Read output.
+   my ( $wtr, $rdr, $err );
+   my $pid = open3( $wtr, $rdr, $err,
+                    'audtool2', '--current-song-tuple-data', 'file-name') or die $!;
+
+   # Make it global.
+   my $file;
+   {
+                local $/;
+                $file = <$rdr>;
+                $file =~ s/\.(?i:mp3|cda|aa3|ac3|aif|ape|med|mpu|wave|mpc|oga|wma|ogg|wav|aac|flac)\n//;
+   }
+
+    if ($data ne "--details") {
+      if (`ps -C audacious2` =~ /audacious/) {
+        my $position = `audtool2 --playlist-position`;
+        # I'm the most nasty variable ever.
+        my $song = `audtool2 --current-song`;
+        my $current = `audtool2 --current-song-output-length`;
+        my $total = `audtool2 --current-song-length`;
+        my $artist = `audtool2 --current-song-tuple-data artist`;
+        my $album = `audtool2 current-song-tuple-data album`;
+        my $title = `audtool2 --current-song-tuple-data title`;
+        chomp($song);
+        chomp($position);
+        chomp($current);
+        chomp($total);
+        chomp($artist);
+        chomp($album);
+        chomp($title);
+
+        # If we notice that the user sorted his playlist
+        # by song title, we will try to be nice and parse
+        # the existing artist for him.
+        if ($song !~ /$artist/) {
+          # If $song is different from $album,
+          # we add the artist to output line.
+          # Else strip the album from $song.
+          if ($song !~ /$album/) {
+            # If we have no song tags, $song will be set to the file's name.
+            # In this case, we drop the file's extension know to us and print it.
+            if ($song =~ /$file/) {
+              $witem->command("/me is listening to: $file ($current/$total)");
+            }
+            else {
+            $witem->command("/me is listening to: $artist - $song ($current/$total)");
+            }
+          }
+          else {
+            $song =~ s/$album - //im;
+            $witem->command("/me is listening to: $artist - $song ($current/$total)");
+          }
+        }
+        else {
+          $witem->command("/me is listening to: $artist - $title ($current/$total)");
+        }
+      }
+      else {
+        $witem->print("Audacious is not currently running.");
+      }
+    }
+    if ($data eq "--details") {
+        # Show more details in the output.
+      if (`ps -C audacious2` =~ /audacious/) {
+        my $position = `audtool2 --playlist-position`;
+        # I'm a nasty variable.
+        my $song = `audtool2 --current-song`;
+        my $current = `audtool2 --current-song-output-length`;
+        my $total = `audtool2 --current-song-length`;
+        my $bitrate = `audtool2 --current-song-bitrate-kbps`;
+        my $frequency = `audtool2 --current-song-frequency-khz`;
+        my $album = `audtool2 current-song-tuple-data album`;
+        my $artist = `audtool2 --current-song-tuple-data artist`;
+        my $title = `audtool2 --current-song-tuple-data title`;
+        chomp($song);
+        chomp($position);
+        chomp($current);
+        chomp($total);
+        chomp($bitrate);
+        chomp($frequency);
+        chomp($album);
+        chomp($artist);
+        chomp($title);
+
+        # Check against an empty string.
+        # If it's empty, we don't print it.
+        if ($album ne "") {
+          # Make sure $song doesn't match $artist.
+          # Else we print the $song as it is.
+          if ($song !~ /$artist/) {
+            # If $song is different from $album,
+            # we add the artist to output line.
+            # Else strip the album from $song.
+            if ($song !~ /$album/) {
+              if ($song =~ /$file/) {
+                $witem->command("/me is listening to: $artist - $song from $album ($current/$total) [$bitrate Kbps/$frequency KHz]");
+              }
+            }
+            else {
+              $witem->command("/me is listening to: $artist - $title from $album ($current/$total) [$bitrate Kbps/$frequency KHz]");
+            }
+          }
+          elsif ($song =~ /\[ $album \]/) {
+            $witem->command("/me is listening to: $artist - $title from $album ($current/$total) [$bitrate Kbps/$frequency KHz]");
+          }
+          else {
+            $song =~ s/$album - //im;
+            $witem->command("/me is listening to: $song from $album ($current/$total) [$bitrate Kbps/$frequency KHz]");
+          }
+        }
+        elsif ($song =~ /$file/) {
+          $witem->command("/me is listening to: $file ($current/$total) [$bitrate Kbps/$frequency KHz]");
+        }
+        else {
+          $witem->command("/me is listening to: $artist - $title ($current/$total) [$bitrate Kbps/$frequency KHz]");
+        }
+      }
+      else {
+        $witem->print("Audacious is not currently running.");
+      }
+    }
+   return 1;
+  }
+}
+
+sub cmd_aud_next {
+   my ($data, $server, $witem) = @_;
+	# Skip to the next track.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+      my $next = `audtool2 --playlist-advance`;
+
+      $witem->print("Skipped to next track.");
+    }
+    else {
+      $witem->print("Can't skip to next track. Check your Audacious.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_previous {
+   my ($data, $server, $witem) = @_;
+	# Skip to the previous track.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+      my $reverse = `audtool2 --playlist-reverse`;
+
+      $witem->print("Skipped to previous track.");
+   }
+    else {
+      $witem->print("Can't skip to next track. Check your Audacious.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_play {
+   my ($data, $server, $witem) = @_;
+	# Start playback.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+      my $play = `audtool2 --playback-play`;
+
+      $witem->print("Started playback.");
+   }
+    else {
+      $witem->print("Playback can't be performed now.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_pause {
+   my ($data, $server, $witem) = @_;
+	# Pause playback.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+      my $pause = `audtool2 --playback-pause`;
+
+      $witem->print("Paused playback.");
+   }
+    else {
+      $witem->print("Pause can be only performed when Audacious is running.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_stop {
+   my ($data, $server, $witem) = @_;
+	# Pause playback.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+      my $stop = `audtool2 --playback-stop`;
+
+      $witem->print("Stopped playback.");
+   }
+    else {
+      $witem->print("This way you can't start Audacious.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_volume {
+   my ($data, $server, $witem) = @_;
+        # Set volume and make sure the value is an integer
+	# that lays between 0 and 100.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+
+     if ($data eq "") {
+      $witem->print("Use /audacious volume <value> to set a specific volume value");
+     }
+     elsif ($data < 0 or $data > 100) {
+       $witem->print("Given value is out of range [0-100].");
+       return 0;
+     }
+     elsif ($data =~ /^[\d]+$/) {
+       system 'audtool2','--set-volume', $data;
+       my $volume = `audtool2 --get-volume`;
+       chomp($volume);
+       $witem->print("Volume is changed to $volume%%");
+     }
+     else {
+       $witem->print("Please use a value [0-100] instead.");
+     }
+   }
+    else {
+      $witem->print("Volume can't be set in the current state.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_jump {
+   my ($data, $server, $witem) = @_;
+        # Jump to a specific track, making sure that
+	# the selected track number exists.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+
+     if ($data eq "") {
+      $witem->print("Use /audacious jump <track> number to jump to it in your playlist.");
+     }
+     elsif ($data =~ /^[\d]+$/) {
+       # Many thanks to Khisanth for this awesome fix!
+       my ( $wtr, $rdr, $err );
+       my $pid = open3( $wtr, $rdr, $err,
+       	                'audtool2', '--playlist-jump', $data) or die $!;
+       my $output;
+       {
+          local $/;
+          $output = <$rdr>;
+       }
+       if ($output =~ /invalid/) {
+        $witem->print("Track #$data isn't found in your playlist.");
+       }
+       else {
+         $witem->print("Jumped to track #$data.");
+       }
+     }
+     else {
+       $witem->print("Please use a valid integer.");
+     }
+    }
+    else {
+     $witem->print("Start your audacious first.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_aud_playlist {
+   my ($data, $server, $witem) = @_;
+	# Displays entire playlist loaded.
+   if (`ps -C audacious2` =~ /audacious/) {
+    my $display = `audtool2 --playlist-display`;
+    chomp($display);
+
+    Irssi::print("$display");
+   }
+   else {
+    $witem->print("Start your player first.");
+    }
+   return 1; 
+}
+
+sub cmd_aud_details {
+   my ($data, $server, $witem) = @_;
+	# Displays current song's details.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C audacious2` =~ /audacious/) {
+     my $bitrate = `audtool2 --current-song-bitrate-kbps`;
+     my $frequency = `audtool2 --current-song-frequency-khz`;
+     my $length = `audtool2 --current-song-length`;
+     my $volume = `audtool2 --get-volume`;
+     chomp($bitrate);
+     chomp($frequency);
+     chomp($length);
+     chomp($volume);
+
+    $witem->print("Current song details: rate: $bitrate kbps - freq: $frequency KHz - l: $length min - vol: $volume%%");
+   }
+   else {
+    $witem->print("Your player doesn't seem to be running");
+    }
+   return 1;
+  }
+}
+
+sub cmd_aud_version {
+   my ($data, $server, $witem) = @_;
+	# Displays version information to the channel.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if ($data eq "--audtool") {
+      my $audtool = `audtool2 --version`;
+      chop $audtool;
+
+      $witem->command("/me is running: Consolidate Irssi Player v$VERSION with $audtool");
+    }
+    elsif ($data eq "--audacious") {
+      my $audacious = `audacious2 --version`;
+      chop $audacious;
+
+      $witem->command("/me is running: Consolidate Irssi Player v$VERSION with $audacious"); 
+    }
+   return 1;
+  }
+}
+
+sub cmd_audacious {
+   my ($data, $server, $witem) = @_;
+    if ($data =~ m/^[(song)|(next)|(previous)|(play)|(pause)|(stop)|(help)|(volume)|(jump)|(playlist)|(details)|(about)]/i) {
+      Irssi::command_runsub('audacious', $data, $server, $witem);
+    }
+    else {
+      Irssi::print("Use /audacious <option> or check /help audacious for the complete list");
+    }
+}
+
+sub cmd_aud_help {
+   my ($data, $server) = @_;
+	# Displays usage screen.
+      Irssi::print("* /audacious song                 - Displays the current playing song in a channel.");
+      Irssi::print("* /audacious song --details       - Displays bitrate and frequency with the current playing song.");
+      Irssi::print("* /audacious next                 - Skips to the next song.");
+      Irssi::print("* /audacious previous             - Skips to the previous song.");
+      Irssi::print("* /audacious play                 - Starts playback.");
+      Irssi::print("* /audacious pause                - Pauses playback.");
+      Irssi::print("* /audacious stop                 - Stops playback.");
+      Irssi::print("* /audacious volume <value>       - Sets volume [0-100].");
+      Irssi::print("* /audacious jump <track>         - Jumps to specified track.");
+      Irssi::print("* /audacious playlist             - Displays entire playlist.");
+      Irssi::print("* /audacious details              - Displays current song's details.");
+      Irssi::print("* /audacious version --audtool    - Displays version of the script and audtool in the channel.");
+      Irssi::print("* /audacious version --audacious  - Displays version of the script and audacious in the channel.");
+}
+
+sub cmd_moc_song {
+   my ($data, $server, $witem) = @_;
+    if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+     if (`ps -C mocp` =~ /mocp/) {
+
+       my $mocp = `mocp -i`;
+       $mocp =~ /^State: (.*)$/m;
+       my $state = $1;
+       $mocp =~ /.*Title: (.*).*/;
+       my $title = $1;
+       $mocp =~ /.*TotalTime: (.*).*/;
+       my $totaltime = $1;
+       $mocp =~ /.*CurrentTime: (.*).*/;
+       my $currenttime = $1;
+
+      if ($data ne "--details") {
+       if ($state eq '' || $state eq 'STOP') {
+        $witem->print("MOC is not playing.");
+       }
+       else {
+         $witem->command("/me is listening to: $title ($currenttime/$totaltime)");
+       }
+      }
+ 
+      if ($data eq "--details") {
+       if ($state eq '' || $state eq 'STOP') {
+        $witem->print("MOC is not playing.");
+       }
+       else {
+         $mocp =~ /.*Bitrate: (.*).*/;
+         my $bitrate = $1;
+         $mocp =~ /.*Rate: (.*).*/;
+         my $rate = $1;
+         $witem->command("/me is listening to: $title ($currenttime/$totaltime) [$bitrate/$rate]");
+       }
+      }
+     }
+     else {
+       $witem->print("MOC is not started.");
+     }
+     return 1;
+    }
+}
+
+sub cmd_moc_next {
+  my ($data, $server, $witem) = @_;
+      # Advance to next track in playlist.
+  if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+   if (`ps -C mocp` =~ /mocp/) {
+    my $mocp = `mocp -i`;
+    $mocp =~ /^State: (.*)$/m;
+    my $state = $1;
+
+    if ($state eq '' || $state eq 'STOP') {
+        $witem->print("MOC is not playing.");
+    }
+    else {
+      my $next = `mocp -f`;
+      $witem->print("Skipped to next track.");
+    }
+   }
+   else {
+     $witem->print("Can't skip to next track. Check your MOC Player.");
+   }
+   return 1;
+  }
+}
+
+sub cmd_moc_previous {
+  my ($data, $server, $witem) = @_;
+      # Skip to previous track in playlist.
+  if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+   if (`ps -C mocp` =~ /mocp/) {
+    my $mocp = `mocp -i`;
+    $mocp =~ /^State: (.*)$/m;
+    my $state = $1;
+
+    if ($state eq '' || $state eq 'STOP') {
+        $witem->print("MOC is not playing.");
+    }
+    else {
+      my $next = `mocp -r`;
+      $witem->print("Skipped to previous track.");
+    }
+   }
+   else {
+     $witem->print("Can't skip to previous track. Check your MOC Player.");
+   }
+   return 1;
+  }
+}
+
+sub cmd_moc_play_toggle {
+   my ($data, $server, $witem) = @_;
+       # Start playback.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+    if (`ps -C mocp` =~ /mocp/) {
+     my $mocp = `mocp -i`;
+     $mocp =~ /^State: (.*)$/m;
+     my $state = $1;
+
+     if ($state eq '' || $state eq 'STOP') {
+         $witem->print("MOC is not playing.");
+     }
+     elsif ($state eq 'PLAY') {
+       my $play_toggle = `mocp -G`;
+       $witem->print("Paused playing song.");
+     }
+     else {
+       my $play = `mocp -G`;
+       $witem->print("Started playback.");
+     }
+   }
+   else {
+      $witem->print("Playback can't be performed now.");
+    }
+    return 1;
+   }
+}
+
+sub cmd_moc_pause {
+   my ($data, $server, $witem) = @_;
+	# Pause playback.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+    if (`ps -C mocp` =~ /mocp/) {
+     my $mocp = `mocp -i`;
+     $mocp =~ /^State: (.*)$/m;
+     my $state = $1;
+
+     if ($state eq '' || $state eq 'STOP') {
+         $witem->print("MOC is not playing.");
+     }
+     elsif ($state eq 'PAUSE') {
+       $witem->print("The song is already paused.");
+     }
+     else {
+       my $pause = `mocp -P`;
+       $witem->print("Paused playback.");
+     }
+   }
+   else {
+      $witem->print("Pause can be only performed when your MOC Player is running.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_moc_unpause {
+   my ($data, $server, $witem) = @_;
+	# Unpause playback, if and only if the previous song was paused.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+    if (`ps -C mocp` =~ /mocp/) {
+     my $mocp = `mocp -i`;
+     $mocp =~ /^State: (.*)$/m;
+     my $state = $1;
+
+     if ($state eq '' || $state eq 'STOP') {
+         $witem->print("MOC is not playing.");
+     }
+     elsif ($state eq 'PAUSE') {
+       my $pause = `mocp -U`;
+       $witem->print("Unpaused playback.");
+     }
+     else {
+       $witem->print("Can't unpause your playing song.");
+     }
+   }
+   else {
+      $witem->print("Unpause can be only performed when your MOC Player is running.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_moc_stop {
+   my ($data, $server, $witem) = @_;
+	# Stop the current playing song.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+    if (`ps -C mocp` =~ /mocp/) {
+     my $mocp = `mocp -i`;
+     $mocp =~ /^State: (.*)$/m;
+     my $state = $1;
+
+     if ($state eq '' || $state eq 'STOP') {
+         $witem->print("MOC is not playing.");
+     }
+     else {
+       my $stop = `mocp -s`;
+       $witem->print("Stopped playback.");
+     }
+   }
+    else {
+      $witem->print("This way you can't stop a song. Double check your player.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_moc_volume {
+   my ($data, $server, $witem) = @_;
+        # Set volume and make sure the value is an integer
+	# that lays between 0 and 100.
+   if ($witem && ($witem->{type} eq "CHANNEL")) {
+    if (`ps -C mocp` =~ /mocp/) {
+
+     if ($data eq "") {
+      $witem->print("Use /mocp volume <value> to set a specific volume value");
+     }
+     elsif ($data < 0 or $data > 100) {
+       $witem->print("Given value is out of range [0-100].");
+       return 0;
+     }
+     elsif ($data =~ /^[\d]+$/) {
+       system 'mocp','-v', $data;
+       $witem->print("Volume is changed to $data%%");
+     }
+     else {
+       $witem->print("Please use a value [0-100] instead.");
+     }
+   }
+    else {
+      $witem->print("Volume can't be set when MOC Player is not functioning.");
+    }
+   return 1;
+   }
+}
+
+sub cmd_moc {
+   my ($data, $server, $witem) = @_;
+    if ($data =~ m/^[(song)|(next)|(previous)|(play)|(pause)|(unpause)|(stop)|(help)|(volume)]/i) {
+      Irssi::command_runsub('mocp', $data, $server, $witem);
+    }
+    else {
+      Irssi::print("Use /mocp <option> or check /help mocp for the complete list");
+    }
+}
+
+sub cmd_moc_help {
+   my ($data, $server) = @_;
+	# Displays usage screen.
+      Irssi::print("* /mocp song                 - Displays the current playing song in a channel.");
+      Irssi::print("* /mocp song --details       - Displays bitrate and frequency with the current playing song.");
+      Irssi::print("* /mocp next                 - Skips to the next song.");
+      Irssi::print("* /mocp previous             - Skips to the previous song.");
+      Irssi::print("* /mocp play                 - Starts playback.");
+      Irssi::print("* /mocp pause                - Pauses playback.");
+      Irssi::print("* /mocp stop                 - Stops playback.");
+      Irssi::print("* /mocp volume <value>       - Sets volume [0-100].");
+}
+
+Irssi::command_bind ('audacious song', 'cmd_aud_song');
+Irssi::command_bind ('audacious next', 'cmd_aud_next');
+Irssi::command_bind ('audacious previous', 'cmd_aud_previous');
+Irssi::command_bind ('audacious play', 'cmd_aud_play');
+Irssi::command_bind ('audacious pause', 'cmd_aud_pause');
+Irssi::command_bind ('audacious stop', 'cmd_aud_stop');
+Irssi::command_bind ('audacious help', 'cmd_aud_help');
+Irssi::command_bind ('audacious volume', 'cmd_aud_volume');
+Irssi::command_bind ('audacious jump', 'cmd_aud_jump');
+Irssi::command_bind ('audacious playlist', 'cmd_aud_playlist');
+Irssi::command_bind ('audacious details', 'cmd_aud_details');
+Irssi::command_bind ('audacious version', 'cmd_aud_version');
+Irssi::command_bind ('audacious', 'cmd_audacious');
+Irssi::command_bind ('mocp song', 'cmd_moc_song');
+Irssi::command_bind ('mocp next', 'cmd_moc_next');
+Irssi::command_bind ('mocp previous', 'cmd_moc_previous');
+Irssi::command_bind ('mocp play', 'cmd_moc_play_toggle');
+Irssi::command_bind ('mocp pause', 'cmd_moc_pause');
+Irssi::command_bind ('mocp unpause', 'cmd_moc_unpause');
+Irssi::command_bind ('mocp stop', 'cmd_moc_stop');
+Irssi::command_bind ('mocp help', 'cmd_moc_help');
+Irssi::command_bind ('mocp volume', 'cmd_moc_volume');
+Irssi::command_bind ('mocp', 'cmd_moc');
+
+Irssi::print("Consolidate Irssi Player v$VERSION is loaded successfully");
diff --git a/scripts/UNIBG-autoident.pl b/scripts/UNIBG-autoident.pl
new file mode 100644
index 0000000..6c0bb84
--- /dev/null
+++ b/scripts/UNIBG-autoident.pl
@@ -0,0 +1,242 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi::TextUI;
+
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => 'Doncho N. Gunchev',
+    contact     => 'mr_700@yahoo.com',
+    name        => 'UNIBG-autoident',
+    description => 'Automaticaly /msg ident NS yourpassword when you connect or services come back from death',
+    license     => 'Public Domain',
+    url         => 'http://not.available.yet/',
+    changed	=> 'Sat Jan 25 02:35:40 EET 2003'
+);
+
+# UNIBG NS auto identifyer
+# for irssi 0.8.1 by Doncho N. Gunchev
+#
+# Check /id help for help.
+
+
+my $msghead='autoident:';
+# list of nicks/passwords
+my %passwords = ();
+my $numpasswords = 0;
+my $passwordspassword = '';
+my $nsnick='NS';
+my $nshost='NickServ@UniBG.services';
+my $nsreq='This nickname is owned by someone else';
+my $nsok  ='Password accepted - you are now recognized';
+my $nscmd ='identify';
+# 2DO
+#	0. Do it!
+#	1. Make it take nick, passwor and network as parameters
+#	2. Make NS, CS, MS and maybe OS support
+#	3. Add eggdrop support
+#       4. Add encrypted passwords in config file...
+#	5. Add Global support or maybe /notify NS or bouth?
+#	6. Don't autoident 2 times in less than xxx seconds
+#	7. Change nick if we don't have the password / ask user for it
+#	   in xxx seconds before changing nicks
+#	8. Add /id newpass,setpass,permpas,ghost,kill....
+#	9. Add /id chanadd chandel chan....
+#
+
+sub cmd_print_help {
+  Irssi::print(<<EOF, MSGLEVEL_CRAP);
+$msghead
+          WELL... as I'm starting to write this - no help!
+          /id add nick password - add new nick with password to autoident
+          /id del nick          - delete nick from autoident list
+          /id list              - show nicks in autoident list
+          /id show              - same as /id list
+          /id help              - this one
+EOF
+#          /id check             - see if current nick is in autoident list
+}
+
+
+sub msg {
+  my ($msg, $lvl) = @_;
+  Irssi::print("$msghead $msg", $lvl);
+}
+
+
+sub event_notice {
+  # $server = server record where the message came
+  # $data = the raw data received from server, with NOTICEs it is:
+  #         "target :text" where target is either your nick or #channel
+  # $nick = the nick who sent the message
+  # $host = host of the nick who sent the message
+  my ($server, $data, $nick, $host) = @_;
+  #04:06 -!- autoident(debug): server= Irssi::Irc::Server=HASH(0x86786cc)
+  #04:06 -!- autoident(debug): data  = Mr_700 :This nickname is owned by someone else
+  #04:06 -!- autoident(debug): nick  = NS
+  #04:06 -!- autoident(debug): host  = NickServ@UniBG.services
+  #04:06 -!- autoident(debug): target = Mr_700
+  #04:06 -!- autoident(debug): text   = This nickname is owned by someone else
+
+  # split data to target/text
+  my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
+
+  # check the sent text
+  return if ($text !~ /$nsreq/) && ($text !~ /$nsok/);
+
+  # check the sender's nick
+  return if ($nick !~ /$nsnick/);
+
+  # check the sender's host
+  if ($host !~ /$nshost/) {
+    msg("!!! '$nsnick' host is bad, hack attempt? !!!", MSGLEVEL_CRAP);
+    msg("!!!", MSGLEVEL_CRAP);
+    msg("!!!  sender: '$nick!$host'", MSGLEVEL_CRAP);
+    msg("!!!  target: '$target'", MSGLEVEL_CRAP);
+    msg("!!!  text  : '$text'", MSGLEVEL_CRAP);
+    msg("!!!", MSGLEVEL_CRAP);
+    msg("!!! '$nsnick' host is bad, hack attempt? !!!", MSGLEVEL_CRAP);
+    return;
+  }
+
+  # check if sent to us directly
+  return if ($target !~ /$server->{nick}/);
+
+  if ($text =~ /$nsreq/) {
+    if (exists($passwords{$server->{nick}})) {
+      msg("'$nsnick!$nshost' requested identity, sending...", MSGLEVEL_CRAP);
+      $server->command("MSG $nsnick $nscmd " . $passwords{$server->{nick}});
+    } else {
+      msg("'$nsnick!$nshost' says '$nsreq' and we have no password set for it!", MSGLEVEL_CRAP);
+      msg("          use /id add " . $server->{nick} . " <password> to set it!", MSGLEVEL_CRAP);
+      msg("          ... autoident has left you in /dev/random", MSGLEVEL_CRAP);
+    }
+  } else {
+    msg("'$nsnick!$nshost' accepted identity", MSGLEVEL_CRAP);
+  }
+}
+
+
+sub addpassword {
+  my ($name, $password) = @_;
+
+  if (exists($passwords{$name})) {
+    if ($password eq $passwords{$name}) {
+      msg("Nick $name already has this password for autoident", MSGLEVEL_CRAP);
+    } else {
+      msg("Nick $name's autoident password changed", MSGLEVEL_CRAP);
+      $passwords{$name} = $password;
+    }
+  } else {
+    $passwords{$name} = $password;
+    $numpasswords++;
+    msg("Nick $name added to autoident list ($numpasswords total)", MSGLEVEL_CRAP);
+  }
+}
+
+sub delpassword {
+  my $name = $_[0];
+
+  if (exists($passwords{$name})) {
+    delete($passwords{$name});
+    $numpasswords--;
+    msg("Nick $name removed from autoidentify list ($numpasswords left)", MSGLEVEL_CRAP);
+  } else {
+    msg("Nick $name is not in autoident list", MSGLEVEL_CRAP);
+  }
+}
+
+sub init_passwords {
+  # Add the passwords at startup of the script
+  my $passwordsstring = Irssi::settings_get_str('autoident');
+  if (length($passwordsstring) > 0) {
+    my @passwords = split(/,/, $passwordsstring);
+
+    foreach my $i (@passwords) {
+      my $name = substr($i, 0, index($i, '='));
+      my $password = substr($i, index($i, '=') + 1, length($i));
+      addpassword($name, $password);
+    }
+  }
+}
+
+
+sub read_settings {
+#  my $passwords = Irssi::settings_get_str('passwords');
+}
+
+
+sub update_settings_string {
+  my $setting;
+
+  foreach my $name (keys(%passwords)) {
+    $setting .= $name . "=" . $passwords{$name} . ",";
+  }
+
+  Irssi::settings_set_str("autoident", $setting);
+}
+
+
+sub cmd_addpassword {
+  my ($name, $password) = split(/ +/, $_[0]);
+
+  if ($name eq "" || $password eq "") {
+    msg("Use /id add <name> <password> to add new nick to autoident list", MSGLEVEL_CRAP);
+    return;
+  }
+  addpassword($name, $password);
+  update_settings_string();
+}
+
+sub cmd_delpassword {
+  my $name = $_[0];
+
+  if ($name eq "") {
+    msg("Use /id del <name> to delete a nick from autoident list", MSGLEVEL_CRAP);
+    return;
+  }
+
+  delpassword($name);
+  update_settings_string();
+}
+
+sub cmd_showpasswords {
+  if ($numpasswords == 0) {
+    msg("No nicks defined for autoident", MSGLEVEL_CRAP);
+    return;
+  }
+  msg("Nicks for autoident:", MSGLEVEL_CRAP);
+  my $n = 1;
+  foreach my $nick (keys(%passwords)) {
+#    msg("$nick: " . $mailboxes{$password}, MSGLEVEL_CRAP);
+    msg("$n. $nick: ***", MSGLEVEL_CRAP);
+    $n++;
+  }
+}
+
+sub cmd_id {
+  my ($data, $server, $item) = @_;
+  if ($data =~ m/^[(show)|(add)|(del)|(help)]/i ) {
+    Irssi::command_runsub('id', $data, $server, $item);
+  } else {
+    msg("Use /id (show|add|del|help)", MSGLEVEL_CRAP);
+  }
+}
+
+Irssi::command_bind('id show', 'cmd_showpasswords');
+Irssi::command_bind('id list', 'cmd_showpasswords');
+Irssi::command_bind('id add', 'cmd_addpassword');
+Irssi::command_bind('id del', 'cmd_delpassword');
+Irssi::command_bind('id help', 'cmd_print_help');
+Irssi::command_bind('id', 'cmd_id');
+Irssi::settings_add_str('misc', 'autoident', '');
+
+read_settings();
+init_passwords();
+Irssi::signal_add('setup changed', 'read_settings');
+
+#Irssi::signal_add('event privmsg', 'event_privmsg');
+Irssi::signal_add('event notice', 'event_notice');
+
+msg("loaded ok", MSGLEVEL_CRAP);
+
+# EOF
diff --git a/scripts/accent.pl b/scripts/accent.pl
new file mode 100644
index 0000000..9ea6593
--- /dev/null
+++ b/scripts/accent.pl
@@ -0,0 +1,153 @@
+#to run it if it is here (but in this case it will run automagically when
+#irssi will start):
+#
+#/script load ~/.irssi/scripts/autorun/accent.pl
+#
+#you can simply remove the script:
+#
+#/script unload accent
+#
+#and it will strips your incoming and outgoing hungarian accents
+#but you can:
+#
+#/set accent_strip_in  <on|off> -- strips the incoming accents (on) or not (off)
+#/set accent_strip_out <on|off> -- strips the outgoing accents (on) or not (off)
+#
+#/set accent_tag_in  <string, default: [A]> indicates the incoming msg filtered 
+#/set accent_tag_out <string, default: [A]> indicates the outgoing msg filtered
+#
+#/set accent_latin <string, default: iso 8859-2: A',a',E',e',I',i',O',o',O:,o:,O",o",U',u',U:,u:,U",u"> which to strip
+#/set accent_ascii <string, default: AaEeIiOoOoOoUuUuUu> will be the stripped
+#
+#be careful, accent_latin and accent_latin must be charlist and must have
+#the same length to be matched as a pair.
+#
+#/set accent_debug <on|off> -- if you have a problem try to turn this on
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '$Id: accent.pl,v 1.34 2003/03/27 15:54:25 toma Exp $';
+%IRSSI = (
+	authors     => 'Tamas SZERB',
+	contact     => 'toma@rulez.org',
+	name        => 'accent',
+	description => 'This script strips the hungarian accents.',
+	license     => 'GPL',
+);
+
+my $stripped_out = 0;
+my $stripped_in  = 0;
+
+sub accent_out {
+	if(Irssi::settings_get_bool('accent_strip_out') && !$stripped_out) {
+		my $accent_tag = Irssi::settings_get_str('accent_tag_out');
+
+		my $debug=Irssi::settings_get_bool('accent_debug');
+		
+		my $accent_latin = Irssi::settings_get_str('accent_latin');
+		my $accent_ascii = Irssi::settings_get_str('accent_ascii');
+		if (length($accent_latin) != length($accent_ascii)) {
+			if ($debug) {
+				Irssi::print("`$accent_latin' and `$accent_ascii' hasn't same length");
+			}
+		}
+		else {
+			my $emitted_signal = Irssi::signal_get_emitted();
+			my ($msg, $dummy1, $dummy2) = @_;
+
+			if ($debug) {
+				Irssi::print("signal emitted: $emitted_signal");
+			}
+
+			if ( $msg =~ /[$accent_latin]/ ) {
+				if ($debug) {
+					Irssi::print("outgoing contains accent: $msg");
+				}
+				eval "\$msg =~ tr/$accent_latin/$accent_ascii/;";
+				$msg = $msg . ' ' . $accent_tag;
+				$stripped_out=1;
+				
+				Irssi::signal_emit("$emitted_signal", $msg, $dummy1, $dummy2 );
+				Irssi::signal_stop();
+				$stripped_out=0;
+			}
+		}
+	}
+}
+
+sub accent_in {
+	if(Irssi::settings_get_bool('accent_strip_in') && !$stripped_in) {
+		my $accent_tag = Irssi::settings_get_str('accent_tag_in');
+
+		my $debug=Irssi::settings_get_bool('accent_debug');
+		
+		my $accent_latin = Irssi::settings_get_str('accent_latin');
+		my $accent_ascii = Irssi::settings_get_str('accent_ascii');
+		if (length($accent_latin) != length($accent_ascii)) {
+			if ($debug) {
+				Irssi::print("`$accent_latin' and `$accent_ascii' hasn't same length");
+			}
+		}
+		else {
+			my $emitted_signal = Irssi::signal_get_emitted();
+
+			my ($dummy0, $text, $dummy3, $dummy4, $dummy5) = @_;
+			if ($debug) {
+				Irssi::print("signal emitted: $emitted_signal");
+			}
+			if ( $text =~ /[$accent_latin]/ ) {
+				if ($debug) {
+					Irssi::print("incoming contains accent: $text");
+				}
+				if ($debug) {
+					Irssi::print("text=$text");
+				}
+				#no idea why w/o eval doesn't work:
+				eval "\$text =~ tr/$accent_latin/$accent_ascii/;";
+				$text = $text . ' ' . $accent_tag;
+				$stripped_in=1;
+
+				if ($debug) {
+					Irssi::print("text=$text");
+				}
+				Irssi::signal_emit("$emitted_signal", $dummy0, $text, $dummy3, $dummy4, $dummy5 );
+				Irssi::signal_stop();
+				$stripped_in=0;
+			}
+		}
+	}
+}
+
+#main():
+
+#default settings /set accent_in && accent_out ON:
+Irssi::settings_add_bool('lookandfeel', 'accent_strip_in', 1);
+Irssi::settings_add_bool('lookandfeel', 'accent_strip_out', 1);
+
+#define the default tags for the filtered text:
+Irssi::settings_add_str('lookandfeel', 'accent_tag_in', '[Ai]');
+Irssi::settings_add_str('lookandfeel', 'accent_tag_out', '[Ao]');
+
+#define which chars will be changed:
+#iso 8859-2: A',a',E',e',I',i',O',o',O:,o:,O",o",U',u',U:,u:,U",u"
+Irssi::settings_add_str('lookandfeel', 'accent_latin', "\301\341\311\351\315\355\323\363\326\366\325\365\332\372\334\374\333\373");
+Irssi::settings_add_str('lookandfeel', 'accent_ascii', "AaEeIiOoOoOoUuUuUu");
+
+#define wheather debug or not (default OFF):
+Irssi::settings_add_bool('lookandfeel', 'accent_debug', 0);
+
+#filters:
+#incoming filters:
+Irssi::signal_add_first('server event', 'accent_in');
+
+#output filters:
+Irssi::signal_add_first('send command', 'accent_out');
+#Irssi::signal_add_first('message own_public', 'accent_out');
+#Irssi::signal_add_first('message own_private', 'accent_out');
+
+#startup info:
+Irssi::print("Hungarian accent stripper by toma * http://scripts.irssi.org/scripts/accent.pl");
+Irssi::print("Version: $VERSION");
+
diff --git a/scripts/access_evermore.pl b/scripts/access_evermore.pl
new file mode 100644
index 0000000..69d4596
--- /dev/null
+++ b/scripts/access_evermore.pl
@@ -0,0 +1,356 @@
+#  access_evermore.pl 
+#    The script connects you to the textadventure 'The Lands of Evermore'.
+#    See http://www.evermore.de/access_evermore.pl for more detail and a short 
+#    introduction on how to play, or scroll to the bottom of the script
+#
+#  Originally developed by Jonas Kramer 2006
+#  Comments added by Wolfgang Lohmann   2007
+#  Name thanks to Randolf (Randi) Schultz, Ayam3d
+
+
+#!/usr/bin/perl -w
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "20070110";
+%IRSSI = (
+	authors					=>	"Jonas Kramer",
+	contact					=>	"jonas.kramer\@gmx.net",
+	name					=>	"access_evermore.pl",
+	description   	        =>	"IRSSI Mud Plugin, lets you play the textadventure Evermore within Irssi.",
+	license					=>	"GPL",
+	changed					=>	"$VERSION"
+);
+
+use Irssi;
+use Net::Telnet;
+
+our $windowName = "<Evermore>";
+our $telnet = new Net::Telnet(Timeout => 10);
+
+our $window = Irssi::Windowitem::window_create($windowName, 1);
+$window->set_name($windowName);
+
+$telnet->open("evermore.de");
+
+Irssi::timeout_add(500, \&output, undef);
+Irssi::signal_add("send command", \&sendcmd);
+
+sub output {
+	while(my $line = $telnet->getline(Timeout => 0, Errmode => "return")) {
+		chomp($line);
+		$window->print($line);
+	}
+}
+
+sub sendcmd {
+	$window->set_name($windowName);
+	my $thisWindow = Irssi::active_win;
+	if($thisWindow->{name} eq $windowName) {
+		$telnet->print($_[0]);
+		&output;
+	}
+}
+
+=pod
+access_evermore.pl - Playing Mud The Lands of Evermore with IRSSI
+                     For more Info, check http://www.evermore.de/access_evermore.pl
+
+Here comes a short intro:
+
+Installing
+ * copy it into ~/.irssi/scripts/
+ * In rare cases, the Telnet-modul is missing: 
+   in that case enter   perl -MCPAN -e 'install "Net::Telnet"' 
+ * start irssi: irrsi
+ * enter /script load access_evermore.pl, often /load access_evermore.pl does it.
+   switch to the newly opened window (e.g. Alt+2), follow instructions on 
+   the screen. Note: Character generation is somewhat irritating within 
+   this plugin, though possible. You might use telnet mud.evermore.org 
+   or a real client for that, if you're really confused in the menu.
+ * it might be that the Telnet-modul is missing, 
+   in that case enter: perl -MCPAN -e 'install "Net::Telnet"' 
+
+Known Bugs/Issues:
+   Evermore Introduction Dialog screens consist of an explanation and 
+   explain the choices (assigned to numbers). As lines are send to IRSSI 
+   only when telnet sends an End-of-Line, the plugin does not show the 
+   Menu prompt, which asks for the choice you made.You will miss things 
+   like 'Please press Enter to continue', 'Your choice (1,2,3, or Enter):',
+   but this is something you should get on with.
+
+Playing
+   First of all, similar to IRC, you have commands and messages. There are two 
+   modes:
+   a) commands are unescaped, messages are sent using special commands (standard),
+   b) commands are escaped, everything else is a message.
+
+   Commands are used to control your avatar, messages are to communicate with 
+   other players or non-player characters.
+
+   You do not see your avatar. Instead, you look through its eyes. 
+   The text received describes what your avatar is seeing (better think: 
+   'what you are seeing').
+
+   Your starting point is a room. Rooms correspond to channels, thus, channel 
+   hopping is explicitely desired.To get a rough description of the room, type:
+
+   [<Evermore>] look (or 'l' for short. We omit the Evermore-prompt from now.)
+
+   The output will be like this (in case you chose to be human, attention >80chars/line):
+
+17:58 -!- Irssi:           The place infront of Jaris' chapel of Mind and the royal university
+17:58 -!- Irssi:           of Palanthas.
+17:58 -!- Irssi:     |  |    Restricted by a big building to the south with a large portal to
+17:58 -!- Irssi: -P--P--P- enter it, a small chapel to the east and some stores to the north
+17:58 -!- Irssi:   \ | /|  and west side, an idyllic place spreads out in front of you. A white
+17:58 -!- Irssi:    \|/ |  statue is standing in the middle of this place and southeastwards a
+17:58 -!- Irssi: -I--@--I  very large white building can be seen between the houses. To the
+17:58 -!- Irssi:    /|\    northeast and northwest you see the Queen Tamira Road, one of the
+17:58 -!- Irssi:   / | \   main roads in Palanthas, as a possibility to leave this place.
+17:58 -!- Irssi:  I  I  P-     There is a portal leading south.
+17:58 -!- Irssi:           You can see eight exits: east, west, north, south, northwest,
+17:58 -!- Irssi:               northeast, southwest and southeast.
+17:58 -!- Irssi: Cassandro the apprentice Mage.
+
+Left beside the description, you have a mini-map, but ignore it for now. 
+First comes a summary, then the description, followed by a list of exits. 
+From each room, you can access one or more other rooms using exits, typing 
+'west' (or 'w') and similar to choose this direction. Last line gives those 
+players and non-player characters ( NPCs, or bots one would say in IRC), 
+who are standing right beside you. In this case, it is Cassandro. (Typing 
+'who' gives a list of all (visible) players currently online.)
+You can investigate things in more detail, e.g.
+
+examine chapel (short: x chapel):
+
+18:05 -!- Irssi: > It's only a small chapel built to sanctify Jaris. Like most of the buildings in
+18:05 -!- Irssi: Palanthas it is white and its roof is covered with red bricks. A belfry raises
+18:05 -!- Irssi: high up on the eastern side of the building. In front of the entrance you can
+18:05 -!- Irssi: see two small trees, birches, as usual here.
+
+The detail is dependend on how much the coder has invested (every player can 
+become coder).
+Your character can communicate and express feelings, e.g. 'say Hi' 
+(short: ' ' Hi' (a quote)), and 'bow deep cass':
+
+18:08 -!- Irssi: > You say in Erinn: hi
+18:08 -!- Irssi: > [Announce:Logout] Mansor leaves this world.
+18:09 -!- Irssi: > You bow deeply to Cassandro.
+
+Erinn is your native tongue in this case.The computer takes care, that 
+commands for feelings are adapted. E.g. Cassandro sees:
+
+18:08 -!- Irssi: Al-ethly says in Erinn: hi
+18:08 -!- Irssi: [Announce:Logout] Mansor leaves this world.
+18:09 -!- Irssi: Al-ethly bows deeply to you.
+
+Note, a third player would see:
+
+18:09 -!- Irssi: Al-ethly bows deeply to Cassandro.
+
+You might try 'lol', 'rotfl'. ('help soul' shows even more)
+Messages said can be heard only by players beside you. If you want to send 
+a question on the game or chat globally, you use the command
+
+chat Hi, I am new!
+
+, resulting in
+
+18:15 -!- Irssi: > [Newbie:Al-ethly] Hi, I am new!
+
+Note the brackets to mark it as a message on a channel (which can be switched 
+off, btw.).
+
+Maybe it is time now to set colour on to improve presentation of different 
+information. Note, if you have black background, you also need to type set 
+colour scheme black. This gives a different colour, if you see messages on 
+a channel or some living around.
+
+The next things you should do is to list your inventory with 'inventory', 
+and 'examine <everthing>' you find.
+
+You are able to carry a lot more, and you are carrying:
+Weapons:
+* A steel mace
+Armours:
+* A cloak
+Miscellaneous:
+* A bag
+* A sheet labeled: type 'read sheet'
+* A torch
+* A pair of flintstones
+
+If you 'read sheet', you get 100 experience points (besides of some 
+information). You can see them with 'score stats':
+
+> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+Al-ethly the novice Priest
+- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+Name         : Al-ethly       Race         : human
+Profession   : Priest         Gender       : male
+Guild        : Priest         Alignment    : neutral (0)
+Experience   : 100
+
+Level        : 2
+Quests       : 0%             Prizes       : 0%
+Monster      : 0%             Level of Exp : 1
+
+Money        : no coins
+Strength     : 19             Believer of  : None
+Intelligence : 22             Height       : 6' 1"
+Dexterity    : 18             Weight       : 252 lb
+Constitution : 22             Vision       : normal vision
+Charisma     : 19             Wimpy        : 150 Life Points threshold
+
+First Login  : You entered this world on Monday, the fifteenth of July
+               in the first year of the fire rat (Twenty-third year of
+               the second age of Evermore)
+
+Login Time   : 45 minutes 18 seconds.
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+
+As you might see in the score table, levels are formed not only from
+Experience points received by killing innocent rabbits, but also by
+* Monster points, identifying how many different monsters you have found 
+  already,
+* Prizes, which are given sparsely for deep examining areas and doing things 
+  not necessarily necessary to reach a goal, and
+* 1 Quests, adventures of different sizes.
+
+This allows to level up to a certain points, without being forced only to 
+kill or only to quest.
+
+Besides, in Evermore, player killing is forbidden, as we have a socially 
+and friendly atmosphere.
+
+Before we give some commands in a list, we shortly show, how fighting is 
+done here. Let's assume, you have managed to find the newbie area, which 
+is usually sort of a park (depending on your starting town, see 'help races', 
+and check the small town maps on this site.). First, 'wear all' and 'wield 
+all', then 'look':
+
+> You wear your cloak.
+> You wield a mace in your left hand.
+
+\|/ |
+ O  O   The municipal park.
+  \ |      This seems to be the town park around you. You see nothing but
+   \|   well-trimmed bushes, the path you're walking on and the usual park
+    @   animals which quickly hide themselves.
+    |   You can see three exits: north, northwest and south.
+    |
+    P-
+A rat.
+A squirrel.
+Two doves.
+
+Use 'estimate rat' to see, whether you have a real chance to win a fight:
+
+> You look at the rat very closely.
+It seems to be neutral.
+It is around 0' 4" large and weighs less than 1 lb.
+It is of race Rat.
+It may be very much worse at attacking.
+A rat's defense seems to be much worse.
+A rat's constitution is much worse.
+A rat's strength and dexterity are much worse.
+It is in a very good condition.
+
+Ok, it looks as we might have a chance. Note, that in the beginning, the 
+avatar is weak, and has not developed powerful skills yet, not to speak 
+of the poor weapons. Therefore, the rat might have a real chance, if you 
+try to 'kill rat':
+
+> You turn to attack a rat!
+> You punch a rat's head with your right hand.
+You miss a rat with your mace.
+You kick a rat's torso with your left foot.
+You punch a rat's abdomen with your right hand.
+You crush a rat's torso with your mace.
+The rat gets a large bruise on its torso.
+You miss a rat with your right foot.
+The rat misses you with its front right foot.
+The rat misses you with its back left foot.
+The rat misses you with its front left foot.
+You have 239 [240] Life Points and 240 [240] Mind Points.
+You crush a rat's front right leg with your mace.
+You punch a rat's front right leg with your right hand.
+You kick a rat's front right foot with your left foot.
+You miss a rat with your right hand.
+You crush a rat's front left foot with your mace.
+You miss a rat with your right foot.
+You punch a rat's torso with your right hand.
+The rat gets a large bruise on its torso.
+You crush a rat's front right leg with your mace.
+Suddenly, the rat goes slack and doesn't move anymore.
+You killed a rat.
+You have 240 [240] Life Points and 240 [240] Mind Points.
+[Announce:Login] Gloin enters this world.
+[Announce:Login] Kortha (new player) enters this world.
+[Announce:Login] Kortha begins his real life.
+
+While the fight is going on, the messages are thrown on the screen, and 
+soon you will develop a sense for action... especially, when you see your
+life points going down. You relax faster, if you eat and drink. Now, 
+'examine corpse':
+
+This is the dead body of a rat.
+It contains:
+* 2 copper coins.
+
+and 'get all from corpse':
+
+You take 2 copper coins from the corpse of a rat.
+The corpse of a rat rots completely away.
+
+(Yes, it is possible to define aliases). Sometimes your get furs, or 
+nothing.Furs you can sell, to buy you a beer and have a chat with some friends.
+
+Ok, this should suffice for the very first steps. Do not hesitate to ask on 
+the global channel, if you have questions, using 'chat How can I do this and
+that...'. However, hints for quests, of course, are not topic of such channels..
+Finally, here some of the most interesting commands for the beginning:
+ - help, help basics, help professions, help score,help trader:
+     Help system, sort of man pages, with lots of information about how to 
+     play and how certain things work.
+ - score, score skills, score health, score equipment, score colour, ... 
+     Several kinds of information. Note, that the skills are just the basic 
+     set. You will learn more depending on race, profession and level. Skills 
+     increase by doing.
+ - inventory, i
+     shows your inventory ( you might try 'read sheet', 'wear all')
+ - n,s,w, enter, etc. 
+     Move around to different rooms.
+ - who, say 'msg', tell Cassandro 'msg', chat 'msg'
+     shows available players, says something to the room, long distance-tell, 
+     global chat-channel message
+ - finger 'name' 
+     gives some extra information about some player
+ - alias 'shortcut' 'long version' 
+     defines a shortcut to be used instead of a long version. Note, never 
+     use s,n, or other direction names, or you wont be able to walk around.
+ - me 'some emote', : 'some emote' 
+     adds the emote string to your name, but remember, we have the soul, 
+     which is better!
+The interesting thing is, that every place can define new actions, thus, you 
+can find much more commands than already given in the 'help' section.
+
+Problems playing
+ * It is too dark to see anything. 
+   - You probably have normal (daylight) vision, and an oil lamp in your 
+     inventory. 'light lamp' might help.
+ * It is much too bright to see anything. 
+   - You probably have infra (night) vision, and probably a blindfold in your
+     inventory. 'wear blindfold' should help
+ * Nobody reacts on my 'say'ing! 
+   - Probably, you stand alone (check with 'look'). To talk globally, 
+     use 'chat msg'. Others might be away or idle, check with 'who'. Some 
+     might even work besides, in the MUD or in RL.
+ * Do not know how to 'cha' right now. 
+   - Maybe you mistyped the command?
+ * Could not find any help for you....
+   - maybe you have mistyped the keyword or try plural/singular form.
+=cut
+    
diff --git a/scripts/accountname.pl b/scripts/accountname.pl
new file mode 100644
index 0000000..e439eeb
--- /dev/null
+++ b/scripts/accountname.pl
@@ -0,0 +1,23 @@
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+
+%IRSSI = (
+    authors=> "Chris \'raz\' Hoogenboezem",
+    contact=> "chrish\@carrier6.com",
+    name=> "accountname",
+    description=> "Instead of displaying semi-raw data, a /whois now gives a tidy accountname on Asuka/lain servers (if applicable).",
+    license=> "Feel free to alter anything conform your own liking.",
+);
+
+Irssi::theme_register([tidyaccount => ' account  : $0']);
+
+sub event_tidyaccount {
+	my @auth = split(/ +/, $_[1]);
+	$_[0]->printformat((split(/ +/, $_[1]))[1], MSGLEVEL_CRAP, 'tidyaccount', ((substr($auth[3],0,1) eq ":") ? $auth[2] : $auth[5]));
+	Irssi::signal_stop();
+}
+
+Irssi::signal_add('event 330', 'event_tidyaccount');
\ No newline at end of file
diff --git a/scripts/act.pl b/scripts/act.pl
new file mode 100644
index 0000000..0b20de8
--- /dev/null
+++ b/scripts/act.pl
@@ -0,0 +1,72 @@
+#!/usr/bin/perl -w
+# resets window activity status
+#  by c0ffee 
+#    - http://www.penguin-breeder.org/irssi/
+
+#<scriptinfo>
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION = "0.13";
+%IRSSI = (
+    authors	=> "c0ffee",
+    contact	=> "c0ffee\@penguin-breeder.org",
+    name	=> "Reset window activity status",
+    description	=> "Reset window activity status. defines command /act",
+    license	=> "Public Domain",
+    url		=> "http://www.penguin-breeder.org/irssi/",
+    changed	=> "Wed Jun 23 08:34:53 CEST 2004",
+);
+#</scriptinfo>
+
+
+#
+# /ACT [PUBLIC|ALL]
+#
+# /ACT without parameters marks windows as non-active where no
+# public talk occured.
+#
+# /ACT PUBLIC also removes those where no nick hilight was triggered
+#
+# /ACT ALL sets all windows as non-active
+sub cmd_act {
+    my ($data, $server, $channel) = @_;
+
+    if ($data eq "") {
+      $level = 1;
+    } elsif ($data =~ /^public$/i) {
+      $level = 2;
+    } elsif ($data =~ /^all$/i) {
+      $level = 3;
+    } else {
+      Irssi::signal_emit("error command", -3, $data);
+      return;
+    }
+
+    foreach (Irssi::windows()) {
+
+      if ($_->{data_level} <= $level) {
+
+        Irssi::signal_emit("window dehilight", $_);
+
+      }
+
+    }
+}
+
+my @arguments = ('public', 'all');
+sub sig_complete ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    return unless $linestart =~ /^.act/;
+    foreach my $arg (@arguments) {
+      if ($arg =~ /^$word/i) {
+        $$want_space = 0;
+        push @$list, $arg;
+      }
+    }
+    Irssi::signal_stop();
+}
+
+
+Irssi::command_bind("act", "cmd_act");
+Irssi::signal_add_first('complete word', \&sig_complete);
diff --git a/scripts/act_fifo.pl b/scripts/act_fifo.pl
new file mode 100644
index 0000000..11ec318
--- /dev/null
+++ b/scripts/act_fifo.pl
@@ -0,0 +1,175 @@
+#
+# Prints a window activity line to a fifo
+#
+# Based on activity_file and nicklist
+#
+#
+# The script uses 3 variables:
+#    act_fifo_width:    How many characters wide the act list can be
+#    act_fifo_path:     Path to the fifo
+#    act_fifo_hilight:  How to hilight the "ACT" in the beginning:
+#             0: No "ACT"
+#             1: "ACT" with no color
+#             2: "ACT" with color
+#             3: " ACT " with color and added spaces
+#             
+#  Changes:
+#     1.1:  Now also updates fifo when config or window numbers are changed.
+# 
+
+use Irssi qw(
+	settings_get_int settings_get_str
+	settings_add_int settings_add_str
+	signal_add_last
+	);
+use Fcntl;
+use IO::Handle;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.1";
+%IRSSI =
+(
+	authors     => 'Daniel Kalør (Xnybre)',
+	contact		=> 'irssi@kalor.dk',
+	name        => 'act_fifo',
+	description => 'Print window activity to a fifo',
+	license     => 'GPLv2',
+	changed     => '2008-08-27'
+);
+
+
+my $last_values = {};
+
+my @colors = ("","\033[0;36;40m","\033[1;37;40m","\033[1;35;40m");
+
+sub fifo_stop
+{
+	close FIFO;
+	Irssi::print("Fifo closed.");
+}
+
+sub item_status_changed
+{
+	my ($item, $oldstatus) = @_;
+	
+
+	return if ! ref $item->{server};
+
+	my $tag = $item->{server}{tag};
+	my $name = $item->{name};
+
+	return if ! $tag || ! $name;
+
+	store_status() if ! $last_values->{$tag}{$name} ||
+	$last_values->{$tag}{$name}{level} != $item->{data_level};
+}
+
+
+sub store_status
+{
+	my $new_values = {};
+	my @items = ();
+
+	for my $window ( sort { $a->{refnum} <=> $b->{refnum} } Irssi::windows() )
+	{
+
+		for my $item ( $window->items() )
+		{
+
+			next if ! ref $item->{server};
+
+			my $tag = $item->{server}{tag};
+			my $name = $item->{name};
+
+			next if ! $tag || ! $name || $item->{data_level} == 0;
+
+			$new_values->{$tag}{$name} =
+			{
+				level => $item->{data_level},
+				window => $window->{refnum},
+			};
+
+			push @items, $new_values->{$tag}{$name};
+		}
+	}
+
+
+	print FIFO "\033[2J\033[1;1H" or fifo_stop();
+
+	my $maxw = settings_get_int('act_fifo_width');
+	my $w = 0;
+
+	if(scalar(@items) > 0)
+	{
+		my $hi = settings_get_int('act_fifo_hilight');
+		if($hi == 1)
+		{
+			print FIFO "ACT:" or fifo_stop();
+			$w += 4;
+
+		}
+		elsif($hi == 2)
+		{
+			print FIFO "\033[1;37;41mACT:\033[0m" or fifo_stop();
+			$w += 4;
+		}
+		elsif($hi > 2)
+		{
+			print FIFO "\033[1;37;41m ACT: \033[0m" or fifo_stop();
+			$w += 6;
+		}
+	}
+
+	for ( @items )
+	{
+		my $win = $_->{window};
+		my $winw = int(log($win)/log(10))+1;
+		if($winw + 2 + $w > $maxw)
+		{
+			print FIFO "\033[1;31;40mM\033[0m";
+			last;
+		}
+		print FIFO "$colors[$_->{level}] $win\033[0m" or fifo_stop();
+		$w += $winw + 1;
+	}
+
+
+	$last_values = $new_values;
+
+}
+
+settings_add_int('act_fifo','act_fifo_width',25);
+settings_add_int('act_fifo','act_fifo_hilight',2);
+settings_add_str('act_fifo', 'act_fifo_path', Irssi::get_irssi_dir . '/act_fifo');
+
+## open/create FIFO
+my $path = settings_get_str('act_fifo_path');
+unless (-p $path)
+{ # not a pipe
+	if (-e _)
+	{ # but a something else
+		die "$0: $path exists and is not a pipe, please remove it\n";
+	}
+	else
+	{
+		require POSIX;
+		POSIX::mkfifo($path, 0666) or die "can\'t mkfifo $path: $!";
+		Irssi::print("Fifo created. Start reading it (\"cat $path\") and try again.");
+		return;
+	}
+}
+if (!sysopen(FIFO, $path, O_WRONLY | O_NONBLOCK))
+{ # or die "can't write $path: $!";
+	print("Couldn\'t write to the fifo ($!). Please start reading the fifo (\"cat $path\") and try again.");
+	return;
+}
+FIFO->autoflush(1);
+print FIFO "\033[2J\033[1;1H"; # erase screen & jump to 0,0
+
+# store initial status
+store_status();
+
+signal_add_last('setup changed', \&store_status);
+signal_add_last('window item activity', \&item_status_changed);
+signal_add_last('window refnum changed', \&store_status);
+
diff --git a/scripts/active_notice.pl b/scripts/active_notice.pl
new file mode 100644
index 0000000..6529364
--- /dev/null
+++ b/scripts/active_notice.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.07";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'active_notice.pl',
+    description => 'This script shows notices into the active channel unless it has its own window.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/active_notice.pl',
+    changed     => 'Wed Sep 17 23:00:11 CEST 2003',
+);
+
+Irssi::theme_register([
+    'active_notice_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub notice_move {
+
+    my ($dest, $text, $stripped) = @_;
+    my $server = $dest->{server};
+
+    return if (!$server || !($dest->{level} & MSGLEVEL_NOTICES) || $server->ischannel($dest->{target}));
+  
+    my $witem  = $server->window_item_find($dest->{target});
+    my $awin = Irssi::active_win();
+
+    return if $witem;
+
+    $awin->print($text, MSGLEVEL_NOTICES);
+  
+    Irssi::signal_stop();
+}
+
+Irssi::signal_add('print text', 'notice_move');
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'active_notice_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/active_notify.pl b/scripts/active_notify.pl
new file mode 100644
index 0000000..dce841a
--- /dev/null
+++ b/scripts/active_notify.pl
@@ -0,0 +1,157 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+## Comments and remarks.
+#
+# This script uses settings, by default the broadcast will be set off.
+# If you  want the notify message to be shown in all the windows use
+# /SET or /TOGGLE to switch it on or off.
+#
+#    Setting: notify_broadcast
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.07";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'active_notify.pl',
+    description => 'This script will display notify messages into the active window or broadcast it so all the windows.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/active_notify.pl',
+    changed     => 'Wed Sep 17 23:00:11 CEST 2003',
+);
+
+Irssi::theme_register([
+    'notify_joined', '%_Notify%_: %R>>%n %_$0%_ [$1@$2] [$3] has joined /$4/.',
+    'notify_left', '%_Notify%_: %R>>%n %_$0%_ [$1@$2] [$3] has parted /$4/.',
+    'notify_new', '%_Notify%_: %R>>%n Added %_$0%_ to the notify list.',
+    'notify_del', '%_Notify%_: %R>>%n Removed %_$0%_ from the notify list.',
+    'active_notify_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub notify_joined {
+    
+    my ($server, $nick, $user, $host, $realname, $awaymsg) = @_;
+    my $broadcast = Irssi::settings_get_bool('notify_broadcast');
+    my $window = Irssi::active_win();
+
+    if ($broadcast) {
+        foreach my $bwin (Irssi::windows) {
+            $bwin->printformat(MSGLEVEL_CLIENTCRAP, 'notify_joined', $nick, $user, $host, $realname, $server->{tag});
+        }
+    } else {
+        $window->printformat(MSGLEVEL_CLIENTCRAP, 'notify_joined', $nick, $user, $host, $realname, $server->{tag});
+    }
+
+    Irssi::signal_stop();
+}
+
+sub notify_left {
+    
+    my ($server, $nick, $user, $host, $realname, $awaymsg) = @_;
+    my $broadcast = Irssi::settings_get_bool('notify_broadcast');
+    my $window = Irssi::active_win();
+
+    if ($broadcast) {
+        foreach my $bwin (Irssi::windows) {
+            $bwin->printformat(MSGLEVEL_CLIENTCRAP, 'notify_left', $nick, $user, $host, $realname, $server->{tag});
+        }
+    } else {
+        $window->printformat(MSGLEVEL_CLIENTCRAP, 'notify_left', $nick, $user, $host, $realname, $server->{tag});
+    }
+
+    Irssi::signal_stop();
+}
+
+sub notify_new {
+    
+    my ($nick) = @_;
+    my $broadcast = Irssi::settings_get_bool('notify_broadcast');
+    my $window = Irssi::active_win();
+    my ($aw_ch, $ircnet, $mask, $ict);
+    
+    if ($broadcast) {
+        foreach my $bwin (Irssi::windows) {
+            $bwin->printformat(MSGLEVEL_CLIENTCRAP, 'notify_new', $nick->{mask});
+        }
+    } else {
+        $window->printformat(MSGLEVEL_CLIENTCRAP, 'notify_new', $nick->{mask});
+    }
+
+    Irssi::signal_stop();
+}
+
+sub notify_del {
+    
+    my ($nick) = @_;
+    my $broadcast = Irssi::settings_get_bool('notify_broadcast');
+    my $window = Irssi::active_win();
+    
+    if ($broadcast) {
+        foreach my $bwin (Irssi::windows) {
+            $bwin->printformat(MSGLEVEL_CLIENTCRAP, 'notify_del', $nick->{mask});
+        }
+    } else {
+        $window->printformat(MSGLEVEL_CLIENTCRAP, 'notify_del', $nick->{mask});
+    }
+
+    Irssi::signal_stop();
+}
+
+Irssi::signal_add_first('notifylist joined', 'notify_joined');
+Irssi::signal_add_first('notifylist left', 'notify_left');
+
+## BUG, BUG, BUG! Warning!
+#
+# [16:02] [-] Irssi: Starting query in Freenode with cras
+# [16:04] :cras: it crashes every time it gets into 'notifylist remove' signal?
+# [16:04] :Geert: yes
+# [16:05] :Geert: the notifylist new too
+# [16:06] :cras: even if they didn't do anything?
+# [16:06] :Geert: indeed
+# [16:06] :Geert: Try for yourself :)
+# [16:06] :Geert: joined & remove signals are working great
+# [16:07] :cras: i guess it doesn't like the notifylist_rec ..
+# [16:08] :Geert: So, what should I do now? :)
+# [16:10] :cras: try cvs update?
+# [16:10] :cras: i fixed one possible cause for it
+# [16:10] :cras: and can't see another one :)
+# [16:11] :Geert: Well, It's a scriptrequest from someone. So I'll just comment that feature
+# [16:11] :Geert: Are you sure it works in the cvs?
+# [16:11] :cras: well, 70% sure :)
+# [16:12] :Geert: Let's hope so :P
+#
+# Uncomment the next two lines. ONLY if you have the CVS version.
+#
+#Irssi::signal_add_first('notifylist new', 'notify_new');
+#Irssi::signal_add_first('notifylist remove', 'notify_del');
+#
+##
+
+Irssi::settings_add_bool('notify', 'notify_broadcast' => 0);
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'active_notify_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/activity_file.pl b/scripts/activity_file.pl
new file mode 100644
index 0000000..e963ce6
--- /dev/null
+++ b/scripts/activity_file.pl
@@ -0,0 +1,95 @@
+# Maintains a representation of window activity status in a file
+#
+# Creates and updates ~/.irssi/activity_file 
+# The file contains a comma separated row of data for each window item:
+# Window refnum,Window item data_level,Window item name,Item's server tag
+#
+# Use it for example like this:
+# ssh me@server.org "while (egrep '^[^,]*,3' .irssi/activity_file|sed -r 's/[^,]*,[^,]*,(.*),.*/\1/'|xargs echo); do sleep 1; done" | osd_cat -l1
+
+use strict;
+use Irssi;
+use Fcntl qw(:flock);
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Antti Vähäkotamäki',
+    name        => 'activity_file',
+    description => 'Maintains a representation of window activity status in a file',
+    license     => 'GNU General Public License',
+    changed     => 'Wed Jul 19 23:59 EET 2006'
+);
+
+
+my $filename = $ENV{HOME} . '/.irssi/activity_file';
+my ($scriptname) = __PACKAGE__ =~ /Irssi::Script::(.+)/;
+my $last_values = {};
+
+sub item_status_changed {
+    my ($item, $oldstatus) = @_;
+    
+    return if ! ref $item->{server};
+
+    my $tag = $item->{server}{tag};
+    my $name = $item->{name};
+
+    return if ! $tag || ! $name;
+
+    store_status() if ! $last_values->{$tag}{$name} ||
+	$last_values->{$tag}{$name}{level} != $item->{data_level};
+}
+
+sub store_status {
+    my $new_values = {};
+    my @items = ();
+
+    for my $window ( sort { $a->{refnum} <=> $b->{refnum} } Irssi::windows() ) {
+
+    	for my $item ( $window->items() ) {
+
+            next if ! ref $item->{server};
+
+            my $tag = $item->{server}{tag};
+            my $name = $item->{name};
+
+            next if ! $tag || ! $name;
+
+            $new_values->{$tag}{$name} = {
+                tag => $tag,
+                name => $name,
+                level => $item->{data_level},
+                window => $window->{refnum},
+            };
+
+            push @items, $new_values->{$tag}{$name};
+        }
+    }
+
+    if ( open F, "+>>", $filename ) {
+
+        flock F, LOCK_EX;
+        seek F, 0, 0;
+        truncate F, 0;
+
+        for ( @items ) {
+            print F join(',', $_->{window}, $_->{level}, $_->{name}, $_->{tag});
+            print F "\n";
+        }
+
+        close F; # buffer is flushed and lock is released on close
+    }
+    else {
+        print 'Error in script '. "'$scriptname'" .': Could not open file '
+            . $filename .' for writing!';
+    }
+
+    $last_values = $new_values;
+
+}
+
+# store initial status
+store_status();
+
+Irssi::signal_add_last('window item activity', 'item_status_changed');
+
diff --git a/scripts/ai.pl b/scripts/ai.pl
new file mode 100644
index 0000000..d6dfd45
--- /dev/null
+++ b/scripts/ai.pl
@@ -0,0 +1,265 @@
+use Irssi;
+use Irssi::Irc;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.3";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'ai',
+	description=> 'Puts people on ignore if they do a public away. See source for options.',
+	license=> 'GPL v2',
+	url=> 'https://bc-bd.org/svn/repos/irssi/trunk/',
+);
+
+# $Id: ai.pl,v 1.4 2002/06/02 15:20:03 bd Exp $
+# for irssi 0.8.4 by bd@bc-bd.org
+#
+#########
+# USAGE
+###
+#
+# Examples:
+#
+#	Ignore people saying "away"
+#		/set ai_words away
+#
+#	Ignore people saying "gone for good" or "back"
+#		/set ai_words gone for good,back
+#
+#	Ignore people for 500 seconds
+#		/set ai_time 500
+#
+#	Ignore people forever
+#		/set ai_time 0
+#
+#	Ignore people only on channels #foo,#bar
+#		/set ai_ignore_only_in ON
+#		/set ai_channels #foo,#bar
+#
+#	Ignore people on all channels BUT #foo,#bar
+#		/set ai_ignore_only_in OFF
+#		/set ai_channels #foo,#bar
+# 
+#	Ignore people on all channels
+#		/set ai_ignore_only_in OFF
+#		/set -clear ai_channels
+#
+#	Perform a command on ignore (e.g send them a message)
+#		/set ai_command ^msg -$C $N no "$W" in $T please
+#	
+#	would become on #foo on chatnet bar from nick dude with "dude is away"
+#		/msg -cbar dude no "away" in #foo please
+#
+#	look further down for details
+#
+#	Per channel command on #irssi:
+#		/ai #irssi ^say foobar
+#
+#	delete channel command in #irssi:
+#		/ai #irssi
+#
+#########
+# OPTIONS
+#########
+#
+# /set ai_words [expr[,]+]+
+#		* expr  : comma seperated list of expressions that should trigger an ignore
+#		  e.g.  : away,foo,bar baz bat,bam
+#
+# /set ai_command [command]
+#		* command  : to be executed on a triggered ignore.
+#		  /set -clear ai_command to disable. The following $'s are expanded
+#		  ( see the default command for an example ):
+#		    $C : Chatnet (e.g. IRCnet, DALNet, ...)
+#		    $N : Nick (some dude)
+#		    $W : Word (the word(s) that triggered the ignore
+#		    $T : Target (e.g. the channel)
+#
+# /set ai_channels [#channel[ ]]+
+#		* #channel  : space seperated list of channels, see ai_ignore_only_in
+#
+# /set ai_time <seconds>
+#		* seconds  : number of seconds to wait before removing the ignore
+#
+# /set ai_ignore_only_in <ON|OFF>
+#		* ON  : only trigger ignores in ai_channels
+#		* OFF : trigger ignores in all channels EXCEPT ai_channels
+#
+# /set ai_display <ON|OFF>
+#		* ON  : log whole sentence
+#		* OFF : only log word that matched regex
+#
+###
+################
+###
+#
+# Changelog
+#
+# Version 0.4
+# 	- added optional sentence output
+#
+# Version 0.3
+#	- added per channel command support
+#	- the command is now executed in the channel the event occured
+#	- changed the expand char from % to $
+#
+# Version 0.2
+#  - changed MSGLVL_ALL to MSGLVL_ACTIONS to avoid problems
+#	  with channels with ignored Levels
+#
+# Version 0.1
+#  - initial release
+#
+###
+################
+
+sub expand {
+  my ($string, %format) = @_;
+  my ($exp, $repl);
+  $string =~ s/\$$exp/$repl/g while (($exp, $repl) = each(%format));
+  return $string;
+}
+
+sub combineSettings {
+	my ($setting,$string,$match) = @_;
+
+	$match =  quotemeta($match);
+
+	if ($setting) {
+		if ($string !~ /$match\b/i) {
+			return 1;
+		}
+	} else {
+		if ($string =~ /$match\b/i) {
+			return 1;
+		}
+	}
+
+	return 0;
+}
+
+sub sig_action() {
+	my ($server,$msg,$nick,$address,$target) = @_;
+	
+	my $command;
+
+	if ($server->ignore_check($nick, $address, $target, $msg, MSGLEVEL_ACTIONS)) {
+		return;
+	}
+
+	if (combineSettings(Irssi::settings_get_bool('ai_ignore_only_in'),
+		Irssi::settings_get_str('ai_channels'),$target)) {
+		return ;
+	}
+
+	my @words = split(',',Irssi::settings_get_str('ai_words'));
+
+	foreach (@words) {
+		if ($msg =~ /$_/i) {
+			my $word = $_;
+
+			my $sentence = $word;
+
+			my $channel = $server->channel_find($target);
+			my $n = $channel->nick_find($nick);
+
+			my $type = Irssi::Irc::MASK_USER | Irssi::Irc::MASK_DOMAIN;
+			my $mask = Irssi::Irc::get_mask($n->{nick}, $n->{host}, $type);
+			
+			my $time = Irssi::settings_get_int('ai_time');
+			if ($time == 0) {
+				$time = "";
+			} else {
+				$time = "-time ".$time;
+			}
+			Irssi::command("^ignore ".$time." $mask");
+
+			if (Irssi::settings_get_bool('ai_display')) {
+				$sentence = $msg
+			}
+			Irssi::print("Ignoring $nick$target\@$server->{chatnet} because of '$sentence'");
+
+			my %commands = stringToHash('`',Irssi::settings_get_str('ai_commands'));
+			if (defined $commands{$target}) {
+				$command = $commands{$target};
+			} else {
+				$command = Irssi::settings_get_str('ai_command');
+			}
+
+			if ($command ne "") {
+				$command = expand($command,"C",$server->{tag},"N",$nick,"T",$target,"W",$word);
+				$server->window_item_find($target)->command($command);
+				$server->window_item_find($target)->print($command);
+			}
+
+			return;
+		}
+	}
+}
+
+sub stringToHash {
+	my ($delim,$str) = @_;
+
+	return split($delim,$str);
+}
+
+sub hashToString {
+	my ($delim,%hash) = @_;
+
+	return join($delim,%hash);
+}
+
+sub colorCommand {
+	my ($com) = @_;
+
+	$com =~ s/\$(.)/%_\$$1%_/g;
+
+	return $com;
+}
+
+sub cmd_ai {
+	my ($data, $server, $channel) = @_;
+
+	my $chan = $data;
+	$chan =~ s/ .*//;
+	$data =~ s/^\Q$chan\E *//;
+
+	my %command = stringToHash('`',Irssi::settings_get_str('ai_commands'));
+
+	if ($chan eq "") {
+		foreach my $key (keys(%command)) {
+			Irssi::print("AI: %_$key%_ = ".colorCommand($command{$key}));
+		}
+	
+		Irssi::print("AI: placeholders: %_\$C%_)hatnet %_\$N%_)ick %_\$W%_)ord %_\$T%_)arget");
+		Irssi::print("AI: not enough parameters: ai <channel> [command]");
+
+		return;
+	}
+
+	if ($data eq "") {
+		delete($command{$chan});
+	} else {
+		$command{$chan} = $data;
+	}
+
+	Irssi::settings_set_str('ai_commands',hashToString('`',%command));
+
+	Irssi::print("AI: command on %_$chan%_ now: '".colorCommand($data)."'");
+}
+
+Irssi::command_bind('ai', 'cmd_ai');
+
+# "message irc action", SERVER_REC, char *msg, char *nick, char *address, char *target
+Irssi::signal_add_first('message irc action', 'sig_action');
+
+Irssi::settings_add_str('misc', 'ai_commands', '');
+Irssi::settings_add_str('misc', 'ai_words', 'away,gone,ist auf');
+Irssi::settings_add_str('misc', 'ai_command', '^msg -$C $N no "$W" in $T please');
+Irssi::settings_add_str('misc', 'ai_channels', '');
+Irssi::settings_add_int('misc', 'ai_time', 500);
+Irssi::settings_add_bool('misc', 'ai_ignore_only_in', 0);
+Irssi::settings_add_bool('misc', 'ai_display', 0);
diff --git a/scripts/aidle.pl b/scripts/aidle.pl
new file mode 100644
index 0000000..ddf92d1
--- /dev/null
+++ b/scripts/aidle.pl
@@ -0,0 +1,79 @@
+use Irssi 20020300;
+use Irssi::Irc;
+
+# /SET aidle_max_idle_time <seconds>
+# - specifies max possible idle time
+# /SET aidle_ircnets IRCNet EFnet
+# - specifies IRCNets where anty idler will be on
+# SET -clear aidle_ircnets makes aidle work on every network;
+# /SET aidle_only_when_away - makes aidler work only when you're away
+ 
+use vars qw($VERSION %IRSSI); 
+$VERSION = "1.1b";
+%IRSSI = (
+	authors 	=> "Maciek \'fahren\' Freudenheim",
+	contact 	=> "fahren\@bochnia.pl", 
+	name 		=> "Antyidler",
+	description 	=> "Antyidler with random time",
+	license 	=> "GNU GPLv2 or later",
+	changed		=> "Thu Jan  2 02:58:34 CET 2003"
+);
+
+# Changelog:
+# 1.1b
+# - removed "hoho, <chatnet>" message :)
+# 1.1
+# - added /set'tings
+# 1.0
+# - fixed that annoying "your_nick: is away blah blah" message
+
+my %aidle;
+
+Irssi::settings_add_int 'aidle', 'aidle_max_idle_time', '180';
+$aidle{'max'} = Irssi::settings_get_int 'aidle_max_idle_time';
+
+Irssi::settings_add_str 'aidle', 'aidle_ircnets', '';
+@{$aidle{'ircnets'}} = (split(/ +/, Irssi::settings_get_str('aidle_ircnets')));
+
+Irssi::settings_add_bool 'aidle', 'aidle_only_when_away', 0;
+$aidle{'away'} = Irssi::settings_get_bool 'aidle_only_when_away';
+
+$aidle{'timer'} = Irssi::timeout_add $aidle{'max'} * 1000, 'antyidlesend', '';
+
+sub antyidlesend {
+	for my $server (Irssi::servers()) {
+		next if (not $server->{'connected'} or ($aidle{'away'} and not $server->{'usermode_away'})
+			 or (@{$aidle{'ircnets'}} and not grep {lc $server->{'chatnet'} eq lc $_} @{$aidle{'ircnets'}}));
+		$server->send_raw("PRIVMSG " . $server->{nick} . " 
IDLE
");
+		Irssi::timeout_remove $aidle{'timer'};
+		$aidle{'timer'} = Irssi::timeout_add int(rand($aidle{'max'})+1) * 1000, 'antyidlesend', '';
+	}
+}
+
+Irssi::signal_add 'setup changed' => sub {
+	$aidle{'away'} = Irssi::settings_get_bool 'aidle_only_when_away';
+	my $new = Irssi::settings_get_int 'aidle_max_idle_time';
+	if ($new < $aidle{'max'}) {
+		Irssi::timeout_remove $aidle{'timer'};
+		$aidle{'timer'} = Irssi::timeout_add int(rand($new)+1) * 1000, 'antyidlesend', '';
+	}
+	$aidle{'max'} = $new;
+	@{$aidle{'ircnets'}} = (split(/[\s,|-]+/, Irssi::settings_get_str('aidle_ircnets')));
+	foreach $new (@{$aidle{'ircnets'}}) {
+		Irssi::print("%RWarning%n - no such chatnet \'$new\' !", MSGLEVEL_CLIENTERROR) unless (Irssi::chatnet_find($new));
+	}
+}; 
+
+Irssi::signal_add "event 301" => sub {
+	my ($server, $data) = @_;
+
+	my ($fnick, $snick, undef) = split(' ', $data);
+
+	Irssi::signal_stop() if $fnick eq $snick;
+};
+
+Irssi::signal_add "default ctcp msg" => sub {
+	my ($server, $data, $sender, $addr, $target) = @_;
+
+	Irssi::signal_stop() if ($sender eq $target && $data eq "IDLE");
+};
diff --git a/scripts/akftp.pl b/scripts/akftp.pl
new file mode 100644
index 0000000..0c93230
--- /dev/null
+++ b/scripts/akftp.pl
@@ -0,0 +1,96 @@
+###########################################################################
+# ak FTP-Ad v1.4
+# Copyright (C) 2003 ak
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
+# 02111-1307, USA.
+# Or check out here, eh ;) -> http://www.gnu.org/licenses/gpl.html    //ak
+###########################################################################
+
+# code follows .. nothing to do here for you,
+# just load the script into irssi with /script load akftp.pl
+# and enter /akftp for more information
+#############################################################
+
+use strict;
+use Irssi 20021117.1611 ();
+use vars qw($VERSION %IRSSI);
+	$VERSION = "1.4";
+	%IRSSI = (
+	        authors     => "ak",
+	        contact     => "ocb23\@freenet.removethis.de",
+	        name        => "ak FTP-Ad",
+	        description => "Full configurable FTP advertiser for Irssi",
+	        license     => "GPLv2",
+	        url         => "http://members.tripod.com.br/archiv/",
+	);
+
+
+use Irssi qw(
+	settings_get_bool settings_add_bool
+	settings_get_str  settings_add_str
+	settings_get_int  settings_add_int
+	print
+);
+
+sub cmd_list {
+        my ($server, $msg, $nick, $mask, $target) = @_;
+	my ($c1, $c2, $trigger, $targets);
+	$trigger=settings_get_str('akftp_trigger');
+	$targets=settings_get_str('akftp_channels');
+
+	if (!settings_get_bool('akftp_enable_add')) { return 0 }
+        if(!($target =~ $targets)) { return 0 }
+	elsif ($msg=~/^$trigger/){
+		$c1=settings_get_str('akftp_color1');
+		$c2=settings_get_str('akftp_color2');
+		$server->command("^NOTICE ".$nick." ".$c1."=(".$c2."FTP Online".$c1.")= \@(".
+		$c2.settings_get_str('akftp_host').$c1.") Port:(".$c2.settings_get_str('akftp_port').
+		$c1.") Login:(".$c2.settings_get_str('akftp_login').$c1.") Pass:(".
+		$c2.settings_get_str('akftp_pass').$c1.") Quicklink: ".$c2.
+		"ftp://".settings_get_str('akftp_login').":".settings_get_str('akftp_pass')."\@".
+		settings_get_str('akftp_host').":".settings_get_str('akftp_port')."/".
+		$c1." Notes:(".$c2.settings_get_str('akftp_notes').$c1.")");
+		# Irssi::signal_stop();
+ 	}
+}
+
+sub cmd_akftp {
+	print("%r.--------------------<%n%_ak FTP-Ad for Irssi%_%r>--------------------<");
+	print("%r|%n Configure the script with %_/set%_ commands, to see all values,");
+	print("%r|%n you can type \"%_/set akftp%_\".");
+	print("%r|%n You can configure multiple chans by separating them with %_|%_");
+	print("%r|%n You have to specify the colors with \"%_CTRL+C##%_\". where %_##%_");
+	print("%r|%n must be numbers between %_00%_ and %_15%_! Prefix 0-9 with a zero!");
+	print("%r|%n Note that \"%_/set akftp%_\" will show empty variables for colors,");
+	print("%r|%n even if they are already set.");
+	print("%r`------------------------------------------------------------->");
+}
+
+settings_add_bool('akftp', 'akftp_enable_add', 0);
+settings_add_str('akftp', 'akftp_login', "username");
+settings_add_str('akftp', 'akftp_pass', "password");
+settings_add_str('akftp', 'akftp_host', "your.dyndns-or-static.ip");
+settings_add_str('akftp', 'akftp_notes', "Don't hammer!");
+settings_add_str('akftp', 'akftp_channels', "#chan1|#chan2");
+settings_add_int('akftp', 'akftp_port', "21");
+settings_add_str('akftp', 'akftp_color1', "\00303");
+settings_add_str('akftp', 'akftp_color2', "\00315");
+settings_add_str('akftp', 'akftp_trigger', "!list");
+
+Irssi::signal_add_last('message public', 'cmd_list');
+Irssi::command_bind('akftp', 'cmd_akftp');
+
+#EOF
diff --git a/scripts/alame.pl b/scripts/alame.pl
new file mode 100644
index 0000000..3c590cc
--- /dev/null
+++ b/scripts/alame.pl
@@ -0,0 +1,36 @@
+use Irssi;
+use Irssi::Irc;
+use strict;
+use warnings;
+use vars qw($VERSION %IRSSI);
+$VERSION="0.0.1";
+%IRSSI = (
+	authors	=> 'Christian \'mordeth\' Weber',
+	contact	=> 'mordeth\@mac.com',
+	name	=> 'alame',
+	description	=> 'Converts towards lame speech',
+	license	=> 'GPL v2',
+	url	=> 'http://',
+);
+
+
+# USAGE:
+# /alame <text>
+# writes "text" in lamespeech to the current channel
+
+sub cmd_lamer {
+  my ($data, $server, $witem) = @_;
+  if (!$server || !$server->{connected}) {
+    Irssi::print("Not connected to server");
+    return;
+  }
+  if ($data) {
+    my $x; $_=$data; s/./$x=rand(6); $x>3?lc($&):uc($&)/eg; s/a/4/gi; s/c/(/gi;
+    s/d/|)/gi; s/e/3/gi; s/f/|=/gi; s/h/|-|/gi; s/i/1/gi; s/k/|</gi;
+    s/l/|_/gi; s!m!/\\/\\!gi; s!n!/\\/!gi; s/o/0/gi; s/s/Z/gi; s/t/7/gi;
+    s/u/|_|/gi; s!v!\\/!gi; s!w!\\/\\/!gi; #s/w/\/\//gi;
+    $witem->command("/SAY $_");
+  }
+}
+
+Irssi::command_bind('alamer', 'cmd_lamer');
diff --git a/scripts/amarok_ssh.pl b/scripts/amarok_ssh.pl
new file mode 100644
index 0000000..091c318
--- /dev/null
+++ b/scripts/amarok_ssh.pl
@@ -0,0 +1,285 @@
+# amarok by Tobias 'camel69' Wulff
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0";
+%IRSSI = (
+    authors     => "Tobias 'camel69' Wulff",
+    contact     => "camel69(at)codeeye.de",
+    name        => "amaroK (via ssh)",
+    description => "Retrievs song infos and controls amaroK via dcop, optionally running on another computer via ssh",
+    license     => "Public Domain",
+    commands	=> "amarok",
+    url		=> "http://www.codeeye.de/irssi/"
+);
+
+use Irssi;
+
+Irssi::settings_add_bool('amarok', 'amarok_use_ssh', 1);
+Irssi::settings_add_str('amarok', 'amarok_ssh_client', 'localhost');
+Irssi::settings_add_str('amarok', 'amarok_dcop_user', '');
+
+sub show_help() {
+    my $help = $IRSSI{name}." ".$VERSION."
+/amarok song [loud]
+    Prints the artist and title of the song which is currently played.
+    If the argument loud is given, all users in the current channel can
+    see what song you are currently listening.
+/amarok time [loud]
+    Prints the total time of the song as well as the played time
+    and remaining time. Same behaviour for given argument loud
+    as above.
+/amarok pause
+    Pauses (or unpauses) the current song.
+/amarok play
+    Plays the current song (again).
+/amarok stop
+    Stops the current song.
+/amarok next
+    Skips to the next song.
+/amarok prev
+    Skips to the previous song.
+/amarok seek [+|-]secs|min:secs
+    Seeks to the given position. If + or - is given amaroK seeks
+    relatively the amount of minutes and/or seconds to the
+    current position.
+/amarok vol [0 to 100]
+    Prints or changes the output volume of amaroK.
+/amarok mute
+    Toggles between volume 0 and the last used volume.
+/amarok help
+    Prints this help text.
+
+Settings you can change with /SET
+    amarok_use_ssh:    Enable or disable remote amaroK'ing
+    amarok_ssh_client: IP or hostname of the remote pc
+    amarok_dcop_user:  user who is running dcop and amaroK";
+    
+    print CLIENTCRAP $help;
+}
+
+my $preprint = '%Bamarok%n> ';
+
+# Load settings
+my $amarok_use_ssh = Irssi::settings_get_bool('amarok_use_ssh');
+my $ssh_client = Irssi::settings_get_str('amarok_ssh_client');
+my $dcop_user = Irssi::settings_get_str('amarok_dcop_user');
+
+sub cmd ($) {
+    my ($postcmd) = @_;
+    my $dcop_precmd = 'dcop --user '.$dcop_user.' amarok player';
+
+    if ($amarok_use_ssh == 1) {
+        #print "ssh ".$ssh_client." '".$dcop_precmd." ".$postcmd."'";
+        return `ssh $ssh_client '$dcop_precmd $postcmd'`;
+    } else {
+        #print $dcop_precmd.' '.$postcmd;
+        return `$dcop_precmd $postcmd`;
+    }
+}
+
+sub amarokSong ($$) {
+    my($witem, $me_cmd) = @_;
+    if ($me_cmd == 1) {
+        if (!$witem or $witem->{type} ne 'CHANNEL') {
+	    print CLIENTCRAP $preprint."The option 'loud' can only be used in channels.";
+            return;
+	}
+    }
+    
+    my $artist = cmd('artist');
+    my $title = cmd('title');
+    my $text = 'listening to '.$artist.' - '.$title;
+    $text =~ s/\n//g;
+
+    if ($me_cmd == 1) {
+        $witem->command("ME is ".$text);
+    } else {
+        print CLIENTCRAP $preprint.$text;
+    }
+}
+
+sub amarokTime($$) {
+    my ($witem, $me_cmd) = @_;
+    if ($me_cmd == 1 and (!$witem or $witem->{type} ne 'CHANNEL')) {
+        print CLIENTCRAP $preprint."The option 'loud' can only be used in channels.";
+        return;
+    }
+    
+    # Zeiten in Sekunden holen
+    my $time_total_secs = cmd('trackTotalTime');
+    my $time_played_secs = cmd('trackCurrentTime');
+    my $time_remaining_secs = $time_total_secs - $time_played_secs;
+
+    # Zeiten in richtige Minutenangabe umwandeln
+    my @time_total = (0, $time_total_secs % 60);
+    $time_total[0] = ($time_total_secs - $time_total[1]) / 60;
+    my @time_played = (0, $time_played_secs % 60);
+    $time_played[0] = ($time_played_secs - $time_played[1]) / 60;
+    my @time_remaining = (0, $time_remaining_secs % 60);
+    $time_remaining[0] = ($time_remaining_secs - $time_remaining[1]) / 60;
+
+    # Text bauen und ausgeben
+    # Gesamtzeit
+    my $text = 'Total time of track is '.$time_total[0].':';
+    if ($time_total[1] < 10) { $text .= '0'; }
+    $text .= $time_total[1];
+
+    # Gespielte Zeit
+    $text .= ' (played: '.$time_played[0].':';
+    if ($time_played[1] < 10) { $text .= '0'; }
+    $text .= $time_played[1];
+    
+    # Verbleibende Zeit
+    $text .= ' / remaining: '.$time_remaining[0].':';
+    if ($time_remaining[1] < 10) { $text .= '0'; }
+    $text .= $time_remaining[1].')';
+    
+    if ($me_cmd == 1) {
+        $witem->command("SAY ".$text);
+    } else {
+        print CLIENTCRAP $preprint.$text;
+    }
+}
+
+sub amarokSeek ($) {
+    my($time) = @_;
+    
+    # format correct?
+    # just seconds: + or -, some numbers (seconds)
+    # mm:ss format: + or -, some numbers (minutes), :, 2 numbers (seconds)
+    if ($time !~ /^(\+|-)?[0-9]+$/ and
+        $time !~ /^(\+|-)?[0-9]+:[0-9]{2}$/) {
+        print CLIENTCRAP $preprint.'%RERROR%n: Wrong time format (see help for correct format)!';
+	return;
+    }
+    
+    my $origtime = cmd('trackCurrentTime');
+
+    # Assume there's no + or -
+    my $seek_sign = '';
+    
+    # Check for + or - in $time
+    # If a sign is found save it in $seek_sign and remove
+    # it from $time.
+    $_ = $time;
+    if (/^\+/) {
+	$seek_sign = '+';
+	$time =~ s/^\+//g;
+    } elsif (/^-/) {
+	$seek_sign = '-';
+	$time =~ s/^-//g;
+    }
+
+    # Now split $timearg at ':' if there's one
+    my @timeparts = split(/:/, $time);
+
+    # time has format mm:ss
+    if (defined $timeparts[1]) {
+	# Convert $time into secs
+        $time = 60 * $timeparts[0] + $timeparts[1];
+    }
+
+    # if there's a + or - recalc $time
+    if ($seek_sign eq '+') {
+        $time = $origtime + $time;
+    } elsif ($seek_sign eq '-') {
+        $time = $origtime - $time;
+    }
+    
+    # print and do it
+    cmd('seek '.$time);
+    my $newtime = cmd('currentTime');
+    chomp($newtime);
+    print CLIENTCRAP $preprint.'Seeked to '.$newtime.'.';
+}
+
+sub cmd_amarok ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    
+    # enough arguments?
+    if (scalar(@arg) == 0) {
+        print CLIENTCRAP $preprint.'%RERROR%n: not enough arguments!';
+	return;
+    }
+
+    my $loud = 0;
+    if (defined $arg[1] && $arg[1] eq 'loud') { $loud = 1; }
+    
+    # is amaroK running?
+    # if so, is it currently playing?
+    # status = 0: stopped
+    #        = 1: paused
+    #        = 2: playing
+    my $status = cmd('status');
+    if ($status eq 'call failed') {
+        print CLIENTCRAP $preprint.'%RERROR%n: amaroK is not running!';
+	return;
+    } elsif ($status == 0 && $arg[0] ne 'play' && $arg[0] ne 'help' && $arg[0] ne 'vol' && $arg[0] ne 'mute') {
+        print CLIENTCRAP $preprint.'%RERROR%n: amaroK is not playing yet!';
+	print CLIENTCRAP $preprint.'Only the play, vol, mute and help commands are available.';
+	return;
+    }
+    
+    # amaroK is running and playing or some commands are available though.
+    if ($arg[0] eq 'song') {
+        amarokSong($witem, $loud);
+    } elsif ($arg[0] eq 'time') {
+        amarokTime($witem, $loud);
+    } elsif ($arg[0] eq 'pause') {
+        cmd('pause');
+	if ($status == 1) {
+	    print CLIENTCRAP $preprint.'Song unpaused.';
+	} elsif ($status == 2) {
+	    print CLIENTCRAP $preprint.'Song paused.';
+        }
+    } elsif ($arg[0] eq 'next') {
+        cmd('next');
+	print CLIENTCRAP $preprint.'Skipped to next song.';
+    } elsif ($arg[0] eq 'prev') {
+        cmd('prev');
+	print CLIENTCRAP $preprint.'Skipped to previous song.';
+    } elsif ($arg[0] eq 'play') {
+        cmd('play');
+	print CLIENTCRAP $preprint.'Playing song.';
+    } elsif ($arg[0] eq 'stop') {
+        cmd('stop');
+	print CLIENTCRAP $preprint.'Song stopped.';
+    } elsif ($arg[0] eq 'seek') {
+        if (!(defined $arg[1])) {
+	    print CLIENTCRAP $preprint.'Not enough arguments.';
+	} else {
+	    amarokSeek($arg[1]);
+	}
+    } elsif ($arg[0] eq 'vol') {
+        if (!(defined $arg[1])) {
+	    my $o_vol = cmd('getVolume');
+	    chomp($o_vol);
+	    print CLIENTCRAP $preprint.'Current volume is '.$o_vol.'%%.';
+	} else {
+	    if ($arg[1] < 0 or $arg[1] > 100) {
+	        print CLIENTCRAP $preprint.'Given volume is out of range (0-100)';
+		return;
+	    }
+	    cmd('setVolume '.$arg[1]);
+	    print CLIENTCRAP $preprint.'Volume changed to '.$arg[1].'%%.';
+	}
+    } elsif ($arg[0] eq 'mute') {
+        cmd('mute');
+	print CLIENTCRAP $preprint.'Mute toggled.';
+    } elsif ($arg[0] eq 'help') {
+        show_help();
+    } else {
+        print CLIENTCRAP $preprint.'%RERROR%n: Unknown command!';
+    }
+}
+
+Irssi::command_bind('amarok' => \&cmd_amarok);
+
+foreach my $cmd ('song', 'time', 'pause', 'play', 'stop', 'next', 'prev', 'seek', 'vol', 'mute', 'help') {
+    Irssi::command_bind('amarok '.$cmd =>
+        sub { cmd_amarok("$cmd ".$_[0], $_[1], $_[2]); } );
+}
+ 
+print CLIENTCRAP $preprint.$IRSSI{name}.' '.$VERSION.' loaded: type /amarok help for help';
diff --git a/scripts/amaroknp.pl b/scripts/amaroknp.pl
new file mode 100644
index 0000000..22b68de
--- /dev/null
+++ b/scripts/amaroknp.pl
@@ -0,0 +1,116 @@
+#!/usr/bin/perl
+
+# amaroknp.pl (0.1)
+
+# This is a simple script for irssi which (attempts to) show the current song played
+# by amaroK in the current channel or query window. It should output something like
+# this: <@mynick> np: Artist - Song (1:34 / 4:05). This script has been tested to work 
+# with amaroK 0.9, KDE 3.2.1 and irssi 0.8.9 (on Linux). Might not work with older
+# versions of amaroK.
+
+# !! The only thing you might want to change is $dcopbin (line 45) !!
+# !! and the format of $output (line 102) !!
+ 
+# TODO
+# - Cleaning up this mess :)
+# - Setting options
+# - Simple controls (play, pause, next, previous..)
+
+use vars qw($VERSION %IRSSI);
+use Irssi;
+use strict;
+$VERSION = '0.10';
+%IRSSI = (
+    authors	=> 'Tuukka Lukkala',
+    contact	=> 'ragdim at mbnet dot fi',
+    name	=> 'amaroknp',
+    description	=> 'Shows the song playing in amaroK in the active window (channel or query).',
+    license	=> 'GPL',
+    url		=> 'http://koti.mbnet.fi/ragdim/amaroknp/',
+    changed	=> 'Tue Mar 30 23:20 EET 2004',
+);
+
+# !! Adjust this to the full path of dcop if it's not in your PATH. eg. /opt/kde/bin/dcop !!
+my $dcopbin = "dcop";
+
+# Let's check if we have dcop..
+if (!`$dcopbin`) {
+	die "Couldn't find dcop executable.. Make sure dcop is in your PATH or edit dcoppath in the script";
+}
+
+sub cmd_amaroknp_help {
+
+print "";
+print "amaroknp script v0.1 for irssi";
+print "To announce the current song, type: /amarok";
+print "Requires KDE and amaroK";
+print "";
+
+}
+
+sub cmd_amaroknp {
+
+	my ($data, $server, $witem) = @_;
+	my $playing; 			# Whether amaroK is playing something or not
+	my $song; 			# The song currently playing
+	my $timenow;			# Current position in the song
+	my $timetotal;			# Total length of teh song
+	my $minutes;			# Current time converted to full minutes
+	my $seconds;			# Current time converted to seconds
+	my $minutestotal;		# Total amount of minutes
+	my $secondstotal;		# Total amount of seconds
+	my $output;			# The format in which all this is going -> channel
+	my $amaroktest;			# To see if amarok is running or not
+	my $amarokNOTrunning;		# Don't ask me.. :z
+
+	# ..and if amaroK is running (fix)
+	$amaroktest = `$dcopbin amarok 2> /dev/null`;
+	chomp($amaroktest);
+	if ($amaroktest =~ s/^$/No such application: 'amarok'/) {
+		print "amaroK isn't running?";
+		$amarokNOTrunning="nope";
+	}
+	# if amaroK is running, let's get teh infos!
+	if (!$amarokNOTrunning) {
+		$playing = `$dcopbin amarok default isPlaying`;
+		chomp($playing);
+		if ($playing eq 'false') {
+		print "amaroK isn't playing anything =I";
+		}
+
+		else {
+			# Get some infos
+			$song = `$dcopbin amarok default nowPlaying`;
+			chomp($song);
+			$timenow = `$dcopbin amarok default trackCurrentTime`;
+			# Converting times to a more readable format
+			$minutes = ($timenow/60)%60;
+			$seconds = $timenow%60;
+			# Add the leading zero
+			if ($seconds < 10) {
+				$seconds = "0" . $seconds;
+			}
+			$timetotal = `$dcopbin amarok default trackTotalTime`;
+			$timetotal = $timetotal/1000;
+			$minutestotal = ($timetotal/60)%60;
+			$secondstotal = $timetotal%60;
+			# Here too
+			if ($secondstotal < 10) {
+				$secondstotal = "0" . $secondstotal;
+			}
+			# The way it's gonna show up when we do /amarok
+			$output = "np: $song ($minutes:$seconds / $minutestotal:$secondstotal)";
+		}
+
+		if ($output) {
+			if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+				$witem->command("MSG ".$witem->{name}." $output");
+			}
+			else {
+				Irssi::print("This is not a channel/query window :b");
+			}
+		}
+	}
+}
+Irssi::command_bind('amarok', 'cmd_amaroknp');
+Irssi::command_bind('amarokhelp', 'cmd_amaroknp_help');
\ No newline at end of file
diff --git a/scripts/anotherway.pl b/scripts/anotherway.pl
new file mode 100644
index 0000000..f7a0ca8
--- /dev/null
+++ b/scripts/anotherway.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+#
+# by Stefan Tomanek <stefan@pico.ruhr.de>
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003010201";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "anotherway",
+    description => "Another auto away script",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+);
+use Irssi 20020324;
+use vars qw($timer @signals);
+
+@signals = ('message own_public', 'message own_private');
+
+sub go_away {
+    #Irssi::print "%R>>%n Going away...$timer";
+    Irssi::timeout_remove($timer);
+    my $reason = Irssi::settings_get_str("anotherway_reason");
+    my @servers = Irssi::servers();
+    return unless @servers;
+    Irssi::signal_remove($_ , "reset_timer") foreach (@signals);
+    $servers[0]->command('AWAY '.$reason);
+    Irssi::signal_add($_ , "reset_timer") foreach (@signals);
+}
+
+sub reset_timer {
+    #Irssi::print "%R>>%n RESET";
+    Irssi::signal_remove($_ , "reset_timer") foreach (@signals);
+    foreach (Irssi::servers()) {
+	$_->command('AWAY') if $_->{usermode_away};
+	last;
+    }
+    #Irssi::signal_add('nd', "reset_timer");
+    Irssi::timeout_remove($timer);
+    my $timeout = Irssi::settings_get_int("anotherway_timeout");
+    $timer = Irssi::timeout_add($timeout*1000, "go_away", undef);
+    Irssi::signal_add($_, "reset_timer") foreach (@signals);
+}
+
+Irssi::settings_add_str($IRSSI{name}, 'anotherway_reason', 'a-nother-way');
+Irssi::settings_add_int($IRSSI{name}, 'anotherway_timeout', 300);
+
+{
+    Irssi::signal_add($_, "reset_timer") foreach (@signals);
+    reset_timer();
+}
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded';
diff --git a/scripts/antiplenk.pl b/scripts/antiplenk.pl
new file mode 100644
index 0000000..40c0d50
--- /dev/null
+++ b/scripts/antiplenk.pl
@@ -0,0 +1,47 @@
+use Irssi;
+use 5.6.0;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.2.1";
+%IRSSI = (
+    authors => 'Grigori Goronzy',
+    contact => 'greg@chown.ath.cx',
+    name => 'antiplenk',
+    description => 'notices users who "plenk"',
+    license => 'BSD',
+    url => 'http://chown.ath.cx/~greg/antiplenk/',
+    changed => 'Mi 12 Feb 2003 07:00:05 CET',
+);
+
+Irssi::settings_add_str($IRSSI{'name'}, "plenk_channels", "#foobar|#barfoo");
+Irssi::settings_add_bool($IRSSI{'name'}, "plenk_spam", "1");
+Irssi::settings_add_int($IRSSI{'name'}, "plenk_allowed", "10");
+Irssi::signal_add_last('message public', 'plenk');
+my %times;
+
+Irssi::print "antiplenk $VERSION loaded";
+
+sub plenk {
+my ($server, $msg, $nick, $address, $channel) = @_;
+my $spam = Irssi::settings_get_bool("plenk_spam");
+my $allowed = Irssi::settings_get_int("plenk_allowed");
+
+# channel in list?
+if(!($channel =~ Irssi::settings_get_str("plenk_channels"))) { return 0 }
+
+# check..
+while($msg =~ /[[:alnum:]]+ (\.|\,|\?|\!|\: |\; )(\!|\1|\?|\ß|\.|\ |$)/g) {
+ # increment
+ $times{$nick}++;
+ # "debug"
+  if($spam) { Irssi::print "antiplenk: $nick plenked on $channel for the $times{$nick}" .
+  ($times{$nick} == 1 ? "st" : $times{$nick} == 2 ? "nd" : $times{$nick} == 3 ? "rd" : "th") .
+  " time" }
+ # too often?
+ if($times{$nick} > $allowed ) { 
+  $server->command("msg $nick antiplenk: you 'plenked' more than $allowed times! please stop this at once!");
+  Irssi::print "antiplenk: $nick got a notice";
+  $times{$nick} = 0; }
+ }
+}
diff --git a/scripts/apm.pl b/scripts/apm.pl
new file mode 100644
index 0000000..1cf5a24
--- /dev/null
+++ b/scripts/apm.pl
@@ -0,0 +1,121 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi::TextUI;
+
+$VERSION = "0.4";
+%IRSSI = (
+    authors     => "Alexander Wirt",
+    contact     => "formorer\@formorer.de",
+    name        => "apm",
+    description => "Shows your battery status in your Statusbar",
+    license     => "GNU Public License",
+    url         => "http://www.formorer.de/code",
+);
+
+
+#
+#apm.pl 
+#	apm.pl is a small script for displaying your Battery Level in irssi.
+#	Just load the script and do a /statusbar window add apm
+#	and a small box [BAT: +/-XX%] should be displayed this is only possible 
+#	on Computers where /proc/apm or /proc/acpi is existing. 
+#	The + or - indicates if battery is charging or discharging.
+#
+#	/set power_refresh <sec>    changes the refreshing time of the display
+#
+#
+#	Changelog:
+#
+#	0.3 - Added support for ACPI and enhanced APM support
+#	0.2 - Added apm_refresh and some documentation
+#	0.1 - Initial Release
+
+
+
+
+
+my ($refresh, $last_refresh, $refresh_tag) = (10);
+
+my ($acpi,$apm) = 0;
+
+
+if (-r "/proc/acpi") { $acpi = "yes" }
+if (-r "/proc/apm") { $apm = "yes" }
+
+exit unless ($apm or $acpi);
+
+
+sub get_apm {
+	open(RC, "/proc/apm");
+		my $line = <RC>;
+	close RC;
+	my ($ver1, $ver2, $sysstatus, $acstat, $chargstat, $batstatus, $prozent, $remain) = split(/\s/,$line);
+
+	if ($acstat eq "0x01") { return "+$prozent" } else { return "-$prozent" }
+}
+
+sub get_acpi {
+	open(RC, "/proc/acpi/ac_adapter/ACAD/state");
+		my $line = <RC>;
+	close RC;
+	my ($text,$state) = split (/:/,$line);
+	$state =~ s/\s//g;
+
+	open (RC, "/proc/acpi/battery/BAT0/info");
+	my ($text,$capa,$ein);
+	while (my $line = <RC>) {
+		if ($line =~ /last full capacity/) {
+			($text, $capa,$ein) = split (/:/,$line);
+			$capa =~ s/\s//g;
+		}
+	}
+	open (RC, "/proc/acpi/battery/BAT0/state"); 
+	my ($text,$remain,$ein);
+	while (my $line = <RC>) {
+		if ($line =~ /remaining capacity/) {
+			($text, $remain,$ein) = split (/:/,$line);
+			$remain =~ s/\s//g;
+		}
+	}
+	my $pstate = $remain / $capa * 100;
+	$pstate = sprintf("%2i", $pstate);
+
+	if ($state eq "off-line") { $pstate = "-$pstate%"; } else { $pstate = "+$pstate%"; }
+	return $pstate;
+}
+
+
+sub power {
+	my ($item, $get_size_only) = @_;
+	my $pstate;
+	if ($apm) {
+		$pstate = get_apm();
+	} else {
+		$pstate = get_acpi();
+	}
+	$item->default_handler($get_size_only, undef, "BAT:$pstate", 1 );
+	}
+
+
+sub set_power {
+	$refresh = Irssi::settings_get_int('power_refresh');
+	$refresh = 1 if $refresh < 1;
+	return if $refresh == $last_refresh;
+	$last_refresh = $refresh;
+	Irssi::timeout_remove($refresh_tag) if $refresh_tag;
+	$refresh_tag = Irssi::timeout_add($refresh*1000, 'refresh_power', undef);
+
+}
+
+
+sub refresh_power {
+	Irssi::statusbar_items_redraw('power');
+}
+
+Irssi::statusbar_item_register('power', '{sb $0-}', 'power');
+Irssi::statusbars_recreate_items();
+
+Irssi::settings_add_int('misc', 'power_refresh', $refresh);
+set_power();
+Irssi::signal_add('setup changed', 'set_power');
diff --git a/scripts/armeija.pl b/scripts/armeija.pl
new file mode 100644
index 0000000..5312bd6
--- /dev/null
+++ b/scripts/armeija.pl
@@ -0,0 +1,267 @@
+#!/usr/bin/perl -w
+# script to ignore boring messages in irc
+# it has a list of keywords which on a public message will cause someone
+# to be ignored for 60 seconds (changeable). also it ignores (tries to)
+# every message back to ignored people.
+#  - flux@inside.org
+
+# check out my other irssi-stuff at http://xulfad.inside.org/~flux/software/irssi/
+
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.4";
+%IRSSI = (
+    authors     => "Erkki Seppälä",
+    contact     => "flux\@inside.org",
+    name        => "Armeija Ignore",
+    description => "Ignores people bringin up boring/repeated subjects, plus replies.",
+    license     => "Public Domain",
+    url         => "http://xulfad.inside.org/~flux/software/irssi/",
+    changed     => "Tue Mar  5 00:06:35 EET 2002"
+);
+
+
+use Irssi::Irc;
+use strict;
+
+my $log = 0;
+my $logFile = "$ENV{HOME}/.irssi/armeija.log";
+
+my $retrigger = 0;
+my $wordFile = "$ENV{HOME}/.irssi/armeija.words";
+my $channelFile = "$ENV{HOME}/.irssi/armeija.channels";
+my $overflowLimit = 3;
+
+my @channels = ("#linux.fi");
+
+my @keywords = (
+
+# armeija
+  "\\barmeija", "\\brynkky", "\\bintti", "\\bintissä", "\\bgines", "\\btj\\b"
+, "\\bsaapumiserä", "\\bvarus(mies|nainen|täti)", "\\bvemppa", "\\bvempula"
+, "\\bvempa", "\\bveksi", "\\bsulkeiset", "\\bsulkeisi"
+, "\\bvlv\\b", "\\bhl\\b"
+
+# offtopic
+, "\\bsalkkari", "\\bsalatut eläm". "\\bsalattuja eläm"
+
+# urheilu
+,"\\bhiiht", "\\bhiihd", "\\bformula", "\\bolympia"
+
+);
+
+my %infected;
+my $timeout = 60;
+
+my $who = "";
+my $why = "";
+
+sub p0 {
+  my $a = $_[0];
+  while (length($a) < 2) {
+    $a = "0$a";
+  }
+  return $a;
+}
+
+sub why {
+  if ($who ne "") {
+    Irssi::print "$who was ignored: $why";
+  }
+}
+
+sub public {
+  my ($server, $msg, $nick, $address, $target) = @_;
+
+  local *F;
+
+  my $now = time;
+
+  my $skip = 1;
+  foreach my $channel (@channels) {
+    if (lc($target) eq lc($channel)) {
+      $skip = 0;
+      last;
+    }
+  }
+
+  if ($skip) {
+    return 0;
+  }
+
+  # check for keywords
+
+  my $count = 0;
+  foreach my $word (@keywords) {
+    if ($msg =~ /$word/i) {
+      ++$count;
+    }
+  }
+
+  if (($count >= 1) && ($count < $overflowLimit)) {
+    Irssi::print "Ignoring $nick";
+    $why = $msg;
+    $who = $nick;
+    if ($log) {
+      open(F, ">>$logFile");
+      my @t = localtime($now);
+      $t[5] += 1900;
+      print F "$t[5]-", p0($t[4] + 1), "-", p0($t[3]), " ",
+	p0($t[2]), ":", p0($t[1]), ":", p0($t[0]), " $who/$target: $why\n";
+      close(F);
+    }
+    if ($retrigger || !exists $infected{$nick}) {
+      $infected{$nick} = $now + $timeout;
+    }
+    Irssi::signal_stop();
+    return 1;
+  }
+
+  # check and expire old ignores 
+  if (exists $infected{$nick}) {
+    if ($infected{$nick} < $now) {
+      Irssi::print "Timed out: $nick";
+      delete $infected{$nick};
+    } else {
+      Irssi::signal_stop();
+      return 1;
+    }
+  }
+
+  # check for messages targetted to ignored people
+  foreach my $nick (keys %infected) {
+    if ($msg =~ /^$nick/i) {
+      # ignore messages to these people
+      Irssi::signal_stop();
+      return 1;
+    }
+  }
+
+  return 0;
+}
+
+sub logging {
+  my (@args) = @_;
+  if (@args) {
+    if ($args[0] eq "on") {
+      $log = 1;
+      Irssi::print("Armeija-logging on to file $logFile");
+    } elsif ($args[0] eq "off") {
+      $log = 0;
+      Irssi::print("Armeija-logging stopped");
+    } else {
+      $logFile = $args[0];
+      Irssi::print("Armeija-logfile set to $logFile");
+    }
+  } else {
+    Irssi::print("usage: armeija log [on|off|new log file name]"); 
+    Irssi::print("Log is " . ($log ? "on" : "off") . ", logfile is $logFile");
+  }
+}
+
+sub load {
+  local $/ = "\n";
+  local *F;
+  if (open(F, "< $wordFile")) {
+    @keywords = ();
+    while (<F>) {
+      chomp;
+      push @keywords, $_;
+    }
+    close(F);
+  } else {
+    Irssi::print("Failed to open wordfile $wordFile\n");
+  }
+  if (open(F, "< $channelFile")) {
+    @channels = ();
+    while (<F>) {
+      chomp;
+      push @channels, $_;
+    }
+    close(F);
+  }
+}
+
+sub save {
+  local *F;
+  if (open(F, "> $wordFile")) {
+    for (my $c = 0; $c < @keywords; ++$c) {
+      print F $keywords[$c], "\n";
+    }
+    close(F);
+  }
+  if (open(F, "> $channelFile")) {
+    for (my $c = 0; $c < @channels; ++$c) {
+      print F $channels[$c], "\n";
+    }
+    close(F);
+  }
+}
+
+sub retrigger {
+  if (@_ == 1) {
+    if ($_[0] eq "on") {
+      Irssi::print "Armeija retrigger on";
+      $retrigger = 1;
+    } elsif ($_[0] eq "off") { 
+      Irssi::print "Armeija retrigger off";
+      $retrigger = 0;
+    } else {
+      Irssi::print("Invalid armeija trigger state");
+    }
+  } else {
+    Irssi::print("usage: /armeija retrigger [on|off]");
+  }
+}
+
+sub armeija {
+  my (@args) = split(" ", $_[0]);
+  if (@args) {
+    if ($args[0] eq "why") {
+      why();
+    } elsif ($args[0] eq "log") {
+      my @a = @args;
+      shift @a;
+      logging(@a);
+    } elsif ($args[0] eq "load") {
+      load();
+    } elsif ($args[0] eq "save") { 
+      save();
+    } elsif ($args[0] eq "+word") {
+      my @a = @args;
+      shift @a;
+      push @keywords, join(" ", @a);
+      save();
+    } elsif ($args[0] eq "-word") {
+      my @a = @args;
+      shift @a;
+      for (my $c = 0; $c < @keywords; ++$c) {
+        for (my $d = 0; $d < @a;) {
+          if ($a[$d] eq $keywords[$c]) {
+            splice @keywords, $c, 1;
+          } else { 
+            ++$d;
+          }
+        }
+      }
+      save();
+    } elsif ($args[0] eq "words") {
+      Irssi::print(join(", ", @keywords));
+    } elsif ($args[0] eq "retrigger") {
+      my @a = @args;
+      shift @a;
+      retrigger(@a);
+    } else {
+      Irssi::print("Invalid armeija command");
+    }
+  } else {
+    Irssi::print("Armeija usage: armeija [log [off|on|filename]|load|save|+word word|-word word|words]");
+  }
+}
+
+Irssi::signal_add("message public", "public");
+Irssi::command_bind("armeija", "armeija");
+
+Irssi::print "Armeija-ignore v$VERSION by $IRSSI{contact}";
+load();
diff --git a/scripts/ascii.pl b/scripts/ascii.pl
new file mode 100644
index 0000000..557ebb0
--- /dev/null
+++ b/scripts/ascii.pl
@@ -0,0 +1,405 @@
+#
+# Commands: /ASCII, /COLSAY, /COLME, /COLTOPIC, /COLKICK, /COLQUIT
+# Usage:
+#	/ASCII [-c1234] [-f <fontname>] [-p <prefix>] [-l|-s|-m <where>] <text>
+#	/COLSAY [-1234] [-m <where>] <text>
+#	/COLME [-1234] <text>
+#	/COLTOPIC [-1234] <text>
+#	/COLKICK [-1234] [nick(,nick_1,...,nick_n)] <reason>
+#	/COLQUIT [-1234] <reason>
+# Settings:
+#	/SET ascii_figlet_path [path]
+#	/SET ascii_default_font [fontname]	
+#	/SET ascii_default_colormode [1-4]
+#	/SET ascii_default_prefix [prefix]
+#	/SET ascii_default_kickreason [reason]
+#	/SET ascii_default_quitreason [reason]
+#
+# Script is bassed on figlet.
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.6.3";
+%IRSSI = (
+	"authors"       => "Marcin Rozycki",
+	"contact"       => "derwan\@irssi.pl",
+	"name"          => "ascii-art",
+	"description"   => "Ascii-art bassed on figlet. Available commands: /ASCII, /COLSAY, /COLME, /COLTOPIC, /COLKICK, /COLQUIT.",
+	"url"           => "http://derwan.irssi.pl",
+	"license"       => "GNU GPL v2",
+	"changed"       => "Fri Jun 21 17:17:53 CEST 2002"
+);
+
+use IPC::Open3;
+
+# defaults
+my $ascii_default_font = "small.flf";
+my $ascii_default_kickreason = "Irssi BaBy!";
+my $ascii_default_quitreason = "I Quit!";
+my $ascii_last_color = undef;
+my @ascii_colors = (12, 12, 12, 9, 5, 4, 13, 8, 7, 3, 11, 10, 2, 6, 6, 6, 6, 10, 8, 7, 4, 3, 9, 11, 2, 12, 13, 5);
+
+# registering themes
+Irssi::theme_register([
+	'ascii_not_connected',		'%_$0:%_ You\'re not connected to server',
+	'ascii_not_window',		'%_$0:%_ Not joined to any channel or query window',
+	'ascii_not_chanwindow',		'%_$0:%_ Not joined to any channel',
+	'ascii_not_chanop',		'%_$0:%_ You\'re not channel operator in {hilight $1}',
+	'ascii_figlet_notfound',	'%_Ascii:%_ Cannot execute {hilight $0} - file not found or bad permissions',
+	'ascii_figlet_notset',		'%_Ascii:%_ Cannot find external program %_figlet%_, usign /SET ascii_figlet_path [path], to set it',
+	'ascii_cmd_syntax',		'%_$0:%_ $1, usage: $2',
+	'ascii_figlet_error',		'%_Ascii: Figlet returns error:%_ $0-',
+	'ascii_fontlist',		'%_Ascii:%_ Available fonts [in $0]: $1 ($2)',
+	'ascii_empty_fontlist',		'%_Ascii:%_ Cannot find figlet fonts in $0',
+	'ascii_unknown_fontdir',	'%_Ascii:%_ Cannot find figlet fontdir',
+	'ascii_show_line',		'$0-'
+
+]);
+
+# str find_figlet_path()
+sub find_figlet_path {
+	foreach my $dir (split(/\:/, $ENV{'PATH'}))
+	{
+		return "$dir/figlet" if ($dir and -x "$dir/figlet");
+	}
+}
+
+# int randcolor()
+sub randcolor {
+	return $ascii_colors[int(rand(12)+2)];
+}
+
+# str colorline($colormode, $text)
+sub colorline {
+	my ($colormode, $text) = @_;
+	my $colortext = undef;
+	my $last = ($ascii_last_color) ? $ascii_last_color : randcolor();
+	my $indx = $last;
+
+	if ($colormode =~ /3/) {
+		$ascii_last_color = randcolor();
+	}elsif ($colormode =~ /4/) {
+		$ascii_last_color = $ascii_colors[$last];
+	}elsif ($colormode !~ /2/) {
+		$ascii_last_color = $ascii_colors[14+$last];
+	}
+
+	while ($text =~ /./g)
+	{
+		my $char = "$&";
+
+		if ($colormode =~ /3/) {
+			while ($indx == $last) { $indx = randcolor(); };
+			$last = $indx;
+		}elsif ($colormode =~ /4/) {
+			$indx = $ascii_colors[$indx];
+		}elsif ($last) {
+			$indx = $ascii_colors[$last];
+			undef $last;
+		} else {
+			$indx = $ascii_colors[$indx];
+			$last = $indx + 14;
+		};
+
+		$colortext .= $char, next if ($char eq " ");
+		$colortext .= "\003" . sprintf("%02d", $indx) . $char;
+		$colortext .= $char if ($char eq ",");
+	};
+
+	return $colortext;
+};
+
+# int colormode()
+sub colormode {
+	my $mode = Irssi::settings_get_int("ascii_default_colormode");
+	$mode =~ s/-//g;
+	return (!$mode or $mode > 4) ? 1 : $mode;
+};
+
+# bool ascii_test($command, $flags, $server, $window)
+sub ascii_test {
+	my ($cmd, $test, $server, $window) = @_;
+
+	if ($test =~ /s/ and !$server || !$server->{connected}) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_not_connected", $cmd);
+		return 0;
+	};
+	if ($test =~ /W/ and !$window || $window->{type} !~ /(channel|query)/i) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_not_window", $cmd);
+		return 0;
+	};
+	if ($test =~ /(w|o)/ and !$window || $window->{type} !~ /channel/i) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_not_chanwindow", $cmd);
+		return 0;
+	};
+	if ($test =~ /o/ and !$window->{chanop}) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_not_chanop", $cmd, Irssi::active_win()->get_active_name());
+		return 0;
+	};
+
+	return 1;
+}
+
+# void cmd_ascii()
+# handles /ascii
+sub cmd_ascii
+{
+	my $usage = "/ASCII [-c1234] [-f <fontname>] [-p <prefix>] [-l|-s|-m <where>] <text>";
+	my $font = Irssi::settings_get_str("ascii_default_font");
+	my $prefix = Irssi::settings_get_str("ascii_default_prefix");
+	my ($arguments, $server, $witem) = @_;
+	my ($text, $cmd, $mode);
+
+	$font = $ascii_default_font unless ($font);
+	$ascii_last_color = randcolor();
+
+	my $figlet = Irssi::settings_get_str("ascii_figlet_path");
+	if (!$figlet or !(-x $figlet)) {
+		my $theme = ($figlet) ? "ascii_figlet_notfound" : "ascii_figlet_notset";
+		Irssi::printformat(MSGLEVEL_CRAP, $theme, $figlet);
+		return;
+	};
+
+	my @foo = split(/ +/, $arguments);
+	while ($_ = shift(@foo))
+	{
+		/^-l$/ and show_figlet_fonts($figlet), return;
+		/^-c$/ and $mode = colormode(), next;
+		/^-(1|2|3|4)$/ and s/-//g, $mode = $_, next;
+		/^-f$/ and $font = shift(@foo), next;
+		/^-p$/ and $prefix = shift(@foo), next;
+		/^-m$/ and $cmd = shift(@foo), next;
+		/^-s$/ and $cmd =  0, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Ascii", "Unknown argument: $_", $usage), return;
+		$text = ($#foo < 0) ? $_ : $_ . " " . join(" ", @foo);
+		last;
+	}
+
+	unless (length($text)) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Ascii", "Missing arguments", $usage);
+		return;
+	};
+
+	if ($cmd eq "") {
+		return unless (ascii_test("Ascii", "sW", $server, $witem));
+		$cmd = Irssi::active_win()->get_active_name();
+	} elsif ($cmd ne "0" and !ascii_test("Ascii", "s", $server, $witem)) {
+		return;
+	}
+
+	my $pid = open3(*FIGIN, *FIGOUT, *FIGERR, $figlet, qw(-k -f), $font, $text);
+
+	while (<FIGOUT>)
+	{
+		chomp;
+		next unless (/[^ ]/);
+		$_ = colorline($mode, $_) if ($mode);
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, "ascii_show_line", $prefix.$_), next if ($cmd eq "0");
+		$server->command("msg $cmd $prefix$_");
+	}
+
+	while (<FIGERR>)
+	{
+		chomp;
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_figlet_error", $_);
+	};
+
+	close FIGIN;
+	close FIGOUT;
+	close FIGERR;
+
+	waitpid $pid, 0;
+}
+
+# void show_figlet_fonts(figlet path)
+sub show_figlet_fonts {
+	my @fontlist;
+	if (my $fontdir = `"$_[0]" -I 2 2>/dev/null`) {
+		chomp $fontdir;
+		foreach my $font (glob $fontdir."/*.flf")
+		{
+			$font =~ s/^$fontdir\///;
+			$font =~ s/\.flf$//;
+			push @fontlist, $font;
+		}
+		if ($#fontlist < 0) {
+			Irssi::printformat(MSGLEVEL_CRAP, "ascii_fontlist_empty", $fontdir);
+		} else {
+			Irssi::printformat(MSGLEVEL_CRAP, "ascii_fontlist", $fontdir, join(", ", @fontlist), scalar(@fontlist));
+		}
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_unknown_fontdir");
+	}
+}
+
+# void cmd_colsay()
+# handles /colsay
+sub cmd_colsay {
+	my $usage = "/COLSAY [-1234] [-m <where>] <text>";
+	my ($arguments, $server, $witem) = @_;
+	my ($cmd, $text);
+	my $mode = colormode();
+
+	$ascii_last_color = randcolor();
+
+	my @foo = split(/ /, $arguments);
+	while ($_ = shift(@foo))
+	{
+		/^-(1|2|3|4)$/ and $mode = $_, next;
+		/^-m$/i and $cmd = shift(@foo), next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colsay", "Unknown argument: $_", $usage), return;
+		$text = ($#foo < 0) ? $_ : $_ . " " . join(" ", @foo);
+		last;
+	};
+
+	unless (length($text)) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colsay", "Missing arguments", $usage);
+		return;
+	};
+
+	if ($cmd) {
+		return unless (ascii_test("Colsay", "s", $server, $witem));
+	} else {
+		return unless (ascii_test("Colsay", "sW", $server, $witem));
+		$cmd = Irssi::active_win()->get_active_name();
+	};
+
+	$server->command("msg $cmd ".colorline($mode, $text));
+}
+
+
+sub cmd_colme {
+	my $usage = "/COLME [-1234] <text>";
+	my ($arguments, $server, $witem) = @_;
+	my $mode = colormode();
+	my $text;
+
+	$ascii_last_color = randcolor();
+
+	my @foo = split(/ /, $arguments);
+	while ($_ = shift(@foo))
+	{
+		/^-(1|2|3|4)$/ and $mode = $_, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colme", "Unknown argument: $_", $usage), return;
+		$text = ($#foo < 0) ? $_ : $_ . " " . join(" ", @foo);
+		last;
+	};
+
+	unless (length($text)) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colme", "Missing arguments", $usage);
+		return;
+	};
+
+	return unless (ascii_test("Colme", "sW", $server, $witem));
+	$witem->command("me ".colorline($mode, $text));
+}
+
+# void cmd_coltopic()
+# handles /coltopic
+sub cmd_coltopic {
+	my $usage = "/COLTOPIC [-1234] <text>";
+	my ($arguments, $server, $witem) = @_;
+	my $mode = colormode();
+	my $text;
+
+	$ascii_last_color = randcolor();
+
+	my @foo = split(/ /, $arguments);
+	while ($_ = shift(@foo))
+	{
+		/^-(1|2|3|4)$/ and $mode = $_, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Coltopic", "Unknown argument: $_", $usage), return;
+		$text = ($#foo < 0) ? $_ : $_ . " " . join(" ", @foo);
+		last;
+	};
+
+	unless (length($text)) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Coltopic", "Missing arguments", $usage);
+		return;
+	};
+
+	return unless (ascii_test("Coltopic", "sw", $server, $witem));
+
+	$server->command("topic " . Irssi::active_win()->get_active_name() . " " . colorline($mode, $text));
+};
+
+# void cmd_colkick()
+# handles /colkick
+sub cmd_colkick {
+	my $usage = "/COLKICK [-1234] [nick(,nick_1,...,nick_n)] <reason>";
+	my ($arguments, $server, $witem) = @_;
+	my $kickreason = Irssi::settings_get_str("ascii_default_kickreason");
+	my $mode = colormode();
+	my $who = undef;
+
+	$ascii_last_color = randcolor();
+	$kickreason = $ascii_default_kickreason unless ($kickreason);
+
+	my @foo = split(/ /, $arguments);
+	while ($_ = shift(@foo))
+	{
+		/^-(1|2|3|4)$/ and $mode = $_, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colkick", "Unknown argument: $_", $usage), return;
+		$kickreason = join(" ", @foo) if ($#foo >= 0);
+		$who = $_;
+		last;
+	};
+
+	if (!$who or !length($kickreason)) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colkick", "Missing arguments", $usage);
+		return;
+	};
+
+	return unless (ascii_test("Colkick", "swo", $server, $witem));
+	$witem->command("kick $who ".colorline($mode, $kickreason));
+};
+
+# void cmd_colquit()
+# handles /colquit
+sub cmd_colquit {
+	my $usage = "/COLQUIT [-1234] <reason>";
+	my ($arguments, $server, $witem) = @_;
+	my $quitreason = Irssi::settings_get_str("ascii_default_quitreason");
+	my $mode = colormode();
+
+	$ascii_last_color = randcolor();
+	$quitreason = $ascii_default_quitreason unless ($quitreason);
+
+	my @foo = split(/ /, $arguments);
+	while ($_ = shift(@foo))
+	{
+		/^-(1|2|3|4)$/ and $mode = $_, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colquit", "Unknown argument: $_", $usage), return;
+		$quitreason = ($#foo < 0) ? $_ : $_ . " " . join(" ", @foo);
+		last;
+	};
+
+	unless (length($quitreason)) {
+		Irssi::printformat(MSGLEVEL_CRAP, "ascii_cmd_syntax", "Colquit", "Missing arguments", $usage);
+		return;
+	};
+
+	return unless (ascii_test("Colquit", "s", $server, $witem));
+	$server->command("quit " . colorline($mode, $quitreason));
+}
+
+# registering settings
+Irssi::settings_add_str("misc", "ascii_default_font", $ascii_default_font);
+Irssi::settings_add_str("misc", "ascii_default_kickreason", $ascii_default_kickreason);
+Irssi::settings_add_str("misc", "ascii_default_quitreason", $ascii_default_quitreason);
+Irssi::settings_add_str("misc", "ascii_default_prefix", "");
+Irssi::settings_add_int("misc", "ascii_default_colormode", 1);
+Irssi::settings_add_str("misc", "ascii_figlet_path", find_figlet_path);
+
+# binding commands
+Irssi::command_bind("ascii", "cmd_ascii");
+Irssi::command_bind("colsay", "cmd_colsay");
+Irssi::command_bind("colme", "cmd_colme");
+Irssi::command_bind("coltopic", "cmd_coltopic");
+Irssi::command_bind("colkick", "cmd_colkick");
+Irssi::command_bind("colquit", "cmd_colquit");
diff --git a/scripts/auto_whois.pl b/scripts/auto_whois.pl
new file mode 100644
index 0000000..0f4fe29
--- /dev/null
+++ b/scripts/auto_whois.pl
@@ -0,0 +1,79 @@
+# /WHOIS all the users who send you a private message.
+# v0.9 for irssi by Andreas 'ads' Scherbaum
+# idea and some code taken from autowhois.pl from Timo Sirainen
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+
+$VERSION = "0.9";
+%IRSSI = (
+    authors	=> "Andreas \'ads\' Scherbaum",
+    contact	=> "ads\@ufp.de",
+    name	=> "auto_whois",
+    description	=> "/WHOIS all the users who send you a private message.",
+    license	=> "GPL",
+    url		=> "http://irssi.org/",
+    changed	=> "2004-02-10",
+    changes	=> "v0.9: don't /WHOIS if query exists for the nick already"
+);
+
+# History:
+#  v0.9: don't /WHOIS if query exists for the nick already
+#        now we store all nicks we have seen in the last 10 minutes
+
+my @seen = ();
+
+sub msg_private_first {
+  my ($server, $msg, $nick, $address) = @_;
+
+  # go through every stored connection and remove, if timed out
+  my $time = time();
+  my ($connection);
+  my @new = ();
+  foreach $connection (@seen) {
+    if ($connection->{lasttime} >= $time - 600) {
+      # is ok, use it
+      push(@new, $connection);
+      # all timed out connections will be dropped
+    } 
+  }
+  @seen = @new;
+}
+
+sub msg_private {
+  my ($server, $msg, $nick, $address) = @_;
+
+  # look, if we already know this connection
+  my ($connection, $a);
+  my $known_to_us = 0;
+  for ($a = 0; $a <= $#seen; $a++) {
+    $connection = $seen[$a];
+    # the lc() works not exact, because irc uses another charset
+    if ($connection->{server} eq $server->{address} and $connection->{port} eq $server->{port} and lc($connection->{nick}) eq lc($nick)) {
+      $known_to_us = 1;
+      # mark as refreshed
+      $seen[$a]->{lasttime} = time();
+      last;
+    }
+  }
+
+  if ($known_to_us == 1) {
+    # all ok, return
+    return;
+  }
+
+  # now store the new connection
+  $connection = {};
+  # store our own server data here
+  $connection->{server} = $server->{address};
+  $connection->{port} = $server->{port};
+  # and the nick who queried us
+  $connection->{nick} = $nick;
+  $connection->{lasttime} = time();
+  $connection->{starttime} = time();
+  push(@seen, $connection);
+
+  $server->command("whois $nick");
+}
+
+Irssi::signal_add_first('message private', 'msg_private_first');
+Irssi::signal_add('message private', 'msg_private');
diff --git a/scripts/autoaway.pl b/scripts/autoaway.pl
new file mode 100644
index 0000000..26fc3b0
--- /dev/null
+++ b/scripts/autoaway.pl
@@ -0,0 +1,142 @@
+# /AUTOAWAY <n> - Mark user away after <n> seconds of inactivity
+# /AWAY - play nice with autoaway
+# New, brighter, whiter version of my autoaway script. Actually works :)
+# (c) 2000 Larry Daffner (vizzie@airmail.net)
+#     You may freely use, modify and distribute this script, as long as
+#      1) you leave this notice intact
+#      2) you don't pretend my code is yours
+#      3) you don't pretend your code is mine
+#
+# share and enjoy!
+
+# A simple script. /autoaway <n> will mark you as away automatically if
+# you have not typed any commands in <n> seconds. (<n>=0 disables the feature)
+# It will also automatically unmark you away the next time you type a command.
+# Note that using the /away command will disable the autoaway mechanism, as
+# well as the autoreturn. (when you unmark yourself, the autoaway wil
+# restart again)
+
+# Thanks to Adam Monsen for multiserver and config file fix
+
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.3";
+%IRSSI = (
+    authors => 'Larry "Vizzie" Daffner',
+    contact => 'vizzie@airmail.net',
+    name => 'Automagic away setting',
+    description => 'Automatically goes  away after defined inactivity',
+    license => 'BSD',
+    url => 'http://www.flamingpackets.net/~vizzie/irssi/',
+    changed => 'Tue Oct 19 14:41:15 CDT 2010',
+    changes => 'Applied multiserver/store config patch from Adam Monsen'
+);
+
+my ($autoaway_sec, $autoaway_to_tag, $autoaway_state);
+$autoaway_state = 0;
+
+#
+# /AUTOAWAY - set the autoaway timeout
+#
+sub cmd_autoaway {
+  my ($data, $server, $channel) = @_;
+  
+  if (!($data =~ /^[0-9]+$/)) {
+    Irssi::print("autoaway: usage: /autoaway <seconds>");
+    return 1;
+  }
+  
+  $autoaway_sec = $data;
+  
+  if ($autoaway_sec) {
+    Irssi::settings_set_int("autoaway_timeout", $autoaway_sec);
+    Irssi::print("autoaway timeout set to $autoaway_sec seconds");
+  } else {
+    Irssi::print("autoway disabled");
+  }
+  
+  if (defined($autoaway_to_tag)) {
+    Irssi::timeout_remove($autoaway_to_tag);
+    $autoaway_to_tag = undef;
+  }
+
+  if ($autoaway_sec) {
+    $autoaway_to_tag =
+      Irssi::timeout_add($autoaway_sec*1000, "auto_timeout", "");
+  }
+}
+
+#
+# away = Set us away or back, within the autoaway system
+sub cmd_away {
+  my ($data, $server, $channel) = @_;
+  
+  if ($data eq "") {
+    $autoaway_state = 0;
+    # If $autoaway_state is 2, we went away by typing /away, and need
+    # to restart autoaway ourselves. Otherwise, we were autoaway, and
+    # we'll let the autoaway return take care of business.
+
+    if ($autoaway_state eq 2) {
+      if ($autoaway_sec) {
+	$autoaway_to_tag =
+	  Irssi::timeout_add($autoaway_sec*1000, "auto_timeout", "");
+      }
+    }
+  } else {
+    if ($autoaway_state eq 0) {
+      Irssi::timeout_remove($autoaway_to_tag);
+      $autoaway_to_tag = undef;
+      $autoaway_state = 2;
+    }
+  }
+}
+
+sub auto_timeout {
+  my ($data, $server) = @_;
+
+  # we're in the process.. don't touch anything.
+  $autoaway_state = 3;
+  foreach my $server (Irssi::servers()) {
+      $server->command("/AWAY autoaway after $autoaway_sec seconds");
+  }
+
+  Irssi::timeout_remove($autoaway_to_tag);
+  $autoaway_state = 1;
+}
+
+sub reset_timer {
+   if ($autoaway_state eq 1) {
+     $autoaway_state = 3;
+     foreach my $server (Irssi::servers()) {
+         $server->command("/AWAY");
+     }
+     
+     $autoaway_state = 0;
+   } 
+  if ($autoaway_state eq 0) {
+    if (defined($autoaway_to_tag)) {
+      Irssi::timeout_remove($autoaway_to_tag);
+      $autoaway_to_tag = undef();
+    }
+    if ($autoaway_sec) {
+      $autoaway_to_tag = Irssi::timeout_add($autoaway_sec*1000
+					    , "auto_timeout", "");
+    }
+  }
+}
+
+Irssi::settings_add_int("misc", "autoaway_timeout", 0);
+
+$autoaway_default = Irssi::settings_get_int("autoaway_timeout");
+if ($autoaway_default) {
+  $autoaway_to_tag =
+    Irssi::timeout_add($autoaway_default*1000, "auto_timeout", "");
+
+}
+
+Irssi::command_bind('autoaway', 'cmd_autoaway');
+Irssi::command_bind('away', 'cmd_away');
+Irssi::signal_add('send command', 'reset_timer');
diff --git a/scripts/autochannel.pl b/scripts/autochannel.pl
new file mode 100644
index 0000000..f7c6f71
--- /dev/null
+++ b/scripts/autochannel.pl
@@ -0,0 +1,90 @@
+#! /usr/bin/perl
+#
+#    $Id: autochannel.pl,v 1.2 2007/09/20 06:58:11 peder Exp $
+#
+# Copyright (C) 2007 by Peder Stray <peder@ninja.no>
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+use Data::Dumper;
+$Data::Dumper::Indent = 1;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = ' $Revision: 1.2 $ ' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'autochannel',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/autochannel.pl',
+          license     => 'GPL',
+          description => 'Auto add channels to channel list on join',
+         );
+
+# ======[ Signal hooks ]================================================
+
+# "message join", SERVER_REC, char *channel, char *nick, char *address
+sub sig_message_join {
+    my($server,$channel,$nick,$addr) = @_;
+
+    return unless $nick eq $server->{nick};
+    return unless $server->{chatnet};
+    return unless Irssi::settings_get_bool('channel_add_on_join');
+    
+    Irssi::command(sprintf "channel add %s %s %s",
+		   Irssi::settings_get_bool('channel_add_with_auto')
+		   ? '-auto' : '',
+		   $channel,
+		   $server->{chatnet},
+		  );
+}
+
+# "message part", SERVER_REC, char *channel, char *nick, char *address, char *reason
+sub sig_message_part {
+    my($server,$channel,$nick,$addr,$reason) = @_;
+
+    return unless $nick eq $server->{nick};
+    return unless $server->{chatnet};
+    return unless
+      Irssi::settings_get_bool('channel_remove_on_part') ||
+	  Irssi::settings_get_bool('channel_remove_auto_on_part');
+
+    if (Irssi::settings_get_bool('channel_remove_on_part')) {
+	Irssi::command(sprintf "channel remove %s %s",
+		       $channel,
+		       $server->{chatnet},
+		      );
+    }
+    elsif (Irssi::settings_get_bool('channel_remove_auto_on_part')) {
+	Irssi::command(sprintf "channel add %s %s %s",
+		       '-noauto',
+		       $channel,
+		       $server->{chatnet},
+		      );
+    }
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Settings ]--------------------------------------------------
+
+Irssi::settings_add_bool('autochannel', 'channel_add_on_join', 1);
+Irssi::settings_add_bool('autochannel', 'channel_add_with_auto', 1);
+Irssi::settings_add_bool('autochannel', 'channel_remove_auto_on_part', 1);
+Irssi::settings_add_bool('autochannel', 'channel_remove_on_part', 0);
+
+# --------[ Signals ]---------------------------------------------------
+
+Irssi::signal_add_last('message join', 'sig_message_join');
+Irssi::signal_add_last('message part', 'sig_message_part');
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
diff --git a/scripts/autocycle.pl b/scripts/autocycle.pl
new file mode 100644
index 0000000..3095470
--- /dev/null
+++ b/scripts/autocycle.pl
@@ -0,0 +1,47 @@
+# Usage: /SET auto_regain_ops [On/Off]
+#        /autocycle
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020313 qw( settings_add_bool settings_get_bool servers command_bind timeout_add );
+$VERSION = "0.4";
+%IRSSI = (
+   authors      => "Marcin Rozycki",
+   contact      => "derwan\@irssi.pl",
+   name         => "autocycle",
+   description  => "Auto regain ops in empty opless channels",
+   url          => "http://derwan.irssi.pl",
+   license      => "GNU GPL v2",
+   changed      => "Fri Jan  3 23:20:06 CET 2003"
+);
+
+sub check_channels {
+   foreach my $server (servers) {
+      if ($server->{usermode} !~ m/r/ and my @channels = $server->channels) {
+         CHANNEL: while (my $channel = shift @channels) {
+            my $modes = $channel->{mode};
+            my $test = ($modes and $modes =~ m/a/) ? 1 : 0;
+            if (!$test && $channel->{synced} && $channel->{name} !~ m/^[\+\!]/ && !$channel->{ownnick}->{op}) {
+               foreach my $nick ($channel->nicks) {
+                  ($nick->{nick} eq $server->{nick}) or goto CHANNEL;
+               }
+               $channel->print("Auto regain op in empty channel " . $channel->{name});
+               $channel->command("cycle");
+            }
+         }
+      }
+   }
+}
+
+sub autocycle {
+   if (settings_get_bool("auto_regain_ops")) {
+      check_channels();
+   }
+}
+
+settings_add_bool "misc", "auto_regain_ops", 1;
+command_bind "autocycle", "check_channels";
+timeout_add 60000, \&autocycle, undef;
+autocycle;
+
diff --git a/scripts/autolimit.pl b/scripts/autolimit.pl
new file mode 100644
index 0000000..8989eed
--- /dev/null
+++ b/scripts/autolimit.pl
@@ -0,0 +1,31 @@
+use Irssi 20010920.0000 ();
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'David Leadbeater',
+    contact     => 'dgl@dgl.cx',
+    name        => 'autolimit',
+    description => 'does an autolimit for a channel, set variables in the script',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+# Change these!
+my $channel = "#channel";
+my $offset = 5;
+my $tolerence = 2;
+my $time = 60;
+
+sub checklimit {
+   my $c = Irssi::channel_find($channel);
+   return unless ref $c;
+   return unless $c->{chanop};
+   my $users = scalar @{[$c->nicks]};
+   
+   if(($c->{limit} <= ($users+$offset-$tolerence)) || 
+		 ($c->{limit} > ($users+$offset+$tolerence))) {
+	  $c->{server}->send_raw("MODE $channel +l " . ($users+$offset));
+   }
+}
+
+Irssi::timeout_add($time * 1000, 'checklimit','');
+
diff --git a/scripts/autoop.pl b/scripts/autoop.pl
new file mode 100644
index 0000000..d46d099
--- /dev/null
+++ b/scripts/autoop.pl
@@ -0,0 +1,91 @@
+# /AUTOOP <*|#channel> [<nickmasks>]
+# use friends.pl if you need more features
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Timo Sirainen',
+    name        => 'autoop',
+    description => 'Simple auto-op script',
+    license     => 'Public Domain',
+    changed	=> 'Sun Mar 10 23:18 EET 2002'
+);
+
+my (%opnicks, %temp_opped);
+
+sub cmd_autoop {
+	my ($data) = @_;
+	my ($channel, $masks) = split(" ", $data, 2);
+
+	if ($channel eq "") {
+		if (!%opnicks) {
+			Irssi::print("Usage: /AUTOOP <*|#channel> [<nickmasks>]");
+			Irssi::print("No-one's being auto-opped currently.");
+			return;
+		}
+
+		Irssi::print("Currently auto-opping in channels:");
+		foreach $channel (keys %opnicks) {
+			$masks = $opnicks{$channel};
+
+			if ($channel eq "*") {
+				Irssi::print("All channels: $masks");
+			} else {
+				Irssi::print("$channel: $masks");
+			}
+		}
+		return;
+	}
+
+	if ($masks eq "") {
+		$masks = "<no-one>";
+		delete $opnicks{$channel};
+	} else {
+		$opnicks{$channel} = $masks;
+	}
+	if ($channel eq "*") {
+		Irssi::print("Now auto-opping in all channels: $masks");
+	} else {
+		Irssi::print("$channel: Now auto-opping: $masks");
+	}
+}
+
+sub autoop {
+	my ($channel, $masks, @nicks) = @_;
+	my ($server, $nickrec);
+
+	$server = $channel->{server};
+	foreach $nickrec (@nicks) {
+		my $nick = $nickrec->{nick};
+		my $host = $nickrec->{host};
+
+                if (!$temp_opped{$nick} &&
+		    $server->masks_match($masks, $nick, $host)) {
+			$channel->command("/op $nick");
+			$temp_opped{$nick} = 1;
+		}
+	}
+}
+
+sub event_massjoin {
+	my ($channel, $nicks_list) = @_;
+	my @nicks = @{$nicks_list};
+
+	return if (!$channel->{chanop});
+
+	undef %temp_opped;
+
+	# channel specific
+	my $masks = $opnicks{$channel->{name}};
+	autoop($channel, $masks, @nicks) if ($masks);
+
+	# for all channels
+	$masks = $opnicks{"*"};
+	autoop($channel, $masks, @nicks) if ($masks);
+}
+
+Irssi::command_bind('autoop', 'cmd_autoop');
+Irssi::signal_add_last('massjoin', 'event_massjoin');
diff --git a/scripts/autoopper.pl b/scripts/autoopper.pl
new file mode 100644
index 0000000..435c696
--- /dev/null
+++ b/scripts/autoopper.pl
@@ -0,0 +1,412 @@
+use Irssi;
+use POSIX;
+use strict;
+use Socket;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "3.7";
+%IRSSI = (
+	authors     => 'Toni Salomäki',
+	name        => 'autoopper',
+	contact     => 'Toni@IRCNet',
+	description => 'Auto-op script with dynamic address support and random delay',
+	license     => 'GNU GPLv2 or later',
+	url         => 'http://vinku.dyndns.org/irssi_scripts/'
+);
+
+# This is a script to auto-op people on a certain channel (all or, represented with *).
+# Users are auto-opped on join with random delay.
+# There is a possibility to use dns aliases (for example dyndns.org) for getting the correct address.
+# The auto-op list is stored into ~/.irssi/autoop
+#
+# To get the dynamic addresses to be refreshed automatically, set value to autoop_dynamic_refresh (in hours)
+# The value will be used next time the script is loaded (at startup or manual load)
+#
+# NOTICE: the datafile is in completely different format than in 1.0 and this version cannot read it. Sorry.
+#
+
+# COMMANDS:
+#
+# autoop_show - Displays list of auto-opped hostmasks & channels
+#               The current address of dynamic host is displayed in parenthesis
+#
+# autoop_add - Add new auto-op. Parameters hostmask, channel (or *) and dynamic flag
+#
+#    Dynamic flag has 3 different values:
+#      0: treat host as a static ip
+#      1: treat host as an alias for dynamic ip
+#      2: treat host as an alias for dynamic ip, but do not resolve the ip (not normally needed)
+#
+# autoop_del - Remove auto-op
+#
+# autoop_save - Save auto-ops to file (done normally automatically)
+#
+# autoop_load - Load auto-ops from file (use this if you have edited the autoop -file manually)
+#
+# autoop_check - Check all channels and op people needed
+#
+# autoop_dynamic - Refresh dynamic addresses (automatically if parameter set)
+#
+# Data is stored in ~/.irssi/autoop
+# format: host	channels	flag
+# channels separated with comma
+# one host per line
+
+my (%oplist);
+my (@opitems);
+srand();
+
+#resolve dynamic host
+sub resolve_host {
+	my ($host, $dyntype) = @_;
+
+	if (my $iaddr = inet_aton($host)) {
+		if ($dyntype ne "2") {
+			if (my $newhost = gethostbyaddr($iaddr, AF_INET)) {
+				return $newhost;
+			} else {
+				return inet_ntoa($iaddr);
+			}
+		} else {
+			return inet_ntoa($iaddr);
+		}
+	}
+	return "error";
+}
+
+# return list of dynamic hosts with real addresses
+sub fetch_dynamic_hosts {
+	my %hostcache;
+	my $resultext;
+	foreach my $item (@opitems) {
+		next if ($item->{dynamic} ne "1" && $item->{dynamic} ne "2");
+
+		my (undef, $host) = split(/\@/, $item->{mask}, 2);
+
+		# fetch the host's real address (if not cached)
+		unless ($hostcache{$host}) {
+			$hostcache{$host} = resolve_host($host, $item->{dynamic});
+			$resultext .= $host . "\t" . $hostcache{$host} . "\n";
+		}
+	}
+	chomp $resultext;
+	return $resultext;
+}
+
+# fetch real addresses for dynamic hosts
+sub cmd_change_dynamic_hosts {
+	pipe READ, WRITE;
+	my $pid = fork();
+
+	unless (defined($pid)) {
+		Irssi::print("Can't fork - aborting");
+		return;
+	}
+
+	if ($pid > 0) {
+		# the original process, just add a listener for pipe
+		close (WRITE);
+		Irssi::pidwait_add($pid);
+		my $target = {fh => \*READ, tag => undef};
+		$target->{tag} = Irssi::input_add(fileno(READ), INPUT_READ, \&read_dynamic_hosts, $target);
+	} else {
+		# the new process, fetch addresses and write to the pipe
+		print WRITE fetch_dynamic_hosts;
+		close (READ);
+		close (WRITE);
+		POSIX::_exit(1);
+	}
+}
+
+# get dynamic hosts from pipe and change them to users
+sub read_dynamic_hosts {
+ 	my $target = shift;
+	my $rh = $target->{fh};
+	my %hostcache;
+
+	while (<$rh>) {
+		chomp;
+		my ($dynhost, $realhost, undef) = split (/\t/, $_, 3);
+		$hostcache{$dynhost} = $realhost;
+	}
+
+	close($target->{fh});
+	Irssi::input_remove($target->{tag});
+
+	my $mask;
+	my $count = 0;
+	undef %oplist if (%oplist);
+
+	foreach my $item (@opitems) {
+		if ($item->{dynamic} eq "1" || $item->{dynamic} eq "2") {
+			my ($user, $host) = split(/\@/, $item->{mask}, 2);
+
+			$count++ if ($item->{dynmask} ne $hostcache{$host});
+			$item->{dynmask} = $hostcache{$host};
+			$mask = $user . "\@" . $hostcache{$host};
+		} else {
+			$mask = $item->{mask};
+		}
+
+		foreach my $channel (split (/,/,$item->{chan})) {
+			$oplist{$channel} .= "$mask ";
+		}
+	}
+	chop %oplist;
+	Irssi::print("$count dynamic hosts changed") if ($count > 0);
+}
+
+# Save data to file
+sub cmd_save_autoop {
+	my $file = Irssi::get_irssi_dir."/autoop";
+	open FILE, "> $file" or return;
+
+	foreach my $item (@opitems) {
+		printf FILE ("%s\t%s\t%s\n", $item->{mask}, $item->{chan}, $item->{dynamic});
+	}
+
+	close FILE;
+	Irssi::print("Auto-op list saved to $file");
+}
+
+# Load data from file
+sub cmd_load_autoop {
+	my $file = Irssi::get_irssi_dir."/autoop";
+	open FILE, "< $file" or return;
+	undef @opitems if (@opitems);
+
+	while (<FILE>) {
+		chomp;
+		my ($mask, $chan, $dynamic, undef) = split (/\t/, $_, 4);
+		my $item = {mask=>$mask, chan=>$chan, dynamic=>$dynamic, dynmask=>undef};
+		push (@opitems, $item);
+	}
+
+	close FILE;
+	Irssi::print("Auto-op list reloaded from $file");
+	cmd_change_dynamic_hosts;
+}
+
+# Show who's being auto-opped
+sub cmd_show_autoop {
+	my %list;
+	foreach my $item (@opitems) {
+		foreach my $channel (split (/,/,$item->{chan})) {
+			$list{$channel} .= "\n" . $item->{mask};
+			$list{$channel} .= " (" . $item->{dynmask} . ")" if ($item->{dynmask});
+		}
+	}
+
+	Irssi::print("All channels:" . $list{"*"}) if (exists $list{"*"});
+	delete $list{"*"}; #this is already printed, so remove it
+	foreach my $channel (sort (keys %list)) {
+		Irssi::print("$channel:" . $list{$channel});
+	}
+}
+
+# Add new auto-op
+sub cmd_add_autoop {
+	my ($data) = @_;
+	my ($mask, $chan, $dynamic, undef) = split(" ", $data, 4);
+	my $found = 0;
+
+	if ($chan eq "" || $mask eq "" || !($mask =~ /.+!.+@.+/)) {
+		Irssi::print("Invalid hostmask. It must contain both ! and @.") if (!($mask =~ /.+!.+@.+/));
+		Irssi::print("Usage: /autoop_add <hostmask> <*|#channel> [dynflag]");
+		Irssi::print("Dynflag: 0 normal, 1 dynamic, 2 dynamic without resolving");
+		return;
+	}
+
+	foreach my $item (@opitems) {
+		next unless ($item->{mask} eq $mask);
+		$found = 1;
+		$item->{chan} .= ",$chan";
+		last;
+	}
+
+	if ($found == 0) {
+		$dynamic = "0" unless ($dynamic eq "1" || $dynamic eq "2");
+		my $item = {mask=>$mask, chan=>$chan, dynamic=>$dynamic, dynmask=>undef};
+		push (@opitems, $item);
+	}
+
+	$oplist{$chan} .= " $mask";
+
+	Irssi::print("Added auto-op: $chan: $mask");
+}
+
+# Remove autoop
+sub cmd_del_autoop {
+	my ($data) = @_;
+	my ($mask, $channel, undef) = split(" ", $data, 3);
+
+	if ($channel eq "" || $mask eq "") {
+		Irssi::print("Usage: /autoop_del <hostmask> <*|#channel>");
+		return;
+	}
+
+	my $i=0;
+	foreach my $item (@opitems) {
+		if ($item->{mask} eq $mask) {
+			if ($channel eq "*" || $item->{chan} eq $channel) {
+				splice @opitems, $i, 1;
+				Irssi::print("Removed: $mask");
+			} else {
+				my $newchan;
+				foreach my $currchan (split (/,/,$item->{chan})) {
+					if ($channel eq $currchan) {
+						Irssi::print("Removed: $channel from $mask");
+					} else {
+						$newchan .= $currchan . ",";
+					}
+				}
+				chop $newchan;
+				Irssi::print("Couldn't remove $channel from $mask") if ($item->{chan} eq $newchan);
+				$item->{chan} = $newchan;
+			}
+			last;
+		}
+		$i++;
+	}
+}
+
+# Do the actual opping
+sub do_autoop {
+	my $target = shift;
+
+	Irssi::timeout_remove($target->{tag});
+
+	# nick has to be fetched again, because $target->{nick}->{op} is not updated
+	my $nick = $target->{chan}->nick_find($target->{nick}->{nick});
+
+	# if nick is changed during delay, it will probably be lost here...
+	if ($nick->{nick} ne "") {
+		if ($nick->{host} eq $target->{nick}->{host}) {
+			$target->{chan}->command("op " . $nick->{nick}) unless ($nick->{op});
+		} else {
+			Irssi::print("Host changed for nick during delay: " . $nick->{nick});
+		}
+	}
+	undef $target;
+}
+
+# Someone joined, might be multiple person. Check if opping is needed
+sub event_massjoin {
+	my ($channel, $nicklist) = @_;
+	my @nicks = @{$nicklist};
+
+	return if (!$channel->{chanop});
+
+	my $masks = $oplist{"*"} . " " . $oplist{$channel->{name}};
+
+	foreach my $nick (@nicks) {
+		my $host = $nick->{host};
+		$host=~ s/^~//g; # remove this if you don't want to strip ~ from username (no ident)
+		next unless ($channel->{server}->masks_match($masks, $nick->{nick}, $host));
+
+		my $min_delay = Irssi::settings_get_int("autoop_min_delay");
+		my $max_delay = Irssi::settings_get_int("autoop_max_delay") - $min_delay;
+		my $delay = int(rand($max_delay)) + $min_delay;
+
+		my $target = {nick => $nick, chan => $channel, tag => undef};
+
+		$target->{tag} = Irssi::timeout_add($delay, 'do_autoop', $target);
+	}
+
+}
+
+# Check channel op status
+sub do_channel_check {
+	my $target = shift;
+
+	Irssi::timeout_remove($target->{tag});
+
+	my $channel = $target->{chan};
+	my $server = $channel->{server};
+	my $masks = $oplist{"*"} . " " . $oplist{$channel->{name}};
+	my $nicks = "";
+
+	foreach my $nick ($channel->nicks()) {
+		next if ($nick->{op});
+
+		my $host = $nick->{host};
+		$host=~ s/^~//g; # remove this if you don't want to strip ~ from username (no ident)
+
+		if ($server->masks_match($masks, $nick->{nick}, $host)) {
+			$nicks = $nicks . " " . $nick->{nick};
+		}
+	}
+	$channel->command("op" . $nicks) unless ($nicks eq "");
+
+	undef $target;
+}
+
+#check people needing opping after getting ops
+sub event_nickmodechange {
+	my ($channel, $nick, $setby, $mode, $type) = @_;
+
+	return unless (($mode eq '@') && ($type eq '+'));
+
+	my $server = $channel->{server};
+
+	return unless ($server->{nick} eq $nick->{nick});
+
+	my $min_delay = Irssi::settings_get_int("autoop_min_delay");
+	my $max_delay = Irssi::settings_get_int("autoop_max_delay") - $min_delay;
+	my $delay = int(rand($max_delay)) + $min_delay;
+
+	my $target = {chan => $channel, tag => undef};
+
+	$target->{tag} = Irssi::timeout_add($delay, 'do_channel_check', $target);
+}
+
+#Check all channels / all users if someone needs to be opped
+sub cmd_autoop_check {
+	my ($data, $server, $witem) = @_;
+
+	foreach my $channel ($server->channels()) {
+		Irssi::print("Checking: " . $channel->{name});
+		next if (!$channel->{chanop});
+
+		my $masks = $oplist{"*"} . " " . $oplist{$channel->{name}};
+
+		foreach my $nick ($channel->nicks()) {
+			next if ($nick->{op});
+
+			my $host = $nick->{host};
+			$host=~ s/^~//g; # remove this if you don't want to strip ~ from username (no ident)
+
+			if ($server->masks_match($masks, $nick->{nick}, $host)) {
+				$channel->command("op " . $nick->{nick}) if (!$nick->{op});
+			}
+		}
+	}
+}
+
+#Set dynamic refresh period.
+sub set_dynamic_refresh {
+	my $refresh = Irssi::settings_get_int("autoop_dynamic_refresh");
+	return if ($refresh == 0);
+
+	Irssi::print("Dynamic host refresh set for $refresh hours");
+	Irssi::timeout_add($refresh*3600000, 'cmd_change_dynamic_hosts', undef);
+}
+
+Irssi::command_bind('autoop_show', 'cmd_show_autoop');
+Irssi::command_bind('autoop_add', 'cmd_add_autoop');
+Irssi::command_bind('autoop_del', 'cmd_del_autoop');
+Irssi::command_bind('autoop_save', 'cmd_save_autoop');
+Irssi::command_bind('autoop_load', 'cmd_load_autoop');
+Irssi::command_bind('autoop_check', 'cmd_autoop_check');
+Irssi::command_bind('autoop_dynamic', 'cmd_change_dynamic_hosts');
+Irssi::signal_add_last('massjoin', 'event_massjoin');
+Irssi::signal_add_last('setup saved', 'cmd_save_autoop');
+Irssi::signal_add_last('setup reread', 'cmd_load_autoop');
+Irssi::signal_add_last("nick mode changed", "event_nickmodechange");
+Irssi::settings_add_int('autoop', 'autoop_max_delay', 15000);
+Irssi::settings_add_int('autoop', 'autoop_min_delay', 1000);
+Irssi::settings_add_int('autoop', 'autoop_dynamic_refresh', 0);
+
+
+cmd_load_autoop;
+set_dynamic_refresh;
diff --git a/scripts/autorealname.pl b/scripts/autorealname.pl
new file mode 100644
index 0000000..b173661
--- /dev/null
+++ b/scripts/autorealname.pl
@@ -0,0 +1,298 @@
+# Print realname of everyone who join to channels
+# for irssi 0.7.99 by Timo Sirainen
+
+use Irssi 20011207;
+use strict;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.8.6";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen, Bastian Blank",
+    contact	=> "tss\@iki.fi, waldi\@debian.org",
+    name	=> "auto realname",
+    description	=> "Print realname of everyone who join to channels",
+    license	=> "GPLv2 or later",
+    url		=> "http://irssi.org/",
+    changed	=> "Fri, 24 Jan 2003 15:40:22 +0100"
+);
+
+# v0.8.6 changes - Juhamatti Niemelä
+#  - fix join msg printing when there are multiple common channels
+# v0.8.5 changes - Bastian Blank
+#  - really use the introduced state variable
+# v0.8.4 changes - Bastian Blank
+#  - fix queue abort
+# v0.8.3 changes - Bastian Blank
+#  - on queue abort print any join messages
+# v0.8.2 changes - Bastian Blank
+#  - use channelname instead of Irssi::Irc::Channel for channelname within message on join
+# v0.8.1 changes - Bastian Blank
+#  - print any join messages on abort
+#  - also remove any timeouts
+# v0.8 changes - Bastian Blank
+#  - join message includes realname
+#  - add timeout
+#  - don't print realname for our self
+#  - change license because german law doesn't allow to give away the copyright
+# v0.71 changes
+#  - a bit safer now with using "redirect last"
+# v0.7 changes
+#  - pretty much a rewrite - shouldn't break anymore
+# v0.62 changes
+#  - upgraded redirection to work with latest CVS irssi - lot easier
+#    to handle it this time :)
+# v0.61 changes
+#  - forgot to reset %chan_list..
+# v0.6 changes
+#  - works now properly when a nick joins to multiple channels
+# v0.5 changes
+#  - Use "message join" so we won't ask realname for ignored people
+
+Irssi::theme_register([
+  'join', '{channick_hilight $0} {chanhost_hilight $1} has joined {channel $2}',
+  'join_realname', '{channick_hilight $0} ({hilight $1}) {chanhost_hilight $2} has joined {channel $3}',
+  'join_realname_only', '{channick_hilight $0} is {hilight $1}',
+]);
+
+my $whois_queue_length_before_abort = 10; # max. whois queue length before we should abort the whois queries for next few seconds (people are probably joining behind a netsplit)
+my $whois_abort_seconds = 10; # wait for 10 secs when there's been too many joins
+my $debug = 0;
+
+my %servers;
+
+my %whois_waiting;
+my %whois_queue;
+my %aborted;
+my %chan_list;
+
+sub sig_connected {
+  my $server = shift;
+  $servers{$server->{tag}} = {
+    abort_time => 0,  # if join event is received before this, abort
+    waiting => 0,     # waiting reply for WHOIS request
+    queue => [],      # whois queue
+    nicks => {}       # nick => [ #chan1, #chan2, .. ]
+  };
+}
+
+sub sig_disconnected {
+  my $server = shift;
+  delete $servers{$server->{tag}};
+}
+
+sub msg_join {
+  my ($server, $channame, $nick, $host) = @_;
+  $channame =~ s/^://;
+  my $rec = $servers{$server->{tag}};
+
+  # don't display realname for our self
+  return if ($nick eq $server->{nick});
+
+  # don't whois people who netjoin back
+  return if ($server->netsplit_find($nick, $host));
+
+  return if (time < $rec->{abort_time});
+  $rec->{abort_time} = 0;
+
+  Irssi::signal_stop();
+
+  # check if the nick is already found from another channel
+  {
+    my $ret = 0;
+    foreach my $channel ($server->channels()) {
+      my $nickrec = $channel->nick_find($nick);
+      if ($nickrec && $nickrec->{realname}) {
+        # this user already has a known realname - use it.
+        $channel = $server->channel_find($channame);
+        $channel->printformat(MSGLEVEL_JOINS, 'join_realname', $nick, $nickrec->{realname}, $nickrec->{host}, $channel->{name});
+        $channel->print("autorealname: already found: $nick", MSGLEVEL_CLIENTCRAP) if $debug;
+        $ret = 1;
+        last;
+      }
+    }
+
+    return if ($ret);
+  }
+
+  # save channel to nick specific hash so we can later check which channels
+  # it needs to print the realname
+
+  if ($rec->{nicks}->{$nick}) {
+    # don't send the WHOIS again if nick is already in queue
+    push @{$rec->{nicks}->{$nick}->{chans_join}}, $channame;
+    push @{$rec->{nicks}->{$nick}->{chans_realname}}, $channame;
+    $rec->{nicks}->{$nick}->{state} = 0;
+    my $channel = $server->channel_find($channame);
+    $channel->print("autorealname: already in queue: $nick", MSGLEVEL_CLIENTCRAP) if $debug;
+  }
+  else {
+    $rec->{nicks}->{$nick} = {};
+    $rec->{nicks}->{$nick}->{chans_join} = [$channame];
+    $rec->{nicks}->{$nick}->{chans_realname} = [$channame];
+    $rec->{nicks}->{$nick}->{state} = 0;
+
+    # add the nick to queue
+    push @{$rec->{queue}}, $nick;
+
+    # timeout
+    $rec->{nicks}->{$nick}->{timeout} = Irssi::timeout_add(1000, \&timeout_whois, [$server, $nick]);
+    my $channel = $server->channel_find($channame);
+    $channel->print("autorealname: add to queue: $nick", MSGLEVEL_CLIENTCRAP) if $debug;
+  }
+
+  if (scalar @{$rec->{queue}} >= $whois_queue_length_before_abort) {
+    # too many whois requests in queue, abort
+    foreach $nick (@{$rec->{queue}}) {
+      foreach my $channel (@{$rec->{nicks}->{$nick}->{chans_join}}) {
+        my $chanrec = $server->channel_find($channel);
+        my $nickrec = $chanrec->nick_find($nick);
+        if ($chanrec && $nickrec) {
+          $chanrec->printformat(MSGLEVEL_JOINS, 'join', $nick, $nickrec->{host}, $channel);
+          $chanrec->print("autorealname: queue abort: $nick", MSGLEVEL_CLIENTCRAP) if $debug;
+        }
+      }
+      Irssi::timeout_remove($rec->{nicks}->{$nick}->{timeout}) if (!($rec->{nicks}->{$nick}->{state} & 2));
+      delete $rec->{nicks}->{$nick};
+    }
+    $rec->{queue} = [];
+    $rec->{abort_time} = time+$whois_abort_seconds;
+    return;
+  }
+
+  # waiting for WHOIS reply..
+  return if $rec->{waiting};
+
+  request_whois($server, $rec);
+}
+
+sub request_whois {
+  my ($server, $rec) = @_;
+  return if (scalar @{$rec->{queue}} == 0);
+
+  my @whois_nicks = splice(@{$rec->{queue}}, 0, $server->{max_whois_in_cmd});
+  my $whois_query = join(',', @whois_nicks);
+
+  # ignore all whois replies except the first line of the WHOIS reply
+  my $redir_arg = $whois_query.' '.join(' ', @whois_nicks);
+  $server->redirect_event("whois", 1, $redir_arg, 0, 
+			  "redir autorealname_whois_last", {
+			    "event 311" => "redir autorealname_whois",
+			    "event 401" => "redir autorealname_whois_unknown",
+			    "redirect last" => "redir autorealname_whois_last",
+			    "" => "event empty" });
+
+  $server->send_raw("WHOIS :$whois_query");
+  $rec->{waiting} = 1;
+}
+
+sub event_whois {
+  my ($server, $data) = @_;
+  my ($num, $nick, $user, $host, $empty, $realname) = split(/ +/, $data, 6);
+  $realname =~ s/^://;
+  my $rec = $servers{$server->{tag}};
+
+  return if not $rec->{nicks}->{$nick};
+
+  $rec->{nicks}->{$nick}->{state} |= 1;
+
+  if (!($rec->{nicks}->{$nick}->{state} & 2)) {
+    Irssi::timeout_remove($rec->{nicks}->{$nick}->{timeout});
+    foreach my $channel (@{$rec->{nicks}->{$nick}->{chans_join}}) {
+      my $chanrec = $server->channel_find($channel);
+      my $nickrec = $chanrec->nick_find($nick);
+      if ($chanrec && $nickrec) {
+        $chanrec->printformat(MSGLEVEL_JOINS, 'join_realname', $nick, $realname, $nickrec->{host}, $channel);
+        $chanrec->print("autorealname: got whois: $nick, state: ".$rec->{nicks}->{$nick}->{state}, MSGLEVEL_CLIENTCRAP) if $debug;
+      }
+    }
+    $rec->{nicks}->{$nick}->{chans_join} = [];
+    $rec->{nicks}->{$nick}->{chans_realname} = [];
+    $rec->{nicks}->{$nick}->{state} |= 2;
+  }
+  else {
+    foreach my $channel (@{$rec->{nicks}->{$nick}->{chans_realname}}) {
+      my $chanrec = $server->channel_find($channel);
+      my $nickrec = $chanrec->nick_find($nick);
+      if ($chanrec && $nickrec) {
+        $chanrec->printformat(MSGLEVEL_JOINS, 'join_realname_only', $nick, $realname);
+        $chanrec->print("autorealname: got whois: $nick, state: ".$rec->{nicks}->{$nick}->{state}, MSGLEVEL_CLIENTCRAP) if $debug;
+      }
+    }
+    $rec->{nicks}->{$nick}->{chans_realname} = [];
+  }
+
+  delete $rec->{nicks}->{$nick} if ($rec->{nicks}->{$nick}->{state} == 3);
+}
+
+sub event_whois_unknown {
+  my ($server, $data) = @_;
+  my ($temp, $nick) = split(" ", $data);
+  my $rec = $servers{$server->{tag}};
+
+  return if not $rec->{nicks}->{$nick};
+
+  $rec->{nicks}->{$nick}->{state} |= 1;
+
+  if (!($rec->{nicks}->{$nick}->{state} & 2)) {
+    Irssi::timeout_remove($rec->{nicks}->{$nick}->{timeout});
+    foreach my $channel (@{$rec->{nicks}->{$nick}->{chans_join}}) {
+      my $chanrec = $server->channel_find($channel);
+      my $nickrec = $chanrec->nick_find($nick);
+      if ($chanrec && $nickrec) {
+        $chanrec->printformat(MSGLEVEL_JOINS, 'join', $nick, $nickrec->{host}, $channel);
+        $chanrec->print("autorealname: got unknown whois: $nick", MSGLEVEL_CLIENTCRAP) if $debug;
+      }
+    }
+    $rec->{nicks}->{$nick}->{chans_join} = [];
+  } else {
+    foreach my $channel (@{$rec->{nicks}->{$nick}->{chans_join}}) {
+      my $chanrec = $server->channel_find($channel);
+      $chanrec->print("autorealname: got unknown whois (already considered): $nick", MSGLEVEL_CLIENTCRAP) if $debug;
+    }
+  }
+
+  delete $rec->{nicks}->{$nick} if ($rec->{nicks}->{$nick}->{state} == 3);
+}
+
+sub event_whois_last {
+  my $server = shift;
+  my $rec = $servers{$server->{tag}};
+
+  $rec->{waiting} = 0;
+  request_whois($server, $rec);
+}
+
+foreach my $server (Irssi::servers()) {
+  sig_connected($server);
+}
+
+sub timeout_whois {
+  my $server = shift @{$_[0]};
+  my $nick = shift @{$_[0]};
+
+  my $rec = $servers{$server->{tag}};
+
+  return if not $rec->{nicks}->{$nick};
+
+  Irssi::timeout_remove($rec->{nicks}->{$nick}->{timeout});
+  $rec->{nicks}->{$nick}->{state} |= 2;
+
+  my @channels = @{$rec->{nicks}->{$nick}->{chans_join}};
+  foreach my $channel (@channels) {
+    my $chanrec = $server->channel_find($channel);
+    my $nickrec = $chanrec->nick_find($nick);
+    if ($nickrec && $chanrec) {
+      $chanrec->printformat(MSGLEVEL_JOINS, 'join', $nick, $nickrec->{host}, $channel);
+      $chanrec->print("autorealname: timeout: $nick, state: ".$rec->{nicks}->{$nick}->{state}, MSGLEVEL_CLIENTCRAP) if $debug;
+    }
+  }
+
+  $rec->{nicks}->{$nick}->{chans_join} = [];
+}
+
+Irssi::signal_add( {
+        'server connected' => \&sig_connected,
+	'server disconnected' => \&sig_disconnected,
+	'message join' => \&msg_join,
+	'redir autorealname_whois' => \&event_whois,
+	'redir autorealname_whois_unknown' => \&event_whois_unknown,
+	'redir autorealname_whois_last' => \&event_whois_last });
diff --git a/scripts/autorejoin.pl b/scripts/autorejoin.pl
new file mode 100644
index 0000000..42c97da
--- /dev/null
+++ b/scripts/autorejoin.pl
@@ -0,0 +1,57 @@
+# automatically rejoin to channel after kick
+# delayed rejoin: Lam 28.10.2001 (lam@lac.pl)
+
+# 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 Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.0";
+%IRSSI = (
+	authors => "Timo 'cras' Sirainen, Leszek Matok",
+	contact => "lam\@lac.pl",
+	name => "autorejoin",
+	description => "Automatically rejoin to channel after being kick, after a (short) user-defined delay",
+	license => "GPLv2",
+	changed => "10.3.2002 14:00"
+);
+
+
+# How many seconds to wait before the rejoin?
+# TODO: make this a /setting
+my $delay = 5;
+
+my @tags;
+my $acttag = 0;
+
+sub rejoin {
+	my ( $data ) = @_;
+	my ( $tag, $servtag, $channel, $pass ) = split( / +/, $data );
+
+	my $server = Irssi::server_find_tag( $servtag );
+	$server->send_raw( "JOIN $channel $pass" ) if ( $server );
+	Irssi::timeout_remove( $tags[$tag] );
+}
+
+sub event_rejoin_kick {
+	my ( $server, $data ) = @_;
+	my ( $channel, $nick ) = split( / +/, $data );
+
+	return if ( $server->{ nick } ne $nick );
+
+	# check if channel has password
+	my $chanrec = $server->channel_find( $channel );
+	my $password = $chanrec->{ key } if ( $chanrec );
+	my $rejoinchan = $chanrec->{ name } if ( $chanrec );
+	my $servtag = $server->{ tag };
+
+	Irssi::print "Rejoining $rejoinchan in $delay seconds.";
+	$tags[$acttag] = Irssi::timeout_add( $delay * 1000, "rejoin", "$acttag $servtag $rejoinchan $password" );
+	$acttag++;
+	$acttag = 0 if ( $acttag > 60 );
+}
+
+Irssi::signal_add( 'event kick', 'event_rejoin_kick' );
diff --git a/scripts/autorejoinpunish.pl b/scripts/autorejoinpunish.pl
new file mode 100644
index 0000000..31f6e68
--- /dev/null
+++ b/scripts/autorejoinpunish.pl
@@ -0,0 +1,124 @@
+##
+# autorejoinpunish - 	your solution for banning people who don't
+#			know what kicks are for.
+# This script is for irssi 0.8.4, and was written by Paul Raade,
+# laaama in IRCNet.
+##
+# Explanations for the settings, with defaults shown:
+#
+# /set autorejoinpunish_time_limit 3
+# 	- The time limit in seconds for measuring what is an
+#	  autorejoin, and what is not.
+# /set autorejoinpunish_kickban_message Kickban for autorejoining.
+# 	- Kick reason, if kickban was selected.
+# /set autorejoinpunish_knockout ON
+# 	- Whether kick or knockout. As default, knockout is
+#	  selected, so that the bans will be removed automatically.
+# /set autorejoinpunish_knockout_time 60
+# 	- Time in seconds how long a ban will be kept if
+#	  knockout is selected.
+# /set autorejoinpunish_knockout_message Temporary ban for autorejoining.
+# 	- Kick reason, if knockout was selected.
+# /set autorejoinpunish_channels
+# 	- Space separated list of channels on which autorejoin punishment 
+#	  be used will
+# /set autorejoinpunish_only_own_kicks ON
+#	- If set ON, only people kicked by you will be banned.
+##
+# Changelog:
+# - 0.2: Better way of checking channels, /set autorejoinpunish_only_own_kicks added.
+# - 0.1: Initial release.
+##
+# Happy banning! ;)
+##
+
+use strict;
+use Irssi qw(settings_get_str settings_get_int settings_get_bool
+timeout_add settings_add_int settings_add_str settings_add_bool
+signal_add_first command server_find_tag);
+
+use vars qw(%IRSSI $VERSION);
+$VERSION = '0.3';
+%IRSSI = (
+	authors		=> 'Paul \'laaama\' Raade',
+	contact 	=> 'paul\@raade.org',
+	name		=> 'Autorejoin punisher',
+	description	=> 'Kickbans or knockouts people who use autorejoin on kick.',
+	license		=> 'BSD',
+	url		=> 'http://www.raade.org/~paul/irssi/scripts/',
+	changes		=> 'Changed signals to be added to the top of the list to make the script work with scripts that stop the signals (autorealname, for example).',
+	changed		=> 'Thu 02 May 2002, 22:04:48 EEST'
+);
+
+my %victims;
+my %bans;
+
+sub message_kick { # Set a time stamp for people who are kicked.
+	#  "message kick", SERVER_REC, char *channel, char *nick, char *kicker, char *address, char *reason
+	my ($server, $channel, $nick, $kicker, $address, undef) = @_;
+	if ((settings_get_bool('autorejoinpunish_only_own_kicks') == 0) || (settings_get_bool('autorejoinpunish_only_own_kicks') == 1 && ($kicker eq $server->{nick}) )) {
+		foreach my $item (split(' ', lc(settings_get_str('autorejoinpunish_channels')))) {
+			if ((lc $channel) eq $item) { $victims{$channel}{$nick} = time(); }
+		}		
+	}
+}
+
+sub message_join { # Check for recent kicks, 
+	# "message join", SERVER_REC, char *channel, char *nick, char *address
+	my ($server, $channel, $nick, $address) = @_;
+	if ($victims{$channel}{$nick} && ((time()-$victims{$channel}{$nick}) <= settings_get_int('autorejoinpunish_time_limit'))) {
+		if (settings_get_bool('autorejoinpunish_knockout') == 1) {
+			$server->command('mode' . ' ' . $channel . ' +b *!' . $address);
+			$server->command('kick' . ' ' . $channel . ' ' . $nick . ' ' . settings_get_str('autorejoinpunish_knockout_message'));
+			$bans{$server->{tag}}{time()} = $channel . '/' . $address;
+		} else {
+			$server->command('mode' . ' ' . $channel . ' +b *!' . $address);
+			$server->command('kick' . ' ' . $channel . ' ' . $nick . ' ' . settings_get_str('autorejoinpunish_kickban_message'));
+		}
+	}
+	delete $victims{$channel}{$nick};
+}
+
+sub clean_list {
+	my ($channelkey, $nickkey);
+	if (%victims) {
+		foreach $channelkey (keys %victims) {
+			foreach $nickkey (keys %{$victims{$channelkey}}) {
+				if ((time()-$victims{$channelkey}{$nickkey}) > settings_get_int('autorejoinpunish_time_limit')) {
+					delete $victims{$channelkey}{$nickkey};
+				}
+			}
+		}
+	}
+}
+
+sub check_bans {
+	my ($server, $timestamp);
+	if (%bans) {
+		foreach $server (keys %bans) {
+			foreach $timestamp (keys %{$bans{$server}}) {
+				if ((time()-$timestamp) > settings_get_int('autorejoinpunish_knockout_time')) {
+					my ($channel, $address) = split(/\//, $bans{$server}{$timestamp});
+					server_find_tag($server)->command('mode' . ' ' . $channel . ' -b *!' . $address);
+					delete $bans{$server}{$timestamp};
+				}
+			}
+		}
+	}
+}
+
+
+settings_add_int  ('misc', 'autorejoinpunish_time_limit', '3');
+settings_add_str  ('misc', 'autorejoinpunish_kickban_message', 'Kickban for autorejoining.');
+settings_add_bool ('misc', 'autorejoinpunish_knockout', '1');
+settings_add_int  ('misc', 'autorejoinpunish_knockout_time', '60');
+settings_add_str  ('misc', 'autorejoinpunish_knockout_message', 'Temporary ban for autorejoining.');
+settings_add_str  ('misc', 'autorejoinpunish_channels', '');
+settings_add_bool ('misc', 'autorejoinpunish_only_own_kicks', '1');
+
+signal_add_first 'message join' => 'message_join';
+signal_add_first 'message kick' => 'message_kick';
+
+timeout_add ('5000', 'check_bans', '');
+timeout_add ('3600000', 'clean_list', '');
+# 1h = 60min * 60s * 1000ms = 3600000ms
diff --git a/scripts/autoreminder.pl b/scripts/autoreminder.pl
new file mode 100644
index 0000000..3548b28
--- /dev/null
+++ b/scripts/autoreminder.pl
@@ -0,0 +1,147 @@
+#####################
+#
+# irssi autoreminder script.
+# Copyright (C) Terry Lewis
+# Terry Lewis <mrkennie@kryogenic.co.uk>
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+#
+#####################
+#
+# Auto reminder script for irssi
+# This is really a first attempt at an irssi script,
+# really more of a hack I suppose, to auto remind 
+# someone at certain intervals.
+# It will not remind at every interval defined, so its 
+# kinda less annoying, but hopefully effective.
+#
+# To start:
+#     /start <nick> <"reminder message"> [interval] 
+#     (<> = required, [] = optional)
+# reminder Message must use "" parenthasis.
+#
+# to stop reminding use /stop
+#
+# I know the code is not fantastic but I will appreciate
+# any patches for improvements, just mail them to me if
+# you do improve it :)
+#
+# I use a rather nice script called cron.pl by Piotr 
+# Krukowiecki which I found at http://www.irssi.org/scripts/
+# so I can start and stop the script at certain times.
+# I hope someone finds this useful, Enjoy =)
+#
+#####################
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '0.01';
+%IRSSI = (
+    authors     => 'Terry Lewis',
+    contact     => 'terry@kryogenic.co.uk',
+    name        => 'Auto Reminder',
+    description => 'This script ' .
+                   'Reminds people ' .
+                   'to do stuff! :)',
+    license     => 'GPLv2',
+);
+
+my($timeout_tag, $timeout, $state, @opts, $date, @time, @hour, $start_hour, $end_hour);
+
+
+#default state 0 meaning we are not started yet
+$state = 0;
+
+
+# /start <nick> <"message"> [interval]
+sub cmd_start {
+    if($state != 1){
+        my($data,$server,$channel) = @_;
+        @opts = split(/\s\B\"(.*)\b\"/, $data);
+	
+	if($opts[0] ne ''){  
+	    if($opts[1] ne ''){
+	        if($opts[0] =~ /\s/g){
+	            Irssi::print("Invalid username");
+            	}elsif($opts[1] eq ''){
+	            Irssi::print("You must type a message to send");
+                }else{
+	        
+	            $state = 1;
+
+	            if($opts[2] =~ /[0-9]/g){
+		        $opts[2] =~ s/\s//g;
+		        $timeout = $opts[2];
+                        timeout_init($timeout);
+	            }else{
+		        Irssi::print("Invalid interval value, using defaults (15mins)") unless $opts[2] eq '';
+		        $timeout = "900000";
+		        timeout_init($timeout);
+		    }
+		    Irssi::print "Bugging $opts[0] with message \"$opts[1]\" every \"$timeout ms\"";
+	        }
+            }else{
+	         Irssi::print ("Usage: /start nick \"bug_msg\" [interval] (interval is optional)");
+	    }
+	}else{
+	    Irssi::print ("Usage: /start nick \"bug_msg\" [interval] (interval is optional)");
+	}
+	
+    }else{
+        Irssi::print "Already started";
+    }
+}
+
+# /stop
+sub cmd_stop {
+    if($state == 1){
+        $state = 0;
+	Irssi::print "No longer bugging $opts[0]";
+	Irssi::timeout_remove($timeout_tag);
+	$timeout_tag = undef;
+    }else{
+      Irssi::print "Not started";
+    }
+}
+
+sub timeout_init {
+    if($state == 1){
+    
+        Irssi::timeout_remove($timeout_tag);
+        $timeout_tag = undef;
+        $timeout_tag = Irssi::timeout_add($timeout, "remind_them", "");
+    }
+}
+
+sub remind_them {
+    if($state == 1){
+        my (@servers) = Irssi::servers();    
+        
+	# make it random, so we dont remind at every defined interval
+        my $time = rand()*3;
+
+        if($time < 1){
+            $servers[0]->command("MSG $opts[0] Hi, this is an automated reminder, $opts[1]");
+	}
+        timeout_init($timeout);
+    }
+}
+
+
+Irssi::command_bind('start', \&cmd_start);
+Irssi::command_bind('stop', \&cmd_stop);
+
diff --git a/scripts/autostuff.pl b/scripts/autostuff.pl
new file mode 100644
index 0000000..7b197c0
--- /dev/null
+++ b/scripts/autostuff.pl
@@ -0,0 +1,39 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.02';
+%IRSSI = (
+    authors     => 'Juerd',
+    contact	=> '#####@juerd.nl',
+    name        => 'autostuff',
+    description	=> 'Save current servers, channels and windows for autoconnect and autojoin',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/site.plp/irssi',
+    changed	=> '2010-03-24 14:35',
+);
+
+use Irssi qw(command_bind servers channels windows command);
+
+command_bind autostuff => sub {
+    my ($data, $server, $window) = @_;
+    for (servers) {
+        my $chatnet = $_->{chatnet} || $_->{tag};
+        command "/network add $chatnet";
+        command "/server add -auto -network $chatnet $_->{address} $_->{port} $_->{password}";
+    }
+    for (channels) {
+        my $chatnet = $_->{server}->{chatnet} || $_->{server}->{tag};
+        command "/channel add -auto $_->{name} $chatnet $_->{key}";
+    }
+    command "/layout save";
+    command "/save";
+};
+
+command_bind "window clean" => sub {
+    for (sort { $b->{refnum} <=> $a->{refnum} } windows) {
+        next if $_->{active};
+        next if $_->{immortal};
+        next if $_->{name};
+        command "/window close $_->{refnum}";
+    }
+};
diff --git a/scripts/autoversion.pl b/scripts/autoversion.pl
new file mode 100644
index 0000000..47d4475
--- /dev/null
+++ b/scripts/autoversion.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.1";
+%IRSSI = (
+    authors     => "Christian 'mordeth' Weber",
+    contact     => "chris\@mac.ruhr.de",
+    name        => "autoversion",
+    description => "Auto-CTCP Verison on every joining nick",
+    license     => "GPLv2",
+    url         => "",
+    changed     => "20020821",
+    modules     => ""
+);
+
+sub event_message_join ($$$$) {
+    my ($server, $channel, $nick, $address) = @_;
+    if (lc($channel) eq lc(Irssi::active_win()->{active}->{name})) {
+    	$server->command("ctcp $nick VERSION");
+    };
+}				
+
+Irssi::signal_add('message join', 'event_message_join');
+
diff --git a/scripts/autovoice.pl b/scripts/autovoice.pl
new file mode 100644
index 0000000..ed03d8f
--- /dev/null
+++ b/scripts/autovoice.pl
@@ -0,0 +1,679 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+BEGIN {
+	unless (exists $::{"Irssi::"}) {
+		require Pod::Usage;
+		Pod::Usage::pod2usage(-verbose => 2);
+	} 
+}
+
+use Irssi;
+our $VERSION = '0.05';
+our %IRSSI = (
+		authors => 'aluser',
+		name => 'autovoice',
+		description => 'autovoice',
+		license => 'GPL',
+	);
+
+our %bad;
+
+=head1 SYNOPSIS
+
+	/script load autovoice
+	/autovoice add #somechannel
+Idle on #somechannel as [half]op, and you will voice people :)
+
+=head1 MOTIVATION
+
+This is certainly not a new concept, but I dislike many implementations of autovoicing because they are not as intelligent as they could be.  Blindly voicing everyone who joins your channel is dumb, because it removes the protection that +m is supposed to give you.  A troublemake need merely to rejoin the channel to get his voice back.  You probably want to voice newcomers to your channel, so a password or hostmask system is no good.  Besides, it's intuitive that anybody leaving the channel without voice and quickly rejoining is trying to leverage your autovoicer!  So, the main purpose of this script is to automatically detect these people and not voice them.
+
+The other important feature is fine-grained control over where you voice people.  You might want to autovoice in efnet #foo but not in dalnet #foo.  The C</autovoice add> command gives you C<-server> and C<-ircnet> options to control on which channels you will autovoice, even if the channels have identical names.
+
+I still consider this script to be lightly tested, but I do hope that it is well documented enough that it can be debugged well.
+
+=head1 INSTALL
+
+Just place this script in F<~/.irssi/scripts>.  To have it load automatically when you start Irssi, do this:
+
+	mkdir -p ~/.irssi/scripts/autorun
+	ln -s ../autovoice.pl ~/.irssi/scripts/autorun/
+
+If you haven't figured it out yet, you can run the script outside of Irssi to get a man page type document, like this:
+
+	chmod +x autovoice.pl
+	./autovoice.pl
+
+=head1 COMMANDS
+
+=over
+
+=item I</autovoice add>
+
+This is a helper to add channels to L<autovoice_channels> for you.
+I'm going to explain this by example:
+
+	/autovoice add #channelfoo
+	/autovoice add -server irc.foo.com #barbarfoo
+	/autovoice add -ircnet EFNet #perlhelp
+	/autovoice add -server irc.efnet.org -ircnet Undernet #irssi
+
+Note that the last example actually adds two "channels" to the setting, both named #irssi.  The channel will be valid on Undernet or the server irc.efnet.org.
+
+=item I</autovoice remove>
+
+This is a helper to remove channels from L<autovoice_channels> for you.
+Example:
+
+	/autovoice remove #somechannel
+	/autovoice remove #channel1 #channel2
+
+=item I</autovoice dump>
+
+Mostly for debugging, this dumps the perl hash containing blacklisted nicks to your screen.
+
+=item I</autovoice flush>
+
+Flush the blacklists.
+
+=back
+
+=head1 SETTINGS
+
+=over
+
+=item bool I<autovoice> = ON
+
+Set autovoicing on or off.
+
+=item string I<autovoice_channels> = 
+
+Control which channels we will autovoice.  The simplest form is
+
+	#channel1 , #channel2 , #channel3
+
+Space before the commas is mandatory; after is optional.  For any channel in the list, you may specify a chatnet or a server like this:
+
+	#channel1 , #channel2 =>SOMECHATNET , #channel3 @some.server.com
+
+Space after the channels and before the C<< => >> or C<@> is required.  Space after the C<< => >> or C<@> is optional.  (not shown)
+
+See L</autovoice add> and L</autovoice remove> for wrappers to this.
+
+=item int I<autovoice_cycletime> = 600
+
+Control the amount of time, in seconds, for which we remember that a nick left a channel without voice.
+
+=item bool I<autovoice_voice_ops> = OFF
+
+Whether or not to give voice to people who already have op or halfop
+
+=item bool I<autovoice_use_ident> = OFF
+
+Whether to distinguish between nicks which have the same host but different user names.  (nick![ident@host] vs nick!ident@[host])
+
+=back
+
+=cut
+
+
+=head1 BUGS
+
+Plenty.
+
+=over
+
+=item
+
+&add will add duplicate channels
+
+=item
+
+Error checking in &add is weak.
+
+=item
+
+Setting L<autovoice_use_ident> causes the existing blacklists to be ineffective.
+
+=item
+
+C<parse_channels> and C<deparse_channels> mix up the ordering of the channels in the autovoice_channels setting.  This is a property of the hash used to represent the setting.
+
+=item
+
+remove doesn't let you remove only one channel when several use the same name.
+
+=item
+
+Setting L<autovoice_cycletime> does not change the timing for entries already in the badlist, only for entries made after the setting is changed.  As far as I can tell, the alternatives are to A) Have a potentially ever-growing %bad, or B) to run a cleanup on a timer which must traverse all of %bad.
+
+=back
+
+=cut
+
+
+=head1 HACKING
+
+This section is for people interested in tweaking/fixing/improving/developing/hacking this script.  It describes every subroutine and data structure in the script.  If you do not know Perl you should stop reading here.
+
+Variables ending in C<_rec> are Irssi objects of some sort.  I also use C<_text> to indicate normal strings.
+
+=head2 DATA STRUCTURES
+
+=over
+
+=item %bad
+
+This hash holds the badlists for all channels.  Each key is a tag as supplied by C<$server_rec->{tag}>.  Each value is a hash reference as follows:
+
+Each key is a lowercased channel name as given by C<< lc $channel_rec->{name} >> .  Each value is a hash referenc described as follows:
+
+Each key is a lowercased host.  If the host was marked bad while autovoice_use_ident was set, it is in the form "username@host.com".  If not, it is just "host.com".  Each value is a tag as returned by C<Irssi::timeout_add>.  This is used to remove the callback which is planning to remove the entry from the badlist after autovoice_cycletime expires.
+
+=item %commands
+
+This hash holds the commands invoked as C<< /autovoice <command> [ arg1 arg2 ... ] >>.  Each key is the lowercased name of a command, and each value is a reference to a subroutine.  The subroutine should expect an Irssi Server object, a WindowItem object, and a list of user supplied arguments.  The case of the arguments is left as supplied by the user.
+
+=back
+
+=cut
+
+=head2 SUBROUTINES
+
+=over
+
+=item I<massjoin($channel_rec, $nicks_ray)>
+
+The nicks in the array referenced by $nicks_ray are joining $channel_rec.  This is an irssi signal handler.
+
+=cut
+
+sub massjoin {
+	my ($channel_rec, $nicks_ray) = @_;
+	voicem($channel_rec, @$nicks_ray);
+}
+
+=item I<message_part($server_rec, $channel_text, $nick_text, $addr, $reason)>
+
+A nick is parting a channel.  $addr and $reason are not used.  This is an irssi signal handler.
+
+=cut
+
+sub message_part {
+	my ($server_rec, $channel_text, $nick_text) = @_;
+	#Irssi::print("chan: $channel_text, nick: $nick_text");
+	#return unless defined $nick_text;	# happens if the part was us
+	no warnings;
+	my $channel_rec = $server_rec->channel_find($channel_text);
+	use warnings;
+	return unless defined $channel_rec;
+	my $nick_rec = $channel_rec->nick_find($nick_text);
+	partem($channel_rec, $nick_rec);
+}
+
+=item I<message_quit($server_rec, $nick_text, $addr, $reason)>
+
+A nick is quiting the server.  $addr and $reason are not used.  This is an irssi signal handler.
+
+=cut
+
+sub message_quit {
+	my ($server_rec, $nick_text, $addr, $reason) = @_;
+	my $chanstring = $server_rec->get_channels();
+	$chanstring =~ s/ .*//; #strip channel keys
+	my @channels_text = split /,/, $chanstring;
+	no warnings;
+	my @channels_rec =
+		map { $server_rec->channel_find($_) } @channels_text;
+	use warnings;
+	for (@channels_rec) {
+		my $nick_rec = $_->nick_find($nick_text);
+		if (defined $nick_rec) {
+			partem($_, $nick_rec);
+		}
+	}
+}
+
+=item I<message_kick($server_rec, $channel_text, $nick_text, $addr, $reason)>
+
+Called when a nick is kicked from a channel.  This is an Irssi signal handler.
+
+=cut
+
+sub message_kick {
+	my ($server_rec, $channel_text, $nick_text) = @_;
+	my $channel_rec = $server_rec->channel_find($channel_text);
+	return unless defined $channel_rec;
+	my $nick_rec = $channel_rec->nick_find($nick_text);
+	partem($channel_rec, $nick_rec);
+}
+
+=item I<voicem($channel_rec, @nicks)>
+
+This voices all of @nicks on $channel_rec, provided they aren't in the blacklist.
+
+=cut
+
+sub voicem {
+	my ($channel_rec, @nicks) = @_;
+	if (is_auto($channel_rec)) {
+		for my $nick_rec (@nicks) {
+			unless (is_bad($channel_rec, $nick_rec)
+					or $nick_rec->{voice}) {
+				if (get_voiceops() or
+						!($nick_rec->{op} or $nick_rec->{halfop})) {
+					my $nick_text = $nick_rec->{nick};
+					$channel_rec->command("voice $nick_text");
+				}
+			}
+		}
+	}
+}
+
+=item I<partem($channel_rec, $nick_rec)>
+
+Called when a nick is leaving a channel, by any means.  This is what decides whether the nick does or does not have voice.
+
+=cut
+
+sub partem {
+	my ($channel_rec, $nick_rec) = @_;
+	#$channel_rec->print("partem called");
+	if (is_auto($channel_rec)) {
+		#$channel_rec->print("this channel is autovoiced.");
+		if (not $nick_rec->{voice} and
+				not $nick_rec->{op} and
+				not $nick_rec->{halfop}) {
+			#$channel_rec->print("nick leaving with no voice");
+			make_bad($channel_rec, $nick_rec);
+		} else {
+			make_unbad($channel_rec, $nick_rec);
+		}
+	}
+}
+
+=item I<is_bad($channel_rec, $nick_rec)>
+
+Returns 1 if $nick_rec is blacklisted on $channel_rec, 0 otherwise.
+
+=cut
+
+sub is_bad {
+	my ($channel_rec, $nick_rec) = @_;
+	my $server_tag = $channel_rec->{server}->{tag};
+	my $channel_text = lc $channel_rec->{name};
+	my $host_text = lc $nick_rec->{host};
+	if (not get_useident()) {
+		$host_text =~ s/.*?\@//;
+	}
+	#$channel_rec->print("calling is_bad {$server_tag}{$channel_text}{$host_text}");
+	return
+		exists $bad{$server_tag} &&
+		exists $bad{$server_tag}{$channel_text} &&
+		exists $bad{$server_tag}{$channel_text}{$host_text};
+}
+
+=item I<make_bad($channel_rec, $nick_rec)>
+
+Blacklist $nick_rec on $channel_rec for autovoice_cycletime seconds.
+
+=cut
+
+sub make_bad {
+	my ($channel_rec, $nick_rec) = @_;
+	my $tag = $channel_rec->{server}->{tag};
+	my $channel_text = lc $channel_rec->{name};
+	my $host_text = lc $nick_rec->{host};
+	if (not get_useident()) {
+		$host_text =~ s/.*?\@//;
+	}
+	#$channel_rec->print("channel_rec: ".ref($channel_rec)."nick_rec: ".ref($nick_rec).". make bad $tag, $channel_text, $host_text");
+	Irssi::timeout_remove($bad{$tag}{$channel_text}{$host_text})
+			if exists $bad{$tag}{$channel_text}{$host_text};
+	$bad{$tag}{$channel_text}{$host_text} =
+			Irssi::timeout_add(get_cycletime(),
+							'timeout',
+							[ $channel_rec, $nick_rec ]);
+}
+
+=item I<timeout([$channel_rec, $nick_rec])>
+
+This is the irssi timeout callback which removes $nick_rec from the blacklist for $channel_rec when autovoice_cycletime seconds have elapsed.  make_unbad finds the tag in the badlist in order to keep this from being called again.  Note that it only takes one argument, an array ref
+
+=cut
+
+sub timeout {
+	my ($channel_rec, $nick_rec) = @{$_[0]};
+	#$channel_rec->print("timing out");
+	make_unbad($channel_rec, $nick_rec);
+}
+
+=item I<make_unbad($channel_rec, $nick_rec)>
+
+Remove $nick_rec from the blacklist for $channel_rec
+
+=cut
+
+sub make_unbad {
+	my ($channel_rec, $nick_rec) = @_;
+	my $tag = $channel_rec->{server}->{tag};
+	my $channel_text = lc $channel_rec->{name};
+	my $host_text = lc $nick_rec->{host};
+	if (not get_useident()) {
+		$host_text =~ s/.*\@//;
+	}
+	if (exists $bad{$tag}{$channel_text}{$host_text}) {
+		Irssi::timeout_remove($bad{$tag}{$channel_text}{$host_text});
+		delete $bad{$tag}{$channel_text}{$host_text};
+		if (not keys %{$bad{$tag}{$channel_text}}) {
+			delete $bad{$tag}{$channel_text};
+		}
+		if (not keys %{$bad{$tag}}) {
+			delete $bad{$tag};
+		}
+	}
+}
+
+=item I<parse_channels()>
+
+Examine autovoice_channels and return a hash reference.  Each key is a channel name, lowercased.  Each value is a hash with one to three keys, 'server', 'chatnet', and/or 'plain'.  If server, it holds an array ref with all servers on which the channel is autovoice.  If chatnet, it holds an array ref with all the chatnets on which the channel is autovoice.  If plain, it just has the value 1.
+
+=cut
+
+sub parse_channels {
+	my $chanstring = lc Irssi::settings_get_str('autovoice_channels');
+	$chanstring =~ s/^\s+//;
+	$chanstring =~ s/\s+$//;
+	my @fields = split /\s+,\s*/, $chanstring;
+	my %hash;
+	keys %hash  = scalar @fields;
+	for (@fields) {
+		if (/\s=>/) {
+			my ($channel, $chatnet) = split /\s+=>\s*/, $_, 2;
+			add_channel_to_parsed(\%hash, $channel, $chatnet, undef);
+		} elsif (/\s\@/) {
+			my ($channel, $server) = split /\s+\@\s*/, $_, 2;
+			add_channel_to_parsed(\%hash, $channel, undef, $server);
+		} else {
+			my ($channel) = /(\S+)/;
+			add_channel_to_parsed(\%hash, $channel, undef, undef);
+		}
+	}
+	return \%hash;
+}
+
+=item I<deparse_channels($hashr)>
+
+Take a hash ref like that produced by parse_channels and convert it into a string suitable for autovoice_channels
+
+=cut
+
+sub deparse_channels {
+	my $hashr = shift;
+	my @fields;
+	for my $channel (keys %$hashr) {
+		my $s = $channel;
+		push(@fields, $s) if exists $hashr->{$channel}->{plain};
+		if (exists $hashr->{$channel}->{server}) {
+			for (@{$hashr->{$channel}->{server}}) {
+				push(@fields, $s.' @ '.$_);
+			}
+		}
+		if (exists $hashr->{$channel}->{chatnet}) {
+			for (@{$hashr->{$channel}->{chatnet}}) {
+				push(@fields, $s.' => '.$_);
+			}
+		}
+	}
+	return join ' , ', @fields;
+}
+
+=item I<is_auto($channel_rec)>
+
+Returns 1 if $channel_rec is an autovoiced channel as defined by autovoice_channels, 0 otherwise.
+
+=cut
+
+sub is_auto {
+	unless (Irssi::settings_get_bool('autovoice')) {
+		return 0;
+	}
+	my $channel_rec = shift;
+	my $channel_text = lc $channel_rec->{name};
+	my $parsedchannels = parse_channels();
+	return 0 unless exists $parsedchannels->{$channel_text};
+	if (exists $parsedchannels->{$channel_text}->{plain}) {
+		return 1;
+	} elsif (exists $parsedchannels->{$channel_text}->{chatnet}) {
+		#Irssi::print("looking at chatnet @{$parsedchannels->{$channel_text}->{chatnet}}");
+		for (@{$parsedchannels->{$channel_text}->{chatnet}}) {
+			return 1 if $_ eq lc $channel_rec->{server}->{chatnet};
+		}
+		return 0;
+	} else {
+		for (@{$parsedchannels->{$channel_text}->{server}}) {
+			return 1 if $_ eq lc $channel_rec->{server}->{address};
+		}
+		return 0;
+	}
+}
+
+our %commands = (
+					dump => \&dump,
+					add => \&add,
+					remove => \&remove,
+					flush => \&flush,
+				);
+
+=item I<autovoice_cmd($data, $server, $witem)>
+
+Irssi command handler which dispatches all the /autovoice * commands.  Autovoice commands are given ($server_rec, $witem, @args), where @args is the result of split ' ', $data minus the first element ("autovoice").  Note that the case of @args is not changed.
+
+=cut
+
+sub autovoice_cmd {
+	my ($data, $server, $witem) = @_;
+	my ($cmd, @args) = (split ' ', $data);
+	$cmd = lc $cmd;
+	if (exists $commands{$cmd}) {
+		$commands{$cmd}->($server, $witem, @args)
+	} else {
+		Irssi::print("No such command: autovoice $cmd");
+	}
+}
+
+=item I<dump($server_rec, $witem, @args)>
+
+Invoked as C</autovoice dump>, this C<require>s Data::Dumper and dumps the blacklist hash to the current window. @args and $server_rec are ignored.
+
+=cut
+
+sub dump {
+	require Data::Dumper;
+	my $witem = $_[1];
+	my $string = Data::Dumper->Dump([\%bad], ['bad']);
+	chomp $string;
+	if ($witem) {
+		$witem->print($string);
+	} else {
+		Irssi::print($string);
+	}
+}
+
+=item I<add($server_rec, $witem, @args)>
+
+Invoked as C</autovoice add (args)>.  This adds channels to autovoice_channels.  See L</autovoice add> in COMMANDS for usage.
+
+=cut
+
+sub add {
+	my ($server_rec, $witem, @args) = @_;
+	@args = map {lc} @args;
+	my $parsedchannels = parse_channels();
+	my ($server, $chatnet, $channel);
+	for (my $i = 0; $i < @args; ++$i) {
+		if ($args[$i] eq '-ircnet') {
+			if (defined $chatnet) {
+				Irssi::print("autovoice add: warning: -ircnet given twice, using the second value.");
+			}
+			$chatnet = $args[$i+1];
+			splice(@args, $i, 1)
+		} elsif ($args[$i] eq '-server') {
+			if (defined $server) {
+				Irssi::print("autovoice add: warning: -server given twice, using the second value.");
+			}
+			$server = $args[$i+1];
+			splice(@args, $i, 1);
+		} else {
+			if (defined $channel) {
+				Irssi::print("autovoice add: warning: more than one channel specified, using the last one.");
+			}
+			$channel = $args[$i];
+			$channel = '#'.$channel
+				unless $server_rec->ischannel($channel);
+		}
+	}
+	unless (defined $channel) {
+		Irssi::print("autovoice add: no channel specified");
+		return;
+	}
+	add_channel_to_parsed($parsedchannels, $channel, $chatnet, $server);
+	Irssi::settings_set_str('autovoice_channels' =>
+			deparse_channels($parsedchannels));
+	if ($witem) {
+		$witem->command("set autovoice_channels");
+	} else {
+		Irssi::command("set autovoice_channels");
+	}
+}
+
+=item I<add_channel_to_parsed($parsedchannels, $channel, $chatnet, $server)>
+
+Adds a channel to a hash ref like that returned by &parse_channels.  If $chatnet is defined but $server is not, restrict it to the chatnet.  If $server is defined but $chatnet is not, restrict it to the server.  If both are defined, add to channels, one restricted to the server and the other to the chatnet.  (Both with the same name)  If neither is defined, do not restrict the channel to a chatnet or server.
+
+=cut
+
+sub add_channel_to_parsed {
+	my ($parsedchannels, $channel, $chatnet, $server) = @_;
+	if (defined $chatnet) {
+		push @{$parsedchannels->{$channel}->{chatnet}}, $chatnet;
+	} 
+	if (defined $server) {
+		push @{$parsedchannels->{$channel}->{server}}, $server;
+	} 
+	if (not defined($chatnet) and not defined($server)) {
+		$parsedchannels->{$channel}->{plain} = 1;
+	}
+}
+
+=item I<remove($server_rec, $witem, @args)>
+
+Invoked as
+
+	/autovoice remove [-ircnet IRCNET] [-server SERVER] #chan1 [-ircnet IRCNET] [-server SERVER] #chan2
+
+Removes all channels matching those specified.  An -ircnet or -server option only applies to the channel following it, and must be specified before its channel name.  A channel without -ircnet or -server options removes all channels with that name.
+
+=cut
+
+sub remove {
+	my ($server_rec, $witem, @args) = @_;
+	my %parsedchannels = %{parse_channels()};
+	my ($wantserver, $wantchatnet, $server, $chatnet);
+	for (@args) {
+		$_ = lc;
+		if ($wantserver) {
+			$wantserver = 0;
+			$server = $_;
+		} elsif ($wantchatnet) {
+			$wantchatnet = 0;
+			$chatnet = $_;
+		} elsif ($_ eq '-server') {
+			$wantserver = 1;
+		} elsif ($_ eq '-ircnet') {
+			$wantchatnet = 1;
+		} elsif (exists $parsedchannels{$_}) {
+			my $chan = $_;
+			if (defined $server and exists $parsedchannels{$chan}{server}) {
+				@{$parsedchannels{$chan}{server}} = grep {$_ ne $server} @{$parsedchannels{$chan}{server}};
+			}
+			if (defined $chatnet and exists $parsedchannels{$chan}{chatnet}) {
+				@{$parsedchannels{$chan}{chatnet}} = grep {$_ ne $chatnet} @{$parsedchannels{$chan}{chatnet}};
+			}
+			if (not defined $server and not defined $chatnet) {
+				delete $parsedchannels{$chan};
+			} else {
+				if (exists $parsedchannels{$chan}{server} and not @{$parsedchannels{$chan}{server}}) {
+					delete $parsedchannels{$chan}{server};
+				}
+				if (exists $parsedchannels{$chan}{chatnet} and not @{$parsedchannels{$chan}{chatnet}}) {
+					delete $parsedchannels{$chan}{chatnet};
+				}
+			}
+		}
+	}
+	Irssi::settings_set_str('autovoice_channels' =>
+			deparse_channels(\%parsedchannels));
+	if ($witem) {
+		$witem->command("set autovoice_channels");
+	} else {
+		Irssi::command("set autovoice_channels");
+	}
+}
+
+=item I<flush($server_rec, $witem, @args)>
+
+Flush the badlist.
+
+=cut
+
+sub flush {
+	%bad = ();
+}
+
+=item I<get_cycletime()>
+
+Checks autovoice_cycletime and returns the cycle time in milliseconds.
+
+=cut
+
+sub get_cycletime {
+	1000 * Irssi::settings_get_int("autovoice_cycletime");
+}
+
+=item I<get_voiceops()>
+
+Return the value of autovoice_voice_ops
+
+=cut
+
+sub get_voiceops {
+	Irssi::settings_get_bool("autovoice_voice_ops");
+}
+
+=item I<get_useident()>
+
+Return the value of autovoice_use_ident
+
+=cut
+
+sub get_useident {
+	Irssi::settings_get_bool("autovoice_use_ident");
+}
+
+=back
+
+=cut
+
+Irssi::signal_add_first('message part', 'message_part');
+Irssi::signal_add_first('message quit', 'message_quit');
+Irssi::signal_add_first('message kick', 'message_kick');
+Irssi::signal_add_last('massjoin', 'massjoin');
+Irssi::settings_add_str('autovoice', 'autovoice_channels' => "");
+Irssi::settings_add_int('autovoice', 'autovoice_cycletime' => 600);
+Irssi::settings_add_bool('autovoice', 'autovoice_voice_ops' => 0);
+Irssi::settings_add_bool('autovoice', 'autovoice_use_ident' => 0);
+Irssi::settings_add_bool('autovoice', 'autovoice' => 1);
+Irssi::command_bind(autovoice => 'autovoice_cmd');
diff --git a/scripts/autowhois.pl b/scripts/autowhois.pl
new file mode 100644
index 0000000..1f9802e
--- /dev/null
+++ b/scripts/autowhois.pl
@@ -0,0 +1,38 @@
+# /WHOIS all the users who send you a private message.
+# v1.1 for irssi 0.7.98 by Timo Sirainen
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "1.1";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi",
+    name	=> "autowhois",
+    description	=> "/WHOIS all the users who send you a private message.",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100",
+    changes	=> "v1.1: don't /WHOIS if query exists for the nick already"
+);
+
+# History:
+#  v1.1: don't /WHOIS if query exists for the nick already
+
+my $lastfrom, $lastquery;
+
+sub msg_private_first {
+  my ($server, $msg, $nick, $address) = @_;
+
+  $lastquery = $server->query_find($nick);
+}
+
+sub msg_private {
+  my ($server, $msg, $nick, $address) = @_;
+
+  return if $lastquery || $lastfrom eq $nick;
+
+  $lastfrom = $nick;
+  $server->command("whois $nick");
+}
+
+Irssi::signal_add_first('message private', 'msg_private_first');
+Irssi::signal_add('message private', 'msg_private');
diff --git a/scripts/autowhois_simple.pl b/scripts/autowhois_simple.pl
new file mode 100644
index 0000000..74ae039
--- /dev/null
+++ b/scripts/autowhois_simple.pl
@@ -0,0 +1,39 @@
+# Simple and LIGHT version of script /WHOIS'ing all who
+# send you a private message. Makes /WHOIS once per person, 
+# only when the query window has been created 
+# and therefore works only with irssi with
+# default query window behaviour.
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+
+$VERSION = "0.1";
+%IRSSI = (
+    authors=> "Janne Mikola",
+    contact=> "janne@mikola.info",
+    name=> "autowhois_simple",
+    description=> "/WHOIS anyone querying you automatically.",
+    license=> "GPL",
+    url=> "http://www.mikola.info",
+    changed=> "14th of July, 2008",
+    changes=> "v0.1: Initial release"
+);
+
+# Global
+$handle_this_query = 0;
+
+# Checks the birth of a new query window.
+sub new_query {
+    $handle_this_query = 1;
+}
+
+# Does the WHOIS if privmsg is in a new query window.
+sub make_whois {
+    if($handle_this_query) {
+	my ($server, $msg, $nick, $addr) = @_;
+	$server->command("whois $nick");
+	$handle_this_query = 0;
+    }
+}
+
+Irssi::signal_add_first('query created', 'new_query');
+Irssi::signal_add('message private', 'make_whois');
diff --git a/scripts/autowrap.pl b/scripts/autowrap.pl
new file mode 100644
index 0000000..c110c91
--- /dev/null
+++ b/scripts/autowrap.pl
@@ -0,0 +1,38 @@
+use strict;
+use Text::Wrap;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2007031900';
+%IRSSI = (
+	authors		=> 'Bitt Faulk',
+	contact		=> 'lxsfx3h02@sneakemail.com',
+	name		=> 'autowrap',
+	description	=> 'Automatically wraps long sent messages into multiple shorter sent messages',
+	license		=> 'BSD',
+	url		=> 'none',
+	modules		=> 'Text::Wrap',
+);
+
+sub event_send_text () {
+	my ($line, $server_rec, $wi_item_rec) = @_;
+	my @shortlines;
+	if (length($line) <= 400) {
+		return;
+	} else {
+		# split line, recreate multiple "send text" events
+		local($Text::Wrap::columns) = 400;
+		@shortlines = split(/\n/,wrap('','',$line));
+		foreach (@shortlines) {
+			if ($_ >= 400) {
+				Irssi::print("autowrap: unable to split long line.  sent as-is");
+				return;
+			}
+		}
+		foreach (@shortlines) {
+			Irssi::signal_emit('send text', $_,  $server_rec, $wi_item_rec);
+		}
+		Irssi::signal_stop();
+	}
+}
+
+Irssi::signal_add_first('send text', "event_send_text");
diff --git a/scripts/away.pl b/scripts/away.pl
new file mode 100644
index 0000000..827aedd
--- /dev/null
+++ b/scripts/away.pl
@@ -0,0 +1,198 @@
+# $Id: away.pl,v 1.6 2003/02/25 08:48:56 nemesis Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "0.23";
+%IRSSI = (
+	  authors     => 'Jean-Yves Lefort, Larry "Vizzie" Daffner, Kees Cook',
+	  contact     => 'jylefort@brutele.be, vizzie@airmail.net, kc@outflux.net',
+	  name        => 'away',
+	  description => 'Away with reason, unaway, and autoaway',
+	  license     => 'BSD',
+	  changed     => '$Date: 2003/02/25 08:48:56 $ ',
+);
+
+# /SET
+#
+#	away_reason		if you are not away and type /AWAY without
+#				arguments, this string will be used as
+#				your away reason
+#
+#       autoaway                number of seconds before marking away,
+#                               only actions listed in "autounaway_level"
+#                               will reset the timeout.
+#
+#	autounaway_level	if you are away and you type a message
+#				belonging to one of these levels, you'll be
+#				automatically unmarked away
+#
+#				levels considered:
+#
+#				DCC		a dcc chat connection has
+#						been established
+#				PUBLICS		a public message from you
+#				MSGS		a private message from you
+#				ACTIONS		an action from you
+#				NOTICES		a notice from you
+#
+# changes:
+#       2003-02-24
+#                       0.23?
+#                       merged with autoaway script
+#
+#	2003-01-09	release 0.22
+#			* command char independed
+#
+#	2002-07-04	release 0.21
+#			* signal_add's uses a reference instead of a string
+#
+# todo:
+#
+#	* rewrite the away command to support -one and -all switches
+#       * make auto-away stuff sane for multiple servers
+#       * make auto-away reason configurable
+#
+# (c) 2003 Jean-Yves Lefort (jylefort@brutele.be)
+#
+# (c) 2000 Larry Daffner (vizzie@airmail.net)
+#     You may freely use, modify and distribute this script, as long as
+#      1) you leave this notice intact
+#      2) you don't pretend my code is yours
+#      3) you don't pretend your code is mine
+#
+# (c) 2003 Kees Cook (kc@outflux.net)
+#      merged 'autoaway.pl' and 'away.pl'
+#
+# BUGS:
+#  - This only works for the first server
+
+use strict;
+use Irssi;
+use Irssi::Irc;			# for DCC object
+
+my ($autoaway_sec, $autoaway_to_tag, $am_away);
+
+sub away {
+  my ($args, $server, $item) = @_;
+
+  if ($server)
+  {
+    if (!$server->{usermode_away})
+    {
+      # go away
+      $am_away=1;
+
+      # stop autoaway
+      if (defined($autoaway_to_tag)) {
+        Irssi::timeout_remove($autoaway_to_tag);
+        $autoaway_to_tag = undef();
+      }
+
+      if (!defined($args))
+      {
+        $server->command("AWAY " . Irssi::settings_get_str("away_reason"));
+        Irssi::signal_stop();
+      }
+    }
+    else
+    {
+      # come back
+      $am_away=0;
+      reset_timer();
+    }
+
+  }
+}
+
+sub cond_unaway {
+  my ($server, $level) = @_;
+  if (Irssi::level2bits(Irssi::settings_get_str("autounaway_level")) & $level)
+  {
+    #if ($server->{usermode_away})
+    if ($am_away)
+    {
+      # come back from away
+      $server->command("AWAY");
+    }
+    else
+    {
+      # bump the autoaway timeout
+      reset_timer();
+    }
+  }
+}
+
+sub dcc_connected {
+  my ($dcc) = @_;
+  cond_unaway($dcc->{server}, MSGLEVEL_DCC) if ($dcc->{type} eq "CHAT");
+}
+
+sub message_own_public {
+  my ($server, $msg, $target) = @_;
+  cond_unaway($server, MSGLEVEL_PUBLIC);
+}
+
+sub message_own_private {
+  my ($server, $msg, $target, $orig_target) = @_;
+  cond_unaway($server, MSGLEVEL_MSGS);
+}
+
+sub message_irc_own_action {
+  my ($server, $msg, $target) = @_;
+  cond_unaway($server, MSGLEVEL_ACTIONS);
+}
+
+sub message_irc_own_notice {
+  my ($server, $msg, $target) = @_;
+  cond_unaway($server, MSGLEVEL_NOTICES);
+}
+
+#
+# /AUTOAWAY - set the autoaway timeout
+#
+sub away_setupcheck {
+  $autoaway_sec = Irssi::settings_get_int("autoaway");
+  reset_timer();
+}
+
+
+sub auto_timeout {
+  my ($data, $server) = @_;
+  my $msg = "autoaway after $autoaway_sec seconds";
+
+  Irssi::timeout_remove($autoaway_to_tag);
+  $autoaway_to_tag=undef;
+
+  Irssi::print($msg);
+
+  $am_away=1;
+
+  my (@servers) = Irssi::servers();
+  $servers[0]->command("AWAY $msg");
+}
+
+sub reset_timer {
+    if (defined($autoaway_to_tag)) {
+      Irssi::timeout_remove($autoaway_to_tag);
+      $autoaway_to_tag = undef;
+    }
+    if ($autoaway_sec) {
+      $autoaway_to_tag = Irssi::timeout_add($autoaway_sec*1000,
+                                                "auto_timeout", "");
+    }
+}
+
+Irssi::settings_add_str("misc", "away_reason", "not here");
+Irssi::settings_add_str("misc", "autounaway_level", "PUBLIC MSGS ACTIONS DCC");
+Irssi::settings_add_int("misc", "autoaway", 0);
+
+Irssi::signal_add("dcc connected",          \&dcc_connected);
+Irssi::signal_add("message own_public",     \&message_own_public);
+Irssi::signal_add("message own_private",    \&message_own_private);
+Irssi::signal_add("message irc own_action", \&message_irc_own_action);
+Irssi::signal_add("message irc own_notice", \&message_irc_own_notice);
+Irssi::signal_add("setup changed"       =>  \&away_setupcheck);
+
+Irssi::command_bind("away",     "away");
+
+away_setupcheck();
+
diff --git a/scripts/away2web.pl b/scripts/away2web.pl
new file mode 100644
index 0000000..3077b9b
--- /dev/null
+++ b/scripts/away2web.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003100201";
+%IRSSI = (
+    authors     => "Oskari 'Okko' Ojala",
+    contact     => "sorter.irssi-scripts\@okko.net",
+    name        => "away2web",
+    description => "Write /away information to a file to be used on web pages",
+    license     => "BSD",
+    changed     => "$VERSION",
+);
+use Irssi 20020324;
+
+#
+# Writes /away information to a file. A web page script (cgi / php / pl..) can
+# then read the file and display online/offline information.
+# 
+# The web page script is left as an excersise for the user because the platforms
+# vary. :-)
+# 
+# Tip: You can also modify this script to directly write HTML and then just include
+# the file on your web page.
+#
+#
+# Format of the file:
+# First line:  Either "1" or "0". 0=Offline (away), 1=Online (not away).
+# Second line: The away reason (message). If the user is Online, second line is
+#              empty but exists.
+#
+# File is written to ~/.irssi/away2web-status.
+#
+
+sub catch_away {
+	my $server = shift;
+
+	open(STATUSFILE, '> '.$ENV{'HOME'}.'/.irssi/away2web-status') || die ("away2web.pl: Could not open file for writing:".$!);
+
+	if ($server->{usermode_away}) {
+	    # User is offline.
+	    print STATUSFILE "0\n";
+	} else {
+	    # User is online.
+	    print STATUSFILE "1\n";
+	}
+
+	print STATUSFILE $server->{'away_reason'}."\n";
+
+	close(STATUSFILE);
+
+}
+
+Irssi::signal_add("away mode changed", "catch_away");
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' (c) '.$IRSSI{authors}.' loaded';
+
+# end of script.
diff --git a/scripts/away_hilight_notice.pl b/scripts/away_hilight_notice.pl
new file mode 100644
index 0000000..94d4c6e
--- /dev/null
+++ b/scripts/away_hilight_notice.pl
@@ -0,0 +1,95 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.10";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'away_hilight_notice.pl',
+    description => 'This script will notice your away message to the person who just hilighted you.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/away_hilight_notice.pl',
+    changed     => 'Wed Dec 31 15:37:24 2003',
+);
+
+## Comments and remarks.
+#
+# This script uses settings. The default time between notices sent to the
+# same person are 3600 seconds or once an hour. Use /SET to change the
+# timeout value.
+#
+#    Setting: away_hilight_notice_timeout
+#
+##
+
+Irssi::theme_register([
+    'away_hilight_notice_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+my %lasthilight;
+my $timeout;
+my $ctimeout;
+
+sub away_hilight_notice {
+
+    my ($dest, $text, $stripped) = @_;
+    my $server = $dest->{server};
+    my ($hilight) = Irssi::parse_special('$;');
+
+    return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT) || ($dest->{level} & (MSGLEVEL_MSGS|MSGLEVEL_NOTICES|MSGLEVEL_SNOTES|MSGLEVEL_CTCPS|MSGLEVEL_ACTIONS|MSGLEVEL_JOINS|MSGLEVEL_PARTS|MSGLEVEL_QUITS|MSGLEVEL_KICKS|MSGLEVEL_MODES|MSGLEVEL_TOPICS|MSGLEVEL_WALLOPS|MSGLEVEL_INVITES|MSGLEVEL_NICKS|MSGLEVEL_DCC|MSGLEVEL_DCCMSGS|MSGLEVEL_CLIENTNOTICE|MSGLEVEL_CLIENTERROR)));
+
+    if ($server->{usermode_away}) {
+
+        if (!$lasthilight{lc($hilight)}{'last'}) {
+      	    $lasthilight{lc($hilight)}{'last'} = time();
+      	    $server->command("^NOTICE $hilight I'm sorry, but I'm away ($server->{away_reason})");
+            return;
+         }
+
+        $timeout = time() - $lasthilight{lc($hilight)}{'last'};
+        $ctimeout = Irssi::settings_get_str('away_hilight_notice_timeout');
+
+        if ($timeout > $ctimeout) {
+            $lasthilight{lc($hilight)}{'last'} = time();
+            $server->command("^NOTICE $hilight I'm sorry, but I'm away ($server->{away_reason})");
+        }
+    }
+}
+
+sub clear_associative_array {
+
+    my ($server) = @_;
+
+    if (!$server->{usermode_away}) {
+        %lasthilight = ();
+    }
+}
+
+Irssi::signal_add('print text', 'away_hilight_notice');
+Irssi::signal_add('away mode changed', 'clear_associative_array');
+Irssi::settings_add_str('away', 'away_hilight_notice_timeout' => 3600);
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'away_hilight_notice_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/away_verbose.pl b/scripts/away_verbose.pl
new file mode 100644
index 0000000..29aefd1
--- /dev/null
+++ b/scripts/away_verbose.pl
@@ -0,0 +1,234 @@
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.0.7';
+%IRSSI = (
+	authors     => 'Wouter Coekaerts, Koenraad Heijlen',
+	contact     => 'vipie@ulyssis.org, wouter@coekaerts.be',
+	name        => 'away_verbose',
+	description => 'A verbose away script, displays a verbose away/back message in the channels you are in. BUT it can limit the channels (not spamming every channel!)',
+	license     => 'GNU GPL version 2',
+	url         => 'http://vipie.studentenweb.org/dev/irssi/',
+	changed     => '2004-01-01'
+);
+
+#--------------------------------------------------------------------
+# Changelog
+#--------------------------------------------------------------------
+#
+# away_verbose.pl 0.7 (2004-01-01)
+# * Wouter Coekaerts
+# 	- don't hard code the command char
+# 
+# away_verbose.pl 0.5 (2002-11-17)
+# * James Seward 
+# 	- make regex case insensitive
+# 
+#--------------------------------------------------------------------
+
+#--------------------------------------------------------------------
+# Public Variables
+#--------------------------------------------------------------------
+my $away_time_texts = "wk,wks,day,days,hr,hrs,min,mins,sec,secs";
+my ($away_set, $away_time, $away_reason, $away_silent)=(0,0,"",0);
+my %myHELP = ();
+
+
+#--------------------------------------------------------------------
+# Help function
+#--------------------------------------------------------------------
+sub cmd_help { 
+	my ($about) = @_;
+
+	%myHELP = (
+		back => "
+BACK 
+
+Away is unset, the time you were away is displayed in the channel with the reason.
+
+like this: /me away_back_text_part1 <reason> away_back_text_part2 TIME
+
+Currently it will display:  
+/me " . Irssi::settings_get_str('away_back_text_part1') . " Some Reason " . Irssi::settings_get_str('away_back_text_part2') . " " . &secs2text(10000) . "
+
+You can change this by changing the settings (with /set setting_name):
+
+* away_back_text_part1     (default: is back from)
+* away_back_text_part2     (default: after)
+* away_time_texts          (default: wk,wks,day,days,hr,hrs,min,mins,sec,secs)
+
+",
+
+		gone => "
+GONE <your away reason> 
+
+Sets you away with the given reason, and displays it publically on the allowed channels.
+
+like this: /me away_gone_text <reason>
+
+Currently it will display:
+/me " . Irssi::settings_get_str('away_gone_text') . " Some Reason 
+
+You can change this by changing the settings (with /set setting_name):
+
+* away_gone_text     (default: is gone:)
+
+
+How do I decide on which channels they away message is displayed?
+-----------------------------------------------------------------
+
+You set 2 settings:  away_order_channels, away_allow_channels.
+
+away_order_channels = [allow|exclude] 
+     Should the channels be allowed or excluded using a regular expression. (exclude = all but the matching channels).
+
+away_allow_channels = <regular expression>
+     The regular expression limiting the channels (eg 'linux|home' without the '').
+",
+
+		awe => "
+AWE [<your away reason>]
+
+When a reason is given, it acts as GONE
+When no reason is supplied it acts as BACK.
+
+SEE ALSO: HELP BACK, HELP GONE
+",
+
+);
+
+	if ( $about =~ /(back|gone|awe)/i ) { 
+		Irssi::print($myHELP{$1});
+	} 
+}
+
+
+#--------------------------------------------------------------------
+# Translate the number of seconds to a human readable format.
+#--------------------------------------------------------------------
+sub secs2text {
+	$away_time_texts = Irssi::settings_get_str('away_time_texts');
+	my ($secs) = @_;
+	my ($wk_,$wks_,$day_,$days_,$hr_,$hrs_,$min_,$mins_,$sec_,$secs_) = (0,1,2,3,4,5,6,7,8,9,10);
+	my @texts = split(/,/,$away_time_texts);
+	my $mins=int($secs/60); $secs -= ($mins*60);
+	my $hrs=int($mins/60); $mins -= ($hrs*60);
+	my $days=int($hrs/24); $hrs -= ($days*24);
+	my $wks=int($days/7); $days -= ($wks*7);
+	my $text = (($wks>0) ? (($wks>1) ? "$wks $texts[$wks_] " : "$wks $texts[$wk_] ")  : "" ); 
+	$text .= (($days>0) ? (($days>1) ? "$days $texts[$days_] " : "$days $texts[$day_] ")  : "" );
+	$text .= (($hrs>0) ? (($hrs>1) ? "$hrs $texts[$hrs_] " : "$hrs $texts[$hr_] ")  : "" );
+	$text .= (($mins>0) ? (($mins>1) ? "$mins $texts[$mins_] " : "$mins $texts[$min_] ")  : "" );
+	$text .= (($secs>0) ? (($secs>1) ? "$secs $texts[$secs_] " : "$secs $texts[$sec_] ")  : "" );
+	$text =~ s/ $//;
+	return $text;
+}
+
+#--------------------------------------------------------------------
+# Output the public away on all permitted channels.
+#--------------------------------------------------------------------
+sub away_describe_pub_channels {
+	my $away_allow_channels=Irssi::settings_get_str('away_allow_channels');
+	my $away_order_channels=Irssi::settings_get_str('away_order_channels');
+	my ($server,$text) = @_;
+	foreach my $server (Irssi::servers) {
+		foreach my $chan ($server->channels) {
+		
+			if ((($server->{chatnet} .":". $chan->{name}) =~ /$away_allow_channels/i) != ($away_order_channels eq "exclude")) {
+				$server->command("DESCRIBE $chan->{name} $text");
+			}
+		}
+	}
+}
+
+#--------------------------------------------------------------------
+# Set the away reason, and call the function to do the announce.
+#--------------------------------------------------------------------
+sub away_setaway {
+	my ($server, $reason)=@_;
+	
+	my $away_gone_text=Irssi::settings_get_str('away_gone_text');
+
+	$server->command("AWAY " . $reason);
+	away_describe_pub_channels($server,"$away_gone_text $reason");
+	$away_time=time;
+	$away_reason=$reason;
+	$away_set=1;
+}
+
+#--------------------------------------------------------------------
+# Remove the away reason, and call the function to do the announce.
+#--------------------------------------------------------------------
+sub away_back {
+	my($server)=@_;
+	
+	my $away_back_text_part1=Irssi::settings_get_str('away_back_text_part1');
+	my $away_back_text_part2=Irssi::settings_get_str('away_back_text_part2');
+
+	if ( $away_set ) {
+		$server->command("AWAY");
+		away_describe_pub_channels($server,"$away_back_text_part1 $away_reason $away_back_text_part2 " . secs2text(time - $away_time));
+		$away_time=0;
+		$away_reason="";
+		$away_set=0;
+
+	} else {
+		Irssi::print("Don't use back if you are not away! OXYMORON");
+		Irssi::print("(ed. note) OXYMORON: a combination of contradictory or incongruous words (as cruel kindness)");
+		return;
+	}
+}
+
+#--------------------------------------------------------------------
+# Defintion of /gone, /back and /awe
+#--------------------------------------------------------------------
+sub gone {
+	my ($args, $server, $item) = @_;
+	away_setaway($server,$args);
+}
+
+sub back {
+	my ($args, $server, $item) = @_;
+	away_back($server);
+}
+
+sub cmd_away {
+	my ($args, $server, $item) = @_;
+	
+	if ( $args ) {
+		away_setaway($server,$args);
+	} else  {
+		away_back($server);
+	}
+}
+
+
+#--------------------------------------------------------------------
+# Irssi::Settings / Irssi::command_bind
+#--------------------------------------------------------------------
+
+Irssi::settings_add_str('away', 'away_allow_channels', "^\$");
+Irssi::settings_add_str('away', 'away_order_channels', "exclude");
+Irssi::settings_add_str('away', 'away_time_texts', $away_time_texts);
+
+Irssi::settings_add_str('away', 'away_gone_text', "is gone:");
+Irssi::settings_add_str('away', 'away_back_text_part1', "is back from");
+Irssi::settings_add_str('away', 'away_back_text_part2', "after");
+
+Irssi::command_bind("gone", "gone", "Advanced Away");
+Irssi::command_bind("back", "back", "Advanced Away");
+Irssi::command_bind("awe","cmd_away", "Advanced Away");
+
+Irssi::command_bind("help","cmd_help", "Irssi commands");
+
+#--------------------------------------------------------------------
+# This text is printed at Load time.
+#--------------------------------------------------------------------
+
+Irssi::print("Use /back, /gone <reason>, or the toggle /awe [<reason>]");
+Irssi::print("Use /away [<reason>] for silent away");
+Irssi::print("Use /help back or gone or awe for more information."); 
+
+
+#- end
diff --git a/scripts/awaybar.pl b/scripts/awaybar.pl
new file mode 100644
index 0000000..a250db6
--- /dev/null
+++ b/scripts/awaybar.pl
@@ -0,0 +1,43 @@
+# awaybar.pl -- initially built for Irssi 0.8.9
+# thanks to mood.pl for practically allowing me
+# to copy the approach..
+use strict;
+use Irssi;
+use Irssi::TextUI;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.1.1";
+%IRSSI = (
+    authors     => 'Simon Shine',
+    contact     => 'http://shine.eu.org/',
+    name        => 'awaybar',
+    description => 'Provides a menubar item with away message',
+    license     => 'Public domain',
+);
+
+Irssi::statusbar_item_register('awaybar', 0, 'awaybar');
+Irssi::signal_add('away mode changed', 'awaybar_redraw');
+
+sub awaybar {
+    my ($item, $get_size_only) = @_;
+    my $away_reason = !Irssi::active_server() ? undef : Irssi::active_server()->{away_reason};
+
+    if (defined $away_reason && length $away_reason) {
+        my %r = ('\{' => '(',
+                 '\}' => ')',
+                 '%' => '%%',);
+        $away_reason =~ s/$_/$r{$_}/g for (keys %r);
+
+        #my $format = $theme->format_expand("{sb_awaybar $away_reason}");
+        my $format = "{sb Away: $away_reason}";
+
+        $item->{min_size} = $item->{max_size} = length($away_reason);
+        $item->default_handler($get_size_only, $format, 0, 1);
+    } else {
+        $item->{min_size} = $item->{max_size} = 0;
+    }
+}
+
+sub awaybar_redraw {
+    Irssi::statusbar_items_redraw('awaybar');
+}
diff --git a/scripts/awaylogcnt.pl b/scripts/awaylogcnt.pl
new file mode 100644
index 0000000..4d9bcc7
--- /dev/null
+++ b/scripts/awaylogcnt.pl
@@ -0,0 +1,58 @@
+# $Id: awaylogcnt.pl,v 0.2 2004/10/27 19:46 derwan Exp $
+# 
+# Run command '/statusbar window add -after user -priority 1 awaylogcnt' after loading awaylogcnt.pl.
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '0.2';
+%IRSSI = (
+   authors      => 'Marcin Rozycki',
+   contact      => 'derwan@irssi.pl',
+   name         => 'awalogcnt',
+   description  => 'Displays in statusbar number of messages in awaylog',
+   modules      => '',
+   license      => 'GNU GPL v2',
+   url          => 'http://derwan.irssi.pl',
+   changed      => 'Wed Oct 27 19:46:28 CEST 2004'
+);
+
+use Irssi::TextUI;
+
+our $cnt = 0;
+our $fname = undef();
+
+
+Irssi::signal_add( 'log started' => sub {
+   my $logfile = Irssi::settings_get_str( 'awaylog_file' );
+   return unless ( $_[0]->{fname} eq $logfile );
+   ($fname, $cnt) = ($logfile, 0);
+   Irssi::statusbar_items_redraw('awaylogcnt');
+});
+
+Irssi::signal_add( 'log stopped' => sub {
+   return unless ( $_[0]->{fname} eq $fname );
+   ($cnt, $fname) = (0, undef);
+   Irssi::statusbar_items_redraw('awaylogcnt');
+});
+		
+Irssi::signal_add( 'log written' => sub {
+   return unless ( $_[0]->{fname} eq $fname );
+   $cnt++;
+   Irssi::statusbar_items_redraw('awaylogcnt');
+});
+
+sub awaylogcnt ($$) {
+   my ($sbitem, $get_size_only) = @_;
+   unless ( $cnt )
+   {
+      $sbitem->{min_size} = $sbitem->{max_size} = 0 if ( ref $sbitem );
+      return;
+   }
+   my $format = sprintf('{sb \%%yawaylog\%%n %d}', $cnt);
+   $sbitem->default_handler($get_size_only, $format, undef, 1);
+}
+
+Irssi::statusbar_item_register('awaylogcnt', undef, 'awaylogcnt');
diff --git a/scripts/awayproxy.pl b/scripts/awayproxy.pl
new file mode 100644
index 0000000..422a6ad
--- /dev/null
+++ b/scripts/awayproxy.pl
@@ -0,0 +1,277 @@
+# vim:syntax=perl
+# vim:tabstop=4
+# vim:shiftwidth=4
+# vim:foldmethod=marker
+# vim:foldenable
+# vim:enc=utf-8
+########################################################################################################
+## WARNING!! BAD ENGLISH BELOW :P
+##
+## This script is designed for those who have been using muh irc bouncer.
+## Basicly this script just monitors the proxy module and if new client
+## connects it sets you automatically back from away state and when client
+## disconnects it sets you automatically away if you arent allready away.
+##
+## Other hand if you dont use irssi-proxy you still have a good reason to
+## use this if you want to forward messages that come to you while
+## you are away to email box.
+## This is usefull for forwarding messages to an SMS-gateway ;) 
+##
+## btw.. if you find any bugs or have any ideas for development of this
+## script dont hesitate to send msg to BCOW@IrcNET
+## or send email to anttip@n0-life.com
+##
+#### Version history:
+# 0.1
+#  * basic functionality
+# 0.2b
+#  * a patch from Wulf that gives a user ability to change the autoaway reason.
+#  * Added away_level parameter that gives you ability to control how many 
+#    clients there can be connected to the irssi_proxy module before you are 
+#    set away.
+#  * You arent set away when disconnecting from the irssi_proxy if you already
+#    are away. This means that your current away reason isn't changed.
+#  * Sends cumulated away messages back to the client when it connects to the 
+#    irssi_proxy module.
+# 0.2c
+#  * Fixes bug where cummulated messages weren't sent.
+#  * Code cleanup.
+#  * Text wrapping to standart 80x24 text console.
+#  * Added debug mode.
+#  * Added script modes.
+#  * Got rid of crappy irssi setings system.
+#  * New logging expansion capability, either time or line based.
+# 0.2d
+#  * Micro fix to get back only when needed
+#### To come / planned / wanted:
+#  * Make expansion system log several channels at once.
+#  * Make this script server based.
+########################################################################################################
+
+use strict;
+use warnings;
+
+# irssi imports
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI %config);
+
+$VERSION = "0.2d";
+%IRSSI = (
+	authors => "BCOW",
+	contact => "anttip\@n0-life.com",
+	name => "awayproxy",
+	description => "Sets nick away when client discconects from the "
+		. "irssi-proxy. If away gathers messages targeted to nick and forwards "
+		. "them to an email address.",
+	license => "GPLv2",
+	url => "http://www.n0-life.com",
+);
+
+# After how much seconds we can check if there are any messages to send?
+$config{check_interval} = 45;
+# this setting controls that when this amout of clients are connected to the 
+# proxy module script sets you away. If you set this to 0 you are set away when
+# no clients are connected to the proxy module. If you set this to lets say 5 
+# then you will be set away allways when the amount of clients connected to the
+# proxy module is 5 or under.
+$config{away_level} = 0;
+# Controls expansion mode. This mode records pub msgs that come after one with
+# your nick in it. you can use line counting or time counting.
+#  0 - off
+#  line - line counting
+#  time - time counting
+$config{expansion_mode} = 'time';
+# How many lines include after start line?
+$config{expansion_lines} = 12;
+# After how many seconds stop gathering msgs?
+$config{expansion_timeout} = 90;
+# script operation mode:
+#  0 - to send messages both to email and when you get back to proxy
+#  1 - only email
+#  2 - only irc
+#  3 - off
+$config{script_mode} = 1;
+# email address where to send the email
+$config{emailto} = 'email@email.org';
+# sendmail location
+$config{sendmail} = '/usr/sbin/sendmail';
+# who is the sender of the email
+$config{emailfrom} = 'email@email.org';
+# Subject of email
+$config{emailsubject} = '[irssi-proxy]';
+# and the awayreason setting (Thanx Wulf)
+$config{awayreason} = 'Auto-away because client has disconnected from proxy.';
+# Debugging mode
+$config{debug} = 0;
+
+# -- Don't change anything below this line if you don't know Perl. --
+# number of clients connected
+$config{clientcount} = 0;
+# number of lines recorded
+$config{expansion_lines_count} = 0;
+
+$config{expansion_started} = 0;
+# the small list and archive list
+$config{awaymsglist} = [];
+$config{awaymsglist2} = [];
+
+if ( $config{script_mode} == 0 || $config{script_mode} == 1 ) { # {{{
+	# timeouts for check loop
+	debug('Timer on, timeout: ' . $config{check_interval});
+	Irssi::timeout_add($config{check_interval} * 1000, 'msgsend_check', '');
+} # }}}
+
+sub debug { # {{{
+	if ($config{debug}) {
+		my $text = shift;
+		my $caller = caller;
+		Irssi::print('From ' . $caller . ":\n" . $text);
+	}
+} # }}}
+sub msgsend_check { # {{{
+	# If there are any messages to send
+	my $count = @{$config{awaymsglist}};
+	debug("Checking for messages: $count");
+	# Check if we didn't grep msgs right now
+	if ($count > 0 && !$config{expansion_started}) {
+		# Concentate messages into one text.
+		my $text = join "\n", @{$config{awaymsglist}};
+		# Then empty list.
+		$config{awaymsglist} = [];
+		# Finally send email
+		debug("Concentated msgs: $text");
+		send_mail($text);
+	}
+} # }}}
+sub send_mail { # {{{
+	my $text = shift;
+	debug("Sending mail");
+	open MAIL, "|" . $config{sendmail} . " -t";
+	print MAIL "To: $config{emailto}\n";
+	print MAIL "From: $config{emailfrom}\n";
+	print MAIL "Subject: $config{emailsubject}\n";
+	print MAIL "$text";
+	close MAIL;
+} # }}}
+sub client_connect { # {{{
+	my (@servers) = Irssi::servers;
+ 
+	$config{clientcount}++;
+	debug("Client connected, current script mode: $config{script_mode}");
+
+	# setback
+	foreach my $server (@servers) {
+		# if you're away on that server send yourself back
+		if ($server->{usermode_away} == 1) {
+			$server->send_raw('AWAY :');
+			# and then send the current contents of archive list as notify's to 
+			# your self ;)
+			# .. weird huh? :)
+			# This sends all the away messages to ALL the servers where you are 
+			# connected... this is somewhat weird i know
+			# but if someone wants to make a patch to this i would really 
+			# appreciate it.
+			if ($config{script_mode} == 0 || $config{script_mode} == 2) {
+				debug('Sending notices');
+				$server->send_raw('NOTICE ' . $server->{nick} . " :$_") 
+					for @{$config{awaymsglist2}};
+			}
+		}
+	}
+	# and "clear" the awaymessage list
+	$config{awaymsglist2} = [] 
+		if $config{script_mode} == 0 || $config{script_mode} == 2;
+} # }}}
+sub client_disconnect { # {{{
+	my (@servers) = Irssi::servers;
+	debug('Client Disconnectted');
+
+	$config{clientcount}-- unless $config{clientcount} == 0;
+
+	# setaway
+	if ($config{clientcount} <= $config{away_level}) {
+		# ok.. we have the away_level of clients connected or less.
+		foreach my $server (@servers) {
+			if ($server->{usermode_away} == "0") {
+				# we are not away on this server allready.. set the autoaway
+				# reason
+				$server->send_raw(
+					'AWAY :' . $config{awayreason}
+				);
+			}
+		}
+	}
+} # }}}
+sub msg_pub { # {{{
+	my ($server, $data, $nick, $mask, $target) = @_;
+	 
+	sub push_into_archive { # {{{
+		my ($nick, $mask, $target, $data) = @_;
+		# simple list that is emptied on the email run
+		push @{$config{awaymsglist}}, "<$nick!$mask\@$target> $data" 
+			if $config{script_mode} == 0 || $config{script_mode} == 1;
+		# archive list that is emptied only on the client connect run
+		push @{$config{awaymsglist2}}, "<$nick!$mask\@$target> $data" 
+			if $config{script_mode} == 0 || $config{script_mode} == 2;
+	} # }}}
+	
+	if ($config{expansion_started}) {
+		if ($config{expansion_mode} eq 'line') {
+			if ($config{expansion_lines_count} <= $config{expansion_lines} -1) {
+				if ($config{expansion_chan} eq $target) {					
+					debug("In effect from line expansion, pushing on. Cnt: "
+						. $config{expansion_lines_count});
+					push_into_archive($nick, $mask, $target, $data);
+					$config{expansion_lines_count}++;
+				}
+			}
+			else {
+				debug("Line counter reached max, stopping expansion");
+				$config{expansion_lines_count} = 0;
+				$config{expansion_started} = 0;
+				$config{expansion_chan} = '';
+			}
+		}
+		elsif ($config{expansion_mode} eq 'time') {
+			if ($config{expansion_chan} eq $target) {
+				debug("Time expansion in effect, pushing on.");
+				push_into_archive($nick, $mask, $target, $data);
+			}
+		}
+	}
+	elsif ($server->{usermode_away} == "1" && $data =~ /$server->{nick}/i) {
+		debug("Got pub msg with my name");
+		push_into_archive($nick, $mask, $target, $data);
+		if ($config{expansion_mode}) {
+			debug("Starting expansion in mode: " . $config{expansion_mode});
+			$config{expansion_started} = 1;
+			$config{expansion_chan} = $target;
+			$config{expansion_time_out} = Irssi::timeout_add(
+				$config{expansion_timeout} * 1000, 'expansion_stop', ''
+			) if $config{expansion_mode} eq 'time';
+		}
+	}
+} # }}}
+sub expansion_stop { # {{{
+	debug("Stopping expansion from timer");
+	$config{expansion_started} = 0;
+	$config{expansion_chan} = '';
+} # }}}
+sub msg_pri { # {{{
+	my ($server, $data, $nick, $address) = @_;
+	if ($server->{usermode_away} == "1") {
+		debug("Got priv msg");
+		# simple list that is emptied on the email run
+		push @{$config{awaymsglist}}, "<$nick!$address> $data"
+			if $config{script_mode} == 0 || $config{script_mode} == 1;
+		# archive list that is emptied only on the client connect run
+		push @{$config{awaymsglist2}}, "<$nick!$address> $data"
+			if $config{script_mode} == 0 || $config{script_mode} == 2;
+	}
+} # }}}
+
+Irssi::signal_add_last('proxy client connected', 'client_connect');
+Irssi::signal_add_last('proxy client disconnected', 'client_disconnect');
+Irssi::signal_add_last('message public', 'msg_pub');
+Irssi::signal_add_last('message private', 'msg_pri');
diff --git a/scripts/babelirc.pl b/scripts/babelirc.pl
new file mode 100644
index 0000000..3472c6d
--- /dev/null
+++ b/scripts/babelirc.pl
@@ -0,0 +1,284 @@
+#
+# by Stefan "tommie" Tomanek <stefan@pico.ruhr.de>
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2003020801';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'babelirc',
+    description => 'translates your messages via Babelfish',
+    license     => 'GPLv2',
+    url         => 'http://irssi.org/scripts/',                                     changed     => $VERSION,
+    modules     => 'WWW::Babelfish Unicode::String Data::Dumper',
+    sbitems     => 'babelirc_sb',
+    commands	=> 'babelirc'
+);  
+
+use WWW::Babelfish;
+use Unicode::String;
+use Data::Dumper;
+use Irssi 20020324;
+use Irssi::TextUI;
+use POSIX;
+
+
+use vars qw(%channels);
+
+sub show_help() {
+    my $help = "babelirc $VERSION
+/babelirc add <channel> <from> <to>
+    Add a new translation entry for <channel>
+/babelirc del <channel>
+    Removes the translation for <channel>
+/babelirc toggle <channel>
+    Toggle selected entry
+/babelirc list
+    List all translation entries
+";
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("BabelIRC", $text, "help", 1);
+}
+
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    my $exp_flags = Irssi::EXPAND_FLAG_IGNORE_EMPTY | Irssi::EXPAND_FLAG_IGNORE_REPLACES;
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {                                                      $box .= '%R|%n '.$_."\n";
+    }                                                                               $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+
+sub translate ($$$) {
+    my ($text,$from,$to) = @_;
+    Unicode::String->stringify_as('latin1');
+    my $s = new Unicode::String($text);
+    my $obj = new WWW::Babelfish('agent' => 'Mozilla/8.0');
+    return undef unless $obj;
+    my $data = $obj->translate('source' => $from,
+                               'destination' => $to,
+			       'text' => $s->utf8());
+    Unicode::String->stringify_as('utf8');
+    my $s2 = new Unicode::String($data);
+    return($s2->latin1());
+}
+
+sub bg_trans ($$$$$$) {
+    my ($text, $server, $target, $from, $to, $dir) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    my $pid = fork();
+    if ($pid > 0) {
+	close $wh;
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, \$pipetag);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	eval {
+	    my %trans = ( text=>$text, trans=>translate($text, $from, $to) );
+	    $trans{server} = $server->{tag};
+	    $trans{target} = $target->{name} if $target;
+	    $trans{dir} = $dir;
+	    my $dumper = Data::Dumper->new([\%trans]);
+	    $dumper->Purity(1)->Deepcopy(1);
+	    my $data = $dumper->Dump;
+	    print($wh $data);
+	    close($wh);
+	};
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($) {
+    no strict;
+    my ($rh, $pipetag) = @{$_[0]};
+    my $text;
+    $text .= $_ foreach (<$rh>);
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    my %result = %{ eval "$text" };
+    unless (defined $result{target}) {
+	print CLIENTCRAP $result{text};
+	print CLIENTCRAP $result{trans};
+    } else {
+	my $server = Irssi::server_find_tag($result{server});
+	my $channel = $server->window_item_find($result{target});
+	my $stamp = Irssi::settings_get_str('babelirc_stamp');
+	my $text = $result{trans};
+	unless (defined $text) {
+	    $channel->print("%R>>%n Translation failed", MSGLEVEL_CLIENTCRAP);
+	    return;
+	}
+	$text = $result{text} if ($result{trans} eq '&nbsp;');
+	if ($result{dir} eq 'out') {
+	    $server->command('MSG '.$channel->{name}.' '.$text.' '.$stamp);
+	} else {
+	    $channel->print("%b`->%n ".$text.' '.$stamp, MSGLEVEL_CLIENTCRAP);
+	}
+	if ($channels{$channel->{name}}->{status} >= 2) {
+	    $channels{$channel->{name}}->{status}--;
+	}
+	Irssi::statusbar_items_redraw('babelirc_sb');
+    }
+}
+
+
+
+sub cmd_babelirc ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ +/, $args);
+    if ($arg[0] eq 'add' && defined $arg[1] && defined $arg[2] && defined $arg[3]) {
+	my $local = Irssi::settings_get_str('babelirc_my_language');
+	add_channel($arg[1],$arg[2],$arg[3]);
+    } elsif ($arg[0] eq 'add' && defined $arg[1] && $witem) {
+	my $local = Irssi::settings_get_str('babelirc_my_language');
+	add_channel($witem->{name},$local,$arg[1]);
+    } elsif ($arg[0] eq 'del' && defined $arg[1]) {
+	delete $channels{$arg[1]} if defined $channels{$arg[1]};
+	Irssi::statusbar_items_redraw('babelirc_sb');
+    } elsif ($arg[0] eq 'list') {
+	list_trans();
+    } elsif ($arg[0] eq 'toggle' && defined $arg[1]) {
+	toggle_trans($arg[1]);
+    } elsif ($arg[0] eq 'toggle') {
+	toggle_trans($witem->{name}) if $witem;
+    } elsif ($arg[0] eq 'help' || $arg[0] eq '-h') {
+	show_help()
+    } elsif ($arg[0] eq 'save') {
+	save_channels();
+    } elsif ($arg[0] eq 'load') {
+	load_channels();
+    }
+}
+
+sub toggle_trans ($) {
+    my ($channel) = @_;
+    return unless defined $channels{$channel};
+    $channels{$channel}{status} = not $channels{$channel}{status};
+    Irssi::statusbar_items_redraw('babelirc_sb');
+}
+
+sub list_trans () {
+    my $text;
+    foreach (sort keys %channels) {
+	if ($channels{$_}{status} == 0) {
+	    $text .= "%9<Q«%9";
+	} else {
+	    $text .= "%g%9<Q«%9%n";
+	}
+	$text .= ' %9'.$_."%9\n";
+	$text .= '    From: '.$channels{$_}{from}."\n";
+	$text .= '    To  : '.$channels{$_}{to}."\n";
+    }
+    print CLIENTCRAP draw_box("BabelIRC", $text, "list", 1);
+}
+
+sub add_channel ($$$) {
+    my ($target, $from, $to) = @_;
+    my %channel = (from=>$from, to=>$to, status => 0);
+    $channels{$target} = \%channel;
+    Irssi::statusbar_items_redraw('babelirc_sb');
+}
+
+sub save_channels {
+    my $filename = Irssi::settings_get_str('babelirc_filename');
+    local *F;
+    open F, '>'.$filename;
+    my $data = Dumper(\%channels);
+    print F $data;
+    close F;
+    print CLIENTCRAP "%R>>%n BabelIRC channels saved";
+}
+
+sub load_channels {
+    my $filename = Irssi::settings_get_str('babelirc_filename');
+    return unless (-e $filename);
+    local *F;
+    open F, '<'.$filename;
+    my $text;
+    $text .= $_ foreach <F>;
+    no strict "vars";
+    %channels = %{ eval "$text" };
+}
+
+sub babelirc_show ($$) {
+    my ($item, $get_size_only) = @_;
+    my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+    if (ref $win && ($win->{type} eq "CHANNEL" || $win->{type} eq "QUERY") && defined $channels{$win->{name}}) {
+	my $fish = "<Q«";
+	my @bubbles = ('°', 'o', '*', '·', ' ');
+	$fish = $bubbles[rand(@bubbles)].$fish;
+	$item->{min_size} = $item->{max_size} = length($fish);
+	if ($channels{$win->{name}}->{status} == 1) {
+	    $fish = '%U%g'.$fish.'%U%n';
+	} elsif ($channels{$win->{name}}->{status} >= 2) {
+	    $fish = '%9%F'.$fish.'%F%9';
+	}
+	my $format = "{sb ".$fish."}";
+	$item->default_handler($get_size_only, $format, 0, 1);
+    } else {
+	$item->{min_size} = $item->{max_size} = 0;
+    }
+}
+
+sub event_send_text ($$$) {
+    my ($line, $server, $witem) = @_;
+    return unless ref $witem;
+    if (defined $channels{$witem->{name}}) {
+	return if $channels{$witem->{name}}->{status} == 0;
+	my $stamp = Irssi::settings_get_str('babelirc_stamp');
+	my $regexp = quotemeta($stamp);
+	return if $line =~ / $regexp$/;
+	Irssi::signal_stop();
+	$channels{$witem->{name}}->{status}++;
+	Irssi::statusbar_items_redraw('babelirc_sb');
+	bg_trans($line, $server, $witem, $channels{$witem->{name}}->{from}, $channels{$witem->{name}}->{to}, "out");
+    }
+}
+
+sub event_message_public ($$$$) {
+    my ($server, $text, $nick, $address, $target) = @_; 
+    return unless defined $channels{$target};
+    return unless $channels{$target}{status} > 0;
+    my $regexp = '^'.Irssi::settings_get_str("babelirc_retranslate").'$';
+    return unless $text =~ /$regexp/;
+    my $witem = Irssi::window_item_find($target);
+    bg_trans($text, $server, $witem, $channels{$witem->{name}}->{to}, $channels{$witem->{name}}->{from}, "in");
+}
+
+Irssi::command_bind('babelirc', \&cmd_babelirc);
+foreach my $cmd ('add', 'del', 'list', 'toggle', 'help', 'save', 'load') {
+    Irssi::command_bind('babelirc '.$cmd => sub {
+		    cmd_babelirc($cmd." ".$_[0], $_[1], $_[2]); });
+}
+
+Irssi::timeout_add(5000, sub { Irssi::statusbar_items_redraw('babelirc_sb');}, undef);
+
+Irssi::statusbar_item_register('babelirc_sb', 0, "babelirc_show");
+
+Irssi::signal_add_first('send text', "event_send_text");
+Irssi::signal_add('message public', "event_message_public");
+Irssi::signal_add('window changed', sub {Irssi::statusbar_items_redraw('babelirc_sb');});
+Irssi::signal_add('setup saved', 'save_channels');
+
+Irssi::settings_add_str($IRSSI{name}, 'babelirc_stamp', '[BabelIRC]');
+Irssi::settings_add_str($IRSSI{name}, 'babelirc_my_language', 'German');
+Irssi::settings_add_str($IRSSI{name}, 'babelirc_retranslate', '');
+
+Irssi::settings_add_str($IRSSI{name}, 'babelirc_filename', Irssi::get_irssi_dir()."/babelirc_channels");
+
+load_channels();
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /babelirc help for help';
+
diff --git a/scripts/badword.pl b/scripts/badword.pl
new file mode 100644
index 0000000..20a0b57
--- /dev/null
+++ b/scripts/badword.pl
@@ -0,0 +1,163 @@
+###############################################################################
+# badword.pl
+# Copyright (C) 2002  Jan 'fissie' Sembera <fis@ji.cz>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+###############################################################################
+# This is configurable badword script. It may be configured to ban immediately
+# when first badword is detected, or it may count badwords and if number of 
+# badwords of given nick exceeds limit, ban him. Badword count may also be
+# expired if no badword is seen for specified period of time. Optional 
+# verbosity (let's call it logging) may be enabled as well
+#
+# Runtime variables:
+#
+# badword_channels = list of channels where script is active, separated by space
+# badword_words = list of 'bad words' that trigger this, separated by space
+# badword_reason = reason used in kick when count exceeds permitted limit
+# badword_limit = if number of detected badwords reaches this number, ban'em. 
+#                 Set 1 to immediately kickban.
+# badword_clear_delay = if no badword is detected from user for time specified
+#                       here (in seconds), clear his counter. Set 0 to disable.
+# badword_verbose = turns on/off logging features
+# badword_ban_delay = ban after number of kicks specified here. 0 - disables
+#                     banning, 1 - ban immediately, ... 
+###############################################################################
+#
+# Changelog:
+#
+# Jun 4 2002
+#    - added ban delaying feature
+#
+###############################################################################
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.3";
+
+%IRSSI = (
+    authors     =>  "Jan 'fissie' Sembera",
+    contact     =>  "fis\@ji.cz",
+    name        =>  "badword",
+    description =>  "Configurable badword kickbanning script",
+    license     =>  "GPL v2 and any later",
+    url         =>  "http://fis.bofh.cz/devel/irssi/",
+);
+
+my %nick_dbase;
+
+sub sig_public {
+  my ($server, $msg, $nick, $address, $target) = @_;
+  my $watch_channels = Irssi::settings_get_str('badword_channels');
+  my $watch_words    = Irssi::settings_get_str('badword_words');
+
+  my @chanz = split (/ /, $watch_channels); 
+  my @wordz = split (/ /, $watch_words); 
+  
+  my $nickrec = $server->channel_find($target)->nick_find($nick);
+  my $nickmode = $nickrec->{op} ? "@" : $nickrec->{voice} ? "+" : "";
+
+  my $aux = 0;
+
+  if (! ($nickmode eq "")) {
+    return;
+  }
+
+  foreach my $ch (@chanz) {
+    if ($ch eq $target) {
+      $aux = 1;
+    }
+  }
+
+  if ($aux == 0) { 
+    return;
+  } 
+
+  $aux = 0; 
+  foreach my $bw (@wordz) {
+#   if (($msg =~ /\ $bw/) || ($msg =~ /^$bw/)) {
+    if ($msg =~ /$bw/) {
+      $aux = 1;
+    } 
+  }
+
+  if ($aux == 0) {
+    return;
+  }
+
+  # Ok, here comes badword, check record
+
+  my $luser = $nick_dbase{$nick}{$target};
+  
+  if (!$luser) {
+    $nick_dbase{$nick}{$target}{'count'} = 1;
+    $nick_dbase{$nick}{$target}{'kcount'} = 0;
+    $nick_dbase{$nick}{$target}{'stamp'} = time();
+  } else {
+    if ((Irssi::settings_get_int('badword_clear_delay') != 0) && (($nick_dbase{$nick}{$target}{'stamp'})+(Irssi::settings_get_int('badword_clear_delay'))) < time()) {
+      $nick_dbase{$nick}{$target}{'count'} = 1;
+      if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Expired for '.$nick.' with hostmask '.$address.' on channel '.$target); }
+    } else {
+      $nick_dbase{$nick}{$target}{'count'} = ($nick_dbase{$nick}{$target}{'count'})+1; 
+    }
+    $nick_dbase{$nick}{$target}{'stamp'} = time();
+  }
+
+  $luser = $nick_dbase{$nick}{$target}{'count'};
+
+  if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Detected badword from nick '.$nick.' with hostmask '.$address.' on channel '.$target.' - '.$nick_dbase{$nick}{$target}{'count'}.' times'); }
+ 
+  if ($luser == Irssi::settings_get_int('badword_limit')) {
+    $nick_dbase{$nick}{$target}{'count'} = 0;
+    # Ban'em!
+    my @host = split(/\@/, $address);
+    if (($host[0] =~ /\~/) || ($host[0] =~ /\-/) || ($host[0] =~ /\=/) || ($host[0] =~ /\^/)) { $host[0] = "*"; }
+    my $mask = '*!'.$host[0].'@'.$host[1];
+    $nick_dbase{$nick}{$target}{'kcount'} = ($nick_dbase{$nick}{$target}{'kcount'})+1; 
+    if ((Irssi::settings_get_int('badword_ban_delay') > 0) && (Irssi::settings_get_int('badword_ban_delay') == $nick_dbase{$nick}{$target}{'kcount'})) {
+      $server->command('mode '.$target.' +b '.$mask);
+      $nick_dbase{$nick}{$target}{'kcount'} = 0;
+      if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Nick '.$nick.' with mask '.$mask.' punished for badwording on channel '.$target.' - banned'); } 
+    } else {
+      if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Nick '.$nick.' with mask '.$mask.' punished for badwording on channel '.$target.' - kicked'); }
+    }
+    $server->command('quote kick '.$target.' '.$nick.' :'.Irssi::settings_get_str('badword_reason'));
+  } 
+}
+
+sub sig_nick {
+  my ($server, $newnick, $nick, $address) = @_;
+
+  $newnick = substr ($newnick, 1) if ($newnick =~ /^:/);
+  my $count = $nick_dbase{$nick}; 
+  if ($count) {
+    $nick_dbase{$nick} = undef;
+    $nick_dbase{$newnick} = $count; 
+    if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Tranferred badwords from '.$nick.' to '.$newnick); }
+  }
+}
+
+Irssi::settings_add_str("misc", "badword_channels", "");
+Irssi::settings_add_str("misc", "badword_words", "");
+Irssi::settings_add_str("misc", "badword_reason", "BW: badword limit exceeded"); 
+Irssi::settings_add_int("misc", "badword_limit", 3);
+Irssi::settings_add_int("misc", "badword_clear_delay", 3600);
+Irssi::settings_add_int("misc", "badword_ban_delay", 1);
+Irssi::settings_add_bool("misc", "badword_verbose", 0); 
+
+Irssi::signal_add_last('message public', 'sig_public');
+Irssi::signal_add_last('event nick', 'sig_nick');
diff --git a/scripts/ban.pl b/scripts/ban.pl
new file mode 100644
index 0000000..8915dbc
--- /dev/null
+++ b/scripts/ban.pl
@@ -0,0 +1,394 @@
+use Irssi 20020300;
+use 5.6.0;
+use strict;
+use Socket;
+use POSIX;
+
+use vars qw($VERSION %IRSSI %HELP);
+$HELP{ban} = "
+BAN [channel] [-normal|-host|-user|-domain|-crap|-ip|-class -before \"command\"|-after \"command\" nicks|masks] ...
+
+Bans the specified nicks or userhost masks.
+
+If nick is given as parameter, the ban type is used to generate the ban mask.
+/SET banpl_type specified the default ban type. Ban type is one of the following:
+
+    normal - *!fahren\@*.ds14.agh.edu.pl
+    host   - *!*\@plus.ds14.agh.edu.pl
+    user   - *!fahren@*
+    domain - *!*\@*.agh.edu.pl
+    crap   - *?fah???\@?l??.?s??.??h.???.?l
+    ip     - *!fahren\@149.156.124.*
+    class  - *!*\@149.156.124.*
+
+Only one flag can be specified for a given nick.
+Script removes any conflicting bans before banning.
+
+You can specify command that will be executed before or after
+banning nick/mask using -before or -after.
+
+Examples:
+      /BAN fahren       - Bans the nick 'fahren'
+      /BAN -ip fahren   - Bans the ip of nick 'fahren'
+      /BAN fahren -ip fantazja -crap nerhaf -normal ff
+                        - Bans 'fahren' (using banpl_type set), ip of 'fantazja',
+                          host with crap mask of 'nerhaf' and 'ff' with normal bantype.
+      /BAN *!*fahren@*  - Bans '*!*fahren@*'
+      /BAN #chan -after \"KICK #chan fahren :reason\" fahren
+                        - Bans and kicks 'fahren' from channel '#chan' with reason 'reason'.
+
+      /ALIAS ipkb ban \$C -after \"KICK \$C \$0 \$1-\" -ip \$0
+                        - Adds command /ipkb <nick> [reason] which kicks 'nick' and bans it's ip address.
+";
+$VERSION = "1.4d";
+%IRSSI = (
+	authors         => "Maciek \'fahren\' Freudenheim",
+	contact         => "fahren\@bochnia.pl",
+	name            => "ban",
+	description     => "/BAN [channel] [-normal|-host|-user|-domain|-crap|-ip|-class -before|-after \"cmd\" nick|mask] ... - bans several nicks/masks on channel, removes any conflicting bans before banning",
+	license         => "GNU GPLv2 or later",
+	changed         => "Tue Nov 19 18:11:09 CET 2002"
+);
+
+# Changelog:
+# 1.4d
+# - getting user@host of someone who isn't on channel was broken
+# 1.4c
+# - fixed banning of unresolved hosts
+# - fixed problem with /ban unexisting_nick other_nick
+# 1.4b
+# - doesn't require op to see banlist :)
+# 1.4
+# - few fixes
+# - using banpl_type instead of irssi's builtin ban_type
+# - changed -normal behaviour
+# 1.3
+# - :( fixed crap banning (yes, i'm to stupid to code it)
+# 1.2
+# - queuing MODES for nicks that aren't on channel
+# 1.11
+# - fixed .. surprise! crap banning
+# - added use 5.6.0
+# 1.1
+# - fixed banning 10-char long idents
+# - fixed crap banning (once more)
+# - added -before and -after [command] for executing command before/after setting ban
+# 1.0
+# - -o+b if banning opped nick
+# - fixed -crap banning
+# - always banning with *!*ident@ (instead of *!ident@)
+# - can take channel as first argument now
+# - displays error if it couldn't resolve host for -ip / -class ban
+# - groups all modes and sends them at once, ie. -bbo\n+b-o+b 
+# - gets user@host via USERHOST if requested ban of someone who is not on channel
+# - added help
+
+my (%ftag, $parent, %modes, %modes_args, %b, @userhosts);
+
+sub cmd_ban {
+        my ($args, $server, $winit) = @_;
+
+	my $chan;
+	my ($channel) = $args =~ /^([^\s]+)/;
+	
+	if (($server->ischannel($channel))) {
+		$args =~ s/^[^\s]+\s?//;
+		return unless ($args);
+		unless (($chan = $server->channel_find($channel)) && $chan->{chanop}) {
+			Irssi::print("%R>>%n You are not on $channel or you are not opped.");
+			Irssi::signal_stop();
+			return;
+		}
+	} else {
+		return unless ($args);
+		unless ($winit && $winit->{type} eq "CHANNEL" && $winit->{chanop}) {
+			Irssi::print("%R>>%n You don't have active channel in that window or you are not opped.");
+			Irssi::signal_stop();
+			return;
+		}
+		$chan = $winit;
+		$channel = $chan->{name};
+	}
+
+	Irssi::signal_stop();
+
+	my $bantype = Irssi::settings_get_str("banpl_type");
+	my $max = $server->{max_modes_in_cmd};
+	my ($cmdwhat, $cmdwhen) = (0, 0);
+	$b{$channel} = 0;
+
+	# counts nicks/masks to ban, lame :|
+	for my $cmd (split("\"", $args)) {
+		($cmdwhen) and $cmdwhen = 0, next;
+		for (split(/ +/, $cmd)) {
+			next unless $_;
+			/^-(normal|host|user|domain|crap|ip|class)$/ and next;
+			/^-(before|after)$/ and $cmdwhen = 1, next;
+			$b{$channel}++;
+		}
+	}
+
+	for my $cmd (split("\"", $args)) {
+		($cmdwhen && !$cmdwhat) and $cmdwhat = $cmd, next;
+	for my $arg (split(/ +/, $cmd)) {
+		next unless $arg;	
+		$arg =~ /^-(normal|host|user|domain|crap|ip|class)$/ and $bantype = $1, next;
+		$arg eq "-before" and $cmdwhen = 1, next;
+		$arg eq "-after" and $cmdwhen = 2, next;
+	
+		if (index($arg, "@") == -1) {
+			my $n;
+			if ($n = $chan->nick_find($arg)) {
+				# nick is on channel
+
+				my ($user, $host) = split("@", $n->{host});
+				
+				if ($bantype eq "ip" || $bantype eq "class") {
+					# requested ip ban, forking
+					my $pid = &ban_fork;
+					unless (defined $pid) {	# error
+						$cmdwhen = $cmdwhat = 0;	
+						$b{$channel}--;
+						next;
+					} elsif ($pid) {	# parent
+						$cmdwhen = $cmdwhat = 0;	
+						next;
+					}
+					my $ia = gethostbyname($host);
+					unless ($ia) {
+						print($parent "error $channel %R>>%n Couldn't resolve $host.\n");
+					} else {
+						print($parent "execute $server->{tag} $channel " . (($n->{op})? $arg : 0) . " " . make_ban($user, inet_ntoa($ia), $bantype) . " $cmdwhen $cmdwhat\n"); 
+					}
+					close $parent; POSIX::_exit(1);
+				}
+				ban_execute($chan, (($n->{op})? $arg : 0), make_ban($user, $host, $bantype), $max, $cmdwhen, $cmdwhat);
+			} else {
+				# nick is not on channel, trying to get addres via /userhost
+				$server->redirect_event('userhost', 1, $arg, 0, undef, {
+						'event 302' => 'redir ban userhost',
+						'' => 'event empty' } );
+				$server->send_raw("USERHOST :$arg");
+				my $uh = {
+					tag 	=> $server->{tag},
+					nick 	=> lc($arg),
+					channel => $channel,
+					chanhash => $chan,
+					bantype	=> $bantype,
+					cmdwhen	=> $cmdwhen,
+					cmdwhat	=> $cmdwhat
+				};
+				push @userhosts, $uh;
+			}
+		} else {
+			# specified mask
+			my $ban;
+			$ban = "*!" if (index($arg, "!") == -1);
+			$ban .= $arg;
+			ban_execute($chan, 0, $ban, $max, $cmdwhen, $cmdwhat);
+		}
+
+		$cmdwhen = $cmdwhat = 0;	
+	}
+	}
+}
+
+sub push_mode ($$$$) {
+	my ($chan, $mode, $arg, $max) = @_;
+
+	my $channel = $chan->{name};
+	$modes{$channel} .= $mode;
+	$modes_args{$channel} .= "$arg ";
+
+	flush_mode($chan) if (length($modes{$channel}) >= ($max * 2));
+}
+
+sub flush_mode ($) {
+	my $chan = shift;
+
+	my $channel = $chan->{name};
+	return unless (defined $modes{$channel});
+#	Irssi::print("MODE $channel $modes{$channel} $modes_args{$channel}");
+	$chan->command("MODE $channel $modes{$channel} $modes_args{$channel}");
+	undef $modes{$channel}; undef $modes_args{$channel};
+}
+
+sub userhost_red {
+	my ($server, $data) = @_;
+	$data =~ s/^[^ ]* :?//;
+
+	my $uh = shift @userhosts;
+	
+	unless ($data && $data =~ /^([^=\*]*)\*?=.(.*)@(.*)/ && lc($1) eq $uh->{nick}) {
+		Irssi::print("%R>>%n No such nickname: $uh->{nick}");
+		$b{$uh->{channel}}--;
+		flush_mode($uh->{chanhash}) unless ($b{$uh->{channel}});
+		return;
+	}
+	
+	my ($user, $host) = (lc($2), lc($3));
+	
+	if ($uh->{bantype} eq "ip" || $uh->{bantype} eq "class") {
+		# requested ip ;/
+		my $pid = &ban_fork;
+		unless (defined $pid) {	# error
+			$b{$uh->{channel}}--;
+			return;
+		} elsif ($pid) {	# parent
+			return;
+		}
+		my $ia = gethostbyname($host);
+		unless ($ia) {
+			print($parent "error " . $uh->{channel} . " %R>>%n Couldn't resolve $host.\n");
+		} else {
+			print($parent "execute " . $uh->{tag} . " " . $uh->{channel} . " 0 " . make_ban($user, inet_ntoa($ia), $uh->{bantype}) . " " . $uh->{cmdwhen} . " " . $uh->{cmdwhat} . "\n"); 
+		}
+		close $parent; POSIX::_exit(1);
+	}
+	
+	my $serv = Irssi::server_find_tag($uh->{tag});
+	ban_execute($uh->{chanhash}, 0, make_ban($user, $host, $uh->{bantype}), $serv->{max_modes_in_cmd}, $uh->{cmdwhen}, $uh->{cmdwhat});
+}
+
+sub ban_execute ($$$$$$) {
+	my ($chan, $nick, $ban, $max, $cmdwhen, $cmdwhat) = @_;
+
+	my $no = 0;
+	my $channel = $chan->{name};
+	
+	for my $hash ($chan->bans()) {
+		if (mask_match($ban, $hash->{ban})) {
+			# should display also who set the ban (if available)
+			Irssi::print("%Y>>%n $channel: ban $hash->{ban}");
+			$no = 1;
+			last;
+		} elsif (mask_match($hash->{ban}, $ban)) {
+			push_mode($chan, "-b", $hash->{ban}, $max);
+		}
+	}	
+
+	unless ($no) {
+		my ($cmdmode, $cmdarg);
+		# is requested command a MODE so we can put it to queue?
+	 	($cmdmode, $cmdarg) = $cmdwhat =~ /^MODE\s+[^\s]+\s+([^\s]+)\s+([^\s]+)/i if $cmdwhen;
+		if ($cmdwhen == 1) { # command requested *before* banning
+			unless ($cmdmode) { # command isn't mode, ie: KICK
+				flush_mode($chan); # flush all -b conflicting bans
+				$chan->command($cmdwhat); # execute
+			} else { # command is MODE, we can add it to queue
+				push_mode($chan, $cmdmode, $cmdarg, $max);	
+			}
+		}
+		push_mode($chan, "-o", $nick, $max) if ($nick);
+		push_mode($chan, "+b", $ban, $max);
+		if ($cmdwhen == 2) { # command requested *after* banning
+			unless ($cmdmode) {
+				flush_mode($chan); # flush all modes
+				$chan->command($cmdwhat);
+			} else {
+				push_mode($chan, $cmdmode, $cmdarg, $max);
+			}
+		}
+	}
+
+	$b{$channel}--;
+	flush_mode($chan) unless ($b{$channel});
+}
+
+sub ban_fork {
+	my ($rh, $wh);
+	pipe($rh, $wh);
+	my $pid = fork();
+	unless (defined $pid) {
+		Irssi::print("%R>>%n Failed to fork() :/ -  $!");
+		close $rh; close $wh;
+		return undef;
+	} elsif ($pid) {	# parent
+		close $wh;
+		$ftag{$rh} = Irssi::input_add(fileno($rh), INPUT_READ, \&ifork, $rh);
+		Irssi::pidwait_add($pid);
+	} else {		# child
+		close $rh;
+		$parent = $wh;
+	}
+	return $pid;
+}
+
+sub ifork {
+	my $rh = shift;
+	while (<$rh>) {
+		/^error\s([^\s]+)\s(.+)/ and $b{$1}--, Irssi::print("$2"), last;
+		if (/^execute\s([^\s]+)\s([^\s]+)\s([^\s]+)\s([^\s]+)\s([^\s]+)\s(.+)/) {
+			my $serv = Irssi::server_find_tag($1);
+			ban_execute($serv->channel_find($2), $3, $4, $serv->{max_modes_in_cmd}, $5, $6);
+			last;
+		}
+	}
+	Irssi::input_remove($ftag{$rh});
+	delete $ftag{$rh};
+	close $rh;
+}
+						
+sub make_ban ($$$) {
+	my ($user, $host, $bantype) = @_;
+					
+	$user =~ s/^[~+\-=^]/*/;
+	if ($bantype eq "ip") {
+		$host =~ s/\.[0-9]+$/.*/;
+	} elsif ($bantype eq "class") {
+		$user = "*";	
+		$host =~ s/\.[0-9]+$/.*/;
+	} elsif ($bantype eq "user") {
+		$host = "*";
+	} elsif ($bantype eq "domain") {
+		# i know -- lame
+		if ($host =~ /^.*\..*\..*\..*$/) {
+			$host =~ s/.*(\..+\..+\..+)$/*\1/;
+		} elsif ($host =~ /^.*\..*\..*$/) {
+			$host =~ s/.*(\..+\..+)$/*\1/;
+		}
+		$user = "*";
+	} elsif ($bantype eq "host") {
+		$user = "*";
+	} elsif ($bantype eq "normal") {
+#		$host =~ s/^[A-Za-z\-]*[0-9]+\./*./;
+		if ($host =~ /\d$/) {
+			$host =~ s/\.[0-9]+$/.*/;
+		} else {
+			$host =~ s/^[^.]+\./*./ if $host =~ /^.*\..*\..*$/;
+		}
+	} elsif ($bantype eq "crap") {
+		my $crap;
+		for my $c (split(//, $user)) {
+			$crap .= ((int(rand(2)))? "?" : $c);
+		}
+		$user = $crap;
+		$crap = "";
+		for my $c (split(//, $host)) {
+			$crap .= ((int(rand(2)))? "?" : $c);
+		}
+		$host = $crap;
+	}
+
+	return ("*!" . $user . "@" . $host);
+}
+
+sub mask_match ($$) {
+	my ($what, $match) = @_;
+
+	# stolen from shasta's friend.pl
+	$match =~ s/\\/\\\\/g;
+	$match =~ s/\./\\\./g;
+	$match =~ s/\*/\.\*/g;
+	$match =~ s/\!/\\\!/g;
+	$match =~ s/\?/\./g;
+	$match =~ s/\+/\\\+/g;
+	$match =~ s/\^/\\\^/g;
+	$match =~ s/\[/\\\[/g;
+
+	return ($what =~ /^$match$/i);
+}
+
+Irssi::command_bind 'ban' => \&cmd_ban;
+Irssi::settings_add_str 'misc', 'banpl_type', 'normal';
+Irssi::signal_add 'redir ban userhost' => \&userhost_red;
diff --git a/scripts/bandwidth.pl b/scripts/bandwidth.pl
new file mode 100644
index 0000000..c9964da
--- /dev/null
+++ b/scripts/bandwidth.pl
@@ -0,0 +1,114 @@
+# Mrtg-compatible any statistic loader
+#  /SET status_min_in - The minimum load to show
+#  /SET status_min_in - The minimum load to show
+#  /SET status_refresh - How often the loadavg is refreshed
+#
+#  takes output from mrtg compatible scripts, 
+#  see the mrtg-contrib and mrtgutils package for scripts to load
+#
+#  this one requires /usr/bin/mrtg-ip-acct from mrtgutils package
+#
+#  TODO ; add support for more than one stat at the same time
+#  TODO : negative amounts?
+  
+use Irssi 20011113;
+use Irssi::TextUI;
+
+use strict;
+use 5.6.0;
+
+use vars qw($VERSION %IRSSI);
+    
+# header begins here
+
+$VERSION = "1.0";
+%IRSSI = (
+	authors     => "Riku Voipio",
+	contact     => "riku.voipio\@iki.fi",
+	name        => "bandwidth",
+	description => "shows bandwidth usage in statusbar",
+        license     => "GPLv2",
+        url         => "http://nchip.ukkosenjyly.mine.nu/irssiscripts/",
+    );
+
+my ($refresh, $last_refresh, $refresh_tag) = (10);
+my ($last_in, $last_out) = (0.0,0.0);
+my ($min_in, $min_out) = (1.0,1.0);
+my ($cur_in, $cur_out, $first_run) = (0.0,0.0,1);
+my $command =  '/usr/bin/mrtg-ip-acct';
+
+
+sub get_stats 
+{
+  my ($old_in, $old_out) = ($last_in, $last_out);
+
+  my @localstats;
+  if (open my $fh, "$command|") 
+  {
+     @localstats = <$fh>;
+    close $fh;
+  } else {
+    Irssi::print("Failed to execute $command: $!", MSGLEVEL_CLIENTERROR);
+  }
+  
+  for(@localstats[0..1]) {
+    return unless defined;
+    return unless /^\d+$/;
+  }
+  $last_in=$localstats[0];
+  $last_out=$localstats[1];
+
+  if ($old_out==0){return;}
+
+  $cur_out=($last_out-$old_out) / ($refresh*1024);
+  $cur_in=($last_in-$old_in) / ($refresh*1024);
+}
+
+sub stats {
+  my ($item, $get_size_only) = @_;
+  #get_stats();
+  
+  $min_out = Irssi::settings_get_int('stats_min_out');
+  $min_in = Irssi::settings_get_int('stats_min_in');
+  $min_in = 0 if $min_in < 0;
+  $min_out = 0 if $min_out < 0;
+  
+  
+  if ($cur_in < $min_in and $cur_out <$min_out){
+	  #dont print
+    if ($get_size_only) {
+      $item->{min_size} = $item->{max_size} = 0;
+    }
+  } else { 
+      $item->default_handler($get_size_only, undef, sprintf("i:%.2f o:%.2f",$cur_in, $cur_out ), 1 );
+  }
+}
+
+sub refresh_stats {
+  get_stats();
+  Irssi::statusbar_items_redraw('stats');
+}
+
+sub read_settings {
+  $refresh = Irssi::settings_get_int('stats_refresh');
+  $command = Irssi::settings_get_str('stats_commandline');
+  $refresh = 1 if $refresh < 1;
+  return if $refresh == $last_refresh;
+  $last_refresh = $refresh;
+
+  Irssi::timeout_remove($refresh_tag) if $refresh_tag;
+  $refresh_tag = Irssi::timeout_add($refresh*1000, 'refresh_stats', undef);
+}
+
+Irssi::settings_add_int('misc', 'stats_min_in', $min_in);
+Irssi::settings_add_int('misc', 'stats_min_out', $min_out);
+Irssi::settings_add_int('misc', 'stats_refresh', $refresh);
+Irssi::settings_add_str('misc', 'stats_commandline', $command);
+
+Irssi::statusbar_item_register('stats', '{sb S: $0-}', 'stats');
+Irssi::statusbars_recreate_items();
+
+read_settings();
+Irssi::signal_add('setup changed', 'read_settings');
+
+
diff --git a/scripts/bantime.pl b/scripts/bantime.pl
new file mode 100644
index 0000000..32f89c9
--- /dev/null
+++ b/scripts/bantime.pl
@@ -0,0 +1,55 @@
+use strict;
+use Irssi; # developed using irssi 0.8.9.CVS
+use Time::Duration; # calculates the ban duration.  
+# either of the following should install the module
+# perl -MCPAN -e 'install Time::Duration' 
+# cpan -i Time::Duration
+# apt-get install libtime-duration-perl
+
+# I recommend rebinding irssi's default /BANS from 'ban' to 'bantimes' (/alias BANS BANTIME)
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.5";
+%IRSSI = (
+        authors         => "David O\'Rourke",
+        contact         => "phyber\@\#irssi",
+        name            => "bantime",
+        description     => "Print time when ban was set in a nicer way. eg. 23 mins, 40 secs ago.",
+        license         => "GPLv2",
+	changed		=> "08.01.2004 02:46"
+);
+
+sub cmd_bans {
+	my ($args, $server, $witem) = @_;
+	return if not ($witem && $witem->{type} eq "CHANNEL");
+	my $currenttime = time;
+	my $channel = $witem->{name};
+	my $count = 1;
+	foreach my $ban ($witem->bans()) {
+		my ($bansetby, $bantime);
+		if ($ban->{setby}) {
+			$bansetby = $ban->{setby};
+		} 
+		else { $bansetby = "*Unavailable"; }
+		
+		if ($ban->{time}) {
+			$bantime = duration_exact($currenttime - $ban->{time}) . " ago";
+		} 
+		else { $bantime = "*Unavailable"; }
+		
+		$witem->printformat(MSGLEVEL_CLIENTCRAP, 'bantime_long',  $count, $channel, $ban->{ban}, $bansetby, $bantime);
+		$count += 1;
+	}
+}
+
+Irssi::theme_register(['bantime_long', '{line_start}$0 - {channel $1}: ban {ban $2} {comment by {nick $3}, $4}']);
+Irssi::command_bind('bantime', 'cmd_bans');
+Irssi::print("Loaded $IRSSI{name} $VERSION");
+
+#############
+# ChangeLog #
+#############
+# 08.01.2004: Jan 08 2004: 02:46
+# Fixed a bug which occured if the IRCd didn't tell us who set the bans at which time. eg. IRCNet if a user doesn't have +o.
+# 08.01.2004: Jan 08 2004: 01:52
+# Initial Release.  Many thanks to coekie for helping me with my scripting.
diff --git a/scripts/beep.pl b/scripts/beep.pl
new file mode 100644
index 0000000..5fb3275
--- /dev/null
+++ b/scripts/beep.pl
@@ -0,0 +1,50 @@
+# $Id: beep.pl,v 1.9 2002/07/04 13:18:02 jylefort Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "1.01";
+%IRSSI = (
+	  authors     => 'Jean-Yves 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',
+	  url         => 'http://void.adminz.be/irssi.shtml',
+	  changed     => '$Date: 2002/07/04 13:18:02 $ ',
+);
+
+# /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
+# changes:
+#
+#	2002-07-04	release 1.01
+#			* signal_add's uses a reference instead of a string
+#
+#	2002-04-25	release 1.00
+#			* increased version number
+#
+#	2002-01-24	initial release
+
+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/scripts/beep_beep.pl b/scripts/beep_beep.pl
new file mode 100644
index 0000000..be54244
--- /dev/null
+++ b/scripts/beep_beep.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/irssi
+#
+# irssi beep replace script (tested with irssi v0.8.8.CVS (20030126-1726))
+# (C) 2002-2004 Ge0rG@IRCnet (Georg Lukas <georg@op-co.de>)
+# inspired and tested by Macrotron@IRCnet (macrotron@president.eu.org)
+
+# added beep_flood to irssi settings: beep_cmd will be run not more often
+# then every $beep_flood milliseconds
+
+# fixed memory leak with timeout_add (made irssi waste 80mb and more after a day of IRC)
+# added > /dev/null, thx to Luis Oliveira
+# fixed timeout handling bug, thx to frizop@charter.net
+
+$VERSION = "0.10";
+%IRSSI = (
+    authors	=> "Georg Lukas",
+    contact	=> "georg\@op-co.de",
+    name	=> "beep_beep",
+    description	=> "runs arbitrary command instead of system beep, includes flood protection",
+    license	=> "Public Domain",
+    url		=> "http://op-co.de/irssi/",
+);
+
+use Irssi;
+
+my $might_beep = 1, $to_tag;
+
+sub beep_overflow_timeout() {
+	$might_beep = 1;
+	Irssi::timeout_remove($to_tag);
+}
+
+sub beep_beep() {
+	my $beep_cmd = Irssi::settings_get_str("beep_cmd");
+	if ($beep_cmd) {
+		if ($might_beep) {
+			my $beep_flood = Irssi::settings_get_int('beep_flood');
+			$beep_flood = 1000 if $beep_flood < 0;
+			Irssi::timeout_remove($to_tag);
+			$to_tag = Irssi::timeout_add($beep_flood, 'beep_overflow_timeout', undef);
+			system($beep_cmd);
+			$might_beep = 0;
+		}
+		Irssi::signal_stop();
+	}
+}
+
+Irssi::settings_add_str("lookandfeel", "beep_cmd", "play ~/.irssi/scripts/beep_beep.wav > /dev/null &");
+Irssi::settings_add_int("lookandfeel", "beep_flood", 250);
+Irssi::signal_add("beep", "beep_beep");
+
diff --git a/scripts/beepaway.pl b/scripts/beepaway.pl
new file mode 100644
index 0000000..e381b93
--- /dev/null
+++ b/scripts/beepaway.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+#
+# by Simon 'corecode' Schuberty <corecode@corecode.ath.cx>
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003011501";
+%IRSSI = (
+    authors     => "Simon 'corecode' Schubert",
+    contact     => "corecode\@corecode.ath.cx",
+    name        => "beepaway",
+    description => "Only beep when you are away",
+    license     => "BSD",
+    changed     => "$VERSION",
+);
+use Irssi 20020324;
+
+sub catch_away {
+	my $level;
+	my $server;
+	($server) = @_;
+
+	if ($server->{usermode_away}) {
+		$level = Irssi::settings_get_str("beep_away_msg_level")
+	} else {
+		$level = Irssi::settings_get_str("beep_back_msg_level")
+	}
+#	Irssi::print "%R>>%n setting levels ``$level''";
+	$server->command("/^set beep_msg_level ".$level);
+}
+
+Irssi::settings_add_str($IRSSI{name}, "beep_away_msg_level", "MSGS NOTICES DCC DCCMSGS HILIGHT");
+Irssi::settings_add_str($IRSSI{name}, "beep_back_msg_level", "NONE");
+
+Irssi::signal_add("away mode changed", "catch_away");
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' (c) '.$IRSSI{authors}.' loaded';
diff --git a/scripts/bestoiber.pl b/scripts/bestoiber.pl
new file mode 100644
index 0000000..7d9f68f
--- /dev/null
+++ b/scripts/bestoiber.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+#
+# by Stefan 'tommie' Tomanek
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003020801";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "BeStoiber",
+    description => "stoibers your messages",
+    license     => "GPLv2",
+    url         => "",
+    modules     => "",
+    changed     => "$VERSION",
+    commands	=> "bestoiber"
+);
+
+
+use Irssi 20020324;
+
+sub stoibern ($) {
+    my ($text) = @_;
+    my $result;
+    my $buffer;
+    foreach (split / /, $text) {
+	if (int(rand(4)) == 1) {
+	    $result .= ' eehh, ';
+	} else {
+	    $result .= ' ';
+	}
+	if (substr($_, 0,1) =~ /[A-Z]+/ && int(rand(2)) == 1) {
+	    my @buzzwords = split(/,/, Irssi::settings_get_str('bestoiber_buzzwords'));
+	    $result .= $buzzwords[rand(scalar(@buzzwords))].", ";
+	}
+	if (int(rand(6)) == 1) {
+	    $result =~ s/,?\ $//;
+	    $result .= ", ".$buffer." " if $buffer;
+	}
+
+	$result .= $_;
+	$buffer = $_;
+    }
+    $result =~ s/^ //;
+    return $result;
+}
+
+sub cmd_bestoiber ($$$) {
+    my ($arg, $server, $witem) = @_;
+    if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')) {
+	$witem->command('MSG '.$witem->{name}.' '.stoibern($arg));
+    } else {
+	print CLIENTCRAP "%B>>%n ".stoibern($arg);
+    }
+}
+
+Irssi::settings_add_str($IRSSI{name}, 'bestoiber_buzzwords', 'Arbeitslose,Fr. Merkel,Schröder');
+
+Irssi::command_bind('bestoiber', \&cmd_bestoiber);
diff --git a/scripts/bgta.pl b/scripts/bgta.pl
new file mode 100644
index 0000000..3b388e3
--- /dev/null
+++ b/scripts/bgta.pl
@@ -0,0 +1,284 @@
+#!/usr/local/bin/perl
+
+# BgTA SCRIPT
+
+use strict;
+use vars qw($VERSION %IRSSI %FEATURES);
+
+use Irssi;
+
+# Define Script Version
+$VERSION = '0.0.1';
+%IRSSI = (
+	authors		=> '[^BgTA^]',
+	contact		=> 'raul@bgta.net',
+	name		=> 'BgTA Script',
+	description	=> 'Byte\'s Gallery of the TAilor Script',
+	license		=> 'Public Domain',
+);
+
+# /bgversion command
+
+sub cmd_bgversion {
+	my ($data, $server, $witem) = @_;
+
+	print("\cC4BgTA Script v. ".$VERSION);
+	foreach my $key (sort keys %IRSSI) {
+		print("\cC4$key: \cC0".$IRSSI{$key}) unless $key =~ /name/i;
+	}
+	return 1;
+}
+
+Irssi::command_bind bgversion => \&cmd_bgversion;
+
+# /bghelp command
+$FEATURES{'help'} = "/bghelp \c0 List the BgTA Script FEATURES";
+
+sub cmd_bghelp {
+	my ($data, $server, $witem) = @_;
+
+	print("\cC4BgTA Script v. ".$VERSION);
+	foreach my $key (sort keys %FEATURES) {
+		print("\cC4$key: \cC0".$FEATURES{$key}) unless $key =~ /name/i;
+	}
+	return 1;
+}
+
+Irssi::command_bind bghelp => \&cmd_bghelp;
+# GOOGLE
+$FEATURES{'google'} = "/bggoogle \cC7search_string \t \cC5Search one result in Google.com";
+
+sub cmd_bggoogle {
+	my ($data, $server, $witem) = @_;
+
+	return unless $witem;
+
+
+	use Net::Google;
+	
+	# Put here the Google Key. See Google->Tools & Services
+	use constant LOCAL_GOOGLE_KEY => "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
+
+	$witem->command("me Google Searching [$data]...");
+	my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY);
+
+	my $search = $google->search(max_results => 100);
+
+	 $search->query($data);
+
+	 my @tresults = @{$search->results()};
+
+	if(!defined($tresults[0])) {
+		$witem->command("me NO RESULTS");
+		return;
+	}
+	my $title = $tresults[0]->title();
+	$title =~ s/<[^<]*>//ig;
+	$witem->command("me ".$title."\cC2: ".$tresults[0]->URL());
+	return;
+}
+
+Irssi::command_bind bggoogle => \&cmd_bggoogle;
+
+# PHP Documentation
+$FEATURES{'php'} = "/bgphp \cC7function_name \t \cC5Search a PHP Function URL and Definition";
+$FEATURES{'phpwb'} = "/bgphpwb \cC7function_name \t \cC5Search a PHP Function URL and Definition AND Kick BAN With the URL";
+sub cmd_bgphp {
+
+	my ($data, $server, $witem) = @_;
+
+	return unless $witem;
+
+
+	use LWP;
+
+	my $Navigator = new LWP::UserAgent({
+        "agent" => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)",
+        "timeout" => "180", 
+        });
+
+	$data =~ s/\_/\-/ig;
+
+	my $Page = $Navigator->get('http://www.php.net/manual/es/function.'.$data.'.php');
+	
+	my $content = $Page->content if $Page->is_success;
+	if($Page->is_success && $content =~ /([^<]*)<B\nCLASS=\"methodname\"\n>([^<]*)<\/B\n> ([^<]*)/i) {
+		$witem->command("me PHP Function $data:");
+		$witem->command("me Location: \cC5 http://www.php.net/manual/es/function.".$data.'.php');
+		if($content =~ /<td><a href=\"ref.([^\.]*).php\">/i) {
+			$witem->command("me Reference: \cC6 http://www.php.net/manual/es/ref.$1.php");
+		}
+		if($content =~ />([^<]*)<B\nCLASS=\"methodname\"\n>([^<]*)<\/B\n> ([^<]*)/i) {
+			$witem->command("me $1\cC0$2\cC $3");
+		}
+		if($content =~ /--\&nbsp;([A-Za-z0-9\ áéíóú\n]+)/i) {
+			my $sal = $1;
+			$sal =~ s/\ \ /\ /gi;
+			$sal =~ s/\n/\ /gi;
+			chomp($sal);
+			$witem->command("me Description: $sal");
+		}
+	} else {
+		$witem->command("me \cC5PHP Function $data: No Results.");
+	}
+
+	return;
+
+}
+
+sub cmd_bgphpwb {
+
+	my ($data, $server, $witem) = @_;
+
+	return unless $witem;
+
+
+	use LWP;
+
+	my $Navigator = new LWP::UserAgent({
+        "agent" => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)",
+        "timeout" => "180", 
+        });
+	
+	$data =~ /^([^\ ]*) (.*)$/i;
+	my $nick = $1;
+	$data = $2;
+	$data =~ s/\_/\-/ig;
+
+	my $Page = $Navigator->get('http://www.php.net/manual/es/function.'.$data.'.php');
+	
+	my $content = $Page->content if $Page->is_success;
+	if($Page->is_success && $content =~ /([^<]*)<B\nCLASS=\"methodname\"\n>([^<]*)<\/B\n> ([^<]*)/i) {
+		$witem->command("kickban $nick Mira el Jodido Manual: \cC5 http://www.php.net/manual/es/function.".$data.'.php');
+	} 
+
+	return;
+
+}
+sub bgphpevent {
+	my ($server, $data, $nick, $address) = @_;
+	my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
+
+	#if($text =~ /bgphp:(.*)$/) {
+	#}	
+
+}
+Irssi::signal_add("event notice", "bgphpevent");
+Irssi::command_bind bgphp => \&cmd_bgphp;
+Irssi::command_bind bgphpwb => \&cmd_bgphpwb;
+
+
+#  WEB SEARCH TITLE
+$FEATURES{'wwwd'} = "/bgwwwd \cC7http://some.web.com/ \t \cC5Look for title and Description of Web";
+sub cmd_bgwwwd {
+
+	my ($data, $server, $witem) = @_;
+
+	return unless $witem;
+
+
+	use LWP;
+
+	my $Navigator = new LWP::UserAgent({
+        "agent" => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)",
+        "timeout" => "180", 
+        });
+
+	my $Page = $Navigator->get($data);
+
+	if($Page->is_success) {
+		my $content = $Page->content;
+		my $title = "No Title";
+		my $description = "No Description Page";
+
+		if($content =~ /TITLE>([^<]*)<\/TITLE>/i) {
+			$title = $1;
+		}
+
+		if($content =~ /META NAME=\"DESCRIPTION\" CONTENT=\"([^\"]*)\"/i) {
+			$description = $1;
+		}
+		$witem->command("me [ $data ]: ".$title);
+		$witem->command("me \cC5 $description");
+	} else {
+		$witem->command("me [ $data ] Page Not Found");
+	}
+}
+
+Irssi::command_bind bgwwwd => \&cmd_bgwwwd;
+
+
+# Perl Documentation
+$FEATURES{'perl'} = "/bgperl \cC7function_name \t \cC5Search a Perl Function URL and Definition";
+sub cmd_bgperl {
+
+	my ($data, $server, $witem) = @_;
+
+	return unless $witem;
+
+
+	use LWP;
+
+	my $Navigator = new LWP::UserAgent({
+        "agent" => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)",
+        "timeout" => "180", 
+        });
+
+	my $Page = $Navigator->get('http://www.perldoc.com/perl5.8.0/pod/func/'.$data.'.html');
+	
+	my $content = $Page->content if $Page->is_success;
+	if($Page->is_success && $content =~ /<span class=\"docTitle\">([^<]*)<\/span>/i) {
+		$witem->command("me Perl Function $data:");
+		$witem->command("me Location: \cC5 http://www.perldoc.com/perl5.8.0/pod/func/".$data.'.html');
+		if($content =~ /<DL><DT><A NAME=\"[^\"]*\">(.*)\n/i) {
+			$witem->command("me \cC0$1");
+		}
+		if($content =~ /<DT><A NAME=\"$data\">$data\n\n<\/A><\/DT>\n<DD>\n([^\n]*)/i) {
+			$witem->command("me $1");
+		}
+	} else {
+		$witem->command("me \cC5Perl Function $data: No Results.");
+	}
+
+	return;
+
+}
+Irssi::command_bind bgperl => \&cmd_bgperl;
+
+# Debian Search Packages
+$FEATURES{'debian'} = "/bgdebian \cC7package name | \cC5Search a package in a Debian stable distribution";
+sub cmd_bgdebian {
+
+	my ($data, $server, $witem) = @_;
+
+	return unless $witem;
+
+
+	use LWP;
+
+	my $Navigator = new LWP::UserAgent({
+        "agent" => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)",
+        "timeout" => "180", 
+        });
+
+	$data =~ s/\ /\+/;
+	my $Page = $Navigator->get('http://packages.debian.org/cgi-bin/search_packages.pl?keywords='.$data.'&searchon=names&subword=1&version=stable&release=all');
+	
+	my $content = $Page->content if $Page->is_success;
+	if($Page->is_success && $content =~ /<TD><B><A HREF=\"http:\/\/packages\.debian\.org\/stable\/misc\/([^\.]*).html\"> $data/i) {
+		$witem->command("me Debian \cC2$data\cC package:");
+		$witem->command("me Location: \cC5 http://packages.debian.org/stable/misc/$1.html");
+		if($content =~ /<TD COLSPAN=2>([^<]*)</i) {
+			$witem->command("me Description: $1");
+		}
+	} else {
+		$witem->command("me \cC5Debian $data package: No Results.");
+	}
+
+	return;
+
+}
+Irssi::command_bind bgdebian => \&cmd_bgdebian;
+1;
+
+
diff --git a/scripts/binary.pl b/scripts/binary.pl
new file mode 100644
index 0000000..1eb374a
--- /dev/null
+++ b/scripts/binary.pl
@@ -0,0 +1,114 @@
+# /binary huora
+# tuolostaa k.o. ikkunaan huora:n sijaan 01101001 ....
+#
+# and modified by carl 2004-03-09
+
+# Changelog
+# Version 1: original version by nchip
+# Version 1.1: added unbinary function
+# Verison 1.2: added server truncate detection (requested by André, thanks for spotting the problem) and choice to have spaces in the binary or not (reqested by Tapio)
+
+
+use strict;
+use Irssi;
+use Irssi qw(command_bind command signal_add_last signal_stop settings_get_bool settings_add_bool);
+
+use vars qw($VERSION %IRSSI);
+
+#%IRSSI = (
+#        authors     => "Riku Voipio",
+#        contact     => "riku.voipio\@iki.fi",
+#        name        => "binary",
+#        description => "adds /binary command that converts what you type into 2-base string representation",
+#        license     => "GPLv2",
+#        url         => "http://nchip.ukkosenjyly.mine.nu/irssiscripts/",
+#    );
+
+$VERSION = "1.2";
+%IRSSI = (
+        authors     => "Carl Fischer",
+        contact     => "carl.fischer\@netcourrier.com",
+        name        => "binary",
+        description => "adds /binary command that converts what you type into 2-base string representation, also decodes other peoples binary automatically",
+        license     => "GPLv2",
+	  );
+
+
+sub cmd_binary {
+	$_=join(" ",$_[0]);
+	$_=reverse;
+	my (@r);
+	if (settings_get_bool('binary_spaces')) {
+	    $r[0]="/say";
+	} else {
+	    $r[0]="/say ";
+	}
+	while ($a = chop($_)) {
+	    push (@r,unpack ("B*", $a));}
+	
+	my $window = Irssi::active_win();
+	if (settings_get_bool('binary_spaces')) {
+	    $window->command(join (" ",@r));
+	} else {
+	    $window->command(join ("",@r));
+	}
+    }
+
+# here ends the original code
+# some of the following was strongly inspired by the kenny script
+
+sub cmd_unbinary {
+    pop @_;
+    pop @_;
+    my $window = Irssi::active_win();
+    $window->print(unbinary($_[0]));
+}
+
+sub unbinary {
+    my $r;
+    if (settings_get_bool('binary_spaces')) {
+	$r=pack("B*", join ("", split(" ", @_[0])));
+    } else {
+	$r=pack("B*", @_[0]);
+    }
+    return $r;
+}
+
+sub sig_binary {
+    my ($server, $msg, $nick, $address, $target) = @_;
+    if (($msg=~m/^([01]{8}( [01]{8})*)( [01]{1,7})*$/ and settings_get_bool('binary_spaces')) or ($msg=~m/^([01]{8}([01]{8})*)([01]{1,7})*$/ and not settings_get_bool('binary_spaces'))) {
+	my $leftover="";
+	$leftover="* (truncated by server)" if $3;
+	$target=$nick if $target eq "";
+	# the address may _never_ be emtpy, if it is its own_public
+	$nick=$server->{'nick'} if $address eq "";
+	$server->window_item_find($target)->print("[binary] <$nick> " .
+						  unbinary($1) . $leftover, 'MSGLEVEL_CRAP');
+	signal_stop() if not settings_get_bool('show_binary_too');
+    }
+}
+
+signal_add_last('message own_public',  'sig_binary');
+signal_add_last('message public',      'sig_binary');
+signal_add_last('message own_private', 'sig_binary');
+signal_add_last('message private',     'sig_binary');
+
+settings_add_bool('lookandfeel', 'show_binary_too', 0);
+settings_add_bool('lookandfeel', 'binary_spaces', 1);
+
+Irssi::command_bind('binary', 'cmd_binary');
+Irssi::command_bind('unbinary', 'cmd_unbinary');
+
+Irssi::print("binary obfuscator vanity script loaded");
+Irssi::print("written by nchip and updated by carl");
+Irssi::print("--------------------------------------");
+Irssi::print("/binary message");
+Irssi::print("will send binary text to the current channel");
+Irssi::print("");
+Irssi::print("/unbinary obfuscated_text");
+Irssi::print("will print the unobfuscated equivalent to your window (and not to the channel)");
+Irssi::print("");
+Irssi::print("/set show_binary_too on");
+Irssi::print("will make this script print the binary equivalent as well as the translation to your screen whenever someone uses binary on the channel");
+Irssi::print("/set binary_spaces off");
+Irssi::print("will make the binary be printed as a single word with no spaces");
diff --git a/scripts/binary_time.pl b/scripts/binary_time.pl
new file mode 100644
index 0000000..610ae11
--- /dev/null
+++ b/scripts/binary_time.pl
@@ -0,0 +1,70 @@
+###
+#
+# binary_time.pl
+#
+# Description: 
+# This script prints the timestamp in binary as follows:
+# 09:25 would be 01001:011001
+# 23:49 would be 10111:110001
+#
+# Bugs:
+# If there are any bugs, please email me at aaron.toponce@gmail.com, and I'll get to them as I can.
+# Please provide the irrsi version that you are using when the bug occurred, as well as a thorough
+# description of how you noticed the bug.  This means providing details of other scripts that you
+# are using including themes.  Please be as detailed as possible.  It is my attempt to recreate the
+# bug.  I make no assurance that I will fix the bug, but I will make my best attempt at locating it.
+#
+# Contact:
+# 	IRC:    #irssi on freenode
+# 	Email:  aaron.toponce@gmail.com
+#	Jabber: aaron.toponce@gmail.com 
+#
+# Change release:
+#	- 20060826 : Initial release
+###
+
+use Irssi;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="20060826";
+%IRSSI = (
+	authors		=> 'Aaron Toponce, Knut Auvor Grythe',
+	contact		=> 'aaron.toponce@gmail.com, irssi@auvor.no',
+	name		=> 'binary_time',
+	description	=> 'Prints the timestamp in binary format',
+	license		=> 'GPL',
+);
+
+my $old_timestamp_format = Irssi::settings_get_str('timestamp_format');
+
+sub hour2bin {
+	my $str = unpack("B32", pack("N", shift));
+	$str =~ s/^0{27}(?=\d)//;   # remove unecessary leading zeros (we only need 5 digits for the hour)
+	return $str;
+}
+
+sub min2bin {
+	my $str = unpack("B32", pack("N", shift));
+	$str =~ s/^0{26}(?=\d)//;   # remove unecessary leading zeros (we only need 6 digits for the minute)
+	return $str;
+}
+
+sub convert_to_binary
+{
+	# Get the hour and minute from the localtime on the users machine.
+	my $hour = (localtime)[2];
+	my $minute = (localtime)[1];
+	
+	my $new_time = hour2bin($hour) . "." . min2bin($minute);
+	Irssi::command("^set timestamp_format $new_time");
+}
+
+sub script_unload {
+	my ($script,$server,$witem) = @_;
+	Irssi::command("^set timestamp_format $old_timestamp_format");
+}
+
+Irssi::timeout_add(1000, 'convert_to_binary', undef);
+Irssi::signal_add_first('command script unload', 'script_unload');
diff --git a/scripts/bitlbee_blist.pl b/scripts/bitlbee_blist.pl
new file mode 100644
index 0000000..179b539
--- /dev/null
+++ b/scripts/bitlbee_blist.pl
@@ -0,0 +1,61 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.4';
+%IRSSI = (
+    authors	=> 'Tijmen "timing" Ruizendaal',
+    contact	=> 'tijmen.ruizendaal@gmail.com',
+    name	=> 'bitlbee_blist',
+    description	=> '/blist <all|online|offline|away> <word>,  greps <word> from blist for bitlbee',
+    license	=> 'GPLv2',
+    url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+    changed	=> '2006-10-27',
+);
+
+my $bitlbee_server_tag = "localhost";
+my $bitlbee_channel = "&bitlbee";
+my ($list, $word);
+
+get_channel();
+
+Irssi::signal_add_last 'channel sync' => sub {
+        my( $channel ) = @_;
+        if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
+                $bitlbee_server_tag = $channel->{server}->{tag};
+                $bitlbee_channel = $channel->{name};
+        }
+};
+
+sub get_channel {
+	my @channels = Irssi::channels();
+	foreach my $channel(@channels) {
+		if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
+			$bitlbee_channel = $channel->{name};
+			$bitlbee_server_tag = $channel->{server}->{tag};
+			return 1;
+		}
+	}
+	return 0;
+}
+
+sub blist {
+  my ($args, $server, $winit) = @_;
+  ($list, $word) = split(/ /, $args, 2);
+  if (Irssi::active_win->{'active'}->{'name'} eq $bitlbee_channel) {
+    Irssi::active_win()->command("msg $bitlbee_channel blist $list");
+    Irssi::signal_add('event privmsg', 'grep');  
+  } else {
+    print "Only use in $bitlbee_channel.";
+  }
+}
+
+sub grep {
+  my ($server, $data, $nick, $address) = @_;
+  my ($target, $text) = split(/ :/, $data, 2);
+  if ($text =~ /$word/ && $target =~ /$bitlbee_channel/){
+    ##do nothing
+  } else {Irssi::signal_stop();}
+  if ($text =~ /buddies/ && $target =~/$bitlbee_channel/){Irssi::signal_remove('event privmsg', 'grep');} 
+}
+
+Irssi::command_bind('blist','blist');
diff --git a/scripts/bitlbee_join_notice-pre-3.0.pl b/scripts/bitlbee_join_notice-pre-3.0.pl
new file mode 100644
index 0000000..a64af60
--- /dev/null
+++ b/scripts/bitlbee_join_notice-pre-3.0.pl
@@ -0,0 +1,95 @@
+#CHANGELOG:
+#
+#28-11-2004:
+#it gives a join message in a query if a user joins &bitlbee and you hve a query open with that person.
+#
+#/statusbar window add join_notice
+#use Data::Dumper;
+
+use strict;
+#use Irssi::TextUI;
+#use Irssi::Themes;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.2';
+%IRSSI = (
+    authors     => 'Tijmen "timing" Ruizendaal',
+    contact     => 'tijmen.ruizendaal@gmail.com',
+    name        => 'Bitlbee_join_notice-pre-3.0',
+    description => '	1. Adds an item to the status bar wich shows [joined: <nicks>] when someone is joining &bitlbee.
+    			2. Shows join messages in the query.
+    			(For bitlbee 1.2.x)',
+    license => 'GPLv2',
+    url     => 'http://the-timing.nl/stuff/irssi-bitlbee',
+    changed => '2006-10-27',
+);
+my %online;
+my %tag;
+my $bitlbee_channel= "&bitlbee";
+my $bitlbee_server_tag="localhost";
+
+get_channel();
+
+Irssi::signal_add_last 'channel sync' => sub {
+        my( $channel ) = @_;
+        if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
+                $bitlbee_server_tag = $channel->{server}->{tag};
+                $bitlbee_channel = $channel->{name};
+        }
+};
+
+sub get_channel {
+        my @channels = Irssi::channels();
+        foreach my $channel(@channels) {
+                if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
+                        $bitlbee_channel = $channel->{name};
+                        $bitlbee_server_tag = $channel->{server}->{tag};
+			return 1;
+                }
+        }
+	return 0;
+}
+
+sub event_join {
+  my ($server, $channel, $nick, $address) = @_;
+  if ($channel eq ":$bitlbee_channel" && $server->{tag} eq $bitlbee_server_tag){
+    $online{$nick} = 1;
+    Irssi::timeout_remove($tag{$nick});
+    $tag{$nick} = Irssi::timeout_add(7000, 'empty', $nick);
+    Irssi::statusbar_items_redraw('join_notice');
+    my $window = Irssi::window_find_item($nick);
+    if($window){
+      $window->printformat(MSGLEVEL_JOINS, 'join', $nick, $address, $bitlbee_channel); 
+    }
+  }
+}
+sub join_notice {
+  my ($item, $get_size_only) = @_; 
+  my $line;
+  foreach my $key (keys(%online) )
+  {
+    $line = $line." ".$key;
+  }
+  if ($line ne "" ){
+    $item->default_handler($get_size_only, "{sb joined:$line}", undef, 1);
+    $line = "";
+  }else{
+    $item->default_handler($get_size_only, "", undef, 1);
+  } 
+}
+sub empty{
+  my $nick = shift;
+  delete($online{$nick});
+  Irssi::timeout_remove($tag{$nick});
+  Irssi::statusbar_items_redraw('join_notice');
+}
+
+Irssi::signal_add("event join", "event_join");
+Irssi::statusbar_item_register('join_notice', undef, 'join_notice');
+Irssi::statusbars_recreate_items();
+Irssi::theme_register([
+  'join', '{channick_hilight $0} {chanhost $1} has joined {channel $2}',
+]);
+
+
diff --git a/scripts/bitlbee_join_notice.pl b/scripts/bitlbee_join_notice.pl
new file mode 100644
index 0000000..6644895
--- /dev/null
+++ b/scripts/bitlbee_join_notice.pl
@@ -0,0 +1,108 @@
+# CHANGELOG:
+#
+# 2010-08-10 (version 1.3)
+# * new bitlbee server detection
+#
+# 2004-11-28:
+# * adds join message to query
+#
+# /statusbar window add join_notice
+# use Data::Dumper;
+
+#use strict;
+use Irssi::TextUI;
+#use Irssi::Themes;
+use Data::Dumper;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.3';
+%IRSSI = (
+	authors		=> 'Tijmen "timing" Ruizendaal',
+	contact		=> 'tijmen.ruizendaal@gmail.com',
+	name		=> 'BitlBee_join_notice',
+	description 	=> '1. Adds an item to the status bar wich shows [joined: <nicks>] when someone is joining &bitlbee. 2. Shows join messages in the query. (For bitlbee v3.0+)',
+	license 	=> 'GPLv2',
+	url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+	changed 	=> '2010-08-10'
+);
+my %timers;
+my $bitlbee_server; # server object
+my @control_channels; # mostly: &bitlbee, &facebook etc.
+init();
+
+sub init { # if script is loaded after connect
+	my @servers = Irssi::servers();
+	foreach my $server(@servers) {
+		if( $server->isupport('NETWORK') eq 'BitlBee' ){
+			$bitlbee_server = $server;
+			my @channels = $server->channels();
+			foreach my $channel(@channels) {
+				if( $channel->{mode} =~ /C/ ){
+					push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+				}
+			}
+		}
+	}
+}
+# if connect after script is loaded
+Irssi::signal_add_last('event 005' => sub {
+	my( $server ) = @_;
+	if( $server->isupport('NETWORK') eq 'BitlBee' ){
+		$bitlbee_server = $server;
+	}
+});
+# if new control channel is synced after script is loaded
+Irssi::signal_add_last('channel sync' => sub {
+	my( $channel ) = @_;
+	if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){
+		push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+	}
+});
+
+# BEGIN bitlbee_join_notice.pl
+
+my %online;
+
+sub event_join {
+	my ($server, $channel, $nick, $address) = @_;
+	$channel =~ s/^://g;
+	if ( (grep $_ eq $channel, @control_channels) && $server->{tag} eq $bitlbee_server->{tag}){
+		$online{$nick} = 1;
+		Irssi::timeout_remove($timers{$nick});
+		delete($timers{$nick});
+		$timers{$nick} = Irssi::timeout_add_once(7000, 'empty', $nick);
+		Irssi::statusbar_items_redraw('join_notice');
+		my $window = Irssi::window_find_item($nick);
+		if($window){
+			$window->printformat(Irssi::MSGLEVEL_JOINS, 'join', $nick, $address, $channel); 
+		}
+	}
+}
+sub join_notice {
+	my ($item, $get_size_only) = @_; 
+	my $line;
+	foreach my $key (keys(%online) ){
+		$line = $line." ".$key;
+	}
+	if ($line ne "" ){
+		$item->default_handler($get_size_only, "{sb joined:$line}", undef, 1);
+		$line = "";
+	} else {
+		$item->default_handler($get_size_only, "", undef, 1);
+	} 
+}
+sub empty {
+	my $nick = shift;
+	delete($online{$nick});
+	Irssi::timeout_remove($timers{$nick});
+	delete($timers{$nick});
+	Irssi::statusbar_items_redraw('join_notice');
+}
+
+Irssi::signal_add('event join', 'event_join' );
+Irssi::statusbar_item_register('join_notice', undef, 'join_notice');
+Irssi::statusbars_recreate_items();
+Irssi::theme_register([	'join', '{channick_hilight $0} {chanhost $1} has joined {channel $2}', ]);
+
+# END bitlbee_join_notice.pl
diff --git a/scripts/bitlbee_nick_change-pre-3.0.pl b/scripts/bitlbee_nick_change-pre-3.0.pl
new file mode 100644
index 0000000..1742c2a
--- /dev/null
+++ b/scripts/bitlbee_nick_change-pre-3.0.pl
@@ -0,0 +1,64 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.2';
+%IRSSI = (
+    authors	=> 'Tijmen "timing" Ruizendaal',
+    contact	=> 'tijmen.ruizendaal@gmail.com',
+    name	=> 'bitlbee_nick_change-pre-3.0',
+    description	=> 'Shows an IM nickchange in an Irssi way. (in a query and in the bitlbee channel). (For bitlbee 1.2.x)',
+    license	=> 'GPLv2',
+    url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+    changed	=> '2006-10-27',
+);
+
+my $bitlbee_channel = "&bitlbee";
+my $bitlbee_server_tag = "localhost";
+
+Irssi::signal_add_last 'channel sync' => sub {
+        my( $channel ) = @_;
+        if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
+                $bitlbee_server_tag = $channel->{server}->{tag};
+                $bitlbee_channel = $channel->{name};
+        }
+};
+
+get_channel();
+
+sub get_channel {
+        my @channels = Irssi::channels();
+        foreach my $channel(@channels) {
+                if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
+                        $bitlbee_channel = $channel->{name};
+                        $bitlbee_server_tag = $channel->{server}->{tag};
+			return 1;
+                }
+        }
+	return 0;
+}
+
+sub message {
+  my ($server, $msg, $nick, $address, $target) = @_;
+  if($server->{tag} eq $bitlbee_server_tag) {
+    if($msg =~ /User.*changed name to/) {
+      $nick = $msg;
+      $nick =~ s/.* - User `(.*)' changed name to.*/$1/;
+      my $window = $server->window_find_item($nick);  
+      
+      if ($window) {
+        $window->printformat(MSGLEVEL_CRAP, 'nick_change',$msg);
+        Irssi::signal_stop();
+      } else {
+        my $window = $server->window_find_item($bitlbee_channel);
+        $window->printformat(MSGLEVEL_CRAP, 'nick_change',$msg);
+        Irssi::signal_stop();
+      }
+    }
+  }    
+}
+
+Irssi::signal_add_last ('message public', 'message');
+
+Irssi::theme_register([
+  'nick_change', '$0'
+ ]);
diff --git a/scripts/bitlbee_nick_change.pl b/scripts/bitlbee_nick_change.pl
new file mode 100644
index 0000000..93a01b9
--- /dev/null
+++ b/scripts/bitlbee_nick_change.pl
@@ -0,0 +1,72 @@
+use strict;
+use Data::Dumper;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.3';
+%IRSSI = (
+	authors		=> 'Tijmen "timing" Ruizendaal',
+	contact		=> 'tijmen.ruizendaal@gmail.com',
+	name		=> 'BitlBee_nick_change',
+	description 	=> 'Shows an IM nickchange in an Irssi way. (in a query and in the bitlbee channel). (For bitlbee 3.0+)',
+	license		=> 'GPLv2',
+	url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+	changed		=> '2010-07-28'
+);
+
+my $bitlbee_server; # server object
+my @control_channels; # mostly: &bitlbee, &facebook etc.
+init();
+
+sub init { # if script is loaded after connect
+	my @servers = Irssi::servers();
+	foreach my $server(@servers) {
+		if( $server->isupport('NETWORK') eq 'BitlBee' ){
+			$bitlbee_server = $server;
+			my @channels = $server->channels();
+			foreach my $channel(@channels) {
+				if( $channel->{mode} =~ /C/ ){
+					push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+				}
+			}
+		}
+	}
+}
+# if connect after script is loaded
+Irssi::signal_add_last('event 005' => sub {
+	my( $server ) = @_;
+	if( $server->isupport('NETWORK') eq 'BitlBee' ){
+		$bitlbee_server = $server;
+	}
+});
+# if new control channel is synced after script is loaded
+Irssi::signal_add_last('channel sync' => sub {
+	my( $channel ) = @_;
+	if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){
+		push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+	}
+});
+
+# BEGIN bitlbee_nick_change.pl
+
+sub event_notice {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	if( $server->{tag} eq $bitlbee_server->{tag} && $msg =~ /.*Changed name to.*/ ){
+		my $friendly_name = $msg;
+		$friendly_name =~ s/.*Changed name to `(.*)'.*/$1/;
+		my $window = $server->window_find_item($nick);	
+		if ($window) {
+			$window->printformat(MSGLEVEL_CRAP, 'nick_change', $nick, $address, 'changed name to `'.$friendly_name.'`');
+			Irssi::signal_stop();
+		} else {
+			# TODO find control channel where this user is located and display the notice there
+			#my $window = $server->window_find_item($bitlbee_channel);
+			#$window->printformat(MSGLEVEL_CRAP, 'nick_change', $nick, $address, 'changed name to `'.$friendly_name.'`');
+			#Irssi::signal_stop();
+		}
+	}		
+};
+
+Irssi::signal_add_last('message irc notice', 'event_notice');
+Irssi::theme_register(['nick_change', '{channick_hilight $0} [$1] $2']);
+
+# END bitbee_nick_change.pl
diff --git a/scripts/bitlbee_tab_completion.pl b/scripts/bitlbee_tab_completion.pl
new file mode 100644
index 0000000..8d19128
--- /dev/null
+++ b/scripts/bitlbee_tab_completion.pl
@@ -0,0 +1,88 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.3';
+
+%IRSSI = (
+    authors     => 'Tijmen "timing" Ruizendaal & Wilmer van der Gaast',
+    contact     => 'tijmen.ruizendaal@gmail.com',
+    name        => 'BitlBee_tab_completion',
+    description => 'Intelligent Tab-completion for BitlBee commands.',
+    license     => 'GPLv2',
+    url         => 'http://the-timing.nl/stuff/irssi-bitlbee',
+    changed     => '2009-08-11',
+);
+
+my $root_nick = 'root';
+my $bitlbee_channel = '&bitlbee';
+my $bitlbee_server_tag = 'localhost';
+my $get_completions = 0;
+
+my @commands;
+
+Irssi::signal_add_last 'channel sync' => sub {
+        my( $channel ) = @_;
+        if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
+                $bitlbee_server_tag = $channel->{server}->{tag};
+                $bitlbee_channel = $channel->{name};
+		request_completions();
+        }
+};
+
+if (get_channel()) {
+	request_completions();
+}
+
+sub request_completions {
+	$get_completions = 1;
+	Irssi::server_find_tag($bitlbee_server_tag)->send_raw( 'COMPLETIONS' );
+}
+
+sub get_channel {
+        my @channels = Irssi::channels();
+        foreach my $channel(@channels) {
+                if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
+                        $bitlbee_channel = $channel->{name};
+                        $bitlbee_server_tag = $channel->{server}->{tag};
+			return 1;
+                }
+        }
+	return 0;
+}
+
+sub irc_notice {
+	return unless $get_completions;
+	my( $server, $msg, $from, $address, $target ) = @_;
+	
+	if( $msg =~ s/^COMPLETIONS // )	{
+		$root_nick = $from;
+		if( $msg eq 'OK' ) {
+			@commands = ();
+		}
+		elsif( $msg eq 'END' ) {
+			$get_completions = 0;
+		}
+		@commands = ( @commands, $msg );
+		
+		Irssi::signal_stop();
+	}
+}
+
+sub complete_word {
+	my ($complist, $window, $word, $linestart, $want_space) = @_;
+	my $channel = $window->get_active_name();
+	if ($channel eq $bitlbee_channel or $channel eq $root_nick or $linestart =~ /^\/(msg|query) \Q$root_nick\E */i){
+		$linestart =~ s/^\/(msg|query) \Q$root_nick\E *//i;
+		$linestart =~ s/^\Q$root_nick\E[:,] *//i;
+		foreach my $command(@commands) {	
+			if ($command =~ /^$word/i) {
+				push @$complist, $command;
+		    	}
+		}
+	}
+}
+
+
+Irssi::signal_add_last('complete word', 'complete_word');
+Irssi::signal_add_first('message irc notice', 'irc_notice');
+
diff --git a/scripts/bitlbee_timestamp.pl b/scripts/bitlbee_timestamp.pl
new file mode 100644
index 0000000..7957d57
--- /dev/null
+++ b/scripts/bitlbee_timestamp.pl
@@ -0,0 +1,105 @@
+use strict;
+use Data::Dumper;
+use vars qw($VERSION %IRSSI);
+use DateTime;
+
+$VERSION = '0.5';
+%IRSSI = (
+    authors	=> 'Tijmen "timing" Ruizendaal',
+    contact	=> 'tijmen.ruizendaal@gmail.com',
+    name	=> 'bitlbee_timestamp',
+    description	=> 'Replace Irssi\'s timestamps with those sent by BitlBee',
+    license	=> 'GPLv2',
+    url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+    changed	=> '2010-05-01',
+);
+
+my $tf = Irssi::settings_get_str('timestamp_format');
+
+my $bitlbee_server; # server object
+my @control_channels; # mostly: &bitlbee, &facebook etc.
+init();
+
+sub init { # if script is loaded after connect
+	my @servers = Irssi::servers();
+	foreach my $server(@servers) {
+		if( $server->isupport('NETWORK') eq 'BitlBee' ){
+			$bitlbee_server = $server;
+			my @channels = $server->channels();
+			foreach my $channel(@channels) {
+				if( $channel->{mode} =~ /C/ ){
+					push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+				}
+			}
+		}
+	}
+}
+# if connect after script is loaded
+Irssi::signal_add_last('event 005' => sub {
+	my( $server ) = @_;
+	if( $server->isupport('NETWORK') eq 'BitlBee' ){
+		$bitlbee_server = $server;
+	}
+});
+# if new control channel is synced after script is loaded
+Irssi::signal_add_last('channel sync' => sub {
+	my( $channel ) = @_;
+	if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){
+		push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+	}
+});
+
+my $prev_date = '';
+
+sub privmsg {
+	my ($server, $data, $nick, $address) = @_;
+
+	# What we need to match: ^B[^B^B^B2010-03-21 16:33:41^B]^B
+
+	if( $server->{tag} eq $bitlbee_server->{tag} ){
+	
+		my ($target, $text) = split(/ :/, $data, 2);
+
+		#if( $text =~ /^B[^B^B^B[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2}^B]^B/ ){
+
+		if( $text =~ /\x02\[\x02\x02\x02.*\x02\]\x02/ ){
+			my $window;
+			my $timestamp = $text;
+			my $time;
+			my $date;
+			$timestamp =~ s/.*\x02\[\x02\x02\x02(.*?)\x02\]\x02.*/$1/g;
+			$text =~ s/\x02\[\x02\x02\x02(.*?)\x02\]\x02 //g;
+
+			($date, $time) = split(/ /, $timestamp);
+			if( !$time ){ # the timestamp doesn't have a date
+				$time = $date;
+				# use today as date
+				$date = DateTime->now->ymd;
+			}
+
+			if( $date ne $prev_date ){
+				if( $target =~ /#|&/ ){ # find channel window based on target
+					$window = Irssi::window_find_item($target);
+				} else { # find query window based on nick
+					$window = Irssi::window_find_item($nick);
+				}
+				if( $window != undef ){
+					my($year, $month, $day) = split(/-/, $date);
+					my $dt = DateTime->new(year => $year, month => $month, day => $day);
+					my $formatted_date = $day.' '.$dt->month_abbr.' '.$year;
+					
+					$window->print('Day changed to '.$formatted_date, MSGLEVEL_NEVER);
+				}
+			}
+			$prev_date = $date;
+			
+			Irssi::settings_set_str('timestamp_format', $time);
+			Irssi::signal_continue($server, $target . ' :' . $text, $nick, $address);
+			my $escaped = $tf;
+			$escaped =~ s/%/%%/g;
+			Irssi::settings_set_str('timestamp_format', $tf);
+		}
+	}
+}
+
+Irssi::signal_add('event privmsg', 'privmsg');
diff --git a/scripts/bitlbee_typing_notice-pre-3.0.pl b/scripts/bitlbee_typing_notice-pre-3.0.pl
new file mode 100644
index 0000000..0b21657
--- /dev/null
+++ b/scripts/bitlbee_typing_notice-pre-3.0.pl
@@ -0,0 +1,321 @@
+# INSTALLATION
+# [&bitlbee] set typing_notice true
+# <@root> typing_notice = `true'
+# AND
+# /statusbar window add typing_notice
+#
+# SETTINGS
+# [bitlbee]
+# bitlbee_send_typing = ON
+#   -> send typing messages to buddies
+# bitlbee_typing_allwin = OFF
+#   -> show typing notifications in all windows
+#
+# 
+# Changelog:
+#
+# 2006-11-02 (version 1.6.1_
+# * Sending typing works again.
+#
+# 2006-10-27 (version 1.6)
+# * 'channel sync' re-implemented.
+# * bitlbee_send_typing was a string setting, It's a boolean now, like it should.
+#
+# 2006-10-24 (version 1.5)
+#
+# * Sending notices to online users only.
+# * Using the new get_channel function;
+#
+# 2005-12-15 (version 1.42):
+# * Fixed small bug with typing notices disappearing under certain circumstances
+#   in channels
+# * Fixed bug that caused outgoing notifications not to work 
+# * root cares not about our typing status.
+#
+# 2005-12-04 (version 1.41):
+# * Implemented stale states in statusbar (shows "(stale)" for OSCAR connections) 
+# * Introduced bitlbee_typing_allwin (default OFF). Set this to ON to make
+#   typing notifications visible in all windows.
+#
+# 2005-12-03 (version 1.4):
+# * Major code cleanups and rewrites for bitlbee 1.0 with the updated typing
+#   scheme. TYPING 0, TYPING 1, and TYPING 2 are now supported from the server.
+# * Stale states (where user has typed in text but has stopped typing) are now
+#   recognized.
+# * Bug where user thinks you are still typing if you close the window after
+#   typing something and then erasing it quickly.. fixed.
+# * If a user signs off while they are still typing, the notification is removed
+# This update by Matt "f0rked" Sparks
+#
+# 2005-08-26:
+# Some fixes for AIM, Thanks to Dracula.
+#
+# 2005-08-16:
+# AIM supported, for sending notices, using CTCP TYPING 0. (Use the AIM patch from Hanji http://get.bitlbee.org/patches/)
+# 
+# 2004-10-31:
+# Sends typing notice to the bitlbee server when typing a message in irssi. bitlbee > 0.92
+#
+# 2004-06-11:
+# shows [typing: ] in &bitlbee with multiple users.
+#
+use strict;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.6.1';
+%IRSSI = (
+    authors     => 'Tijmen "timing" Ruizendaal, Matt "f0rked" Sparks',
+    contact     => 'tijmen.ruizendaal@gmail.com, root@f0rked.com',
+    name        => 'Bitlbee_typing_notice-pre-3.0',
+    description => '1. Adds an item to the status bar wich shows [typing] when someone is typing a message on the supported IM-networks
+                    2. Sending typing notices to the supported IM networks (the other way arround)
+                    (For bitlbee 1.2.x)',
+    license     => 'GPLv2',
+    url         => 'http://the-timing.nl/stuff/irssi-bitlbee,
+                    http://f0rked.com',
+    changed     => '2006-11-02',
+);
+
+my $bitlbee_channel = "&bitlbee";
+my $bitlbee_server_tag = "localhost";
+
+my $KEEP_TYPING_TIMEOUT = 1;
+my $STOP_TYPING_TIMEOUT = 7; # How often to check if we are typing, or on msn,
+                             # how long to keep the typing notice up, or check
+                             # if the other user is still typing...
+
+my %timer_tag;
+
+my %typing;
+my %tag;
+my $line;
+my %out_typing;
+my $lastkey;
+my $keylog_active = 1;
+my $command_char = Irssi::settings_get_str('cmdchars');
+my $to_char = Irssi::settings_get_str("completion_char");
+
+get_channel();
+
+Irssi::signal_add_last 'channel sync' => sub {
+        my( $channel ) = @_;
+        if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
+                $bitlbee_server_tag = $channel->{server}->{tag};
+                $bitlbee_channel = $channel->{name};
+        }
+};
+
+sub get_channel {
+        my @channels = Irssi::channels();
+        foreach my $channel(@channels) {
+                if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
+                        $bitlbee_channel = $channel->{name};
+                        $bitlbee_server_tag = $channel->{server}->{tag};
+			return 1;
+                }
+        }
+	return 0;
+}
+
+sub event_ctcp_msg {
+    my ($server, $msg, $from, $address) = @_;
+    #print "CTCP: $msg $from $address";
+    return if $server->{tag} ne $bitlbee_server_tag;
+    if (my($type) = $msg =~ "TYPING ([0-9])") {
+        Irssi::signal_stop();
+        if ($type == 0) {
+            unset_typing($from);
+        }
+        elsif ($type == 1) {
+            $typing{$from}=1;
+            if ($address !~ /\@login\.oscar\.aol\.com/
+                and $address !~ /\@YAHOO/
+                and $address !~ /\@login\.icq\.com/) {
+                Irssi::timeout_remove($tag{$from});
+                $tag{$from}=Irssi::timeout_add_once($STOP_TYPING_TIMEOUT*1000,"unset_typing",$from);
+            }
+            redraw($from);
+        }
+        elsif ($type == 2) {
+            stale_typing($from);
+        }
+    }
+}
+
+sub unset_typing {
+    my($from,$no_redraw)=@_;
+    delete $typing{$from} if $typing{$from};
+    Irssi::timeout_remove($tag{$from});
+    redraw($from) if !$no_redraw;
+}
+
+sub stale_typing {
+    my($from)=@_;
+    $typing{$from}=2;
+    redraw($from);
+}
+
+sub redraw {
+    my($from)=@_;
+    my $window = Irssi::active_win();
+    my $channel = $window->get_active_name();
+    if ($from eq $channel || $channel eq $bitlbee_channel
+        || $channel =~ /&chat_0/ 
+        || Irssi::settings_get_bool("bitlbee_typing_allwin")) {
+        Irssi::statusbar_items_redraw('typing_notice');
+    }
+}    
+
+sub event_msg {
+    my ($server,$data,$from,$address,$target) = @_;
+    return if $server->{tag} ne $bitlbee_server_tag;
+    my $channel=Irssi::active_win()->get_active_name();
+    unset_typing $from, "no redraw";
+    unset_typing $channel;
+}
+
+sub event_quit {
+    my($server,$nick,$address,$reason)=@_;
+    return if $server->{tag} ne $bitlbee_server_tag;
+    unset_typing $nick;
+}
+
+sub typing_notice {
+    my ($item, $get_size_only) = @_;
+    my $window = Irssi::active_win();
+    my $channel = $window->get_active_name();
+    
+    if (exists($typing{$channel})) {
+        my $append=$typing{$channel}==2 ? " (stale)" : "";
+        $item->default_handler($get_size_only, "{sb typing$append}", 0, 1);
+    }
+    else {
+        $item->default_handler($get_size_only, "", 0, 1);
+        Irssi::timeout_remove($tag{$channel});
+    }
+    if ($channel eq $bitlbee_channel || $channel =~ /&chat_0/
+        || Irssi::settings_get_bool("bitlbee_typing_allwin")) {
+        foreach my $key (keys(%typing)) {
+            $line .= " ".$key;
+            if ($typing{$key}==2) { $line .= " (stale)"; }
+        }
+        if ($line ne "") {
+            $item->default_handler($get_size_only, "{sb typing:$line}", 0, 1);
+            $line = "";
+        }
+    } 
+}
+
+sub empty {
+    my $from = shift;
+    delete($typing{$from});
+    Irssi::statusbar_items_redraw('typing_notice');
+}
+
+sub window_change {
+    Irssi::statusbar_items_redraw('typing_notice');
+    my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+    if (ref $win && ($win->{server}->{tag} eq $bitlbee_server_tag)) {
+        if (!$keylog_active) {
+            $keylog_active = 1;
+            Irssi::signal_add_last('gui key pressed', 'key_pressed');
+            #print "Keylog started";
+        }
+    } 
+    else {
+        if ($keylog_active) {
+            $keylog_active = 0;
+            Irssi::signal_remove('gui key pressed', 'key_pressed');
+            #print "Keylog stopped";
+        }
+    }
+}
+
+sub key_pressed {
+    return if !Irssi::settings_get_bool("bitlbee_send_typing");
+    my $key = shift;
+    if ($key != 9 && $key != 10 && $lastkey != 27 && $key != 27 
+       && $lastkey != 91 && $key != 126 && $key != 127) 
+    {
+        my $server = Irssi::active_server();
+        my $window = Irssi::active_win();
+        my $nick = $window->get_active_name();
+        if ($server->{tag} eq $bitlbee_server_tag && 
+            $nick ne "(status)" &&
+            $nick ne "root") 
+        {
+            if ($nick eq $bitlbee_channel) {
+                my $input = Irssi::parse_special("\$L");
+                my ($first_word) = split(/ /,$input);
+                if ($input !~ /^$command_char.*/ && $first_word =~ s/$to_char$//){
+                    send_typing($first_word);
+                }
+            } 
+            else {
+                my $input = Irssi::parse_special("\$L");
+                if ($input !~ /^$command_char.*/ && length($input) > 0){
+                    send_typing($nick);
+                }
+            }
+        }
+    }
+    $lastkey = $key;
+}
+
+sub out_empty {
+    my ($a) = @_;
+    my($nick,$tag)=@{$a};
+    delete($out_typing{$nick});
+    #print $winnum."|".$nick;
+    if (my $server=Irssi::server_find_tag($tag)) {
+        $server->command("^CTCP $nick TYPING 0");
+    }
+}
+
+sub send_typing {
+    my $nick = shift;
+    if (!exists($out_typing{$nick}) || time - $out_typing{$nick} > $KEEP_TYPING_TIMEOUT) {
+
+	my @nicks = Irssi::server_find_tag($bitlbee_server_tag)->channel_find($bitlbee_channel)->nicks();
+    	my $exists=0;
+    	foreach my $nick1(@nicks) { #check if the nickname is in the BitlBee channel
+		if($nick1->{'nick'} eq $nick) {
+		#	print "Exists!";
+			$exists=1;
+		}
+    	}
+    	if (!$exists) {
+		#print "Does not exist";
+		return;
+    	}
+
+    	#print "Send typing";
+        my $server = Irssi::active_server();
+        $server->command("^CTCP $nick TYPING 1");
+               
+        $out_typing{$nick} = time;
+        
+        ### Reset 'stop-typing' timer
+        if ($timer_tag{$nick}) {
+            Irssi::timeout_remove($timer_tag{$nick});
+            delete($timer_tag{$nick});
+        }
+        $timer_tag{$nick} = Irssi::timeout_add_once($STOP_TYPING_TIMEOUT*1000, 'out_empty', ["$nick", $server->{tag}]);
+    }
+}
+
+ #README: Delete the old bitlbee_send_typing string from ~/.irssi/config. A boolean is better.
+
+Irssi::settings_add_bool("bitlbee","bitlbee_send_typing",1);
+Irssi::settings_add_bool("bitlbee","bitlbee_typing_allwin",0);
+
+Irssi::signal_add("ctcp msg", "event_ctcp_msg");
+Irssi::signal_add("message private", "event_msg");
+Irssi::signal_add("message public", "event_msg");
+Irssi::signal_add("message quit", "event_quit");
+Irssi::signal_add_last('window changed', 'window_change');
+Irssi::signal_add_last('gui key pressed', 'key_pressed');
+Irssi::statusbar_item_register('typing_notice', undef, 'typing_notice');
+Irssi::statusbars_recreate_items();
diff --git a/scripts/bitlbee_typing_notice.pl b/scripts/bitlbee_typing_notice.pl
new file mode 100644
index 0000000..50fe47c
--- /dev/null
+++ b/scripts/bitlbee_typing_notice.pl
@@ -0,0 +1,319 @@
+# INSTALLATION
+# [&bitlbee] set typing_notice true
+# <@root> typing_notice = `true'
+# AND
+# /statusbar window add typing_notice
+#
+# SETTINGS
+# [bitlbee]
+# bitlbee_send_typing = ON
+#   -> send typing messages to buddies
+# bitlbee_typing_allwin = OFF
+#   -> show typing notifications in all windows
+#
+# 
+# Changelog:
+#
+# 2010-08-09 (version 1.7.1)
+# * Multiple control channels supported by checking chanmodes
+#
+# 2010-07-27 (version 1.7)
+# * Using new server detection for latest BitlBee support
+#
+# 2010-07-26 (version 1.6.3)
+# * Removed checking if nicks exists in &bitlbee channel, this because BitlBee 
+#   can be used without control channel from this date
+#
+# 2007-03-03 (version 1.6.2)
+# * Fix: timers weren't deleted correctly. This resulted in huge mem usage.
+#
+# 2006-11-02 (version 1.6.1)
+# * Sending typing works again.
+#
+# 2006-10-27 (version 1.6)
+# * 'channel sync' re-implemented.
+# * bitlbee_send_typing was a string setting, It's a boolean now, like it should.
+#
+# 2006-10-24 (version 1.5)
+# * Sending notices to online users only. ( removed this again at 2010-07-26, see above )
+# * Using the new get_channel function;
+#
+# 2005-12-15 (version 1.42):
+# * Fixed small bug with typing notices disappearing under certain circumstances
+#   in channels
+# * Fixed bug that caused outgoing notifications not to work 
+# * root cares not about our typing status.
+#
+# 2005-12-04 (version 1.41):
+# * Implemented stale states in statusbar (shows "(stale)" for OSCAR connections) 
+# * Introduced bitlbee_typing_allwin (default OFF). Set this to ON to make
+#   typing notifications visible in all windows.
+#
+# 2005-12-03 (version 1.4):
+# * Major code cleanups and rewrites for bitlbee 1.0 with the updated typing
+#   scheme. TYPING 0, TYPING 1, and TYPING 2 are now supported from the server.
+# * Stale states (where user has typed in text but has stopped typing) are now
+#   recognized.
+# * Bug where user thinks you are still typing if you close the window after
+#   typing something and then erasing it quickly.. fixed.
+# * If a user signs off while they are still typing, the notification is removed
+# This update by Matt "f0rked" Sparks
+#
+# 2005-08-26:
+# Some fixes for AIM, Thanks to Dracula.
+#
+# 2005-08-16:
+# AIM supported, for sending notices, using CTCP TYPING 0. (Use the AIM patch from Hanji http://get.bitlbee.org/patches/)
+# 
+# 2004-10-31:
+# Sends typing notice to the bitlbee server when typing a message in irssi. bitlbee > 0.92
+#
+# 2004-06-11:
+# shows [typing: ] in &bitlbee with multiple users.
+#
+use strict;
+use Irssi::TextUI;
+use Data::Dumper;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.7.1';
+%IRSSI = (
+	authors	 	=> 'Tijmen "timing" Ruizendaal, Matt "f0rked" Sparks',
+	contact		=> 'tijmen.ruizendaal@gmail.com, root@f0rked.com',
+	name		=> 'BitlBee_typing_notice',
+	description	=> '1. Adds an item to the status bar wich shows [typing] when someone is typing a message on the supported IM-networks	2. Sends typing notices to the supported IM networks (the other way arround). (For bitlbee 3.0+)',
+	license	 	=> 'GPLv2',
+	url		=> 'http://the-timing.nl/stuff/irssi-bitlbee, http://f0rked.com',
+	changed	 	=> '2010-08-09',
+);
+
+my $bitlbee_server; # server object
+my @control_channels; # mostly: &bitlbee, &facebook etc.
+init();
+
+sub init { # if script is loaded after connect
+	my @servers = Irssi::servers();
+	foreach my $server(@servers) {
+		if( $server->isupport('NETWORK') eq 'BitlBee' ){
+			$bitlbee_server = $server;
+			my @channels = $server->channels();
+			foreach my $channel(@channels) {
+				if( $channel->{mode} =~ /C/ ){
+					push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+				}
+			}
+		}
+	}
+}
+# if connect after script is loaded
+Irssi::signal_add_last('event 005' => sub {
+	my( $server ) = @_;
+	if( $server->isupport('NETWORK') eq 'BitlBee' ){
+		$bitlbee_server = $server;
+	}
+});
+# if new control channel is synced after script is loaded
+Irssi::signal_add_last('channel sync' => sub {
+	my( $channel ) = @_;
+	if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){
+		push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
+	}
+});
+
+# How often to check if we are typing, or on msn,
+# how long to keep the typing notice up, or check
+# if the other user is still typing...
+my $KEEP_TYPING_TIMEOUT = 1;
+my $STOP_TYPING_TIMEOUT = 7;
+
+my %timer_tag;
+
+my %typing;
+my %tag;
+my $line;
+my %out_typing;
+my $lastkey;
+my $keylog_active = 1;
+my $command_char = Irssi::settings_get_str('cmdchars'); # mostly: /
+my $to_char = Irssi::settings_get_str("completion_char"); # mostly: :
+
+sub event_ctcp_msg {
+	my ($server, $msg, $from, $address) = @_;
+	return if $server->{tag} ne $bitlbee_server->{tag};
+	if ( my($type) = $msg =~ "TYPING ([0-9])" ){
+		Irssi::signal_stop();
+		if( $type == 0 ){
+			unset_typing($from);
+		} elsif( $type == 1 ){
+			$typing{$from}=1;
+			if( $address !~ /\@login\.oscar\.aol\.com/ and $address !~ /\@YAHOO/ and $address !~ /\@login\.icq\.com/ ){
+				Irssi::timeout_remove($tag{$from});
+				delete($tag{$from});
+				$tag{$from}=Irssi::timeout_add_once($STOP_TYPING_TIMEOUT*1000,"unset_typing",$from);
+			}
+			redraw($from);
+		} elsif( $type == 2 ){
+			stale_typing($from);
+		}
+	}
+}
+
+sub unset_typing {
+	my($from,$no_redraw)=@_;
+	delete $typing{$from} if $typing{$from};
+	Irssi::timeout_remove($tag{$from});
+	delete($tag{$from});
+	redraw($from) if !$no_redraw;
+}
+
+sub stale_typing {
+	my($from)=@_;
+	$typing{$from}=2;
+	redraw($from);
+}
+
+sub redraw {
+	my($from)=@_;
+	my $window = Irssi::active_win();
+	my $name = $window->get_active_name();
+	
+	# only redraw if current window equals to the typing person, is a control channel or if allwin is set
+	if( $from eq $name || (grep $_ eq $name, @control_channels) || Irssi::settings_get_bool("bitlbee_typing_allwin") ){
+		Irssi::statusbar_items_redraw('typing_notice');
+	}
+}	
+
+sub event_msg {
+	my ($server,$data,$from,$address,$target) = @_;
+	return if $server->{tag} ne $bitlbee_server->{tag};
+	my $channel=Irssi::active_win()->get_active_name();
+	unset_typing $from, "no redraw";
+	unset_typing $channel;
+}
+
+sub event_quit {
+	my $server = shift;
+	return if $server->{tag} ne $bitlbee_server->{tag};
+	my $nick = shift;
+	unset_typing $nick;
+}
+
+sub typing_notice {
+	my ($item, $get_size_only) = @_;
+	my $window = Irssi::active_win();
+	my $channel = $window->get_active_name();
+	
+	if (exists($typing{$channel})) {
+		my $append=$typing{$channel}==2 ? " (stale)" : "";
+		$item->default_handler($get_size_only, "{sb typing$append}", 0, 1);
+	} else {
+		$item->default_handler($get_size_only, "", 0, 1);
+		Irssi::timeout_remove($tag{$channel});
+		delete($tag{$channel});
+	}
+	# we check for correct windows again, because the statusbar item is redrawn after window change too.
+	if( (grep $_ eq $channel, @control_channels) || Irssi::settings_get_bool("bitlbee_typing_allwin")) {
+		foreach my $key (keys(%typing)) {
+			$line .= " ".$key;
+			if ($typing{$key}==2) { $line .= " (stale)"; }
+		}
+		if ($line ne "") {
+			$item->default_handler($get_size_only, "{sb typing:$line}", 0, 1);
+			$line = "";
+		}
+	} 
+}
+
+sub window_change {
+	Irssi::statusbar_items_redraw('typing_notice');
+	my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+	if (ref $win && ($win->{server}->{tag} eq $bitlbee_server->{tag})) {
+		if (!$keylog_active) {
+			$keylog_active = 1;
+			Irssi::signal_add_last('gui key pressed', 'key_pressed');
+		}
+	} else {
+		if ($keylog_active) {
+			$keylog_active = 0;
+			Irssi::signal_remove('gui key pressed', 'key_pressed');
+		}
+	}
+}
+
+sub key_pressed {
+	return if !Irssi::settings_get_bool("bitlbee_send_typing");
+	my $key = shift;
+	if ($key != 9 && $key != 10 && $lastkey != 27 && $key != 27 
+	   && $lastkey != 91 && $key != 126 && $key != 127) 
+	{
+		my $server = Irssi::active_server();
+		my $window = Irssi::active_win();
+		my $nick = $window->get_active_name();
+
+		if ($server->{tag} eq $bitlbee_server->{tag} && $nick ne "(status)" && $nick ne "root") {
+			if( grep $_ eq $nick, @control_channels ){ # send typing if in control channel
+				my $input = Irssi::parse_special("\$L");
+				my ($first_word) = split(/ /,$input);
+				if ($input !~ /^$command_char.*/ && $first_word =~ s/$to_char$//){
+					send_typing($first_word);
+				}
+			} else { # or any other channels / query
+				my $input = Irssi::parse_special("\$L");
+				if ($input !~ /^$command_char.*/ && length($input) > 0){
+					send_typing($nick);
+				}
+			}
+		}
+	}
+	$lastkey = $key;
+}
+
+sub out_empty {
+	my ($a) = @_;
+	my($nick,$tag)=@{$a};
+	delete($out_typing{$nick});
+	Irssi::timeout_remove($timer_tag{$nick});
+	delete($timer_tag{$nick});
+	$bitlbee_server->command("^CTCP $nick TYPING 0");
+}
+
+sub send_typing {
+	my $nick = shift;
+	if (!exists($out_typing{$nick}) || time - $out_typing{$nick} > $KEEP_TYPING_TIMEOUT) {
+		$bitlbee_server->command("^CTCP $nick TYPING 1");
+		$out_typing{$nick} = time;
+		### Reset 'stop-typing' timer
+		Irssi::timeout_remove($timer_tag{$nick});
+		delete($timer_tag{$nick});
+
+		### create new timer
+		$timer_tag{$nick} = Irssi::timeout_add_once($STOP_TYPING_TIMEOUT*1000, 'out_empty', ["$nick", $bitlbee_server->{tag}]);
+	}
+}
+
+#README: Delete the old bitlbee_send_typing string from ~/.irssi/config. A boolean is better.
+
+sub db_typing { 
+	print "Detected channels: ";
+	print Dumper(@control_channels);
+	print "Detected server tag: ".$bitlbee_server->{tag};
+	print "Tag: ".Dumper(%tag);	
+	print "Timer Tag: ".Dumper(%timer_tag);	
+	print "Typing: ".Dumper(%typing);	
+	print "Out Typing: ".Dumper(%out_typing);	
+}
+
+Irssi::command_bind('db_typing','db_typing');
+
+Irssi::settings_add_bool("bitlbee","bitlbee_send_typing",1);
+Irssi::settings_add_bool("bitlbee","bitlbee_typing_allwin",0);
+
+Irssi::signal_add("ctcp msg", "event_ctcp_msg");
+Irssi::signal_add("message private", "event_msg");
+Irssi::signal_add("message public", "event_msg");
+Irssi::signal_add("message quit", "event_quit");
+Irssi::signal_add_last('window changed', 'window_change');
+Irssi::signal_add_last('gui key pressed', 'key_pressed');
+Irssi::statusbar_item_register('typing_notice', undef, 'typing_notice');
+Irssi::statusbars_recreate_items();
diff --git a/scripts/blowjob.pl b/scripts/blowjob.pl
new file mode 100644
index 0000000..27e2fcc
--- /dev/null
+++ b/scripts/blowjob.pl
@@ -0,0 +1,558 @@
+#!/usr/bin/perl -w
+use strict;
+
+# BlowJob 0.9.0, a crypto script - ported from xchat
+# was based on rodney mulraney's crypt
+# changed crypting method to Blowfish+Base64+randomness+Z-compression
+# needs :
+#         Crypt::CBC,
+#         Crypt::Blowfish,
+#         MIME::Base64,
+#         Compress::Zlib
+#
+# crypted format is :
+# HEX(Base64((paranoia-factor)*(blowfish(RANDOM+Zcomp(string))+RANDOM)))
+#
+# 10-03-2004 Removed seecrypt, fixed two minor bugs
+# 09-03-2004 Supporting multiline messages now.
+# 08-03-2004 Lots of bugfixes on the irssi version by Thomas Reifferscheid
+# 08-03-2004 CONF FILE FORMAT CHANGED
+#
+#            from server:channel:key:paranoia
+#            to   server:channel:paranoia:key
+#
+#            /perm /bconf /setkey /showkey working now
+#            keys may contain colons ":" now.
+#
+#
+# 06-12-2001 Added default umask for blowjob.keys
+# 05-12-2001 Added paranoia support for each key
+# 05-12-2001 Added conf file support
+# 05-12-2001 Added delkey and now can handle multi-server/channel keys
+# 05-12-2001 permanent crypting to a channel added
+# 05-12-2001 Can now handle multi-channel keys
+# just /setkey <key> on the channel you are to associate a channel with a key
+#
+# --- conf file format ---
+#
+# # the generic key ( when /setkey has not been used )
+# key:            generic key value
+# # header that marks a crypted sentance
+# header:         {header}
+# # enable wildcards for multiserver entries ( useful for OPN for example )
+# wildcardserver: yes
+#
+# --- end of conf file ---
+#
+# iMil <imil@gcu-squad.org>
+# skid <skid@gcu-squad.org>
+# Foxmask <odemah@gcu-squad.org>
+# Thomas Reifferscheid <blowjob@reifferscheid.org>
+
+use Crypt::CBC;
+use Crypt::Blowfish;
+use MIME::Base64;
+use Compress::Zlib;
+
+use Irssi::Irc;
+use Irssi;
+use vars qw($VERSION %IRSSI $cipher);
+
+$VERSION = "0.9.0";
+%IRSSI = (
+    authors => 'iMil,Skid,Foxmask,reiffert',
+    contact => 'imil@gcu-squad.org,blowjob@reifferscheid.org,#blowtest@freenode',
+    name => 'blowjob',
+    description => 'Crypt IRC communication with blowfish encryption. Supports public #channels, !channels, +channel, querys and dcc chat. Roadmap for Version 1.0.0 is to get some feedback and cleanup. Join #blowtest on freenode (irc.debian.org) to get latest stuff available. Note to users upgrading from versions prior to 0.8.5: The blowjob.keys format has changed.',
+    license => 'GNU GPL',
+    url => 'http://ftp.gcu-squad.org/misc/',
+);
+
+
+############# IRSSI README AREA #################################
+#To install this script just do
+#/script load ~/blowjob-irssi.pl
+#  and
+#/blowhelp
+#  to read all the complete feature of the script :)
+#To uninstall it do
+#/script unload blowjob-irssi
+################################################################
+
+
+my $key = 'very poor key' ; # the default key
+my $header = "{blow}";
+# Crypt loops, 1 should be enough for everyone imho ;)
+# please note with a value of 4, a single 4-letter word can generate
+# a 4 line crypted sentance
+my $paranoia = 1;
+# add a server mask by default ?
+my $enableWildcard="yes";
+
+my $alnum = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
+
+my $gkey;
+sub loadconf
+{
+  my $fconf =Irssi::get_irssi_dir()."/blowjob.conf";
+  my @conf;
+  open (CONF, "<$fconf");
+
+  if (!( -f CONF)) {
+    Irssi::print("\00305> $fconf not found, setting to defaults\n");
+    Irssi::print("\00305> creating $fconf with default values\n\n");
+    close(CONF);
+    open(CONF,">$fconf");
+    print CONF "key:			$key\n";
+    print CONF "header:			$header\n";
+    print CONF "wildcardserver:		$enableWildcard\n";
+    close(CONF);
+    return 1;
+  }
+
+  @conf=<CONF>;
+  close(CONF);
+
+  my $current;
+  foreach(@conf) {
+    $current = $_;
+    $current =~ s/\n//g;
+    if ($current =~ m/key/) {
+      $current =~ s/.*\:[\ \t]*//;
+      $key = $current;
+      $gkey = $key;
+    }
+    if ($current =~ m/header/) {
+      $current =~ s/.*\:[\s\t]*\{(.*)\}.*/{$1}/;
+      $header = $current;
+    }
+    if ($current =~ m/wildcardserver/) {
+      $current =~ s/.*\:[\ \t]*//;
+      $enableWildcard = $current;
+    }
+  }
+  Irssi::print("\00314- configuration file loaded\n");
+  return 1;
+}
+loadconf;
+
+my $kfile ="$ENV{HOME}/.irssi/blowjob.keys";
+my @keys;
+$gkey=$key;
+my $gparanoia=$paranoia;
+
+sub loadkeys
+{
+  if ( -e "$kfile" ) {
+    open (KEYF, "<$kfile");
+    @keys = <KEYF>;
+    close (KEYF);
+  }
+  Irssi::print("\00314- keys reloaded (Total:\00315 ".scalar @keys."\00314)\n");
+  return 1;
+}
+loadkeys;
+
+sub getkey
+{
+  my ($curserv, $curchan) = @_;
+
+  my $gotkey=0;
+  my $serv;
+  my $chan;
+  my $fkey;
+
+  foreach(@keys) {
+    chomp;                                            # keys can contain ":" now. Note:
+    my ($serv,$chan,$fparanoia,$fkey)=split /:/,$_,4; # place of paranoia has changed!
+    if ( $curserv =~ /$serv/ and $curchan eq $chan ) {
+      $key= $fkey;
+      $paranoia=$fparanoia;
+      $gotkey=1;
+    }
+  }
+  if (!$gotkey) {
+    $key=$gkey;
+    $paranoia=$gparanoia;
+  }
+  $cipher=new Crypt::CBC($key,'Blowfish',undef);
+}
+
+sub setkey
+{
+  my (undef,$server, $channel) = @_;
+  if (! $channel) { return 1; }
+  my $curchan = $channel->{name};
+  my $curserv = $server->{address};
+  # my $key = $data;
+
+  my $fparanoia;
+
+  my $newchan=1;
+  umask(0077);
+  unless ($_[0] =~ /( +\d$)/) {
+     $_[0].= " $gparanoia";
+  }
+  ($key, $fparanoia) = ($_[0] =~ /(.*) +(\d)/);
+
+  if($enableWildcard =~ /[Yy][Ee][Ss]/) {
+      $curserv =~ s/(.*?)\./(.*?)\./;
+    Irssi::print("\00314IRC server wildcards enabled\n");
+  }
+
+  # Note, place of paranoia has changed!
+  my $line="$curserv:$curchan:$fparanoia:$key";
+
+  open (KEYF, ">$kfile");
+  foreach(@keys) {
+    s/\n//g;
+    if (/^$curserv\:$curchan\:/) {
+      print KEYF "$line\n";
+      $newchan=0;
+    } else {
+      print KEYF "$_\n";
+    }
+  }
+  if ($newchan) {
+    print KEYF "$line\n";
+  }
+  close (KEYF);
+  loadkeys;
+  Irssi::active_win()->print("\00314key set to \00315$key\00314 for channel \00315$curchan");
+  return 1 ;
+}
+
+sub delkey
+{
+  my ($data, $server, $channel) = @_;
+  my $curchan = $channel->{name};
+  my $curserv = $server->{address};
+
+  my $serv;
+  my $chan;
+
+  open (KEYF, ">$kfile");
+  foreach(@keys) {
+    s/\n//g;
+    ($serv,$chan)=/^(.*?)\:(.*?)\:/;
+   unless ($curserv =~ /$serv/ and $curchan=~/^$chan$/) {
+      print KEYF "$_\n";
+    }
+  }
+  close (KEYF);
+  Irssi::active_win()->print("\00314key for channel \00315$curchan\00314 deleted");
+  loadkeys;
+  return 1 ;
+}
+
+sub showkey {
+  my (undef, $server, $channel) = @_;
+  if (! $channel) { return 1; }
+  my $curchan = $channel->{name};
+  my $curserv = $server->{address};
+
+  getkey($curserv,$curchan);
+
+  Irssi::active_win()->print("\00314current key is : \00315$key");
+  return 1 ;
+}
+
+sub enc
+{
+  my ($curserv,$curchan, $in) = @_;
+  my $prng1="";
+  my $prng2="";
+
+  # copy & paste from former sub blow()
+
+  for (my $i=0;$i<4;$i++) {
+    $prng1.=substr($alnum,int(rand(61)),1);
+    $prng2.=substr($alnum,int(rand(61)),1);
+  }
+
+
+  getkey($curserv,$curchan);
+
+  $cipher->start('encrypting');
+
+  my $tbout = compress($in);
+  my $i;
+  for ($i=0;$i<$paranoia;$i++) {
+    $tbout = $prng1.$tbout;
+    $tbout = $cipher->encrypt($tbout);
+    $tbout .= $prng2;
+    # don't wan't to see "RandomIV"
+    $tbout =~ s/^.{8}//;
+  }
+
+  $tbout = encode_base64($tbout);
+  $tbout = unpack("H*",$tbout);
+  $tbout = $header." ".$tbout;
+  $tbout =~ s/=+$//;	
+
+  $cipher->finish();
+
+  return (length($tbout),$tbout);
+
+}
+
+sub irclen
+{
+  my ($len,$curchan,$nick,$userhost) = @_;
+
+  # calculate length of "PRIVMSG #blowtest :{blow} 4b7257724a ..." does not exceed
+  # it may not exceed 511 bytes
+  # result gets handled by caller.
+
+  return ($len + length($curchan) + length("PRIVMSG : ") + length($userhost) + 1 + length($nick) );
+}
+sub recurs
+{
+  my ($server,$curchan,$in) = @_;
+
+  # 1. devide input line by 2.                    <--|
+  #    into two halfes, called $first and $second.   |
+  # 2. try to decrease $first to a delimiting " "    |
+  #    but only try on the last 8 bytes              ^
+  # 3. encrypt $first                                |
+  #    if result too long, call sub recurs($first)----
+  # 4. encrypt $second                               ^
+  #    if result too long, call sub recurs($second)--|
+  # 5. pass back encrypted halfes as reference
+  #    to an array.
+
+
+  my $half = length($in)/2-1;
+  my $first = substr($in,0,$half);
+  my $second = substr($in,$half,$half+3);
+  if ( (my $pos = rindex($first," ",length($first)-8) ) != -1)
+  {
+	$second = substr($first,$pos+1,length($first)-$pos) . $second;
+        $first = substr($first,0,$pos);
+  }
+
+  my @a;
+
+  my ($len,$probablyout);
+
+  ($len,$probablyout) = enc($server->{address},$curchan,$first);
+
+  if ( irclen($len,$curchan,$server->{nick},$server->{userhost}) > 510)
+  {
+    my @b=recurs($server,$curchan,$first);
+    push(@a,@{$b[0]});
+  } else {
+    push(@a,$probablyout);
+  }
+
+  ($len,$probablyout) = enc($server->{address},$curchan,$second);
+  if ( irclen($len,$curchan,$server->{nick},$server->{userhost}) > 510)
+  {
+    my @b = recurs($server,$curchan,$second);
+    push(@a,@{$b[0]});
+  } else {
+    push(@a,$probablyout);
+  }
+  return \@a;
+
+}
+
+
+sub printout
+{
+   my ($aref,$server,$curchan) = @_;
+
+   # encrypted lines get stored [ '{blow} yxcvasfd', '{blow} qewrdf', ... ];
+   # in an arrayref
+
+   foreach(@{$aref})
+   {
+     	$server->command("/^msg -$server->{tag} $curchan ".$_);
+   }
+}
+
+sub enhanced_printing
+{
+  my ($server,$curchan,$in) = @_;
+
+  # calls the recursing sub recurs ... and 
+  my $arref = recurs($server,$curchan,$in);
+  # print out.
+  printout($arref,$server,$curchan);
+
+}
+
+sub blow
+{
+  my ($data, $server, $channel) = @_;
+  if (! $channel) { return 1;}
+  my $in = $data ;
+  my $nick = $server->{nick};
+  my $curchan = $channel->{name};
+  my $curserv = $server->{address};
+
+  my ($len,$encrypted_message) = enc($curserv,$curchan,$in);
+
+  $server->print($channel->{name}, "<$nick|{crypted}> \00311$in",MSGLEVEL_CLIENTCRAP);
+
+  $len = length($encrypted_message); # kept for debugging
+
+  if ( irclen($len,$curchan,$server->{nick},$server->{userhost}) > 510)
+  {
+    # if complete message too long .. see sub irclen
+    enhanced_printing($server,$curchan,$data);
+  } else {
+    # everything is fine, just print out
+    $server->command("/^msg -$server->{tag} $curchan $encrypted_message");
+  }
+
+  return 1 ;
+}
+
+sub infoline
+{
+  my ($server, $data, $nick, $address) = @_;
+
+  my ($channel,$text,$msgline,$msgnick,$curchan,$curserv);
+
+  if ( ! defined($address) ) # dcc chat
+  {
+    $msgline = $data;
+    $curserv = $server->{server}->{address};
+    $channel = $curchan = "=".$nick;
+    $msgnick = $nick;
+    $server  = $server->{server};
+  } else 
+  {
+    ($channel, $text) = $data =~ /^(\S*)\s:(.*)/;
+    $msgline = $text;
+    $msgnick = $server->{nick};
+    $curchan = $channel;
+    $curserv = $server->{address};
+  }
+
+  if ($msgline =~ m/^$header/) {
+    my $out = $msgline;
+    $out =~ s/\0030[0-9]//g;
+    $out =~ s/^$header\s*(.*)/$1/;
+
+    if ($msgnick eq $channel)
+    {
+       $curchan = $channel = $nick;
+    }
+
+    getkey($curserv,$curchan);
+
+    $cipher->start('decrypting');
+    $out = pack("H*",$out);
+    $out = decode_base64($out);
+
+    my $i;
+    for ($i=0;$i<$paranoia;$i++) {
+      $out = substr($out,0,(length($out)-4));
+      # restore RandomIV
+      $out = 'RandomIV'.$out;
+      $out = $cipher->decrypt($out);
+      $out = substr($out,4);
+    }
+    $out = uncompress($out);
+
+    $cipher->finish;
+
+    if(length($out))
+    {
+       $server->print($channel, "<$nick|{uncrypted}> \00311$out", MSGLEVEL_CLIENTCRAP);
+       Irssi::signal_stop();
+    }
+    return 1;
+
+  }
+  return 0 ;
+}
+
+sub dccinfoline
+{
+  my ($server, $data) = @_;
+  infoline($server,$data,$server->{nick},undef);
+}
+my %permchans={};
+sub perm
+{
+   my ($data, $server, $channel) = @_;
+   if (! $channel) { return 1; }
+   my $curchan = $channel->{name};
+   my $curserv = $server->{address};
+  
+   if ( exists($permchans{$curserv}{$curchan}) && $permchans{$curserv}{$curchan} == 1) {
+    delete $permchans{$curserv}{$curchan};
+    Irssi::active_win()->print("\00314not crypting to \00315$curchan\00314 on \00315$curserv\00314 anymore");
+  } else {
+    $permchans{$curserv}{$curchan} = 1;
+    Irssi::active_win()->print("\00314crypting to \00315$curchan on \00315$curserv");
+  }
+  return 1;
+}
+sub myline
+{
+  my ($data, $server, $channel) = @_;
+  if (! $channel) { return 1; }
+  my $curchan = $channel->{name};
+  my $curserv = $server->{address};
+  my $line = shift;
+  chomp($line);
+  if (length($line) == 0)
+  {
+    return;
+  }
+  my $gotchan = 0;
+  foreach(@keys) {
+    s/\n//g;
+    my ($serv,$chan,undef,undef)=split /:/;
+    if ( ($curserv =~ /$serv/ && $curchan =~ /^$chan$/ && exists($permchans{$curserv}{$curchan}) && $permchans{$curserv}{$curchan} == 1) || (exists($permchans{$curserv}{$curchan}) && $permchans{$curserv}{$curchan} == 1))
+    {
+      $gotchan = 1;
+    }
+  }
+  if ($gotchan)
+  {
+
+    blow($line,$server,$channel);
+    Irssi::signal_stop();
+    return 1;
+  }
+}
+
+sub reloadconf
+{
+  loadconf;
+  loadkeys;
+}
+sub help
+{
+  Irssi::print("\00314[\00303bl\003090\00303wjob\00314]\00315 script :\n");
+  Irssi::print("\00315/setkey <newkey> [<paranoia>] :\00314 new key for current channel\n") ;
+  Irssi::print("\00315/delkey                       :\00314 delete key for current channel");
+  Irssi::print("\00315/showkey                      :\00314 show your current key\n") ;
+  Irssi::print("\00315/blow   <line>                :\00314 send crypted line\n") ;
+  Irssi::print("\00315/perm                         :\00314 flag current channel as permanently crypted\n") ;
+  Irssi::print("\00315/bconf                        :\00314 reload blowjob.conf\n") ;
+
+  return 1 ;
+}
+
+Irssi::print("blowjob script $VERSION") ;
+Irssi::print("\n\00314[\00303bl\003090\00303wjob\00314] v$VERSION\00315 script loaded\n\n");
+Irssi::print("\00314- type \00315/blowhelp\00314 for options\n") ;
+Irssi::print("\00314- paranoia level is      : \00315$paranoia\n") ;
+Irssi::print("\00314- generic key is         : \00315$key\n") ;
+Irssi::print("\n\00314* please read script itself for documentation\n");
+Irssi::signal_add("event privmsg","infoline") ;
+Irssi::signal_add("dcc chat message","dccinfoline");
+Irssi::command_bind("blowhelp","help") ;
+Irssi::command_bind("setkey","setkey") ;
+Irssi::command_bind("delkey","delkey");
+Irssi::command_bind("blow","blow") ;
+Irssi::command_bind("showkey","showkey") ;
+Irssi::command_bind("perm","perm") ;
+Irssi::command_bind("bconf","reloadconf") ;
+Irssi::signal_add("send text","myline") ;
diff --git a/scripts/bmi.pl b/scripts/bmi.pl
new file mode 100644
index 0000000..a8a729d
--- /dev/null
+++ b/scripts/bmi.pl
@@ -0,0 +1,45 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi qw(command_bind command_runsub);
+
+$VERSION = '2002121801';
+%IRSSI = (
+    authors	=> 'Daniel K. Gebhart, Marcus Rückert',
+    contact	=> 'dkg@con-fuse.org, darix@irssi.org',
+    name	=> 'BMI Calculator',
+    description	=> 'a simple body mass index calculator for depression ;)',
+    license	=> 'GPLv2',
+    url		=> 'http://dkg.con-fuse.org/irssi/scripts/',
+    changed	=> $VERSION,
+);
+
+sub bmi_help () {
+    print ( CLIENTCRAP "\nBMI <weigth_in_kg> <height_in_cm> [<precision>]\n" );
+    print ( CLIENTCRAP "please specify weight in kilograms (10-999kg) and height in cm (10-999cm). you can use decimal places. output precision (0-9).\n" );
+    print ( CLIENTCRAP "The optimal BMI is 19-24 for women and 20-25 for men.\n" );
+}
+
+command_bind 'bmi help' => sub { bmi_help(); };
+
+command_bind 'bmi' => sub {
+    my ($data, $server, $item) = @_;
+    $data =~ s/\s+$//g;
+    $data =~ s/,/./g;
+    if ($data eq '') {
+        bmi_help();
+    }
+    elsif ( $data =~ m/^help/i ) {
+        command_runsub ( 'bmi', $data, $server, $item );
+    }
+    else {
+        if ( $data =~ m/^(\d{2,3}(\.\d+)?)\s+(\d{2,3}(\.\d+)?)(\s+(\d))?$/ ) {
+            my ($kg, $cm) = ($1, $3);
+            my $precision = ( defined ($6) ) ? $6 : 2;
+            print ( CRAP "with $kg kg at $cm cm you have a bmi of " . sprintf("%." . $precision . "f", ( ( $kg/$cm**2 ) *10000 ) ) );
+        }
+        else {
+            print ( CRAP "please specify weight in kilograms (10-999kg) and height in cm (10-999cm). you can use decimal places. output precision (0-9)." );
+            print ( CRAP "params were: $data" );
+        }
+    }
+};
diff --git a/scripts/buf.pl b/scripts/buf.pl
new file mode 100644
index 0000000..43b4b3d
--- /dev/null
+++ b/scripts/buf.pl
@@ -0,0 +1,122 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command signal_add signal_add_first active_win
+             settings_get_str settings_get_bool channels windows
+	     settings_add_str settings_add_bool get_irssi_dir
+	     window_find_refnum signal_stop);
+$VERSION = '2.13';
+%IRSSI = (
+    authors	=> 'Juerd',
+    contact	=> 'juerd@juerd.nl',
+    name	=> 'Scroll buffer restorer',
+    description	=> 'Saves the buffer for /upgrade, so that no information is lost',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/irssi/',
+    changed	=> 'Mon May 13 19:41 CET 2002',
+    changes	=> 'Severe formatting bug removed * oops, I ' .
+                   'exposed Irssi to ircII foolishness * sorry ' .
+		   '** removed logging stuff (this is a fix)',
+    note1	=> 'This script HAS TO BE in your scripts/autorun!',
+    note2	=> 'Perl support must be static or in startup',
+);
+
+# Q: How can I get a very smooth and clean upgrade?
+#
+# A: /set -clear upgrade_separator
+#    /set upgrade_suppress_join ON (default)
+#    /set channel_sync OFF
+
+# Q: Can I use color in the upgrade_separator?
+# Q: Is it possible to save my command history?
+# Q: Can I prevent the screen from blinking?
+# Q: Can you make it faster?
+#
+# A: Probably not, but if you can do it, tell me how.
+
+use Irssi::TextUI;
+use Data::Dumper;
+
+my %suppress;
+
+sub upgrade {
+    open BUF, sprintf('>%s/scrollbuffer', get_irssi_dir) or die $!;
+    print BUF join("\0", map $_->{server}->{address} . $_->{name}, channels), "\n";
+    for my $window (windows) {
+	next unless defined $window;
+	next if $window->{name} eq 'status';
+	my $view = $window->view;
+	my $line = $view->get_lines;
+	my $lines  = 0;
+	my $buf = '';
+	if (defined $line){
+	    {
+		$buf .= $line->get_text(1) . "\n";
+		$line = $line->next;
+		$lines++;
+		redo if defined $line;
+	    }
+	}
+	printf BUF "%s:%s\n%s", $window->{refnum}, $lines, $buf;
+    }
+    close BUF;
+    unlink sprintf("%s/sessionconfig", get_irssi_dir);
+    command 'layout save';
+    command 'save';
+}
+
+sub restore {
+    open BUF, sprintf('<%s/scrollbuffer', get_irssi_dir) or die $!;
+    my @suppress = split /\0/, <BUF>;
+    if (settings_get_bool 'upgrade_suppress_join') {
+	chomp $suppress[-1];
+	@suppress{@suppress} = (2) x @suppress;
+    }
+    active_win->command('^window scroll off');
+    while (my $bla = <BUF>){
+	chomp $bla;
+	my ($refnum, $lines) = split /:/, $bla;
+	next unless $lines;
+	my $window = window_find_refnum $refnum;
+	unless (defined $window){
+	    <BUF> for 1..$lines;
+	    next;
+	}
+	my $view = $window->view;
+	$view->remove_all_lines();
+	$view->redraw();
+	my $buf = '';
+	$buf .= <BUF> for 1..$lines;
+	my $sep = settings_get_str 'upgrade_separator';
+	$sep .= "\n" if $sep ne '';
+	$window->gui_printtext_after(undef, MSGLEVEL_CLIENTNOTICE, "$buf\cO$sep");
+	$view->redraw();
+    }
+    active_win->command('^window scroll on');
+    active_win->command('^scrollback end');
+}
+
+sub suppress {
+    my ($first, $second) = @_;
+    return
+	unless scalar keys %suppress
+	and settings_get_bool 'upgrade_suppress_join';
+    my $key = $first->{address} . 
+	(grep { (s/^://, /^[#!+&]/) } split ' ', $second)[0];
+    if (exists $suppress{$key} and $suppress{$key}--) {
+	signal_stop();
+	delete $suppress{$key} unless $suppress{$key};
+    }
+}
+
+settings_add_str  'buffer', 'upgrade_separator'     => '=Upgrade=';
+settings_add_bool 'buffer', 'upgrade_suppress_join' => 1;
+
+signal_add_first 'session save'    => 'upgrade';
+signal_add_first 'session restore' => 'restore';
+signal_add       'event 366'       => 'suppress';
+signal_add       'event join'      => 'suppress';
+
+unless (-f sprintf('%s/scripts/autorun/buf.pl', get_irssi_dir)) {
+    Irssi::print('PUT THIS SCRIPT IN ~/.irssi/scripts/autorun/ BEFORE /UPGRADING!!');
+}
diff --git a/scripts/calc.pl b/scripts/calc.pl
new file mode 100644
index 0000000..21aa7de
--- /dev/null
+++ b/scripts/calc.pl
@@ -0,0 +1,30 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind active_win);
+$VERSION = '1.10';
+%IRSSI = (
+    authors	=> 'Juerd',
+    contact	=> 'juerd@juerd.nl',
+    name	=> 'Calculator',
+    description	=> 'Simple /calc mechanism',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/irssi/',
+    changed	=> 'Thu Mar 19 11:00 CET 2002',
+);
+
+command_bind(
+    calc => sub {
+	my ($msg) = @_;
+	for ($msg) {
+	    s/,/./g;
+	    s/[^*.+0-9&|)(x\/^-]//g;
+	    s/\*\*/^/g;
+	    s/([*+\\.\/x-])\1*/$1/g;
+	    s/\^/**/g;
+	    s/(?<!0)x//g;
+	}
+	my $answer = eval("($msg) || 0");
+	active_win->print($@ ? "$msg = ERROR (${\ (split / at/, $@, 2)[0]})" : "$msg = $answer");
+    }
+);
diff --git a/scripts/callerid.pl b/scripts/callerid.pl
new file mode 100644
index 0000000..8931f6c
--- /dev/null
+++ b/scripts/callerid.pl
@@ -0,0 +1,135 @@
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+    authors     => 'Daniel "dubkat" Reidy',
+    contact     => 'dubkat@dubkat.org (www.dubkat.org)',
+    name        => 'callerid',
+    description => 'Reformats CallerID (+g) Messages
+               (Also known as Server-Side Ignore)
+               on Hybrid & Ratbox IRCDs (EFnet)
+               to be Easier on the Eyes',
+    license     => 'GPL',
+    url         => 'http://scripts.irssi.org/',
+);
+
+#########################################################################################
+#	Thanks to Geert and Senneth for helping me out with my first irssi script!	#
+#	Hopefully someone will find this useful.					#
+#											#
+#	Callerid is used to block messages from users at the server.			#
+#	Callerid mode is activated by usermode +g on Hybrid and Ratbox servers (EFnet)	#
+#	The ircd maintains a list of users that may message you.			#
+#	To add users to the list, do /quote accept NICK					#
+#	The IRCD will *NOT* inform you that the user has been added.			#
+#	To remove a user from the list do /quote accept -NICK				#
+#	The IRCD will *NOT* inform you that the user has been removed.			#
+#	To see a list of users on your accept list do /quote accept *			#
+#											#
+#	The following alias may make life easier:					#
+#	alias accept quote accept							#
+#########################################################################################
+
+Irssi::signal_add('event 716', 'callerid_them');
+	sub callerid_them {
+		my ($server, $data) = @_;
+		my (undef, $nick, undef) = split(/ +/, $data, 3);
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_them', $nick);
+		Irssi::signal_stop();
+	}
+
+Irssi::signal_add('event 717', 'callerid_them_notified');
+	sub callerid_them_notified { 
+		my ($server, $data) = @_;
+		my (undef, $nick, undef) = split(/ +/, $data, 3);
+                $server->printformat($nick, MSGLEVEL_CLIENTCRAP, 'callerid_them_notified', $nick);
+                Irssi::signal_stop();
+        }
+
+Irssi::signal_add('event 282', 'callerid_accept_eof');
+	sub callerid_accept_eof { Irssi::signal_stop(); }
+
+Irssi::signal_add('event 718', 'callerid_you');
+	sub callerid_you {
+		my ($server, $data) = @_;
+		my (undef, $nick, $host, undef) = split(/ +/, $data, 4);
+		$server->printformat($nick, MSGLEVEL_CLIENTCRAP, 'callerid_you', $nick, $host);
+		Irssi::signal_stop();
+	}
+
+Irssi::signal_add('event 281', 'callerid_accept_list');
+	sub callerid_accept_list {
+		my ($server, $data) = @_;
+		my (undef, $list, undef) = split(/ +/, $data, 3);
+		$data =~ s/^\S+\s//;
+		$data =~ s/\s+:$//;
+		$server->printformat($data, MSGLEVEL_CLIENTCRAP, 'callerid_accept_list', $data);
+		Irssi::signal_stop();
+	}
+
+
+Irssi::signal_add('event 457', 'callerid_accept_exsists');
+	sub callerid_accept_exsists {
+		my ($server, $data) = @_;
+		my (undef, $nick, undef) = split(/ +/, $data, 3);
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_accept_exsists', $nick);
+		Irssi::signal_stop();
+	}
+
+
+Irssi::signal_add('event 458', 'callerid_not_on_list');
+        sub callerid_not_on_list {
+                my ($server, $data) = @_;
+                my (undef, $info, undef) = split(/ +/, $data, 3);
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_not_on_list', $info);
+                Irssi::signal_stop();
+        }
+
+Irssi::signal_add('event 456', 'callerid_full');
+	sub callerid_full {
+		my ($server, $data) = @_;
+                my (undef, $info) = split(/ +/, $data, 2);
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_full', $info);
+                Irssi::signal_stop();
+        }
+
+Irssi::signal_add('event 401', 'callerid_invalid_nick');
+        sub callerid_invalid_nick{
+                my ($server, $data) = @_;
+                my (undef, $info, undef) = split(/ +/, $data, 3);
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'callerid_invalid_nick', $info);
+                Irssi::signal_stop();
+        }
+
+
+Irssi::theme_register
+  (
+     [
+	'callerid_them',
+	'%_[%_%RCALLERID%n%_]%_ %W$0%n is in server-side ignore.',
+
+	'callerid_you',
+	'%_[%_%yCALLERID%n%_]%_ %W$0%n ($1) is attempting to message you.',
+
+	'callerid_accept_list',
+	'%_[%_%gACCEPTED%n%_]%_ %W$0%n',
+
+	'callerid_accept_exsists',
+	'%_[%_%BCALLERID%n%_]%_ %W$0%n Is Already On Your Accept List. Do %_/quote accept *%_ for a list :)',
+
+	'callerid_full',
+	'%_[%_%pCALLERID%n%_]%_ List is full. Do %_/quote accept *%_ for a list',
+
+        'callerid_not_on_list',
+        '%_[%_%pCALLERID%n%_]%_ $0 is not a user on your accept list.',
+
+        'callerid_invalid_nick',
+        '%_[%_%pCALLERID%n%_]%_ Cannot add/remove $0. That nick does not exist.',
+
+        'callerid_them_notified',
+        '%_[%_%rCALLERID%n%_]%_ %_$0%_ has been notified that you attempted to message them. (They will not notified of further messages for 60sec).',
+
+     ]
+  );
diff --git a/scripts/cddb.pl b/scripts/cddb.pl
new file mode 100644
index 0000000..6322313
--- /dev/null
+++ b/scripts/cddb.pl
@@ -0,0 +1,122 @@
+
+#############
+# ZaMz0n 28-Oct-2003
+# ZaMz0n 10-Dec-2003
+#############
+
+use strict;
+use Irssi;
+use LWP::Simple;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.21';
+%IRSSI = (
+        authors     => 'ZaMz0n',
+        contact     => 'zamzon@freakpower.com',
+        name        => 'cddb',
+        description => 'Find CDs by Artist, Disc name or Track name in CDDB.',
+        license     => 'Free',
+        url         => 'http://www.gracenote.com/music/',
+        changed     => 'Wed Oct 29 01:27:00 CET 2003',
+        commands    => 'cddb'
+);
+
+# MAIN FUNCTION STARTS HERE
+sub cddb_query {
+
+# Set SEARCH variables
+ my $howto = "\cbUsage:\cb !cddb [<query>] [-d <disc title>] [-a <artist name>] [-t <track name>]";
+ my $searches = shift;
+ my ($search, $out, $line, $info, $htmlpage, @url, @content) = '';
+ my @output = ();
+
+# DISPLAY USAGE
+ $searches =~ s/^\s*$//;
+ $searches = $searches." ";
+ if ($searches eq " ") {
+  push (@output, $howto);
+  push (@output, "--");
+  return @output;
+ }
+
+# CONVERT PARAMETERS
+  $search = $searches;
+  $search =~ s/-d\ /&qdisc=/;
+  $search =~ s/-a\ /&qartist=/;
+  $search =~ s/-t\ /&qtrack=/;
+  $search =~ s/\ &/&/g;
+  $search =~ s/\ /+/g;
+
+# START SEARCHING
+  push (@output, "Searching CDDB with \cb$searches");
+  my $initial_url = "http://www.gracenote.com/music/search-adv.html?n=1&x=0&y=0&q=".$search;
+
+  @url = `curl -s "$initial_url" | grep -i xm | cut -f4 -d'"'| grep -i htm`;
+
+  if (!@url) {push(@output, "No match found.");}
+  else {
+   $url[0] =~ s/\/xm/http:\/\/www.gracenote.com\/xm/;
+   $url[0] =~ s/html/html\n/;
+   $url[0] =~ s/\x0a//g;
+   push (@output, "in CDDB: $url[0]");
+
+   $htmlpage = get $url[0];
+   @content = split /\x0d/, $htmlpage;
+
+   $out = 0;
+   foreach $line (@content) {
+    if ($line =~ s/Disc\ Info//) {$out = 1; $info='';}
+    if ($out) {
+     if ($line =~ s/Track\ Title//) {$out = 0; $line = '';}
+     if ($line ne '') {$info .= $line;}
+    }
+   }
+
+# FORMAT OUTPUT
+   $info =~ s/\x0a/\ /g;
+   $info =~ s/\.html/\.html/;
+   $info =~ s/<[^>]*>/\ /gs;
+   $info =~ s/\ \ \ \ //g;
+   $info = ":       ".$info;
+   push (@output, $info);
+  }
+push (@output, "--");
+return @output;
+}
+
+sub results_write {
+ my ($server,$target,@lines) = @_;
+ my $i = 0;
+ for($i=0;$i<$#lines;$i++) {
+  $server->command("MSG $target $lines[$i]");
+ }
+}
+
+sub message_public {
+ my ($server,$msg,$nick,$address,$target) = @_;
+ if (($msg =~ /^\!cddb\s+(.+)$/) || ($msg =~ /^\!cddb/)) {
+  my @lines = cddb_query($1);
+  results_write($server,$target,@lines);
+ }
+}
+
+sub message_own_public {
+ my ($server,$msg,$target) = @_;
+ message_public($server,$msg,$server->{nick},0,$target);
+}
+
+sub message_private {
+ my ($server,$msg,$nick,$address) = @_;
+ message_public($server,$msg,$nick,$address,$nick);
+}
+
+sub message_own_private {
+ my ($server,$msg,$target,$otarget) = @_;
+ message_public($server,$msg,$server->{nick},0,$target);
+}
+
+
+Irssi::signal_add_first('message own_public','message_own_public');
+Irssi::signal_add_first('message private','message_private');
+Irssi::signal_add_first('message own_private','message_own_private');
+Irssi::signal_add_first('message public','message_public');
diff --git a/scripts/centericq.pl b/scripts/centericq.pl
new file mode 100644
index 0000000..0b24a69
--- /dev/null
+++ b/scripts/centericq.pl
@@ -0,0 +1,340 @@
+# $Id: centericq.pl,v 1.0.0 2002/10/19 13:15:49 Garion Exp $
+
+$VERSION = "1.0.0";
+%IRSSI = (
+    authors     => "Joost \"Garion\" Vunderink",
+    contact     => "joost\@carnique.nl",
+    name        => "centericq",
+    description => "Staturbar item which indicates how many new messages you have in your centericq",
+    license     => "Public Domain",
+    url         => "http://irssi.org, http://scripts.irssi.org",
+);
+
+# centericq new messages statusbar item
+# for irssi 0.8.4 by Timo Sirainen
+#
+# This statusbar item checks whether you have unread messages in
+# ~/.centericq/, and if so, displays a status in your statusbar.
+# Example status: [ICQ: JamesOff-1,Linn-3,Paul-4]
+#
+# Use:
+# /script load centericq
+# /statusbar <name> add centericq
+#
+# Known bugs:
+# - It only works for ICQ and MSN in centericq.
+# - The refreshing is not optimal. You'll need to swap windows to make
+#   the statusbar item disappear if you've read the messages.
+# - You have to reload the script if you add new people in centericq.
+# - Works only with centericq in ~/.centericq/
+#
+# TODO:
+# - Use only the first N letters of the nickname instead of the full
+#   nickname.
+
+use Irssi;
+use Irssi::TextUI;
+
+my $icqdir = $ENV{'HOME'} . "/.centericq";
+my ($last_refresh_time, $refresh_tag);
+my $statusbar_item;
+
+# The following vars are all hashes with key the name of the dir in
+# ~/.centericq/ of that person
+ 
+my %lastreads;    # Timestamp of the last read message, per nick
+my %numunreads;   # Number of unread messages, per nick
+my %historyts;    # Timestamp of the history file of each nick
+my %lastreadts;   # Timestamp of the lastread file of each nick
+my %friendnicks;  # The nicknames of the friends
+
+
+#######################################################################
+# This is the function that will be called each N seconds, where
+# N is given by the centericq_refresh_time setting.
+
+sub refresh_centericq {
+  check_new_friends();
+
+  my @friends = keys(%lastreads);
+  my ($friend, $changed) = ("", 0);
+  foreach $friend (@friends) {
+    if (history_changed($friend) || lastread_changed($friend)) {
+      $changed = 1; 
+      update_status($friend);
+    }
+  }
+
+  if ($changed) {
+    update_statusbar_item();
+  }
+
+  # Adding new timeout to make sure that this function will be called
+  # again
+  if ($refresh_tag) {
+    Irssi::timeout_remove($refresh_tag)
+  }
+  my $time = Irssi::settings_get_int('centericq_refresh_time');
+  $refresh_tag = Irssi::timeout_add($time*1000, 'refresh_centericq', undef);
+}
+
+
+#######################################################################
+# Checks if any new friends have been added. Not yet functional.
+
+sub check_new_friends {
+  #Irssi::print("Checking if there are any new friends...");
+}
+
+#######################################################################
+# Checks if the last modified date/time of the lastread file has changed.
+# A -lot- more efficient than reading and processing the whole file :)
+
+sub lastread_changed {
+  my ($friend) = @_;
+
+  my $lr = get_lastread($friend);
+  if ($lr != $lastreads{$friend}) {
+    #Irssi::print("Lastread of $friendnick{$friend} changed from $lastreads{$friend} to $lr.");
+    $lastreads{$friend} = $lr;
+    return 1;
+  }
+
+  return 0;
+}
+
+#######################################################################
+# Checks if the last modified date/time of the history file has changed.
+# A -lot- more efficient than reading and processing the whole file :)
+
+sub history_changed {
+  my ($friend) = @_;
+  my $ts = get_historyts($friend);
+  if ($ts != $historyts{$friend}) {
+    #Irssi::print("History ts of $friendnick{$friend} changed from $historyts{$friend} to $ts.");
+    $historyts{$friend} = $ts;
+    return 1;
+  }
+
+  return 0;
+}
+
+#######################################################################
+# Reads the last read message and determines the number of unread
+# messages of $friend.
+
+sub update_status {
+  my ($friend) = @_;
+  $lastreads{$friend}   = get_lastread($friend);
+  $numunreads{$friend}  = get_numunreads($friend);
+}
+
+#######################################################################
+# Gets the number of unread messages of all nicks and puts them together
+# in a nice statusbar string.
+# It then requests a statusbar item redraw.
+
+sub update_statusbar_item {
+  #Irssi::print("Updating statusbaritem...");
+  $statusbar_item = "";
+
+  my @keys = keys(%lastreads);
+  my ($key, $status);
+
+  foreach $key(@keys) {
+    if ($numunreads{$key} > 0) {
+      #Irssi::print("$friendnick{$key} has $numunreads{$key} unreads.");
+      $status .= $friendnick{$key} . "-" . $numunreads{$key} . ",";
+    }
+  }
+  $status =~ s/,$//;
+  if (length($status) > 0) {
+    $statusbar_item = "ICQ: " . $status; 
+    Irssi::statusbar_items_redraw('centericq');
+  }
+}
+
+
+#######################################################################
+# This is the function called by irssi to obtain the statusbar item
+# for centericq.
+
+sub centericq {
+  my ($item, $get_size_only) = @_;
+
+  if (length($statusbar_item) == 0) {
+    # no icq - don't print the [ICQ] at all
+    if ($get_size_only) {
+      $item->{min_size} = $item->{max_size} = 0;
+    }
+  } else {
+    $item->default_handler($get_size_only, undef, $statusbar_item, 1);
+  }
+}
+
+#######################################################################
+# Initialization of the hashes with the useful data.
+
+sub init {
+  if (!opendir(ICQDIR, $icqdir)) {
+    Irssi::print("There is no directory $icqdir, which is needed for this script.");
+    return 0;
+  }
+ 
+  my ($icqfriends, $msnfriends) = (0, 0); 
+  while ($filename = readdir(ICQDIR)) {
+    # ICQ friends
+    if ($filename =~ /^[0-9]+$/ && $filename !~ /^0$/) {
+      $icqfriends++;
+      init_friend($filename);
+    }
+    # MSN friends
+    if ($filename =~ /^m.+/ && $filename !~ /^modelist$/ ) {
+      $msnfriends++;
+      init_friend($filename);
+    }
+  }
+  Irssi::print("Watching $icqfriends ICQ friends and $msnfriends MSN friends.");
+
+  closedir(ICQDIR);
+  return 1;
+}
+
+#######################################################################
+# Initialises all data of $friend
+
+sub init_friend {
+  my ($friend) = @_;
+
+  $lastreads{$friend}   = get_lastread($friend);
+  $numunreads{$friend}  = get_numunreads($friend);
+  #$filesizes{$friend}   = get_filesize($friend);
+  $friendnick{$friend}  = get_nickname($friend);
+  $historyts{$friend}   = get_historyts($friend);
+  #Irssi::print("Initilialized $friendnick{$friend}.");
+}
+
+#######################################################################
+# Returns the last read message of $friend
+
+sub get_lastread {
+  my ($friend) = @_;
+  my $lastreadfile = $icqdir . "/" . $friend . "/lastread"; 
+
+  open(F, "<$lastreadfile") || return 0; #die("Could not open $lastreadfile.");;
+  my $lastrd = <F>;
+  close(F);
+  chop($lastrd);
+  #Irssi::print("Found lastread $lastrd of $friend from $lastreadfile.");
+
+  return $lastrd;
+}
+
+#######################################################################
+# Returns the number of unread messages for $friend
+
+sub get_numunreads {
+  my ($friend) = @_;
+  my $lr = $lastreads{$friend};
+  # Unknown last read message - return 0.
+  if ($lr == 0) {
+    return 0;
+  }
+
+  my $msgfile = $icqdir . "/" . $friend . "/history";
+  open(F, "<$msgfile") || return 0; #die("Could not open $msgfile.");
+  my @lines = <F>;
+  chop(@lines);
+  close(F);
+
+  my $numlines = @lines;
+
+  # read all lines up to the lastread message
+  my $line;
+  my $bla = 0;
+  do {
+    $line = shift(@lines);
+    $bla++;
+  } while ($line ne $lr);
+  
+  # now count the number of times that "MSG" is found on a line below
+  # a line with "IN"
+  my $count = 0;
+  my $incoming = 0;
+  my $verify = 0;
+  my $bli = 0;
+  
+  for (@lines) {
+    $bli++;
+    # Sometimes 2 messages get in at the same time. Remove this so-called
+    # new message if it has the same time as the last read message.
+    if ($verify == 1) {
+      if ($_ =~ /$lr/) {
+        $count--;
+      }
+      $verify = 0;
+    }
+    # A line with "IN" has been found; check if the next line is "MSG".
+    if ($incoming == 1) {
+      if ($_ =~ /^MSG/) {
+        $count++;
+	$verify = 1;
+      }
+      $incoming = 0;
+    }
+    # Check for "IN".
+    if ($_ =~ /^IN/) {
+      $incoming = 1;
+    }
+  }
+
+  return $count;
+}
+
+#######################################################################
+# Returns the nickname of a friend. This is taken from the 46th line
+# of the info file. Let's hope that centericq does not change its
+# config file format.
+
+sub get_nickname {
+  my ($friend) = @_;
+
+  my $infofile = $icqdir . "/" . $friend . "/info";
+  open(F, "<$infofile") || return $friend; #die("Could not open $msgfile.");
+  my @lines = <F>;
+  chop(@lines);
+  close(F);
+ 
+  return $lines[45];
+}
+
+#######################################################################
+# Returns the timestamp of the history file of $friend.
+
+sub get_historyts {
+  my ($friend) = @_;
+  my $histfile = $icqdir . "/" . $friend .  "/history";
+  my @stat = stat($histfile);
+  return $stat[9];
+}
+
+#######################################################################
+# Adding stuff to irssi
+
+Irssi::settings_add_int('misc', 'centericq_refresh_time', 120);
+#Irssi::settings_add_bool('misc', 'centericq_debug', 0);
+Irssi::statusbar_item_register('centericq', '{sb $0-}', 'centericq');
+
+#######################################################################
+# Startup functions
+
+if (init() == 0) {
+  Irssi::print("You need centericq for this script.");
+  return 0;
+}
+update_statusbar_item();
+refresh_centericq();
+
+Irssi::print("Centericq statusbar item loaded.");
+
+#######################################################################
diff --git a/scripts/cgrep.pl b/scripts/cgrep.pl
new file mode 100644
index 0000000..7ec2304
--- /dev/null
+++ b/scripts/cgrep.pl
@@ -0,0 +1,190 @@
+################################################################################
+#
+# Usage: /cgrep <regexp>
+#
+# Shows all WHO records matching that regexp in a friendly yet complete format
+# Works on the active channel only
+#
+# This is a bit like c0ffee's ls command, except it matches ALL returned data.
+# Since IRSSI doe snot cache realnames properly, this script calls WHO once
+# and awaits the results.
+#
+# Also check out 'joininfo.pl' which shows lots of WHOIS info when a person
+# joins the channel.
+#
+# FORMAT SETTINGS:
+#   cgrep_match         Matching record
+#   cgrep_line          Start and end line format
+#
+################################################################################
+
+use Irssi;
+use vars qw($VERSION %IRSSI);
+use integer;
+
+$VERSION = "1.0.0";
+%IRSSI = (
+    authors => "Pieter-Bas IJdens",
+    contact => "irssi-scripts\@nospam.mi4.org.uk",
+    name    => "cgrep",
+    description => "Lists users on the channel matching the specified regexp",
+    license => "GPLv2 or later",
+    url     => "http://pieter-bas.ijdens.com/irssi/",
+    changed => "2005-03-10"
+);
+
+################################################################################
+
+my($busy) = 0;
+my($regexp) = "";
+my($results) = 0;
+my($debug) = 0;
+
+################################################################################
+
+sub run_who
+{
+    my($server, $channel) = @_;
+
+    $server->redirect_event(
+        "who",
+        1,
+        $channel,
+        0,
+        "redir who_default",
+        {
+            "event 352" => "redir cgrep_evt_who_result",
+            "event 315" => "redir cgrep_evt_who_end",
+            "" => "event empty"
+        }
+    );
+
+    $server->send_raw("WHO $channel");
+}
+
+################################################################################
+
+sub event_who_result
+{
+    my ($server, $data) = @_;
+
+    if ($busy)
+    {
+        if ($data =~ /^(.*):([^:]{1,})$/)
+        {
+            $start = $1;
+            $realname = $2;
+        }
+        else
+        {
+            Irssi::print("$data can't be parsed");
+        }
+
+        # my($start,$realname) = split(":", $data);
+
+        my($me, $channel, $ident, $host, $server, $nick, $mode) =
+            split(" ", $start);
+        my($hops) = -1;
+
+        if ($realname =~ /^([0-9]{1,} )(.*$)$/i)
+        {
+            $hops = $1;
+            $realname = $2;
+
+            $hops =~ s/[ ]{1,}$//g;
+        }
+
+        my($string) = "$nick ($ident\@$host) \"$realname\" $channel " 
+                    . "($server, $hops)";
+
+        if ($string =~ /$regexp/i)
+        {
+            Irssi::printformat(
+                MSGLEVEL_CLIENTCRAP,
+                'cgrep_match',
+                $nick,
+                "$ident\@$host",
+                "$realname",
+                $channel,
+                $server,
+                $hops
+            );
+
+            $results++;
+        }
+    }
+}
+
+################################################################################
+
+sub event_who_end
+{
+    my ($server, $data) = @_;
+
+    Irssi::printformat(
+        MSGLEVEL_CLIENTCRAP,
+        'cgrep_line',
+        "End of list. Found $results matches."
+    );
+
+    $busy = 0;
+    $regexp = "";
+    $results = 0;
+}
+
+################################################################################
+
+sub cmd_cgrep
+{
+    my ($data, $server, $window) = @_;
+
+    if (!$server)
+    {
+        Irssi::print("Not connected to a server in this window.");
+        return;
+    }
+    elsif ($window->{type} ne "CHANNEL")
+    {
+        Irssi::print("Not a channel window.");
+        return;
+    }
+    elsif ($busy)
+    {
+        Irssi::print("A request seems to be in progress.");
+        Irssi::print("Reload script if I'm wrong.");
+    }
+
+    $busy = 1;
+    $regexp = $data;
+    $results = 0;
+
+    Irssi::printformat(
+        MSGLEVEL_CLIENTCRAP,
+        'cgrep_line',
+        "WHO on " . $window->{name} . " filtered on '$regexp'"
+    );
+
+    run_who($server, $window->{name});
+}
+
+################################################################################
+
+Irssi::theme_register([
+    'cgrep_match',
+    '%GWHO:%n {channick_hilight $0} [{hilight $1}] is "{hilight $2}"%n on {channel $3} [server: {hilight $4}, hops: {hilight $5}]',
+    'cgrep_line',
+    '%R------------%n {hilight $0} %R------------%n'
+]);
+
+Irssi::signal_add(
+    {
+    'redir cgrep_evt_who_result'    => \&event_who_result,
+    'redir cgrep_evt_who_end'       => \&event_who_end
+    }
+);
+
+################################################################################
+
+Irssi::command_bind("cgrep", \&cmd_cgrep);
+
+################################################################################
diff --git a/scripts/chanact.pl b/scripts/chanact.pl
new file mode 100644
index 0000000..c3fb3e0
--- /dev/null
+++ b/scripts/chanact.pl
@@ -0,0 +1,701 @@
+use Irssi 20020101.0001 ();
+use strict;
+# FIXME use warning;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.5.14";
+%IRSSI = (
+    authors     => 'BC-bd, Veli',
+    contact     => 'bd@bc-bd.org, veli@piipiip.net',
+    name        => 'chanact',
+    description => 'Adds new powerful and customizable [Act: ...] item (chanelnames,modes,alias). Lets you give alias characters to windows so that you can select those with meta-<char>',
+    license     => 'GNU GPLv2 or later',
+    url         => 'https://bc-bd.org/svn/repos/irssi/chanact'
+);
+
+# Adds new powerful and customizable [Act: ...] item (chanelnames,modes,alias).
+# Lets you give alias characters to windows so that you can select those with
+# meta-<char>.
+#
+# for irssi 0.8.2 by bd@bc-bd.org
+#
+# inspired by chanlist.pl by 'cumol@hammerhart.de'
+#
+#########
+# Contributors
+#########
+#
+# veli@piipiip.net   /window_alias code
+# qrczak@knm.org.pl  chanact_abbreviate_names
+# qerub@home.se      Extra chanact_show_mode and chanact_chop_status
+# madduck@madduck.net Better channel aliasing (case-sensitive, cross-network)
+#                     chanact_filter_windowlist basis
+# Jan 'jast' Krueger <jast@heapsort.de>, 2004-06-22
+# Ivo Timmermans <ivo@o2w.nl>	win->{hilight} patch
+# 
+#########
+# USAGE
+###
+# 
+# copy the script to ~/.irssi/scripts/
+#
+# In irssi:
+#
+#		/script load chanact
+#		/statusbar window add -after act chanact
+#
+# If you want the item to appear on another position read the help
+# for /statusbar.
+# To remove the [Act: 1,2,3] item type:
+#
+#		/statusbar window remove act
+#
+# To see all chanact options type:
+#
+# 	/ set chanact_
+#
+# After these steps you have your new statusbar item and you can start giving
+# aliases to your windows. Go to the window you want to give the alias to
+# and say:
+#
+#		/window_alias <alias char>
+#
+# You can remove the aliases with from an aliased window:
+#
+#		/window_unalias
+#
+# To see a list of your windows use:
+#
+#		/window list
+#
+# To make your bindings permanent you will need to save the config and layout
+# before quiting irssi:
+#
+# 		/save
+# 		/layout save
+#
+#########
+# OPTIONS
+#########
+#
+# /set chanact_chop_status <ON|OFF>
+#               * ON  : shorten (Status) to S
+#               * OFF : don't do it
+#
+# /set chanact_sort <refnum|activity|level+refnum|level+activity>
+#  	sort by ...
+#		refnum		: refnum
+#		activity	: last active window
+#		level+refnum	: data_level of window, then refnum
+#		level+activity	: data_level then activity
+#
+# /set chanact_display <string>
+#		* string : Format String for one Channel. The following $'s are expanded:
+#		    $C : Channel
+#		    $N : Number of the Window
+#		    $M : Mode in that channel
+#		    $H : Start highlightning
+#		    $S : Stop highlightning
+#		* example:
+#		
+#		      /set chanact_display $H$N:$M.$S$C
+#		      
+#		    will give you on #irssi.de if you have voice
+#		    
+#		      [3:+.#irssi.de]
+#
+#		    with '3:+.' highlighted and the channel name printed in regular color
+#
+# /set chanact_display_alias <string>
+#   as 'chanact_display' but is used if the window has an alias and
+#   'chanact_show_alias' is set to on.
+# 
+# /set chanact_show_names <ON|OFF>
+#		* ON  : show the channelnames after the number/alias
+#		* OFF : don't show the names
+#
+# /set chanact_abbreviate_names <int>
+#               * 0     : don't abbreviate
+#               * <int> : strip channel name prefix character and leave only
+#                         that many characters of the proper name
+#
+# /set chanact_show_alias <ON|OFF>
+#		* ON  : show the aliase instead of the refnum
+#		* OFF : shot the refnum
+#
+# /set chanact_header <str>
+# 	* <str> : Characters to be displayed at the start of the item.
+# 	          Defaults to: "Act: "
+#
+# /set chanact_separator <str>
+#		* <str> : Charater to use between the channel entries
+#
+# /set chanact_autorenumber <ON|OFF>
+#		* ON  : Move the window automatically to first available slot
+#		        starting from "chanact_renumber_start" when assigning 
+#		        an alias to window. Also moves the window back to a
+#		        first available slot from refnum 1 when the window
+#		        loses it's alias.
+#		* OFF : Don't move the windows automatically
+#
+# /set chanact_renumber_start <int>
+# 		* <int> : Move the window to first available slot after this
+# 		          num when "chanact_autorenumber" is ON.
+#
+# /set chanact_remove_hash <ON|OFF>
+# 		* ON  : Remove &#+!= from channel names
+# 		* OFF : Don't touch channel names
+#
+# /set chanact_remove_prefix <string>
+# 		* <string> : Regular expression used to remove from the
+# 		             beginning of the channel name.
+# 		* example  :
+# 		    To shorten a lot of debian channels:
+# 		    
+# 			/set chanact_remove_prefix deb(ian.(devel-)?)?
+#
+# /set chanact_filter <int>
+# 		* 0 : show all channels
+# 		* 1 : hide channels without activity
+# 		* 2 : hide channels with only join/part/etc messages
+# 		* 3 : hide channels with text messages
+# 		* 4 : hide all channels (now why would you want to do that)
+#
+# /set chanact_filter_windowlist <string>
+#		* <string> : space-separated list of windows for which to use
+#			     chanact_filter_windowlist_level instead of
+#			     chanact_filter.
+#			     
+#			     Alternatively, an entry can be postfixed with
+#			     a comma (',') and the level to use for that
+#			     window.
+#
+#			     The special string @QUERIES matches all queries.
+#
+# /set chanact_filter_windowlist_level <int>
+#   Use this level to filter all windows listed in chanact_filter_windowlist.
+#   You can use these two settings to apply different filter levels to different
+#   windows. Defaults to 0.
+#
+#########
+# HINTS
+#########
+#
+# If you have trouble with wrong colored entries your 'default.theme' might
+# be too old. Try on a shell:
+#
+# 	$ mv ~/.irssi/default.theme /tmp/
+#
+# And in irssi:
+#	/reload
+#	/save
+#
+###
+#################
+
+my %show = (
+	0 => "{%n ",			# NOTHING
+	1 => "{sb_act_text ",		# TEXT
+	2 => "{sb_act_msg ",		# MSG
+	3 => "{sb_act_hilight ",	# HILIGHT
+);
+
+# comparison operators for our sort methods
+my %sort = (
+	'refnum'	=> '$a->{refnum} <=> $b->{refnum};',
+	'activity'	=> '$b->{last_line} <=> $a->{last_line};',
+	'level+refnum'	=> '$b->{data_level} <=> $a->{data_level} ||
+				$a->{refnum} <=> $b->{refnum};',
+	'level+activity'=> '$b->{data_level} <=> $a->{data_level} ||
+				$b->{last_line} <=> $a->{last_line};',
+);
+
+my ($actString,$needRemake);
+
+sub expand {
+  my ($string, %format) = @_;
+  my ($exp, $repl);
+  $string =~ s/\$$exp/$repl/g while (($exp, $repl) = each(%format));
+  return $string;
+}
+
+# method will get called every time the statusbar item will be displayed
+# but we dont need to recreate the item every time so we first
+# check if something has changed and only then we recreate the string
+# this might just save some cycles
+# FIXME implement $get_size_only check, and user $item->{min|max-size}
+sub chanact {
+	my ($item, $get_size_only) = @_;
+
+	if ($needRemake) {
+		remake();
+	}
+	
+	$item->default_handler($get_size_only, $actString, undef, 1);
+}
+
+# build a hash to easily access special levels based on
+# chanact_filter_windowlist
+sub calculate_windowlist() {
+	my @matchlist = split ' ', Irssi::settings_get_str('chanact_filter_windowlist');
+	my $default = Irssi::settings_get_int('chanact_filter_windowlist_level');
+
+	my %windowlist;
+	foreach my $m (@matchlist) {
+		my ($name, $level) = split(/,/, $m);
+		$windowlist{$name} = $level ? $level : $default;
+	}
+
+	return %windowlist;
+}
+
+# calculate level per window
+sub calculate_levels(@) {
+	my (@windows) = @_;
+
+	my %matches = calculate_windowlist();
+	my $default = Irssi::settings_get_int('chanact_filter');
+
+	my %levels;
+
+	foreach my $win (@windows) {
+		# FIXME we could use the next statements to weed out entries in
+		# @windows that we will not need later on
+		!ref($win) && next;
+
+		my $name = $win->get_active_name;
+
+		if (exists($matches{$name})) {
+			$levels{$name} = $matches{$name};
+		} else {
+			$levels{$name} = $default;
+		}
+	}
+
+	if (exists($matches{'@QUERIES'})) {
+		$levels{'@QUERIES'} = $matches{'@QUERIES'};
+	} else {
+		$levels{'@QUERIES'} = $default;
+	}
+
+	return %levels;
+}
+
+# this is the real creation method
+sub remake() {
+	my ($afternumber,$finish,$hilight,$mode,$number,$display,@windows);
+	my $separator = Irssi::settings_get_str('chanact_separator'); 
+	my $abbrev = Irssi::settings_get_int('chanact_abbreviate_names');
+	my $remove_prefix = Irssi::settings_get_str('chanact_remove_prefix');
+	my $remove_hash = Irssi::settings_get_bool('chanact_remove_hash');
+
+	my $method = $sort{Irssi::settings_get_str('chanact_sort')};
+	@windows = sort { eval $method } Irssi::windows();
+
+	my %levels = calculate_levels(@windows);
+
+	$actString = "";
+	foreach my $win (@windows) {
+		# since irssi is single threaded this shouldn't happen
+		!ref($win) && next;
+
+		my $active = $win->{active};
+
+		# define $type to emtpy string and overwrite if we do have an
+		# active item. we need this to display windows without active
+		# items e.g. '(status)'
+		my $type = "";
+		$type = $active->{type} if $active;
+
+		my $name = $win->get_active_name;
+
+		my $filter_level =
+			$type eq 'QUERY' ? $levels{'@QUERIES'} : $levels{$name};
+
+		# now, skip windows with data of level lower than the
+		# filter level
+		next if ($win->{data_level} < $filter_level);
+
+		# alright, the activity is important, let's show the window
+		# after a bit of additional processing.
+
+		# (status) is an awfull long name, so make it short to 'S'
+		# some people don't like it, so make it configurable
+		if (Irssi::settings_get_bool('chanact_chop_status')
+		    && $name eq "(status)") {
+			$name = "S";
+		}
+	
+		# check if we should show the mode
+		$mode = "";
+		if ($type eq "CHANNEL") {
+			my $server = $win->{active_server};
+			!ref($server) && next;
+
+			my $channel = $server->channel_find($name);
+			!ref($channel) && next;
+
+			my $nick = $channel->nick_find($server->{nick});
+			!ref($nick) && next;
+			
+			if ($nick->{op}) {
+				$mode = "@";
+			} elsif ($nick->{voice}) {
+				$mode = "+";
+			} elsif ($nick->{halfop}) {
+				$mode = "%";
+			}
+		}
+
+		# in case we have a specific hilightcolor use it
+		if ($win->{hilight_color}) {
+			$hilight = "{sb_act_hilight_color $win->{hilight_color} ";
+		} else {
+			$hilight = $show{$win->{data_level}};
+		}
+
+		if ($remove_prefix) {
+			$name =~ s/^([&#+!=]?)$remove_prefix/$1/;
+		}
+		if ($abbrev) {
+			if ($name =~ /^[&#+!=]/) {
+				$name = substr($name, 1, $abbrev + 1);
+			} else {
+				$name = substr($name, 0, $abbrev);
+			}
+		}
+		if ($remove_hash) {
+			$name =~ s/^[&#+!=]//;
+		}
+
+		if (Irssi::settings_get_bool('chanact_show_alias') == 1 && 
+				$win->{name} =~ /^([a-zA-Z+]):(.+)$/) {
+			$number = "$1";
+			$display = Irssi::settings_get_str('chanact_display_alias'); 
+		} else {
+			$number = $win->{refnum};
+			$display = Irssi::settings_get_str('chanact_display'); 
+		}
+
+		# fixup { and } in nicks, those are used by irssi themes
+		$name =~ s/([{}])/%$1/g;
+
+		$actString .= expand($display,"C",$name,"N",$number,"M",$mode,"H",$hilight,"S","}{sb_background}").$separator;
+	}
+
+	# assemble the final string
+	if ($actString ne "") {
+		# Remove the last separator
+		$actString =~ s/$separator$//;
+		
+		$actString = "{sb ".Irssi::settings_get_str('chanact_header').$actString."}";
+	}
+
+	# no remake needed any longer
+	$needRemake = 0;
+}
+
+# method called because of some events. here we dont remake the item but just
+# remember that we have to remake it the next time we are called
+sub chanactHasChanged()
+{
+	# if needRemake is already set, no need to trigger a redraw as we will
+	# be redrawing the item anyway.
+	return if $needRemake;
+
+	$needRemake = 1;
+
+	Irssi::statusbar_items_redraw('chanact');
+}
+
+sub setup_changed {
+	my $method = Irssi::settings_get_str('chanact_sort');
+
+	unless (exists($sort{$method})) {
+		Irssi::print("chanact: invalid sort method, setting to 'refnum'."
+			." valid methods are: ".join(", ", sort(keys(%sort))));
+		my $method = Irssi::settings_set_str('chanact_sort', 'refnum');
+	}
+
+	chanactHasChanged();
+}
+
+# Remove alias
+sub cmd_window_unalias {
+	my ($data, $server, $witem) = @_;
+
+	if ($data ne '') {
+		Irssi::print("chanact: /window_unalias does not take any ".
+			"parameters, Run it in the window you want to unalias");
+		return;
+	}
+
+	my $win = Irssi::active_win();
+	my $name = Irssi::active_win()->{name};
+
+	# chanact'ified windows have a name like this: X:servertag/name
+	my ($key, $tag) = split(/:/, $name);
+	($tag, $name) = split('/', $tag);
+
+	# remove alias only of we have a single character keybinding, if we
+	# haven't the name was not set by chanact, so we won't blindly unset
+	# stuff
+	if (length($key) == 1) {
+		$server->command("/bind -delete meta-$key");
+	} else {
+		Irssi::print("chanact: could not determine keybinding. ".
+			"Won't unbind anything");
+	}
+
+	# set the windowname back to it's old one. We don't bother checking
+	# for a vaild name here, as we want to remove the current one and if
+	# worse comes to wors set an empty one.
+	$win->set_name($name);
+
+	# if autorenumbering is off, we are done.
+	return unless (Irssi::settings_get_bool('chanact_autorenumber'));
+
+	# we are renumbering, so move the window to the lowest available
+	# refnum.
+	my $refnum = 1;
+	while (Irssi::window_find_refnum($refnum) ne "") {
+		$refnum++;
+	}
+
+	$win->set_refnum($refnum);
+	Irssi::print("chanact: moved wintow to refnum $refnum");
+}
+
+# function by veli@piipiip.net
+# Make an alias
+sub cmd_window_alias {
+	my ($data, $server, $witem) = @_;
+	my $rn_start = Irssi::settings_get_int('chanact_renumber_start');
+
+	unless ($data =~ /^[a-zA-Z+]$/) {
+		Irssi::print("Usage: /window_alias <char>");
+		return;
+	}
+
+	# in case of an itemless window $witem is undef, thus future operations
+	# on it fail. to prevent this we pull in the current window.
+	#
+	# Also we need to initialize $winname, else we would get a broken name:
+	#
+	#	'name' => 'S:IRCnet/S:IRCnet/',
+	#
+	my $window;
+	my $winname = "";
+	if (defined($witem)) {
+		$window = $witem->window();
+		$winname = $witem->{name};
+	} else {
+		$window = Irssi::active_win();
+		$winname = $window->{name};
+	}
+
+	cmd_window_unalias($data, $server, $witem);
+
+	my $winnum = $window->{refnum};
+	
+	if (Irssi::settings_get_bool('chanact_autorenumber') == 1 &&
+			$window->{refnum} < $rn_start) {
+		my $old_refnum = $window->{refnum};
+
+		$winnum = $rn_start;
+ 
+		# Find the first available slot and move the window
+		while (Irssi::window_find_refnum($winnum) ne "") { $winnum++; }
+		$window->set_refnum($winnum);
+		
+		Irssi::print("Moved the window from $old_refnum to $winnum");
+	}
+	
+	my $winserver = $window->{active_server}->{tag};
+	my $winhandle = "$winserver/$winname";
+	# cmd_window_unalias relies on a certain format here
+	my $name = "$data:$winhandle";
+
+	$window->set_name($name);
+	$server->command("/bind meta-$data change_window $name");
+	Irssi::print("Window $winhandle is now accessible with meta-$data");
+}
+
+$needRemake = 1;
+
+# Window alias command
+Irssi::command_bind('window_alias','cmd_window_alias');
+Irssi::command_bind('window_unalias','cmd_window_unalias');
+
+# our config item
+Irssi::settings_add_str('chanact', 'chanact_display', '$H$N:$M$C$S');
+Irssi::settings_add_str('chanact', 'chanact_display_alias', '$H$N$M$S');
+Irssi::settings_add_int('chanact', 'chanact_abbreviate_names', 0);
+Irssi::settings_add_bool('chanact', 'chanact_show_alias', 1);
+Irssi::settings_add_str('chanact', 'chanact_separator', " ");
+Irssi::settings_add_bool('chanact', 'chanact_autorenumber', 0);
+Irssi::settings_add_bool('chanact', 'chanact_remove_hash', 0);
+Irssi::settings_add_str('chanact', 'chanact_remove_prefix', "");
+Irssi::settings_add_int('chanact', 'chanact_renumber_start', 50);
+Irssi::settings_add_str('chanact', 'chanact_header', "Act: ");
+Irssi::settings_add_bool('chanact', 'chanact_chop_status', 1);
+Irssi::settings_add_str('chanact', 'chanact_sort', 'refnum');
+Irssi::settings_add_int('chanact', 'chanact_filter', 0);
+Irssi::settings_add_str('chanact', 'chanact_filter_windowlist', "");
+Irssi::settings_add_int('chanact', 'chanact_filter_windowlist_level', 0);
+
+# register the statusbar item
+Irssi::statusbar_item_register('chanact', '$0', 'chanact');
+# according to cras we shall not call this
+# Irssi::statusbars_recreate_items();
+
+# register all that nifty callbacks on special events
+Irssi::signal_add_last('setup changed', 'setup_changed');
+Irssi::signal_add_last('window changed', 'chanactHasChanged');
+Irssi::signal_add_last('window item changed', 'chanactHasChanged');
+Irssi::signal_add_last('window hilight', 'chanactHasChanged');
+Irssi::signal_add_last('window item hilight', 'chanactHasChanged');
+Irssi::signal_add("window created", "chanactHasChanged");
+Irssi::signal_add("window destroyed", "chanactHasChanged");
+Irssi::signal_add("window name changed", "chanactHasChanged");
+Irssi::signal_add("window activity", "chanactHasChanged");
+Irssi::signal_add("print text", "chanactHasChanged");
+Irssi::signal_add('nick mode changed', 'chanactHasChanged');
+
+###############
+###
+#
+# Changelog
+#
+# 0.5.14
+# 	- fix itemless window handling, thx Bazerka
+# 	- fix /window_alias for itemless windows
+# 	- fix /window_unalias. Also longer takes an argument
+# 	- added sorting by level, based on patch by Bazerka
+# 		+ retired chanact_sort_by_activity, integrated in chanact_sort
+#
+# 0.5.13
+# 	- trivial cleanup in cmd_window_alias()
+# 	- updated documentation regarding /layout save, thx Bazerka
+# 	- removed cmd_rebuild_aliases(), no longer working since we use channel
+# 	  names to select windows and not refnums
+# 	- removed refnum_changed(), see cmd_rebuild_aliases() above
+#
+# 0.5.12
+# 	- Use comma instead of colon as windowlist separator, patch by martin f.
+# 	  krafft, reported by James Vega
+#
+# 0.5.11
+#	- added chanact_filter_windowlist based on a patch by madduck@madduck.net
+# 	- fixed display error for nicks/channels with { or } in them
+# 	- fixed chanact_header, was hidden behind chanact_filter
+# 	- fixed documentation
+# 		+ removed chanact_show_mode, long gone
+#
+# 0.5.10
+# 	- fixed irssi crash when using Irssi::print from within remake()
+#       - added option to filter out some data levels, based on a patch by
+#         Juergen Jung <juergen@Winterkaelte.de>, see
+#         https://bc-bd.org/trac/irssi/ticket/15
+#         	+ retired chanact_show_all in favour of chanact_filter
+#
+# 0.5.9
+# 	- changes by stefan voelkel
+# 		+ sort channels by activity, see
+# 		  https://bc-bd.org/trac/irssi/ticket/5, based on a patch by jan
+# 		  krueger
+# 		+ fixed chrash on /exec -interactive, see
+# 		https://bc-bd.org/trac/irssi/ticket/7
+#
+# 	- changes by Jan 'jast' Krueger <jast@heapsort.de>, 2004-06-22
+# 		+ updated documentation in script's comments
+#
+# 	- changes by Ivo Timmermans <ivo@o2w.nl>
+# 		+ honor actcolor /hilight setting if present
+#
+# 0.5.8
+# - made aliases case-sensitive and include network in channel names by madduck
+#
+# 0.5.7
+# - integrated remove patch by Christoph Berg <myon@debian.org>
+#
+# 0.5.6
+# - fixed a bug (#1) reported by Wouter Coekaert
+# 
+# 0.5.5
+# - some speedups from David Leadbeater <dgl@dgl.cx>
+# 
+#
+# 0.5.4
+# - added help for chanact_display_alias
+#
+# 0.5.3
+# - added '+' to the available chars of aliase's
+# - added chanact_display_alias to allow different display modes if the window
+#   has an alias
+#
+# 0.5.2
+# - removed unused chanact_show_name settings (thx to Qerub)
+# - fixed $mode display
+# - guarded reference operations to (hopefully) fix errors on server disconnect
+# 
+# 0.5.1
+# - small typo fixed
+#
+# 0.5.0
+# - changed chanact_show_mode to chanact_display. reversed changes from
+#   Qerub through that, but kept funcionality.
+# - removed chanact_color_all since it is no longer needed
+# 
+# 0.4.3
+# - changes by Qerub
+#   + added chanact_show_mode to show the mode just before the channel name
+#   + added chanact_chop_status to be able to control the (status) chopping
+#     [bd] minor implementation changes
+# - moved Changelog to the end of the file since it is getting pretty big
+#
+# 0.4.2
+# - changed back to old version numbering sheme
+# - added '=' to Qrczak's chanact_abbreviate_names stuff :)
+# - added chanact_header
+#
+# 0.41q
+#	- changes by Qrczak
+#		+ added setting 'chanact_abbreviate_names'
+#		+ windows are sorted by refnum; I didn't understand the old
+#		  logic and it broke sorting for numbers above 9
+#
+# 0.41
+#	- minor updates
+#		+ fixed channel sort [veli]
+#		+ removed few typos and added some documentation [veli]
+#
+# 0.4
+#	- merge with window_alias.pl
+#		+ added /window_alias from window_alias.pl by veli@piipiip.net
+#		+ added setting 'chanact_show_alias'
+#		+ added setting 'chanact_show_names'
+#		+ changed setting 'chanact_show_mode' to int
+#		+ added setting 'chanact_separator' [veli]
+#		+ added setting 'chanact_autorenumber' [veli]
+#		+ added setting 'chanact_renumber_start' [veli]
+#		+ added /window_unalias [veli]
+#		+ moved setting to their own group 'chanact' [veli]
+#
+# 0.3
+#	- merge with chanlist.pl
+#		+ added setting 'chanact_show_mode'
+#		+ added setting 'chanact_show_all'
+#
+# 0.2
+#	- added 'Act' to the item
+#		- added setting 'chanact_color_all'
+#		- finally found format for statusbar hilight
+#
+# 0.1
+#	- Initial Release
+#
+###
+################
diff --git a/scripts/chanfull.pl b/scripts/chanfull.pl
new file mode 100644
index 0000000..f0e6d5a
--- /dev/null
+++ b/scripts/chanfull.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "2003011700";
+%IRSSI = (
+    authors     => "Joern 'Wulf' Heissler",
+    contact     => "wulf\@wulf.eu.org",
+    name        => "chanfull",
+    description => "Notifies the user when some channel limit is reached",
+    license     => "GPLv2",
+    url         => "",
+    changed     => "$VERSION"
+);
+
+use Irssi;
+
+# draws a nice box, author is Stefan 'tommie' Tomanek
+sub draw_box ($$$) {
+    my ($title, $text, $footer) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    return $box; 
+}
+
+sub event_message_join ($$$$) {
+	my ($server, $channel, $nick, $address) = @_;
+	my $c=Irssi::channel_find($channel);
+	my $users=scalar @{[$c->nicks]};
+	return if($c->{limit} == 0);
+	my $left = $c->{limit} - $users;
+	if($left < 4) {
+		if($left<=0) {
+			$c->print(draw_box('warning', 'Channel is full!!', 'chanfull'), MSGLEVEL_CLIENTCRAP);
+		} else {
+			$c->print(draw_box('warning', 'Channel is nearly full! ('.$left.' client'.(($left==1)?'':'s').' left)', 'chanfull'), MSGLEVEL_CLIENTCRAP);
+		}
+	}
+}
+
+Irssi::signal_add('message join', 'event_message_join');
+
+Irssi::print '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded.', MSGLEVEL_CLIENTCRAP;
diff --git a/scripts/chanfull_duden.pl b/scripts/chanfull_duden.pl
new file mode 100644
index 0000000..7492568
--- /dev/null
+++ b/scripts/chanfull_duden.pl
@@ -0,0 +1,47 @@
+# by Uwe 'duden' Dudenhoeffer
+#
+# chansync.pl
+
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.1';
+%IRSSI = (
+    authors     => 'Uwe \'duden\' Dudenhoeffer',
+    contact     => 'script@duden.eu.org',
+    name        => 'chanfull',
+    description => 'Notify if Channellimit is reached',
+    license     => 'GPLv2',
+    url         => '',
+    changed     => 'Sat Feb  8 18:08:54 CET 2003',
+);
+
+# Changelog
+#
+# 0.1
+#   - first working version
+
+use Irssi;
+
+sub event_message_join ($$$$) {
+	my ($server, $channel, $nick, $address) = @_;
+	my $c=Irssi::channel_find($channel);
+	my $users=scalar @{[$c->nicks]};
+	return if($c->{limit} == 0);
+	my $left = $c->{limit} - $users;
+	if($left < 3) {
+		if($left<=0) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'chanfull_full', $channel);
+		} else {
+			Irssi::printformat(MSGLEVEL_CRAP, 'chanfull_left', $left, $channel);
+		}
+	}
+}
+
+Irssi::signal_add('message join', 'event_message_join');
+
+Irssi::theme_register([
+	'chanfull_left' => 'Only $0 client(s) left in {channel $1} till limit is reached',
+	'chanfull_full' => '{channel $0} is full'
+]);
diff --git a/scripts/chanpeak.pl b/scripts/chanpeak.pl
new file mode 100644
index 0000000..7cc90a9
--- /dev/null
+++ b/scripts/chanpeak.pl
@@ -0,0 +1,182 @@
+#####
+# chanpeak.pl (last update 05/09/2001)
+#
+#      by Bjoern 'fuchs' Krombholz
+#     for irssi v0.7.99
+#
+# History:
+#   * 0.2.1  remove spaces from /chanpeak arg's end
+#   * 0.2.0  !-channel support
+#   * 0.1.3  bug fix args evaluation
+#   * 0.1.2  bad bug with delimiters in file
+#   * 0.1.1  automatically choose active channel; use strict
+#   * 0.1.0  initial release
+#
+# TODO:
+#   * delete records
+#####
+
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+
+$VERSION = "0.2.2";
+%IRSSI = (
+		  authors     => "Bjoern \'fuchs\' Krombholz",
+		  contact     => "bjkro\@gmx.de",
+		  name        => "chanpeak",
+		  license     => "Public Domain",
+		  description => "Log maximum number of people ever been in a channel",
+		  changed     => "Wed Jun  2 17:00:00 CET 2002",
+		  changes     => "added header, removed debugging outputs"
+		 );
+
+
+# path to peak data file
+my $peakfile = "$ENV{HOME}/.irssi/peak.data";
+# automatically save peak data file on every new peak
+my $peak_autosave = 1;
+# just for debugging purposes
+my $peak_DEBUG = 0;
+
+#################################################
+
+my %chanpeak;
+
+
+###
+# Remove channel ID for !-channels
+sub sub_chan {
+    my $chan = @_[0];
+    $chan =~ s/^\!\w{5}?/\!/;
+    return $chan;
+}
+
+###
+# Print some help
+sub help_chanpeak {
+    Irssi::print("No peak record found");
+    Irssi::print("\nCHANPEAK [<channel>[@<chatnet>]]\n", MSGLEVEL_CLIENTCRAP);
+    Irssi::print("Shows user peak for <channel>.\n", MSGLEVEL_CLIENTCRAP);
+    Irssi::print("If your current window is a channel window,\n".
+				 "print this channel's peak if <channel>\nomitted.",
+				 MSGLEVEL_CLIENTCRAP);
+    Irssi::print("Prints matching <channel> peaks of all\n".
+				 "ChatNets if <chatnet> omitted.\n", MSGLEVEL_CLIENTCRAP);
+}
+
+
+###
+# Output requested peak
+sub cmd_chanpeak {
+    my ($data, $server, $channel) = @_;
+    my ($chan, $tag) = split(/@/, lc($data));
+    $chan =~ s/ *$//;
+    my $key;
+
+    $chan = sub_chan($chan);
+    if ($chan eq "" && Irssi::active_win()->{active}->{type} eq "CHANNEL") {
+		$chan = sub_chan( lc(Irssi::active_win()->{active}->{name}) );
+		$tag = lc(Irssi::active_win()->{active}->{server}->{tag});
+		Irssi::active_win()->{active}->print("Peak for ".$chan."@".$tag.": ".
+											 $chanpeak{$chan}{$tag}{peak}." (".
+											 localtime($chanpeak{$chan}{$tag}{date}).")");
+		return 0;
+    } elsif (exists $chanpeak{$chan}) {
+		foreach $key (keys %{$chanpeak{$chan}}) {
+			if ($key eq $tag || $tag eq "") {
+				Irssi::print("Peak for ".$chan."@".$key.": ".
+							 $chanpeak{$chan}{$key}{peak}." (".
+							 localtime($chanpeak{$chan}{$key}{date}).")");
+			}
+		}
+		return 0;
+    } else {
+		help_chanpeak();
+		return 0;
+    }
+}
+
+###
+# Save peak records to file
+sub cmd_savepeak {
+    my ($chan, $key, $tag);
+
+    if ( !open(PEAKDATA, '>', $peakfile) ) {
+		Irssi::print("Chanpeak: Could not create datafile ".$peakfile);
+		return 1;
+    }
+    foreach $chan (keys %chanpeak) {
+		foreach $tag (keys %{$chanpeak{$chan}}) {
+			print (PEAKDATA $chan." ".$tag." ".$chanpeak{$chan}{$tag}{peak}." ".
+				   $chanpeak{$chan}{$tag}{date}."\n");
+		}
+    }
+    Irssi::print("Chanpeak: Saved peak data to ".$peakfile) if ( $peak_DEBUG );
+    close PEAKDATA;
+}
+
+###
+# Update peak record
+sub update_peakrec {
+    my $channel = @_[0];
+    my $chan = lc($channel->{name});
+    my $tag = lc($channel->{server}->{tag});
+    my @nicks = $channel->nicks();
+    my $peak = @nicks;
+
+    $chan = sub_chan($chan);
+    if (!exists $chanpeak{$chan}{$tag}{peak}
+		|| $peak > $chanpeak{$chan}{$tag}{peak}) {
+		$chanpeak{$chan}{$tag}{peak} = $peak;
+		$chanpeak{$chan}{$tag}{date} = time();
+		Irssi::print("New peak in ".$chan."@".$tag." : ".$peak);
+		if ($peak_autosave) {
+			cmd_savepeak();
+		}
+    }
+}
+
+###
+# Read data file and initialize already joined channels
+sub init_chanpeak {
+    my ($chan, $channel, $date, $line, $peak, $tag);
+
+    if ( !open(PEAKDATA, '<', $peakfile) ) {
+		Irssi::print('Chanpeak: datafile not found, creating...');
+		if ( !open(PEAKDATA, '>', $peakfile) ) {
+			Irssi::print('Chanpeak: Couldn\'t create datafile `'.$peakfile.'\'!');
+			return 1;
+		}
+		close PEAKDATA;
+    } else {
+		my @lines = <PEAKDATA>;
+		foreach $line (@lines) {
+			if ($line eq "\n") {
+				next;
+			}
+			$line =~ s/\n//;
+			($chan, $tag, $peak, $date) = split(/ /, $line, 4);
+			$chanpeak{$chan}{$tag}{peak} = $peak;
+			$chanpeak{$chan}{$tag}{date} = $date;
+		}
+		close PEAKDATA;
+    }
+
+    foreach $channel (Irssi::channels()) {
+		$chan = lc($channel->{name});
+		update_peakrec($channel);
+    }
+}
+
+init_chanpeak();
+
+Irssi::signal_add('channel sync', 'update_peakrec');
+Irssi::signal_add_last('massjoin', 'update_peakrec');
+
+Irssi::command_bind('chanpeak', 'cmd_chanpeak', 'chanpeak commands');
+Irssi::command_bind('savepeak', 'cmd_savepeak', 'chanpeak commands');
+Irssi::command_bind('quit', 'cmd_savepeak');
+Irssi::command_bind('save', 'cmd_savepeak');
+
+Irssi::print("chanpeak.pl loaded...");
diff --git a/scripts/chansearch.pl b/scripts/chansearch.pl
new file mode 100644
index 0000000..20b6d9f
--- /dev/null
+++ b/scripts/chansearch.pl
@@ -0,0 +1,116 @@
+#!/usr/bin/perl
+#
+# by Stefan 'tommie' Tomanek <stefan@pico.ruhr.de>
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '20021019';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'ChanSearch',
+    description => 'searches for specific channels',
+    license     => 'GPLv2',
+    url         => 'http://scripts.irssi.org/',
+    changed     => $VERSION,
+    modules     => 'Data::Dumper LWP::UserAgent POSIX',
+);
+
+use Irssi 20020324;
+use LWP::UserAgent;
+use Data::Dumper;
+use POSIX;
+
+use vars qw($forked);
+
+$forked = 0;
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub fork_search ($) {
+    my ($query) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    return if $forked;
+    my $pid = fork();
+    $forked = 1;
+    if ($pid > 0) {
+	close($wh);
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, \$pipetag);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+	print CLIENTCRAP "%R>>%n Please wait...";
+    } else {
+	my %result;
+	$result{query} = $query;
+	$result{result} = search_channels($query);
+	my $dumper = Data::Dumper->new([\%result]);
+	$dumper->Purity(1)->Deepcopy(1);
+	my $data = $dumper->Dump;
+	print($wh $data);
+	close($wh);
+	POSIX::_exit(1);
+   }
+}
+
+sub pipe_input ($$) {
+    my ($rh, $pipetag) = @{$_[0]};
+    my $data;
+    $data .= $_ foreach (<$rh>);
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    return unless($data);
+    no strict;
+    my %result = %{ eval "$data" };
+    my $text;
+    foreach (sort keys %{ $result{result} }) {
+        $text .= '%9'.$_.'%9, '.$result{result}{$_}->{nicks}." nicks\n";
+        $text .= '   "'.$result{result}{$_}->{topic}.'"'."\n" if $result{result}{$_}->{topic};
+    }
+    $forked = 0;
+    print CLIENTCRAP draw_box('ChanSearch', $text, $result{query}, 1);
+}
+
+sub search_channels ($) {
+    my ($query) = @_;
+    my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
+    $ua->agent('Irssi Chansearch');
+    my $page = 'http://www.ludd.luth.se/irc/bin/csearch.cgi';
+    my %form = ( topic => "channels",
+                 hits => "all",
+                 min  => 2,
+		 max  => "infinite",
+		 sort => "in alphabetic order.",
+		 pattern => $query
+		);
+    my $result = $ua->post($page, \%form);
+    return undef unless $result->is_success();
+    my %channels;
+    foreach ( split(/\n/, $result->content()) ) {
+	if (/^<LI><STRONG>(.*?)<\/STRONG> <I>(\d+)<\/I><BR>(.*).$/) {
+	    $channels{$1} = { topic => $3, nicks => $2 };
+	}
+    }
+    return \%channels;
+}
+
+sub cmd_chansearch ($$$) {
+    my ($args, $server, $witem) = @_;
+    fork_search($args);
+}
+
+Irssi::command_bind('chansearch', \&cmd_chansearch);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded';
diff --git a/scripts/chanshare.pl b/scripts/chanshare.pl
new file mode 100644
index 0000000..fcd862d
--- /dev/null
+++ b/scripts/chanshare.pl
@@ -0,0 +1,118 @@
+# /CHANSHARE - display people who are in more than one channel with you
+# for irssi 0.7.98
+#
+# /CHANSHARE [ircnets ...] [#channels ...]
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+# 
+# Version 0.1 - Timo Sirainen tss@iki.fi
+#	Initial stalker.pl 
+# Version 0.2 - Chad Armstrong chad@analogself.com
+#	Added multiserver support
+#	Added keying by nick AND hostname. "nick (fw.corp.com)"
+#	Prints to current active window now.
+# Version 0.21 - Timo Sirainen tss@iki.fi
+#       Removed printing to active window - if you want it, remove your
+#       status window.
+# Version 0.3 - Timo Sirainen tss@iki.fi
+#       Supports for limiting searches only to specified ircnets and
+#       channels. Some cleanups..
+
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.3";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi",
+    name	=> "chan share",
+    description	=> "/CHANSHARE - display people who are in more than one channel with you",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100",
+    changes	=> "v0.3 - Timo Sirainen tss\@iki.fi: Supports for limiting searches only to specified ircnets and channels. Some cleanups.."
+);
+
+sub cmd_chanshare {
+  my ($data, $server, $channel) = @_;
+  my (%channicks, @show_channels, @show_ircnets);
+
+  # get list of channels and ircnets
+  @show_channels = ();
+  @show_ircnets = ();
+  foreach my $arg (split(" ", $data)) {
+    if ($server->ischannel($arg)) {
+      push @show_channels, $arg;
+    } else {
+      push @show_ircnets, $arg;
+    }
+  }
+
+  my @checkservers = ();
+  if (scalar(@show_ircnets) == 0) {
+    # check from all servers
+    @checkservers = Irssi::servers();
+  } else {
+    # check from specified ircnets
+    foreach my $s (Irssi::servers()) {
+      foreach my $n (@show_ircnets) {
+	if ($s->{chatnet} eq $n) {
+	  push @checkservers, $s;
+	  last;
+	}
+      }
+    }
+  }
+
+  foreach my $s (@checkservers) {
+    my $mynick = $s->{nick};
+    foreach my $channel ($s->channels()) {
+      foreach my $nick ($channel->nicks()) {
+	my ($user, $host) = split(/@/, $nick->{host});
+	my $nickhost = $nick->{nick}." ($host)";
+	my @list = ();
+	next if ($nick->{nick} eq $mynick);
+
+	@list = @{$channicks{$nickhost}} if (@{$channicks{$nickhost}});
+#	Irssi::print($nickhost);
+	push @list, $channel->{name};
+	$channicks{$nickhost} = [@list];
+      }
+    }
+  }
+
+  Irssi::print("Nicks of those who share your #channels:");
+  foreach my $nick (keys %channicks) {
+    my @channels = @{$channicks{$nick}};
+    if (@channels > 1) {
+      my $chanstr = "";
+      my $ok = scalar(@show_channels) == 0;
+      foreach $channel (@channels) {
+	if (!$ok) {
+	  # check the show_channels list..
+	  foreach my $c (@show_channels) {
+	    if ($channel eq $c) {
+	      $ok = 1;
+	      last;
+	    }
+	  }
+	}
+	$chanstr .= "$channel ";
+      }
+      Irssi::print("$chanstr : $nick") if ($ok);
+    }
+  }
+}
+
+Irssi::command_bind('chanshare', 'cmd_chanshare');
diff --git a/scripts/chansort.pl b/scripts/chansort.pl
new file mode 100644
index 0000000..814d041
--- /dev/null
+++ b/scripts/chansort.pl
@@ -0,0 +1,103 @@
+#! /usr/bin/perl
+#
+#    $Id: chansort.pl,v 1.4 2004/11/02 22:52:33 peder Exp $
+#
+# Copyright (C) 2004 by Peder Stray <peder@gzip.ninja.no>
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'chansort',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/chansort.pl',
+          license     => 'GPL',
+          description => 'Sort all channel and query windows',
+         );
+
+# ======[ Hooks ]=======================================================
+
+# --------[ sig_sort_trigger ]------------------------------------------
+
+sub sig_sort_trigger {
+    return unless Irssi::settings_get_bool('chansort_autosort');
+    cmd_chansort();
+}
+
+# ======[ Commands ]====================================================
+
+# --------[ CHANSORT ]--------------------------------------------------
+
+# Usage: /CHANSORT
+sub cmd_chansort {
+    my(@windows);
+    my($minwin);
+
+    for my $win (Irssi::windows()) {
+	my $act = $win->{active};
+	my $key;
+
+	if ($act->{type} eq 'CHANNEL') {
+	    $key = "C".$act->{server}{tag}.' '.substr($act->{visible_name}, 1);
+	}
+	elsif ($act->{type} eq 'QUERY') {
+	    $key = "Q".$act->{server}{tag}.' '.$act->{visible_name};
+	}
+	else {
+	    next;
+	}
+	if (!defined($minwin) || $minwin > $win->{refnum}) {
+	    $minwin = $win->{refnum};
+	}
+	push @windows, [ lc $key, $win ];
+
+    }
+
+    for (sort {$a->[0] cmp $b->[0]} @windows) {
+	my($key,$win) = @$_;
+	my($act) = $win->{active};
+    
+#	printf("win[%d->%d]: t[%s] [%s] [%s] {%s}\n", 
+#	       $win->{refnum},
+#	       $minwin,
+#	       $act->{type},
+#	       $act->{visible_name},
+#	       $act->{server}{tag},
+#	       $key,
+#	      );
+
+	$win->command("window move $minwin");
+	$minwin++;
+    }
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind('chansort', 'cmd_chansort');
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_bool('chansort', 'chansort_autosort', 0);
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add_last('window item name changed', 'sig_sort_trigger');
+Irssi::signal_add_last('channel created', 'sig_sort_trigger');
+Irssi::signal_add_last('query created', 'sig_sort_trigger');
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
+
diff --git a/scripts/chansync.pl b/scripts/chansync.pl
new file mode 100644
index 0000000..5ec869f
--- /dev/null
+++ b/scripts/chansync.pl
@@ -0,0 +1,75 @@
+# by Uwe 'duden' Dudenhoeffer
+#
+# chansync.pl
+
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.22';
+%IRSSI = (
+    authors     => 'Uwe \'duden\' Dudenhoeffer',
+    contact     => 'script@duden.eu.org',
+    name        => 'chansync',
+    description => '/who a channel and optionaly executes a command',
+    license     => 'GPLv2',
+    url         => '',
+    changed     => 'Sun Feb  9 18:27:51 CET 2003',
+    commands	=> 'chansync',
+);
+
+# Changelog
+#
+# 0.22
+#   - added "commands => chansync"
+#
+# 0.21
+#   - some design issues
+#
+# 0.2
+#   - used "silent event who" instead of stopping "print text"
+#
+# 0.1
+#   - first working version
+
+use Irssi 20020324;
+use POSIX;
+
+my(%arguments,%items);
+
+# Usage: /chansync [command]
+sub cmd_chansync {
+  my($args, $server, $item) = @_;
+  return if not ($item && $item->{type} eq "CHANNEL");
+  my($chan) = $item->{name};
+  $server->redirect_event('who', 1, $chan, -1, undef,
+                         {
+                          "event 315" => "redir chansync endwho",
+                          "event 352" => "redir chansync who",
+                          "" => "event empty",
+                         });
+  $server->send_raw("WHO $chan");
+  $arguments{lc $chan} = $args;
+  $items{lc $chan} = $item;
+}
+
+sub sig_event_block {
+  Irssi::signal_stop();
+}
+
+sub sig_redir_chansync_who {
+  Irssi::signal_emit('silent event who', @_);
+}
+
+sub sig_redir_chansync_endwho {
+  my($server) = shift;
+  my(@text) = split " ", shift;
+  my($cmd) = $arguments{lc @text[1]};
+  $items{lc @text[1]}->command("$cmd");
+  delete $arguments{lc @text[1]};
+  delete $items{lc @text[1]};
+}
+
+Irssi::command_bind("chansync", "cmd_chansync");
+Irssi::signal_add('redir chansync who', 'sig_redir_chansync_who');
+Irssi::signal_add('redir chansync endwho', 'sig_redir_chansync_endwho');
diff --git a/scripts/chops.pl b/scripts/chops.pl
new file mode 100644
index 0000000..b97a4b2
--- /dev/null
+++ b/scripts/chops.pl
@@ -0,0 +1,144 @@
+#!/usr/bin/perl -w
+
+# chops.pl: Simulates BitchX's /chops and /nops commands
+# prints list with nickname and userhost
+#
+# Written by Jakub Jankowski <shasta@atn.pl>
+# for irssi 0.7.98.CVS
+#
+# todo:
+#  - enhance the look of the script
+#
+# sample /chops output:
+# [11:36:33] -!- Irssi: Information about chanops on #irssi
+# [11:36:33] -!- Irssi: [nick]    [hostmask]
+# [11:36:33] -!- Irssi: shasta    shasta@quasimodo.olsztyn.tpsa.pl
+# [11:36:34] -!- Irssi: cras      cras@xmunkki.org
+# [11:36:34] -!- Irssi: fuchs     fox@wh8043.stw.uni-rostock.de
+# [11:36:34] -!- Irssi: End of listing
+#
+# sample /nops output:
+# [11:40:34] -!- Irssi: Information about non-ops on #irssi
+# [11:40:34] -!- Irssi: [nick]    [hostmask]
+# [11:40:34] -!- Irssi: globe_    ~globe@ui20i21hel.dial.kolumbus.fi
+# [11:40:34] -!- Irssi: shastaBX  shasta@thorn.kanal.olsztyn.pl
+# [11:40:34] -!- Irssi: End of listing
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "20020223";
+%IRSSI = (
+    authors     => 'Jakub Jankowski',
+    contact     => 'shasta@atn.pl',
+    name        => 'chops',
+    description => 'Simulates BitchX\'s /CHOPS and /NOPS commands.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.atn.pl/',
+);
+
+use Irssi;
+use Irssi::Irc;
+
+Irssi::theme_register([
+	'chops_nochan', 'You are not on a channel',
+	'chops_notsynced', 'Channel $0 is not fully synchronized yet',
+	'chops_noone', 'There are no $0 to list',
+	'chops_start', 'Information about $0 on $1',
+	'chops_end', 'End of listing',
+	'chops_header', '[nick]    [hostmask]',
+	'chops_line', '$[!9]0 $[!50]1'
+]);
+
+sub cmd_chops {
+	my ($data, $server, $channel) = @_;
+	my @chanops = ();
+
+	# if we're not on a channel, print appropriate message and return
+	if (!$channel) {
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_nochan');
+		return;
+	}
+
+	# if channel is not fully synced yet, print appropriate message and return
+	if (!$channel->{synced}) {
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_notsynced', $channel->{name});
+		return;
+	}
+
+	# gather all opped people into an array
+	foreach my $nick ($channel->nicks()) {
+		push(@chanops, $nick) if ($nick->{op});
+	}
+
+	# if there are no chanops, print appropriate message and return
+	if (scalar(@chanops) < 1) {
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_noone', "chanops");
+		return;
+	}
+
+	# print a starting message
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_start', "chanops", $channel->{name});
+
+	# print listing header
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_header');
+
+	# print every chanop's nick, status (gone/here), userhost and hopcount
+	foreach my $nick (@chanops) {
+		my $userhost = $nick->{host};
+		# if user's host is longer than 50 characters, cut it to 47 to fit in column
+		$userhost = substr($userhost, 0, 47) if (length($userhost) > 50);
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_line', $nick->{nick}, $userhost);
+	}
+
+	# print listing footer
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_end');
+}
+
+sub cmd_nops {
+	my ($data, $server, $channel) = @_;
+	my @nonops = ();
+
+	# if we're not on a channel, print appropriate message and return
+	if (!$channel) {
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_nochan');
+		return;
+	}
+
+	# if channel is not fully synced yet, print appropriate message and return
+	if (!$channel->{synced}) {
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_notsynced', $channel->{name});
+		return;
+	}
+
+	# gather all not opped people into an array
+	foreach my $nick ($channel->nicks()) {
+		push(@nonops, $nick) if (!$nick->{op});
+	}
+
+	# if there are only chanops, print appropriate message and return
+	if (scalar(@nonops) < 1) {
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_noone', "non-ops");
+		return;
+	}
+
+	# print a starting message
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_start', "non-ops", $channel->{name});
+
+	# print listing header
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_header');
+
+	# print every chanop's nick, status (gone/here), userhost and hopcount
+	foreach my $nick (@nonops) {
+		my $userhost = $nick->{host};
+		# if user's host is longer than 50 characters, cut it to 47 to fit in column
+		$userhost = substr($userhost, 0, 47) if (length($userhost) > 50);
+		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_line', $nick->{nick}, $userhost);
+	}
+
+	# print listing footer
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'chops_end');
+}
+
+Irssi::command_bind("chops", "cmd_chops");
+Irssi::command_bind("nops", "cmd_nops");
diff --git a/scripts/cleanpublic.pl b/scripts/cleanpublic.pl
new file mode 100644
index 0000000..364fd8f
--- /dev/null
+++ b/scripts/cleanpublic.pl
@@ -0,0 +1,41 @@
+# Simple script for removing colours in public channels :)
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+# Dev. info ^_^
+$VERSION = "0.3";
+%IRSSI = (
+	authors     => "Jørgen Tjernø",
+	contact     => "darkthorne\@samsen.com",
+	name        => "CleanPublic",
+	description => "Simple script that removes colors and other formatting (bold, etc) from public channels",
+	license     => "GPL",
+	url         => "http://mental.mine.nu",
+	changed     => "Wed Sep 24 13:17:15 CEST 2003"
+);
+
+# All the works
+sub strip_formatting {
+	my ($server, $data, $nick, $mask, $target) = @_;
+	# Channel *allowed* to be colorful?
+	foreach my $chan (split(' ', Irssi::settings_get_str('colored_channels'))) {
+		if ($target eq $chan) { return }
+	}
+	
+	# Ruthlessly_ripped_from_Garion {
+	my $twin = Irssi::window_find_name($target);
+	# Beam it to window 1 if we cant find any other suitable target.
+	if (!defined($twin)) { $twin = Irssi::window_find_refnum(1); }
+	# }
+	
+	# Remove formatting
+	$data =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;
+	# Let it flow
+	Irssi::signal_continue($server, $data, $nick, $mask, $target);
+}
+
+# Hook me up
+Irssi::signal_add('message public', 'strip_formatting');
+Irssi::settings_add_str('lookandfeel', 'colored_channels', '');
diff --git a/scripts/clipboard.pl b/scripts/clipboard.pl
new file mode 100644
index 0000000..36a6489
--- /dev/null
+++ b/scripts/clipboard.pl
@@ -0,0 +1,90 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use Irssi::Irc;
+use Tk;
+
+$VERSION = '1.2';
+%IRSSI = (
+authors     => 'Dominic Battre',
+contact     => 'dominic@battre.de',
+name        => 'Quoting from X clipboard',
+description => 'Better quoting of content from clipboard (without leading spaces) -- requires Perl/Tk',
+license     => 'Public Domain',
+url         => 'http://www.battre.de',
+changed     => 'Fri Dec  6 23:23:31 CET 2002',
+);
+
+# if you quote long lines by selecting the text and inserting via middle
+# mousebutton you get something like this:
+# 23:12 <@DominicB> 23:11 <@DominicB> This is a very long line. This is a very
+#                   long line. This is a
+# 23:12 <@DominicB>                   very long line. This is a very long line.
+#                   This is a very long
+# 23:12 <@DominicB>                   line.
+#
+# this script queries the clipboard of X11, strips leading blanks and
+# joins lines if needed so the result would be
+# 23:16 <@DominicB> 23:11 <@DominicB> This is a very long line. This is a very
+#                   long line. This is a very long line. This is a very long
+#                   line. This is a very long line.
+#
+# just execute by /qc ("quote clipboard")
+# for print only use /qc -p 
+
+
+# Known problem
+# if you
+# 1) connect via `ssh -X user@localhost`
+# 2) start `screen irssi`
+# 3) use /qc,
+# 4) disconnect ssh
+# 5) reconnect via `ssh -X user@localhost`
+# 6) `screen -R -D`
+# 7) use /qc again
+# => screen and along with it irssi terminate
+# the problem persists if you try
+# perl -e 'use Tk;print MainWindow->new->SelectionGet("-selection","CLIPBOARD")'
+# in a ssh -X/screen environment. Thus it seems to be a problem of
+# X forwarding - not of Perl/Tk
+
+# credits to 
+#
+# Hugo Haas          for s/CLIPBOARD/PRIMARY/ (using PRIMARY instead of
+#                    CLIPBOARD in order to use highlighted text instead of the
+#                    X clipboard (identical to middle clicking)
+#
+# Clemens Heidinger  using Irssi::print() now if /qc is executed outside a channel/query
+#                    -p for printing only
+
+Irssi::command_bind('qc','cmd_quoteclipboard');
+
+sub cmd_quoteclipboard {
+    my ($arguments, $server, $witem) = @_;
+
+    my $main = MainWindow->new;
+    my $text = $main->SelectionGet('-selection','PRIMARY');
+    $main->destroy();
+
+    my $sendMsg = ( $arguments !~ /-p/ &&  # no parameter -p
+                     defined($witem) && $witem &&
+                    ($witem->{'type'} eq 'CHANNEL' || $witem->{'type'} eq 'QUERY') )
+                  ? sub { $server->command("msg $witem->{'name'} @_[0]"); }
+                  : sub { Irssi::print(@_[0], MSGLEVEL_CRAP); };
+
+    my $prev = "";
+
+    while ( $text =~ /^( *)(.*)$/gm ) {
+        if ( $1 eq "" and $prev ne "") {
+            $sendMsg->($prev);
+            $prev = "$2 ";
+        } else {
+            $prev .= "$2 ";
+        }
+    }
+
+    if ( $prev ne "" ) {
+        $sendMsg->($prev);
+    }
+}
diff --git a/scripts/cloneprot.pl b/scripts/cloneprot.pl
new file mode 100644
index 0000000..2e51721
--- /dev/null
+++ b/scripts/cloneprot.pl
@@ -0,0 +1,89 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+    
+$VERSION = "1.11";
+%IRSSI = (
+                     authors     => "Rick (strlen) Jansen",
+                     contact     => "strlen\@shellz.nl",
+                     name        => "cloneprot",
+                     description => "Parses OperServ notices to make autokill aliases from clonewarnings",
+                     license     => "GPL/1",
+                     url         => "http://www.shellz.nl/",
+                     changed     => "Wed Mar 13 20:26:46 CET 2002",
+);
+
+my ($lastmask, $clones, $trig, $hostmask, $username, $hostname);
+
+sub event_callback {
+	my ($server, $data, $sender, $address) = @_;
+	my $count = 0;
+	if ($sender eq $server->{address}) {
+		if ($data =~ /from OperServ: CLONES\((\d+)\): /) {
+			$clones = $1;
+			$trig = $clones + 2;
+			if ($data =~ /((\S+)\@(\S+))/) {
+				$hostmask = $1;
+				$username = $2;
+				$hostname = $3;
+				if ($hostmask eq $lastmask) {
+					$count++;
+					Irssi::print("[Warning #$count] $clones clones.");
+					Irssi::print("[[/tk (1h)] - [/ak 1|2 (6h)] - [/tr ($trig)] - [/cw 1|2 (/who)]]");
+				} else {
+					$server->command("/who $hostname");
+					Irssi::print("[Warning #1: $clones clones.");
+					Irssi::print("[1: $hostmask] - [2: $hostname]");
+					Irssi::print("[[/tk (1h)] - [/ak 1|2 (6h)] - [/tr ($trig)] - [/cw 1|2 (/who)]]");
+					$count=1;
+				}
+				Irssi::signal_stop();
+			}
+		}
+	}
+}
+
+sub cw_callback {
+	my ($mode,$server) = @_;
+	if ($mode == 1) {
+		$server->command("/who $hostmask");
+	} elsif ($mode == 2) {
+		$server->command("/who $hostname");
+	} else {
+		Irssi::print("Usage: /cw 1|2");
+	}
+}
+
+sub tk_callback {
+	my ($null,$server) = @_;
+	$server->command("/msg operserv tempakill $hostname Don't clone on SorceryNet.");
+}
+
+sub ak_callback {
+	my ($mode,$server) = @_;
+	if ($mode == 1) {
+		$server->command("/msg operserv autokill 6 $hostmask Don't clone on SorceryNet.");
+	} elsif ($mode == 2) {
+		$server->command("/msg operserv autokill 6 *!*\@$hostname Don't clone on SorceryNet.");
+	} else {
+		Irssi::print("Usage: /ak 1|2");
+	}
+}
+
+sub tr_callback {
+	my ($mode,$server) = @_;
+	if ($mode == 1) {
+	$server->command("/msg operserv trigger $username\@$hostname $trig");
+	} elsif ($mode == 2) {
+	$server->command("/msg operserv trigger $hostname $trig");
+	} else {
+		Irssi::print("Usage: /tr 1|2");
+	}
+}
+
+Irssi::command_bind("tk","tk_callback");
+Irssi::command_bind("ak","ak_callback");
+Irssi::command_bind("tr","tr_callback");
+Irssi::command_bind("cw","cw_callback");
+
+Irssi::signal_add("server event","event_callback");
diff --git a/scripts/clones.pl b/scripts/clones.pl
new file mode 100644
index 0000000..9e55a5f
--- /dev/null
+++ b/scripts/clones.pl
@@ -0,0 +1,55 @@
+use Irssi 20010920.0000 ();
+$VERSION = "2.01";
+%IRSSI = (
+    authors     => 'From irssi source, modified by David Leadbeater (dg)',
+    name        => 'clones',
+    description => '/CLONES - Display clones in the active channel (with added options)',
+    license     => 'Same as Irssi',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+use strict;
+
+sub cmd_clones {
+  my ($data, $server, $channel) = @_;
+
+  my $min = $data =~ /\d/ ? $data : Irssi::settings_get_int('clones_min_show');
+
+  if (!$channel || $channel->{type} ne 'CHANNEL') {
+    Irssi::print('No active channel in window');
+    return;
+  }
+
+  my %hostnames = {};
+  my $ident = Irssi::settings_get_bool('clones_host_only');
+  
+  foreach my $nick ($channel->nicks()) {
+	my $hostname;
+	if($ident) {
+	   ($hostname = $nick->{host}) =~ s/^[^@]+@//;
+	}else{
+	   $hostname = $nick->{host};
+	}
+
+	$hostnames{$hostname} ||= [];
+	push( @{ $hostnames{$hostname} }, $nick->{nick});
+  }
+
+  my $count = 0;
+  foreach my $host (keys %hostnames) {
+	next unless ref($hostnames{$host}) eq 'ARRAY'; # sometimes a hash is here
+    my @clones = @{ $hostnames{$host} };
+    if (scalar @clones >= $min) {
+      $channel->print('Clones:') if ($count == 0);
+      $channel->print("$host: " . join(' ',@clones));
+      $count++;
+    }
+  }
+
+  $channel->print('No clones in channel') if ($count == 0);
+}
+
+Irssi::command_bind('clones', 'cmd_clones');
+Irssi::settings_add_bool('misc', 'clones_host_only', 1);
+Irssi::settings_add_int('misc', 'clones_min_show', 2);
+
diff --git a/scripts/colorkick.pl b/scripts/colorkick.pl
new file mode 100644
index 0000000..8b07aa0
--- /dev/null
+++ b/scripts/colorkick.pl
@@ -0,0 +1,68 @@
+#!/usr/pkg/bin/perl
+#
+# script what's kicking users for using color or blink
+#
+# settings:
+#  what			type	function
+#  colorkick_channels	str	list of channels have to be ``protected''
+#  colorkick_color	int	0: don't kick on color
+#  colorkick_blink	int	0: don't kick on blink
+#
+
+
+use Irssi;
+use Irssi::Irc;
+
+use vars %IRSSI;
+%IRSSI =
+(
+	authors		=> "Gabor Nyeki",
+	contact		=> "bigmac\@vim.hu",
+	name		=> "colorkick",
+	description	=> "kicking users for using colors or blinks",
+	license		=> "public domain",
+	written		=> "Thu Dec 26 00:22:54 CET 2002",
+	changed		=> "Fri Jan  2 03:43:10 CET 2004"
+);
+
+sub catch_junk
+{
+	my ($server, $data, $nick, $address) = @_;
+	my ($target, $text) = split(/ :/, $data, 2);
+	my $valid_channel = 0;
+
+	if ($target[0] != '#' && $target[0] != '!' && $target[0] != '&')
+	{
+		return;
+	}
+
+	for my $channel (split(/ /,
+		Irssi::settings_get_str('colorkick_channels')))
+	{
+		if ($target == $channel)
+		{
+			$valid_channel = 1;
+			last;
+		}
+	}
+	if ($valid_channel == 0)
+	{
+		return;
+	}
+
+	if ($text =~ /\x3/ &&
+		Irssi::settings_get_bool('colorkick_color'))
+	{
+		$server->send_raw("KICK $target $nick :color abuse");
+	}
+	elsif ($text =~ /\x6/ &&
+		Irssi::settings_get_bool('colorkick_blink'))
+	{
+		$server->send_raw("KICK $target $nick :blink abuse");
+	}
+}
+
+Irssi::settings_add_str('colorkick', 'colorkick_channels', '');
+Irssi::settings_add_bool('colorkick', 'colorkick_color', 1);
+Irssi::settings_add_bool('colorkick', 'colorkick_blink', 1);
+Irssi::signal_add("event privmsg", "catch_junk");
diff --git a/scripts/colorswap.pl b/scripts/colorswap.pl
new file mode 100644
index 0000000..a42de99
--- /dev/null
+++ b/scripts/colorswap.pl
@@ -0,0 +1,47 @@
+# Swap between green and white format for public messages. I think this
+# helps readability. Assumes you haven't changed message formats.
+# for irssi 0.7.98 by Timo Sirainen
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.1";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi",
+    name	=> "colorswap",
+    description	=> "Swap between green and white format for public messages. I think this helps readability. Assumes you haven't changed message formats.",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+my %setnext = {};
+
+sub change_formats {
+	my $target = lc shift;
+
+	if ($setnext{$target}) {
+		Irssi::command('^format own_msg {ownmsgnick %G$2 {ownnick %G$0}}%g$1');
+		Irssi::command('^format pubmsg {pubmsgnick %g$2 {pubnick %g$0}}%g$1');
+	} else {
+		Irssi::command('^format -reset own_msg');
+		Irssi::command('^format -reset pubmsg');
+	}
+	$setnext{$target} = !$setnext{$target};
+}
+
+sub sig_public {
+	my ($server, $msg, $nick, $address, $target) = @_;
+
+	change_formats($server->{tag}."/".$target);
+}
+
+sub sig_own_public {
+	my ($server, $msg, $target) = @_;
+
+	change_formats($server->{tag}."/".$target);
+}
+
+Irssi::signal_add('message public', 'sig_public');
+Irssi::signal_add('message own_public', 'sig_own_public');
diff --git a/scripts/complete_lastspoke.pl b/scripts/complete_lastspoke.pl
new file mode 100644
index 0000000..6556dc4
--- /dev/null
+++ b/scripts/complete_lastspoke.pl
@@ -0,0 +1,46 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '2.1';
+%IRSSI = (
+    authors     => 'Daenyth',
+    contact     => 'Daenyth /at/ gmail /dot/ com',
+    name        => 'Complete Last-Spoke',
+    description => 'When using tab completion on an empty input buffer, complete to the nick of the person who spoke most recently.',
+    license     => 'GPL2',
+);
+
+my %list_of_speakers;
+
+sub complete_to_last_nick {
+	my ($strings, $window, $word, $linestart, $want_space) = @_;
+	return unless ($linestart eq '' && $word eq '');
+
+	my $last_speaker = get_last_speaker($window);
+	return unless defined $last_speaker;
+	my $suffix = Irssi::settings_get_str('completion_char');
+	@$strings = $last_speaker . $suffix;
+	$$want_space = 1;
+	Irssi::signal_stop();
+}
+
+sub get_last_speaker {
+	my $window = shift;
+	return $list_of_speakers{$window->{active}->{name}};
+}
+
+sub store_last_speaker {
+	my ($server, $message, $speaker, $address, $target) = @_;
+	$list_of_speakers{$target} = $speaker;
+}
+
+sub store_last_actor {
+	my ($server, $args, $actor, $address, $target) = @_;
+	$list_of_speakers{$target} = $actor;
+}
+
+Irssi::signal_add_first( 'complete word',  \&complete_to_last_nick );
+Irssi::signal_add_last ( 'message public', \&store_last_speaker    );
+Irssi::signal_add_last ( 'ctcp action',    \&store_last_actor      );
+
diff --git a/scripts/connectcmd.pl b/scripts/connectcmd.pl
new file mode 100644
index 0000000..d4a4491
--- /dev/null
+++ b/scripts/connectcmd.pl
@@ -0,0 +1,155 @@
+use strict;
+use Irssi 20020101.0250 ();
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => "Ian Peters",
+    contact     => "itp\@ximian.com",
+    name        => "Connect Command",
+    description => "run arbitrary shell commands while [dis]connecting to a server",
+    license     => "Public Domain",
+    url         => "http://irssi.org/",
+    changed     => "Sun, 10 Mar 2002 17:08:03 -0500"
+);
+
+my %preconn_actions;
+my %postconn_actions;
+my %disconn_actions;
+
+sub load_actions {
+  open ACTIONS, "$ENV{HOME}/.irssi/connectcmd_actions";
+
+  while (<ACTIONS>) {
+    my @lines = split "\n";
+    foreach my $line (@lines) {
+      my ($server, $type, $action) = split ":", $line;
+      if ($type eq "preconn") {
+	$preconn_actions{$server} = $action;
+      } elsif ($type eq "postconn") {
+	$postconn_actions{$server} = $action;
+      } elsif ($type eq "disconn") {
+	$disconn_actions{$server} = $action;
+      }
+    }
+  }
+
+  close ACTIONS;
+}
+
+sub save_actions {
+  open ACTIONS, ">$ENV{HOME}/.irssi/connectcmd_actions";
+
+  foreach my $server (keys %preconn_actions) {
+    print ACTIONS "$server:preconn:$preconn_actions{$server}\n";
+  }
+  foreach my $server (keys %postconn_actions) {
+    print ACTIONS "$server:postconn:$postconn_actions{$server}\n";
+  }
+  foreach my $server (keys %disconn_actions) {
+    print ACTIONS "$server:disconn:$disconn_actions{$server}\n";
+  }
+
+  close ACTIONS;
+}
+
+sub sig_server_looking {
+  my ($server) = @_;
+
+  if (my $action = $preconn_actions{$server->{'address'}}) {
+    system ($action);
+  }
+}
+
+sub sig_server_connected {
+  my ($server) = @_;
+
+  if (my $action = $postconn_actions{$server->{'address'}}) {
+    system ($action);
+  }
+}
+
+sub sig_server_disconnected {
+  my ($server) = @_;
+
+  if (my $action = $disconn_actions{$server->{'address'}}) {
+    system ($action);
+  }
+}
+
+sub cmd_connectcmd {
+  my ($data, $server, $witem) = @_;
+  my ($op, $type, $server, $action) = split " ", $data;
+
+  $op = lc $op;
+
+  if (!$op) {
+    Irssi::print ("No operation given");
+  } elsif ($op eq "add") {
+    if (!$type) {
+      Irssi::print ("Type not specified [preconn|postconn|disconn]");
+    } elsif (!$server) {
+      Irssi::print ("Server not specified");
+    } elsif (!$action) {
+      Irssi::print ("Action not specified");
+    } else {
+      if ($type eq "preconn") {
+	$preconn_actions{$server} = $action;
+	Irssi::print ("Added preconnect action of $action on $server");
+	save_actions;
+      } elsif ($type eq "postconn") {
+	$postconn_actions{$server} = $action;
+	Irssi::print ("Added postconnect action of $action on $server");
+	save_actions;
+      } elsif ($type eq "disconn") {
+	$disconn_actions{$server} = $action;
+	Irssi::print ("Added disconnect action of $action on $server");
+	save_actions;
+      } else {
+	Irssi::print ("Unrecognized trigger $type [preconn|postconn|disconn]");
+      }
+    }
+  } elsif ($op eq "remove") {
+    if (!$type) {
+      Irssi::print ("Type not specified [preconn|postconn|disconn]");
+    } elsif (!$server) {
+      Irssi::print ("Server not specified");
+    } else {
+      if ($type eq "preconn") {
+	delete ($preconn_actions{$server});
+	Irssi::print ("Removed preconnect action on $server");
+	save_actions;
+      } elsif ($type eq "postconn") {
+	delete ($postconn_actions{$server});
+	Irssi::print ("Removed postconnect action on $server");
+	save_actions;
+      } elsif ($type eq "disconn") {
+	delete ($disconn_actions{$server});
+	Irssi::print ("Removed disconnect action on $server");
+	save_actions;
+      } else {
+	Irssi::print ("Unrecognized trigger $type [preconn|postconn|disconn]");
+      }
+    }
+  } elsif ($op eq "list") {
+    Irssi::print ("Preconnect Actions:");
+    foreach my $server (keys %preconn_actions) {
+      Irssi::print ("$server  $preconn_actions{$server}");
+    }
+    Irssi::print ("Postconnect Actions:");
+    foreach my $server (keys %postconn_actions) {
+      Irssi::print ("$server  $postconn_actions{$server}");
+    }
+    Irssi::print ("Disconnect Actions:");
+    foreach my $server (keys %disconn_actions) {
+      Irssi::print ("$server  $disconn_actions{$server}");
+    }
+  }
+}
+
+load_actions;
+
+Irssi::command_bind ('connectcmd', 'cmd_connectcmd');
+
+Irssi::signal_add ('server looking', 'sig_server_looking');
+Irssi::signal_add ('server connected', 'sig_server_connected');
+Irssi::signal_add ('server disconnected', 'sig_server_disconnected');
diff --git a/scripts/countdown.pl b/scripts/countdown.pl
new file mode 100644
index 0000000..01f6cad
--- /dev/null
+++ b/scripts/countdown.pl
@@ -0,0 +1,59 @@
+# countdown.pl
+
+# adds public countdown command
+
+# ver 1.0 
+#   - initial release
+
+use Irssi;
+use strict;
+use Time::Local;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+    authors     => 'Mikko \'Quidz\' Salmi',
+    name        => 'countdown',
+    contact	=> 'mikko@quidz.net',
+    description => 'adds public channel command for counting down something',
+    license     => 'Public Domain',
+    changed	=> 'Thu Aug 8 12:06:46 EET 2002'
+);
+
+Irssi::settings_add_str('misc','countdown_target','2003 01 01 00 00 00');
+Irssi::settings_add_str('misc','countdown_message','New year 2003:');
+Irssi::settings_add_str('misc','countdown_command','!countdown');
+Irssi::settings_add_str('misc','countdown_chan','#countdown');
+
+sub sig_public {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	my $ctarget = Irssi::settings_get_str("countdown_target");
+	my $cinfo = Irssi::settings_get_str("countdown_message");
+	my $ccmd = Irssi::settings_get_str("countdown_command");
+	my $cchan = Irssi::settings_get_str("countdown_chan");
+	if ($msg eq $ccmd and lc($target) eq lc($cchan))
+	{
+		if ($ctarget =~ /^(\d+?) (\d+?) (\d+?) (\d+?) (\d+?) (\d+?)$/)
+		{
+			my $sec = timelocal($6,$5,$4,$3,$2-1,$1-1900);
+			$sec -= time;
+			my $min = ($sec/60)-(($sec%60)/60);
+			my $hour = ($min/60)-(($min%60)/60);
+			my $day = ($hour/24)-(($hour%24)/24);
+			$sec = ($sec%60);
+			$min = ($min%60);
+			$hour = ($hour%24);
+			if ($day) { $cinfo = $cinfo." $day d"; }
+			if ($hour) { $cinfo = $cinfo." $hour h"; }
+			if ($min) { $cinfo = $cinfo." $min m"; }
+			if ($sec) { $cinfo = $cinfo." $sec s"; }
+			$server->command("msg $target $cinfo");
+		} else
+		{
+			Irssi::print("Error: countdown.pl misc.countdown_target sould be format <year> <month> <day> <hour> <minute> <second>");
+		}
+	}
+}
+
+Irssi::signal_add_last('message public', 'sig_public');
+Irssi::print("Script : countdown.pl loaded");
diff --git a/scripts/country.pl b/scripts/country.pl
new file mode 100644
index 0000000..c8e98c9
--- /dev/null
+++ b/scripts/country.pl
@@ -0,0 +1,325 @@
+# Print the country name in /WHOIS replies
+# /COUNTRY <code> prints the name for the country code
+# Installation: Add $whois_country somewhere in your /FORMAT whois line
+
+use strict;
+use Irssi 20021028;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.1";
+%IRSSI = (
+	authors         => "Timo Sirainen",
+	contact         => "tss\@iki.fi",
+	name            => "country",
+	description     => "Print the country name in /WHOIS replies",
+	license         => "Public Domain",
+	changed         => "Mon Oct 28 00:29:26 EET 2002"
+);
+
+my %countries;
+my $last_country = "";
+
+sub sig_whois {
+  my ($server, $data, $nick, $host) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+  
+  if ($host =~ /\.([a-zA-Z]+)$/) {
+    $last_country = $countries{lc $1};
+  } else {
+    $last_country = "";
+  }
+}
+
+sub expando_whois_country {
+  return $last_country;
+}
+
+sub cmd_country {
+  my $country = lc shift;
+  if ($country eq "") {
+    Irssi::print("USAGE: /COUNTRY <country code>");
+    return;
+  }
+
+  my $name = $countries{$country};
+  if (!$name) {
+    Irssi::print("Unknown country code: $country");
+  } else {
+    Irssi::print("$country is $name");
+  }
+}
+
+Irssi::command_bind('country', \&cmd_country);
+Irssi::signal_add_first('event 311', \&sig_whois);
+Irssi::expando_create('whois_country', \&expando_whois_country, 
+		      { 'event 311' => 'None' } );
+
+my $countryfile = '
+# list taken from http://www.iana.org/cctld/cctld-whois.htm
+# on 27-10-2002 by Lam
+ac	Ascension Island
+ad	Andorra
+ae	United Arab Emirates
+af	Afghanistan
+ag	Antigua and Barbuda
+ai	Anguilla
+al	Albania
+am	Armenia
+an	Netherlands Antilles
+ao	Angola
+aq	Antarctica
+ar	Argentina
+as	American Samoa
+at	Austria
+au	Australia
+aw	Aruba
+az	Azerbaijan
+ba	Bosnia and Herzegovina
+bb	Barbados
+bd	Bangladesh
+be	Belgium
+bf	Burkina Faso
+bg	Bulgaria
+bh	Bahrain
+bi	Burundi
+bj	Benin
+bm	Bermuda
+bn	Brunei Darussalam
+bo	Bolivia
+br	Brazil
+bs	Bahamas
+bt	Bhutan
+bv	Bouvet Island
+bw	Botswana
+by	Belarus
+bz	Belize
+ca	Canada
+cc	Cocos (Keeling) Islands
+cd	Congo	Democratic Republic of the
+cf	Central African Republic
+cg	Congo	Republic of
+ch	Switzerland
+ci	Cote d\\\'Ivoire
+ck	Cook Islands
+cl	Chile
+cm	Cameroon
+cn	China
+co	Colombia
+cr	Costa Rica
+cu	Cuba
+cv	Cap Verde
+cx	Christmas Island
+cy	Cyprus
+cz	Czech Republic
+de	Germany
+dj	Djibouti
+dk	Denmark
+dm	Dominica
+do	Dominican Republic
+dz	Algeria
+ec	Ecuador
+ee	Estonia
+eg	Egypt
+eh	Western Sahara
+er	Eritrea
+es	Spain
+et	Ethiopia
+fi	Finland
+fj	Fiji
+fk	Falkland Islands (Malvina)
+fm	Micronesia	Federal State of
+fo	Faroe Islands
+fr	France
+ga	Gabon
+gd	Grenada
+ge	Georgia
+gf	French Guiana
+gg	Guernsey
+gh	Ghana
+gi	Gibraltar
+gl	Greenland
+gm	Gambia
+gn	Guinea
+gp	Guadeloupe
+gq	Equatorial Guinea
+gr	Greece
+gs	South Georgia and the South Sandwich Islands
+gt	Guatemala
+gu	Guam
+gw	Guinea-Bissau
+gy	Guyana
+hk	Hong Kong
+hm	Heard and McDonald Islands
+hn	Honduras
+hr	Croatia/Hrvatska
+ht	Haiti
+hu	Hungary
+id	Indonesia
+ie	Ireland
+il	Israel
+im	Isle of Man
+in	India
+io	British Indian Ocean Territory
+iq	Iraq
+ir	Iran (Islamic Republic of)
+is	Iceland
+it	Italy
+je	Jersey
+jm	Jamaica
+jo	Jordan
+jp	Japan
+ke	Kenya
+kg	Kyrgyzstan
+kh	Cambodia
+ki	Kiribati
+km	Comoros
+kn	Saint Kitts and Nevis
+kp	Korea	Democratic People\\\'s Republic
+kr	Korea	Republic of
+kw	Kuwait
+ky	Cayman Islands
+kz	Kazakhstan
+la	Lao People\\\'s Democratic Republic
+lb	Lebanon
+lc	Saint Lucia
+li	Liechtenstein
+lk	Sri Lanka
+lr	Liberia
+ls	Lesotho
+lt	Lithuania
+lu	Luxembourg
+lv	Latvia
+ly	Libyan Arab Jamahiriya
+ma	Morocco
+mc	Monaco
+md	Moldova	Republic of
+mg	Madagascar
+mh	Marshall Islands
+mk	Macedonia	Former Yugoslav Republic
+ml	Mali
+mm	Myanmar
+mn	Mongolia
+mo	Macau
+mp	Northern Mariana Islands
+mq	Martinique
+mr	Mauritania
+ms	Montserrat
+mt	Malta
+mu	Mauritius
+mv	Maldives
+mw	Malawi
+mx	Mexico
+my	Malaysia
+mz	Mozambique
+na	Namibia
+nc	New Caledonia
+ne	Niger
+nf	Norfolk Island
+ng	Nigeria
+ni	Nicaragua
+nl	Netherlands
+no	Norway
+np	Nepal
+nr	Nauru
+nu	Niue
+nz	New Zealand
+om	Oman
+pa	Panama
+pe	Peru
+pf	French Polynesia
+pg	Papua New Guinea
+ph	Philippines
+pk	Pakistan
+pl	Poland
+pm	St. Pierre and Miquelon
+pn	Pitcairn Island
+pr	Puerto Rico
+ps	Palestinian Territories
+pt	Portugal
+pw	Palau
+py	Paraguay
+qa	Qatar
+re	Reunion Island
+ro	Romania
+ru	Russian Federation
+rw	Rwanda
+sa	Saudi Arabia
+sb	Solomon Islands
+sc	Seychelles
+sd	Sudan
+se	Sweden
+sg	Singapore
+sh	St. Helena
+si	Slovenia
+sj	Svalbard and Jan Mayen Islands
+sk	Slovak Republic
+sl	Sierra Leone
+sm	San Marino
+sn	Senegal
+so	Somalia
+sr	Suriname
+st	Sao Tome and Principe
+sv	El Salvador
+sy	Syrian Arab Republic
+sz	Swaziland
+tc	Turks and Caicos Islands
+td	Chad
+tf	French Southern Territories
+tg	Togo
+th	Thailand
+tj	Tajikistan
+tk	Tokelau
+tm	Turkmenistan
+tn	Tunisia
+to	Tonga
+tp	East Timor
+tr	Turkey
+tt	Trinidad and Tobago
+tv	Tuvalu
+tw	Taiwan
+tz	Tanzania
+ua	Ukraine
+ug	Uganda
+uk	United Kingdom
+um	US Minor Outlying Islands
+us	United States
+uy	Uruguay
+uz	Uzbekistan
+va	Holy See (City Vatican State)
+vc	Saint Vincent and the Grenadines
+ve	Venezuela
+vg	Virgin Islands (British)
+vi	Virgin Islands (USA)
+vn	Vietnam
+vu	Vanuatu
+wf	Wallis and Futuna Islands
+ws	Western Samoa
+ye	Yemen
+yt	Mayotte
+yu	Yugoslavia
+za	South Africa
+zm	Zambia
+zw	Zimbabwe
+# these are my own inventions
+com	commercial
+net	network
+org	organisation
+edu	educational
+mil	military
+gov	government
+aero	air-transport
+biz	business
+coop	cooperative
+info	informative
+museum	museum
+name	individual
+pro	profession
+';
+
+foreach my $line (split(/\n/, $countryfile)) {
+  chomp $line;
+  next if ($line =~ /^#/ || $line eq ""); 
+
+  my ($code, $name) = split(/\t/, $line);
+  $countries{$code} = $name;
+}
diff --git a/scripts/cp1250_kick.pl b/scripts/cp1250_kick.pl
new file mode 100644
index 0000000..9ad231d
--- /dev/null
+++ b/scripts/cp1250_kick.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl -w
+#
+# cp1250-kick.pl - skrypt wyrzucaj±cy z kana³u osoby u¿ywaj±ce kodowania cp1250
+#                - kicks people using cp1250 charset from channel
+#
+# /SET cp1250_kick_reason "tekst"	- powód "kopniêcia"
+# /SET cp1250_kick_ops <ON|OFF>	- czy "kopiemy" operatorów kana³u [OFF]
+# /SET cp1250_nokick "#chan_name nickname ..." - lista chronionych kana³ów
+#			i/lub osób, dla których skrypt nie bêdzie dzia³a³
+#
+# Autor: Tomasz Poradowski (batonik@irc.pl)
+# Na podstawie: cp2iso.pl autorstwa Jakuba Jankowskiego <shasta@atn.pl>
+#
+# -----
+# 28.09.2002 kilka drobnych poprawek wprowadzonych przez Jakuba Jankowskiego
+#	- cp1250_kick_ops ma teraz warto¶æ boolean (ON/OFF)
+# -----
+# 06.05.2002 ma³a poprawka w wyszukiwaniu "nicków" na li¶cie chronionych
+# -----
+
+use Irssi;
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.3";
+%IRSSI = (
+        authors         => 'Tomasz Poradowski',
+        contact         => 'batonik@irc.pl',
+        name            => 'cp1250_kick',
+        description     => 'Kicks people using cp1250 charset',
+        license         => 'GPL',
+        changed         => 'Sat Sep 28 12:58:26 CEST 2002'
+);
+
+sub cp1250_kick {
+        my ($server, $data, $nick, $address) = @_;
+        my ($target, $text) = split(/ :/, $data, 2);
+	my $kick_reason = Irssi::settings_get_str('cp1250_kick_reason');
+	my $nokick_list = Irssi::settings_get_str('cp1250_nokick');
+
+	return unless ($target =~ /^[#\!\+]/);
+        if ($text =~ /[\xA5\xB9\x8C\x9C\x8F\x9F]/) {
+		my $chan = Irssi::channel_find($target);
+		my $n = $chan->nick_find($nick);
+		return if ($nokick_list =~ m/\Q$chan->{name}\E|\Q$n->{nick}\E/);
+		return if ($n->{op} && !Irssi::settings_get_bool('cp1250_kick_ops'));
+		if ($chan->{chanop})
+		{
+			Irssi::print("Kopiemy $nick z $target! [cp1250 kick]");
+			$server->send_raw("KICK $target $nick :".$kick_reason);
+		}
+		else
+		{
+			Irssi::print("%R!%n [cp1250 kick] Nie jeste¶ operatorem kana³u $target.");
+		}
+	}
+}
+
+Irssi::settings_add_str('misc', 'cp1250_kick_reason', 'http://windows.online.pl wzywa Ciê! [cp1250 kick]');
+Irssi::settings_add_bool('misc', 'cp1250_kick_ops', 0);
+Irssi::settings_add_str('misc', 'cp1250_nokick', '');
+
+# musi siê wywo³aæ jeszcze przed cp2iso.pl (je¶li siê go u¿ywa)
+Irssi::signal_add_first('event privmsg', 'cp1250_kick');
diff --git a/scripts/crapbuster.pl b/scripts/crapbuster.pl
new file mode 100644
index 0000000..c4c813b
--- /dev/null
+++ b/scripts/crapbuster.pl
@@ -0,0 +1,43 @@
+
+# By Stefan 'tommie' Tomanek
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003020801";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "CRAPbuster",
+    description => "Removes CRAP or CLIENTCRAP messages from your buffer",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    commands	=> "crapbuster"
+);
+
+use Irssi;
+use Irssi::TextUI;
+
+sub cmd_crapbuster ($$$) {
+    my ($args, $server, $witem) = @_;
+    my $limit = $args =~ /^\d+$/ ? $args : -1;
+    my $win = ref $witem ? $witem->window() : Irssi::active_win();
+    my $view = $win->view;
+    my $line = $view->get_lines;
+    $line = $line->next while defined $line->next;
+    while (defined $line->prev){
+	last if $limit == 0;
+	my $level = $line->{info}{level};
+	my $copy = $line;
+	$line = $line->prev;
+	foreach (split / /, Irssi::settings_get_str('crapbuster_levels')) {
+	    next unless ($level == Irssi::level2bits($_));
+	    $view->remove_line($copy);
+	    last;
+	}
+	$limit-- if $limit;
+    }
+    $view->redraw();
+}
+
+Irssi::command_bind('crapbuster', \&cmd_crapbuster);
+Irssi::settings_add_str($IRSSI{name}, 'crapbuster_levels', 'CLIENTCRAP CRAP');
diff --git a/scripts/cron.pl b/scripts/cron.pl
new file mode 100644
index 0000000..bd8d127
--- /dev/null
+++ b/scripts/cron.pl
@@ -0,0 +1,301 @@
+#
+# Short help/usage: 
+# /jobadd hour minute day_of_month month day_of_week command
+# Possibile switches for jobadd: 
+#	-disabled
+#	-server <tag>
+#	-<number>
+# /jobs [-v]
+# /jobdel [-finished] | job_number
+# /jobdisable job_number
+# /jobenable job_number
+# /jobssave
+# /jobsload
+# 
+# Examples of usage:
+# /jobadd 17 45 * * * /echo This will be executed at 17:45
+# /jobadd -5 17 45 * * * /echo The same as above but only 5 times
+# /jobadd * 05 * * * /echo Execute this every hour 5 minutes after the hour
+# /jobadd */6 0 * * * /echo Execute at 0:0, 6:0, 12:0, 18:0
+# /jobadd * */30,45 * * * /echo Execute every hour at 00, 30, 45 minute
+# /jobadd * 1-15/5 * * * /echo at 1,6,11
+#
+# The servertag in -server usually is name from /ircnet, but 
+# should work with servers not in any ircnet (hmm probably)
+# 
+# The format was taken from crontab(5). 
+# The only differences are:
+# 1) hour field is before minute field (why the hell minute is first in
+# 	crontab?). But this could be changed in final version.
+# 2) day of week is 0..6. 0 is Sunday, 1 is Monday, 6 is Saturday. 
+# 	7 is illegal value while in crontab it's the same as 0 (i.e. Sunday).
+# 	I might change this, depends on demand.
+# 3) you can't use names in month and day of week. You must use numbers
+# Type 'man 5 crontab' to know more about allowed values etc.
+#
+# TODO:
+# 	- add full (or almost full) cron functionality
+# 	- probably more efficient checking for job in timeout
+# 	- imput data validation
+# 	? should we remember if the server was given with -server
+#
+# Changelog:
+#	0.11 (2004.12.12)
+#	Job are executed exactly at the time (+- 1s), not up to 59s late
+#
+#	0.10 (2003.03.25):
+#	Added -<number> to execute job only <number> times. Initial patch from
+#		Marian Schubert (M dot Schubert at sh dot cvut dot cz)
+#	
+#	0.9:
+#	Bugfix: according to crontab(5) when both DoM and DoW are restricted
+#		it's enough to only one of fields to match
+#
+# 	0.8:
+# 	Added -disabled to /jobadd
+# 	Added jobs loading and saving to file
+#
+#	0.7:
+#	Bugfixes. Should work now ;)
+#
+#	0.6:
+#	Added month, day of month, day of week
+# 
+# 	0.5:
+# 	Initial testing release
+#
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.11";
+%IRSSI = (
+    authors	=> 'Piotr Krukowiecki',
+    contact	=> 'piotr \at/ krukowiecki /dot\ net',
+    name	=> 'cron aka jobs',
+    description	=> 'cron implementation, allows to execute commands at given interval/time',
+    license	=> 'GNU GPLv2',
+    changed	=> '2004.12.12',
+    url	=> 'http://www.krukowiecki.net/code/irssi/'
+);
+
+my @jobs = ();
+my $seconds = (gmtime(time()))[0];
+my $timeout_tag;
+my $stop_timeout_tag;
+if ($seconds > 0) {
+	$stop_timeout_tag = Irssi::timeout_add((60-$seconds)*1000, 
+		sub { 
+			Irssi::timeout_remove($stop_timeout_tag);
+			$timeout_tag = Irssi::timeout_add(60000, 'sig_timeout', undef);
+		}, undef);
+} else { 
+	$timeout_tag = Irssi::timeout_add(60000, 'sig_timeout', undef);
+}
+my $savefile = Irssi::get_irssi_dir() . "/cron.save";
+
+# First arg - current hour or minute.
+# Second arg - hour or minute specyfications.
+sub time_matches($$) {
+	my ($current, $spec) = @_;
+	foreach my $h (split(/,/, $spec)) {
+		if ($h =~ /(.*)\/(\d+)/) { # */number or number-number/number
+			my $step = $2;
+			if ($1 eq '*') { # */number
+				return 1 if ($current % $step == 0);
+				next;
+			}
+			if ($1 =~ /(\d+)-(\d+)/) { # number-number/number
+				my ($from, $to) = ($1, $2);
+				next if ($current < $from or $current > $to);	# not in range
+				my $current = $current;
+				if ($from > 0) { # shift time
+					$to -= $from;
+					$current -= $from;
+					$from = 0;					
+				}
+				return 1 if ($current % $step == 0);
+				next;
+			}
+			next;
+		}
+		if ($h =~ /(\d+)-(\d+)/) { # number-number
+			return 1 if ($current >= $1 and $current <= $2);
+			next
+		}
+		return 1 if ($h eq '*' or $h == $current); # '*' or exact hour
+	}
+	return 0;
+}
+
+sub sig_timeout {
+	my $ctime = time();
+	my ($cminute, $chour, $cdom, $cmonth, $cdow) = (localtime($ctime))[1,2,3,4,6];
+	$cmonth += 1;
+	foreach my $job (@jobs) {
+		next if ($job->{'disabled'});
+		next if ($job->{'repeats'} == 0);
+		next if (not time_matches($chour, $job->{'hour'}));	
+		next if (not time_matches($cminute, $job->{'minute'}));	
+		next if (not time_matches($cmonth, $job->{'month'}));
+		if ($job->{'dom'} ne '*' and $job->{'dow'} ne '*') {
+			next if (not (time_matches($cdom,  $job->{'dom'}) or 
+				time_matches($cdow, $job->{'dow'})));
+		} else {
+			next if (not time_matches($cdom, $job->{'dom'}));
+			next if (not time_matches($cdow, $job->{'dow'}));
+		}
+		
+		my $server = Irssi::server_find_tag($job->{'server'});
+		if (!$server) {
+			Irssi::print("cron.pl: could not find server '$job->{server}'");
+			next;
+		}
+		$server->command($job->{'commands'});
+		if ($job->{'repeats'} > 0) {
+		    $job->{'repeats'} -= 1;
+		}
+	}
+}
+
+sub cmd_jobs {
+	my ($data, $server, $channel) = @_;
+	my $verbose = ($data eq '-v');
+	Irssi::print("Current Jobs:");
+	foreach (0 .. $#jobs) {
+		my $repeats = $jobs[$_]{'repeats'};
+		my $msg = "$_) ";
+		if (!$verbose) {
+			next if ($repeats == 0);
+			$msg .= "-$repeats " if ($repeats != -1);
+		} else {
+			$msg .= "-$repeats " if ($repeats != -1);
+		}
+
+		$msg .= ($jobs[$_]{'disabled'}?"-disabled ":"")
+			."-server $jobs[$_]{server} "
+			."$jobs[$_]{hour} $jobs[$_]{minute} $jobs[$_]{dom} "
+			."$jobs[$_]{month} $jobs[$_]{dow} "
+			."$jobs[$_]{commands}";
+		Irssi::print($msg); 
+	}
+	Irssi::print("End of List");
+}
+
+# /jobdel job_number
+sub cmd_jobdel {
+	my ($data, $server, $channel) = @_;
+	if ($data eq "-finished") {
+	    foreach (reverse(0 .. $#jobs)) {
+			if ($jobs[$_]{'repeats'} == 0) {
+			    splice(@jobs, $_, 1);
+			    Irssi::print("Removed Job #$_");
+			}
+	    }
+	    return;
+    } elsif ($data !~ /\d+/ or $data < 0 or $data > $#jobs) {
+		Irssi::print("Bad Job Number");
+		return;
+	}
+	splice(@jobs, $data, 1);
+	Irssi::print("Removed Job #$data");
+}
+
+# /jobdisable job_number
+sub cmd_jobdisable {
+	my ($data, $server, $channel) = @_;
+	if ($data < 0 || $data > $#jobs) {
+		Irssi::print("Bad Job Number");
+		return;
+	}
+	$jobs[$data]{'disabled'} = 1;
+	Irssi::print("Disabled job number $data");
+}
+# /jobenable job_number
+sub cmd_jobenable {
+	my ($data, $server, $channel) = @_;
+	if ($data < 0 || $data > $#jobs) {
+		Irssi::print("Bad Job Number");
+		return;
+	}
+	$jobs[$data]{'disabled'} = 0;
+	Irssi::print("Enabled job number $data");
+}
+
+# /jobadd [-X] [-disabled] [-server servertag] hour minute day_of_month month day_of_week command
+sub cmd_jobadd {
+	my ($data, $server, $channel) = @_;
+
+	$server = $server->{tag};
+	my $disabled = 0;
+	my $repeats = -1;
+	while ($data =~ /^\s*-/) { 
+		if ($data =~ s/^\s*-disabled\s+//) { 
+			$disabled = 1;
+			next;
+		}
+		if ($data =~ s/^\s*-(\d+)\s+//) {
+			$repeats = $1;
+			next;
+		}
+		my $comm;
+		($comm, $server, $data) = split(' ', $data, 3);
+		if ($comm ne '-server') {
+			Irssi::print("Bad switch: '$comm'");
+			return;
+		}
+	}
+	my ($hour, $minute, $dom, $month, $dow, $commands) = split(' ', $data, 6);
+	
+	push (@jobs, { 'hour' => $hour, 'minute' => $minute, 'dom' => $dom,
+		'month' => $month, 'dow' => $dow,
+		'server' => $server, 'commands' => $commands,
+		'disabled' => $disabled, 'repeats' => $repeats } );
+	Irssi::print("Job added");
+}
+
+sub cmd_jobssave {
+	if (not open (FILE, "> $savefile")) {
+		Irssi::print("Could not open file '$savefile': $!");
+		return;
+	}
+	foreach (0 .. $#jobs) {
+		next if ($jobs[$_]->{'repeats'} == 0); # don't save finished jobs
+		print FILE 
+			($jobs[$_]->{'repeats'}>0 ? "-$jobs[$_]->{'repeats'} " : "")
+			. ($jobs[$_]{'disabled'}?"-disabled ":"")
+			."-server $jobs[$_]{server} "
+			."$jobs[$_]{hour} $jobs[$_]{minute} $jobs[$_]{dom} "
+			."$jobs[$_]{month} $jobs[$_]{dow} "
+			."$jobs[$_]{commands}\n";
+	}
+	close FILE;
+	Irssi::print("Jobs saved");
+}
+
+sub cmd_jobsload {
+	if (not open (FILE, "$savefile")) {
+		Irssi::print("Could not open file '$savefile': $!");
+		return;
+	}
+	@jobs = ();
+	
+	while (<FILE>) {
+		chomp;
+		cmd_jobadd($_, undef, undef);
+	}
+	
+	close FILE;
+	Irssi::print("Jobs loaded");
+}
+
+Irssi::command_bind('jobs', 'cmd_jobs', 'Cron');
+Irssi::command_bind('jobadd', 'cmd_jobadd', 'Cron');
+Irssi::command_bind('jobdel', 'cmd_jobdel', 'Cron');
+Irssi::command_bind('jobdisable', 'cmd_jobdisable', 'Cron');
+Irssi::command_bind('jobenable', 'cmd_jobenable', 'Cron');
+Irssi::command_bind('jobssave', 'cmd_jobssave', 'Cron');
+Irssi::command_bind('jobsload', 'cmd_jobsload', 'Cron');
+
+# vim:noexpandtab:ts=4
diff --git a/scripts/cwho.pl b/scripts/cwho.pl
new file mode 100644
index 0000000..8b527c4
--- /dev/null
+++ b/scripts/cwho.pl
@@ -0,0 +1,79 @@
+## Usage: /CWHO [-a | -l | -o | -v ] [ mask ]
+
+##  ver 1.1 
+# - added sorting
+# - few fixes
+
+use Irssi 20020300;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.1";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "Cached WHO",
+        description     => "Usage: /CWHO [-a | -l | -o | -v ] [ mask ]",
+        license         => "GNU GPLv2 or later",
+        changed         => "Mon May  6 14:02:25 CEST 2002"
+);
+
+Irssi::theme_register([
+	'cwho_line', '%K[%W$[!-3]0%K][%C$1%B$[9]2%K][%B$[-10]3%P@%B$[34]4%K]%n'
+]);
+
+sub sort_mode {
+	if ($a->[0] eq $b->[0]) {
+		return 0;
+	} elsif ($a->[0] eq "@") {
+		return -1;
+	} elsif ($b->[0] eq "@") {
+		return 1;
+	} elsif ($a->[0] eq "v") {
+		return -1;
+	} elsif ($b->[0] eq "v") {
+		return 1
+	};
+}
+
+Irssi::command_bind 'cwho' => sub {
+	my ($pars, $server, $winit) = @_;
+	$pars =~ s/^\s+//;
+	my @data = split(/ +/, $pars);
+	my ($cmode, $cmask, $i) = ('.', "*!*@*", 0);
+
+	unless ($winit && $winit->{type} eq "CHANNEL") {
+	    Irssi::print("You don't have active channel in that window");
+	    return;
+	}
+
+	my $channel = $winit->{name};
+	
+	while ($_ = shift(@data)) {
+		/^-a$/ and $cmode = '.', next;
+		/^-l$/ and $cmode = 'X', next;
+		/^-o$/ and $cmode = '@', next;
+		/^-v$/ and $cmode = 'v', next;
+		/[!@.]+/ and $cmask = $_, next;
+	}
+
+	my @sorted = ();
+	for my $hash ($winit->nicks()) {
+		my $mode = $hash->{op}? "@" : $hash->{voice}? "v" : " ";
+
+		if ($cmode eq "X") {
+			next if $mode ne " ";
+		} elsif ($mode !~ /$cmode/) {next}
+		
+		next unless $server->mask_match_address($cmask, $hash->{nick}, $hash->{host});	
+
+		my ($user, $host) = split(/@/, $hash->{host});
+		push @sorted, [ $mode, $hash->{nick}, $user, $host ];
+	}
+	
+	@sorted = sort { sort_mode || lc $a->[1] cmp lc $b->[1] } @sorted;
+	
+	$server->printformat($channel, MSGLEVEL_CLIENTCRAP, 'cwho_line', ++$i, @$_) for (@sorted);
+
+	Irssi::print("No matches for \'$cmask\'.") unless $i;
+}
diff --git a/scripts/dancer_forwardfix.pl b/scripts/dancer_forwardfix.pl
new file mode 100644
index 0000000..25df81d
--- /dev/null
+++ b/scripts/dancer_forwardfix.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.03";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'dancer_forwardfix.pl',
+    description => 'This script will fix the Irssi problem with channel forwarding on the Dancer ircd.',
+    license     => 'Public Domain',
+    url         => 'http://irssi.hauwaerts.be/dancer_forwardfix.pl',
+    changed     => 'Sun May  9 01:19:25 2004',
+);
+
+Irssi::theme_register([
+    'fwfix_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
+    'fwfix_reason', '%R>>%n %_Forwardfix:%_ $0 forwarded to $1'
+]);
+
+sub fix_379 {
+
+    my ($server, $data) = @_;
+    my ($nick, $mainchan, $fwdchan, $reason) = split(/ /, $data);
+
+    if ($server && ($server->{'version'} =~ /dancer/)) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fwfix_reason', $mainchan, $fwdchan);
+        Irssi::timeout_add_once(1000, sub { $server->command("PART $mainchan"); }, undef);
+        Irssi::signal_stop;
+    }
+}
+
+Irssi::signal_add('event 379', 'fix_379');
+
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fwfix_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/dancer_hide_477.pl b/scripts/dancer_hide_477.pl
new file mode 100644
index 0000000..abf2256
--- /dev/null
+++ b/scripts/dancer_hide_477.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.01";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'dancer_hide_477.pl',
+    description => 'This script hides the 477 numerics from the dancer IRCd.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/dancer_hide_477.pl',
+    changed     => 'Fri Mar 12 19:46:24 2004',
+);
+
+Irssi::theme_register([
+    'dancer_hide_477_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub hide_477 {
+
+    my ($server, $data) = @_;
+    my ($num, $nick, $auth_nick) = split(/ +/, $_[1], 3);
+
+    if ($server && ($server->{'version'} =~ /dancer/)) {
+        Irssi::signal_stop();
+    }
+}
+
+Irssi::signal_add('event 477', 'hide_477');
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'dancer_hide_477_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/dau.pl b/scripts/dau.pl
new file mode 100644
index 0000000..6b959c0
--- /dev/null
+++ b/scripts/dau.pl
@@ -0,0 +1,5750 @@
+################################################################################
+# $Id: dau.pl 273 2008-02-03 15:27:25Z heidinger $
+################################################################################
+#
+# dau.pl - write like an idiot
+#
+################################################################################
+# Author
+################################################################################
+#
+# Clemens Heidinger <heidinger@dau.pl>
+#
+################################################################################
+# Changelog
+################################################################################
+#
+# dau.pl has a built-in changelog (--changelog switch)
+#
+################################################################################
+# Credits
+################################################################################
+#
+# - Robert Hennig: For the original dau shell script. Out of this script,
+#   merged with some other small Perl and shell scripts and aliases arised the
+#   first version of dau.pl for irssi.
+#
+################################################################################
+# Documentation
+################################################################################
+#
+# dau.pl has a built-in documentation (--help switch)
+#
+################################################################################
+# License
+################################################################################
+#
+# Licensed under the BSD license
+#
+################################################################################
+# Website
+################################################################################
+#
+# http://dau.pl/
+#
+# Additional information, DAU.pm, the dauomat and the dauproxy
+#
+################################################################################
+
+use 5.6.0;
+use File::Basename;
+use File::Path;
+use IPC::Open3;
+use Irssi 20021107.0841;
+use Irssi::TextUI;
+use locale;
+use POSIX;
+use re 'eval';
+use strict;
+use Tie::File;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '2.4.3';
+#$VERSION = '2.4.3 SVN ($LastChangedRevision: 273 $)';
+%IRSSI = (
+          authors     => 'Clemens Heidinger',
+          changed     => '$LastChangedDate: 2008-02-03 16:27:25 +0100 (Sun, 03 Feb 2008) $',
+          commands    => 'dau',
+          contact     => 'heidinger@dau.pl',
+          description => 'write like an idiot',
+          license     => 'BSD',
+          modules     => 'File::Basename File::Path IPC::Open3 POSIX Tie::File',
+          name        => 'DAU',
+          sbitems     => 'daumode',
+          url         => 'http://dau.pl/',
+);
+
+################################################################################
+# Register commands
+################################################################################
+
+Irssi::command_bind('dau', \&command_dau);
+
+################################################################################
+# Register settings
+# setting changed/added => change/add it here
+################################################################################
+
+# boolean
+Irssi::settings_add_bool('misc', 'dau_away_quote_reason', 1);
+Irssi::settings_add_bool('misc', 'dau_away_reminder', 0);
+Irssi::settings_add_bool('misc', 'dau_babble_verbose', 1);
+Irssi::settings_add_bool('misc', 'dau_color_choose_colors_randomly', 1);
+Irssi::settings_add_bool('misc', 'dau_cowsay_print_cow', 0);
+Irssi::settings_add_bool('misc', 'dau_figlet_print_font', 0);
+Irssi::settings_add_bool('misc', 'dau_silence', 0);
+Irssi::settings_add_bool('misc', 'dau_statusbar_daumode_hide_when_off', 0);
+Irssi::settings_add_bool('misc', 'dau_tab_completion', 1);
+
+# Integer
+Irssi::settings_add_int('misc', 'dau_babble_history_size', 10);
+Irssi::settings_add_int('misc', 'dau_babble_verbose_minimum_lines', 2);
+Irssi::settings_add_int('misc', 'dau_cool_maximum_line', 2);
+Irssi::settings_add_int('misc', 'dau_cool_probability_eol', 20);
+Irssi::settings_add_int('misc', 'dau_cool_probability_word', 20);
+Irssi::settings_add_int('misc', 'dau_remote_babble_interval_accuracy', 90);
+
+# String
+Irssi::settings_add_str('misc', 'dau_away_away_text', '$N is away now: [ $reason ]. Away since: $Z. I am currently not available at $T @ $chatnet (sry 4 amsg)!');
+Irssi::settings_add_str('misc', 'dau_away_back_text', '$N is back: [ $reason ]. Away time: [ $time ]. I am available again at $T @ $chatnet (sry 4 amsg)!');
+Irssi::settings_add_str('misc', 'dau_away_options',
+                                                   "--parse_special --bracket -left '!---?[' -right ']?---!' --color -split capitals -random off -codes 'light red; yellow',"  .
+                                                   "--parse_special --bracket -left '--==||{{' -right '}}||==--' --color -split capitals -random off -codes 'light red; light cyan'," .
+                                                   "--parse_special --bracket -left '--==||[[' -right ']]||==--' --color -split capitals -random off -codes 'yellow; light green'"
+);
+Irssi::settings_add_str('misc', 'dau_away_reminder_interval', '1 hour');
+Irssi::settings_add_str('misc', 'dau_away_reminder_text', '$N is still away: [ $reason ]. Away time: [ $time ] (sry 4 amsg)');
+Irssi::settings_add_str('misc', 'dau_babble_options_line_by_line', '--nothing');
+Irssi::settings_add_str('misc', 'dau_babble_options_preprocessing', '');
+Irssi::settings_add_str('misc', 'dau_color_codes', 'blue; green; red; magenta; yellow; cyan');
+Irssi::settings_add_str('misc', 'dau_cool_eol_style', 'random');
+Irssi::settings_add_str('misc', 'dau_cowsay_cowlist', '');
+Irssi::settings_add_str('misc', 'dau_cowsay_cowpath', &def_dau_cowsay_cowpath);
+Irssi::settings_add_str('misc', 'dau_cowsay_cowpolicy', 'allow');
+Irssi::settings_add_str('misc', 'dau_cowsay_cowsay_path', &def_dau_cowsay_cowsay_path);
+Irssi::settings_add_str('misc', 'dau_cowsay_cowthink_path', &def_dau_cowsay_cowthink_path);
+Irssi::settings_add_str('misc', 'dau_daumode_channels', '');
+Irssi::settings_add_str('misc', 'dau_delimiter_string', ' ');
+Irssi::settings_add_str('misc', 'dau_figlet_fontlist', 'mnemonic,term,ivrit');
+Irssi::settings_add_str('misc', 'dau_figlet_fontpath', &def_dau_figlet_fontpath);
+Irssi::settings_add_str('misc', 'dau_figlet_fontpolicy', 'allow');
+Irssi::settings_add_str('misc', 'dau_figlet_path', &def_dau_figlet_path);
+Irssi::settings_add_str('misc', 'dau_files_away', '.away');
+Irssi::settings_add_str('misc', 'dau_files_babble_messages', 'babble_messages');
+Irssi::settings_add_str('misc', 'dau_files_cool_suffixes', 'cool_suffixes');
+Irssi::settings_add_str('misc', 'dau_files_root_directory', "$ENV{HOME}/.dau");
+Irssi::settings_add_str('misc', 'dau_files_substitute', 'substitute.pl');
+Irssi::settings_add_str('misc', 'dau_language', 'en');
+Irssi::settings_add_str('misc', 'dau_moron_eol_style', 'random');
+Irssi::settings_add_str('misc', 'dau_parse_special_list_delimiter', ' ');
+Irssi::settings_add_str('misc', 'dau_random_options',
+                                                      '--substitute --boxes --uppercase,' .
+                                                      "--substitute --color -split capitals -random off -codes 'light red; yellow'," .
+                                                      "--substitute --color -split capitals -random off -codes 'light red; light cyan'," .
+                                                      "--substitute --color -split capitals -random off -codes 'yellow; light green'," .
+                                                      '--substitute --color --uppercase,' .
+                                                      '--substitute --cool,' .
+                                                      '--substitute --delimiter,' .
+                                                      '--substitute --dots --moron,' .
+                                                      '--substitute --leet,' .
+                                                      '--substitute --mix,' .
+                                                      '--substitute --mixedcase --bracket,' .
+                                                      '--substitute --moron --stutter --uppercase,' .
+                                                      '--substitute --moron -omega on,' .
+                                                      '--substitute --moron,' .
+                                                      '--substitute --uppercase --underline,' .
+                                                      '--substitute --words --mixedcase'
+);
+Irssi::settings_add_str('misc', 'dau_remote_babble_channellist', '');
+Irssi::settings_add_str('misc', 'dau_remote_babble_channelpolicy', 'deny');
+Irssi::settings_add_str('misc', 'dau_remote_babble_interval', '1 hour');
+Irssi::settings_add_str('misc', 'dau_remote_channellist', '');
+Irssi::settings_add_str('misc', 'dau_remote_channelpolicy', 'deny');
+Irssi::settings_add_str('misc', 'dau_remote_deop_reply', 'you are on my shitlist now @ $nick');
+Irssi::settings_add_str('misc', 'dau_remote_devoice_reply', 'you are on my shitlist now @ $nick');
+Irssi::settings_add_str('misc', 'dau_remote_op_reply', 'thx 4 op @ $nick');
+Irssi::settings_add_str('misc', 'dau_remote_permissions', '000000');
+Irssi::settings_add_str('misc', 'dau_remote_question_regexp', '%%%DISABLED%%%');
+Irssi::settings_add_str('misc', 'dau_remote_question_reply', 'EDIT_THIS_ONE');
+Irssi::settings_add_str('misc', 'dau_remote_voice_reply', 'thx 4 voice @ $nick');
+Irssi::settings_add_str('misc', 'dau_standard_messages', 'hi @ all');
+Irssi::settings_add_str('misc', 'dau_standard_options', '--random');
+Irssi::settings_add_str('misc', 'dau_words_range', '1-4');
+
+################################################################################
+# Register signals
+# (Note that most signals are set dynamical in the subroutine signal_handling)
+################################################################################
+
+Irssi::signal_add_last('setup changed', \&signal_setup_changed);
+Irssi::signal_add_last('window changed' => sub { Irssi::statusbar_items_redraw('daumode') });
+Irssi::signal_add_last('window item changed' => sub { Irssi::statusbar_items_redraw('daumode') });
+
+################################################################################
+# Register statusbar items
+################################################################################
+
+Irssi::statusbar_item_register('daumode', '', 'statusbar_daumode');
+
+################################################################################
+# Global variables
+################################################################################
+
+# Timer used by --away
+
+our %away_timer;
+
+# babble
+
+our %babble;
+
+# --command -in
+
+our $command_in;
+
+# The command to use for the output (MSG f.e.)
+
+our $command_out;
+
+# '--command -out' used?
+
+our $command_out_activated;
+
+# Counter for the subroutines entered
+
+our $counter_subroutines;
+
+# Counter for the switches
+# --me --moron: --me would be 0, --moron 1
+
+our $counter_switches;
+
+# daumode
+
+our %daumode;
+
+# daumode activated?
+
+our $daumode_activated;
+
+# Help text
+
+our %help;
+$help{options} = <<END;
+%9--away%9
+    Toggle away mode
+
+    %9-channels%9 %U'#channel1/network1, #channel2/network2, ...'%U:
+        Say away message in all those %Uchannels%U
+
+    %9-interval%9 %Utime%U:
+        Remind channel now and then that you're away
+
+    %9-reminder%9 %Uon|off%U:
+        Turn reminder on or off
+
+%9--babble%9
+    Babble a message.
+
+    %9-at%9 %Unicks%U:
+        Comma separated list of nicks to babble at.
+        \$nick1, \$nick2 and so forth of the babble line will be replaced
+        by those nicks.
+
+    %9-cancel%9 %Uon|off%U:
+        Cancel active babble
+
+    %9-filter%9 %Uregular expression%U:
+        Only let through if the babble matches the %Uregular expression%U
+
+    %9-history_size%9 %Un%U:
+        Set the size of the history for this one babble to %Un%U
+
+%9--boxes%9
+    Put words in boxes
+
+%9--bracket%9
+    Bracket the text
+
+    %9-left%9 %Ustring%U:
+        Left bracket
+
+    %9-right%9 %Ustring%U:
+        Right bracket
+
+%9--changelog%9
+    Print the changelog
+
+%9--chars%9
+    Only one character each line
+
+%9--color%9
+    Write in colors
+
+    %9-codes%9 %Ucodes%U:
+        Overrides setting dau_color_codes
+
+    %9-random%9 %Uon|off%U:
+        Choose color randomly from setting dau_color_codes resp.
+        %9--color -codes%9 or take one by one in the exact order given.
+
+    %9-split%9
+        %Ucapitals%U:   Split by capitals
+        %Uchars%U:      Every character another color
+        %Ulines%U:      Every line another color
+        %Uparagraph%U:  The whole paragraph in one color
+        %Urchars%U:     Some characters one color
+        %Uwords%U:      Every word another color
+
+%9--command%9
+    %9-in%9 %Ucommand%U:
+        Feed dau.pl with the output (the public message)
+        that %Ucommand%U produces
+
+    %9-out%9 %Ucommand%U:
+        %Utopic%U for example will set a dauified topic
+
+%9--cool%9
+    Be \$cool[tm]!!!!11one
+
+    %9-eol_style%9 %Ustring%U:
+        Override setting dau_cool_eol_style
+
+    %9-max%9 %Un%U:
+        \$Trademarke[tm] only %Un%U words per line tops
+
+    %9-prob_eol%9 %U0-100%U:
+        Probability that "!!!11one" or something like that will be put at EOL.
+        Set it to 100 and every line will be.
+        Set it to 0 and no line will be.
+
+    %9-prob_word%9 %U0-100%U:
+        Probability that a word will be \$trademarked[tm].
+        Set it to 100 and every word will be.
+        Set it to 0 and no word will be.
+
+%9--cowsay%9
+    Use cowsay to write
+
+    %9-arguments%9 %Uarguments%U:
+        Pass any option to cowsay, f.e. %U'-b'%U or %U'-e XX'%U.
+        Look in the cowsay manualpage for details.
+
+    %9-cow%9 %Ucow%U:
+        The cow to use
+
+    %9-think%9 %Uon|off%U:
+        Thinking instead of speaking
+
+%9--create_files%9
+    Create files and directories of all dau_files_* settings
+
+%9--daumode%9
+    Toggle daumode.
+    Works on a per channel basis!
+
+    %9-modes_in%9 %Umodes%U:
+        All incoming messages will be dauified and the
+        specified modes are used by dau.pl.
+
+    %9-modes_out%9 %Umodes%U:
+        All outgoing messages will be dauified and the
+        specified modes are used by dau.pl.
+
+    %9-perm%9 %U[01][01]%U:
+        Dauify incoming/outgoing messages?
+
+%9--delimiter%9
+    Insert a delimiter-string after each character
+
+    %9-string%9 %Ustring%U:
+        Override setting dau_delimiter_string. If this string
+        contains whitespace, you should quote the string with
+        single quotes.
+
+%9--dots%9
+    Put dots... after words...
+
+%9--figlet%9
+    Use figlet to write
+
+    %9-font%9 %Ufont%U:
+        The font to use
+
+%9--help%9
+    Print help
+
+    %9-setting%9 %Usetting%U:
+        More information about a specific setting
+
+%9--leet%9
+    Write in leet speech
+
+%9--long_help%9
+    Long help, i.e. examples, more about some features, ...
+
+%9--me%9
+    Send a CTCP ACTION instead of a PRIVMSG
+
+%9--mix%9
+    Mix all the characters in a word except for the first and last
+
+%9--mixedcase%9
+    Write in mixed case
+
+%9--moron%9
+    Write in uppercase, mix in some typos, perform some
+    substitutions on the text, ... Just write like a
+    moron
+
+    %9-eol_style%9 %Ustring%U:
+        Override setting dau_moron_eol_style
+
+    %9-level%9 %Un%U:
+        %Un%U gives the level of stupidity applied to text,
+        the higher the stupider.
+        %U0%U is the minimum, %U1%U currently only implemented for dau_language = de.
+
+    %9-omega%9 %Uon|off%U:
+        The fantastic omega mode
+
+    %9-typo%9 %Uon|off%U:
+        Mix in random typos
+
+    %9-uppercase%9 %Uon|off%U:
+        Uppercase text
+
+%9--nothing%9
+    Do nothing
+
+%9--parse_special%9
+    Parse for special metasequences and substitute them.
+
+    %9-irssi_variables%9 %Uon|off%U:
+        Parse irssi special variables like \$N
+
+    %9-list_delimiter%9 %Ustring%U:
+        Set the list delimiter used for \@nicks and \@opnicks to %Ustring%U.
+
+    The special metasequences are:
+
+    - \\n:
+      real newline
+    - \$nick1 .. \$nickN:
+      N different randomly selected nicks
+    - \@nicks:
+      All nicks in channel
+    - \$opnick1 .. \$opnickN:
+      N different randomly selected opnicks
+    - \@opnicks:
+      All nicks in channel with operator status
+    - \$?{ code }:
+      the (perl)code will be evaluated and the last expression
+      returned will replace that metasequence
+    - irssis special variables like \$C for the current
+      channel and \$N for your current nick
+
+    Quoting:
+
+    - \\\$: literal \$
+    - \\\\: literal \\
+
+%9--random%9
+    Let dau.pl choose the options randomly. Get these options from the setting
+    dau_random_options.
+
+    %9-verbose%9 %Uon|off%U:
+        Print what options --random has chosen
+
+%9--reverse%9
+    Reverse the input string
+
+%9--stutter%9
+    Stutter a bit
+
+%9--substitute%9
+    Apply own substitutions from file
+
+%9--underline%9
+    Underline text
+
+%9--uppercase%9
+    Write in upper case
+
+%9--words%9
+    Only a few words each line
+END
+
+# Containing irssi's 'cmdchars'
+
+our $k = Irssi::parse_special('$k');
+
+# Remember your nick mode
+
+our %nick_mode;
+
+# All the options
+
+our %option;
+
+# print() the message or not?
+
+our $print_message;
+
+# Queue holding the switches
+
+our %queue;
+
+# Remember the last switches used by --random so that they don't repeat
+
+our $random_last;
+
+# Signals
+
+our %signal = (
+    'complete word'     => 0,
+    'daumode in'        => 0,
+    'event 404'         => 0,
+    'event privmsg'     => 0,
+    'nick mode changed' => 0,
+    'send text'         => 0,
+);
+
+# All switches that may be given at commandline
+
+our %switches = (
+
+    # These switches may be combined
+
+    combo  => {
+                boxes     => { 'sub'  => \&switch_boxes },
+                bracket   => {
+                              'sub' => \&switch_bracket,
+                               left  => { '*' => 1 },
+                               right => { '*' => 1 },
+                             },
+                chars     => { 'sub' => \&switch_chars },
+                color     => {
+                              'sub'   => \&switch_color,
+                              codes   => { '*' => 1 },
+                              random  => {
+                                           off => 1,
+                                           on  => 1,
+                                          },
+                              'split' => {
+                                          capitals  => 1,
+                                          chars     => 1,
+                                          lines     => 1,
+                                          paragraph => 1,
+                                          rchars    => 1,
+                                          words     => 1,
+                                         },
+                             },
+                command   => {
+                              'sub' => \&switch_command,
+                               in   => { '*' => 1 },
+                               out  => { '*' => 1 },
+                               },
+                cool      => {
+                              'sub'      => \&switch_cool,
+                               eol_style => {
+                                             suffixes          => 1,
+                                             exclamation_marks => 1,
+                                             random            => 1,
+                                            },
+                               max       => { '*' => 1 },
+                               prob_eol  => { '*' => 1 },
+                               prob_word => { '*' => 1 },
+                             },
+                cowsay    => {
+                              'sub'       => \&switch_cowsay,
+                               arguments  => { '*' => 1 },
+                               think      => {
+                                              off => 1,
+                                              on  => 1,
+                                             },
+                             },
+                delimiter => {
+                              'sub'    => \&switch_delimiter,
+                               string  => { '*' => 1 },
+                             },
+                dots      => { 'sub' => \&switch_dots },
+                figlet    => { 'sub' => \&switch_figlet },
+                me        => { 'sub' => \&switch_me },
+                mix       => { 'sub' => \&switch_mix },
+                moron     => {
+                              'sub'      => \&switch_moron,
+                               eol_style => {
+                                             nothing => 1,
+                                             random  => 1,
+                                            },
+                               level     => { '*' => 1 },
+                               omega     => {
+                                             off => 1,
+                                             on  => 1,
+                                            },
+                               typo      => {
+                                             off => 1,
+                                             on  => 1,
+                                            },
+                               uppercase => {
+                                             off => 1,
+                                             on  => 1,
+                                            },
+                             },
+                leet          => { 'sub' => \&switch_leet },
+                mixedcase     => { 'sub' => \&switch_mixedcase },
+                nothing       => { 'sub' => \&switch_nothing },
+                parse_special => {
+                                  'sub' => \&switch_parse_special,
+                                  irssi_variables => {
+                                                      off => 1,
+                                                      on  => 1,
+                                                     },
+                                  list_delimiter  => { '*' => 1 },
+                                 },
+                'reverse'     => { 'sub' => \&switch_reverse },
+                stutter       => { 'sub' => \&switch_stutter },
+                substitute    => { 'sub' => \&switch_substitute },
+                underline     => { 'sub' => \&switch_underline },
+                uppercase     => { 'sub' => \&switch_uppercase },
+                words         => { 'sub' => \&switch_words },
+               },
+
+    # The following switches must not be combined
+
+    nocombo => {
+                away         => {
+                                 'sub' => \&switch_away,
+                                 channels => { '*' => 1 },
+                                 interval => { '*' => 1 },
+                                 reminder => {
+                                              on  => 1,
+                                              off => 1,
+                                             },
+                                },
+                babble       => {
+                                 'sub'        => \&switch_babble,
+                                 at           => { '*' => 1 },
+                                 cancel       => {
+                                                  on  => 1,
+                                                  off => 1,
+                                                 },
+                                 filter       => { '*' => 1 },
+                                 history_size => { '*' => 1 },
+                                },
+                changelog    => { 'sub' => \&switch_changelog },
+                create_files => { 'sub' => \&switch_create_files },
+                daumode      => {
+                                 'sub'      => \&switch_daumode,
+                                  modes_in  => { '*' => 1 },
+                                  modes_out => { '*' => 1 },
+                                  perm      => {
+                                                '00' => 1,
+                                                '01' => 1,
+                                                '10' => 1,
+                                                '11' => 1,
+                                               },
+                                },
+                help         => {
+                                 'sub'     => \&switch_help,
+
+                                 # setting changed/added => change/add it here
+
+                                 setting => {
+                                             # boolean
+                                             dau_away_quote_reason               => 1,
+                                             dau_away_reminder                   => 1,
+                                             dau_babble_verbose                  => 1,
+                                             dau_color_choose_colors_randomly    => 1,
+                                             dau_cowsay_print_cow                => 1,
+                                             dau_figlet_print_font               => 1,
+                                             dau_silence                         => 1,
+                                             dau_statusbar_daumode_hide_when_off => 1,
+                                             dau_tab_completion                  => 1,
+
+                                             # Integer
+                                             dau_babble_history_size             => 1,
+                                             dau_babble_verbose_minimum_lines    => 1,
+                                             dau_cool_maximum_line               => 1,
+                                             dau_cool_probability_eol            => 1,
+                                             dau_cool_probability_word           => 1,
+                                             dau_remote_babble_interval_accuracy => 1,
+
+                                             # String
+                                             dau_away_away_text                  => 1,
+                                             dau_away_back_text                  => 1,
+                                             dau_away_options                    => 1,
+                                             dau_away_reminder_interval          => 1,
+                                             dau_away_reminder_text              => 1,
+                                             dau_babble_options_line_by_line     => 1,
+                                             dau_babble_options_preprocessing    => 1,
+                                             dau_color_codes                     => 1,
+                                             dau_cool_eol_style                  => 1,
+                                             dau_cowsay_cowlist                  => 1,
+                                             dau_cowsay_cowpath                  => 1,
+                                             dau_cowsay_cowpolicy                => 1,
+                                             dau_cowsay_cowsay_path              => 1,
+                                             dau_cowsay_cowthink_path            => 1,
+                                             dau_daumode_channels                => 1,
+                                             dau_delimiter_string                => 1,
+                                             dau_figlet_fontlist                 => 1,
+                                             dau_figlet_fontpath                 => 1,
+                                             dau_figlet_fontpolicy               => 1,
+                                             dau_figlet_path                     => 1,
+                                             dau_files_away                      => 1,
+                                             dau_files_babble_messages           => 1,
+                                             dau_files_cool_suffixes             => 1,
+                                             dau_files_root_directory            => 1,
+                                             dau_files_substitute                => 1,
+                                             dau_language                        => 1,
+                                             dau_moron_eol_style                 => 1,
+                                             dau_parse_special_list_delimiter    => 1,
+                                             dau_random_options                  => 1,
+                                             dau_remote_babble_channellist       => 1,
+                                             dau_remote_babble_channelpolicy     => 1,
+                                             dau_remote_babble_interval          => 1,
+                                             dau_remote_channellist              => 1,
+                                             dau_remote_channelpolicy            => 1,
+                                             dau_remote_deop_reply               => 1,
+                                             dau_remote_devoice_reply            => 1,
+                                             dau_remote_op_reply                 => 1,
+                                             dau_remote_permissions              => 1,
+                                             dau_remote_question_regexp          => 1,
+                                             dau_remote_question_reply           => 1,
+                                             dau_remote_voice_reply              => 1,
+                                             dau_standard_messages               => 1,
+                                             dau_standard_options                => 1,
+                                             dau_words_range                     => 1,
+                                            },
+                                },
+                long_help => { 'sub'    => \&switch_long_help },
+                random    => { 'sub'    => \&switch_random,
+                                verbose => {
+                                            off => 1,
+                                            on  => 1,
+                                           },
+                             },
+               },
+);
+
+################################################################################
+# Code run once at start
+################################################################################
+
+print CLIENTCRAP "dau.pl $VERSION loaded. For help type %9${k}dau --help%9 or %9${k}dau --long_help%9";
+
+signal_setup_changed();
+build_nick_mode_struct();
+signal_handling();
+
+################################################################################
+# Subroutines (commands)
+################################################################################
+
+sub command_dau {
+	my ($data, $server, $witem) = @_;
+	my $output;
+
+	$output = parse_text($data, $witem);
+
+	unless (defined($server) && $server && $server->{connected}) {
+		$print_message = 1;
+	}
+	unless ((defined($witem) && $witem &&
+	       ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')))
+	{
+		$print_message = 1;
+	}
+
+	if ($daumode_activated) {
+
+		if (defined($witem) && $witem &&
+		   ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'))
+		{
+			my $modes_set = 0;
+
+			# daumode set with parameters (modes_in)
+
+			if ($queue{0}{daumode}{modes_in}) {
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_in_modes}{$server->{tag}}{$witem->{name}} =
+				$queue{0}{daumode}{modes_in};
+				$modes_set = 1;
+			}
+
+			# daumode set with parameters (modes_out)
+
+			if ($queue{0}{daumode}{modes_out}) {
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} =
+				$queue{0}{daumode}{modes_out};
+				$modes_set = 1;
+			}
+
+			# daumode set without parameters
+
+			if (!$daumode{channels_in}{$server->{tag}}{$witem->{name}} &&
+			    !$daumode{channels_out}{$server->{tag}}{$witem->{name}} &&
+			    !$modes_set)
+			{
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_in_modes}{$server->{tag}}{$witem->{name}} = '';
+				$daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} = '';
+			}
+
+			# daumode unset
+
+			elsif (($daumode{channels_in}{$server->{tag}}{$witem->{name}}  ||
+			        $daumode{channels_out}{$server->{tag}}{$witem->{name}}) &&
+			        !$modes_set)
+			{
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 0;
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 0;
+				$daumode{channels_in_modes}{$server->{tag}}{$witem->{name}} = '';
+				$daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} = '';
+			}
+
+
+			# the perm-option overrides everything
+
+			# perm: 00
+
+			if ($queue{0}{daumode}{perm} eq '00') {
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 0;
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 0;
+				$daumode{channels_in_modes}{$server->{tag}}{$witem->{name}} = '';
+				$daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} = '';
+			}
+
+			# perm: 01
+
+			if ($queue{0}{daumode}{perm} eq '01') {
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 0;
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_in_modes}{$server->{tag}}{$witem->{name}} = '';
+			}
+
+			# perm: 10
+
+			if ($queue{0}{daumode}{perm} eq '10') {
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 0;
+				$daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} = '';
+			}
+
+			# perm: 11
+
+			if ($queue{0}{daumode}{perm} eq '11') {
+				$daumode{channels_in}{$server->{tag}}{$witem->{name}} = 1;
+				$daumode{channels_out}{$server->{tag}}{$witem->{name}} = 1;
+			}
+
+			Irssi::statusbar_items_redraw('daumode');
+		}
+
+		# Signal handling (for daumode and signal 'send text')
+
+		signal_handling();
+
+		return;
+	}
+
+	# MSG (or CTCP ACTION) $output to active channel/query-window
+
+	{
+		no strict 'refs';
+
+		$output = $output || '';
+		output_text($witem, $witem->{name}, $output);
+	}
+}
+
+################################################################################
+# Subroutines (switches, must not be combined)
+################################################################################
+
+sub switch_away {
+	my ($reason, $channel_rec, $reminder, $interval) = @_;
+	my $output;
+	my $time;
+	my $status = 'away';
+
+	################################################################################
+	################################################################################
+	# Get and handle options
+	################################################################################
+	################################################################################
+
+	################################################################################
+	# "/dau --away -interval <interval>" resp. dau_away_reminder_interval setting
+	################################################################################
+
+	# If called from command line, i.e. not by the
+	# "/dau --away -channels '<channels>'" workaround, $interval will be defined
+	# here
+	if (!defined($interval)) {
+		$interval = time_parse(return_option('away', 'interval', $option{dau_away_reminder_interval}));
+	}
+	if ($interval < 10 || $interval > 1000000000) {
+		print_err('Invalid value for away timer!');
+		return;
+	}
+
+	################################################################################
+	# setting dau_away_options
+	################################################################################
+
+	my $options = return_random_list_item($option{dau_away_options});
+
+	################################################################################
+	# "/dau --away -reminder <on|off>" resp. dau_away_reminder setting
+	################################################################################
+
+	# If called from command line, i.e. not by "/dau --away -channels '<channels>'"
+	# workaround, $reminder will be defined here
+	if (!defined($reminder)) {
+		$reminder = return_option('away', 'reminder', $option{dau_away_reminder});
+	}
+
+	# on -> 1, off -> 0
+	if ($reminder eq 'on' || $reminder == 1) {
+		$reminder = 1;
+	} else {
+		$reminder = 0;
+	}
+
+	################################################################################
+	# "/dau --away -channels '<channels>'"
+	################################################################################
+
+	# Go through all channels and for each call this subroutine again with
+	# $reminder and $interval as additional parameter as those otherwise would be
+	# lost. Sad world.
+
+	my $channels = return_option('away', 'channels');
+	# If not deleted, the program may loop here.
+	undef($queue{0}{away}{channels});
+	while ($channels =~ m{([^/]+)/([^,]+),?\s*}g) {
+		my $channel = $1;
+		my $network = $2;
+
+		my $server_rec  = Irssi::server_find_tag($network);
+		my $channel_rec = $server_rec->channel_find($channel);
+
+		if (defined($channel_rec) && $channel_rec &&
+		       ($channel_rec->{type} eq 'CHANNEL' || $channel_rec->{type} eq 'QUERY'))
+		{
+			switch_away($reason, $channel_rec, $reminder, $interval);
+		}
+
+	}
+	# "/dau --away -channels '<channels>'" first run => exit
+	return if ($channels);
+
+	################################################################################
+	# Now we are clear (from -channels)...
+	################################################################################
+
+	# Normal "/dau --away" (i.e. no -channels), but called from non
+	# channel/query window => exit
+	unless (defined($channel_rec) && $channel_rec &&
+	       ($channel_rec->{type} eq 'CHANNEL' || $channel_rec->{type} eq 'QUERY'))
+	{
+		return;
+	}
+
+	my $channel = $channel_rec->{name};
+	my $network = $channel_rec->{server}->{tag};
+	my $id      = "$channel/$network";
+
+	################################################################################
+	# Open file
+	################################################################################
+
+	my $file = "$option{dau_files_root_directory}/$option{dau_files_away}";
+	my @file;
+	unless (tie(@file, 'Tie::File', $file)) {
+		print_err("Cannot tie $file!");
+		return;
+	}
+
+	################################################################################
+	# Go through/edit file
+	################################################################################
+
+	# Format:
+	# channel | network | time | options | reminder | interval | reason
+	my $i = 0;
+	foreach my $line (@file) {
+		if ($line =~ m{^\Q$channel\E\x02\Q$network\E\x02(\d+)\x02([^\x02]*)\x02(?:\d)\x02(?:\d+)\x02(.*)}) {
+			$time = $1;
+			$options = $2;
+			$reason = $3;
+			$status = 'back';
+			last;
+		}
+		$i++;
+	}
+
+	if ($status eq 'away' && $reason eq '') {
+		print_out('Please set reason for your being away!');
+		return;
+	}
+
+	if ($status eq 'away') {
+		push(@file, "$channel\x02$network\x02" . time . "\x02$options\x02$reminder\x02$interval\x02$reason");
+		$output = $option{dau_away_away_text};
+	}
+
+	if ($status eq 'back') {
+		splice(@file, $i, 1);
+		$output = $option{dau_away_back_text};
+	}
+
+	################################################################################
+	# Special variables
+	################################################################################
+
+	# $time
+
+	if ($status eq 'back') {
+		my $difference = time_diff_verbose(time, $time);
+		$output =~ s/\$time/$difference/g;
+	}
+
+	# $reason
+
+	if ($option{dau_away_quote_reason}) {
+		$reason =~ s/\\/\\\\/g;
+		$reason =~ s/\$/\\\$/g;
+	}
+	$output =~ s/\$reason/$reason/g;
+
+	################################################################################
+	# Write changes back to file
+	################################################################################
+
+	untie(@file);
+
+	################################################################################
+	# The reminder timer
+	################################################################################
+
+	if ($status eq 'away' && $reminder) {
+		$away_timer{$id} = Irssi::timeout_add($interval, \&timer_away_reminder, $id);
+	} else {
+		Irssi::timeout_remove($away_timer{$id});
+	}
+
+	################################################################################
+	# Print message to channel
+	################################################################################
+
+	$output = parse_text("$options $output", $channel_rec);
+	output_text($channel_rec, $channel_rec->{name}, $output);
+
+	return;
+}
+
+sub switch_babble {
+	my ($data, $channel) = @_;
+	my $text;
+
+	# Cancel babble?
+
+	if (lc(return_option('babble', 'cancel')) eq 'on') {
+		if (defined($babble{timer_writing})) {
+			Irssi::timeout_remove($babble{timer_writing});
+			undef($babble{timer_writing});
+
+			if ($babble{remote}) {
+				timer_remote_babble_reset();
+			}
+
+			print_out("Babble cancelled.");
+		}
+		return;
+	}
+
+	# Filters
+
+	my @filter = ();
+	my $option_babble_at           = return_option('babble', 'at');
+	my $option_babble_filter       = return_option('babble', 'filter');
+	my $option_babble_history_size = return_option('babble', 'history_size', $option{dau_babble_history_size});
+
+	if ($option_babble_filter) {
+		push(@filter, $option_babble_filter);
+	}
+
+	# If something is babbling right now, exit
+
+	if (defined($babble{timer_writing})) {
+		print_err("You are already babbling something!");
+		return;
+	}
+
+	# get text from file
+
+	if ($option_babble_at) {
+		my @nicks;
+		foreach my $nick (split(/\s*,\s*/, $option_babble_at)) {
+			push(@nicks, $nick);
+		}
+		if (@nicks > 0) {
+			for (my $i = 1; $i <= $#nicks + 1; $i++) {
+				push(@filter, '\$nick' . $i);
+			}
+		}
+
+		$text = &babble_get_text($channel, \@filter, \@nicks, $option_babble_history_size);
+	} else {
+		$text = &babble_get_text($channel, \@filter, undef, $option_babble_history_size);
+	}
+
+	# babble only in channels
+
+	unless (defined($channel) && $channel && $channel->{type} eq 'CHANNEL') {
+		print_out('%9--babble%9 will only work in channel windows!');
+		return;
+	}
+
+	# Start the babbling
+
+	babble_start($channel, $text, 0);
+
+	return;
+}
+
+sub switch_changelog {
+	my $output;
+	$print_message = 1;
+
+	$output = &fix(<<"	END");
+	CHANGELOG
+
+	2002-05-05    release 0.1.0
+	              initial release
+
+	2002-05-06    release 0.1.1
+	              maintenance release
+
+	2002-05-11    release 0.2.0
+	              new feature: %9--delimiter%9
+
+	2002-05-12    release 0.3.0
+	              new feature: %9--mixedcase%9
+
+	2002-05-17    release 0.4.0
+	              %9--delimiter%9 revised
+
+	2002-05-20    release 0.4.1
+	              some nice new substitutions for %9--moron%9
+
+	2002-05-24    release 0.5.0
+	              new settings for %9--figlet%9
+
+	2002-06-15    release 0.6.0
+	              new settings for %9--figlet%9
+
+	2002-06-16    release 0.6.1
+	              maintenance release
+
+	2002-06-16    release 0.6.2
+	              maintenance release
+
+	2002-06-17    release 0.7.0
+	              new stuff for %9--moron%9
+
+	2002-06-19    release 0.8.0
+	              new feature: %9--dots%9
+
+	2002-06-23    release 0.9.0
+	              new "reply to question" remote feature
+
+	2002-06-23    release 0.9.1
+	              maintenance release
+
+	2002-06-29    release 0.9.2
+	              maintenance release
+
+	2002-07-23    release 0.9.3
+	              maintenance release
+
+	2002-07-28    release 1.0.0
+	              - Tabcompletion for the switches
+	              - new feature: %9--changelog%9
+	              - new feature: %9--help%9
+	              - new feature: %9--leet%9
+	              - new feature: %9--reverse%9
+
+	2002-07-28    release 1.0.1
+	              maintenance release
+
+	2002-09-01    release 1.0.2
+	              maintenance release
+
+	2002-09-03    release 1.0.3
+	              new switch for %9--figlet%9: %9-font%9
+
+	2002-09-03    release 1.0.4
+	              maintenance release
+
+	2002-09-03    release 1.0.5
+	              maintenance release
+
+	2002-09-09    release 1.1.0
+	              You can combine switches now!
+
+	2002-11-22    release 1.2.0
+	              - new setting: %9dau_moron_eol_style%9
+	              - new setting: %9dau_standard_messages%9
+	              - new setting: %9dau_standard_options%9
+	              - new remote features: Say something on (de)op/(de)voice
+	              - new switch for %9--delimiter%9: %9-string%9
+	              - new switch for %9--moron%9: %9-eol_style%9
+	              - new feature: %9--color%9
+	              - new feature: %9--daumode%9
+	              - new feature: %9--random%9
+	              - new feature: %9--stutter%9
+	              - new feature: %9--uppercase%9
+	              - new statusbar item: %9daumode%9
+
+	2002-11-27    release 1.2.1
+	              maintenance release
+
+	2002-12-15    release 1.2.2
+	              maintenance release
+
+	2003-01-12    release 1.3.0
+	              - new setting: %9dau_files_root_directory%9
+	              - %9--moron%9: randomly transpose letters with letters
+	                next to them at the keyboard
+	              - new switch for %9--moron%9: %9-uppercase%9
+	              - new feature: %9--create_files%9
+
+	2003-01-17    release 1.4.0
+	              - %9--color%9 revised
+	              - new remote feature: babble
+
+	2003-01-18    release 1.4.1
+	              maintenance release
+
+	2003-01-20    release 1.4.2
+	              new setting: %9dau_statusbar_daumode_hide_when_off%9
+
+	2003-02-01    release 1.4.3
+	              maintenance release
+
+	2003-02-09    release 1.4.4
+	              maintenance release
+
+	2003-02-16    release 1.4.5
+	              maintenance release
+
+	2003-03-16    release 1.4.6
+	              maintenance release
+
+	2003-05-01    release 1.5.0
+	              - new setting: %9dau_tab_completion%9
+	              - new feature: %9--bracket%9
+
+	2003-06-13    release 1.5.1
+	              new feature: %9--underline%9
+
+	2003-07-16    release 1.5.2
+	              new feature: %9--boxes%9
+
+	2003-08-16    release 1.5.3
+	              maintenance release
+
+	2003-09-14    release 1.5.4
+	              maintenance release
+
+	2003-11-16    release 1.6.0
+	              - Incoming messages can be dauified now!
+	              - daumode statusbar item revised
+
+	2004-03-25    release 1.7.0
+	              - new setting: %9dau_babble_options_line_by_line%9
+	              - new setting: %9dau_files_babble_messages%9
+	              - new switch for %9--color%9: %9-split paragraph%9
+	              - new switch for %9--command%9: %9-in%9
+	              - new switch for %9--moron%9: %9-omega%9
+	              - new feature: %9--cowsay%9
+	              - new feature: %9--mix%9 (by Martin Kihlgren <zond\@troja.ath.cx>)
+
+	2004-04-01    release 1.7.1
+	              - new setting: %9dau_remote_babble_channellist%9
+	              - new setting: %9dau_remote_babble_channelpolicy%9
+	              - new setting: %9dau_remote_babble_interval_accuracy%9
+
+	2004-04-02    release 1.7.2
+	              maintenance release
+
+	2004-04-05    release 1.7.3
+	              maintenance release
+
+	2004-05-01    release 1.8.0
+	              - new feature: %9--babble%9
+	              - %9--help%9 revised
+
+	2004-06-24    release 1.8.1
+	              - new setting: %9dau_babble_verbose%9
+	              - new setting: %9dau_babble_verbose_minimum_lines%9
+
+	2004-07-10    release 1.8.2
+	              maintenance release
+
+	2004-07-25    release 1.8.3
+	              maintenance release
+
+	2004-09-14    release 1.8.4
+	              maintenance release
+
+	2004-10-18    release 1.8.5
+	              maintenance release
+
+	2004-11-07    release 1.8.6
+	              maintenance release
+
+	2005-01-28    release 1.9.0
+	              - new setting: %9dau_cowsay_cowthink_path%9
+	              - new switch for %9--cowsay%9: %9-arguments%9
+	              - new switch for %9--cowsay%9: %9-think%9
+
+	2005-06-05    release 2.0.0
+	              - new setting: %9dau_color_choose_colors_randomly%9
+	              - new setting: %9dau_color_codes%9
+	              - new setting: %9dau_language%9
+	              - new setting: %9dau_remote_question_regexp%9
+	              - new switch for %9--bracket%9: %9-left%9
+	              - new switch for %9--bracket%9: %9-right%9
+	              - new switch for %9--color%9: %9-codes%9
+	              - new switch for %9--color%9: %9-random%9
+	              - new switch for %9--color%9: %9-split capitals%9
+	              - new feature: %9--away%9
+	              - new feature: %9--cool%9
+	              - new feature: %9--long_help%9
+	              - new feature: %9--parse_special%9
+
+	2005-07-01    release 2.1.0
+	              - new switch for %9--babble%9: %9-at%9
+	              - %9--color%9: Support for background colors
+	              - %9--color -codes%9: You may use now the color names
+	                instead of the numeric color codes
+
+	2005-07-24    release 2.1.1
+	              maintenance release
+
+	2005-08-02    release 2.1.2
+	              maintenance release
+
+	2005-11-01    release 2.1.3
+	              maintenance release
+
+	2006-03-11    release 2.1.4
+	              maintenance release
+
+	2006-05-21    release 2.1.5
+	              new switch for %9--babble%9: %9-filter%9
+
+	2006-10-25    release 2.1.6
+	              new switch for %9--babble%9: %9-cancel%9
+
+	2006-11-25    release 2.2.0
+	              new feature: %9--substitute%9
+
+	2007-03-07    release 2.3.0
+	              - new setting: %9dau_daumode_channels%9
+	              - new switch for %9--moron%9: %9-level%9
+	              - new switch for %9--moron%9: %9-typo%9
+	              - new switch for %9--random%9: %9-verbose%9
+
+	2007-03-08    release 2.3.1
+	              maintenance release
+
+	2007-03-11    release 2.3.2
+	              maintenance release
+
+	2007-03-18    release 2.3.3
+	              maintenance release
+
+	2007-06-02    release 2.4.0
+	              - new setting: %9dau_babble_history_size%9
+	              - new switch for %9--babble%9: %9-history_size%9
+
+	2007-06-26    release 2.4.1
+	              maintenance release
+
+	2007-10-11    release 2.4.2
+	              maintenance release
+
+	2008-02-03    release 2.4.3
+	              maintenance release
+	END
+
+	return $output;
+}
+
+sub switch_create_files {
+
+	# create directory dau_files_root_directory if not found
+
+	if (-f $option{dau_files_root_directory}) {
+		print_err("$option{dau_files_root_directory} is a _file_ => aborting");
+		return;
+	}
+	if (-d $option{dau_files_root_directory}) {
+		print_out('directory dau_files_root_directory already exists - no need to create it');
+	} else {
+		if (mkpath([$option{dau_files_root_directory}])) {
+			print_out("creating directory $option{dau_files_root_directory}/");
+		} else {
+			print_err("failed creating directory $option{dau_files_root_directory}/");
+		}
+	}
+
+	# create file dau_files_substitute if not found
+
+	my $file1 = "$option{dau_files_root_directory}/$option{dau_files_substitute}";
+
+	if (-e $file1) {
+
+		print_out("file $file1 already exists - no need to create it");
+
+	} else {
+
+		if (open(FH1, "> $file1")) {
+
+			print FH1 &fix(<<'			END');
+			# dau.pl - http://dau.pl/
+			#
+			# This is the file --moron will use for your own substitutions.
+			# You can use any perlcode in here.
+			# $_ contains the text you can work with.
+			# $_ has to contain the data to be returned to dau.pl at the end.
+			END
+
+			print_out("$file1 created. you should edit it now!");
+
+		} else {
+
+			print_err("cannot write $file1: $!");
+
+		}
+
+		if (!close(FH1)) {
+			print_err("cannot close $file1: $!");
+		}
+	}
+
+	# create file dau_files_babble_messages if not found
+
+	my $file2 = "$option{dau_files_root_directory}/$option{dau_files_babble_messages}";
+
+	if (-e $file2) {
+
+		print_out("file $file2 already exists - no need to create it");
+
+	} else {
+
+		if (open(FH1, "> $file2")) {
+
+			print FH1 &fix(<<'			END');
+			END
+
+			print_out("$file2 created. you should edit it now!");
+
+		} else {
+
+			print_err("cannot write $file2: $!");
+
+		}
+
+		if (!close(FH1)) {
+			print_err("cannot close $file2: $!");
+		}
+	}
+
+	# create file dau_files_cool_suffixes if not found
+
+	my $file3 = "$option{dau_files_root_directory}/$option{dau_files_cool_suffixes}";
+
+	if (-e $file3) {
+
+		print_out("file $file3 already exists - no need to create it");
+
+	} else {
+
+		if (open(FH1, "> $file3")) {
+
+			print FH1 &fix(<<'			END');
+			END
+
+			print_out("$file3 created. you should edit it now!");
+
+		} else {
+
+			print_err("cannot write $file3: $!");
+
+		}
+
+		if (!close(FH1)) {
+			print_err("cannot close $file3: $!");
+		}
+	}
+
+	return;
+}
+
+sub switch_daumode {
+	$daumode_activated = 1;
+}
+
+sub switch_help {
+	my $output;
+	my $option_setting = return_option('help', 'setting');
+	$print_message = 1;
+
+	if ($option_setting eq '') {
+		$output = &fix(<<"		END");
+		%9OPTIONS%9
+
+		$help{options}
+		END
+	}
+
+	# setting changed/added => change/add them below
+
+	# boolean
+
+	elsif ($option_setting eq 'dau_away_quote_reason') {
+		$output = &fix(<<"		END");
+		%9dau_away_quote_reason%9 %Ubool
+
+		If turned on, %9--parse_special%9 will not be able to replace
+		variables which probably aren't one anyway.
+		END
+	}
+	elsif ($option_setting eq 'dau_away_reminder') {
+		$output = &fix(<<"		END");
+		%9dau_away_reminder%9 %Ubool
+
+		Turn the reminder message of %9--away%9 on or off.
+		END
+	}
+	elsif ($option_setting eq 'dau_babble_verbose') {
+		$output = &fix(<<"		END");
+		%9dau_babble_verbose%9 %Ubool
+
+		Before babbling print a message how many lines will be babbled and
+		when finished a notification message.
+		END
+	}
+	elsif ($option_setting eq 'dau_color_choose_colors_randomly') {
+		$output = &fix(<<"		END");
+		%9dau_color_choose_colors_randomly%9 %Ubool
+
+		Choose colors randomly from setting dau_color_codes resp.
+		%9--color -codes%9 or take one by one in the exact order given.
+		END
+	}
+	elsif ($option_setting eq 'dau_cowsay_print_cow') {
+		$output = &fix(<<"		END");
+		%9dau_cowsay_print_cow%9 %Ubool
+
+		Print a message which cow will be used.
+		END
+	}
+	elsif ($option_setting eq 'dau_figlet_print_font') {
+		$output = &fix(<<"		END");
+		%9dau_figlet_print_font%9 %Ubool
+
+		Print a message which font will be used.
+		END
+	}
+	elsif ($option_setting eq 'dau_silence') {
+		$output = &fix(<<"		END");
+		%9dau_silence%9 %Ubool
+
+		Don't print any information message. This does not include
+		error messages.
+		END
+	}
+	elsif ($option_setting eq 'dau_statusbar_daumode_hide_when_off') {
+		$output = &fix(<<"		END");
+		%9dau_statusbar_daumode_hide_when_off%9 %Ubool
+
+		Hide statusbar item when daumode is turned off.
+		END
+	}
+	elsif ($option_setting eq 'dau_tab_completion') {
+		$output = &fix(<<"		END");
+		%9dau_tab_completion%9 %Ubool
+
+		Perhaps someone wants to disable TAB completion for the
+		${k}dau-command because he/she doesn't like it or wants
+		to give the CPU a break (don't know whether it has much
+		influence)
+		END
+	}
+
+	# Integer
+
+	elsif ($option_setting eq 'dau_babble_history_size') {
+		$output = &fix(<<"		END");
+		%9dau_babble_history_size%9 %Uinteger
+
+		Number of lines to store in the babble history.
+		dau.pl will babble no line the history is holding.
+		END
+	}
+	elsif ($option_setting eq 'dau_babble_verbose_minimum_lines') {
+		$output = &fix(<<"		END");
+		%9dau_babble_verbose_minimum_lines%9 %Uinteger
+
+		Minimum lines necessary to produce the output of the verbose
+		information.
+		END
+	}
+	elsif ($option_setting eq 'dau_cool_maximum_line') {
+		$output = &fix(<<"		END");
+		%9dau_cool_maximum_line%9 %Uinteger
+
+		Trademarke[tm] or do \$this only %Un%U words per line tops.
+		END
+	}
+	elsif ($option_setting eq 'dau_cool_probability_eol') {
+		$output = &fix(<<"		END");
+		%9dau_cool_probability_eol%9 %Uinteger
+
+		Probability that "!!!11one" or something like that will be put at EOL.
+		Set it to 100 and every line will be.
+		Set it to 0 and no line will be.
+		END
+	}
+	elsif ($option_setting eq 'dau_cool_probability_word') {
+		$output = &fix(<<"		END");
+		%9dau_cool_probability_word%9 %Uinteger
+
+		Probability that a word will be trademarked[tm].
+		Set it to 100 and every word will be.
+		Set it to 0 and no word will be.
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_babble_interval_accuracy') {
+		$output = &fix(<<"		END");
+		%9dau_remote_babble_interval_accuracy%9 %Uinteger
+
+		Value expressed as a percentage how accurate the timer of
+		the babble feature should be.
+
+		Legal values: 1-100
+
+		%U100%U would result in a very accurate timer.
+		END
+	}
+
+	# String
+
+	elsif ($option_setting eq 'dau_away_away_text') {
+		$output = &fix(<<"		END");
+		%9dau_away_away_text%9 %Ustring
+
+		The text to say when using %9--away%9.
+
+		Special Variables:
+
+		\$reason: Your away reason.
+		END
+	}
+	elsif ($option_setting eq 'dau_away_back_text') {
+		$output = &fix(<<"		END");
+		%9dau_away_back_text%9 %Ustring
+
+		The text to say when you return.
+
+		Special Variables:
+
+		\$reason: Your away reason.
+		\$time:   The time you've been away.
+		END
+	}
+	elsif ($option_setting eq 'dau_away_reminder_interval') {
+		$output = &fix(<<"		END");
+		%9dau_away_reminder_interval%9 %Ustring
+
+		Remind the channel that you're away! Repeat the message
+		in the given interval.
+		END
+	}
+	elsif ($option_setting eq 'dau_away_reminder_text') {
+		$output = &fix(<<"		END");
+		%9dau_away_reminder_text%9 %Ustring
+
+		The text to say when you remind the channel that you're away.
+
+		Special Variables:
+
+		\$reason: Your away reason.
+		\$time:   The time you've been away.
+		END
+	}
+	elsif ($option_setting eq 'dau_away_options') {
+		$output = &fix(<<"		END");
+		%9dau_away_options%9 %Ustring
+
+		Options %9--away%9 will use.
+		END
+	}
+	elsif ($option_setting eq 'dau_babble_options_line_by_line') {
+		$output = &fix(<<"		END");
+		%9dau_babble_options_line_by_line%9 %Ustring
+
+		One single babble may contain several lines. The options
+		specified in this setting are used for every line.
+		END
+	}
+	elsif ($option_setting eq 'dau_babble_options_preprocessing') {
+		$output = &fix(<<"		END");
+		%9dau_babble_options_preprocessing%9 %Ustring
+
+		The options specified in this setting are applied to the
+		whole babble before anything else. Later, the options of
+		the setting %9dau_babble_options_line_by_line%9 are
+		applied to every line of the babble.
+		END
+	}
+	elsif ($option_setting eq 'dau_color_codes') {
+		$output = &fix(<<"		END");
+		%9dau_color_codes%9 %Ustring
+
+		Specify the color codes to use, seperated by semicolons.
+		Example: %Ugreen; red; blue%U. You may use the color code (one
+		or two digits) or the color names. So either
+		%U2%U or %Ublue%U is ok. You can set a background color too:
+		%Ured,green%U and you will write with red on a green
+		background.
+		For a complete list of the color codes and names look at
+		formats.txt in the irssi documentation.
+		END
+	}
+	elsif ($option_setting eq 'dau_cool_eol_style') {
+		$output = &fix(<<"		END");
+		%9dau_cool_eol_style%9 %Ustring
+
+		%Uexclamation_marks%U: !!!11one
+		%Urandom%U:            Choose one style randomly
+		%Usuffixes%U:          Suffixes from file
+		END
+	}
+	elsif ($option_setting eq 'dau_cowsay_cowlist') {
+		$output = &fix(<<"		END");
+		%9dau_cowsay_cowlist%9 %Ustring
+
+		Comma separated list of cows. Checkout
+		%9${k}dau --help -setting dau_cowsay_cowpolicy%9
+		to see what this setting is good for.
+		END
+	}
+	elsif ($option_setting eq 'dau_cowsay_cowpath') {
+		$output = &fix(<<"		END");
+		%9dau_cowsay_cowpath%9 %Ustring
+
+		Path to the cowsay-cows (*.cow).
+		END
+	}
+	elsif ($option_setting eq 'dau_cowsay_cowpolicy') {
+		$output = &fix(<<"		END");
+		%9dau_cowsay_cowpolicy%9 %Ustring
+
+		Specifies the policy used to handle the cows in
+		dau_cowsay_cowpath. If set to %Uallow%U, all cows available
+		will be used by the command. You can exclude some cows by
+		setting dau_cowsay_cowlist. If set to %Udeny%U, no cows but
+		the ones listed in dau_cowsay_cowlist will be used by the
+		command. Useful if you have many annoying cows in your
+		cowpath and you want to permit only a few of them.
+		END
+	}
+	elsif ($option_setting eq 'dau_cowsay_cowsay_path') {
+		$output = &fix(<<"		END");
+		%9dau_cowsay_cowsay_path%9 %Ustring
+
+		Should point to the cowsay executable.
+		END
+	}
+	elsif ($option_setting eq 'dau_cowsay_cowthink_path') {
+		$output = &fix(<<"		END");
+		%9dau_cowsay_cowthink_path%9 %Ustring
+
+		Should point to the cowthink executable.
+		END
+	}
+	elsif ($option_setting eq 'dau_daumode_channels') {
+		$output = &fix(<<"		END");
+		%9dau_daumode_channels%9 %U<channel>/<network>:<switches>, ...%U
+
+		Automatically enable the daumode for some channels.
+		%U#foo/bar:-modes_out '--substitute'%U would automatically
+		set the daumode on #foo in network bar to modify outgoing
+		messages with --substitute.
+		END
+	}
+	elsif ($option_setting eq 'dau_delimiter_string') {
+		$output = &fix(<<"		END");
+		%9dau_delimiter_string%9 %Ustring
+
+		Tell %9--delimiter%9 which delimiter to use.
+		END
+	}
+	elsif ($option_setting eq 'dau_figlet_fontlist') {
+		$output = &fix(<<"		END");
+		%9dau_figlet_fontlist%9 %Ustring
+
+		Comma separated list of fonts. Checkout
+		%9${k}dau --help -setting dau_figlet_fontpolicy%9
+		to see what this setting is good for. Use the program
+		`showfigfonts` shipped with figlet to find these fonts.
+		END
+	}
+	elsif ($option_setting eq 'dau_figlet_fontpath') {
+		$output = &fix(<<"		END");
+		%9dau_figlet_fontpath%9 %Ustring
+
+		Path to the figlet-fonts (*.flf).
+		END
+	}
+	elsif ($option_setting eq 'dau_figlet_fontpolicy') {
+		$output = &fix(<<"		END");
+		%9dau_figlet_fontpolicy%9 %Ustring
+
+		Specifies the policy used to handle the fonts in
+		dau_figlet_fontpath. If set to %Uallow%U, all fonts available
+		will be used by the command. You can exclude some fonts by
+		setting dau_figlet_fontlist. If set to %Udeny%U, no fonts but
+		the ones listed in dau_figlet_fontlist will be used by the
+		command. Useful if you have many annoying fonts in your
+		fontpath and you want to permit only a few of them.
+		END
+	}
+	elsif ($option_setting eq 'dau_figlet_path') {
+		$output = &fix(<<"		END");
+		%9dau_figlet_path%9 %Ustring
+
+		Should point to the figlet executable.
+		END
+	}
+	elsif ($option_setting eq 'dau_files_away') {
+		$output = &fix(<<"		END");
+		%9dau_files_away%9 %Ustring
+
+		The file with the away messages.
+		_Must_ be in dau_files_root_directory.
+		END
+	}
+	elsif ($option_setting eq 'dau_files_babble_messages') {
+		$output = &fix(<<"		END");
+		%9dau_files_babble_messages%9 %Ustring
+
+		The file with the babble messages.
+		_Must_ be in dau_files_root_directory.
+		%9${k}dau --create_files%9 will create it.
+
+		Format of the file: Newline separated plain text.
+		The text will be sent through %9--parse_special%9 as well.
+		END
+	}
+	elsif ($option_setting eq 'dau_files_cool_suffixes') {
+		$output = &fix(<<"		END");
+		%9dau_files_cool_suffixes%9 %Ustring
+
+		%9--cool%9 takes randomly one line out of this file
+		and puts it at the end of the line.
+		This file _must_ be in dau_files_root_directory.
+		%9${k}dau --create_files%9 will create it.
+
+		Format of the file: Newline separated plain text.
+		END
+	}
+	elsif ($option_setting eq 'dau_files_root_directory') {
+		$output = &fix(<<"		END");
+		%9dau_files_root_directory%9 %Ustring
+
+		Directory in which all files for dau.pl will be stored.
+		%9${k}dau --create_files%9 will create it.
+		END
+	}
+	elsif ($option_setting eq 'dau_files_substitute') {
+		$output = &fix(<<"		END");
+		%9dau_files_substitute%9 %Ustring
+
+		Your own substitutions file. _Must_ be in
+		dau_files_root_directory.
+		%9${k}dau --create_files%9 will create it.
+		END
+	}
+	elsif ($option_setting eq 'dau_language') {
+		$output = &fix(<<"		END");
+		%9dau_language%9 %Ustring
+
+		%Ude%U: If you are writing in german
+		%Uen%U: If you are writing in english
+		END
+	}
+	elsif ($option_setting eq 'dau_moron_eol_style') {
+		$output = &fix(<<"		END");
+		%9dau_moron_eol_style%9 %Ustring
+
+		What to do at End Of Line?
+
+		%Urandom%U:
+		    - !!!??!!!!!????!??????????!!!1
+		    - =
+		      ?
+		    - ?¿?
+		%Unothing%U: do nothing
+		END
+	}
+	elsif ($option_setting eq 'dau_parse_special_list_delimiter') {
+		$output = &fix(<<"		END");
+		%9dau_parse_special_list_delimiter%9 %Ustring
+
+		Set the list delimiter used for \@nicks and \@opnicks to %Ustring%U.
+		END
+	}
+	elsif ($option_setting eq 'dau_random_options') {
+		$output = &fix(<<"		END");
+		%9dau_random_options%9 %Ustring
+
+		Comma separated list of options %9--random%9 will use. It will
+		take randomly one item of the list. If you set it f.e. to
+		%U--uppercase --color,--mixedcase%U,
+		the probability of printing a colored, uppercased string hello
+		will be 50% as well as the probabilty of printing a mixedcased
+		string hello when typing %9${k}dau --random hello%9.
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_babble_channellist') {
+		$output = &fix(<<"		END");
+		%9dau_remote_babble_channellist%9 %Ustring
+
+		Comma separated list of channels. You'll have to specify the
+		ircnet too.
+		Format: #channel1/IRCNet,#channel2/EFnet
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_babble_channelpolicy') {
+		$output = &fix(<<"		END");
+		%9dau_remote_babble_channelpolicy%9 %Ustring
+
+		Using the default policy %Udeny%U the script won't do anything
+		except in the channels listed in dau_remote_babble_channellist.
+		Using the policy %Uallow%U the script will babble in all
+		channels but the ones listed in dau_remote_babble_channellist.
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_babble_interval') {
+		$output = &fix(<<"		END");
+		%9dau_remote_babble_interval%9 %Ustring
+
+		dau.pl will babble text in the given interval.
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_channellist') {
+		$output = &fix(<<"		END");
+		%9dau_remote_channellist%9 %Ustring
+
+		Comma separated list of channels. You'll have to specify the
+		ircnet too.
+		Format: #channel1/IRCNet,#channel2/EFnet
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_channelpolicy') {
+		$output = &fix(<<"		END");
+		%9dau_remote_channelpolicy%9 %Ustring
+
+		Using the default policy %Udeny%U the script won't do anything
+		except in the channels listed in dau_remote_channellist. Using
+		the policy %Uallow%U the script will reply to all channels but
+		the ones listed in dau_remote_channellist.
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_deop_reply') {
+		$output = &fix(<<"		END");
+		%9dau_remote_deop_reply%9 %Ustring
+
+		Comma separated list of messages (it will take randomly one
+		item of the list) sent to channel if someone deops you (mode
+		change -o).
+		The string given will be processed by the same subroutine
+		parsing the %9${k}dau%9 command.
+
+		Special Variables:
+
+		\$nick: contains the nick of the one who changed the mode
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_devoice_reply') {
+		$output = &fix(<<"		END");
+		%9dau_remote_devoice_reply%9 %Ustring
+
+		Comma separated list of messages (it will take randomly one
+		item of the list) sent to channel if someone devoices you (mode
+		change -v).
+		The string given will be processed by the same subroutine
+		parsing the %9${k}dau%9 command.
+
+		Special Variables:
+
+		\$nick: contains the nick of the one who changed the mode
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_op_reply') {
+		$output = &fix(<<"		END");
+		%9dau_remote_op_reply%9 %Ustring
+
+		Comma separated list of messages (it will take randomly one
+		item of the list) sent to channel if someone ops you (mode
+		change +o).
+		The string given will be processed by the same subroutine
+		parsing the %9${k}dau%9 command.
+
+		Special Variables:
+
+		\$nick: contains the nick of the one who changed the mode
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_permissions') {
+		$output = &fix(<<"		END");
+		%9dau_remote_permissions%9 %U[01][01][01][01][01][01]
+
+		Permit or forbid the remote features.
+
+		First Bit:
+		    Reply to question
+
+		Second Bit:
+		    If someone gives you voice in a channel, thank him!
+
+		Third Bit:
+		    If someone gives you op in a channel, thank him!
+
+		Fourth Bit:
+		    If devoiced, print message
+
+		Fifth Bit:
+		    If deopped, print message
+
+		Sixth Bit:
+		    Babble text in certain intervals
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_question_regexp') {
+		$output = &fix(<<"		END");
+		%9dau_remote_question_regexp%9 %Ustring
+
+		If someone says something matching that regular expression,
+		act accordingly.
+		The regexp will be sent through %9--parse_special%9.
+		Because of that you will have to escape some characters, f.e.
+		\\s to \\\\s for whitespace.
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_question_reply') {
+		$output = &fix(<<"		END");
+		%9dau_remote_question_reply%9 %Ustring
+
+		Comma separated list of reply strings for the question of
+		setting dau_remote_question_regexp (it will randomly choose one
+		item of the list).
+		The string given will be processed by the same subroutine
+		parsing the %9${k}dau%9 command.
+
+		Special Variables:
+
+		\$nick: contains the nick of the one who sent the message to which
+		       dau.pl reacts
+		END
+	}
+	elsif ($option_setting eq 'dau_remote_voice_reply') {
+		$output = &fix(<<"		END");
+		%9dau_remote_voice_reply%9 %Ustring
+
+		Comma separated list of messages (it will take randomly one
+		item of the list) sent to channel if someone voices you (mode
+		change +v).
+		The string given will be processed by the same subroutine
+		parsing the %9${k}dau%9 command.
+
+		Special Variables:
+
+		\$nick: contains the nick of the one who changed the mode
+		END
+	}
+	elsif ($option_setting eq 'dau_standard_messages') {
+		$output = &fix(<<"		END");
+		%9dau_standard_messages%9 %Ustring
+
+		Comma separated list of strings %9${k}dau%9 will use if the user
+		omits the text on the commandline.
+		END
+	}
+	elsif ($option_setting eq 'dau_standard_options') {
+		$output = &fix(<<"		END");
+		%9dau_standard_options%9 %Ustring
+
+		Options %9${k}dau%9 will use if the user omits them on the commandline.
+		END
+	}
+	elsif ($option_setting eq 'dau_words_range') {
+		$output = &fix(<<"		END");
+		%9dau_words_range%9 %Ui-j
+
+		Setup the range howmany words the command should write per line.
+		1 <= i <= j <= 9; i, j element { 1, ... , 9 }. If i == j the command
+		will write i words to the active window.  Else it takes a random
+		number k (element { i, ... , j }) and writes k words per
+		line.
+		END
+	}
+
+	return $output;
+}
+
+sub switch_long_help {
+	my $output;
+	$print_message = 1;
+
+	$output = &fix(<<"	END");
+	%9SYNOPSIS%9
+
+	%9${k}dau [%Uoptions%U] [%Utext%U%9]
+
+	%9DESCRIPTION%9
+
+	dau? What does that mean? It's a german acronym for %9d%9ümmster
+	%9a%9nzunehmender %9u%9ser. In english: stupidest imaginable user.
+
+	With dau.pl every person can write like an idiot on the IRC!
+
+	%9OPTIONS%9
+
+	$help{options}
+	%9EXAMPLES%9
+
+	%9${k}dau --uppercase --mixedcase %Ufoo bar baz%9
+	    Will write %Ufoo bar baz%U in mixed case.
+	    %Ufoo bar baz%U is sent _first_ to %9--uppercase%9, _then_ to
+	    %9--mixedcase%9.
+	    The order in which you put the options on the commandline is
+	    important!
+	    You can see what output a command produces without sending it to
+	    the active channel/query by sending it to a non-channel/query
+	    window.
+
+	%9${k}dau --color --figlet %Ufoo bar baz%9
+	    %9--color%9 is the first to be run and thus color codes will
+	    be inserted.
+	    The string will look like %U\\00302f\\00303o[...]%U when leaving
+	    %9--color%9.
+	    %9--figlet%9 uses then that string as its input.
+	    So you'll have finally an output like
+	    %U02f03o[...]%U in the figlet letters.
+	    You'll probably want to use %9--figlet --color%9 instead.
+
+	%9SPECIAL FEATURES%9
+
+	%9Combine the options%9
+	    You can combine most of the options! So you can write colored
+	    leet messages f.e.. Look in the EXAMPLES section above.
+
+	%9Babble%9
+	    dau.pl will babble text for you. It can do this on its own
+	    in certain intervals or forced by the user using %9--babble%9.
+
+	    Related settings:
+
+	    %9dau_babble_options_line_by_line%9
+	    %9dau_files_babble_messages%9
+	    %9dau_files_root_directory%9
+	    %9dau_remote_babble_channellist%9
+	    %9dau_remote_babble_channelpolicy%9
+	    %9dau_remote_babble_interval%9
+	    %9dau_remote_babble_interval_accuracy%9
+	    %9dau_remote_permissions%9
+
+	    Related switches:
+
+	    %9--babble%9
+	    %9--create_files%9
+
+	%9Daumode%9
+	    Dauify incoming and/or outgoing messages.
+
+	    There is a statusbar item available displaying the current
+	    status of the daumode. Add it with
+	    %9/statusbar <bar> add [-alignment <left|right>] daumode%9
+	    You may customize the look of the statusbar item in the
+	    theme file:
+
+	    sb_daumode = "{sb daumode I: \$0 (\$1) O: \$2 (\$3)}";
+
+	    # \$0: will incoming messages be dauified?
+	    # \$1: modes for incoming messages
+	    # \$2: will outgoing messages be dauified?
+	    # \$3: modes for outgoing messages
+
+	%9Remote features%9
+	    Don't worry, dau.pl won't do anything automatically unless you
+	    unlock these features!
+
+	    %9Babble%9
+	        dau.pl will babble text for you in certain intervals.
+
+	    %9Reply to a question%9
+	        Answer a question as a moron would.
+
+	        Related settings:
+
+	        %9dau_remote_channellist%9
+	        %9dau_remote_channelpolicy%9
+	        %9dau_remote_permissions%9
+	        %9dau_remote_question_regexp%9
+	        %9dau_remote_question_reply%9
+
+	    %9Say something on (de)op/(de)voice%9
+	        Related settings:
+
+	        %9dau_remote_channellist%9
+	        %9dau_remote_channelpolicy%9
+	        %9dau_remote_deop_reply%9
+	        %9dau_remote_devoice_reply%9
+	        %9dau_remote_op_reply%9
+	        %9dau_remote_permissions%9
+	        %9dau_remote_voice_reply%9
+
+	%9TAB Completion%9
+	    There is a really clever TAB Completion included! Since
+	    commands can get very long you definitely want to use it.
+	    It will only complete syntactically correct commands so the
+	    TAB Completion isn't only a time saver, it's a control
+	    instance too. You'll be suprised to see that it even completes
+	    the figlet fonts and cows for cowsay that are available on
+	    your system.
+
+	%9Website%9
+	    $IRSSI{url}:
+	    Additional information, DAU.pm, the dauomat and the dauproxy.
+	END
+
+	return $output;
+}
+
+sub switch_random {
+	my ($data, $channel_rec) = @_;
+	my $output;
+	my (@options, $opt, $text);
+
+	# Push each item of dau_random_options in the @options array.
+
+	while ($option{dau_random_options} =~ /\s*([^,]+)\s*,?/g) {
+		my $item = $1;
+		push @options, $item;
+	}
+
+	# More than one item in @options. Choose one randomly but exclude
+	# the last item chosen.
+
+	if (@options > 1) {
+		@options = grep { $_ ne $random_last } @options;
+		$opt = @options[rand(@options)];
+		$random_last = $opt;
+	}
+
+	# Exact one item in @options - take that
+
+	elsif (@options == 1) {
+		$opt = $options[0];
+		$random_last = $opt;
+	}
+
+
+	# No item in @options - call switch_moron()
+
+	else {
+		$opt = '--moron';
+	}
+
+	# dauify it!
+
+	unless (lc(return_option('random', 'verbose')) eq 'off') {
+		print_out("%9--random%9 has chosen %9$opt%9", $channel_rec);
+	}
+	$text .= $opt . ' ' . $data;
+	$output = parse_text($text, $channel_rec);
+
+	return $output;
+}
+
+################################################################################
+# Subroutines (switches, may be combined)
+################################################################################
+
+sub switch_boxes {
+	my $data = shift;
+
+	# handling punctuation marks:
+	# they will be put in their own box later
+
+	$data =~ s%(\w+)([,.?!;:]+)%
+	           $1 . ' ' . join(' ', split(//, $2))
+	          %egx;
+
+	# separate words (by whitespace) and put them in a box
+
+	$data =~ s/(\s*)(\S+)(\s*)/$1\[$2\]$3/g;
+
+	return $data;
+}
+
+sub switch_bracket {
+	my $data = shift;
+	my $output;
+
+	my $option_left  = return_option('bracket', 'left');
+	my $option_right = return_option('bracket', 'right');
+
+	my %brackets = (
+                        '(('   => '))',
+                        '-=('  => ')=-',
+                        '-=['  => ']=-',
+                        '-={'  => '}=-',
+                        '-=|(' => ')|=-',
+                        '-=|[' => ']|=-',
+                        '-=|{' => '}|=-',
+                        '.:>'  => '<:.',
+                       );
+
+	foreach (keys %brackets) {
+		for my $times (2 .. 3) {
+			my $pre  = $_;
+			my $post = $brackets{$_};
+			$pre  =~ s/(.)/$1 x $times/eg;
+			$post =~ s/(.)/$1 x $times/eg;
+
+			$brackets{$pre} = $post;
+		}
+	}
+
+	$brackets{'!---?['} = ']?---!';
+	$brackets{'(qp=>'}  = '<=qp)';
+	$brackets{'----->'} = '<-----';
+
+	my ($left, $right);
+	if ($option_left && $option_right) {
+		$left  = $option_left;
+		$right = $option_right;
+	} else {
+		$left  = (keys(%brackets))[int(rand(keys(%brackets)))];
+		$right = $brackets{$left};
+	}
+
+	$output = "$left $data $right";
+
+	return $output;
+}
+
+sub switch_chars {
+	my $data = shift;
+	my $output;
+
+	foreach my $char (split //, $data) {
+		$output .= "$char\n";
+	}
+	return $output;
+}
+
+sub switch_command {
+	my ($data, $channel_rec) = @_;
+
+	# -out <command>
+
+	$command_out = return_option('command', 'out');
+	$command_out_activated = 1;
+
+	# -in <command>
+
+	$command_in = '';
+	my $option_command_in = return_option('command', 'in');
+
+	if ($option_command_in) {
+		return unless (defined($channel_rec) && $channel_rec);
+
+		# Deactivate daumode for a brief moment
+		$signal{'send text'} = 0;
+		Irssi::signal_remove('send text', 'signal_send_text');
+
+		# Capture the output
+		Irssi::signal_add_first('command msg', 'signal_command_msg');
+		$channel_rec->command("$option_command_in $data");
+		Irssi::signal_remove('command msg', 'signal_command_msg');
+
+		# Reactivate daumode
+		signal_handling();
+
+		return $command_in;
+	}
+
+	return $data;
+}
+
+sub switch_color {
+	my $data = shift;
+	my (@all_colors, @colors, $output, $split);
+
+	################################################################################
+	# Hack to support UTF-8
+	################################################################################
+
+	if (Irssi::settings_get_str('term_charset') =~ /utf-?8/i) {
+		eval {
+			require Encode;
+			$data = Encode::decode("utf-8", $data);
+		};
+	}
+
+	################################################################################
+	# Get options
+	################################################################################
+
+	my $option_color_split  = return_option('color', 'split', 'words');
+	my $option_color_codes  = return_option('color', 'codes', $option{dau_color_codes});
+	my $option_color_random = return_option('color', 'random', $option{dau_color_choose_colors_randomly});
+	if ($option_color_random eq 'on' || $option_color_random == 1) {
+		$option_color_random = 1;
+	} else {
+		$option_color_random = 0;
+	}
+
+	################################################################################
+	# color name -> color code
+	################################################################################
+
+	$option_color_codes =~ s/\blight green\b/09/gi;
+	$option_color_codes =~ s/\bgreen\b/03/gi;
+	$option_color_codes =~ s/\blight red\b/04/gi;
+	$option_color_codes =~ s/\bred\b/05/gi;
+	$option_color_codes =~ s/\blight cyan\b/11/gi;
+	$option_color_codes =~ s/\bcyan\b/10/gi;
+	$option_color_codes =~ s/\blight blue\b/12/gi;
+	$option_color_codes =~ s/\bblue\b/02/gi;
+	$option_color_codes =~ s/\blight magenta\b/13/gi;
+	$option_color_codes =~ s/\bmagenta\b/06/gi;
+	$option_color_codes =~ s/\blight grey\b/15/gi;
+	$option_color_codes =~ s/\bgrey\b/14/gi;
+
+	$option_color_codes =~ s/\bwhite\b/00/gi;
+	$option_color_codes =~ s/\bblack\b/01/gi;
+	$option_color_codes =~ s/\borange\b/07/gi;
+	$option_color_codes =~ s/\byellow\b/08/gi;
+
+	################################################################################
+	# Produce @all_colors
+	################################################################################
+
+	# <color code>5 shall be a colored 5
+
+	$option_color_codes =~ s/(\d+)/sprintf('%02d', $1)/eg;
+
+	# Fill @all_colors and do error checking
+
+	my @all_colors = split(/\s*;\s*/, $option_color_codes);
+	foreach my $code (@all_colors) {
+		if ($code !~ /^\d+(,\d+)?$/) {
+			print_err("Incorrect color code '$code'!");
+			return $data;
+		}
+	}
+	if (@all_colors == 0) {
+		print_err('No color code found.');
+		return $data;
+	}
+	@colors = @all_colors;
+
+	################################################################################
+	# "-split capitals"
+	################################################################################
+
+	if ($option_color_split eq 'capitals') {
+		$output = $data;
+		my ($color1, $color2);
+		if ($option_color_random) {
+			$color1 = $colors[rand(@colors)];
+			@colors = grep { $_ ne $color1 } @colors unless (@colors == 1);
+			$color2 = $colors[rand(@colors)];
+		} else {
+			if (@colors == 1) {
+				$color1 = $color2 = $colors[0];
+			} else {
+				$color1 = $colors[0];
+				$color2 = $colors[1];
+			}
+		}
+
+		$output =~ s/([[:upper:][:punct:]]+|\b\S)/\003${color1}${1}\003${color2}/g;
+
+		# Remove needless color codes
+		$output =~ s/\003(?:$color1|$color2)( *)\003(?:$color1|$color2)/$1/g;
+		$output =~ s/\003(?:$color1|$color2)$//;
+	}
+
+	################################################################################
+	# Not "-split capitals"
+	################################################################################
+
+	else {
+		if ($option_color_split eq 'chars') {
+			$split = '';
+		} elsif ($option_color_split eq 'lines') {
+			$split = "\n";
+		} elsif ($option_color_split eq 'words') {
+			$split = '\s+';
+		} elsif ($option_color_split eq 'rchars') {
+			$split = '.' x rand(10);
+		} elsif ($option_color_split eq 'paragraph') {
+			$split = "\n";
+		} else {
+			$split = '\s+';
+		}
+
+		my $i = 0;
+		my $background = 0;
+		my $color;
+		for (split /($split)/, $data) {
+			if (/^\s*$/) {
+				$output .= $_;
+				next;
+			}
+			if ($option_color_random) {
+				$color = $colors[rand(@colors)];
+
+				$output .= "\017" if ($background && $color !~ /,/);
+				$output .= "\003" . $color . $_;
+
+				if ($color =~ /,/) {
+					$background = 1;
+				} else {
+					$background = 0;
+				}
+
+				if ($option_color_split eq 'paragraph') {
+					@colors = ($color);
+				} else {
+					@colors = grep { $_ ne $color } @all_colors unless (@all_colors == 1);
+				}
+			} else {
+				$color = $colors[($i++ % ($#colors + 1))];
+
+				if ($option_color_split eq 'paragraph') {
+					$color = $colors[0];
+				}
+
+				$output .= "\017" if ($background && $color !~ /,/);
+				$output .= "\003" . $color . $_;
+
+				if ($color =~ /,/) {
+					$background = 1;
+				} else {
+					$background = 0;
+				}
+			}
+		}
+	}
+
+	return $output;
+}
+
+sub switch_cool {
+	my ($data, $channel) = @_;
+	my $output;
+
+	################################################################################
+	# Get the options
+	################################################################################
+
+	my $option_eol_style = return_option('cool', 'eol_style', $option{dau_cool_eol_style});
+
+	my $option_max = return_option('cool', 'max', $option{dau_cool_maximum_line});
+	if (!defined($option_max) || int($option_max) < 0) {
+		$option_max = INT_MAX;
+	}
+
+	my $option_prob_eol = return_option('cool', 'prob_eol', $option{dau_cool_probability_eol});
+	if (!defined($option_prob_eol) || int($option_prob_eol) < 0 || int($option_prob_eol) > 100) {
+		$option_prob_eol = 20;
+	}
+
+	my $option_prob_word = return_option('cool', 'prob_word', $option{dau_cool_probability_word});
+	if (!defined($option_prob_word) || int($option_prob_word) < 0 || int($option_prob_word) > 100) {
+		$option_prob_word = 20;
+	}
+
+	################################################################################
+	# Insert the trademarks and dollar signs
+	################################################################################
+
+	my $max = $option_max;
+	foreach my $line (split /(\n)/, $data) {
+		foreach my $word (split /(\s)/, $line) {
+			if ($max > 0 && (rand(100) <= $option_prob_word) && $word =~ /^(\w+)([[:punct:]])?$/) {
+				$word = "${1}[tm]${2}";
+				$max--;
+			}
+			if ($max > 0 && (rand(100) <= $option_prob_word) && $word =~ /^(\w+(?:\[tm\])?)([[:punct:]])?$/) {
+				$word = "\$${1}${2}";
+				$max--;
+			}
+			$output .= $word;
+		}
+		$max = $option_max;
+	}
+
+	################################################################################
+	# Reversed smileys
+	################################################################################
+
+	my $hat = '[(<]';
+	my $eyes = '[:;%]';
+	my $nose = '[-]';
+	my $mouth = '[)(><\[\]{}|]';
+
+	$output =~ s{($hat?$eyes$nose?$mouth+)}{
+	             # Supposed to be read from the right to the left.
+	             # Therefore reverse all parenthesis characters:
+
+	             my $tr = $1;
+	             $tr =~ tr/()<>[]\{\}/)(><][\}\{/;
+
+	             # Reverse the rest
+
+	             reverse($tr);
+	            }egox;
+
+	################################################################################
+	# EOL modifications
+	################################################################################
+
+	my $style = $option_eol_style;
+	if ($option_eol_style eq 'random') {
+		if (int(rand(2)) && $output !~ /[?!]$/) {
+			$style = 'exclamation_marks';
+		} else {
+			$style = 'suffixes';
+		}
+	}
+
+	# If there is no suffixes file, go for the exclamation marks
+
+	my $file = "$option{dau_files_root_directory}/$option{dau_files_cool_suffixes}";
+	unless (-e $file && -r $file && !(-z $file)) {
+		$style = 'exclamation_marks';
+	}
+
+	# Skip EOL modifications?
+
+	if (int(rand(100)) > $option_prob_eol) {
+		$style = 'none';
+	}
+
+	# Style determined. Act accordingly:
+
+	if ($style eq 'exclamation_marks') {
+		my @eol;
+		if ($option{dau_language} eq 'de') {
+			@eol = ("eins", "shifteins", "elf", "hundertelf", "tausendeinhundertundelf");
+			for (1 .. 5) {
+				push(@eol, "eins");
+				push(@eol, "elf");
+			}
+		} else {
+			@eol = ("one", "shiftone", "eleven");
+			for (1 .. 5) {
+				push(@eol, "one");
+				push(@eol, "eleven");
+			}
+		}
+
+		$output =~ s/\s*([,.?!])*\s*$//;
+		$output .= '!' x (3 + int(rand(3)));
+		$output .= '1' x (3 + int(rand(3)));
+		$output .= $eol[rand(@eol)] x (1 + int(rand(1)));
+		$output .= $eol[rand(@eol)] x (int(rand(2)));
+	} elsif ($style eq 'suffixes') {
+		my $suffix;
+		if (-e $file && -r $file) {
+			$/ = "\n";
+			@ARGV = ($file);
+			srand;
+			rand($.) < 1 && ($suffix = switch_parse_special($_, $channel)) while <>;
+		}
+		$output =~ s/\s*$//;
+
+		if ($output =~ /^\s*$/) {
+			$output = $suffix;
+		} else {
+			$output .= " " . $suffix;
+		}
+	}
+
+	return $output;
+}
+
+sub switch_cowsay {
+	my $data = shift;
+	my ($binarypath, $output, @cows, %cow, $cow, @cache1, @cache2);
+	my $skip = 1;
+	my $think = return_option('cowsay', 'think');
+
+	my $executable_name;
+	if ($think eq 'on') {
+		$binarypath = $option{dau_cowsay_cowthink_path};
+		$executable_name = 'cowthink';
+	} else {
+		$binarypath = $option{dau_cowsay_cowsay_path};
+		$executable_name = 'cowsay';
+	}
+
+	if (-e $binarypath && !(-f $binarypath)) {
+		print_err("dau_cowsay_${executable_name}_path has to point to the $executable_name executable.");
+		return;
+	} elsif (!(-e $binarypath)) {
+		print_err("$executable_name not found. Install it and set dau_cowsay_${executable_name}_path.");
+		return;
+	}
+
+	if (return_option('cowsay', 'cow')) {
+		$cow = return_option('cowsay', 'cow');
+	} else {
+		while ($option{dau_cowsay_cowlist} =~ /\s*([^,\s]+)\s*,?/g) {
+			$cow{$1} = 1;
+		}
+		foreach my $cow (keys %{ $switches{combo}{cowsay}{cow} }) {
+			if (lc($option{dau_cowsay_cowpolicy}) eq 'allow') {
+				push(@cows, $cow)
+					unless ($cow{$cow});
+			} elsif (lc($option{dau_cowsay_cowpolicy}) eq 'deny') {
+				push(@cows, $cow)
+					if ($cow{$cow});
+			} else {
+				print_err('Invalid value for dau_cowsay_cowpolicy');
+				return;
+			}
+		}
+		if (@cows == 0) {
+			print_err('Cannot find any cowsay cow.');
+			return;
+		}
+		$cow = $cows[rand(@cows)];
+	}
+
+	# Run cowsay or cowthink
+
+	local(*HIS_IN, *HIS_OUT, *HIS_ERR);
+	my @arguments;
+	my $option_arguments = return_option('cowsay', 'arguments');
+	if ($option_arguments) {
+		@arguments = split(/ /, $option_arguments);
+	}
+	my $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $binarypath, '-f', $cow, @arguments);
+
+	print HIS_IN $data or return;
+	close(HIS_IN) or return;
+
+	my @errlines = <HIS_ERR>;
+	my @outlines = <HIS_OUT>;
+	close(HIS_ERR) or return;
+	close(HIS_OUT) or return;
+
+	waitpid($childpid, 0);
+	if ($?) {
+		print_err("That child exited with wait status of $?");
+	}
+
+	# Error during execution? Print errors and return
+
+	unless (@errlines == 0) {
+		print_err('Error during execution of cowsay');
+		foreach my $line (@errlines) {
+			print_err($line);
+		}
+		return;
+	}
+
+	if ($option{dau_cowsay_print_cow}) {
+		print_out("Using cowsay cow $cow");
+	}
+
+	foreach (@outlines) {
+		chomp;
+		if (/^\s*$/ && $skip) {
+			next;
+		} else {
+			$skip = 0;
+		}
+		push(@cache1, $_);
+	}
+	$skip = 1;
+	foreach (reverse @cache1) {
+		chomp;
+		if (/^\s*$/ && $skip) {
+			next;
+		} else {
+			$skip = 0;
+		}
+		push(@cache2, $_);
+	}
+	foreach (reverse @cache2) {
+		$output .= "$_\n";
+	}
+
+	return $output;
+}
+
+sub switch_delimiter {
+	my $data = shift;
+	my $output;
+	my $option_delimiter_string = return_option('delimiter', 'string', $option{dau_delimiter_string});
+
+	foreach my $char (split //, $data) {
+		$output .= $char . $option_delimiter_string;
+	}
+	return $output;
+}
+
+sub switch_dots {
+	my $data = shift;
+
+	$data =~ s/[.]*\s+/
+	           if (rand(10) < 3) {
+	               (rand(10) >= 5 ? ' ' : '')
+	               .
+	               ('...' . '.' x rand(5))
+	               .
+	               (rand(10) >= 5 ? ' ' : '')
+	           } else { ' ' }
+	          /egox;
+	rand(10) >= 5 ? $data .= ' ' : 0;
+	$data .= ('...' . '.' x rand(10));
+
+	return $data;
+}
+
+sub switch_figlet {
+	my $data = shift;
+	my $skip = 1;
+	my ($output, @fonts, %font, $font, @cache1, @cache2);
+
+	if (-e $option{dau_figlet_path} && !(-f $option{dau_figlet_path})) {
+		print_err('dau_figlet_path has to point to the figlet executable.');
+		return;
+	} elsif (!(-e $option{dau_figlet_path})) {
+		print_err('figlet not found. Install it and set dau_figlet_path.');
+		return;
+	}
+
+	if (return_option('figlet', 'font')) {
+		$font = return_option('figlet', 'font');
+	} else {
+		while ($option{dau_figlet_fontlist} =~ /\s*([^,\s]+)\s*,?/g) {
+			$font{$1} = 1;
+		}
+		foreach my $font (keys %{ $switches{combo}{figlet}{font} }) {
+			if (lc($option{dau_figlet_fontpolicy}) eq 'allow') {
+				push(@fonts, $font)
+					unless ($font{$font});
+			} elsif (lc($option{dau_figlet_fontpolicy}) eq 'deny') {
+				push(@fonts, $font)
+					if ($font{$font});
+			} else {
+				print_err('Invalid value for dau_figlet_fontpolicy.');
+				return;
+			}
+		}
+		if (@fonts == 0) {
+			print_err('Cannot find figlet fonts.');
+			return;
+		}
+		$font = $fonts[rand(@fonts)];
+	}
+
+	# Run figlet
+
+	local(*HIS_IN, *HIS_OUT, *HIS_ERR);
+
+	my $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $option{dau_figlet_path}, '-f', $font);
+
+	print HIS_IN $data or return;
+	close(HIS_IN) or return;
+
+	my @errlines = <HIS_ERR>;
+	my @outlines = <HIS_OUT>;
+	close(HIS_ERR) or return;
+	close(HIS_OUT) or return;
+
+	waitpid($childpid, 0);
+	if ($?) {
+		print_err("That child exited with wait status of $?");
+	}
+
+	# Error during execution? Print errors and return
+
+	unless (@errlines == 0) {
+		print_err('Error during execution of figlet');
+		foreach my $line (@errlines) {
+			print_err($line);
+		}
+		return;
+	}
+
+	if ($option{dau_figlet_print_font}) {
+		print_out("Using figlet font $font");
+	}
+
+	foreach (@outlines) {
+		chomp;
+		if (/^\s*$/ && $skip) {
+			next;
+		} else {
+			$skip = 0;
+		}
+		push(@cache1, $_);
+	}
+	$skip = 1;
+	foreach (reverse @cache1) {
+		chomp;
+		if (/^\s*$/ && $skip) {
+			next;
+		} else {
+			$skip = 0;
+		}
+		push(@cache2, $_);
+	}
+	foreach (reverse @cache2) {
+		$output .= "$_\n";
+	}
+
+	return $output;
+}
+
+sub switch_leet {
+	my $data = shift;
+
+	$_ = $data;
+
+	s'fucker'f@#$er'gi;
+	s/hacker/h4x0r/gi;
+	s/sucker/sux0r/gi;
+	s/fear/ph34r/gi;
+
+	s/\b(\w+)ude\b/${1}00d/gi;
+	s/\b(\w+)um\b/${1}00m/gi;
+	s/\b(\w{3,})er\b/${1}0r/gi;
+	s/\bdo\b/d00/gi;
+	s/\bthe\b/d4/gi;
+	s/\byou\b/j00/gi;
+
+	tr/lLzZeEaAsSgGtTbBqQoOiIcC/11223344556677889900||((/;
+	s/(\w)/rand(100) < 50 ? "\u$1" : "\l$1"/ge;
+
+	return $_;
+}
+
+sub switch_me {
+	my $data = shift;
+
+	$command_out = 'ACTION';
+
+	return $data;
+}
+
+# &switch_mix by Martin Kihlgren <zond@troja.ath.cx>
+# slightly modified by myself
+
+sub switch_mix {
+	my $data = shift;
+	my $output;
+
+	while ($data =~ s/(\s*)([^\w]*)([\w]+)([^\w]*)(\s+[^\w]*\w+[^\w]*\s*)*/$5/) {
+		my $prespace = $1;
+		my $prechars = $2;
+		my $w = $3;
+		my $postchars = $4;
+		$output = $output . $prespace . $prechars . substr($w,0,1);
+		my $middle = substr($w,1,length($w) - 2);
+		while ($middle =~ s/(.)(.*)/$2/) {
+			if (rand() > 0.1) {
+				$middle = $middle . $1;
+			} else {
+				$output = $output . $1;
+			}
+		}
+		if (length($w) > 1) {
+			$output = $output . substr($w, length($w) - 1, 1);
+		}
+		$output = $output . $postchars;
+	}
+
+	return $output;
+}
+
+sub switch_mixedcase {
+	my $data = shift;
+
+	$data =~ s/([[:alpha:]])/rand(100) < 50 ? uc($1) : lc($1)/ge;
+
+	return $data;
+}
+
+sub switch_moron {
+	my ($data, $channel_rec) = @_;
+	my $output;
+	my $option_eol_style = return_option('moron', 'eol_style', $option{dau_moron_eol_style});
+	my $option_language  = $option{dau_language};
+
+	################################################################################
+	# -omega on
+	################################################################################
+
+	my $omega;
+
+	if (return_option('moron', 'omega') eq 'on') {
+		my @words = qw(omfg lol wtf);
+
+		foreach (split / (?=\w+\b)/, $data) {
+			if (rand(100) < 20) {
+				$omega .= ' ' . $words[rand(@words)] . " $_";
+			} else {
+				$omega .= ' ' . $_;
+			}
+		}
+
+		$omega =~ s/\s*,\s+\@/ @/g;
+		$omega =~ s/^\s+//;
+	}
+
+	$_ = $omega || $data;
+
+	################################################################################
+	# 'nick: text' -> 'text @ nick'
+	################################################################################
+
+	my $old_list_delimiter = $option{dau_parse_special_list_delimiter};
+	$option{dau_parse_special_list_delimiter} = ' ';
+	my @nicks = split(/ /, switch_parse_special('@nicks', $channel_rec));
+	$option{dau_parse_special_list_delimiter} = $old_list_delimiter;
+	@nicks = map { quotemeta($_) } @nicks;
+
+	{
+		local $" = '|';
+		eval { # Catch strange error
+			s/^(@nicks): (.+)/$2 @ $1/;
+		};
+	}
+
+	################################################################################
+	# Preparations for "EOL modifications" later
+	################################################################################
+
+	# Remove puntuation marks at EOL and ensure there is a single space at EOL.
+	# This is necessary because the EOL-styles 'new' and 'classic' put them at
+	# EOL. If EOL-style is set to 'nothing' don't do this.
+
+	s/\s*([,;.:?!])*\s*$// unless ($option_eol_style eq 'nothing');
+	my $lastchar = $1;
+
+	# Only whitespace? Remove it.
+
+	s/^\s+$//;
+
+	################################################################################
+	# Substitutions for every language
+	################################################################################
+
+	tr/'/`/;
+
+	# Dauify smileys
+
+	{
+		# Use of uninitialized value in concatenation (.) or string at...
+		# (the optional dash ($1) in the regular expressions).
+		# Thus turn off warnings
+
+		no warnings;
+
+		if ($option{dau_language} eq 'de') {
+			if (int(rand(2))) {
+				s/:(-)?\)/^^/go;
+			} else {
+				s/:(-)?\)/':' . $1 . ')))' . (')' x rand(10)) . ('9' x rand(4))/ego;
+			}
+
+			s/;(-)?\)/';' . $1 . ')))' . (')' x rand(10)) . ('9' x rand(4))/ego;
+			s/:(-)?\(/':' . $1 . '(((' . ('(' x rand(10)) . ('8' x rand(4))/ego;
+			s#(^|\s):(-)?/(\s|$)#$1 . ':' . $2 . '///' . ('/' x rand(10)) . ('7' x rand(4)) . $3#ego;
+		} else {
+			if (int(rand(2))) {
+				s/:(-)?\)/^^/go;
+			} else {
+				s/:(-)?\)/':' . $1 . ')))' . (')' x rand(10)) . ('0' x rand(4))/ego;
+			}
+
+			s/;(-)?\)/';' . $1 . ')))' . (')' x rand(10)) . ('0' x rand(4))/ego;
+			s/:(-)?\(/':' . $1 . '(((' . ('(' x rand(10)) . ('9' x rand(4))/ego;
+		}
+	}
+
+	################################################################################
+	# English text
+	################################################################################
+
+	if ($option_language eq 'en') {
+		s/\bthe\b/teh/go;
+	}
+
+	################################################################################
+	# German text
+	################################################################################
+
+	if ($option_language eq 'de') {
+
+		# '*GG*' -> 'ÜGGÜ'
+		{
+			my @a = ('*', 'Ü');
+			my $a = $a[int(rand(@a))];
+			s/\*g\*/$a . 'ggg' . ('g' x rand(10)) . $a/egio;
+		}
+
+		# verbs
+
+		s/\b(f)reuen\b/$1roien/gio;
+		s/\b(f)reue\b/$1roie/gio;
+		s/\b(f)reust\b/$1roist/gio;
+		s/\b(f)reut\b/$1roit/gio;
+
+		s/\b(f)unktionieren\b/$1unzen/gio;
+		s/\b(f)unktioniere\b/$1unze/gio;
+		s/\b(f)unktionierst\b/$1unzt/gio;
+		s/\b(f)unktioniert\b/$1unzt/gio;
+
+		s/\b(h)olen\b/$1ohlen/gio;
+		s/\b(h)ole\b/$1ohle/gio;
+		s/\b(h)olst\b/$1ohlst/gio;
+		s/\b(h)olt\b/$1ohlt/gio;
+
+		s/\b(k)onfigurieren\b/$1 eq 'k' ? 'confen' : 'Confen'/egio;
+		s/\b(k)onfiguriere\b/$1 eq 'k' ? 'confe' : 'Confe'/egio;
+		s/\b(k)onfigurierst\b/$1 eq 'k' ? 'confst' : 'Confst'/egio;
+		s/\b(k)onfiguriert\b/$1 eq 'k' ? 'conft' : 'Conft'/egio;
+
+		s/\b(l)achen\b/$1ölen/gio;
+		s/\b(l)ache\b/$1öle/gio;
+		s/\b(l)achst\b/$1ölst/gio;
+		s/\b(l)acht\b/$1ölt/gio;
+
+		s/\b(m)achen\b/$1 eq 'm' ? 'tun' : 'Tun'/egio;
+		s/\b(m)ache\b/$1 eq 'm' ? 'tu' : 'Tu'/egio;
+		s/\b(m)achst\b/$1 eq 'm' ? 'tust' : 'Tust'/egio;
+
+		s/\b(n)erven\b/$1erfen/gio;
+		s/\b(n)erve\b/$1erfe/gio;
+		s/\b(n)ervst\b/$1erfst/gio;
+		s/\b(n)ervt\b/$1erft/gio;
+
+		s/\b(p)rojizieren\b/$1rojezieren/gio;
+		s/\b(p)rojiziere\b/$1rojeziere/gio;
+		s/\b(p)rojizierst\b/$1rojezierst/gio;
+		s/\b(p)rojiziert\b/$1rojeziert/gio;
+
+		s/\b(r)egistrieren\b/$1egestrieren/gio;
+		s/\b(r)egistriere\b/$1egestriere/gio;
+		s/\b(r)egistrierst\b/$1egestrierst/gio;
+		s/\b(r)egistriert\b/$1egestriert/gio;
+
+		s/\b(s)pazieren\b/$1patzieren/gio;
+		s/\b(s)paziere\b/$1patziere/gio;
+		s/\b(s)pazierst\b/$1patzierst/gio;
+		s/\b(s)paziert\b/$1patziert/gio;
+
+		# other
+
+		s/\bdanke\b/
+		  if (int(rand(2)) == 0) {
+		      'thx'
+		  } else {
+		      'danks'
+		  }
+		 /ego;
+		s/\bDanke\b/
+		  if (int(rand(2)) == 0) {
+		      'Thx'
+		  } else {
+		      'Danks'
+		  }
+		 /ego;
+
+		s/\blol\b/
+		  if (int(rand(2)) == 0) {
+		      'löl'
+		  } else {
+		      'löllens'
+		  }
+		 /ego;
+		s/\bLOL\b/
+		  if (int(rand(2)) == 0) {
+		      'LÖL'
+		  } else {
+		      'LÖLLENS'
+		  }
+		 /ego;
+
+		s/\br(?:ü|ue)ckgrat\b/
+		  if (int(rand(3)) == 0) {
+		      'rückgrad'
+		  } elsif (int(rand(3)) == 1) {
+		      'rückrad'
+		  } else {
+		      'rückrat'
+		  }
+		 /ego;
+		s/\bR(?:ü|ue)ckgrat\b/
+		  if (int(rand(3)) == 0) {
+		      'Rückgrad'
+		  } elsif (int(rand(3)) == 1) {
+		      'Rückrad'
+		  } else {
+		      'Rückrat'
+		  }
+		 /ego;
+
+		s/\b(i)st er\b/$1ssa/gio;
+		s/\bist\b/int(rand(2)) ? 'is' : 'iss'/ego;
+		s/\bIst\b/int(rand(2)) ? 'Is' : 'Iss'/ego;
+
+		s/\b(d)a(?:ss|ß) du\b/$1asu/gio;
+		s/\b(d)a(?:ss|ß)\b/$1as/gio;
+
+		s/\b(s)ag mal\b/$1amma/gio;
+		s/\b(n)ochmal\b/$1omma/gio;
+		s/(m)al\b/$1a/gio;
+
+		s/\b(u)nd nun\b/$1nnu/gio;
+		s/\b(n)un\b/$1u/gio;
+
+		s/\b(s)oll denn\b/$1olln/gio;
+		s/\b(d)enn\b/$1en/gio;
+
+		s/\b(s)o eine\b/$1onne/gio;
+		s/\b(e)ine\b/$1 eq 'e' ? 'ne' : 'Ne'/egio;
+
+		s/\bkein problem\b/NP/gio;
+		s/\b(p)roblem\b/$1rob/gio;
+		s/\b(p)robleme\b/$1robs/gio;
+
+		s/\b(a)ber\b/$1bba/gio;
+		s/\b(a)chso\b/$1xo/gio;
+		s/\b(a)dresse\b/$1ddresse/gio;
+		s/\b(a)ggressiv\b/$1gressiv/gio;
+		s/\b([[:alpha:]]{2,})st du\b/${1}su/gio;
+		s/\b(a)nf(?:ä|ae)nger\b/$1 eq 'a' ? 'n00b' : 'N00b'/egio;
+		s/\b(a)sozial\b/$1ssozial/gio;
+		s/\b(a)u(?:ss|ß)er\b/$1user/gio;
+		s/\b(a)utor/$1uthor/gio;
+		s/\b(b)asta\b/$1 eq 'b' ? 'pasta' : 'Pasta'/egio;
+		s/\b(b)illard\b/$1illiard/gio;
+		s/\b(b)i(?:ss|ß)chen\b/$1ischen/gio;
+		s/\b(b)ist\b/$1is/gio;
+		s/\b(b)itte\b/$1 eq 'b' ? 'plz' : 'Plz'/egio;
+		s/\b(b)lo(?:ss|ß)\b/$1los/gio;
+		s/\b(b)(?:ox|(?:ü|ue)chse)\b/$1yxe/gio;
+		s/\b(b)rillant\b/$1rilliant/gio;
+		s/\b(c)hannel\b/$1 eq 'c' ? 'kanal' : 'Kanal'/egio;
+		s/\b(c)hat\b/$1hatt/gio;
+		s/\b(c)ool\b/$1 eq 'c' ? 'kewl' : 'Kewl'/egio;
+		s/\b(d)(?:ä|ae)mlich\b/$1ähmlich/gio;
+		s/\b(d)etailliert\b/$1etailiert/gio;
+		s/\b(d)ilettantisch\b/$1illetantisch/gio;
+		s/\b(d)irekt\b/$1ireckt/gio;
+		s/\b(d)iskussion\b/$1isskusion/gio;
+		s/\b(d)istribution/$1ystrubution/gio;
+		s/\b(e)igentlich\b/$1igendlich/gio;
+		s/\b(e)inzige\b/$1inzigste/gio;
+		s/\b(e)nd/$1nt/gio;
+		s/\b(e)ntschuldigung\b/$1 eq 'e' ? 'sry' : 'Sry'/egio;
+		s/\b(f)ilm\b/$1 eq 'f' ? 'movie' : 'Movie'/egio;
+		s/\b(f)lachbettscanner\b/$1lachbrettscanner/gio;
+		s/\b(f)reu\b/$1roi/gio;
+		s/\b(g)alerie\b/$1allerie/gio;
+		s/\b(g)ay\b/$1hey/gio;
+		s/\b(g)ebaren\b/$1ebahren/gio;
+		s/\b(g)elatine\b/$1elantine/gio;
+		s/\b(g)eratewohl\b/$1eradewohl/gio;
+		s/\b(g)ibt es\b/$1ibbet/gio;
+		s/\bgra([dt])/$1 eq 'd' ? 'grat' : 'grad'/ego;
+		s/\bGra([dt])/$1 eq 'd' ? 'Grat' : 'Grad'/ego;
+		s/\b(h)(?:ä|ae)ltst\b/$1älst/gio;
+		s/\b(h)(?:ä|ae)sslich/$1äslich/gio;
+		s/\b(h)aneb(?:ü|ue)chen\b/$1ahneb$2chen/gio;
+		s/\b(i)mmobilie/$1mobilie/gio;
+		s/\b(i)nteressant\b/$1nterressant/gio;
+		s/\b(i)ntolerant\b/$1ntollerant/gio;
+		s/\b(i)rgend/$1rgent/gio;
+		s/\b(j)a\b/$1oh/gio;
+		s/\b(j)etzt\b/$1ez/gio;
+		s/\b(k)affee\b/$1affe/gio;
+		s/\b(k)aputt\b/$1aput/gio;
+		s/\b(k)arussell\b/$1arussel/gio;
+		s/\b(k)iste\b/$1 eq 'k' ? 'byxe' : 'Byxe'/egio;
+		s/\b(k)lempner\b/$1lemptner/gio;
+		s/\b(k)r(?:ä|ae)nker\b/$1ranker/gio;
+		s/\b(k)rise\b/$1riese/gio;
+		s/\b(l)etal\b/$1ethal/gio;
+		s/\b(l)eute\b/$1 eq 'l' ? 'ppl' : 'Ppl'/egio;
+		s/\b(l)ibyen\b/$1ybien/gio;
+		s/\b(l)izenz\b/$1izens/gio;
+		s/\b(l)oser\b/$1ooser/gio;
+		s/\b(l)ustig/$1ölig/gio;
+		s/\b(m)aschine\b/$1aschiene/gio;
+		s/\b(m)illennium\b/$1illenium/gio;
+		s/\b(m)iserabel\b/$1ieserabel/gio;
+		s/\b(m)it dem\b/$1im/gio;
+		s/\b(m)orgendlich\b/$1orgentlich/gio;
+		s/\b(n)(?:ä|ae)mlich\b/$1ähmlich/gio;
+		s/\b(n)ein\b/$1eh/gio;
+		s/\bnett\b/n1/gio;
+		s/\b(n)ewbie\b/$100b/gio;
+		s/\bnicht\b/int(rand(2)) ? 'net' : 'ned'/ego;
+		s/\bNicht\b/int(rand(2)) ? 'Net' : 'Ned'/ego;
+		s/\b(n)iveau/$1iwo/gio;
+		s/\bok(?:ay)?\b/K/gio;
+		s/\b(o)riginal\b/$1rginal/gio;
+		s/\b(p)aket\b/$1acket/gio;
+		s/\b(p)l(?:ö|oe)tzlich\b/$1lözlich/gio;
+		s/\b(p)ogrom\b/$1rogrom/gio;
+		s/\b(p)rogramm\b/$1roggie/gio;
+		s/\b(p)rogramme\b/$1roggies/gio;
+		s/\b(p)sychiater\b/$1sychater/gio;
+		s/\b(p)ubert(?:ä|ae)t\b/$1upertät/gio;
+		s/\b(q)uarz\b/$1uartz/gio;
+		s/\b(q)uery\b/$1uerry/gio;
+		s/\b(r)eferenz\b/$1efferenz/gio;
+		s/\b(r)eparatur\b/$1eperatur/gio;
+		s/\b(r)eply\b/$1eplay/gio;
+		s/\b(r)essource\b/$1esource/gio;
+		s/\b(r)(o)(t?fl)\b/$1 . ($2 eq 'o' ? 'ö' : 'Ö') . $3/egio;
+		s/\b(r)(o)(t?fl)(o)(l)\b/$1 . ($2 eq 'o' ? 'ö' : 'Ö') . $3 . ($4 eq 'o' ? 'ö' : 'Ö') . $5/egio;
+		s/\b(s)atellit\b/$1attelit/gio;
+		s/\b(s)cherz\b/$1chertz/gio;
+		s/\bsei([dt])\b/$1 eq 'd' ? 'seit' : 'seid'/ego;
+		s/\bSei([dt])\b/$1 eq 'd' ? 'Seit' : 'Seid'/ego;
+		s/\b(s)elig\b/$1eelig/gio;
+		s/\b(s)eparat\b/$1eperat/gio;
+		s/\b(s)eriosit(?:ä|ae)t\b/$1erösität/gio;
+		s/\b(s)onst\b/$1onnst/gio;
+		s/\b(s)orry\b/$1ry/gio;
+		s/\b(s)pelunke\b/$1ilunke/gio;
+		s/\b(s)piel\b/$1 eq 's' ? 'game' : 'Game'/egio;
+		s/\b(s)tabil\b/$1tabiel/gio;
+		s/\b(s)tandard\b/$1tandart/gio;
+		s/\b(s)tegreif\b/$1tehgreif/gio;
+		s/\b(s)ympathisch\b/$1ymphatisch/gio;
+		s/\b(s)yntax\b/$1ynthax/gio;
+		s/\b(t)era/$1erra/gio;
+		s/\b(t)oler/$1oller/gio;
+		s/\bto([td])/$1 eq 't' ? 'tod' : 'tot'/ego;
+		s/\bTo([td])/$1 eq 't' ? 'Tod' : 'Tot'/ego;
+		s/\b(u)ngef(?:ä|ae)hr\b/$1ngefär/gio;
+		s/\bviel gl(?:ü|ue)ck\b/GL/gio;
+		s/\b(v)ielleicht\b/$1ileicht/gio;
+		s/\b(v)oraus/$1orraus/gio;
+		s/\b(w)(?:ä|ae)re\b/$1ähre/gio;
+		s/\bwa(h)?r/$1 eq 'h' ? 'war' : 'wahr'/ego;
+		s/\bWa(h)?r/$1 eq 'h' ? 'War' : 'Wahr'/ego;
+		s/\b(w)as du\b/$1asu/gio;
+		s/\b(w)eil du\b/$1eilu/gio;
+		s/\bweis(s)?/$1 eq 's' ? 'weis' : 'weiss'/ego;
+		s/\bWeis(s)?/$1 eq 's' ? 'Weis' : 'Weiss'/ego;
+		s/\b(w)enn du\b/$1ennu/gio;
+		s/\b(w)ider/$1ieder/gio;
+		s/\b(w)ieso\b/$1iso/gio;
+		s/\b(z)iemlich\b/$1iehmlich/gio;
+		s/\b(z)umindest\b/$1umindestens/gio;
+
+		tr/üÜ/yY/;
+		s/ei(?:ss?|ß)e?/ice/go;
+		s/eife?/ive/go;
+
+		if(return_option('moron', 'level') >= 1) {
+			s/\b(u)nd\b/$1nt/gio;
+			s/\b(h)at\b/$1att/gio;
+			s/\b(n)ur\b/$1uhr/gio;
+			s/\b(v)er(\w+)/$1 eq 'V' ? "Fa$2" : "fa$2"/egio;
+			s/\b([[:alpha:]]+[b-np-tv-z])er\b/${1}a/go;
+			s/\b([[:alpha:]]+)ck/${1}q/go;
+
+			s/\b([fv])(?=[[:alpha:]]{2,})/
+			  if (rand(10) <= 4) {
+			      if ($1 eq 'f') {
+			          'v'
+			      }
+			      else {
+			          'f'
+			      }
+			  } else {
+			      $1
+			  }
+			 /egox;
+			s/\b([FV])(?=[[:alpha:]]{2,})/
+			  if (rand(10) <= 4) {
+			      if ($1 eq 'F') {
+			          'V'
+			      }
+			      else {
+			          'F'
+			      }
+			  } else {
+			      $1
+			  }
+			  /egox;
+			s#\b([[:alpha:]]{2,})([td])\b#
+			  my $begin = $1;
+			  my $end   = $2;
+			  if (rand(10) <= 4) {
+			      if ($end eq 't' && $begin !~ /t$/) {
+			          "${begin}d"
+			      } elsif ($end eq 'd' && $begin !~ /d$/) {
+			          "${begin}t"
+			      } else {
+			          "${begin}${end}"
+			      }
+			  } else {
+			      "${begin}${end}"
+			  }
+			 #egox;
+			s/\b([[:alpha:]]{2,})ie/
+			  if (rand(10) <= 4) {
+			      "$1i"
+			  } else {
+			      "$1ie"
+			  }
+			 /egox;
+		}
+	}
+
+	$data = $_;
+
+	################################################################################
+	# Swap characters with characters near at the keyboard
+	################################################################################
+
+	my %mark;
+	my %chars;
+	if ($option{dau_language} eq 'de') {
+		%chars = (
+		          'a' => [ 's' ],
+		          'b' => [ 'v', 'n' ],
+		          'c' => [ 'x', 'v' ],
+		          'd' => [ 's', 'f' ],
+		          'e' => [ 'w', 'r' ],
+		          'f' => [ 'd', 'g' ],
+		          'g' => [ 'f', 'h' ],
+		          'h' => [ 'g', 'j' ],
+		          'i' => [ 'u', 'o' ],
+		          'j' => [ 'h', 'k' ],
+		          'k' => [ 'j', 'l' ],
+		          'l' => [ 'k', 'ö' ],
+		          'm' => [ 'n' ],
+		          'n' => [ 'b', 'm' ],
+		          'o' => [ 'i', 'p' ],
+		          'p' => [ 'o', 'ü' ],
+		          'q' => [ 'w' ],
+		          'r' => [ 'e', 't' ],
+		          's' => [ 'a', 'd' ],
+		          't' => [ 'r', 'z' ],
+		          'u' => [ 'z', 'i' ],
+		          'v' => [ 'c', 'b' ],
+		          'w' => [ 'q', 'e' ],
+		          'x' => [ 'y', 'c' ],
+		          'y' => [ 'x' ],
+		          'z' => [ 't', 'u' ],
+		         );
+	} else {
+		%chars = (
+		          'a' => [ 's' ],
+		          'b' => [ 'v', 'n' ],
+		          'c' => [ 'x', 'v' ],
+		          'd' => [ 's', 'f' ],
+		          'e' => [ 'w', 'r' ],
+		          'f' => [ 'd', 'g' ],
+		          'g' => [ 'f', 'h' ],
+		          'h' => [ 'g', 'j' ],
+		          'i' => [ 'u', 'o' ],
+		          'j' => [ 'h', 'k' ],
+		          'k' => [ 'j', 'l' ],
+		          'l' => [ 'k', 'ö' ],
+		          'm' => [ 'n' ],
+		          'n' => [ 'b', 'm' ],
+		          'o' => [ 'i', 'p' ],
+		          'p' => [ 'o', 'ü' ],
+		          'q' => [ 'w' ],
+		          'r' => [ 'e', 't' ],
+		          's' => [ 'a', 'd' ],
+		          't' => [ 'r', 'z' ],
+		          'u' => [ 'z', 'i' ],
+		          'v' => [ 'c', 'b' ],
+		          'w' => [ 'q', 'e' ],
+		          'x' => [ 'y', 'c' ],
+		          'y' => [ 't', 'u' ],
+		          'z' => [ 'x' ],
+		         );
+	}
+
+	# Do not replace one character twice
+	# Therefore every replace-position will be marked
+
+	unless (lc(return_option('moron', 'typo')) eq 'off') {
+		for (0 .. length($data)) {
+			$mark{$_} = 0;
+		}
+
+		for (0 .. rand(length($data))/20) {
+			my $pos = int(rand(length($data)));
+			pos $data = $pos;
+			unless ($mark{$pos} == 1)  {
+				no locale;
+				if ($data =~ /\G([A-Za-z])/g) {
+					my $matched = $1;
+					my $replacement;
+					if ($matched eq lc($matched)) {
+						$replacement = $chars{$matched}[int(rand(@{ $chars{$matched} }))];
+					} else {
+						$replacement = uc($chars{$matched}[int(rand(@{ $chars{$matched} }))]);
+					}
+					if ($replacement !~ /^\s*$/) {
+						substr($data, $pos, 1, $replacement);
+						$mark{$pos} = 1;
+					}
+				}
+			}
+		}
+	}
+
+	################################################################################
+	# Mix in some typos (swapping characters)
+	################################################################################
+
+	unless (lc(return_option('moron', 'typo')) eq 'off') {
+		foreach my $word (split /([\s\n])/, $data) {
+			if ((rand(100) <= 20) && length($word) > 1) {
+				my $position_swap = int(rand(length($word)));
+				if ($position_swap == 0) {
+					$position_swap = 1;
+				} elsif ($position_swap == length($word)) {
+					$position_swap = length($word) - 1;
+				}
+				if (substr($word, $position_swap - 1, 1) eq uc(substr($word, $position_swap - 1, 1)) &&
+				    substr($word, $position_swap, 1)     eq lc(substr($word, $position_swap, 1)))
+				{
+					(substr($word, $position_swap, 1), substr($word, $position_swap - 1, 1)) =
+					(lc(substr($word, $position_swap - 1, 1)), uc(substr($word, $position_swap, 1)));
+				} else {
+					(substr($word, $position_swap, 1), substr($word, $position_swap - 1, 1)) =
+					(substr($word, $position_swap - 1, 1), substr($word, $position_swap, 1));
+				}
+			}
+			$output .= $word;
+		}
+	} else {
+		$output = $_;
+	}
+
+	################################################################################
+	# plenk
+	################################################################################
+
+	$output =~ s/(\w+)([,;.:?!]+)(\s+|$)/
+	           if (rand(10) <= 8 || $3 eq '') {
+	               "$1 $2$3"
+	           } else {
+	               "$1$2"
+	           }
+	          /egox;
+
+	################################################################################
+	# default behaviour: uppercase text
+	################################################################################
+
+	$output = uc($output) unless (return_option('moron', 'uppercase') eq 'off');
+
+	################################################################################
+	# do something at EOL
+	################################################################################
+
+	if ($option_eol_style ne 'nothing') {
+		my $random = int(rand(100));
+
+		$output .= ' ' unless ($output =~ /^\s*$/);
+
+		# !!!!!!??????????!!!!!!!!!!11111
+
+		if ($random <= 70 || $lastchar eq '!') {
+			my @punct = qw(? !);
+			$output .= $punct[rand(@punct)] x int(rand(5))
+				for (1..15);
+
+			if ($lastchar eq '?') {
+				$output .= '?' x (int(rand(4))+1);
+			} elsif ($lastchar eq '!') {
+				$output .= '!' x (int(rand(4))+1);
+			}
+
+			if ($output =~ /\?$/) {
+				if ($option{dau_language} eq 'de') {
+					$output .= "ß" x int(rand(10));
+				} else {
+					$output .= "/" x int(rand(10));
+				}
+			} elsif ($output =~ /!$/) {
+				$output .= "1" x int(rand(10));
+			}
+		}
+
+		# ?¿?
+
+		elsif ($random <= 85) {
+			$output .= '?¿?';
+		}
+
+		# "=\n?"
+
+		else {
+			$output .= "=\n?";
+		}
+	}
+
+	return $output;
+}
+
+sub switch_nothing {
+	my $data = shift;
+
+	return $data;
+}
+
+sub switch_parse_special {
+	my ($text, $channel) = @_;
+
+	local $" = return_option('parse_special', 'list_delimiter', $option{dau_parse_special_list_delimiter});
+
+	# Build nick array with every nick in channel and
+	# opnick array with every op in the channel
+
+	my @nicks   = ();
+	my @opnicks = ();
+	if (defined($channel) && $channel && $channel->{type} eq 'CHANNEL') {
+		foreach my $nick ($channel->nicks()) {
+			next if ($channel->{server}->{nick} eq $nick->{nick});
+			push(@nicks, $nick->{nick});
+			push(@opnicks, $nick->{nick}) if ($nick->{op});
+		}
+	}
+	@nicks   = sort { lc($a) cmp lc($b) } @nicks;
+	@opnicks = sort { lc($a) cmp lc($b) } @opnicks;
+
+	# Substitution: \n to a real newline
+
+	$text =~ s/(?<![\\])\\n/\n/g;
+
+	# Substitution: @nicks to all nicks of channel
+
+	$text =~ s/(?<![\\])\@nicks/@nicks/gc;
+
+	# Substitution: @opnicks to all nicks of channel
+
+	$text =~ s/(?<![\\])\@opnicks/@opnicks/gc;
+
+	# Substitution: $nick1..$nickn
+
+	while ($text =~ /(?<![\\])\$nick(\d+)/g) {
+		my $substitution = $nicks[rand(@nicks)];
+		$text =~ s/(?<![\\])\$nick$1([^\d]|$)/${substitution}$1/g;
+		@nicks = grep { $_ ne $substitution } @nicks;
+		last if (@nicks == 0);
+	}
+
+	# Substitution: $opnick1..$opnickn
+
+	while ($text =~ /(?<![\\])\$opnick(\d+)/g) {
+		my $substitution = $opnicks[rand(@opnicks)];
+		$text =~ s/(?<![\\])\$opnick$1([^\d]|$)/${substitution}$1/g;
+		@opnicks = grep { $_ ne $substitution } @opnicks;
+		last if (@opnicks == 0);
+	}
+
+	# Substitution: $?{ code }
+
+	my $np; # (nested pattern)
+	$np = qr{
+		  {
+	          (?:
+	             (?> [^{}]+ ) # Non-capture group w/o backtracking
+	           |
+	             (??{ $np })  # Group with matching parens
+	          )*
+		  }
+	        }x;
+
+	while ($text =~ /(?<![\\])\$\?($np)/g) {
+		{
+			no strict;
+			my $replacement = eval $1;
+			if ($@) {
+				print_err('Invalid code used in construct $?{ code }. Details:');
+				print_err($@);
+				return;
+			} else {
+				chomp($replacement);
+				$text =~ s/(?<![\\])\$\?($np)/$replacement/;
+			}
+		}
+	}
+
+	# Substitution: irssi's special variables
+
+	if ((defined($channel) && $channel &&
+	    ($channel->{type} eq 'CHANNEL' || $channel->{type} eq 'QUERY')) &&
+	    !(lc(return_option('parse_special', 'irssi_variables')) eq 'off'))
+	{
+		$text = $channel->parse_special($text);
+	}
+
+	return $text;
+}
+
+sub switch_reverse {
+	my $data = shift;
+
+	$data = reverse($data);
+
+	return $data;
+}
+
+sub switch_stutter {
+	my $data = shift;
+	my $output;
+	my @words = qw(eeeh oeeeh aeeeh);
+
+	foreach (split / (?=\w+\b)/, $data) {
+		if (rand(100) < 20) {
+			$output .= ' ' . $words[rand(@words)] . ", $_";
+		} else {
+			$output .= ' ' . $_;
+		}
+	}
+
+	$output =~ s/\s*,\s+\@/ @/g;
+
+	for (1 .. rand(length($output)/5)) {
+		pos $output = rand(length($output));
+		$output =~ s/\G ([[:alpha:]]+)\b/ $1, $1/;
+	}
+	for (1 .. rand(length($output)/10)) {
+		pos $output = rand(length($output));
+		$output =~ s/\G([[:alpha:]])/$1 . ($1 x rand(3))/e;
+	}
+
+	$output =~ s/^\s+//;
+
+	return $output;
+}
+
+sub switch_substitute {
+	$_ = shift;
+
+	my $file = "$option{dau_files_root_directory}/$option{dau_files_substitute}";
+
+	if (-e $file && -r $file) {
+		my $return = do $file;
+
+		if ($@) {
+			print_err("parsing $file failed: $@");
+		}
+		unless (defined($return)) {
+			print_err("'do $file' failed");
+		}
+	}
+
+	return $_;
+}
+
+sub switch_underline {
+	my $data = shift;
+
+	$data = "\037$data\037";
+
+	return $data;
+}
+
+sub switch_uppercase {
+	my $data = shift;
+
+	$data = uc($data);
+
+	return $data;
+}
+
+sub switch_words {
+	my $data = shift;
+	my $output;
+	my @numbers;
+
+	if ($option{dau_words_range} =~ /^([1-9])-([1-9])$/) {
+		my $x = $1;
+		my $y = $2;
+		unless ($x <= $y) {
+			print_err('Invalid value for setting dau_words_range.');
+			return;
+		}
+		if ($x == $y) {
+			push(@numbers, $x);
+		} elsif ($x < $y) {
+			for (my $i = $x; $i <= $y; $i++) {
+				push(@numbers, $i);
+			}
+		}
+	} else {
+		print_err('Invalid value for dau_words_range.');
+		return;
+	}
+	my $random = $numbers[rand(@numbers)];
+	while ($data =~ /((?:.*?(?:\s+|$)){1,$random})/g) {
+		$output .= "$1\n"
+			unless (length($1) == 0);
+		$random = $numbers[rand(@numbers)];
+	}
+
+	$output =~ s/\s*$//;
+
+	return $output;
+}
+
+################################################################################
+# Subroutines (signals)
+################################################################################
+
+sub signal_channel_destroyed {
+	my ($channel) = @_;
+
+	my $channel_name = $channel->{name};
+	my $network_name = $channel->{server}->{tag};
+
+	$daumode{channels_in}{$network_name}{$channel_name} = 0;
+	$daumode{channels_out}{$network_name}{$channel_name} = 0;
+	$daumode{channels_in_modes}{$network_name}{$channel_name} = '';
+	$daumode{channels_out_modes}{$network_name}{$channel_name} = '';
+}
+
+sub signal_channel_joined {
+	my ($channel) = @_;
+
+	# Resume babbles
+
+	if (defined($babble{timer_writing})) {
+		if ($babble{channel}->{name} eq $channel->{name} &&
+		    $babble{channel}->{server}->{tag} eq $channel->{server}->{tag})
+		{
+			$channel->print('%9dau.pl:%9 Continuing babble...');
+			timer_babble_writing();
+		}
+	}
+
+	# Automatically set daumode
+
+	daumode_channels();
+}
+
+sub signal_command_msg {
+	my ($args, $server, $witem) = @_;
+
+	$args =~ /^(?:-\S+\s)?(?:\S*)\s(.*)/;
+	my $data = $1;
+
+	$command_in .= "$data\n";
+
+	Irssi::signal_stop();
+}
+
+sub signal_complete_word {
+	my ($list, $window, $word, $linestart, $want_space) = @_;
+
+	# Parsing the commandline for dau.pl is relatively complicated.
+	# TAB completion depends on commandline parsing in dau.pl.
+	# Script autors looking for a simple example for irssi's
+	# TAB completion are wrong here.
+
+	my $server  = Irssi::active_server();
+	my $channel = $window->{active};
+	my @switches_combo   = map { $_ = "--$_" } keys %{ $switches{combo} };
+	my @switches_nocombo = map { $_ = "--$_" } keys %{ $switches{nocombo} };
+	my @nicks = ();
+
+	# Only complete when the commandline starts with '${k}dau'.
+	# If not, let irssi do the work
+
+	return unless ($linestart =~ /^\Q${k}\Edau/i);
+
+	# Remove everything syntactically correct thing of $linestart.
+	# If there is anything else but whitespace at the end of
+	# commandline parsing, we have an syntax error.
+	# If we have a syntax error, complete only nicks.
+
+	$linestart =~ s/^\Q${k}\Edau ?//i;
+
+	# Generate list of nicks in current channel for later use
+
+	if (defined($channel->{type}) && $channel->{type} eq 'CHANNEL') {
+		foreach my $nick ($channel->nicks()) {
+			if ($nick->{nick} =~ /^\Q$word\E/i &&
+			    $window->{active_server}->{nick} ne $nick->{nick})
+			{
+				push(@nicks, $nick->{nick});
+			}
+		}
+	}
+
+	# Variables
+
+	my $combo = 0;                # Boolean: True if last switch was one of keys %{ $switches{combo} }
+	my $syntax_error = 0;         # Boolean: True if syntax error found
+	my $counter = 0;              # Integer: Counts first level options
+	my $first_level_option = '';  # String:  Last first level option
+	my $second_level_option = ''; # String:  Last second level option
+	my $third_level_option = 0;   # Boolean: True if found a third level option
+
+	# Parsing commandline now. Set variables accordingly.
+
+	OUTER: while ($linestart =~ /^--(\w+) ?/g) {
+
+		$second_level_option = '';
+		$third_level_option  = 0;
+
+		# Found a first level option (combo)
+
+		if (ref($switches{combo}{$1}{'sub'})) {
+			$first_level_option = $1;
+			$combo = 1;
+		}
+
+		# Found a first level option (nocombo)
+
+		elsif (ref($switches{nocombo}{$1}{'sub'}) && $counter == 0) {
+			$first_level_option = $1;
+			$combo = 0;
+		}
+
+		# Not a first level option => Syntax error
+
+		else {
+			$syntax_error = 1;
+			last OUTER;
+		}
+
+		# Syntactically correct => remove it
+
+		$linestart =~ s/^--\w+ ?//;
+
+		# Checkout if there are Second- or third level options
+
+		INNER: while ($linestart =~ /^-(\w+)(?: ('.*?(?<![\\])'|\S+))? ?/g) {
+
+			my $second_level = $1;
+			my $third_level  = $2 || '';
+
+			$third_level =~ s/^'//;
+			$third_level =~ s/'$//;
+			$third_level =~ s/\\'/'/g;
+
+			# Do the same for combo and nocombo-options. They have to be
+			# handled separately anyway.
+
+			# combo...
+
+			if ($combo) {
+
+				# Found a second level option
+
+				if ($switches{combo}{$first_level_option}{$second_level}) {
+					$second_level_option = $second_level;
+				}
+
+				# Not a second level option => Syntax error
+
+				else {
+					$syntax_error = 1;
+					last OUTER;
+				}
+
+				# Syntactically correct => remove it
+
+				$linestart =~ s/^-\w+//;
+
+				# Found something in the regexp of the INNER-while-loop-condition,
+				# which is perhaps a third level option
+
+				if ($third_level) {
+
+					# Found a third level option
+
+					if ($switches{combo}{$first_level_option}{$second_level_option}{$third_level} ||
+                                            $switches{combo}{$first_level_option}{$second_level_option}{'*'})
+					{
+						$third_level_option = 1;
+
+						# Syntactically correct => remove it
+
+						$linestart =~ s/^(?: ('.*?(?<![\\])'|\S+))? ?//;
+					}
+
+					# Not a third level option => Syntax error
+
+					else {
+						$syntax_error = 1;
+						last OUTER;
+					}
+
+				# Nothing found which comes into question for a third level option.
+				# The commandline has to be empty now (remember: everything
+				# syntactically correct has been removed) or we have a syntax error.
+
+				} else {
+
+					# Empty! Later we will complete to third level options
+
+					if ($linestart =~ /^\s*$/) {
+						$third_level_option = 0;
+					}
+
+					# Not empty => Syntax error
+
+					else {
+						$syntax_error = 1;
+						last OUTER;
+					}
+				}
+
+			# nocombo...
+
+			} else {
+
+				# Found a second level option
+
+				if ($switches{nocombo}{$first_level_option}{$second_level}) {
+					$second_level_option = $second_level;
+				}
+
+				# Not a second level option => Syntax error
+
+				else {
+					$syntax_error = 1;
+					last OUTER;
+				}
+
+				# Syntactically correct => remove it
+
+				$linestart =~ s/^-\w+//;
+
+				# Found something in the regexp of the INNER while loop condition,
+				# which is perhaps a third level option
+
+				if ($third_level) {
+
+					# Found a third level option
+
+					if ($switches{nocombo}{$first_level_option}{$second_level_option}{$third_level} ||
+                                            $switches{nocombo}{$first_level_option}{$second_level_option}{'*'})
+					{
+						$third_level_option = 1;
+
+						# Syntactically correct => remove it
+
+						$linestart =~ s/^(?: ('.*?(?<![\\])'|\S+))? ?//;
+					}
+
+					# Not a third level option => Syntax error
+
+					else {
+						$syntax_error = 1;
+						last OUTER;
+					}
+
+				# Nothing found which comes into question for a third level option.
+				# The commandline has to be empty now (remember: everything
+				# syntactically correct has been removed) or we have a syntax error.
+
+				} else {
+
+					# Empty! Later we will complete to third level options
+
+					if ($linestart =~ /^\s*$/) {
+						$third_level_option = 0;
+					}
+
+					# Not empty => Syntax error
+
+					else {
+						$syntax_error = 1;
+						last OUTER;
+					}
+				}
+			}
+		}
+	} continue {
+		$counter++;
+	}
+
+	# End of commandline-parsing.
+	# Everything syntactically correct removed.
+	# If commandline is not empty now, we have a syntax error.
+
+	if ($linestart !~ /^\s*$/) {
+		$syntax_error = 1;
+	}
+
+	# Do the TAB completion
+
+	@$list = ();
+
+	if ($syntax_error) {
+		foreach my $x (sort @nicks) {
+			if($x =~ /^$word/i) {
+				push(@$list, $x);
+			}
+		}
+	}
+	elsif ($counter == 0) {
+		foreach my $x ((sort(@switches_combo, @switches_nocombo), sort(@nicks))) {
+			if($x =~ /^$word/i) {
+				push(@$list, $x);
+			}
+		}
+	}
+	elsif (($combo && $first_level_option && $second_level_option && $third_level_option) ||
+	       ($combo && $first_level_option && !$second_level_option && !$third_level_option))
+	{
+		my @switches_second_level = grep !/^-sub$/, map { $_ = "-$_" }
+					    keys %{ $switches{combo}{$first_level_option} };
+
+		foreach my $x ((sort(@switches_second_level), sort(@switches_combo), sort(@nicks))) {
+			if($x =~ /^$word/i) {
+				push(@$list, $x);
+			}
+		}
+	}
+	elsif ((!$combo && $counter == 1 && $first_level_option && $second_level_option && $third_level_option) ||
+	       (!$combo && $counter == 1 && $first_level_option && !$second_level_option && !$third_level_option))
+	{
+		my @switches_second_level = grep !/^-sub$/, map { $_ = "-$_" }
+					    keys %{ $switches{nocombo}{$first_level_option} };
+
+		foreach my $x (sort(@switches_second_level)) {
+			if($x =~ /^$word/i) {
+				push(@$list, $x);
+			}
+		}
+	}
+	elsif ($combo && $first_level_option && $second_level_option && !$third_level_option) {
+		my @switches_third_level = grep !/^\*$/,
+					   keys %{ $switches{combo}{$first_level_option}{$second_level_option} };
+
+		foreach my $x (sort(@switches_third_level)) {
+			if($x =~ /^$word/i) {
+				push(@$list, $x);
+			}
+		}
+	}
+	elsif (!$combo && $counter == 1 && $first_level_option && $second_level_option && !$third_level_option) {
+		my @switches_third_level = grep !/^\*$/,
+					   keys %{ $switches{nocombo}{$first_level_option}{$second_level_option} };
+
+		foreach my $x ((sort(@switches_third_level), sort(@nicks))) {
+			if($x =~ /^$word/i) {
+				push(@$list, $x);
+			}
+		}
+	}
+
+	Irssi::signal_stop();
+}
+
+sub signal_event_404 {
+	my ($server, $message, $network_name) = @_;
+
+	if ($message =~ /^(?:\S+) (\S+) :Cannot send to channel$/) {
+		my $channel_name = $1;
+
+		if ($server->{tag} eq $babble{channel}->{server}->{tag} &&
+		    $babble{channel}->{name} eq $channel_name &&
+		    defined($babble{timer_writing}))
+		{
+			Irssi::timeout_remove($babble{timer_writing});
+			undef($babble{timer_writing});
+			print_out("%9dau.pl:%9 Could not send message to $babble{channel}->{name}/$babble{channel}->{server}->{tag}. Cancelling babble.");
+			return;
+		}
+	}
+
+	if ($message =~ /^(?:\S+) (\S+) :(.*)/) {
+		Irssi::print("$1 $2");
+	} else {
+		Irssi::print($message);
+	}
+}
+
+sub signal_event_privmsg {
+	my ($server, $data, $nick, $hostmask) = @_;
+	my ($channel_name, $text) = split / :/, $data, 2;
+	my $channel_rec = $server->channel_find($channel_name);
+	$channel_name   = lc($channel_name);
+	my $server_name = lc($server->{tag});
+	my %lookup;
+
+	while ($option{dau_remote_channellist} =~ /\s*([^\/]+)\/([^,]+)\s*,?/g) {
+		my $channel = $1;
+		$channel    = lc($channel);
+		my $ircnet  = $2;
+		$ircnet     = lc($ircnet);
+		$lookup{$ircnet}{$channel} = 1;
+	}
+	if (lc($option{dau_remote_channelpolicy}) eq 'allow') {
+		return if ($lookup{$server_name}{$channel_name});
+	} elsif (lc($option{dau_remote_channelpolicy}) eq 'deny') {
+		return unless ($lookup{$server_name}{$channel_name});
+	} else {
+		return;
+	}
+
+	# Remove formatting so dau.pl can reply to a colored, underlined, ...
+	# question
+
+	$text =~ s/\003\d?\d?(?:,\d?\d?)?|\002|\006|\007|\016|\01f|\037//g;
+
+	my $regexp = switch_parse_special($option{dau_remote_question_regexp}, $channel_rec);
+	if ($text =~ /$regexp/) {
+		my $reply = return_random_list_item($option{dau_remote_question_reply});
+		$reply =~ s/(?<![\\])\$nick/$nick/g;
+		$reply = parse_text($reply, $channel_rec);
+
+		output_text($server, $channel_name, $reply);
+	}
+}
+
+sub signal_nick_mode_changed {
+	my ($channel, $nick, $setby, $mode, $type) = @_;
+	my ($reply, %lookup);
+	my $channel_name = lc($channel->{name});
+	my $network_name  = lc($channel->{server}->{tag});
+	my $op = $nick_mode{$network_name}{$channel_name}{op};       # mode before nick change
+	my $voice = $nick_mode{$network_name}{$channel_name}{voice}; # mode before nick change
+
+	return if ($channel->{server}->{nick} ne $nick->{nick});
+	if ($nick->{nick} eq $setby || $setby eq 'irc.psychoid.net') {
+		build_nick_mode_struct();
+		return;
+	}
+
+	# Only act in channels where the user wants dau.pl to act
+
+	while ($option{dau_remote_channellist} =~ /\s*([^\/]+)\/([^,]+)\s*,?/g) {
+		my $channel = $1;
+		$channel    = lc($channel);
+		my $ircnet  = $2;
+		$ircnet     = lc($ircnet);
+		$lookup{$ircnet}{$channel} = 1;
+	}
+	if (lc($option{dau_remote_channelpolicy}) eq 'allow') {
+		if ($lookup{$network_name}{$channel_name}) {
+			build_nick_mode_struct();
+			return;
+		}
+	} elsif (lc($option{dau_remote_channelpolicy}) eq 'deny') {
+		unless ($lookup{$network_name}{$channel_name}) {
+			build_nick_mode_struct();
+			return;
+		}
+	} else {
+		build_nick_mode_struct();
+		return;
+	}
+
+	# Now we are in the right channel
+
+	if ($option{dau_remote_permissions} =~ /^[01]1[01][01][01][01]$/) {
+		if ($mode eq '+' && $type eq '+' && (!$voice && !$op)) {
+			$reply = return_random_list_item($option{dau_remote_voice_reply});
+			$reply =~ s/(?<![\\])\$nick/$setby/g;
+			$reply = parse_text($reply, $channel);
+		}
+	}
+	if ($option{dau_remote_permissions} =~ /^[01][01]1[01][01][01]$/) {
+		if ($mode eq '@' && $type eq '+' && !$op) {
+			$reply = return_random_list_item($option{dau_remote_op_reply});
+			$reply =~ s/(?<![\\])\$nick/$setby/g;
+			$reply = parse_text($reply, $channel);
+		}
+	}
+	if ($option{dau_remote_permissions} =~ /^[01][01][01]1[01][01]$/) {
+		if ($mode eq '+' && $type eq '-' && ($voice && !$op)) {
+			$reply = return_random_list_item($option{dau_remote_devoice_reply});
+			$reply =~ s/(?<![\\])\$nick/$setby/g;
+			$reply = parse_text($reply, $channel);
+		}
+	}
+	if ($option{dau_remote_permissions} =~ /^[01][01][01][01]1[01]$/) {
+		if ($mode eq '@' && $type eq '-' && $op) {
+			$reply = return_random_list_item($option{dau_remote_deop_reply});
+			$reply =~ s/(?<![\\])\$nick/$setby/g;
+			$reply = parse_text($reply, $channel);
+		}
+	}
+
+	# rebuild nick mode struct and print out the reply
+
+	build_nick_mode_struct();
+	output_text($channel, $channel->{name}, $reply);
+}
+
+sub signal_send_text {
+	my ($data, $server, $witem) = @_;
+	my $output;
+
+	return unless (defined($server) && $server && $server->{connected});
+	return unless (defined($witem) && $witem &&
+	              ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'));
+
+	if ($daumode{channels_out}{$server->{tag}}{$witem->{name}} == 1) {
+		if ($daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} eq '') {
+			$output = parse_text($daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} . $data, $witem);
+		} else {
+			$output = parse_text($daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} . ' ' . $data, $witem);
+		}
+
+		output_text($witem, $witem->{name}, $output);
+
+		Irssi::signal_stop();
+	}
+}
+
+sub signal_setup_changed {
+	set_settings();
+
+	# setting changed/added => change/add it here
+
+	# setting cmdchars
+
+	$k = Irssi::parse_special('$k');
+
+	# babble history
+
+	if (defined($babble{history}) && ref($babble{history}) eq 'ARRAY') {
+		my @history;
+		my $i = 1;
+		foreach (@{ $babble{history} } ) {
+			if ($i++ <= $option{dau_babble_history_size}) {
+				push(@history, $_);
+			}
+		}
+		@{ $babble{history} } = @history;
+	}
+
+	# setting dau_cowsay_cowpath
+
+	cowsay_cowlist($option{dau_cowsay_cowpath});
+
+	# setting dau_figlet_fontpath
+
+	figlet_fontlist($option{dau_figlet_fontpath});
+
+	# setting dau_daumode_channels
+
+	daumode_channels();
+
+	# setting dau_statusbar_daumode_hide_when_off
+
+	Irssi::statusbar_items_redraw('daumode');
+
+	# timer for the babble feature
+
+	timer_remote_babble_reset();
+
+	# signal handling
+
+	signal_handling();
+}
+
+sub signals_daumode_in {
+	my ($server, $data, $nick, $hostmask, $target) = @_;
+	my $channel_rec = $server->channel_find($target);
+	my $i_channel = $daumode{channels_in}{$server->{tag}}{$target};
+	my $i_modes   = $daumode{channels_in_modes}{$server->{tag}}{$target};
+	my $modified_msg;
+
+	return unless (defined($server) && $server && $server->{connected});
+
+	# Not one of the channels where daumode for incoming messages is turned on.
+	# In those channels print out the message as it is and leave the subroutine
+
+	if (!$i_channel) {
+		return;
+	}
+
+	# Evil Hack?
+	# I had to dauify every incoming messages. Using &signal_continue was
+	# not possible because --words f.e. generates output over multiple lines. So I
+	# had to create multiple messages using &signal_emit. Those just created
+	# messages shouldn't be dauified again when entering this subroutine. I
+	# couldn't prevent irssi from entering this subroutine again after
+	# dauifying the text so the messages had to be 'marked'. Marked
+	# messages will not be dauified again. I think \x02 at the beginning of the
+	# message is ok for that.
+
+	if ($data =~ s/^\x02//) {
+		Irssi::signal_continue($server, $data, $nick, $hostmask, $target);
+	} else {
+		if ($i_modes ne '') {
+			$modified_msg = parse_text($i_modes . ' ' . $data, $channel_rec);
+		} else {
+			$modified_msg = parse_text($data, $channel_rec);
+		}
+
+		if ($modified_msg =~ /\n/) {
+			for my $line (split /\n/, $modified_msg) {
+				Irssi::signal_emit(Irssi::signal_get_emitted(), $server, "\x02$line", $nick, $hostmask, $target);
+				Irssi::signal_stop();
+			}
+		} else {
+			Irssi::signal_emit(Irssi::signal_get_emitted(), $server, "\x02$modified_msg", $nick, $hostmask, $target);
+			Irssi::signal_stop();
+		}
+	}
+}
+
+################################################################################
+# Subroutines (statusbar)
+################################################################################
+
+sub statusbar_daumode {
+	my ($item, $get_size_only) = @_;
+	my ($status_in, $status_out, $modes_in, $modes_out);
+	my $server = Irssi::active_server();
+	my $witem  = Irssi::active_win()->{active};
+	my $theme  = Irssi::current_theme();
+	my $format = $theme->format_expand('{sb_daumode}');
+
+	if ($witem && ref($witem) &&
+	    $server && ref($server) &&
+	   ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'))
+	{
+		if (defined($daumode{channels_in}{$server->{tag}}{$witem->{name}}) &&
+		    $daumode{channels_in}{$server->{tag}}{$witem->{name}} == 1)
+		{
+			$status_in = 'ON';
+		} else {
+			$status_in = 'OFF';
+		}
+
+		if (defined($daumode{channels_out}{$server->{tag}}{$witem->{name}}) &&
+		    $daumode{channels_out}{$server->{tag}}{$witem->{name}} == 1)
+		{
+			$status_out = 'ON';
+		} else {
+			$status_out = 'OFF';
+		}
+
+		# Hide statusbaritem if setting dau_statusbar_daumode_hide_when_off
+		# is turned on and daumode is turned off
+
+		if ($status_in eq 'OFF' && $status_out eq 'OFF' && $option{dau_statusbar_daumode_hide_when_off}) {
+			$item->{min_size} = $item->{max_size} = 0;
+			return;
+		}
+
+		if ($status_in eq 'ON') {
+			$modes_in = $daumode{channels_in_modes}{$server->{tag}}{$witem->{name}} || $option{dau_standard_options};
+		} else {
+			$modes_in = '';
+		}
+		if ($status_out eq 'ON') {
+			$modes_out = $daumode{channels_out_modes}{$server->{tag}}{$witem->{name}} || $option{dau_standard_options};
+		} else {
+			$modes_out = '';
+		}
+
+		if ($format) {
+			$format = $theme->format_expand("{sb_daumode $status_out $modes_out $status_in $modes_in}");
+		} else {
+			if ($status_in eq 'OFF' && $status_out eq 'OFF') {
+				$format = $theme->format_expand("{sb daumode: <- $status_in | -> $status_out}");
+			}
+			elsif ($status_in eq 'OFF' && $status_out eq 'ON') {
+				$format = $theme->format_expand("{sb daumode: <- $status_in | -> $status_out ($modes_out)}");
+			}
+			elsif ($status_in eq 'ON' && $status_out eq 'OFF') {
+				$format = $theme->format_expand("{sb daumode: <- $status_in ($modes_in) | -> $status_out}");
+			}
+			elsif ($status_in eq 'ON' && $status_out eq 'ON') {
+				$format = $theme->format_expand("{sb daumode: <- $status_in ($modes_in) | -> $status_out ($modes_out)}");
+			}
+		}
+	} else {
+		$item->{min_size} = $item->{max_size} = 0;
+		return;
+	}
+
+	$item->default_handler($get_size_only, $format, '', 1);
+}
+
+################################################################################
+# Subroutines (timer)
+################################################################################
+
+# for the babble remote feature
+
+sub timer_away_reminder {
+	my $id = shift;
+	$id =~ m{^([^/]+)/(.+)};
+	my $channel = $1;
+	my $network = $2;
+
+	my $server_rec  = Irssi::server_find_tag($network);
+
+	unless (defined($server_rec) && $server_rec) {
+		return;
+	}
+
+	my $channel_rec = $server_rec->channel_find($channel);
+
+	unless (defined($channel_rec) && $channel_rec &&
+	       ($channel_rec->{type} eq 'CHANNEL' || $channel_rec->{type} eq 'QUERY'))
+	{
+		return;
+	}
+
+	################################################################################
+	# Open file
+	################################################################################
+
+	my $file = "$option{dau_files_root_directory}/$option{dau_files_away}";
+	my @file;
+	unless (tie(@file, 'Tie::File', $file)) {
+		print_err("Cannot tie $file!");
+		return;
+	}
+
+	################################################################################
+	# Go through file
+	################################################################################
+
+	# Format:
+	# channel | network | time | options | reminder | interval | reason
+
+	my ($time, $options, $reminder, $interval, $reason);
+	foreach my $line (@file) {
+		if ($line =~ m{^$channel\x02$network\x02(\d+)\x02([^\x02]*)\x02(\d)\x02(\d+)\x02(.*)}) {
+			$time = $1;
+			$options = $2;
+			$reminder = $3;
+			$interval = $4;
+			$reason = $5;
+			last;
+		}
+	}
+
+	################################################################################
+	# Special variables
+	################################################################################
+
+	my $output = $option{dau_away_reminder_text};
+
+	# $time
+
+	my $difference = time_diff_verbose(time, $time);
+	$output =~ s/\$time/$difference/g;
+
+	# $reason
+
+	if ($option{dau_away_quote_reason}) {
+		$reason =~ s/\\/\\\\/g;
+		$reason =~ s/\$/\\\$/g;
+	}
+	$output =~ s/\$reason/$reason/g;
+
+	################################################################################
+	# Write text to channels. Write changes back to file
+	################################################################################
+
+	untie(@file);
+
+	$output = parse_text("$options $output", $channel_rec);
+
+	output_text($channel_rec, $channel_rec->{name}, $output);
+}
+
+# all babbles: the writing to the channel
+
+sub timer_babble_writing {
+
+	# check if we are still on the channel
+
+	my $onChannel = 0;
+	foreach my $server (Irssi::servers()) {
+		if ($server->{tag} eq $babble{channel}->{server}->{tag}) {
+			foreach my $channel ($server->channels()) {
+				if ($babble{channel}->{name} eq $channel->{name})  {
+					if ($babble{channel} != $channel) {
+						$babble{channel} = $channel;
+					}
+					$onChannel = 1;
+				}
+			}
+		}
+	}
+	if (!$onChannel) {
+		Irssi::timeout_remove($babble{timer_writing});
+		print_out("%9dau.pl:%9 You are not on $babble{channel}->{name}/$babble{channel}->{server}->{tag}. Stalling babble.");
+		return;
+	}
+
+	# restore the variables
+
+	$command_out           = $babble{command_out_history}{$babble{counter}};
+	$command_out_activated = $babble{command_out_history_switch}{$babble{counter}};
+
+	# then output text
+
+	output_text($babble{channel}, $babble{channel}->{name}, $babble{line});
+
+	# And go to the "managing" subroutine...
+
+	timer_babble_writing_reset();
+}
+
+# all babbles: the timer for the next writing
+
+sub timer_babble_writing_reset {
+	my $interval = 0;
+
+	# Remove used writing timer, if existent (at the first run we don't have any timer)
+
+	Irssi::timeout_remove($babble{timer_writing}) if (defined($babble{timer_writing}));
+
+	# At each run of this managing subroutine remove one line of text
+
+	$babble{text} =~ s/^(.*?)\n//;
+	$babble{line} = $1;
+
+	if ($babble{line} =~ s/^BABBLE_INTERVAL=(\d+)\x02//) {
+		$interval = $1;
+		$babble{line} = parse_text("$option{dau_babble_options_line_by_line} $babble{line}");
+		my $counter = $babble{counter} + 1;
+		$babble{command_out_history}{$counter} = $command_out;
+		$babble{command_out_history_switch}{$counter} = $command_out_activated;
+	}
+
+	# If there is still some text left, add a new timer for the next line
+
+	if (length($babble{text}) != 0 || length($babble{line}) != 0) {
+
+		if ($babble{counter}++ == 0) {
+			if ($option{dau_babble_verbose} && $babble{numberoflines} >= $option{dau_babble_verbose_minimum_lines}) {
+				$babble{channel}->print("%9dau.pl:%9 Babbling $babble{numberoflines} line" . ($babble{numberoflines} > 1 ? 's' : '') . ' now:');
+			}
+			$interval = 50;
+		}
+
+		if ($interval < 10) {
+			# Calculate the writing breaks
+			# The longer the next line is the longer the break will be
+
+			$interval = 1000 + rand(2000) +
+				       50 * length($babble{line}) +
+				       rand(25 * length($babble{line}));
+
+			# Some characters need more time to write
+
+			while ($babble{line} =~ /[^a-z ]/gio) {
+				$interval += (75 + rand(25));
+			}
+
+			$interval = int($interval);
+		}
+
+		# Set timer
+
+		$babble{timer_writing} = Irssi::timeout_add($interval, \&timer_babble_writing, '');
+	}
+
+	# No text left?
+
+	else {
+		if ($option{dau_babble_verbose} && $babble{numberoflines} >= $option{dau_babble_verbose_minimum_lines}) {
+			$babble{channel}->print('%9dau.pl:%9 Finished babbling.');
+		}
+
+		# remove the timer
+
+		undef($babble{timer_writing});
+
+		if ($babble{remote}) {
+			timer_remote_babble_reset();
+		}
+	}
+}
+
+# remote babble: initialize
+
+sub timer_remote_babble {
+	my $text;
+
+	# Push all channels where it's ok to babble text in @channels
+
+	my %lookup;
+	while ($option{dau_remote_babble_channellist} =~ /\s*([^\/]+)\/([^,]+)\s*,?/g) {
+		my $channel = $1;
+		$channel    = lc($channel);
+		my $ircnet  = $2;
+		$ircnet     = lc($ircnet);
+		$lookup{$ircnet}{$channel} = 1;
+	}
+
+	my @channels;
+	foreach my $server (Irssi::servers()) {
+		my $server_name = lc($server->{tag});
+
+		foreach my $channel ($server->channels()) {
+			my $channel_name = lc($channel->{name});
+
+			if (lc($option{dau_remote_babble_channelpolicy}) eq 'allow' &&
+			    !$lookup{$server_name}{$channel_name})
+			{
+				push(@channels, $channel);
+			}
+			elsif (lc($option{dau_remote_babble_channelpolicy}) eq 'deny' &&
+			       $lookup{$server_name}{$channel_name})
+			{
+				push(@channels, $channel);
+			}
+		}
+	}
+
+	# No channels found => return
+
+	return if (@channels == 0);
+
+	# Choose one of the @channels
+
+	my $channel = $channels[rand(@channels)];
+
+	# If something is babbling right now, stop
+
+	if (defined($babble{timer_writing})) {
+		return;
+	}
+
+	# else get text from file
+
+	else {
+		my @filter = ();
+		$text = &babble_get_text($channel, \@filter, undef, $option{dau_babble_history_size});
+	}
+
+	# Stop the timer for the big breaks.
+
+	Irssi::timeout_remove($babble{timer_remote}) if (defined($babble{timer_remote}));
+
+	# Start the writing.
+
+	babble_start($channel, $text, 1);
+}
+
+# remote babble: reset
+
+sub timer_remote_babble_reset {
+	Irssi::timeout_remove($babble{timer_remote}) if (defined($babble{timer_remote}));
+
+	# Do not set the timer, if the permission-bit is not set
+
+	return unless ($option{dau_remote_permissions} =~ /^[01][01][01][01][01]1$/);
+
+	# Calculate interval
+
+	my $interval = babble_set_interval($option{dau_remote_babble_interval}, $option{dau_remote_babble_interval_accuracy});
+
+	# Set timer
+
+	if ($interval != 0) {
+		$babble{timer_remote} = Irssi::timeout_add($interval, \&timer_remote_babble, '');
+	}
+}
+
+################################################################################
+# Helper subroutines
+################################################################################
+
+sub babble_get_text {
+	my ($channel, $filter, $nicks, $history_size) = @_;
+	my $output;
+
+	# Return a random line from the dau_files_babble_messages file
+
+	my ($text, @file, @filterindex);
+	my $file = "$option{dau_files_root_directory}/$option{dau_files_babble_messages}";
+
+	if (-e $file && -r $file) {
+		unless (tie(@file, 'Tie::File', $file)) {
+			print_err("Cannot tie $file!");
+			return;
+		}
+	} else {
+		print_err("Couldn't access babble file '$file'!");
+		return;
+	}
+
+	my @nicks_channel   = ();
+	my @opnicks_channel = ();
+	if (defined($channel) && $channel && $channel->{type} eq 'CHANNEL') {
+		foreach my $nick ($channel->nicks()) {
+			next if ($channel->{server}->{nick} eq $nick->{nick});
+			push(@nicks_channel, $nick->{nick});
+			push(@opnicks_channel, $nick->{nick}) if ($nick->{op});
+		}
+	}
+
+	my @compiled_patterns_filter;
+	eval { # possible user input here
+		@compiled_patterns_filter = map { qr/$_/i } @$filter;
+	};
+	if ($@) {
+		print_err("The %9-filter%9 you gave wasn't a valid regular expression.");
+		print_err($@);
+		return;
+	}
+	my $compiled_pattern_nicks = qr/(?<![\\])\$nick(\d+)/;
+	my $compiled_pattern_ops   = qr/(?<![\\])\$opnick(\d+)/;
+
+	my $i = 0;
+	foreach my $line (@file) {
+		my $add = 1;
+
+		# Every filter has to match
+
+		FILTER: foreach my $filter (@compiled_patterns_filter) {
+			if ($line !~ /$filter/) {
+				$add = 0;
+				last FILTER;
+			}
+		}
+
+		# Check against history
+
+		if ($add) {
+			my $i = 1;
+			foreach (@{ $babble{history} }) {
+				if ($i++ <= $history_size) {
+					if ($line eq $_) {
+						$add = 0;
+					}
+				}
+			}
+		}
+
+		# Don't babble at non-existent nicks
+
+		if ($add) {
+			my $minimum_number_nicks = 0;
+			while ($line =~ /$compiled_pattern_nicks/g) {
+				if ($1 > $minimum_number_nicks) {
+					$minimum_number_nicks = $1;
+				}
+			}
+			if (defined($nicks) && @$nicks > 0) {
+				if (scalar(@$nicks) < $minimum_number_nicks) {
+					$add = 0;
+				}
+			} else {
+				if (scalar(@nicks_channel) < $minimum_number_nicks) {
+					$add = 0;
+				}
+			}
+		}
+
+		# Don't babble at non-existent channel operators
+
+		if ($add) {
+			if ($line =~ /$compiled_pattern_ops/) {
+				my $minimum_number_ops = 0;
+				while ($line =~ /$compiled_pattern_ops/g) {
+					if ($1 > $minimum_number_ops) {
+						$minimum_number_ops = $1;
+					}
+				}
+				if (defined($nicks) && @$nicks > 0) {
+					if (scalar(@$nicks) < $minimum_number_ops) {
+						$add = 0;
+					}
+				} else {
+					if (scalar(@opnicks_channel) < $minimum_number_ops) {
+						$add = 0;
+					}
+				}
+			}
+		}
+
+		# Add the line as it passed all the tests
+
+		if ($add) {
+			push(@filterindex, $i);
+		}
+		$i++;
+	}
+	$text = $file[$filterindex[int(rand(@filterindex))]];
+
+	if (@filterindex == 0) {
+		print_err("Babble failed. Possible reasons: a) Too restrictive %9-filter%9 in place b) No matching lines in the babble file c) babble history holding that babble d) Not enough people in the channel");
+		return;
+	}
+
+	if (!$text) {
+		print_err("No text to babble.");
+		return;
+	}
+
+	# Put babble in global history and shorten it, if necessary
+
+	@{ $babble{history} } = ($text, @{ $babble{history} });
+	if (scalar(@{ $babble{history} }) > $option{dau_babble_history_size}) {
+		pop(@{ $babble{history} });
+	}
+
+	# dauify $text and return the dauified $output
+
+	my $options = $option{dau_babble_options_line_by_line};
+
+	# We have to keep track of the command history. --me and the --command
+	# switch change the variables $command_out and $command_out_activated.
+	# Because they are reset after every run of parse_text() they have to be kept
+	# in a struct so that the writing timers later can do their job correctly.
+
+	my $counter = 1;
+	$babble{command_out_history} = ();
+	$babble{command_out_history_switch} = ();
+
+	# parse for special characters and substitute them
+
+	if (defined($nicks)) {
+		if (@$nicks > 0) {
+			for (my $i = 1; $i <= @$nicks; $i++) {
+				$text =~ s/(?<![\\])\$nick$i/@$nicks[$i - 1]/g;
+			}
+		}
+		$text = switch_parse_special($text, $channel);
+	} else {
+		$text = switch_parse_special($text, $channel);
+	}
+
+	# Preprocessing options
+
+	if ($option{dau_babble_options_preprocessing} !~ /^\s*$/) {
+		$text = parse_text("$option{dau_babble_options_preprocessing} \x02$text");
+		$text =~ s/^\x02//;
+	}
+
+	# Process $text line by line
+
+	$text =~ s/\\n/\n/g;
+	$text =~ s/\n$//;
+	while ($text =~ /(.*?)(\n|$)/g) {
+		my $line = $1;
+
+		# Exit while loop when finished
+
+		last if ($2 ne "\n" && $1 eq "");
+
+		# Dauify text
+
+		my $newtext = parse_text("$options $line") . "\n";
+
+		$output .= $newtext;
+
+		# The parsed text ($newtext) can contain more than one line.
+		# All $newtext lines have the same command.
+		# The command (MSG, ACTION, ...) has to be remembered.
+
+		while ($newtext =~ /\n/g) {
+			$babble{command_out_history}{$counter} = $command_out;
+			$babble{command_out_history_switch}{$counter} = $command_out_activated;
+			$counter++;
+		}
+	}
+
+	# Lines are separated by newline characters. Maybe there are to many of
+	# them at the end of the string (probably produced by --figlet, --cowsay, ...).
+	# That's disturbing the number of lines calculation later.
+
+	$output =~ s/\n{2,}$/\n/;
+
+	# $output contains now the text to be babbled.  It will be split by
+	# newlines by the babble subroutines and each line will be babbled with
+	# the correct commands restored.
+
+	return $output;
+}
+
+sub babble_interval {
+	return "BABBLE_INTERVAL=" . babble_set_interval(@_) . "\x02";
+}
+
+sub babble_set_interval {
+	my ($time, $accuracy) = @_;
+
+	my $interval = time_parse($time);
+
+	my $addend;
+	if ($accuracy == 100) {
+		$addend = 0;
+	} elsif ($accuracy > 0 && $accuracy < 100) {
+		$addend = rand($interval - ($interval * ($accuracy / 100)));
+	} else {
+		print_err('Invalid accuracy value');
+		return;
+	}
+
+	if (int(rand(2))) {
+		$interval = $interval + $addend;
+	} else {
+		$interval = $interval - $addend;
+	}
+
+	$interval = int($interval);
+
+	if ($interval < 10 || $interval > 1000000000) {
+		print_err('Invalid interval value');
+		return 0;
+	}
+
+	return $interval;
+}
+
+sub babble_start {
+	my ($channel_rec, $text, $remote) = @_;
+
+	# These are some global variables for the writing timer
+
+	$babble{channel}        = $channel_rec;
+	$babble{counter}        = 0;
+	$babble{text}           = "$text\n";
+	$babble{numberoflines}  = 0;
+	$babble{numberoflines}++ while ($babble{text} =~ /\n/g);
+	$babble{numberoflines} -= 1;
+	$babble{remote}         = $remote;
+
+	Irssi::timeout_remove($babble{timer_writing}) if (defined($babble{timer_writing}));
+
+	timer_babble_writing_reset();
+}
+
+sub build_nick_mode_struct {
+	undef(%nick_mode);
+
+	foreach my $server (Irssi::servers()) {
+		my $network_name = lc($server->{tag});
+
+		foreach my $channel ($server->channels()) {
+			my $channel_name = lc($channel->{name});
+			my $op = $channel->{ownnick}{op};
+			my $voice = $channel->{ownnick}{voice};
+
+			$nick_mode{$network_name}{$channel_name}{op} = $op;
+			$nick_mode{$network_name}{$channel_name}{voice} = $voice;
+		}
+	}
+}
+
+sub daumode_channels {
+	my @items;
+	my $item;
+	while ($option{dau_daumode_channels} =~ /([^,]+)/g) {
+		my $match = $1;
+		if ($match =~ s/\\$//) {
+			$item .= "$match,";
+		} else {
+			$item .= $match;
+			$item =~ s/^\s*//;
+			$item =~ s/\s*$//;
+			push @items, $item unless ($item =~ /^\s*$/);
+			$item = "";
+		}
+	}
+
+	foreach my $server (Irssi::servers()) {
+		my $network_name = $server->{tag};
+		foreach my $channel ($server->channels()) {
+			my $channel_name = $channel->{name};
+			foreach my $daumode (@items) {
+				$daumode =~ m#^([^/]+)/([^:]+):(.*)#;
+				my $item_channel  = $1;
+				my $item_network  = $2;
+				my $item_switches = $3;
+
+				if (lc($item_channel) eq lc($channel_name) &&
+				    lc($item_network) eq lc($network_name))
+				{
+					unless ($daumode{channels_in}{$network_name}{$channel_name} ||
+					        $daumode{channels_out}{$network_name}{$channel_name})
+					{
+						$channel->print("%9dau.pl%9: Activating daumode according to setting dau_daumode_channels");
+					}
+					$channel->command("dau --daumode $item_switches");
+				}
+			}
+		}
+	}
+}
+
+sub def_dau_cowsay_cowpath {
+	my $cowsay = $ENV{COWPATH} || '/usr/share/cowsay/cows';
+	chomp($cowsay);
+	return $cowsay;
+}
+
+sub def_dau_cowsay_cowsay_path {
+	my $cowsay = `which cowsay`;
+	chomp($cowsay);
+	return $cowsay;
+}
+
+sub def_dau_cowsay_cowthink_path {
+	my $cowthink = `which cowthink`;
+	chomp($cowthink);
+	return $cowthink;
+}
+
+sub def_dau_figlet_fontpath {
+	my $figlet = `figlet -I2`;
+	chomp($figlet);
+	return $figlet;
+}
+
+sub def_dau_figlet_path {
+	my $figlet = `which figlet`;
+	chomp($figlet);
+	return $figlet;
+}
+
+sub cowsay_cowlist {
+	my $cowsay_cowpath = shift;
+
+	# clear cowlist
+
+	%{ $switches{combo}{cowsay}{cow} } = ();
+
+	# generate new list
+
+	while (<$cowsay_cowpath/*.cow>) {
+		my $cow = (fileparse($_, qr/\.[^.]*/))[0];
+		$switches{combo}{cowsay}{cow}{$cow} = 1;
+	}
+}
+
+sub figlet_fontlist {
+	my $figlet_fontpath = shift;
+
+	# clear fontlist
+
+	%{ $switches{combo}{figlet}{font} } = ();
+
+	# generate new list
+
+	while (<$figlet_fontpath/*.flf>) {
+		my $font = (fileparse($_, qr/\..*/))[0];
+		$switches{combo}{figlet}{font}{$font} = 1;
+	}
+}
+
+sub fix {
+	my $string = shift;
+	$string =~ s/^\t+//gm;
+	return $string;
+}
+
+sub output_text {
+	my ($thing, $target, $text) = @_;
+
+	foreach my $line (split /\n/, $text) {
+
+		# prevent "-!- Irssi: Not enough parameters given"
+		$line = ' ' if ($line eq '');
+
+		# --command -out <command>?
+
+		if ($command_out_activated) {
+			if (defined($thing) && $thing) {
+				$thing->command("$command_out $line");
+			} else {
+				my $server = Irssi::active_server();
+
+				if (defined($server) && $server && $server->{connected}) {
+					$server->command("$command_out $line");
+				} else {
+					print CLIENTCRAP $line;
+				}
+			}
+		}
+
+		# Not a channel/query window, --help, --changelog, ...
+
+		elsif ($print_message) {
+			print CLIENTCRAP $line;
+		}
+
+		# MSG or ACTION to channel or query
+
+		elsif ($command_out eq 'ACTION' || $command_out eq 'MSG') {
+			$thing->command("$command_out $target $line");
+		}
+
+		# weird things happened...
+
+		else {
+			print CLIENTCRAP $line;
+		}
+	}
+}
+
+sub parse_text {
+	my ($data, $channel_rec) = @_;
+	my $output;
+
+	$command_out_activated = 0;
+	$command_out           = 'MSG';
+	$counter_switches      = 0;
+	$daumode_activated     = 0;
+	$print_message         = 0;
+	%queue                 = ();
+
+	OUTER: while ($data =~ /^--(\w+) ?/g) {
+
+		my $first_level_option  = $1;
+
+		# If its the first time we are in the OUTER loop, check
+		# if the first level option is one of the few options,
+		# which must not be combined.
+
+		if (ref($switches{nocombo}{$first_level_option}{'sub'}) && $counter_switches == 0) {
+
+			$data =~ s/^--\w+ ?//;
+
+			# found a first level option
+
+			$queue{$counter_switches}{$first_level_option} = { };
+
+			# Check for second level options and third level options.
+			# Get all of them and put theme in the
+			# $queue hash
+
+			while ($data =~ /^-(\w+) ('.*?(?<![\\])'|\S+) ?/g) {
+
+				my $second_level_option = $1;
+				my $third_level_option  = $2;
+
+				$third_level_option =~ s/^'//;
+				$third_level_option =~ s/'$//;
+				$third_level_option =~ s/\\'/'/g;
+
+				# If $switches{nocombo}{$first_level_option}{$second_level_option}{'*'}:
+				# The user can give any third_level_option on the commandline
+
+				my $any_option =
+				$switches{nocombo}{$first_level_option}{$second_level_option}{'*'} ? 1 : 0;
+
+				if ($switches{nocombo}{$first_level_option}{$second_level_option}{$third_level_option} ||
+				    $any_option)
+				{
+					$queue{$counter_switches}{$first_level_option}{$second_level_option} = $third_level_option;
+				}
+
+				$data =~ s/^-(\w+) ('.*?(?<![\\])'|\S+) ?//;
+			}
+
+			# initialize some values
+
+			foreach my $second_level_option (keys(%{ $switches{nocombo}{$first_level_option} })) {
+				if (!defined($queue{'0'}{$first_level_option}{$second_level_option})) {
+					$queue{'0'}{$first_level_option}{$second_level_option} = '';
+				}
+			}
+
+			# All done. Run the subroutine
+
+			$output = &{ $switches{nocombo}{$first_level_option}{'sub'} }($data, $channel_rec);
+
+			return $output;
+		}
+
+		# Check for all those options that can be combined.
+
+		elsif (ref($switches{combo}{$first_level_option}{'sub'})) {
+
+			$data =~ s/^--\w+ ?//;
+
+			# found a first level option
+
+			$queue{$counter_switches}{$first_level_option} = { };
+
+			# Check for second level options and
+			# third level options. Get all of them and put them
+			# in the $queue hash
+
+			while ($data =~ /^-(\w+) ('.*?(?<![\\])'|\S+) ?/g) {
+
+				my $second_level_option = $1;
+				my $third_level_option  = $2;
+
+				$third_level_option =~ s/^'//;
+				$third_level_option =~ s/'$//;
+				$third_level_option =~ s/\\'/'/g;
+
+				# If $switches{combo}{$first_level_option}{$second_level_option}{'*'}:
+				# The user can give any third_level_option on the commandline
+
+				my $any_option =
+				$switches{combo}{$first_level_option}{$second_level_option}{'*'} ? 1 : 0;
+
+				# known option => Put it in the hash
+
+				if ($switches{combo}{$first_level_option}{$second_level_option}{$third_level_option}
+			            || $any_option)
+				{
+					$queue{$counter_switches}{$first_level_option}{$second_level_option} = $third_level_option;
+					$data =~ s/^-(\w+) ('.*?(?<![\\])'|\S+) ?//;
+				} else {
+					last OUTER;
+				}
+			}
+
+			# increase counter
+
+			$counter_switches++;
+		}
+
+		else {
+			last OUTER;
+		}
+	}
+
+	# initialize some values
+
+	for (my $i = 0; $i < $counter_switches; $i++) {
+		foreach my $first_level (keys(%{ $queue{$i} })) {
+			if (ref($switches{combo}{$first_level})) {
+				foreach my $second_level (keys(%{ $switches{combo}{$first_level} })) {
+					if (!defined($queue{$i}{$first_level}{$second_level})) {
+						$queue{$i}{$first_level}{$second_level} = '';
+					}
+				}
+			}
+		}
+	}
+
+	# text to subroutines
+
+	$output = $data;
+
+	# If theres no text left over, take one item of dau_random_messages
+
+	if ($output eq '') {
+		$output = return_random_list_item($option{dau_standard_messages});
+	}
+
+	# No options? Get options from setting dau_standard_options and run
+	# parse_text() again
+
+	if (keys(%queue) == 0) {
+
+		if (!$counter_subroutines) {
+			print_out("No options given, hence using the value of the setting %9dau_standard_options%9 and that is %9$option{dau_standard_options}%9", $channel_rec);
+			$counter_subroutines++;
+			$output = parse_text("$option{dau_standard_options} $output", $channel_rec);
+		} else {
+			print_err('Invalid value for setting dau_standard_options. ' .
+			          'Will use %9--moron%9 instead!');
+			$output =~ s/^\Q$option{dau_standard_options}\E //;
+			$output = parse_text("--moron $output", $channel_rec);
+		}
+
+	} else {
+
+		$counter_switches = 0;
+
+		for (keys(%queue)) {
+			my ($first_level_option) = keys %{ $queue{$counter_switches} };
+			$output = &{ $switches{combo}{$first_level_option}{'sub'} }($output, $channel_rec);
+			$counter_switches++;
+		}
+	}
+
+	# reset subcounter
+
+	$counter_subroutines = 0;
+
+	# return text
+
+	return $output;
+}
+
+sub print_err {
+	my $text = shift;
+
+	foreach my $line (split /\n/, $text) {
+		print CLIENTCRAP "%Rdau.pl error%n: $line";
+	}
+}
+
+sub print_out {
+	my ($text, $channel_rec) = @_;
+
+	if ($option{dau_silence}) {
+		return;
+	}
+
+	foreach my $line (split /\n/, $text) {
+		my $message = "%9dau.pl%9: $line";
+		if (defined($channel_rec) && $channel_rec) {
+			$channel_rec->print($message);
+		} else {
+			print CLIENTCRAP $message;
+		}
+	}
+}
+
+# return_option('firstlevel', 'secondlevel'):
+#
+# If "--firstlevel -secondlevel value" given on the commandline, return 'value'.
+#
+# return_option('firstlevel', 'secondlevel', 'default value'):
+#
+# If "--firstlevel -secondlevel value" not given on the commandline, return
+# 'default value'.
+sub return_option {
+	if (@_ == 2) {
+		return $queue{$counter_switches}{$_[0]}{$_[1]};
+	} elsif (@_ == 3) {
+		if (length($queue{$counter_switches}{$_[0]}{$_[1]}) > 0) {
+			return $queue{$counter_switches}{$_[0]}{$_[1]};
+		} else {
+			return $_[2];
+		}
+	} else {
+		return 0;
+	}
+}
+
+sub return_random_list_item {
+	my $arg = shift;
+	my @strings;
+
+	my $item;
+	while ($arg =~ /([^,]+)/g) {
+		my $match = $1;
+		if ($match =~ s/\\$//) {
+			$item .= "$match,";
+		} else {
+			$item .= $match;
+			$item =~ s/^\s*//;
+			$item =~ s/\s*$//;
+			push @strings, $item;
+			$item = "";
+		}
+	}
+
+	if (@strings == 0) {
+		return;
+	} else {
+		return $strings[rand(@strings)];
+	}
+}
+
+sub set_settings {
+	# setting changed/added => change/add it here
+
+	# boolean
+	$option{dau_away_quote_reason}               = Irssi::settings_get_bool('dau_away_quote_reason');
+	$option{dau_away_reminder}                   = Irssi::settings_get_bool('dau_away_reminder');
+	$option{dau_babble_verbose}                  = Irssi::settings_get_bool('dau_babble_verbose');
+	$option{dau_color_choose_colors_randomly}    = Irssi::settings_get_bool('dau_color_choose_colors_randomly');
+	$option{dau_cowsay_print_cow}                = Irssi::settings_get_bool('dau_cowsay_print_cow');
+	$option{dau_figlet_print_font}               = Irssi::settings_get_bool('dau_figlet_print_font');
+	$option{dau_silence}                         = Irssi::settings_get_bool('dau_silence');
+	$option{dau_statusbar_daumode_hide_when_off} = Irssi::settings_get_bool('dau_statusbar_daumode_hide_when_off');
+	$option{dau_tab_completion}                  = Irssi::settings_get_bool('dau_tab_completion');
+
+	# Integer
+	$option{dau_babble_history_size}             = Irssi::settings_get_int('dau_babble_history_size');
+	$option{dau_babble_verbose_minimum_lines}    = Irssi::settings_get_int('dau_babble_verbose_minimum_lines');
+	$option{dau_cool_maximum_line}               = Irssi::settings_get_int('dau_cool_maximum_line');
+	$option{dau_cool_probability_eol}            = Irssi::settings_get_int('dau_cool_probability_eol');
+	$option{dau_cool_probability_word}           = Irssi::settings_get_int('dau_cool_probability_word');
+	$option{dau_remote_babble_interval_accuracy} = Irssi::settings_get_int('dau_remote_babble_interval_accuracy');
+
+	# String
+	$option{dau_away_away_text}                  = Irssi::settings_get_str('dau_away_away_text');
+	$option{dau_away_back_text}                  = Irssi::settings_get_str('dau_away_back_text');
+	$option{dau_away_options}                    = Irssi::settings_get_str('dau_away_options');
+	$option{dau_away_reminder_interval}          = Irssi::settings_get_str('dau_away_reminder_interval');
+	$option{dau_away_reminder_text}              = Irssi::settings_get_str('dau_away_reminder_text');
+	$option{dau_babble_options_line_by_line}     = Irssi::settings_get_str('dau_babble_options_line_by_line');
+	$option{dau_babble_options_preprocessing}    = Irssi::settings_get_str('dau_babble_options_preprocessing');
+	$option{dau_color_codes}                     = Irssi::settings_get_str('dau_color_codes');
+	$option{dau_cool_eol_style}                  = Irssi::settings_get_str('dau_cool_eol_style');
+	$option{dau_cowsay_cowlist}                  = Irssi::settings_get_str('dau_cowsay_cowlist');
+	$option{dau_cowsay_cowpath}                  = Irssi::settings_get_str('dau_cowsay_cowpath');
+	$option{dau_cowsay_cowpolicy}                = Irssi::settings_get_str('dau_cowsay_cowpolicy');
+	$option{dau_cowsay_cowsay_path}              = Irssi::settings_get_str('dau_cowsay_cowsay_path');
+	$option{dau_cowsay_cowthink_path}            = Irssi::settings_get_str('dau_cowsay_cowthink_path');
+	$option{dau_daumode_channels}                = Irssi::settings_get_str('dau_daumode_channels');
+	$option{dau_delimiter_string}                = Irssi::settings_get_str('dau_delimiter_string');
+	$option{dau_figlet_fontlist}                 = Irssi::settings_get_str('dau_figlet_fontlist');
+	$option{dau_figlet_fontpath}                 = Irssi::settings_get_str('dau_figlet_fontpath');
+	$option{dau_figlet_fontpolicy}               = Irssi::settings_get_str('dau_figlet_fontpolicy');
+	$option{dau_figlet_path}                     = Irssi::settings_get_str('dau_figlet_path');
+	$option{dau_files_away}                      = Irssi::settings_get_str('dau_files_away');
+	$option{dau_files_babble_messages}           = Irssi::settings_get_str('dau_files_babble_messages');
+	$option{dau_files_cool_suffixes}             = Irssi::settings_get_str('dau_files_cool_suffixes');
+	$option{dau_files_root_directory}            = Irssi::settings_get_str('dau_files_root_directory');
+	$option{dau_files_substitute}                = Irssi::settings_get_str('dau_files_substitute');
+	$option{dau_language}                        = Irssi::settings_get_str('dau_language');
+	$option{dau_moron_eol_style}                 = Irssi::settings_get_str('dau_moron_eol_style');
+	$option{dau_parse_special_list_delimiter}    = Irssi::settings_get_str('dau_parse_special_list_delimiter');
+	$option{dau_random_options}                  = Irssi::settings_get_str('dau_random_options');
+	$option{dau_remote_babble_channellist}       = Irssi::settings_get_str('dau_remote_babble_channellist');
+	$option{dau_remote_babble_channelpolicy}     = Irssi::settings_get_str('dau_remote_babble_channelpolicy');
+	$option{dau_remote_babble_interval}          = Irssi::settings_get_str('dau_remote_babble_interval');
+	$option{dau_remote_channellist}              = Irssi::settings_get_str('dau_remote_channellist');
+	$option{dau_remote_channelpolicy}            = Irssi::settings_get_str('dau_remote_channelpolicy');
+	$option{dau_remote_deop_reply}               = Irssi::settings_get_str('dau_remote_deop_reply');
+	$option{dau_remote_devoice_reply}            = Irssi::settings_get_str('dau_remote_devoice_reply');
+	$option{dau_remote_op_reply}                 = Irssi::settings_get_str('dau_remote_op_reply');
+	$option{dau_remote_permissions}              = Irssi::settings_get_str('dau_remote_permissions');
+	$option{dau_remote_question_regexp}          = Irssi::settings_get_str('dau_remote_question_regexp');
+	$option{dau_remote_question_reply}           = Irssi::settings_get_str('dau_remote_question_reply');
+	$option{dau_remote_voice_reply}              = Irssi::settings_get_str('dau_remote_voice_reply');
+	$option{dau_standard_messages}               = Irssi::settings_get_str('dau_standard_messages');
+	$option{dau_standard_options}                = Irssi::settings_get_str('dau_standard_options');
+	$option{dau_words_range}                     = Irssi::settings_get_str('dau_words_range');
+}
+
+sub signal_handling {
+	# complete word
+
+	if ($option{dau_tab_completion}) {
+		if ($signal{'complete word'} != 1) {
+			Irssi::signal_add_last('complete word', 'signal_complete_word');
+		}
+		$signal{'complete word'} = 1;
+	} else {
+		if ($signal{'complete word'} != 0) {
+			Irssi::signal_remove('complete word', 'signal_complete_word');
+		}
+		$signal{'complete word'} = 0;
+	}
+
+	# event privmsg
+
+	if ($option{dau_remote_permissions} =~ /^1[01][01][01][01][01]$/) {
+		if ($signal{'event privmsg'} != 1) {
+			Irssi::signal_add_last('event privmsg', 'signal_event_privmsg');
+		}
+		$signal{'event privmsg'} = 1;
+	} else {
+		if ($signal{'event privmsg'} != 0) {
+			Irssi::signal_remove('event privmsg', 'signal_event_privmsg');
+		}
+		$signal{'event privmsg'} = 0;
+	}
+
+	# nick mode changed
+
+	if ($option{dau_remote_permissions} =~ /^[01]1[01][01][01][01]$/ ||
+	    $option{dau_remote_permissions} =~ /^[01][01]1[01][01][01]$/ ||
+	    $option{dau_remote_permissions} =~ /^[01][01][01]1[01][01]$/ ||
+	    $option{dau_remote_permissions} =~ /^[01][01][01][01]1[01]$/)
+	{
+		if ($signal{'nick mode changed'} != 1) {
+			Irssi::signal_add_last('channel joined', 'build_nick_mode_struct');
+			Irssi::signal_add_last('nick mode changed', 'signal_nick_mode_changed');
+		}
+		$signal{'nick mode changed'} = 1;
+	} else {
+		if ($signal{'nick mode changed'} != 0) {
+			Irssi::signal_remove('channel joined', 'build_nick_mode_struct');
+			Irssi::signal_remove('nick mode changed', 'signal_nick_mode_changed');
+		}
+		$signal{'nick mode changed'} = 0;
+	}
+
+	# daumode: outgoing messages
+
+	my $daumode_out = 0;
+
+	foreach my $server (keys %{ $daumode{channels_out} }) {
+		foreach my $channel (keys %{ $daumode{channels_out}{$server} }) {
+			if ($daumode{channels_out}{$server}{$channel} == 1) {
+				$daumode_out = 1;
+			}
+		}
+	}
+
+	if ($daumode_out) {
+		if ($signal{'send text'} != 1) {
+			Irssi::signal_add_first('send text', 'signal_send_text');
+		}
+		$signal{'send text'} = 1;
+	} else {
+		if ($signal{'send text'} != 0) {
+			Irssi::signal_remove('send text', 'signal_send_text');
+		}
+		$signal{'send text'} = 0;
+	}
+
+	# daumode: incoming messages
+
+	my $daumode_in = 0;
+
+	foreach my $server (keys %{ $daumode{channels_in} }) {
+		foreach my $channel (keys %{ $daumode{channels_in}{$server} }) {
+			if ($daumode{channels_in}{$server}{$channel} == 1) {
+				$daumode_in = 1;
+			}
+		}
+	}
+
+	if ($daumode_in) {
+		if ($signal{'daumode in'} != 1) {
+			Irssi::signal_add_last('message public', 'signals_daumode_in');
+			Irssi::signal_add_last('message irc action', 'signals_daumode_in');
+		}
+		$signal{'daumode in'} = 1;
+	} else {
+		if ($signal{'daumode in'} != 0) {
+			Irssi::signal_remove('message public', 'signals_daumode_in');
+			Irssi::signal_remove('message irc action', 'signals_daumode_in');
+		}
+		$signal{'daumode in'} = 0;
+	}
+
+	# continuing babbles, setting daumode
+
+	if ($signal{'channel joined'} != 1) {
+		Irssi::signal_add_last('channel joined', 'signal_channel_joined');
+		Irssi::signal_add_last('channel destroyed', 'signal_channel_destroyed');
+		$signal{'channel joined'} = 1;
+	}
+
+	# Cancel babble when message could not be sent to channel
+
+	if ($signal{'event 404'} != 1) {
+		Irssi::signal_add_last('event 404', 'signal_event_404');
+		$signal{'event 404'} = 1;
+	}
+}
+
+sub time_diff_verbose {
+	my ($sub1, $sub2) = @_;
+
+	my $difference = $sub1 - $sub2;
+	$difference *= (-1) if ($difference < 0);
+	my $seconds = $difference % 60;
+	$difference = ($difference - $seconds) / 60;
+	my $minutes = $difference % 60;
+	$difference = ($difference - $minutes) / 60;
+	my $hours   = $difference % 24;
+	$difference = ($difference - $hours) / 24;
+	my $days    = $difference % 7;
+	my $weeks   = ($difference - $days) / 7;
+
+	my $time;
+	$time  = "$weeks week"     . ($weeks   == 1 ? "" : "s") . ", " if ($weeks);
+	$time .= "$days day"       . ($days    == 1 ? "" : "s") . ", " if ($weeks || $days);
+	$time .= "$hours hour"     . ($hours   == 1 ? "" : "s") . ", " if ($weeks || $days || $hours);
+	$time .= "$minutes minute" . ($minutes == 1 ? "" : "s") . ", " if ($weeks || $days || $hours || $minutes);
+	$time .= "$seconds second" . ($seconds == 1 ? "" : "s")        if ($weeks || $days || $hours || $minutes || $seconds);
+
+	return $time;
+}
+
+sub time_parse {
+	my $time = $_[0];
+	my $parsed_time = 0;
+
+	# milliseconds
+	while ($time =~ s/(\d+)\s*(?:milliseconds|ms)//g) {
+		$parsed_time += $1;
+	}
+	# seconds
+	while ($time =~ s/(\d+)\s*s(?:econds?)?//g) {
+		$parsed_time += $1 * 1000;
+	}
+	# minutes
+	while ($time =~ s/(\d+)\s*m(?:inutes?)?//g) {
+		$parsed_time += $1 * 1000 * 60;
+	}
+	# hours
+	while ($time =~ s/(\d+)\s*h(?:ours?)?//g) {
+		$parsed_time += $1 * 1000 * 60 * 60;
+	}
+	# days
+	while ($time =~ s/(\d+)\s*d(?:ays?)?//g) {
+		$parsed_time += $1 * 1000 * 60 * 60 * 24;
+	}
+	# weeks
+	while ($time =~ s/(\d+)\s*w(?:eeks?)?//g) {
+		$parsed_time += $1 * 1000 * 60 * 60 * 24 * 7;
+	}
+
+	if ($time !~ /^\s*$/) {
+		print_err('Error while parsing the date!');
+		return 0;
+	}
+
+	return $parsed_time;
+}
+
+################################################################################
+# Debugging
+################################################################################
+
+sub debug_message {
+        open(DEBUG, ">> $ENV{HOME}/.dau/.debug");
+
+        print DEBUG $_[0];
+
+        close (DEBUG);
+}
+
+#BEGIN {
+#	use warnings;
+#
+#	open(STDERR, ">> $ENV{HOME}/.dau/.STDERR");
+#}
diff --git a/scripts/dcc_ip.pl b/scripts/dcc_ip.pl
new file mode 100644
index 0000000..457c4d3
--- /dev/null
+++ b/scripts/dcc_ip.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+# dcc_ip.pl v0.5 - Copyright (c) ak5 2004
+# License: Public Domain :-)
+#
+# this scripts gets the current IP before sending a dcc..
+# useful, if you connect through a BNC f.e.
+# just load it and it will do it's job if dcc_ip_interface is set correct.
+# 
+
+# This means: If you are connecting through a router:
+#          /set dcc_ip_interface router
+# (NOT the IP of your router, just the word "router".
+#
+# If you're on dialup or something other and you see your external
+# IP address listed in 'ifconfig's output, 
+#          /set dcc_ip_interface <interface>
+# (for example ppp0)
+#
+# requires: /sbin/ifconfig ;) If you have a router, you need lynx also.
+#
+##########
+
+use Irssi;
+use vars qw($VERSION %IRSSI);
+    $VERSION = '0.5';
+    %IRSSI = (
+        authors     => 'ak5',
+        contact     => 'meister@hq.kroenk.remove-this-because-of-spam.de',
+        name        => 'dcc_ip',
+        description => 'This script sets dcc_own_ip when starting a DCC send or chat.'.
+		       'set dcc_ip_interface to your external interface, f.e. ppp0.'.
+		       'If you are connecting though a router, set it to "router"',
+        license     => 'Public Domain',
+	url	    => 'http://hq.kroenk.de/?gnu/irssi',
+	source      => 'http://hq.kroenk.de/?gnu/irssi/dcc_ip.pl/plaintext',
+	changed     => 'Sa 26 Jun 2004 22:27:08 CEST',
+    );
+
+sub dcc_ip {
+    my ($args, $shash, $c, $iface, $cmd, @arg, @ip) = @_;
+    @arg = split(" ", $args);
+    if (@arg[0] eq "send" || @arg[0] eq "chat") {
+        $iface = Irssi::settings_get_str('dcc_ip_interface');
+	
+	if ($iface eq "router") {
+		$cmd = `lynx -dump -nolist http://ipid.shat.net/iponly/`;
+		$cmd =~ s/[a-zA-Z:\ \n]//g;
+	} else {
+		$cmd = `/sbin/ifconfig $iface | head -n 2 | tail -n 1`;
+		$cmd =~ s/^[a-zA-Z\ ]*\://;
+		$cmd =~ s/\ .*$//;
+		$cmd =~ s/\n//;
+	}
+	Irssi::command("^set dcc_own_ip ".$cmd);
+
+    }
+};
+
+Irssi::settings_add_str('dcc_ip', 'dcc_ip_interface', "ppp0");
+Irssi::command_bind ('dcc', 'dcc_ip');
+#EOF
diff --git a/scripts/dccmove.pl b/scripts/dccmove.pl
new file mode 100644
index 0000000..19a2ca9
--- /dev/null
+++ b/scripts/dccmove.pl
@@ -0,0 +1,45 @@
+#! /usr/bin/perl
+#
+#    $Id: dccmove.pl,v 1.4 2007/04/17 21:32:30 peder Exp $
+#
+# Copyright (C) 2003 by Peder Stray <peder@ninja.no>
+#
+
+use Irssi;
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'dccmove',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/dccmove.pl',
+          license     => 'GPL',
+          description => 'Move completed dcc gets to the subfolder done',
+         );
+
+sub sig_dcc_closed {
+    my($dcc) = @_;
+    my($dir,$file);
+
+    return unless $dcc->{type} eq 'GET';
+    return unless -f $dcc->{file};
+
+    ($dir,$file) = $dcc->{file} =~ m,(.*)/(.*),;
+    $dir .= "/done";
+
+    if ($dcc->{transfd} < $dcc->{size}) {
+	printf('%%gDCC aborted %%_%s%%_, %%R%d%%%%%%g remaining%%n', 
+	       $file,
+	       $dcc->{size} ? 100 - $dcc->{transfd}/$dcc->{size}*100 : 0,
+	      );
+	return;
+    }
+
+    mkdir $dir, 0755 unless -d $dir;
+    rename $dcc->{file}, "$dir/$file";
+
+    printf('%%gDCC moved %%_%s%%_ to %%_%s%%_%%n', $file, $dir);
+     
+}
+
+Irssi::signal_add_last('dcc closed', 'sig_dcc_closed');
diff --git a/scripts/dccself.pl b/scripts/dccself.pl
new file mode 100644
index 0000000..e944133
--- /dev/null
+++ b/scripts/dccself.pl
@@ -0,0 +1,37 @@
+use strict;
+use vars qw/%IRSSI/;
+use Irssi qw(command_bind active_server);
+
+%IRSSI = (
+	authors     => "David Leadbeater",
+	contact     => "dgl\@dgl.cx",
+	name        => "dccself",
+	description => "/dccself ip port, starts a dcc chat with yourself on that 
+	                host/port, best used with /set dcc_autochat_masks.",
+	license     => "GPL",
+);
+
+# I tried using Juerd's style for this script - seems to make it easier to read
+# :)
+
+command_bind('dccself', sub { 
+   my $data = shift;
+	my($ip,$port) = split / |:/, $data, 2;
+
+   return unless ref active_server;
+   my $nick = active_server->{nick};
+   $ip = dcc_ip($ip);
+   active_server->command("ctcp $nick DCC CHAT CHAT $ip $port");
+} );
+
+sub dcc_ip {
+   my $ip = shift;
+   # This could block!
+   $ip = sprintf("%d.%d.%d.%d", unpack('C4',(gethostbyname($ip))[4])) 
+       unless $ip =~ /\d$/;
+
+   my @a = split /\./, $ip, 4;
+   # Thanks to perlguy/grifferz/AndrewR
+   return $a[0]*0x1000000 + $a[1]*0x10000 + $a[2]*0x100 + $a[3];
+}
+
diff --git a/scripts/dccstat.pl b/scripts/dccstat.pl
new file mode 100644
index 0000000..c34ee21
--- /dev/null
+++ b/scripts/dccstat.pl
@@ -0,0 +1,500 @@
+use Irssi::Irc;
+use Irssi 20020217; # Irssi 0.8.0
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.52";
+%IRSSI = (
+    authors     => "Matti 'qvr' Hiljanen",
+    contact     => 'matti\@hiljanen.com',
+    contributors => 'stefan@pico.ruhr.de, dieck@gmx.de, peder@ifi.uio.no',
+    name        => "dccstat",
+    description => "Shows verbose or short information of dcc send/gets on statusbar (speed, size, eta etc.)",
+    license     => "GPL, Version 2",
+    url         => "http://matin.maapallo.org/softa/irssi",
+    sbitems     => "dccstat"
+);
+
+# Theme settings:
+#   sb_dccstat = "{sb $0-}";
+#       $0 = sb_ds_short(_waiting)/sb_ds_normal(_waiting)
+#   sb_ds_short = "$0%G:%n$1%Y@%n$2kB/s%G:%n$4%G:%n$3";
+#       $0 = G/S
+#       $1 = filename
+#       $2 = transfer speed
+#       $3 = percent
+#       $4 = progressbar
+#   sb_ds_short_waiting = "$0%G:%n$1 $2 $3 waiting";
+#       $0 = G/S
+#       $1 = filename
+#       $2 = to/from
+#       $3 = nick
+#   sb_ds_normal = "$0 $1: '$2' $3 of $4 [$8] $9 ($5) $6kB/s ETA: $7";
+#       $0 = GET/SEND
+#       $1 = nick
+#       $2 = filename
+#       $3 = transferred amount
+#       $4 = full filesize
+#       $5 = percent
+#       $6 = speed
+#       $7 = ETA
+#       $8 = progressbar
+#       $9 = rotator thingy :)
+#   sb_ds_normal_waiting = "$0 $1: '$2' $3 $4 $5 waiting";
+#       $0 = GET/SEND
+#       $1 = nick
+#       $2 = filename
+#       $3 = full filesize
+#       $4 = to/from
+#       $5 = nick
+#   sb_ds_separator = ", ";
+#
+# TODO:
+#   new ideas more than welcome :) 
+# 
+# FAQ:
+#   Q: my input line gets cleared every time dcc send/get starts or ends,
+#   why's that?!
+#   A: it's a bug in irssi which is already fixed in cvs (2002-03-24 Sunday 20:06)
+#   so the solution: upgrade to cvs or live with it and wait until the next stable release
+#
+
+
+use Irssi::TextUI;
+use strict;
+
+my $dccstat_refresh=5;
+my ($refresh_tag, $old_refresh, $new_refresh, $displayed_since);
+my $visible = -1;
+my $displaying = 0;
+my @rot_bar = ('|', '/', '-', '\\\\\\\\');
+my $rot_bar_n = 0;
+my %dccstat;
+
+sub cmd_print_help {
+     Irssi::print(
+     "%_Dccstat.pl Help:%_\n\n".
+     "Statusbar called dccstat should have appeared when you loaded this script,\n".
+     "now you need to add the dccstat item into that statusbar:\n".
+     "      /statusbar dccstat add dccstat\n".
+     "      /save\n\n".
+     " The default verbose mode will produce output like this:  \n".
+     "      [GET nick: 'foobar.avi' 5500kB of 11MB (50%) 99kB/s ETA: 00:03:00]\n".
+     " and the short mode looks like this:\n".
+     "      [G:foobar.avi\@99kB/s:(50%)]\n\n".
+     " %_/SETs:%_\n".
+     "  /set dccstat_refresh <secs> (default: 5)\n".
+     "  /set dccstat_short_mode <ON/OFF> (default: OFF)\n".
+     "      shorter output and doesn't show DCCs: None when there are no GET/SENDs\n".
+     "  /set dccstat_hide_sbar_when_inactive <ON/OFF> (default: OFF)\n".
+     "      hides the statusbar called dccstat when there are no GET/SENDs\n".
+     "  /set dccstat_auto_short_limit (default: 2)\n".
+     "      amount of dcc sends/gets we can have before we automagically switch to short mode\n".
+     "      (when all the info wouldn't fit to statusbar). setting it to 0 will disable it.\n".
+     "  /set dccstat_progbar_width (default: 10)\n".
+     "      progressbar width in chars\n".
+     "  /set dccstat_progbar_transferred (default: '%%g=%%n')\n".
+     "  /set dccstat_progbar_position (default: '%%y>%%n')\n".
+     "  /set dccstat_progbar_remaining (default: '%%r-%%n')\n".
+     "  /set dccstat_cycle_through_transfers (default: OFF)\n".
+     "      cycle trough the transfers (ON) or show all transfers at the same time (OFF, default)\n".
+     "  /set dccstat_cycle_through_transfers_refresh <secs> (default: 5)\n".
+     "      how long to show one transfer at  a time\n".
+     "  /set dccstat_filename_max_length (default: 17)\n".
+     "  /set dccstat_filename_max_length_shortmode (default: 10)\n".
+     "      how much to show of a filename in normal and short modes\n\n".
+     "  /set dccstat_EXPERIMENTAL_fast_refresh (default: OFF)\n".
+     "      use very experimental and super fast refreshing, will probably consume all cpu power,\n".
+     "      depending on your connection speed. but hey, it's fun :)\n".
+     "  /set dccstat_debug (default: OFF)\n".
+     "      show debug messages\n".
+     " \n".
+     "\nSee also: STATUSBAR, DCC and theme help in the actual script"
+     ,MSGLEVEL_CRAP);
+}
+     
+sub debug {
+    my ($text) = @_;
+    return unless Irssi::settings_get_bool('dccstat_debug');
+    my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
+      localtime(time);
+    $sec = sprintf("%02d", $sec);
+    $min = sprintf("%02d", $min);
+    $hour = sprintf("%02d", $hour);
+    Irssi::print("DEBUG(%_Dccstat.pl%_): ".$text." [$hour:$min:$sec]");
+}
+
+sub startup_check {
+    debug("START-UP - DEBUG IS ON");
+    my @dccs = Irssi::Irc::dccs();
+    my $act;
+    foreach my $dcc (@dccs) { $act=$dcc if $dcc->{type} eq "SEND" || $dcc->{type} eq "GET"; };
+    dcc_connected($act);
+}
+
+sub dcc_connected {
+    debug("entering dcc_connected");
+    my ($dcc) = @_;
+    return unless $dcc->{type} eq "SEND" || $dcc->{type} eq "GET";
+    debug("removing dcc connected -signal");
+    Irssi::signal_remove('dcc connected', 'dcc_connected');
+    my $refresh_msecs = (Irssi::settings_get_int('dccstat_refresh')*1000);
+    $refresh_msecs = ($dccstat_refresh*1000) if $refresh_msecs < 1000;
+    debug("adding normal timeout..");
+    $refresh_tag=Irssi::timeout_add($refresh_msecs, 'refresh_dccstat', undef);
+    $old_refresh=Irssi::settings_get_int('dccstat_refresh');
+    Irssi::signal_add_last('dcc destroyed', 'dcc_checklast');
+    refresh_dccstat();
+}
+
+sub dcc_setupcheck {
+   $new_refresh = Irssi::settings_get_int('dccstat_refresh');
+   if ($new_refresh != $old_refresh) {
+      debug("setting a new refresh timeout");
+	  $new_refresh = ($new_refresh*1000);
+	  Irssi::timeout_remove($refresh_tag);
+	  $new_refresh = ($dccstat_refresh*1000) if $new_refresh < 1000;
+	  $refresh_tag=Irssi::timeout_add($new_refresh, 'refresh_dccstat', undef);
+	  $old_refresh=Irssi::settings_get_int('dccstat_refresh');
+   }
+   refresh_dccstat();
+}
+
+sub dcc_checklast {
+    my @dccs     = Irssi::Irc::dccs();
+    my $count    = dcc_getcount();
+    debug("check for last, count is '$count'");
+    return unless $count == 0;
+    debug("was last, removing timeout '$refresh_tag'");
+    Irssi::timeout_remove($refresh_tag);
+    Irssi::signal_remove('dcc destroyed', 'dcc_checklast');
+    Irssi::signal_add('dcc connected', 'dcc_connected');
+    refresh_dccstat();
+}
+
+# this function calculates the average speed of the last 10 seconds.
+# i think that's better than irssis default way of calculating the 
+# average speed from the whole transfer
+sub dcc_calcSpeed {
+   my @dccs = Irssi::Irc::dccs();
+   foreach my $dcc (@dccs) {
+      next unless $dcc->{type} eq "SEND" || $dcc->{type} eq "GET";
+      my $id = "$dcc->{created}" . "$dcc->{addr}" . "$dcc->{port}";
+      if (defined($dccstat{$id}{'speed'})) {
+         my $old = $dccstat{$id}{'position'};
+         my $current = $dcc->{transfd};
+         my $speed = (($current-$old)/10);
+         unless ($dccstat{$id}{'speed'} == "-1" && ($current-$old) == 0) {
+            $dccstat{$id}{'speed'} = $speed;
+         }
+         $dccstat{$id}{'position'} = $current;
+      } else {
+         # new dcc
+         my $id = "$dcc->{created}" . "$dcc->{addr}" . "$dcc->{port}";
+         debug("creating dcc hash '$id'");
+         $dccstat{$id}{'speed'} = "-1";
+         $dccstat{$id}{'position'} = "0";
+      }
+   }
+
+    # let's remove old hashes
+    foreach my $hash (keys %dccstat) {
+       my $keep = 0;
+       foreach my $dcc (@dccs) {
+          my $id = "$dcc->{created}" . "$dcc->{addr}" . "$dcc->{port}";
+          $keep = 1 if ($hash == $id);
+       }
+       if ($keep) {
+          debug("dcc '$hash' is still active, it's speed is '" . $dccstat{$hash}{'speed'} . "'");
+       } else {
+          debug("deleting dcc '$hash'");
+          delete $dccstat{$hash};
+       }
+    }     
+}
+
+### this function originally implemented by dieck@gmx.de
+sub dcc_calculateETA {
+    my $dcc = $_[0];
+    my ($dccspeed, $dccleft, $going, $dccsecs, $dcctime);
+    
+    # calculate current speed
+    $going=(time-$dcc->{starttime});
+    $going=1 if $going==0;
+    my $id = "$dcc->{created}" . "$dcc->{addr}" . "$dcc->{port}";
+    if (defined($dccstat{$id})) {
+       $dccspeed=$dccstat{$id}{'speed'};
+    } else {
+       $dccspeed = -1;
+    }
+    ## speed in bytes/sec
+    if ($dccspeed > 0) {
+    
+       # calculate left transfer size
+       $dccleft = ($dcc->{size}-$dcc->{transfd});
+       ## size left in byte
+    
+       $dccspeed=1 if $dccspeed==0;
+       $dccsecs = $dccleft / $dccspeed;  
+    
+       $dcctime =  sprintf("%02d:%02d:%02d", int($dccsecs/60/60), int($dccsecs/60%60), int($dccsecs%60));
+    } elsif ($dccspeed == "0") {
+       $dcctime = "stalled";
+    } elsif ($dccspeed == "-1") {
+       $dcctime = "???";
+    } else {
+       # panic!
+       $dcctime = "error!";
+    }
+    return $dcctime; 
+}
+
+### this function originally implemented by stefan_tomanek@web.de 
+sub dcc_progbar {
+    my ($dcc) = @_;
+    my ($filebar, $nobar);
+    my $barwidth = Irssi::settings_get_int('dccstat_progbar_width');
+    my $char1 = Irssi::settings_get_str('dccstat_progbar_transferred');
+    my $char2 = Irssi::settings_get_str('dccstat_progbar_position');
+    my $char3 = Irssi::settings_get_str('dccstat_progbar_remaining');
+    if ($dcc->{size} > 0) {
+        my $width_per_size = ($barwidth) / $dcc->{size};
+        my $transf_chars = sprintf("%.0f",($width_per_size * $dcc->{transfd}));
+        $filebar = $char1 x $transf_chars; 
+        $nobar = $char3 x ($barwidth - $transf_chars - 1);
+        return "${filebar}${char2}${nobar}";
+    } else {
+        return $barwidth x $char3;
+    }
+}
+
+sub dcc_calculateSIZE {
+    my $fsize = $_[0];
+    my ($size, $unit, $div);
+    
+    if       ($fsize >= 1024*1024*1024)  { $size = $fsize/1024/1024/1024; $unit = "GB"; $div = 2; }
+    elsif    ($fsize >= 1024*1024)       { $size = $fsize/1024/1024; $unit = "MB";  $div = 2; }
+    elsif    ($fsize >= 1024)            { $size = $fsize/1024; $unit = "kB"; $div = 0; }
+    else                                 { $size = $fsize; $unit = "B"; $div = 0; }
+    $size = sprintf("%.${div}f", $size);
+    return "${size}${unit}";
+}
+
+sub dcc_getcount { 
+    my @dccs  = Irssi::Irc::dccs();
+    my $count = 0;
+    foreach my $dcc (@dccs) { $count++ if $dcc->{type} eq "GET" || $dcc->{type} eq "SEND"; }
+    return $count;
+}
+
+sub dccstat {
+    #debug("going into main function"); 
+    my ($item, $get_size_only) = @_;
+    my @dccs=Irssi::Irc::dccs();
+    my (@results, $results);
+    my $mode      = Irssi::settings_get_bool('dccstat_short_mode');
+    my $exp_flags = Irssi::EXPAND_FLAG_IGNORE_EMPTY | Irssi::EXPAND_FLAG_IGNORE_REPLACES;
+    my $theme     = Irssi::current_theme();
+    my $format    = $theme->format_expand("{sb_dccstat}");
+    my $count     = dcc_getcount();
+    if ($count>0) {
+	my $sendcount=0;
+	my $getcount=0;
+	my (
+	    $dccpercent,   $dccspeed,      $dcctype,   $going, 
+	    $dccnick,      $dccfile,       $FooOfBar,  $str, 
+	    $fsize,        $transize,      $dcceta,    $from, 
+	    $to,           $direction,     $prep,      $autolimit,
+	    $separator,    $dccprogbar,    $dccrotbar
+	   );
+	foreach my $dcc (@dccs) {
+	    next unless $dcc->{type} eq "SEND" || $dcc->{type} eq "GET";
+	    # if count is above the autolimit, we'll force the mode to short
+        # but not if we're cycling through transfers.
+        if (not Irssi::settings_get_bool('dccstat_cycle_through_transfers')) {
+           $autolimit=Irssi::settings_get_int('dccstat_auto_short_limit');
+	       $mode=1 if $count > $autolimit && $autolimit > 0;
+        }
+	    
+	    $sendcount++ if $dcc->{type} eq "SEND";
+	    $getcount++ if $dcc->{type} eq "GET";
+	    
+	    $dccpercent = ($dcc->{size} == 0) ? "(0%)" : sprintf("%.1f", $dcc->{transfd}/$dcc->{size}*100)."%%";
+	    
+       $going = (time-$dcc->{starttime});
+	   $going = 1 if $going==0;
+        
+	    my $id = "$dcc->{created}" . "$dcc->{addr}" . "$dcc->{port}";
+        if (defined($dccstat{$id})) {
+           $dccspeed = $dccstat{$id}{'speed'};
+        } else {
+           $dccspeed = -1;
+        }
+        if ($dccspeed >= 0) {
+           $dccspeed = sprintf("%.2f", ($dccspeed/1024));
+        } else {
+           $dccspeed = sprintf("%.2f", ($dcc->{transfd}-$dcc->{skipped})/$going/1024);
+        }
+              
+        $dcctype = $dcc->{type};
+	    
+	    $dccnick = $dcc->{nick};
+	    $dccnick =~ s/\\/\\\\/g;
+	    $dccfile = $dcc->{arg};
+	    $dccfile =~ s/ /\240/g;
+	    $dccfile =~ s/\\/\\\\/g; 
+	    
+	    # if filename is longer than 17 chars, we'll show only the first 15 chars
+	    # and in short mode we'll show only 8 chars
+        # (lengths are now configurable, but the idea is the same)
+	    my $max_normal = Irssi::settings_get_int('dccstat_filename_max_length');
+        my $max_short = Irssi::settings_get_int('dccstat_filename_max_length_shortmode');
+	    if (!$mode) { 
+           $dccfile=substr($dccfile, 0, $max_normal-2).".." if (length($dccfile) > $max_normal); 
+        } else {
+           $dccfile=substr($dccfile, 0, $max_short-2).".." if (length($dccfile) > $max_short); 
+        }
+	    
+	    $fsize      = dcc_calculateSIZE($dcc->{size});
+	    $transize   = dcc_calculateSIZE($dcc->{transfd});
+	    $dccprogbar = dcc_progbar($dcc);
+	    $dccprogbar =~ s/ /\240/g;
+	    $dcceta     = dcc_calculateETA($dcc);
+	    
+	    if ($dcctype eq "GET") { $direction = "G"; $prep = "from"; }
+	    if ($dcctype eq "SEND") { $direction = "S"; $prep = "to"; }
+	    
+	    $dccrotbar  = $rot_bar[$rot_bar_n];
+	    
+	    # short mode?
+	    if ($mode) {
+		# theme?
+		if ($format) {
+		    if ($dcc->{starttime} > 0) {
+			$str = $theme->format_expand("{sb_ds_short $direction $dccfile $dccspeed $dccpercent $dccprogbar $dccrotbar}", $exp_flags);
+		    } else {
+			$str = $theme->format_expand("{sb_ds_short_waiting $direction $dccfile $prep $dccnick}", $exp_flags);
+		    }
+		} else {
+		    $str = "$direction%G:%n$dccfile";
+		    $str .= ($dcc->{starttime} > 0) ? "%G@%n${dccspeed}kB/s%G:%n$dccprogbar%G:%n$dccrotbar%G:%n$dccpercent" : " $prep $dccnick waiting";
+		}
+	    } else {
+		if ($format) {
+		    if ($dcc->{starttime} > 0) {
+			$str = $theme->format_expand("{sb_ds_normal $dcctype $dccnick $dccfile $transize $fsize $dccpercent $dccspeed $dcceta $dccprogbar $dccrotbar}", $exp_flags);
+		    } else {
+			$str = $theme->format_expand("{sb_ds_normal_waiting $dcctype $dccnick $dccfile $fsize $prep $dccnick}", $exp_flags);
+		    }
+		} else {
+		    $str = "$dcctype $dccnick: '$dccfile'";
+		    $str .= ($dcc->{starttime} > 0) ? " $transize of $fsize [$dccprogbar] $dccrotbar ($dccpercent) ${dccspeed}kB/s ETA: $dcceta" : " $fsize $prep $dccnick waiting";
+		}
+	    }
+	    push @results,$str;
+	}
+	if (not Irssi::settings_get_bool('dccstat_cycle_through_transfers')) {
+	    $separator = ($theme->format_expand("{sb_ds_separator}")) ? $theme->format_expand("{sb_ds_separator}") : ", ";
+	    $results   = join("$separator", @results);
+	} else {
+	    if (scalar(@results)-1 < $displaying) { $displaying = 0 };
+	    $results = @results[$displaying];
+        if (not $get_size_only) {
+           if ((time-$displayed_since) >= (Irssi::settings_get_int('dccstat_cycle_through_transfers_refresh'))) {
+              debug("refreshing cycle display");
+              $displaying++;
+              $displayed_since = time;
+           }
+        }
+	}
+    } else {
+	$results="%_DCCs:%_ None" if !$mode;
+    }
+    if ($format) {
+	if ($count > 0) {
+	    $results = "{sb_dccstat $results}"
+	} else {
+	    $results = "{sb_dccstat $results}" unless $mode;
+	}
+    } else {
+	if ($count > 0) {
+	    $results = "{sb $results}";
+	} else {
+	    $results = "{sb $results}" unless $mode;
+	}
+    }
+    $item->default_handler($get_size_only, "$results", undef, 1);
+}
+
+sub refresh_dccstat {
+    #debug("refreshing item");
+    my $hide      = Irssi::settings_get_bool('dccstat_hide_sbar_when_inactive');
+    my $count     = dcc_getcount();
+    
+    if ($hide && $count == 0) {
+	if ($visible == -1 || $visible == 1) {
+	    Irssi::command("statusbar dccstat disable");
+	    debug("disabling statusbar");
+	    $visible = 0;
+	}
+	return;
+    }
+    if ($visible == 0 || $visible == -1) {
+	Irssi::command("statusbar dccstat enable");
+	debug("enabling statusbar");
+	$visible = 1;
+    }
+    Irssi::statusbar_items_redraw('dccstat');
+    $rot_bar_n++;
+    $rot_bar_n %= @rot_bar;
+    
+}
+
+my $fref = 0;
+sub dcc_fast_refresh {
+    if (Irssi::settings_get_bool('dccstat_EXPERIMENTAL_fast_refresh')) 
+    {
+       refresh_dccstat();
+       $fref++;
+       debug("transfer updated! ($fref)");
+    }
+}
+
+Irssi::settings_add_int($IRSSI{'name'}, "dccstat_refresh", $dccstat_refresh);
+Irssi::settings_add_bool($IRSSI{'name'}, 'dccstat_short_mode', 0);
+Irssi::settings_add_bool($IRSSI{'name'}, 'dccstat_hide_sbar_when_inactive', 0);
+Irssi::settings_add_int($IRSSI{'name'}, 'dccstat_auto_short_limit', 2);
+Irssi::settings_add_int($IRSSI{'name'}, 'dccstat_progbar_width', 10);
+Irssi::settings_add_str($IRSSI{'name'}, 'dccstat_progbar_transferred', '%g=%n');
+Irssi::settings_add_str($IRSSI{'name'}, 'dccstat_progbar_position', '%y>%n');
+Irssi::settings_add_str($IRSSI{'name'}, 'dccstat_progbar_remaining', '%r-%n');
+Irssi::settings_add_bool($IRSSI{'name'}, 'dccstat_cycle_through_transfers', 0);
+Irssi::settings_add_int($IRSSI{'name'}, 'dccstat_cycle_through_transfers_refresh', 10);
+Irssi::settings_add_bool($IRSSI{'name'}, 'dccstat_EXPERIMENTAL_fast_refresh', 0);
+Irssi::settings_add_bool($IRSSI{'name'}, 'dccstat_debug', 0);
+Irssi::settings_add_int($IRSSI{'name'}, 'dccstat_filename_max_length', 17);
+Irssi::settings_add_int($IRSSI{'name'}, 'dccstat_filename_max_length_shortmode', 10);
+
+Irssi::command_bind('dccstat', 'cmd_print_help');
+
+Irssi::statusbar_item_register('dccstat', undef, 'dccstat');
+Irssi::timeout_add('10000', 'dcc_calcSpeed', undef);
+Irssi::signal_add('dcc connected', 'dcc_connected');
+Irssi::signal_add( 
+		  { 
+		   'setup changed'       =>  \&dcc_setupcheck,
+		   'dcc request'         =>  \&refresh_dccstat,
+		   'dcc created'         =>  \&refresh_dccstat,
+		   'dcc destroyed'       =>  \&refresh_dccstat,
+		   'dcc transfer update' =>  \&dcc_fast_refresh,
+		  } 
+		 );
+
+# Startup
+startup_check();
+refresh_dccstat();
+
+# lets save some global variables
+$old_refresh    = Irssi::settings_get_int('dccstat_refresh');
+
+Irssi::print("Dccstat.pl loaded - /dccstat for help");
+
+# EOF
diff --git a/scripts/defaultchanmode.pl b/scripts/defaultchanmode.pl
new file mode 100644
index 0000000..2fd8a8f
--- /dev/null
+++ b/scripts/defaultchanmode.pl
@@ -0,0 +1,98 @@
+#!/usr/bin/perl -w
+
+# USAGE:
+#
+# /SET default_chanmode <modes>
+#  - sets the desired default chanmodes
+#
+# Written by Jakub Jankowski <shasta@atn.pl>
+# for Irssi 0.7.98.CVS
+#
+# please report any bugs
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.1";
+%IRSSI = (
+    authors     => 'Jakub Jankowski',
+    contact     => 'shasta@atn.pl',
+    name        => 'Default Chanmode',
+    description => 'Allows your client to automatically set desired chanmode upon a join to an empty channel.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.atn.pl/',
+);
+
+use Irssi 20011211.0107 ();
+use Irssi::Irc;
+
+# defaults
+my $default_chanmode = "";
+
+# str parse_mode($string)
+# gets +a-e+bc-fg xyz
+# returns +abc-efg xyz
+sub parse_mode {
+	my ($string) = @_;
+	my ($modeStr, $rest) = split(/ +/, $string, 2);
+	my @modeParams = split(/ +/, $rest);
+	my $ptr = 0;
+	my ($mode, $plusmodes, $minusmodes, $args, $finalstring);
+
+	# processing the default_chanmode setting
+	foreach my $char (split(//, $modeStr)) {
+		if ($char eq "+") {
+			$mode = "+";
+		} elsif ($char eq "-") {
+			$mode = "-";
+		} else {
+			if ($mode eq "+") {
+				$plusmodes .= $char;
+			} elsif ($mode eq "-") {
+				$minusmodes .= $char;
+			}
+			if ($char =~ /[beIqoOdhvk]/ || ($char eq "l" && $mode eq "+")) {
+				# those are modes with arguments, so increase the pointer
+				$args .= " ".$modeParams[$ptr++];
+			}
+		}
+	}
+
+	# concatenating results
+	$finalstring .= "+".$plusmodes if (length($plusmodes) > 0);
+	$finalstring .= "-".$minusmodes if (length($minusmodes) > 0);
+	$finalstring .= $args if (length($args) > 0);
+
+	# debug stuff if you want
+	# Irssi::print("parse_mode($string) returning '$finalstring'");
+
+	return $finalstring;
+}
+
+# void event_channel_sync($channel)
+# triggered on join
+sub event_channel_sync {
+	my ($channel) = @_;
+
+	# return unless default_chanmode contains something valuable
+	my $mode = parse_mode(Irssi::settings_get_str('default_chanmode'));
+	return unless $mode;
+
+	# return unless $channel is active, synced, not modeless, and we're a chanop
+	return unless ($channel && $channel->{synced} && $channel->{chanop} && !$channel->{no_modes});
+
+	# check if we're the only one visitor
+	my @nicks = $channel->nicks();
+	return unless (scalar(@nicks) == 1);
+
+	# final stage: issue the MODE
+	$channel->command("/MODE ".$channel->{name}." ".$mode);
+}
+
+Irssi::settings_add_str('misc', 'default_chanmode', $default_chanmode);
+Irssi::signal_add_last('channel sync', 'event_channel_sync');
+
+# changes:
+#
+# 25.01.2002: Initial release (v1.0)
+# 24.02.2002: splitted into two subroutines, minor cleanups (v1.1)
diff --git a/scripts/dejunk.pl b/scripts/dejunk.pl
new file mode 100644
index 0000000..5c7c01a
--- /dev/null
+++ b/scripts/dejunk.pl
@@ -0,0 +1,418 @@
+use strict;
+use warnings;
+
+use Irssi;
+use Irssi::Irc;
+
+use Data::Dumper;
+
+our $VERSION = '1.0';
+our %IRSSI = (
+    authors     => 'Joost Vunderink (Garion)',
+    contact     => 'joost@vunderink.net',
+    name        => 'Dejunk',
+    description => 'Prevents all kinds of junk from showing up',
+    license     => 'Public Domain',
+    url         => 'http://www.garion.org/irssi/',
+    changed     => '29 September 2012 10:15:10',
+);
+
+my ($STATUS_ACTIVE, $STATUS_INACTIVE, $STATUS_UNKNOWN) = (1, 2, 3);
+my $activity_filename = 'dejunk.activity.data';
+
+# $activity{$tag}{$nickuserhost_mask} = {
+#     last_msg => time(),
+# }
+my %activity;
+
+sub cmd_dejunk {
+    my ($args, $server, $item) = @_;
+    if ($args =~ m/^(help)|(status)|(save)/i ) {
+        Irssi::command_runsub ('dejunk', $args, $server, $item);
+        return;
+    }
+    message("Use /dejunk help for help.");
+}
+
+sub cmd_dejunk_help {
+    message("Dejunk is a script that prevents some clutter from showing up.");
+    message("In large and/or busy channels, joins, parts, nickchanges and quits can take up a large part of the activity. ".
+        "Using dejunk, all these events on large channels are hidden if the user doing ".
+        "them has not said anything for a while.");
+    message("This way, you only see such activity when it matters.");
+    message("");
+    message("Commands:");
+    message("/dejunk save - Force saving of data immediately.");
+    message("");
+    message("Settings:");
+    message("dejunk_joinpart_enabled - Hide all non-relevant joins, parts, quits and nickchanges.");
+    message("dejunk_joinpart_idle_time - The amount of minutes of inactivity after which a user will be hidden.");
+    message("dejunk_joinpart_min_size - Activity on channels with fewer users than this is not hidden.");
+    message("dejunk_joinpart_show_unknown - If it's unknown whether the user has been active recently, ".
+        "show them if this setting is true. ".
+        "This is only relevant if the script has just been loaded for the first time.");
+    message("dejunk_debug - set to ON to see debug messages.");
+}
+
+sub cmd_dejunk_status {
+    report_status();
+}
+
+sub cmd_dejunk_save {
+    message("Saving dejunk data.");
+    save_data();
+}
+
+sub event_join {
+    my ($server, $channel, $nick, $host) = @_;
+
+    # Don't handle my own JOINs.
+    return if ($nick eq $server->{nick});
+
+    return if channel_size_below_joinpart_minimum($server, $channel);
+
+    my $status = get_client_status($server->{tag}, $host, $nick);
+    my $show_unknown = Irssi::settings_get_bool('dejunk_joinpart_show_unknown');
+
+    debug(sprintf("JOIN: channel=$channel nick=$nick host=$host tag=%s", $server->{tag}));
+
+    if ($status == $STATUS_ACTIVE) {
+        debug("Showing: active client");
+        return;
+    }
+    elsif ($status == $STATUS_UNKNOWN && $show_unknown) {
+        debug("Showing: unknown client and dejunk_joinpart_show_unknown is true");
+        return;
+    }
+
+    debug("Hiding: Is idle client.");
+    Irssi::signal_stop();
+}
+
+sub event_part {
+    my ($server, $channel, $nick, $host) = @_;
+
+    # Don't handle my own JOINs.
+    return if ($nick eq $server->{nick});
+
+    return if channel_size_below_joinpart_minimum($server, $channel);
+    
+    my $status = get_client_status($server->{tag}, $host, $nick);
+    my $show_unknown = Irssi::settings_get_bool('dejunk_joinpart_show_unknown');
+    
+    debug("PART: nick=$nick host=$host channel=$channel tag=%s", $server->{tag});
+
+    if ($status == $STATUS_ACTIVE) {
+        debug("Showing: active client");
+        return;
+    }
+    elsif ($status == $STATUS_UNKNOWN && $show_unknown) {
+        debug("Showing: unknown client and dejunk_joinpart_show_unknown is true");
+        return;
+    }
+
+    debug("Hiding: Is idle client.");
+    Irssi::signal_stop();
+}
+
+sub event_quit {
+    my ($server, $nick, $host) = @_;
+
+    # Don't handle my own QUITs.
+    return if ($nick eq $server->{nick});
+
+    my $channel = get_smallest_channel($server, $nick);
+    if (!$channel) {
+        warning("QUIT: Could not get smallest channel for nick '%s' on network '%s'!",
+            $nick, $server->{tag});
+        return;
+    }
+    return if channel_size_below_joinpart_minimum($server, $channel);
+
+    debug("QUIT: nick=$nick host=$host tag=%s", $server->{tag});
+
+    my $status = get_client_status($server->{tag}, $host, $nick);
+    my $show_unknown = Irssi::settings_get_bool('dejunk_joinpart_show_unknown');
+
+    if ($status == $STATUS_ACTIVE) {
+        debug("Showing: active client");
+        return;
+    }
+    elsif ($status == $STATUS_UNKNOWN && $show_unknown) {
+        debug("Showing: unknown client and dejunk_joinpart_show_unknown is true");
+        return;
+    }
+
+    debug("Hiding: Is idle client.");
+    Irssi::signal_stop();
+}
+
+sub event_nick {
+    my ($server, $newnick, $oldnick, $hostmask) = @_;
+    debug("NICK: old=$oldnick new=$newnick host=$hostmask tag=%s", $server->{tag});
+
+    my $nuh_mask = "$oldnick!$hostmask";
+    if (exists $activity{$server->{tag}}{$nuh_mask}) {
+        debug("Old client $oldnick was active; adding 'now' for $newnick");
+        $activity{$server->{tag}}{$nuh_mask} = {
+            last_msg => time(),
+        }
+    }
+
+    my $channel = get_smallest_channel($server, $newnick);
+    if (!$channel) {
+        warning("NICK: Could not get smallest channel for nick '%s' on network '%s'!",
+            $newnick, $server->{tag});
+        return;
+    }
+    return if channel_size_below_joinpart_minimum($server, $channel);
+    
+    my $status = get_client_status($server->{tag}, $hostmask, $oldnick);
+    my $show_unknown = Irssi::settings_get_bool('dejunk_joinpart_show_unknown');
+
+    if ($status == $STATUS_ACTIVE) {
+        debug("Showing: active client");
+        return;
+    }
+    elsif ($status == $STATUS_UNKNOWN && $show_unknown) {
+        debug("Showing: unknown client and dejunk_joinpart_show_unknown is true");
+        return;
+    }
+
+    debug("Hiding: Is idle client.");
+    Irssi::signal_stop();
+}
+
+sub event_public {
+    my ($server, $data, $nick, $hostmask, $channel) = @_;
+
+    # Don't handle my own messages.
+    return if ($nick eq $server->{nick});
+
+    debug("MSG: nick=$nick hostmask=$hostmask tag=%s channel=$channel", $server->{tag});
+    my $nuh_mask = "$nick!$hostmask";
+    $activity{$server->{tag}}{$nuh_mask} = {
+        last_msg => time(),
+    }
+}
+
+sub is_active_client {
+    my ($tag, $host, $nick) = @_;
+
+    my $status = get_client_status($tag, $host, $nick);
+
+    if ($status == $STATUS_ACTIVE) {
+        return 1;
+    }
+
+    return;
+}
+
+sub get_client_status {
+    my ($tag, $host, $nick) = @_;
+
+    my $nuh_mask = "$nick!$host";
+    if (exists $activity{$tag}{$nuh_mask}) {
+        my $d = $activity{$tag}{$nuh_mask};
+        if (time() - $d->{last_msg} < 60 * Irssi::settings_get_int('dejunk_joinpart_idle_time')) {
+            return $STATUS_ACTIVE;
+        }
+        else {
+            return $STATUS_INACTIVE;
+        }
+    }
+
+    return $STATUS_UNKNOWN;
+}
+
+sub channel_size_below_joinpart_minimum {
+    my ($server, $channel) = @_;
+    my $chan_obj = $server->channel_find($channel);
+    if (!$chan_obj) {
+        warning("Minsize check: could not find channel '%s' on network '%s'!",
+            $channel, $server->{tag});
+        return 1;
+    }
+    my @nicks = $chan_obj->nicks();
+    if (scalar @nicks < Irssi::settings_get_int('dejunk_joinpart_min_size')) {
+        return 1;
+    }
+    return 0;
+}
+
+sub get_smallest_channel {
+    my ($server, $nick) = @_;
+
+    my $count = 999999999;
+    my $found_channel;
+    for my $channel ($server->channels()) {
+        if ($channel->nick_find($nick)) {
+            my @nicks = $channel->nicks();
+            if (scalar @nicks < $count) {
+                $count = scalar @nicks;
+                $found_channel = $channel;
+            }
+        }
+    }
+
+    return $found_channel->{name};
+}
+
+sub load_data {
+    load_activity_data();
+}
+
+sub load_activity_data {
+    my $fn = Irssi::get_irssi_dir() . '/' . $activity_filename;
+    
+    if (!-r $fn) {
+        return;
+    }
+
+    open my $fh, '<', $fn;
+    if (!$fh) {
+        error("Could not read dejunk activity data from $fn: $!");
+        return;
+    }
+    $/ = undef;
+    my $file_contents = <$fh>;
+    eval {
+        my $data = eval $file_contents;
+        %activity = %$data;
+    };
+    if ($@) {
+        error("Error loading activity data from $fn: $@");
+    }
+    else {
+        message("Activity data loaded from $activity_filename");
+    }
+    close $fh;
+}
+
+sub save_data {
+    save_activity_data();
+}
+
+sub save_activity_data {
+    clean_activity_data();
+    my $fn = Irssi::get_irssi_dir() . '/' . $activity_filename;
+    open my $fh, '>', $fn;
+    if (!$fh) {
+        error("Could not write dejunk activity data to $fn: $!");
+        return;
+    }
+    $Data::Dumper::Indent = 1;
+    $Data::Dumper::Purity = 1;
+    $Data::Dumper::Sortkeys = 1;
+    $Data::Dumper::Terse = 1;
+    print $fh Dumper \%activity;
+    close $fh;
+}
+
+sub clean_activity_data {
+    my $threshold_time = time() - 10 * Irssi::settings_get_int('dejunk_joinpart_idle_time');
+    # Go through all clients and remove the ones that haven't performed any action
+    # in the past 10 * joinpart_idle_time seconds.
+    # The factor 10 is here to make sure that if the user increases joinpart_idle_time
+    # (by no more than a factor 10), we will still have enough data available for the
+    # script to work properly.
+    for my $tag (keys %activity) {
+        for my $nuh_mask (keys %{ $activity{$tag} }) {
+            if ($activity{$tag}{$nuh_mask}{last_msg} < $threshold_time) {
+                debug("Deleting old data for $tag:$nuh_mask");
+                delete $activity{$tag}{$nuh_mask};
+            }
+        }
+    }
+}
+
+sub report_status {
+    message("Status report:");
+    if (Irssi::settings_get_bool('dejunk_joinpart_enabled')) {
+        message("Join/part hiding enabled.");
+        my @tags = keys %activity;
+        my $num_hosts = 0;
+        for my $tag (@tags) {
+            $num_hosts += scalar keys %{ $activity{$tag} };
+        }
+        message(sprintf "Joins, parts, nickchanges, and quits are only shown for clients that have been active ".
+            "in the past %d minutes (setting 'dejunk_joinpart_idle_time').", (Irssi::settings_get_int('dejunk_joinpart_idle_time')));
+        message(sprintf "Joins, parts, nickchanges, and quits are always shown for channels with fewer than %d clients ".
+            "(setting 'dejunk_joinpart_min_size').",
+            Irssi::settings_get_int('dejunk_joinpart_min_size'));
+        message(sprintf "Currently, there is activity data on %d hostmask(s) in %d tag(s).", $num_hosts, scalar @tags);
+    }
+    else {
+        message("Join/part hiding disabled.");
+    }
+}
+
+sub UNLOAD {
+    message("Dejunk is being unloaded - saving data.");
+    save_data();
+}
+
+sub debug {
+    if (Irssi::settings_get_bool('dejunk_debug')) {
+        _log('debug', @_);
+    }
+}
+
+sub error {
+    _log('error', @_);
+}
+
+sub warning {
+    _log('warning', @_);
+}
+
+sub message {
+    _log('message', @_);
+}
+
+sub _log {
+    my ($level, $fmt, @args) = @_;
+    my $str = sprintf($fmt, @args);
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, "dejunk_$level", $str);
+}
+
+Irssi::command_bind('dejunk',        'cmd_dejunk');
+Irssi::command_bind('dejunk help',   'cmd_dejunk_help');
+Irssi::command_bind('dejunk status', 'cmd_dejunk_status');
+Irssi::command_bind('dejunk save',   'cmd_dejunk_save');
+
+Irssi::settings_add_bool('dejunk', 'dejunk_joinpart_enabled', 1);
+Irssi::settings_add_int( 'dejunk', 'dejunk_joinpart_min_size', 40);
+Irssi::settings_add_int( 'dejunk', 'dejunk_joinpart_idle_time', 15);
+Irssi::settings_add_bool('dejunk', 'dejunk_joinpart_show_unknown', 1);
+Irssi::settings_add_bool('dejunk', 'dejunk_debug', 0);
+
+Irssi::signal_add({
+    'server connected'              => \&event_connected,
+    'server disconnected'           => \&event_disconnected,
+    'message join'                  => \&event_join,
+    'message part'                  => \&event_part,
+    'message quit'                  => \&event_quit,
+    'message nick'                  => \&event_nick,
+});
+Irssi::signal_add_last('message public', \&event_public);
+
+Irssi::theme_register(
+    [
+     'dejunk_error',
+     '{line_start}{hilight Dejunk:} [%RERROR%n] $0',
+
+     'dejunk_warning',
+     '{line_start}{hilight Dejunk:} [%YWARN%n] $0',
+
+     'dejunk_message',
+     '{line_start}{hilight Dejunk:} $0',
+
+     'dejunk_debug',
+     '{line_start}{hilight Dejunk:} [DEBUG] $0',
+    ],
+);
+
+load_data();
+report_status();
+message("Type /dejunk help for help.");
diff --git a/scripts/deliciousurl.pl b/scripts/deliciousurl.pl
new file mode 100644
index 0000000..00dcf22
--- /dev/null
+++ b/scripts/deliciousurl.pl
@@ -0,0 +1,168 @@
+########################################################################################################
+##
+## Log URL's and post them to del.icio.us
+##
+########################################################################################################
+
+BEGIN { $ENV{HARNESS_ACTIVE} = 1 }
+
+use IO::Handle;
+use Irssi;
+use Irssi::Irc;
+use Net::Delicious;
+use URI::Find::Rule;
+use POSIX;
+use Log::Dispatch;
+use Log::Dispatch::File;
+
+use vars qw($VERSION %IRSSI $FINDER $WARNING_PRINTED);
+
+$VERSION = "0.5";
+%IRSSI = (
+	authors => "Benjamin Reed",
+	contact => 'ranger@befunk.com',
+	name => "deliciousurl",
+	description => "Logs URLs and posts them to del.icio.us",
+	license => "GPLv2",
+	url => "http://ranger.befunk.com/",
+);
+
+# === Version History ===
+# 2007-01-19: version 0.5, minor logging/UI tweaks
+# 2005-10-25: released version 0.4
+# 2005-10-25: fork post_to_delicious so we don't have to wait for a response (holy crap, I
+#             can't believe it was broken this long without noticing!)
+# 2005-08-24: added channel ignore, thanks to Rev. Jeffrey Paul
+
+Irssi::settings_add_str('deliciousurl', 'delicious_username', '');
+Irssi::settings_add_str('deliciousurl', 'delicious_password', '');
+Irssi::settings_add_int('deliciousurl', 'delicious_post_privmsg', 0);
+Irssi::settings_add_int('deliciousurl', 'delicious_strip_trailing_slash', 1);
+Irssi::settings_add_str('deliciousurl', 'delicious_blacklist_regexp', '(tubgirl|goatse\.cx)');
+Irssi::settings_add_str('deliciousurl', 'delicious_default_tag', 'irc');
+Irssi::settings_add_str('deliciousurl', 'delicious_ignore_chan', '');
+
+sub post_to_delicious
+{
+	my ($channel, $data, $nick) = @_;
+
+	my $username = Irssi::settings_get_str('delicious_username');
+	my $password = Irssi::settings_get_str('delicious_password');
+
+	if (not defined $username or not defined $password and not $WARNING_PRINTED)
+	{
+		if (not $WARNING_PRINTED)
+		{
+			Irssi::print("username or password are not set!");
+			$WARNING_PRINTED++;
+		}
+		return;
+	}
+
+	my $pid = fork();
+
+	if ($pid) {
+		Irssi::pidwait_add($pid);
+		return;
+	} else {
+		my $blacklist = Irssi::settings_get_str('delicious_blacklist_regexp');
+
+		eval {
+			$data =~ /$blacklist/ and die "blacklist matched!";
+		};
+		if ($@)
+		{
+			#Irssi::print("skipped in $channel (blacklist): $data");
+			POSIX::_exit(0);
+		}
+
+		$channel =~ s/^#//;
+
+		my @igc = split(
+			/\s+/,
+			Irssi::settings_get_str('delicious_ignore_chan')
+			);
+		for (@igc) {
+			s/^#//;
+			POSIX::_exit(0) if lc($_) eq lc($channel);
+		}
+
+		my $del = Net::Delicious->new({
+			user => $username,
+			pswd => $password,
+		});
+
+		my @posts = $del->posts({ tag => Irssi::settings_get_str('delicious_default_tag') });
+
+		my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
+		$year += 1900;
+		$mon  += 1;
+
+		my $dt = sprintf('%04d-%02d-%02dT%02d:%02d:%02dZ', $year, $mon, $mday, $hour, $min, $sec);
+
+		my @urls = URI::Find::Rule->in($data);
+		POSIX::_exit(0) unless (@urls);
+
+		for my $url (@urls) {
+			$url = $url->[1];
+			$url =~ s/\/*$// if (Irssi::settings_get_int('delicious_strip_trailing_slash'));
+			my $tags = Irssi::settings_get_str('delicious_default_tag') . ' ' . $channel . ' ' . $nick;
+			#my $text = sprintf('%04d-%02d-%02d %02d:%02d:%02d <%s> %s', $year, $mon, $mday, $hour, $min, $sec, $nick, $data);
+			my $text = sprintf('<%s> %s', $nick, $data);
+
+			if (my ($post) = grep { $_->href eq $url } @posts)
+			{
+				my @tags = split(/\s+/, $post->tag);
+				if (not grep { $_ eq $channel } split(/\s+/, $post->tag))
+				{
+					$tags = $post->tag . ' ' . $channel;
+				}
+				#$text = $post->extended . "\n" . $text;
+			}
+
+			my $return = $del->add_post({
+				url => $url,
+				description => $url,
+				extended => $text,
+				tags => $tags,
+				dt => $dt,
+			});
+		}
+		POSIX::_exit(0);
+	}
+}
+
+sub del_public
+{
+	my ($server, $data, $nick, $mask, $target) = @_;
+	post_to_delicious($target, $data, $nick);
+}
+
+sub del_private
+{
+	my ($server, $data, $nick, $address) = @_;
+	if (Irssi::settings_get_int('delicious_post_privmsg') > 0)
+	{
+		post_to_delicious($server->{'nick'}, $data, $nick);
+	}
+}
+
+sub del_own
+{
+	my ($server, $data, $target) = @_;
+	post_to_delicious($target, $data, $server->{'nick'});
+}
+
+sub del_topic
+{
+	my ($server, $target, $data, $nick, $mask) = @_;
+	post_to_delicious($target, $data, $nick);
+}
+
+
+Irssi::signal_add_last('message public', 'del_public');
+Irssi::signal_add_last('message private', 'del_private');
+Irssi::signal_add_last('message own_public', 'del_own');
+Irssi::signal_add_last('message topic', 'del_topic');
+
+Irssi::print("deliciousurl $VERSION ready");
diff --git a/scripts/df.pl b/scripts/df.pl
new file mode 100644
index 0000000..46b6672
--- /dev/null
+++ b/scripts/df.pl
@@ -0,0 +1,156 @@
+use Irssi;
+use Irssi::TextUI;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.1.0";
+%IRSSI = (
+	authors=> 'Jochem Meyers',
+	contact=> 'jochem.meyers@gmail.com',
+	name=> 'df',
+	description=> 'Adds an item which displays the current disk usage.',
+	license=> 'GPL v2 or later',
+	url=> 'http://kaede.kicks-ass.net/irssi.html',
+);
+
+#########
+# INFO
+###
+#
+#  Type this to add the item:
+#
+#    /statusbar window add df
+#
+#  See
+#  
+#    /help statusbar
+#
+#  for more help on how to custimize your statusbar.
+#
+#  If you want to change the way the item looks, browse down to where it reads
+#
+#  $output .= ' [' . $device . ': A: ' . $avail{$device} . ' U%%: ' . $use{$device} . ']';
+#
+#  and add or remove any of the following:
+#  $size{$device} is the total size of the drive
+#  $used{$device} is the total amount of used space
+#  $avail{$device} is the amount of available space
+#  $use{$device} is the percentage of space used
+#  $mount{$device} is the mount point
+#
+#  Next version, if I ever get around to making one, will have an easier system of changing the 
+#  way the statusbar item looks.
+#
+#  There's a command defined, /dfupdate, which will instantly update the statusbar item. If you
+#  want this information printed in the statuswindow, use /exec df -h in any window :).
+#
+############
+# OPTIONS
+######
+#
+#  The irssi command /set can be used to change these settings (more to follow):
+#  * df_refresh_time (default: 60)
+#      The number of seconds between updates.
+#
+###
+#########
+# TODO
+###
+#
+#  - Add format support so the display is more easily customizable.
+#  - Add a list of devices to display.
+#  - Add a setting that'll let user define the switches to pass to df?
+#
+#########
+
+#definte variables
+my $output;
+my ($df_refresh_tag);
+my $sbitem;
+my (%size, %used, %avail, %use, %mount);
+
+#get information about the harddrives
+sub getDiskInfo()
+{
+	my @list;
+	my $skip_line_one = 1;
+
+	open(FID, "/bin/df -h|");
+	while (<FID>)
+	{
+		if ($skip_line_one > 0)
+		{
+			$skip_line_one--;
+			next;
+		}
+		my $line = $_;
+		$line =~ s/[\s:]/ /g;
+		@list = split(" ", $line);
+		$list[0] =~ s/\/dev\///g;
+		$size{$list[0]} = $list[1];
+		$used{$list[0]} = $list[2];
+		$avail{$list[0]} = $list[3];
+		$use{$list[0]} = $list[4];
+		$mount{$list[0]} = $list[5];
+		$skip_line_one--;
+		if ($skip_line_one < -100) {
+			Irssi::print("More than 100 drives, this can't be.");
+			return;
+		}
+	}
+	close(FID);
+}
+
+#called by irssi to get the statusbar item
+sub sb_df()
+{
+	my ($item, $get_size_only) = @_;
+	$item->default_handler($get_size_only, "{sb $sbitem}", undef, 1);
+}
+
+sub test()
+{
+	refresh_df();
+}
+#refresh the statusbar item
+sub refresh_df()
+{
+	getDiskInfo();
+	$output = "";
+	$sbitem = "";
+	my @devices = keys(%size);
+	my $device;
+	foreach $device (@devices)
+	{
+		$output .= ' [' . $device . ': A: ' . $avail{$device} . ' U%%: ' . $use{$device} . ']';
+	}
+	$sbitem = 'DF' . $output;
+	Irssi::statusbar_items_redraw('df');
+	if ($df_refresh_tag)
+	{
+		Irssi::timeout_remove($df_refresh_tag)
+	}
+	my $time = Irssi::settings_get_int('df_refresh_time');
+	$df_refresh_tag = Irssi::timeout_add($time*1000, 'refresh_df', undef);
+}
+
+#register the statusbar item
+Irssi::statusbar_item_register('df', undef, 'sb_df');
+
+#add settings
+Irssi::settings_add_int('misc', 'df_refresh_time', 60);
+
+Irssi::command_bind('dfupdate','test');
+
+#run refresh_df() once so sbitem has a value
+refresh_df();
+
+################
+###
+# Changelog
+# Version 0.1.0
+#  - initial release
+#
+###
+################
diff --git a/scripts/dice.pl b/scripts/dice.pl
new file mode 100644
index 0000000..5368184
--- /dev/null
+++ b/scripts/dice.pl
@@ -0,0 +1,191 @@
+# dice / A RP Dice Simulator
+#
+# What is this?
+#
+# I often Dungeon Master on our Neverwinternights Servers called "Bund der
+# alten Reiche" (eng. "Alliance of the old realms") at bundderaltenreiche.de
+# (German Site) Often idling in our Channel I thought it might be Fun to have 
+# a script to dice. Since I found nothing for irssi I wrote this little piece
+# of script. The script assumes, that if a 'd' for english dice is given it 
+# should print the output in english. On the other hand if a 'w' for german 
+# "Würfel" is given it prints the output in german. 
+#
+# Usage.
+#
+# Anyone on the Channel kann ask "!dice" to toss the dice for him. He just has
+# to say what dice he want to use. The notation should be well known from
+# RP :-) Thus
+# 
+# Write: !dice: <quantity of dice>d[or w for german users]<sides on dice>
+#
+# Here are some examples
+# 
+# !dice: 2d20
+# !dice: 3d6
+#
+# OK, I think you got it already :-)
+#
+# Write: !dice version 
+# For Version Information
+#
+# Write: !dice help
+# For Information about how to use it
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind signal_add);
+use IO::File;
+$VERSION = '0.00.04';
+%IRSSI = (
+	authors			=> 'Marcel Kossin',
+	contact			=> 'mkossin@enumerator.org',
+	name			=> 'dice',
+	description		=> 'A Dice Simulator for Roleplaying in Channels or just for fun.',
+	license			=> 'GNU GPL Version 2 or later',
+	url			=> 'http://www.enumerator.org/component/option,com_docman/task,view_category/Itemid,34/subcat,7/'	
+);
+
+sub own_question {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	question($server, $msg, $nick, $target);
+}
+
+sub public_question {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	question($server, $msg, $nick, $target);
+}
+
+sub question($server, $msg, $nick, $target) {
+	my ($server, $msg, $nick, $target) = @_;
+	$_ = $msg;
+	
+	if (!/^!dice/i) { return 0; }
+
+	if (/^!dice:.+[d|w]\d+/i) {
+		my $value;
+		my $rnd;
+		my $forloop;
+		my $sides;
+		my $lang;
+		my @dice  = split(/ /,$_,2);
+		my @dices = split(/[d|w|D|W]/,$dice[1],2);
+		if ($_ = /^.*[w|W].*/i) {
+			$lang = "DE";
+		} else {
+			$lang = "EN";
+		}					
+		SWITCH: {
+			if ($lang eq "DE") {
+				$server->command('msg '.$target.' '.$nick.' würfelt mit dem '.$dice[1].'..... ');
+				last SWITCH; 
+			}
+			if ($lang eq "EN") {
+				$server->command('msg '.$target.' '.$nick.' tosses with the '.$dice[1].'..... ');
+				last SWITCH; 
+			}					
+		}		
+		if($dices[1] > 1) {
+			if($dices[1] < 100) {			
+				if($dices[0] < 11) {		
+					if($dices[0] < 1) {
+						$dices[0] = 1;
+					}
+					for($forloop = 1; $forloop <= $dices[0]; $forloop++) {
+						$rnd = int(rand($dices[1]-1));
+						if($rnd == 0){
+							$rnd = $dices[1];
+						}
+						$value = $value + $rnd;
+						SWITCH: {
+							if ($lang eq "DE") {
+								$server->command('msg '.$target.' '.$nick.' würfelt beim '.$forloop.'. Wurf eine '.$rnd);	
+								last SWITCH; 
+							}
+							if ($lang eq "EN") {
+								$server->command('msg '.$target.' '.$nick.' tosses at his '.$forloop.'. try  a '.$rnd);	
+								last SWITCH; 
+							}					
+						}						
+			   	}
+					SWITCH: {
+						if ($lang eq "DE") {
+							$server->command('msg '.$target.' '.$nick.' ist fertig mit Würfeln. Sein Ergebnis lautet: '.$value);	
+							last SWITCH; 
+						}
+						if ($lang eq "EN") {
+							$server->command('msg '.$target.' '.$nick.' finished. His result reads: '.$value);	
+							last SWITCH; 
+						}					
+					}						
+				} else {
+					SWITCH: {
+						if ($lang eq "DE") {
+							$server->command('msg '.$target.' '.$nick.' meint wohl in d'.$dices[1].'´s baden zu müssen... Mal im Ernst versuch es mit weniger Würfeln!' );	
+							last SWITCH; 
+						}
+						if ($lang eq "EN") {
+							$server->command('msg '.$target.' '.$nick.' seems to wanna take a bath in d'.$dices[1].'´s... Seriously! Try less dice' );	
+							last SWITCH; 
+						}					
+					}					
+				}
+			} else {
+				SWITCH: {
+					if ($lang eq "DE") {
+						$server->command('msg '.$target.' '.$nick.' baut uns bald einen riiiiiesigen d'.$dices[1].'... Mal im Ernst versuch es mit weniger Augen!' );	
+						last SWITCH; 
+					}
+					if ($lang eq "EN") {
+						$server->command('msg '.$target.' '.$nick.' soon will build us a biiiiiiiiiig d'.$dices[1].'... Seriously! Try less sides' );	
+						last SWITCH; 
+					}					
+				}				
+			}
+		} else {
+			if($dices[1] == "0") {
+				SWITCH: {
+					if ($lang eq "DE") {
+						$server->command('msg '.$target.' '.$nick.' ist dumm wie Knäckebrot... Oder hat jemand schonmal einen Würfel ohne Seiten gesehen?' );	
+						last SWITCH; 
+					}
+					if ($lang eq "EN") {
+						$server->command('msg '.$target.' '.$nick.' is chuckleheaded... Or has anybody ever seen a dice without sides?' );	
+						last SWITCH; 
+					}					
+				}				
+			}
+			if($dices[1] == "1") {		
+				SWITCH: {
+					if ($lang eq "DE") {
+						$server->command('msg '.$target.' '.$nick.' ist dumm wie Dosenthunfisch... Oder hat jemand schonmal einen Würfel mit einer Seite gesehen?' );	
+						last SWITCH; 
+					}
+					if ($lang eq "EN") {
+						$server->command('msg '.$target.' '.$nick.' plays possum... Or has anybody ever seen a dice with only one side?' );	
+						last SWITCH; 
+					}					
+				}				
+			}				
+		}		
+		return 0;
+	} elsif (/^!dice: version$/i){
+		$server->command('msg '.$target.' dice Version: '.$VERSION.' by mkossin');
+		return 0;
+	} elsif (/^!dice: help$/i){
+		$server->command('msg '.$target.' '.$nick.' Please explain which dice you want to toss: "!dice: <quantity of dice>d<sides on dice>" e. g. "!dice: 2d20"');
+		return 0;
+	} elsif (/^!dice: hilfe$/i){
+		$server->command('msg '.$target.' '.$nick.' Sag mir welchen Würfel du werfen möchtest: "!dice: <Anzahl der Würfel>w<Augen des Würfels>" z. B. "!dice: 2w20"');
+		return 0;						
+	} else {
+		if(!/^!dice.*:/i){ 
+			$server->command('msg '.$target.' '.$nick.' "!dice: help"  - gives you the english help');
+			$server->command('msg '.$target.' '.$nick.' "!dice: hilfe" - zeigt die Deutsche Hilfe an');
+			return 0;
+		}
+	}
+}
+
+signal_add("message public", "public_question");
+signal_add("message own_public", "own_question");
diff --git a/scripts/dictcomplete.pl b/scripts/dictcomplete.pl
new file mode 100644
index 0000000..e97f0a9
--- /dev/null
+++ b/scripts/dictcomplete.pl
@@ -0,0 +1,78 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(signal_add_last settings_add_bool settings_add_str
+                             settings_get_bool settings_get_str);
+$VERSION = '1.31';
+%IRSSI = (
+    authors     => 'Juerd (first version: Timo Sirainen)',
+    contact     => 'juerd@juerd.nl',
+    name        => 'Dictionary complete',
+    description => 'Caching dictionary based tab completion',
+    license     => 'Public Domain',
+    url         => 'http://juerd.nl/irssi/',
+    changed     => 'Fri Dec 6 11:12 CET 2002',
+    changes     => 'Removed a silly mistake'
+);
+
+my $file = '/usr/share/dict/words'; # file must be sorted!
+
+my @array;
+my %index;
+
+{
+    my $old = '';
+    my $start = 0;
+    my $pointer = 0;
+    open(DICT, $file) or die $!;
+    while (<DICT>) {
+	chomp;
+	push @array, $_;
+	my $letter = lc substr $_, 0, 1;
+	if ($letter ne $old) {
+	    $index{$old} = [ $start, $pointer - 1 ];
+	    $start = $pointer;
+	}
+	$old = $letter;
+	$pointer++;
+    }
+    close DICT;
+    $index{$old} = [ $start, $pointer ];
+}
+
+my %cache;
+sub sig_complete {
+     my ($complist, $window, $word, $linestart, $want_space) = @_;
+    if (defined($cache{$word})){
+	push @$complist, @{$cache{$word}};
+	return;
+    }
+
+    my $found;
+    my $mylist = [];
+    my $regex = $word =~ /[^\w-\']/;
+    return unless my $index = (($word =~ /^[^\w-\']/)
+	? [0, $#array]
+	: $index{lc substr $word, 0, 1});
+    eval {
+	for ($index->[0] .. $index->[1]) {
+    	    if ($array[$_] =~ /^$word/i) {
+		$found = 1;
+    		push @$complist, $array[$_];
+	        push @$mylist, $array[$_];
+            } else {
+    		last if $found && not $regex;
+    	    }
+	}
+    }; return if $@;
+  
+    $cache{$word} = $mylist;
+    my $max = settings_get_str 'dictcomplete_display' or 20;
+    $window->print(@$complist > $max ? "@$complist[0..($max-1)] ..." : "@$complist")
+	unless @$complist < 2 or settings_get_bool 'dictcomplete_quiet';
+}
+
+signal_add_last 'complete word' => \&sig_complete;
+
+settings_add_bool 'dictcomplete', 'dictcomplete_quiet'   => 0;
+settings_add_str  'dictcomplete', 'dictcomplete_display' => 20;
diff --git a/scripts/dispatch.pl b/scripts/dispatch.pl
new file mode 100644
index 0000000..6050520
--- /dev/null
+++ b/scripts/dispatch.pl
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.2";
+%IRSSI = (
+	authors     => "Sebastian 'yath' Schmidt",
+	contact     => "yathen\@web.de",
+	name        => "Command dispatcher",
+	description => "This scripts sends unknown commands to the server",
+	license     => "GNU GPLv2",
+	changed     => "Tue Mar  5 14:55:29 CET 2002",
+);
+
+sub event_default_command {
+	my ($command, $server) = @_;
+	return if (Irssi::settings_get_bool("dispatch_unknown_commands") == 0
+		|| !$server);
+	$server->send_raw($command);
+	Irssi::signal_stop();
+}
+
+Irssi::settings_add_bool("misc", "dispatch_unknown_commands", 1);
+Irssi::signal_add_first("default command", "event_default_command");
diff --git a/scripts/dns.pl b/scripts/dns.pl
new file mode 100644
index 0000000..989cdc3
--- /dev/null
+++ b/scripts/dns.pl
@@ -0,0 +1,199 @@
+# /DNS <nick>|<host>|<ip> ...
+# version 2.1.1
+# 
+# updated the script to fix a bug where the script would let
+# a trailing whitespace go through (ex: tab completion)
+# - inch <inch@stmpd.net>
+
+use strict;
+use Socket;
+use POSIX;
+
+use vars qw($VERSION %IRSSI); 
+$VERSION = "2.1.1";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi", 
+    name	=> "dns",
+    description	=> "/DNS <nick>|<host>|<ip> ...",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+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;
+  $nicks =~ s/\s+$//; 
+  # 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)) {
+    $nick = lc($nick);
+    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 = lc($1);
+      my $user = $2;
+      $host = lc($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/scripts/dnsspam.pl b/scripts/dnsspam.pl
new file mode 100644
index 0000000..4e0cdcf
--- /dev/null
+++ b/scripts/dnsspam.pl
@@ -0,0 +1,170 @@
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+use integer;
+
+### REQUIREMENTS
+#
+# You need spamcalc from http://spamcalc.net/ installed on your system in
+# the perl path or in ~/.irssi/scripts/spamcalc
+#
+# The data directory (below) should be set to the spamcalc dir
+#
+# It should work afterwards
+#
+
+require spamcalc::SpamCalc;
+
+my $irssidir = Irssi::get_irssi_dir();
+my $datafilesdir = $irssidir . "/scripts/spamcalc/data";
+
+my($debug) = 0;
+my $calc;
+
+################################################################################
+
+$VERSION = "1.0.0";
+%IRSSI = (
+    authors => "Pieter-Bas IJdens",
+    contact => "irssi-scripts\@nospam.mi4.org.uk",
+    name    => "dnsspam",
+    description => "Checks for DNS Spam on JOIN",
+    license => "GPLv2 or later",
+    url     => "http://pieter-bas.ijdens.com/irssi/",
+    changed => "2005-03-10"
+);
+
+################################################################################
+
+sub register_messages
+{
+    Irssi::theme_register([
+        'sc_spam_certain',
+            '%RSPAMCALC:%n {channick_hilight $0} from {hilight $1}'.
+            ' spam level: {hilight $2} on {channel $3}',
+        'sc_spam_probable',
+            '%YSPAMCALC:%n {channick_hilight $0} from {hilight $1}'.
+            ' spam level: {hilight $2} on {channel $3}',
+        'sc_spam_clean',
+            '%GSPAMCALC:%n {channick_hilight $0} from {hilight $1}'.
+            ' spam level: {hilight $2} on {channel $3}'
+    ]);
+}
+
+################################################################################
+
+sub run_spamcalc
+{
+    my($host) = @_;
+
+    # Don't do anything for unresolved ipv6 ips
+    if ($host =~ /:/) {
+            return 0;
+    }
+
+    # Don't do anything for unresolved ipv4 ips
+    if ($host =~ /[0-9]$/) {
+            return 0;
+    }
+
+    my $score = $calc->get_host_score($host);
+
+    return $score;
+}
+
+################################################################################
+
+sub event_join
+{
+    my ($server, $channame, $nick, $host) = @_;
+
+    return if $server->{chat_type} ne "IRC";
+
+    my $chanrec = $server->channel_find($channame);
+
+    if ($chanrec)
+    {
+    	my($username, $hostname) = split('@', $host);
+
+        my ($level) = run_spamcalc($hostname);
+
+        if ($level > 100)
+        {
+            $chanrec->printformat(
+                MSGLEVEL_JOINS,
+                'sc_spam_certain',
+                $nick,
+                "*!*@". $hostname,
+                $level,
+                $channame
+                );
+        }
+        elsif ($level > 50)
+        {
+            $chanrec->printformat(
+                MSGLEVEL_JOINS,
+                'sc_spam_probable',
+                $nick,
+                "*!*@". $hostname,
+                $level,
+                $channame
+                );
+        }
+        elsif ($debug > 0)
+        {
+            $chanrec->printformat(
+                MSGLEVEL_JOINS,
+                'sc_spam_clean',
+                $nick,
+                "*!*@". $hostname,
+                $level,
+                $channame
+                );
+        }
+    }
+    else
+    {
+        Irssi::print("%RDNSSPAM:%n Chanrec not found for $channame%N");
+    }
+
+    return;
+}
+
+################################################################################
+
+sub event_load_settings
+{
+    return;
+}
+
+################################################################################
+
+sub cmd_spamcalc
+{
+    my ($data, $server, $item) = @_;
+    my ($level);
+
+    $level = run_spamcalc($data);
+
+    Irssi::print("SPAMCALC: $level ($data)");
+}
+
+################################################################################
+
+$calc = SpamCalc->new();
+$calc->load_datafiles($datafilesdir);
+
+################################################################################
+ 
+register_messages();
+
+################################################################################
+
+Irssi::signal_add({
+    'message join'                  => \&event_join,
+    'setup changed'                 => \&event_load_settings
+});
+
+################################################################################
+
+Irssi::command_bind("sc", \&cmd_spamcalc);
diff --git a/scripts/doc.pl b/scripts/doc.pl
new file mode 100644
index 0000000..2861b41
--- /dev/null
+++ b/scripts/doc.pl
@@ -0,0 +1,274 @@
+# Copyright (C) 02 October 2001  Author FoxMaSk <foxmask@phpfr.org>
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+#============================================================================
+# This script manage a list of keywords 
+# with their definition...
+# The file, named "doc", is composed as follow : 
+# keyword=definition
+#
+# Then, anyone on the channel can query the file and  
+# if the keyword exists the script displays the definition, 
+# if not ; the script /msg to $nick an appropriate message
+#
+# You can also, Add ; Modify or Delete definitions ; 
+# but only *known* people can do it...
+#
+# To install it ; put the script in ~/.irssi/scripts and then 
+# cd to autorun and make ln -s ../doc.pl .
+#================================WARNING======================================
+# Requirement : script friends.pl (http://irssi.atn.pl/friends/) version 2.3
+# this one permit us to identify people who can  
+# addd/modify/delete records in the file
+#=============================================================================
+#
+# History : 
+# Before using irssi and make this script ; i used (and continue to use)
+# an eggdrop that use this feature of querying the file to help anyone
+# on the channel to find online help on demand.
+#
+# Now :
+# I will try to merge all my tcl scripts (that i use with my egg) for irssi.
+# Then, irssi will be able to react _as_ an eggdrop, but with more functions.
+#
+# Todo : 
+# 1)  make it work on multi-channel 
+#
+# Update :
+# 
+# make it work with latest friends.pl (http://irssi.atn.pl/friends/) version 2.3
+#
+# get_idx() give me the state "Friends or Not ?"
+# instead of old is_friends() function
+# 
+#
+# 2003/01/09
+# changes Irssi::get_irssi_dir()."/doc"; instead of $ENVENV{HOME}/.irssi/doc";
+# thanks to Wouter Coekaerts
+
+use Irssi::Irc;
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.3"; 
+%IRSSI = (
+    authors => 'FoxMaSk',
+    contact => 'foxmask@phpfr.org ',
+    name => 'doc',
+    description => 'manage tips ; url ; help in a doc file in the keyword=definition form',
+    license => 'GNU GPL',
+    url => 'http://team.gcu-squad.org/~odemah/'
+);
+
+#name of the channel where this feature will be used
+my $channel   = "#phpfr";
+
+#commands that manage the "doc" script
+#query
+my $cmd_query = "!doc";
+#add
+my $cmd_add   = "!doc+";
+#delete
+my $cmd_del   = "!doc-";
+#modify
+my $cmd_mod   = "!doc*";
+
+#file name to store data
+my $doc_file = Irssi::get_irssi_dir()."/doc";
+
+#==========================END OF PARMS======================================
+
+#init array
+my @doc = ();
+my $x = 0;
+
+#The main function
+sub doc_find {
+    my ($server, $msg, $nick, $address, $target) = @_;
+
+    my $keyword="";
+    my $new_definition="";
+    my $definition="";
+
+    #flag if keyword is found
+    my $find="";
+
+    #*action* to do
+    my $cmd="";
+    #the string behind *action*
+    my $line="";
+
+    #to display /msg 
+    my $info="";
+
+    #split the *action* and the rest of the line
+    ($cmd,$line) = split / /,$msg,2;
+
+    if ($target eq $channel) {
+
+        #to query
+        if ($cmd eq $cmd_query) {
+            $keyword = $line;
+            
+           ($find,$definition) = exist_doc($keyword);
+            
+            if ($find ne '') {
+                my $newmsg = join("=",$keyword,$definition);
+                $server->command("notice $target $newmsg");
+            }
+            #definition not found ; so we tell it to $nick
+            else { 
+                $info="$nick $keyword does not exist";
+                info_doc($server,$info);
+            }
+        }
+
+        else {
+        #call of friends.pl script to determine if the current
+        #$nick can manage the doc file
+        #to add
+            if ($cmd eq $cmd_add and Irssi::Script::friends::get_idx($channel,$nick,$address) != -1) {
+                ($keyword,$new_definition) = split /=/,$line,2;
+                ($find,$definition) = exist_doc($keyword);
+            
+                #definition not found ; so we add it
+                if ($find eq '') { 
+                    push(@doc,"$keyword=$new_definition");
+                    save_doc();
+                    $info="$nick added, thank you for your contribution";
+                    info_doc($server,$info);
+
+                #definition found ; so we tell it to the $nick
+                } else {
+                    $info="$nick $keyword already exists";
+                    info_doc($server,$info);
+                }
+            }
+            #to modify
+            elsif ($cmd eq $cmd_mod and Irssi::Script::friends::get_idx($channel,$nick,$address) != -1) {
+                ($keyword,$new_definition) = split /=/,$line,2;
+                ($find,$definition) = exist_doc($keyword);
+                 
+                #definition not found ; so we can't modify it
+                if ($find eq '') { 
+                    $info="$nick $keyword does not exists, can not be modified";
+                    info_doc($server,$info);
+                } else {
+                    del_doc($keyword) ;
+                    push(@doc,"$keyword=$new_definition");
+                    save_doc();
+                    $info="$nick modified, thank you for your contribution";
+                    info_doc($server,$info);
+                }
+            }
+            #to delete
+            elsif ($cmd eq $cmd_del and Irssi::Script::friends::get_idx($channel,$nick,$address) != -1) {
+                    $keyword = $line;
+                    ($find,$definition) = exist_doc($keyword);
+                    if ($find ne '') {
+                        del_doc($keyword);
+                        save_doc();
+                        $info="$nick definition has been removed";
+                        info_doc($server,$info);
+                    }
+                    else {
+                        $info="$nick $keyword does not exist, can't be deleted";
+                        info_doc($server,$info);
+                    }
+            }
+
+        }
+    }
+}
+
+
+#load datas
+sub load_doc {
+    my $doc_line="";
+    if (-e $doc_file) {
+        @doc = ();
+		Irssi::print("Loading doc from $doc_file");
+        local *DOC; 
+        open(DOC,"$doc_file");
+        local $/ = "\n";
+        while (<DOC>) { 
+            chop(); 
+            $doc_line = $_;
+            push(@doc,$doc_line); 
+        }
+        close DOC;
+		Irssi::print("Loaded " . scalar(@doc) . " record(s)");
+	} else {
+		Irssi::print("Cannot load $doc_file");
+	}
+}
+
+#remove data
+sub del_doc {
+    my ($keyword) = @_;
+    my $key_del="";
+    my $def_del="";
+    for ($x=0;$x < @doc; $x++) {
+        ($key_del,$def_del) = split /=/,$doc[$x],2;
+        if ( $key_del eq $keyword ) {
+            splice (@doc,$x,1);
+            last;
+        }
+    }
+}
+
+#store data inf "doc" file
+sub save_doc {
+    my $keyword=""; 
+    my $definition="";
+    if (-e $doc_file) {
+        open(DOC,">$doc_file");
+        for ($x=0;$x < @doc;$x++) {
+            ($keyword,$definition) = split /=/,$doc[$x],2;
+            print DOC "$keyword=$definition\n";
+        }
+        close DOC;
+    }
+}
+
+#search if keyword already exists or not
+sub exist_doc {
+    my ($keyword) = @_;
+    my $key="";
+    my $def="";
+    my $find="";
+    for ($x=0;$x < @doc;$x++) {
+        ($key,$def) = split /=/,$doc[$x],2;
+        if ($key eq $keyword) {
+            $find = "*";
+            last;   
+        }
+    }
+    return $find,$def;
+}
+
+#display /msg to $nick
+sub info_doc {
+    my ($server,$string) = @_;
+    $server->command("/msg $string");
+    Irssi::signal_stop();
+}
+
+load_doc();
+
+Irssi::signal_add_last('message public', 'doc_find');
+Irssi::print("Doc Management $VERSION loaded!");
+
diff --git a/scripts/doublefilter.pl b/scripts/doublefilter.pl
new file mode 100644
index 0000000..78a5c35
--- /dev/null
+++ b/scripts/doublefilter.pl
@@ -0,0 +1,113 @@
+##
+# doublefilter.pl
+#
+# Removes double messages, even if they appear on different channels.
+# The script stores every message it sees in a query or a channel into
+# a FIFO (a queue), if new, or increases the counter for that message.
+# Any message already in the FIFO is further ignored (e.g. doesn't show
+# up in any window).
+#
+# Customization:
+#
+# /set filter_length <n>
+# Sets the number of lines the script remembers in a FIFO to <n>.
+# Setting filter_length to 1 simulates the behaviour of repeat.pl, but
+# it depends on ignore_window if doublefilter.pl ignores the windows the
+# message gets to.
+# Default is currently set to 5.
+#
+# /set show_repeat on/off
+# If set to ON, shows the count for lines the script moves out of the FIFO.
+# Default is OFF.
+# (Idea is blatantly ripped from repeat.pl.)
+#
+# /set ignore_window on/off
+# If set to OFF, and if filter_length is set to 1, it emulates repeat.pl.
+# If set to ON, double messages get also filtered if they appear in different
+# windows (queries or channels).
+# Default is ON.
+# (This idea was also inspired by repeat.pl.)
+#
+# History:
+#
+# 0.1 Initial release.
+#
+# 0.2 Counter for messages
+#
+# 0.3 If desired, filters per message window, thus emulating repeat.pl
+##
+
+use strict;
+use Irssi;
+use Data::Dumper;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.3";
+%IRSSI = (
+	  authors	=> "Karl Siegemund",
+	  contact	=> "q \[at\] spuk.de",
+	  name		=> "doublefilter",
+	  description	=> "Filters msgs which appear the same on different channels.",
+	  license	=> "GPLv2",
+	  changed	=> "22.04.2005 9:50GMT"
+);
+
+my %lastmsgs = ();
+my %count =    ();
+my %window =   ();
+
+sub filter_check {
+    my $max  = Irssi::settings_get_int('filter_length');
+    my $show = Irssi::settings_get_bool('show_repeat');
+    my $win  = Irssi::settings_get_bool('ignore_window');
+    my ($server, $msg, $nick, undef, $target) = @_;
+    my $refnum = -1;
+    ($target, $msg) = split / :/,$msg,2;
+    if (!$win) {
+	$refnum = $server->window_find_item($target)->{refnum};
+    }
+    $msg = "<$nick> $msg";
+    if (exists $count{$refnum}{$msg}) {
+	Irssi::signal_stop();
+	++$count{$refnum}{$msg};
+	return;
+    }
+    if(exists $lastmsgs{$refnum}) {
+	$lastmsgs{$refnum} = [ $msg, @{$lastmsgs{$refnum}} ];
+    } else {
+	$lastmsgs{$refnum} = [ $msg ];
+    }
+    if(scalar @{$lastmsgs{$refnum}} > $max) {
+	my $last = pop @{$lastmsgs{$refnum}};
+	print "$last\n*** Repeated $count{$refnum}{$last} times."
+	    if $show && $count{$refnum}{$last};
+	delete $count{$refnum}{$last};
+    }
+    $count{$refnum}{$msg} = 0;
+}
+
+sub window_change {
+    my $new = shift->{refnum};
+    my $old = shift;
+
+    $count{$new}    = $count{$old};
+    $lastmsgs{$new} = $lastmsgs{$old};
+
+    delete $count{$old};
+    delete $lastmsgs{$old};
+}
+
+sub window_destroyed {
+    my $ref = shift->{refnum};
+
+    delete $count{$ref};
+    delete $lastmsgs{$ref};
+}
+
+Irssi::settings_add_int ('doublefilter', 'filter_length' => '5');
+Irssi::settings_add_bool('doublefilter', 'show_repeat' => 0);
+Irssi::settings_add_bool('doublefilter', 'ignore_window' => 1);
+
+Irssi::signal_add_first('event privmsg', \&filter_check);
+Irssi::signal_add_last('window refnum changed', \&window_change);
+Irssi::signal_add_last('window destroyed', \&window_destroyed);
diff --git a/scripts/dr_who.pl b/scripts/dr_who.pl
new file mode 100644
index 0000000..cbf3db0
--- /dev/null
+++ b/scripts/dr_who.pl
@@ -0,0 +1,257 @@
+# TODO: people I care about first
+#       multiline
+#       away toggle is slow: why
+#       on terminal resize, window width returns old size.  sleeping doesn't help
+#       does anyone know how to find space available to a statusbar instead of for the whole window?
+#       remember tickercount separately for each channel and don't reset it
+#       skip command to jump forward in the ticker
+#       only reset on dr_who setup changes, not everything else
+
+# How to use:
+#  /script load dr_who
+#  /statusbar dr_who enable
+#  /statusbar dr_who add dr_who
+# dr_who has to use the entire statusbar currently.  Maybe this will change in the future
+
+use strict;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0';
+%IRSSI = (
+	authors     => 'Bitt Faulk',
+	contact     => 'lxsfx3h02@sneakemail.com',
+	name        => 'dr_who',
+	description => 'Put a nick list in a statusbar',
+	license => 'BSD',
+	url     => 'http://beaglebros.com',
+	changed => '1-17-2005'
+);
+
+my ($dr_who_line, $timeout);
+my $tickercount = 0;
+my $direction = 1;
+
+# Stolen from autoop.pl: http://xkr47.outerspace.dyndns.org/configs/irssi/autoop.pl
+sub get_cur_channel() {
+	my $server_o = Irssi::active_server();
+	my $window_o = Irssi::active_win();
+	my @items = $window_o->items();
+	my $item_o;
+	foreach $item_o (@items) {
+		next unless($item_o->is_active());
+	
+		my $channel = $item_o->{name};
+		my $channel_o = $server_o->channel_find($channel);
+
+		return $channel_o if($channel_o);
+	}
+
+	return ();
+}
+
+sub dr_who_refresh {
+	my $channel = get_cur_channel();
+	my %channicks;
+	my $nick;
+	my $text_count = 0;
+	my @nicks;
+	my $continue = 0;
+	my $displaytype = Irssi::settings_get_str('dr_who_longdisplay');
+	my $atend;
+	my $buffer;
+
+	if ( $channel ) {
+		my $window_width = Irssi::active_win()->{width};
+		foreach $nick (get_cur_channel()->nicks()) {
+			$channicks{$nick->{nick}} = $nick;
+		}
+		$dr_who_line = "{sb ";
+		$text_count += 4; #for bracket/space borders
+		$atend = scalar(keys %channicks);
+		foreach $nick (sort {uc($a) cmp uc($b)} keys %channicks) {
+			my ( $new_nick, $new_nick_width );
+
+			$atend--;
+			if ( $channicks{$nick}->{gone} ) {
+				$new_nick .= "{nohilight ";
+			} else {
+				$new_nick .= "{hilight ";
+			}
+			if ( Irssi::settings_get_bool('dr_who_nickflags') ) {
+				if ( $channicks{$nick}->{serverop} ) {
+					$new_nick .= "*";
+					$new_nick_width += 1;
+				}
+				if ( $channicks{$nick}->{op} ) {
+					$new_nick .= "@";
+					$new_nick_width += 1;
+				} elsif ( $channicks{$nick}->{voice} ) {
+					$new_nick .= "+";
+					$new_nick_width += 1;
+				}
+			}
+			$new_nick .= "$nick}";
+			$new_nick_width += length($nick);
+			if ( $displaytype eq "ticker" ) {
+				if ( $tickercount > 0 ) {
+					$buffer = 6;
+				} else {
+					$buffer = 0;
+				}
+				if ( (($text_count+$new_nick_width+$#nicks+1) > $window_width+$tickercount-$buffer) ) { # already written nicks and other text, plus new nick, plus spaces to separate them all (+1 because $#nicks is the last index, not the number in the array)
+					$continue = 1;
+					if ( (($window_width+$tickercount) - ($text_count+$#nicks+1)) > 5 ) { # there's at least six characters left available
+						my $extra = ($text_count+$new_nick_width+$#nicks+1) - ($window_width+$tickercount); # How far over?
+						$new_nick = substr($new_nick, 0, length($new_nick) - ($extra + 7));
+						$new_nick .= "}";
+						$new_nick_width -= ($extra + 7);
+						$text_count += $new_nick_width;
+						push(@nicks, { nick => $new_nick, len => $new_nick_width });
+					} else {
+						my $extra = ($text_count+$#nicks) - ($window_width+$tickercount) + 6; # How far over?
+						while ( $extra > 0 ) {
+							if ( $extra >= $nicks[$#nicks]{len} ) {
+								$extra -= $nicks[$#nicks]{len};
+								$text_count -= $nicks[$#nicks]{len};
+								pop(@nicks);
+								$nicks[$#nicks]{nick} .= " ";
+							} else {
+								$nicks[$#nicks]{nick} = substr($nicks[$#nicks]{nick}, 0, (length($nicks[$#nicks]{nick}) - $extra - 1));
+								$nicks[$#nicks]{nick} .= "}";
+								$nicks[$#nicks]{len} -= $extra;
+								$text_count -= $extra;
+								$extra = 0;
+							}
+						}
+					}
+					last;
+				} else {
+					if ( $tickercount > 0 ) {
+						$continue = 1;
+					}
+					push(@nicks, { nick => $new_nick, len => $new_nick_width });
+					$text_count += $new_nick_width;
+					if ( ($atend == 0) && ($tickercount > 0) ) {
+						$direction = -1;
+					}
+				}
+			} else {
+				if ( ($text_count+$new_nick_width+$#nicks+1) > $window_width ) { # length of already-written nicks and other text, plus length of the current nick, plus spaces to put between them all (the 1 is because $#nicks is the last index, not the number of items in the array)
+					$continue = 1;
+					if ( ($window_width - ($text_count+$#nicks+1)) > 2 ) {
+						my $extra = (($text_count+$#nicks+1)+$new_nick_width)-$window_width;
+						$new_nick = substr($new_nick, 0, length($new_nick) - ($extra + 4));
+						$new_nick .= "}";
+						push(@nicks, { nick => $new_nick, len => $new_nick_width });
+					} else {
+						my $extra = ($text_count+$#nicks) - $window_width + 3;
+						while ( $extra > 0 ) {
+							if ( $extra >= $nicks[$#nicks]{len} ) {
+								$extra -= $nicks[$#nicks]{len};
+								pop(@nicks);
+								$nicks[$#nicks]{nick} .= " ";
+							} else {
+								$nicks[$#nicks]{nick} = substr($nicks[$#nicks]{nick}, 0, (length($nicks[$#nicks]{nick}) - $extra - 1));
+								$nicks[$#nicks]{nick} .= "}";
+								$extra = 0;
+							}
+						}
+					}
+					last;
+				} else {
+					push(@nicks, { nick => $new_nick, len => $new_nick_width });
+					$text_count += $new_nick_width;
+				}
+			}
+		}
+		if ($continue && ($displaytype eq "ticker")) {
+			$dr_who_line .= "<--";
+			my $i = $tickercount;
+			my $tempspace;
+			foreach my $nickhash ( @nicks ) {
+				if ( $i > 0 ) {
+					if ( $$nickhash{len} == $i ) {
+						$i -= $$nickhash{len};
+						$dr_who_line .= " ";
+					} elsif ( $$nickhash{len} < $i ) {
+						$i -= $$nickhash{len} + 1;
+					} else {
+						$$nickhash{nick} =~ s/ (.*)}$//;
+						my $cut = $1;
+						$cut = substr($cut, $i);
+						$dr_who_line .= "$$nickhash{nick} $cut} ";
+						$i = 0;
+					}
+				} else {
+					$dr_who_line .= $$nickhash{nick} . " ";
+				}
+			}
+			$tickercount += $direction;
+			if ( $tickercount == 0 ) {
+				$direction = 1;
+			}
+			#if ( $tickercount < 0 ) {
+				#$tickercount = 0;
+				#$direction = 1;
+			#} elsif ( $atend == 0 ) {
+				#$atend = 0;
+				#$tickercount = -1;
+			#}
+			Irssi::timeout_remove($timeout);
+			$timeout = Irssi::timeout_add_once(Irssi::settings_get_int('dr_who_tickerspeed'), 'dr_who_refresh', undef);
+		} else {
+			$tickercount = 0;
+			$direction = 1;
+			foreach my $nickhash ( @nicks ) {
+				$dr_who_line .= $$nickhash{nick} . " ";
+			}
+		}
+		chop($dr_who_line);
+		$dr_who_line .= "-->" if ($continue);
+		$dr_who_line .= "}";
+	} else {
+		$dr_who_line = "";
+	}
+
+	Irssi::statusbar_items_redraw('dr_who');
+}
+
+sub dr_who_reset {
+	$tickercount = 0;
+	$direction = 1;
+	if (Irssi::settings_get_int('dr_who_tickerspeed') < 10 ) {
+		Irssi::print("dr_who: tickerspeed must be at least 10 milliseconds");
+		Irssi::settings_set_int('dr_who_tickerspeed', 10);
+	}
+	dr_who_refresh();
+}
+
+sub dr_who {
+	my ($item, $get_size_only) = @_;
+	$item->default_handler($get_size_only, $dr_who_line, undef, 1);
+}
+
+sub dr_who_start {
+	Irssi::statusbar_item_register('dr_who', undef, 'dr_who');
+	Irssi::command_bind('dr_who_refresh', 'dr_who_refresh');
+	Irssi::settings_add_bool('dr_who', 'dr_who_nickflags', 1);
+	Irssi::settings_add_str('dr_who', 'dr_who_longdisplay', 'static');
+	Irssi::settings_add_int('dr_who', 'dr_who_tickerspeed', 500);
+	&dr_who_refresh();
+	Irssi::signal_add('window changed', 'dr_who_reset');
+	Irssi::signal_add('nicklist new', 'dr_who_refresh');
+	Irssi::signal_add('nicklist remove', 'dr_who_refresh');
+	Irssi::signal_add('nicklist changed', 'dr_who_refresh');
+	Irssi::signal_add('channel joined', 'dr_who_refresh');
+	Irssi::signal_add('nick mode changed', 'dr_who_refresh');
+	Irssi::signal_add('user mode changed', 'dr_who_refresh');
+	Irssi::signal_add('away mode changed', 'dr_who_refresh');
+	Irssi::signal_add('terminal resized', 'dr_who_reset');
+	Irssi::signal_add('setup changed', 'dr_who_reset');
+}
+
+&dr_who_start();
+
+# vim: set shiftwidth=2 tabstop=2:
diff --git a/scripts/efnetorg.pl b/scripts/efnetorg.pl
new file mode 100644
index 0000000..200593b
--- /dev/null
+++ b/scripts/efnetorg.pl
@@ -0,0 +1,87 @@
+# include $whois_decip somewhere in your /FORMAT whois
+
+use Irssi 20011207;
+use strict;
+use vars qw($VERSION %IRSSI); 
+
+$VERSION = "1.2";
+
+%IRSSI = (
+    authors => "Espen Holm Nilsen",
+    contact => "holm\@blackedge.org",
+    name => "efnetorg",
+    description => "Print the real IP address of efnet.org clients when they join/part channels, and whois.",
+    license => "GPLv2 or later",
+    url => "http://www.holmnilsen.com/"
+);
+
+my $whois_decip = "";
+
+sub whois_signal {
+  my ($server, $data, $nick, $host) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+     if($host eq "chat.efnet.org") {
+	$whois_decip = hex2dec($user);
+	} else {
+	$whois_decip = "";
+	}
+}
+
+sub expando_decip {
+  if($whois_decip ne "") {
+  return "(" . $whois_decip . ")";
+  } else {
+  return $whois_decip;
+  }
+ }
+
+sub hex2dec ($) {
+  my ($hexip) = @_;
+     my @iparr = split(//, $hexip);
+     my $decip = hex($iparr[0] . $iparr[1]) . "." . hex($iparr[2] . $iparr[3]) . "." . hex($iparr[4] . $iparr[5]) . "." . hex($iparr[6] . $iparr[7]);
+     return $decip;
+}
+
+sub client_part {
+  my ($server, $channame, $nick, $host) = @_;
+   $channame =~ s/^://;
+
+   my $channel = $server->channel_find($channame);
+
+   return unless ($host =~ /\@chat.efnet.org$/);
+   my @hostz = split("\@", $host);
+
+   my $ident = $hostz[0];
+   my $decip = hex2dec($ident);
+   $channel->printformat(MSGLEVEL_PARTS, 'part_efnetorg', $nick, $host, $decip, $channel->{name});
+   Irssi::signal_stop();
+   return 0;
+}
+
+sub client_join {
+  my ($server, $channame, $nick, $host) = @_;
+   $channame =~ s/^://;
+
+   my $channel = $server->channel_find($channame);
+
+   return unless ($host =~ /\@chat.efnet.org$/);
+   my @hostz = split("\@", $host);
+
+   my $ident = $hostz[0];
+   my $decip = hex2dec($ident);
+   $channel->printformat(MSGLEVEL_JOINS, 'join_efnetorg', $nick, $host, $decip, $channel->{name});
+   Irssi::signal_stop();
+   return 0;   
+
+}
+
+Irssi::theme_register([
+'join_efnetorg', '{channick_hilight $0} {chanhost_hilight $1} ({hilight $2}) has joined {channel $3}',
+'part_efnetorg', '{channick $0} {chanhost $1} ({hilight $2}) has left {channel $3}'
+]);
+
+Irssi::expando_create('whois_decip', \&expando_decip, { 'event 311' => 'None' } );
+Irssi::signal_add_first('event 311', 'whois_signal');
+Irssi::signal_add('message join', 'client_join');
+Irssi::signal_add('message part', 'client_part');
+
diff --git a/scripts/elist.pl b/scripts/elist.pl
new file mode 100644
index 0000000..104c108
--- /dev/null
+++ b/scripts/elist.pl
@@ -0,0 +1,127 @@
+#!/usr/bin/perl
+
+# (c) 2007, Ilya Cassina <icassina@gmail.com>
+#
+# inspired by 'xlist.pl' by Matthäus 'JonnyBG' Wander <jbg@swznet.de>
+
+# Usage: /elist [-min <usercount>] [-max <usercount] [#]<channelmask>
+
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use Getopt::Long;
+
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'Ilya Cassina',
+    contact     => 'icassina@gmail.com',
+    name        => 'Enanched LIST',
+    description => 'This script allow advanced parametrization ' .
+                   'of the /list command. Accepted parameters are ' .
+                   '-minusers <#users> and -maxusers <#users>. ',
+    license     => 'GPLv2',
+);
+
+use Irssi qw(
+    command_bind
+    signal_add
+);
+
+### global variables ####
+my %elist_channels = ();
+my %elist_config = ();
+
+
+sub elist_channels_free {
+  %elist_channels = ();
+}
+
+sub elist_config_init {
+  %elist_config = (
+    mincount => 0,
+    maxcount => 10000,
+    chanmask => ""
+  );
+}
+
+sub elist {
+  my ($data, $server, $witem) = @_;
+
+  ### init variables ###
+  elist_config_init();
+  
+  #### processing arguments using Getopt ###
+  Getopt::Long::config('permute', 'no_ignore_case');
+  
+  local(@ARGV) = split(/\s/, $data,);
+  GetOptions (
+    'mincount|m=i' => \$elist_config{"mincount"},
+    'maxcount|M=i' => \$elist_config{"maxcount"},
+  );
+ 
+  ## setting chanmask (remaining argument) ##
+  if (@ARGV . length == 0) {
+    $elist_config{"chanmask"} = "";
+  } else {
+    # adding '#' character at the beginning if not already present! #
+    if ($ARGV[0] !~/^\#.*/) {
+      $elist_config{"chanmask"} = "\#". $ARGV[0];
+    } else {
+      $elist_config{"chanmask"} = $ARGV[0];
+    }
+  }
+
+  ### sending LIST command to the server ###
+  print "%K[%n".$server->{'tag'}."%K]%n %B<-->%n %m"."elist %n%B(%y"."min=%m".$elist_config{"mincount"}."%n".
+                                                     ", %y"."max=%m".$elist_config{"maxcount"}."%n".
+                                                     ", %y"."mask=%K'%m".$elist_config{"chanmask"}."%K'%B)";
+  $server->command("LIST " . $elist_config{"chanmask"});
+}
+
+
+sub elist_collect {
+  my ($server, $data) = @_;
+          
+  my (undef, $channel, $users, $topic) = split(/\s/, $data, 4);
+  $topic = substr($topic, 1);
+                 
+  if ($users >= $elist_config{"mincount"} and $users <= $elist_config{"maxcount"}) {
+    push @{$elist_channels{$users}}, [ $channel, $topic ];
+  }
+}
+
+sub elist_show {
+  my ($server) = @_;
+  my ($printstring, $channel);
+
+  ## keys of elist_channels are (int) users in channel ##
+  foreach (reverse sort { $a <=> $b } keys %elist_channels) {
+    my $user_count = $_;
+    ## values are arrays of [ channel_name, topic ] ##
+    foreach (@{$elist_channels{$user_count}}) {
+      $printstring = "%K[%n" . $server->{'tag'} . "%K]%n " .
+                      sprintf("%4d", $user_count ) .
+                      " " . @{$_}[0];  ## channel name
+      if (length @{$_}[1] > 0) {
+        $printstring .= " %B->%n " . @{$_}[1]; ## topic
+      }
+
+      print $printstring;
+    }
+  }
+
+  elist_channels_free();
+
+  print "%K[%n".$server->{'tag'}."%K]%n %B<-->%n End of %m"."elist%n";
+}
+
+command_bind('elist', \&elist);
+signal_add('event 322', \&elist_collect);
+signal_add('event 323', \&elist_show);
+
+
+##print "Usage: /elist [-min <usercount>] [-max <usercount] [#]<channelmask>"
+
+# EOF #
diff --git a/scripts/eliza.pl b/scripts/eliza.pl
new file mode 100644
index 0000000..b8d5674
--- /dev/null
+++ b/scripts/eliza.pl
@@ -0,0 +1,107 @@
+# Answers to /msg's using Chatbot::Eliza when you're away.
+
+# Put definition files to ~/.irssi/eliza/*.txt
+# Uses the default definitions if there aren't any definition files.
+# http://misterhouse.net:81/mh/data/eliza/
+
+use strict;
+use 5.6.0;
+use Irssi;
+use Chatbot::Eliza;
+
+use vars qw($VERSION %IRSSI $eliza_dir @cmd_queue
+  $min_reply_time $max_reply_time
+  %conversations $conversation_expire);
+
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'Johan "Ion" Kiviniemi',
+    contact     => 'ion at hassers.org',
+    name        => 'Eliza',
+    description => 'Answers to /msg\'s using Chatbot::Eliza when you\'re away.',
+    license     => 'Public Domain',
+    url         => 'http://ion.amigafin.org/scripts/',
+    changed     => 'Thu Mar 14 05:29 EET 2002',
+);
+
+$eliza_dir = Irssi::get_irssi_dir . "/eliza";
+undef $eliza_dir unless -d $eliza_dir;
+
+$min_reply_time      = 5;      # seconds
+$max_reply_time      = 15;     # seconds as well
+$conversation_expire = 600;    # seconds again
+
+Irssi::timeout_add(
+    1000 * $conversation_expire, sub {
+        foreach (keys %conversations) {
+            if ($conversations{$_}{lastmsg} < time - $conversation_expire) {
+                # The Chatbot::Eliza object will be destroyed automagically.
+                delete $conversations{$_};
+            }
+        }
+    },
+    undef
+);
+
+sub new_eliza {
+    my ($name, $eliza_o, @files) = shift;
+    if ($eliza_dir) { @files = <$eliza_dir/*.txt> }
+    if (@files) {
+        $eliza_o = Chatbot::Eliza->new(scriptfile => $files[ rand @files ])
+          || return;
+    } else {
+        $eliza_o = Chatbot::Eliza->new() || return;
+    }
+    $eliza_o->name($name);
+    return $eliza_o;
+}
+
+Irssi::signal_add(
+    'message private' => sub {
+        # Someone just msg'ed me.
+        my ($server, $message, $nick, $address) = @_;
+        return if $nick eq $server->{nick};
+
+        # Ignore it if I'm not away.
+        return unless $server->{usermode_away};
+
+        if (not $conversations{$address}
+            and $conversations{$address}{lastmsg} < time - $conversation_expire)
+        {
+            # A new conversation.
+            $conversations{$address} = { lastmsg => time };
+            unless ($conversations{$address}{eliza} =
+                new_eliza($server->{nick}))
+            {
+                Irssi::print("Chatbot::Eliza->new() failed!",
+                    MSGLEVEL_CLIENTERROR);
+                delete $conversations{$address};
+                return;
+            }
+        } else {
+            # Continuing an old conversation.
+            $conversations{$address}{lastmsg} = time;
+        }
+        push_queue($server, "msg $nick "
+            . $conversations{$address}{eliza}->transform($message));
+    }
+);
+
+sub push_queue {
+    my ($server, $command) = @_;
+    return if @cmd_queue > 3;
+    my $reply_time =
+      int(time + $min_reply_time + rand($max_reply_time - $min_reply_time));
+    push @cmd_queue, [ $reply_time, $server, $command ];
+    @cmd_queue = sort { $a->[0] <=> $b->[0] } @cmd_queue;
+}
+
+Irssi::timeout_add(
+    1000, sub {
+        while (@cmd_queue and $cmd_queue[0][0] <= time) {
+            my $cmd = shift @cmd_queue;
+            $cmd->[1]->command($cmd->[2]);
+        }
+    },
+    undef
+);
diff --git a/scripts/email_privmsgs.pl b/scripts/email_privmsgs.pl
new file mode 100644
index 0000000..893006c
--- /dev/null
+++ b/scripts/email_privmsgs.pl
@@ -0,0 +1,148 @@
+# Copyright (c) 2010 Adam James <atj@pulsewidth.org.uk>
+
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use POSIX qw(strftime);
+
+use Email::Sender::Simple qw(try_to_sendmail);
+use Email::Simple;
+use Email::Simple::Creator;
+
+$VERSION = '0.5';
+%IRSSI = (
+	authors => 'Adam James',
+	contact => 'atj@pulsewidth.org.uk',
+	url => 'http://git.pulsewidth.org.uk/?p=irssi-scripts.git;a=summary'
+	name => 'email_privmsgs',
+	description =>
+		"Emails you private messages sent while you're away. " .
+		"Useful in combination with screen_away. " .
+		"Requires Email::Sender.",
+	license => 'MIT',
+);
+
+my $FORMAT = $IRSSI{'name'} . '_crap';
+my $msgs = {};
+
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_from_address',
+	'irssi@' . (%ENV->{'HOST'} || 'localhost'));
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_to_address',
+	%ENV->{'USER'});
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_subject',
+	'IRC Private Messages from Irssi');
+
+Irssi::theme_register([
+	$FORMAT,
+	'{line_start}{hilight ' . $IRSSI{'name'} . ':} $0'
+]);
+
+# check the message log every 30 minutes
+Irssi::timeout_add(30*60*1000, 'check_messages', '');
+
+sub handle_privmsg() {
+	my ($server, $message, $user, $address, $target) = @_;
+
+	# only log messages if the user is away
+	unless ($server->{usermode_away}) {
+		return;
+	}
+
+	add_privmsg($server, $message, $user, $address);
+}
+
+sub check_messages() {
+	if (scalar(keys(%{$msgs})) > 0) {
+		send_email();
+		$msgs = {};
+	}
+
+	return 0;
+}
+
+sub add_privmsg() {
+	my ($server, $message, $user, $addr) = @_;
+	
+	unless (defined $msgs->{$server->{chatnet}}) {
+		$msgs->{$server->{chatnet}} = {};
+	};
+
+	unless (defined $msgs->{$server->{chatnet}}{$user}) {
+		$msgs->{$server->{chatnet}}->{$user} = [];
+	};
+
+	push(@{$msgs->{$server->{chatnet}}->{$user}},
+		[time, $message]
+	);
+}
+
+sub generate_email() {
+	my @lines = ();
+
+	if (scalar(keys(%{$msgs})) == 0) {
+		return undef;
+	}
+
+	for my $network (keys %{$msgs}) {
+		push(@lines, $network);
+		push(@lines, '=' x length($network));
+		push(@lines, '');
+
+		for my $user (keys %{$msgs->{$network}}) {
+			for my $ele (@{$msgs->{$network}->{$user}}) {
+				push(@lines, sprintf("[%s] <%s> %s", 
+					strftime("%T", localtime($ele->[0])),
+					$user, $ele->[1])
+				);
+			}
+			push(@lines, '');
+		}
+	}
+
+	return \@lines;
+}
+
+sub send_email() {
+	my $body = generate_email();
+
+	unless (defined($body)) {
+		return;
+	}
+
+	my $email = Email::Simple->create(
+		header => [
+			To => Irssi::settings_get_str($IRSSI{'name'} . '_to_address'),
+			From => Irssi::settings_get_str($IRSSI{'name'} . '_from_address'),
+			Subject => Irssi::settings_get_str($IRSSI{'name'} . '_subject'),
+		],
+		body => join("\n", @{$body}),
+	);
+
+	if (! try_to_sendmail($email)) {
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, $FORMAT, 
+			"an error occurred when sending an email to " . 
+			Irssi::settings_get_str($IRSSI{'name'} . '_to_address')
+		);
+	}
+}
+
+Irssi::signal_add_last("message private", "handle_privmsg");
diff --git a/scripts/emaildb1.0.pl b/scripts/emaildb1.0.pl
new file mode 100644
index 0000000..11ac906
--- /dev/null
+++ b/scripts/emaildb1.0.pl
@@ -0,0 +1,118 @@
+#!/usr/bin/perl
+# Please note that some MySQL experience is required to use this script.
+# 
+# You must have the appropriate tools installed for MySQL and Perl to "talk"
+# to each other... specifically perl dbi and DBD::mysql
+# 
+# You must set up the following table in your mysql database:
+#
+# +----------+-------------+------+-----+---------+-------+
+# | Field    | Type        | Null | Key | Default | Extra |
+# +----------+-------------+------+-----+---------+-------+
+# | nickname | varchar(40) | YES  |     | NULL    |       |
+# | email    | varchar(40) | YES  |     | NULL    |       |
+# | birthday | varchar(40) | YES  |     | NULL    |       |
+# +----------+-------------+------+-----+---------+-------+
+#
+# I suggest you set up a separate user in the mysql database to use this script
+# with only permission to SELECT from this database.
+# </paranoia>
+#
+# In the script you must replace the following variables with your information:
+#
+#    $d = database name
+#    $u = user login for database
+#    $p = user password
+#
+# if you choose to make this accessible by users on a user-list only, create
+# a text file called "users" in your home .irssi directory, add the nicknames 
+# of users you wish to give access in this format:
+#
+# PrincessLeia2
+# R2D2
+# Time
+#
+# AND uncomment the 3 sections indicatated in the script
+#
+# I never created an interface to add new nicknames, email, and birthday, 
+# so you will need to manually insert this information into the database
+# 
+# This script allows a user to search the database by using the command ~search nickname 
+# (in channel, or in pm) it will respond with a private message. It will match full and
+# partial nicknames while it does it's search (if you search for 't' it will give you 
+# results of any nicknames with a 't' i nthem)
+# 
+# Personally, I run this in an ircbot, as the owner of this script cannot use
+# the ~search command themselves
+#
+# 
+# ... That's about it, enjoy!
+# 
+
+
+use Irssi;
+use DBI;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+    authors => 'PrincessLeia2',
+    contact => 'lyz\@princessleia.com ',
+    name => 'emaildb',
+    description => 'a script for accessing an email mysql database through irc',
+    license => 'GNU GPL v2 or later',
+    url => 'http://www.princessleia.com/'
+);
+
+
+# uncomment the following commented (and replace '/home/user' with your home directory) lines for user restricted access.
+#
+# open ( LIST, "</home/lyz/.irssi/users" ) or die "can't open users:$!\n";
+#  chomp( @user = <LIST> );
+#         close LIST;
+
+$d = ('database');
+$u = ('user');
+$p = ('password');
+
+
+sub event_privmsg {
+my ($server, $data, $nick, $mask, $target) =@_;
+my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
+  if ($text =~ /^~search */i ) {
+
+# Uncomment the following commented lines for user restricted access
+#    foreach $person (@user) {
+#      if ($nick =~ /^$person$/i) {
+
+		my ($nickname) = $text =~ /^~search (.*)/;
+
+        $dbh = DBI->connect("DBI:mysql:$d","$u","$p")
+                or die "Couldn't connect to database: " . DBI->errstr;
+        $sth = $dbh->prepare("SELECT * FROM 13th where nickname like \"\%$nickname\%\";")
+                or die "Cant prepare $statement: $dbh->errstr\n";
+        $rv = $sth->execute
+                or die "cant execute the query: $sth->errstr\n";
+if ($rv >= 1) {
+  my @row;
+  while ( @row = $sth->fetchrow_array(  ) ) {
+	$n = "$row[0]\n";
+ 	$e = "$row[1]\n";
+ 	$b = "$row[2]\n";
+                $server->command ( "msg $nick Nickname : $n" );
+                $server->command ( "msg $nick Email : $e" );
+                $server->command ( "msg $nick Birthday : $b" );
+}
+}
+else    {
+           $server->command ( "msg $nick Sorry, No Results Match Your Query\n" );
+	}
+
+# Uncomment the following commented lines for user restricted access
+#}
+#}
+
+}
+}
+
+Irssi::signal_add('event privmsg', 'event_privmsg');
diff --git a/scripts/eng_no_translate_dpryo.pl b/scripts/eng_no_translate_dpryo.pl
new file mode 100644
index 0000000..f00f40c
--- /dev/null
+++ b/scripts/eng_no_translate_dpryo.pl
@@ -0,0 +1,57 @@
+# A simple script for all Norwegians who like to get
+# all incoming english text translated to Norwegian :D
+# Written by dpryo <hnesland@samsen.com>
+#
+# WARNING:
+# Dunno what freetranslation.com thinks about it ;D
+# ..so remember, this scripts sends ALL incoming public messages
+# as a webrequest to their server. That is, one request pr.
+# message you get. In other words, if somebody pubfloods 100 lines, you will 
+# visit freetranslation.com 100 times ;)
+###### 
+#
+# There is at least one bug in it .. It doesn't check wether the
+# incoming text is english or not before it sends the request.
+#
+# Somebody could perhaps fix that?, since i'm a lazy asshole.
+#
+# Another thing, it doesn't handles channels or anything, so
+# I could call this a "Technology Preview" as all the big
+# guys are calling their software when it's in a buggy and
+# not-so-very-usefull stage of development :P
+# 
+use Irssi;
+use LWP::Simple;
+use vars qw($VERSION %IRSSI);
+$translate =0;
+
+$VERSION = "0.2";
+%IRSSI = (
+	authors     => "Harald Nesland",
+	contact     => "hnesland\@samsen.com",
+	name        => "EngNoTranslate",
+	description => "Very simple script that sends incoming text to freetranslation.com for english->norwegian translation. May be modified to translate other languages.",
+	license     => "Public Domain",
+	url         => "http://www.satyra.net",
+	changed     => "Thu Apr 11 14:15:25 CEST 2002"
+);
+
+sub income {
+my ($server, $data, $nick, $mask, $target) = @_;
+		$eng = $data;
+	if($translate=1) {
+		$eng =~ s/ /+/ig;
+		chop($eng);
+		Irssi::command("/echo [$nick] $eng");
+		$result = get("http://ets.freetranslation.com:5081/?Sequence=core&Mode=txt&template=TextResults2.htm&Language=English/Norwegian&SrcText=$eng");
+		Irssi::command("/echo [$nick] $result");
+	}
+}
+
+sub trans {
+
+	if($translate =0) { $translate=1; } else { $translate =0; }
+}
+
+Irssi::signal_add("message public", "income");
+Irssi::command_bind("translate","trans");			  
diff --git a/scripts/events.pl b/scripts/events.pl
new file mode 100644
index 0000000..4886fb7
--- /dev/null
+++ b/scripts/events.pl
@@ -0,0 +1,54 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use Irssi::Irc;
+
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'Taneli Kaivola',
+    contact     => 'dist@sci.fi',
+    name        => 'Extended events',
+    description => 'Expand "event mode" and emit "event mode {channel,user,server} *"',
+    license     => 'GPLv2',
+    url         => 'http://scripts.irssi.de',
+    changed     => 'Mon May 20 04:04:47 EEST 2002',
+);
+
+sub event_mode {
+  my($server,$args,$nick,$addr)=@_;
+  my($target,$modes,$modeparms)=split(" ",$args,3);
+  my(@modeparm)=split(/ /,$modeparms);
+  my($target_type)="other";
+  my($chan);
+  my($modetype)="";
+  my($pos)=0;
+
+  if($target =~ /^#/) {
+    $chan=$server->channel_find($target);
+    $target_type="channel";
+  }
+
+  #emit $chan $mode $param
+  if($target_type eq "channel") {
+    foreach my $mode (split(//,$modes)) {
+      if($mode eq "+" || $mode eq "-") {
+        $modetype=$mode;
+      } elsif($mode =~ /[vbkeIqhdOo]/ || ($mode eq "l" && $modetype eq "+")) { # Thanks friends.pl
+        Irssi::signal_emit("event mode $target_type ".$modetype.$mode,$chan,$nick,$modeparm[$pos]);
+        $pos++;
+      } else {
+        Irssi::signal_emit("event mode $target_type ".$modetype.$mode,$chan,$nick);
+      }
+    }
+  } else {
+    # Some user/server/other? mode
+    # print "Target: [$target] Modes: [$modes] Modeparms: [$modeparms]";
+  }
+}
+Irssi::signal_add_last("event mode",\&event_mode);
+
+# Signals you can catch after loading this script:
+# "event mode channel {+o,-o,+v,-v,+b,-b,+k,+e,-e,+I,-I,+q,-q,+h,-h,+d,-d,+O,-O,+l}"
+# "event mode user {}" (Maybe soon)
+# "event mode server {}" (Maybe soon)
diff --git a/scripts/exec_clean.pl b/scripts/exec_clean.pl
new file mode 100644
index 0000000..7405ef6
--- /dev/null
+++ b/scripts/exec_clean.pl
@@ -0,0 +1,51 @@
+# $Id: exec-clean.pl,v 1.6 2002/07/04 13:18:02 jylefort Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "1.01";
+%IRSSI = (
+	  authors     => 'Jean-Yves Lefort',
+	  contact     => 'jylefort\@brutele.be, decadix on IRCNet',
+	  name        => 'exec-clean',
+	  description => 'Adds a setting to automatically terminate a process whose parent window has been closed',
+	  license     => 'BSD',
+	  url         => 'http://void.adminz.be/irssi.shtml',
+	  changed     => '$Date: 2002/07/04 13:18:02 $ ',
+);
+
+# /set's:
+#
+#	autokill_orphan_processes
+#
+#		guess :)
+#
+# changes:
+#
+#	2002-07-04	release 1.01
+#			* signal_add's uses a reference instead of a string
+#
+#	2002-04-25	release 1.00
+#			* increased version number
+#
+#	2002-01-28	initial release
+#
+# todo:
+#
+#	* kill the process using a better method (TERM -> sleep -> KILL etc)
+
+use strict;
+use Irssi::UI;
+
+sub window_destroyed {
+  my ($window) = @_;
+
+  foreach (Irssi::UI::processes()) {
+    if ($_->{target_win}->{refnum} == $window->{refnum}
+	&& Irssi::settings_get_bool("autokill_orphan_processes")) {
+      kill 15, $_->{pid};
+      return;
+    }
+  }
+}
+
+Irssi::signal_add("window destroyed", \&window_destroyed);
+Irssi::settings_add_bool("misc", "autokill_orphan_processes", 1);
diff --git a/scripts/extaway.pl b/scripts/extaway.pl
new file mode 100644
index 0000000..78e8392
--- /dev/null
+++ b/scripts/extaway.pl
@@ -0,0 +1,194 @@
+# Away Manager
+#
+# This script allows you to have different automated
+# actions on away
+#
+# - sets your nick, using a base and a keyword
+#   - in example: Crazy_Away
+# - insert an away reason
+# - say on all channels that your away
+#
+# This is my first IRSSI script, but I'll try to make it
+# better soon.
+# If you have ideas to improve it, or make it more efficient,
+# contact me at crazycat@c-p-f.org
+
+use Irssi;
+use Irssi::Irc;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'CrazyCat',
+    contact     => 'crazycat@c-p-f.org',
+    name        => 'ExtAway',
+    description => 'Extended Away & Back programm',
+    license     => 'GNU GPLv2 or later',
+    changed     => '$Date: 2005/01/12 03:04:01$'
+);
+
+my $xa_confile = Irssi::get_irssi_dir()."/xa.config";
+my %infos = ();
+my ($oldnick, $t_away);
+
+sub init {
+	# verifying if settings file exists
+	if (!(open xa_settings, "<$xa_confile")) {
+		putlog("No config file: /xahelp for help");
+		return 0;
+	};
+	# reading the config file
+	while (my $line = <xa_settings>) {
+		$line =~ s/\n//;
+		my ($xa_key,$xa_val) = split(/:/, $line);
+		$xa_key =~ tr/[A-Z]/[a-z]/;
+		if ($xa_val ne "") {
+			$infos{$xa_key} = $xa_val;
+		}
+	}
+	close xa_settings;
+}
+
+sub xa_go {
+	# Main procedure to go away
+	my($data,$server,$channel) = @_;
+	my $xa_nick = "";
+	my $xa_reason = "";
+	if ($server->{usermode_away}) {
+		# oooops! already marged as away
+		&putlog("You're allready marqued as away ($server->{away_reason})");
+		return 0;
+	}
+	$oldnick = $server->{nick};
+	$t_away = time();
+	my $t_data = split(/ /, $data);
+	if ($t_data < 2) {
+		# away called with just a keyword
+		$xa_nick = $data;
+		$xa_nick  =~ tr/[A-Z]/[a-z]/;
+		$xa_reason = $infos{$xa_nick};
+	} else {
+		# this is a new reason
+		($xa_nick, $xa_reason) = $data =~ /^(\S+) (.*)/;
+		&xa_add($xa_nick, $xa_reason);
+	}
+	if ($xa_reason eq "") {
+		putlog("Sorry, <$xa_nick> is not defined");
+	} else {
+		my $nick = "$infos{'bnick'}$xa_nick";
+		foreach my $server (Irssi::servers) {
+			$server->command("AWAY $xa_reason");
+			$server->command("NICK $nick");
+			foreach my $chan ($server->channels) {
+				$server->command("DESCRIBE $chan->{name} is away [Reason: $xa_reason]");
+			}
+		}
+	}
+}
+
+sub xa_back {
+	# the way to be back
+	my($data,$server,$channel) = @_;
+	if (!$server->{usermode_away}) {
+		&putlog("You're not marqued as away");
+		return 0;
+	}
+	my $delay = time() - $t_away;
+	my $f_delay = f_delay($delay);
+	foreach my $server (Irssi::servers) {
+		foreach my $chan ($server->channels) {
+			$server->command("DESCRIBE $chan->{name} is back from [$server->{away_reason}] - $f_delay away");
+		}
+		$server->command("AWAY");
+		$server->command("NICK $oldnick");
+	}
+}
+
+sub putlog {
+	# procedure to write in status window
+	my ($window) = Irssi::active_win();
+	Irssi::print("[$IRSSI{'name'}] @_", MSGLEVEL_CLIENTNOTICE);
+	
+}
+
+sub f_delay {
+	# formatting the away time
+	my $seconds = shift;
+	my ($hours, $minutes, $formated);
+	if ($seconds > 3600) {
+		$hours = int($seconds / 3600);
+		$formated .= $hours."h:";
+		$seconds = $seconds - ($hours * 3600);
+	}
+	if ($seconds > 60) {
+		$minutes = int($seconds / 60);
+		$formated .= $minutes."m:";
+		$seconds = $seconds - ($minutes * 60);
+	}
+	$formated .= $seconds."s";
+	return $formated;
+}
+
+sub xa_add {
+	# Adding the keyword and the reason in the config file
+	# may create double entries...
+	my($kw, $reason) = @_;
+	if(!(open xa_settings, ">>$xa_confile")) {
+		&putlog("Unable to open file $xa_confile");
+	}
+	print xa_settings "$kw:$reason\n";
+	close xa_settings;
+	$infos{$kw} = $reason;
+}
+
+sub xa_save {
+	# save the temp infos (might correct the double entries)
+	my ($data,$server,$channel) = @_;
+	if(!(open xa_settings, ">$xa_confile")) {
+		&putlog("Unable to create file $xa_confile");
+	}
+	print xa_settings "bnick:$infos{'bnick'}\n";
+	while (my ($kw, $line) = each %infos) {
+		if ($kw ne "bnick") {
+			print xa_settings "$kw:$infos{$kw}\n";
+		}
+	}
+	close xa_settings;
+}
+		
+sub xa_nick {
+	# The way to add the base nick
+	my ($data,$server,$channel) = @_;
+	if ($data eq "") {
+		putlog("You must define your base_nick")
+	}
+	$infos{'bnick'} = $data;
+	&xa_save;
+}
+
+sub xa_help {
+	&putlog("Help for $IRSSI{name} : $IRSSI{description}");
+	&putlog("  Setting your base nick: /xanick <base_nick>");
+	&putlog("  Going away: /aw <keyword> [reason]");
+	&putlog("     if keyword exists in the base, reason is automatically displayed");
+	&putlog("     if keyword is a new one, you MUST give a reason");
+	&putlog("  -- Nota: your away nick will be <base_nick><keyword> --");
+	&putlog("  Coming back from away: /back");
+	&putlog("  Saving all datas: /xasave (take care, setting your base_nick will save all your datas)");
+}
+#
+# main
+#
+&init();
+if ($infos{'bnick'} eq "") {
+	&putlog("Please, give a base nick with /xanick <base_nick>");
+	&putlog("Use /xahelp to get some help");
+}
+Irssi::command_bind("aw", "xa_go");
+Irssi::command_bind("back", "xa_back");
+Irssi::command_bind("xahelp", "xa_help");
+Irssi::command_bind("xanick", "xa_nick");
+Irssi::command_bind("xasave", "xa_save");
+
diff --git a/scripts/fakectcp.pl b/scripts/fakectcp.pl
new file mode 100644
index 0000000..5801430
--- /dev/null
+++ b/scripts/fakectcp.pl
@@ -0,0 +1,277 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.03";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'fakectcp.pl',
+    description => 'This script sends fake ctcp replies to a client using a fake ctcp list.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/default.pl',
+    changed     => 'Wed Sep 17 23:00:11 CEST 2003',
+);
+
+my @fakectcp = ();
+my $fakectcp_file = "fctcplist";
+my $irssidir = Irssi::get_irssi_dir();
+
+my $help = <<EOF;
+
+Usage: (all on one line)
+/FCTCP [-add||-replace <ctcp-item> <ctcp-reply>] [-del <ctcp-item>] [-list] [-help]
+
+-add:     Add a new fake ctcp-reply to the list.
+-del:     Delete a fake ctcp-reply from the list.
+-list:    Display the contents of the fake ctcp-reply list.
+-help:    Display this usefull little helpfile.
+-replace: Replace a excisting fake reply with a new one. If the old one doesn't excists, the new one will be added by default.
+
+Examples: (all on one line)
+/FCTCP -add CHRISTEL We all love christel, don't we! :)
+/FCTCP -add LOCATION I'm at home, reading some helpfiles.
+
+/FCTCP -del CHRISTEL
+/FCTCP -del LOCATION
+
+Note: The caps are not obligated. The default parameter is -list.
+EOF
+
+Irssi::theme_register([
+    'fctcp_info', ' # ctcpitem             ctcpreply',
+    'fctcp_empty', '%R>>%n %_FCTCP:%_ Your fake ctcp list is empty.',
+    'fctcp_added', '%R>>%n %_FCTCP:%_ Added %_$0%_ ($1) to the fake ctcp list.',
+    'fctcp_replaced', '%R>>%n %_FCTCP:%_ Replaced the old fake reply %_$0%_ with the new one ($1)',
+    'fctcp_delled', '%R>>%n %_FCTCP:%_ Deleted %_$0%_ from the fake ctcp list.',
+    'fctcp_nfound', '%R>>%n %_FCTCP:%_ Can\'t find $0 in the fake ctcp list.',
+    'fctcp_delusage', '%R>>%n %_FCTCP:%_ Usage: /FCTCP -del <ctcp-item>',
+    'fctcp_usage', '%R>>%n %_FCTCP:%_ Usage: /FCTCP -add <ctcp-item> <ctcp-reply>',
+    'fctcp_repusage', '%R>>%n %_FCTCP:%_ Usage: /FCTCP -replace <ctcp-item> <ctcp-reply>',
+    'fctcp_nload', '%R>>%n %_FCTCP:%_ Could not load the fake ctcp list.',
+    'fctcp_request', '%R>>%n %_FCTCP:%_ Used the fake reply %_$1%_ on %_$0%_',
+    'fctcp_loaded', '%R>>%n %_FCTCP:%_ The fake reply %_$0%_ already exists, use %_/FCTCP -del $0%_ to remove it from the list.',
+    'fctcp_print', '$[!-2]0 $[20]1 $2',
+    'fctcp_help', '$0',
+    'loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub ctcpreply {
+
+    my ($server, $data, $nick, $address, $target) = @_;
+    my ($findex);
+
+    $data = lc($data);
+
+    return unless (lc($server->{nick}) eq lc($target));
+
+    if (!already_loaded($data)) {
+        $findex = check_loaded($data);
+        $server->command("^NCTCP $nick $data $fakectcp[$findex]->{reply}");
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_request', $nick, $data);
+        Irssi::signal_stop();
+    }
+}
+
+sub new_fctcp {
+
+    my $fctcp = {};
+
+    $fctcp->{item} = shift;
+    $fctcp->{reply} = shift;
+
+    return $fctcp;
+}
+
+sub already_loaded {
+
+    my ($item) = @_;
+    my $loaded = check_loaded($item);
+
+    if ($loaded > -1) {
+        return 0;
+    }
+    
+    return 1;
+}
+
+sub check_loaded {
+
+    my ($item) = @_;
+
+    $item = lc($item);
+
+    for (my $loaded = 0; $loaded < @fakectcp; ++$loaded) {
+        return $loaded if (lc($fakectcp[$loaded]->{item}) eq $item);
+    }
+    
+    return -1;
+}
+
+sub load_fakectcplist {
+
+    my ($file) = @_;
+
+    @fakectcp = ();
+
+    if (-e $file) {
+        local *F;
+        open(F, "<$file");
+        local $/ = "\n";
+
+        while (<F>) {
+            chop;
+            my $new_fctcp = new_fctcp(split("\t"));
+  
+            if (($new_fctcp->{item} ne "") && ($new_fctcp->{reply} ne "")) {
+            push(@fakectcp, $new_fctcp);
+            }
+        }
+        
+        close(F);
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_nload');
+    }
+}
+
+sub save_fakectcplist {
+
+    my ($file) = @_;
+
+    local *F;
+    open(F, ">$file") or die "Could not load the fake ctcpreply list for writing";
+
+    for (my $n = 0; $n < @fakectcp; ++$n) {
+        print(F join("\t", $fakectcp[$n]->{item}, $fakectcp[$n]->{reply}) . "\n");
+    }
+    
+    close(F);
+}
+
+sub addfakectcp {
+
+    my ($ctcpitem, $ctcpreply) = split (" ", $_[0], 2);
+
+    if (($ctcpitem eq "") || ($ctcpreply eq "")) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_usage');
+        return;
+    } elsif (!already_loaded($ctcpitem)) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_loaded', $ctcpitem);
+        return;
+    }
+
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_added', $ctcpitem, $ctcpreply);
+    push(@fakectcp, new_fctcp($ctcpitem, $ctcpreply));
+    save_fakectcplist("$irssidir/$fakectcp_file");
+}
+
+sub delfakectcp {
+
+    my ($fdata) = @_;
+    my ($fdataindex);
+
+    if ($fdata eq "") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_delusage');
+        return;
+    }
+
+    for (my $index = 0; $index < @fakectcp; ++$index) {
+        if (lc($fakectcp[$index]->{item}) eq $fdata) {
+        $fdataindex = splice(@fakectcp, $index, 1);
+        }
+    }
+
+    if ($fdataindex) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_delled', $fdata);
+        save_fakectcplist("$irssidir/$fakectcp_file");
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_nfound', $fdata);
+    }
+}
+
+sub replacefakectcp {
+
+    my ($ctcpitem, $ctcpreply) = split (" ", $_[0], 2);
+    my ($fdataindex);
+
+    if (($ctcpitem eq "") || ($ctcpreply eq "")) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_repusage');
+        return;
+    } 
+
+    if (!already_loaded($ctcpitem)) {
+        for (my $index = 0; $index < @fakectcp; ++$index) {
+            if (lc($fakectcp[$index]->{item}) eq $ctcpitem) {
+                $fdataindex = splice(@fakectcp, $index, 1);
+            } elsif ($fdataindex) {
+                save_fakectcplist("$irssidir/$fakectcp_file");
+            } 
+        }
+    }
+
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_replaced', $ctcpitem, $ctcpreply);
+    push(@fakectcp, new_fctcp($ctcpitem, $ctcpreply));
+    save_fakectcplist("$irssidir/$fakectcp_file");
+}
+
+sub fakectcp {
+
+    my ($cmdoption, $ctcpitem, $ctcpreply) = split (" ", $_[0], 3);
+
+    $ctcpitem = lc($ctcpitem);
+    $cmdoption = lc($cmdoption);
+
+    if ($cmdoption eq "-add") {
+        addfakectcp("$ctcpitem $ctcpreply");
+        return;
+    } elsif ($cmdoption eq "-del") {
+        delfakectcp("$ctcpitem");
+        return;
+    } elsif ($cmdoption eq "-help") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_help', $help);
+        return;
+    } elsif ($cmdoption eq "-replace") {
+        replacefakectcp("$ctcpitem $ctcpreply");
+        return;
+    }
+
+    if (@fakectcp == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_empty');
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_info');
+
+        for (my $n = 0; $n < @fakectcp ; ++$n) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fctcp_print', $n, $fakectcp[$n]->{item}, $fakectcp[$n]->{reply});
+        }
+    }
+}
+
+load_fakectcplist("$irssidir/$fakectcp_file");
+
+Irssi::signal_add('default ctcp msg', 'ctcpreply');
+Irssi::command_bind('fctcp', 'fakectcp');
+Irssi::command_set_options('fctcp','add del list help replace');
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/fcountry.pl b/scripts/fcountry.pl
new file mode 100644
index 0000000..a2ea1e5
--- /dev/null
+++ b/scripts/fcountry.pl
@@ -0,0 +1,103 @@
+# Print the country name in /WHOIS replies
+# /FCOUNTRY <URI|IP> prints where a URI or IP is hosted.
+# Installation: Add $whois_fcountry somewhere in your /FORMAT whois line
+
+###### 
+# Copyright (c) 2008 Stefan Jakobs
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+#
+#####################################################################
+
+use strict;
+use Irssi 20021028;
+use IP::Country::Fast;
+use Geography::Countries;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.0";
+%IRSSI = (
+	authors         => "Stefan Jakobs",
+	contact         => "stefan\.jakobs\@rus\.uni-stuttgart\.de",
+	name            => "fast_country",
+	description     => "Print the country name in /WHOIS replies",
+	license         => "GPLv2",
+	changed         => "Son May 11 20:20: CET 2008",
+	modules		=> "IP::Country::Fast Geography::Countries",
+	commands	=> "fcountry"
+);
+
+my $last_country = "";
+my $short_country = "";
+my $reg = IP::Country::Fast->new();
+
+sub show_help() {
+  my $help = $IRSSI{name} ." " .$VERSION ."
+Add \$whois_fcountry somewhere in your \'/FORMAT whois\' line
+
+/fcountry <URI|IP>
+    prints were the specified URI or IP is hosted
+/fcountry help
+    prints this message
+";
+  my $text = '';
+  foreach (split(/\n/, $help)) {
+    $_ =~ s/^\/(.*)$/%9\/$1%9/;
+    $text .= $_."\n";
+  }
+  print CLIENTCRAP "\n" .$text;
+}
+
+sub sig_whois {
+  my ($server, $data, $nick, $host) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+  
+  $short_country = $reg->inet_atocc($host); 
+  if ($short_country) { $last_country = country $short_country; }
+  else { $last_country = ""; }
+}
+
+sub expando_whois_country {
+  if (!$short_country) { 
+    return ">unknown<";
+  } else {
+    return $last_country ."\(" .$short_country ."\)";
+  }
+}
+
+sub cmd_country {
+  my $url_ip = lc shift;
+  if ($url_ip eq 'help') {
+    show_help();
+  } elsif ($url_ip eq "") {
+    Irssi::print("USAGE: /FCOUNTRY <URL|IP>");
+  } else {
+    my $short = $reg->inet_atocc($url_ip);
+    if (!$short) {
+      Irssi::print("Unknown country origin: $url_ip");
+    } else {
+      my $name = country $short;
+      if (!$name) { Irssi::print("$url_ip is hosted in $short"); }
+      else { Irssi::print("$url_ip is hosted in $name \($short\)"); }
+    }
+  } 
+}
+
+Irssi::command_bind('fcountry', \&cmd_country);
+Irssi::signal_add_first('event 311', \&sig_whois);
+Irssi::expando_create('whois_fcountry', \&expando_whois_country, 
+		      { 'event 311' => 'None' } );
+print CLIENTCRAP "%B>>%n ".$IRSSI{name}." ".$VERSION." loaded: \'/fcountry help\' for help"
diff --git a/scripts/figlet.pl b/scripts/figlet.pl
new file mode 100644
index 0000000..3f8ca6d
--- /dev/null
+++ b/scripts/figlet.pl
@@ -0,0 +1,58 @@
+use IPC::Open3;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind active_win);
+$VERSION = "1.14";
+%IRSSI = (
+    authors	=> 'Juerd',
+    contact	=> 'juerd@juerd.nl',
+    name	=> 'Figlet',
+    description	=> 'Safe figlet implementation (with color support!)',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/irssi/',
+    changed	=> 'Sun 10 Mar 14:46 CET 2002',
+    changes	=> 'No more zombie processes',
+);
+
+command_bind(
+    figlet => sub {
+	my ($msg) = @_;
+	my @figlet;
+	my $prefix = '';
+	while ($msg =~ s/
+	    ^(
+		[^\cC\cB\cO\c_]+
+	    |
+		(?:
+		    \cC\d*(?:,\d*)?
+		|
+		    [\cB\cO\c_]
+		)+
+	    )
+	//x) {
+	    my $part = $1;
+	    if ($part =~ /[\cC\cB\cO\c_]/) {
+		if (@figlet) {
+		    $_ .= $part for @figlet;
+		} else {
+		    $prefix = $part;
+		}
+	    } else {
+		my $i = 0;
+		my $pid = open3(undef, *FIG, *FIG,  qw(figlet -k), $part);
+		while (<FIG>) {
+		    chomp;
+		    $figlet[$i++] .= $_;
+		}
+		close FIG;
+		waitpid $pid, 0;
+	    }
+	}
+	for (@figlet) {
+	    (my $copy = $_) =~ s/\cC\d*(?:,\d*)?|[\cB\cO\c_]//g;
+	    next unless $copy =~ /\S/;
+	    active_win->command("say $prefix$_");
+	}
+    }
+);
diff --git a/scripts/file.pl b/scripts/file.pl
new file mode 100644
index 0000000..c088561
--- /dev/null
+++ b/scripts/file.pl
@@ -0,0 +1,90 @@
+
+my $help = <<EOF;
+Usage: (all on one line)
+/file [-raw] [-command]
+      [-msg [target]] [-notice [target]] 
+      [-prefix "text"] [-postfix "text"]
+      filename
+
+-raw: output contents of file as raw irc data
+-command: run contents of file as irssi commands
+-msg: send as messages to active window (default) or target
+-notice: send as notices to active window or target
+
+-prefix: add "text" in front of output
+-postfix: add "text" after output
+
+-echo abuses a bug in the script and is useful for testing
+EOF
+
+$VERSION = 1.0;
+%IRSSI = (
+   authors     => "David Leadbeater",
+   name        => "file.pl",
+   description => "A command to output content of files in various ways",
+   license     => "GNU GPLv2 or later",
+   url         => "http://irssi.dgl.cx/"
+);
+
+use strict;
+
+Irssi::command_bind('file', sub {
+   my $data = shift;
+
+   if($data eq 'help') {
+      print $help;
+      return;
+   }
+   
+   my($type, $target, $prefix, $postfix);
+
+   $type    = 'msg';
+   $target  = '*';
+   $prefix  = '';
+   $postfix = '';
+
+   while($data =~ s/^-([^ ]+) //g) {
+      last if $data eq '-';
+
+      if($1 eq 'msg' || $1 eq 'notice') {
+         $type = $1;
+         next unless $data =~ / /; # >1 params left
+         $data =~ s/^([^ ]+) //;
+         next unless $1;
+         $target = $1;
+      }elsif($1 eq 'prefix') {
+         $data =~ s/^(?:\"([^"]+)\"|([^ ]+)) //;
+         $prefix = $1 || $2 . ' ';
+      }elsif($1 eq 'postfix') {
+         $data =~ s/^(?:\"([^"]+)\"|([^ ]+)) //;
+         $postfix = ' ' . $1 || $2;
+      }else{ # Other options are automatic
+         $type = $1;
+      }
+   }
+
+   # or do borrowed from one of juerd's scripts (needs 5.6 though)
+   open(FILE, "<$data") or do {
+      print "Error opening '$data': $!";
+      return;
+   };
+
+   while(<FILE>) {
+      chomp;
+
+      if($type eq 'raw') {
+         Irssi::active_server->send_raw($prefix . $_ . $postfix);
+      }elsif($type eq 'command') {
+         Irssi::active_win->command($prefix . $_ . $postfix);
+      }else{
+         Irssi::active_win->command("$type $target $prefix$_$postfix");
+      }
+   }
+
+   close FILE;
+
+} );
+
+# little known way to get -options to tab complete :)
+Irssi::command_set_options('file','raw command prefix postfix msg notice');
+
diff --git a/scripts/find.pl b/scripts/find.pl
new file mode 100644
index 0000000..0b9a77f
--- /dev/null
+++ b/scripts/find.pl
@@ -0,0 +1,44 @@
+# /FIND - display people who are in more than one channel with you
+# (it's ugly code)
+
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.2";
+%IRSSI = (
+    authors     => "Erkki Seppälä",
+    contact     => "flux\@inside.org",
+    name        => "Find",
+    description => "Finds a nick by real name, if he's on a channel with you.",
+    license     => "Public Domain",
+    url         => "http://xulfad.inside.org/~flux/software/irssi/",
+    changed     => "Mon Mar  4 23:25:18 EET 2002"
+);
+
+
+sub cmd_find {
+  my ($findName, $server, $channel) = @_;
+
+  if ($findName eq "") {
+    Irssi::print("usage: /find erkki");
+    return 1;
+  }
+
+  my %channicks, $channel;
+  my %found;
+
+  foreach $channel (Irssi::active_server()->channels()) {
+    foreach my $nick ($channel->nicks()) {
+      $found{$nick->{nick}} = 1 if $nick->{realname} =~ /$findName/i;
+    }
+  }
+
+  if (keys %found) {
+    Irssi::print($findName . " could be found with these nicks: " . join(", ", keys %found));
+  } else {
+    Irssi::print("Sorry, " . $findName . " could not be found.");
+  }
+  return 1;
+}
+
+Irssi::command_bind('find', 'cmd_find');
diff --git a/scripts/findbot.pl b/scripts/findbot.pl
new file mode 100644
index 0000000..9f79259
--- /dev/null
+++ b/scripts/findbot.pl
@@ -0,0 +1,964 @@
+###############################################################################
+# Find script that searches your local files and sends them to users
+# Copyright (C) 2003  Thomas Karlsson
+#
+# Findbot script, which responds to @find commands in irc channels
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# Thomas Karlsson (findbot@planet.eu.org)
+###############################################################################
+# The file collection at the end of this file is made by Henrik Andreasson
+# findbot@han.pp.se
+# 
+###############################################################################
+# Description:
+#
+# This script loads into an Irssi client and then monitors selected channels
+# and replies to public channel commands.
+# The commands are:
+# @find :	searches the summaryfile after file "@find birthday" looks for
+#		a file containing birthday.
+# @<botnick>-stats : Replies with the users queue.
+# @<botnick>-remove : Will remove the users whole queue
+# @<botnick>-remove 2 : Will remove queue position 2 from the queue
+# @<botnick>-help : Will message the help to the user.
+# !<botnick> <filename> :Will queue the file. For eg."!santa_claus jingle.bells.mp3"
+#
+###############################################################################
+# Installation:
+#
+# AT THE END OF THIS FILE IS ALL INSTALLATION INSTRUCTIONS!!
+# 
+# Variables:
+# findbot_channels - Space separated channels (#mp3 #othermp3)
+# findbot_summaryfile - Full path to the "mymp3s.txt" file (/misc/mp3/mymp3s.txt)
+# findbot_sendlist - Full path and filename to the list that is sent to clients
+# findbot_maxresults - Max findresults returned to the requesting client
+# findbot_maxqueue - Max files allowed in the queue
+# findbot_maxsends - Max simultanous sends allowed
+# findbot_maxuserqueue - Max queued files per Nick
+# findbot_maxusersends - Max simultanous sends per Nick
+# findbot_showbanner - Present a banner in every "findbot_channels" channel
+# findbot_bannertime - How many seconds between each banner
+# findbot_minspeed - Minimum CPS for a send, 10000 means 10kb/s, 0 means disabled
+# findbot_mustbeinchannel - If ON, the user is required to be in the channel during download
+# findbot_debuglevel - Debuglevel, Higher value equals more debugoutput
+# findbot_enabled - Set ON or OFF
+# findbot_timeslots - When the server should be enabled (sat=10:00-18:00sun=00:00-23:59)
+#		      If a day can't be found the bot will be ON by default
+# findbot_voicegetpriority - If ON then voiceuserusers and ops will get priority in the queue.
+#			Ops get 20 in priority and voice gets 10. I.e ops are more prioritized than voice
+#
+# Admincommands:
+# /findbotqueue  - Shows you the whole queue in the findbot window
+# /findbotremove - Admin removes queueitems
+# /findbotreset  - If you like you can specify how many sends the script thinks it have. This was just added
+#                  if you wanted to send somefiles your self without the script sending files.
+# /findbotreload - Reloads the summaryfile if you have added files
+# /findbotactivesends - Show which users are currently having a download
+#
+###############################################################################
+# TODO or maybe features
+#
+# * When requesting it SHOULD be case sensitive
+# * Support CTCP SLOTS and CTCP MP3, seems unnecessary to help windows-mirc users :)
+#   Slots Free Next Queues Max Sendspeed Files
+#   4     4    NOW  0      999 0         120575 36856591362 0 1073595728 1
+# * Make an ignore and ban function
+# * Should the users see the whole que or just their own files?
+# * If there is a netsplit all downloads will be cancelled if an active user disappered
+# * If one send is below like 4kb/s then change findbot_maxsends to one more, so we use the bandwidth
+# * DONE Servers (i.e +v) should get priority, but how? First in queue?
+# * DONE Fix admin_showqueue to really show VIP instead of 1
+###############################################################################
+# CHANGES
+#
+# 1.57	* Added a VIP function which allows +v users to be first in line to get a file
+# 	* Remove a users queue if they get kicked (only if findbot_mustbeinchannel is ON)
+#	* Fixed a bug when a user with a download changed nick.
+# 1.56  * The findbot_maxqueue now works
+#	* Sending files with spaces in them, now works
+# 1.55	* Minor changes
+# 1.54	* Added support to update the mp3list without restarting the bot (/findbotreload)
+# 1.53	* Fixed some debug output
+# 1.52	* Fixed some typos
+#	* Now people can't look for * . etc. Now a searchpattern MUST contain atleast 1 normal character
+#	* Fixed so you can change banner time without restarting the bot
+# 1.50	* Added a timeslot function
+#	* Added logging support. Now logging to file. Must specify filename and path INSIDE this script
+# 1.06	* "Optimized" search. Instead of opening and read the whole summaryfile everytime
+#	  someone searched the script reads the file once at startup.
+#	* Fixed more regular expressions
+#	* Added multiserver support, i.e you can have the bot on two nets and two different channels
+# 1.05	* Added a new perlscript at the end of this file.
+#	  It searches your mp3s and makes the 2 necessary files.
+#	  The script is made by Henrik Andreasson (findbot@han.pp.se)
+# 1.04	* Changed so the files contains full path to mp3s
+#	* findbot_maxsends was ignored under some circumstanses
+#	* Added so debugoutput shows which file are sent
+#	* Sending to client "Now sending you file...." only if they accually are in the channel
+# 1.03	* Changed a "for-loop" one bit
+#	* If findbot_minimumspeed was disabled, then the user could leave channel
+#	  and still get files even if findbot_mustbeinchannel was enabled
+#	* Forgot to write to debugwindow if someone downloaded the whole list
+#	* Corrected some bad english :)
+#	* Fixed more regular expressions
+#	* The user will be told the queueposition when requesting a file
+#	* Fixed some queueproblems
+#	* Added some errormessages if someone types !nickname in a private message
+# 1.01	* Do not reply with "no match" if no match was found to avoid unnecessary spam
+#	* Removed alot of commented code
+#	* Changed the description of the script
+#	* Changed the "results found" string a bit.
+#	* Added a new value findbot_sendlist and separated the filelist and the one which accually is sent to the users
+#	* Fixed some regular expressions to fit the new searchfiles
+#	* Bug fix. If someone resumed a file, they always will be under findbot_minspeed in the start
+#	* Didn't search if someone typed @FIND (in uppercase)
+#	* Ops the url wasn't right. There is no ~ in the address :)
+# 1.0	Release
+###############################################################################
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.57";
+
+%IRSSI = (
+    authors     =>  "Thomas Karlsson",
+    contact     =>  "findbot\@planet.eu.org",
+    name        =>  "Findbot",
+    description =>  "Public command \@find script",
+    license     =>  "GPL",
+    url         =>  "http://hem.passagen.se/thka2315/",
+);
+
+my %nickqueue = ();	# Queuenumber + nickname
+my %filequeue = ();	# Queuenumber + filename
+my %servertagqueue = (); # Queuenumber + array with servertag,voiceprio,extrafield
+my %activesends = ();	# nickname + 1 The user is here if he has an active send
+my $lastqueuenumber = 0;	# Holds the last queueitem
+my %scriptdetect = ();
+my $timeout_tag;
+my $banner_timeout;
+my $currentsends = 0;
+my $servertag;
+my $globalstart = 0;
+my $globalvippos = 0;
+my $debuglevel;
+my %bannedpeople = ();	# This will contain banned people and time of ban
+my @bigarray;		# In here the whole filelist will reside
+my @daynames = qw(Sun Mon Tue Wed Thu Fri Sat);
+my $logfile = "findbot.log";
+my $scriptdetecttime = "3"; # Three seconds must pass before a new filerequest is issued, after a DCC CLOSE
+my $showscriptdetect = 1;
+my $lastbannerprint = time();	# The last time the banner was printed into monitored channels
+
+sub timeslotenabled {
+	my $weekday = shift;		# Save weekday
+	my $slothour = shift;		# Save hours
+	my $slotminute = shift;		# Save minutes
+
+	$weekday = $daynames[$weekday];
+	my $timeslotstring = Irssi::settings_get_str('findbot_timeslots');
+	if ( $timeslotstring =~ /$weekday/i ) {
+		if ( $timeslotstring =~ m/.*$weekday=(.?.):(.?.)(a\.?m\.?|p\.?m\.?)?-(.?.):(.?.)(a\.?m\.?|p\.?m\.?)?.*/i ) {
+			my $fromhour = $1;
+			my $frommin = $2;
+			my $fromampm = $3;
+			my $tohour = $4;
+			my $tomin = $5;
+			my $toampm = $6;
+			if ( $fromampm =~ /p/i ) { $fromhour += 12; }		# If it is a pm time add 12 to get 24h format
+			if ( $toampm =~ /p/i ) { $tohour += 12; }		# If it is a pm time add 12 to get 24h format
+			my $midnightfrom = ( $fromhour * 60 ) + $frommin;		# Get minutes from midnight
+			my $midnightto = ( $tohour * 60 ) + $tomin;		# Get minutes from midnight
+			my $inputtime = ( $slothour * 60 ) + $slotminute;		# Get minutes from midnight
+			debugprint(20,"inputtime:$inputtime midfrom:$midnightfrom midto:$midnightto");
+			if ( $inputtime <= $midnightto && $inputtime >= $midnightfrom ) {
+				return 1;					# The time is between the timeenabled slot
+			} else {
+				return 0;					# Time was outside. Bot should be off.
+			}
+		} else {
+			return 0;	# Hmm didnt get the times in that day, maybe wrong input from user
+		}	
+	} else {
+		return 1;	# If the current day wasn't found in findbot_timeslots then return true, i.e bot is default ON.
+	}
+	return 0;		# Return false i.e 
+}
+
+sub private_get {
+	(my $server, my $message, my $nick, my $address) = @_;
+	if ( $message =~ /^!$server->{nick}\ .*/i ) {
+		$server->command("/MSG " . $nick . " Please request files in the channel, not personally to me. Type \@$server->{nick}-help in channel for help");
+	} elsif ( $message =~ /^\@$server->{nick}.*/i ) {
+		$server->command("/MSG " . $nick . " Please request my filelist in the channel, not personally to me. Type \@$server->{nick}-help in channel for help");
+	} elsif ( $message =~ /^\@find.*/i ) {
+		$server->command("/MSG " . $nick . " Please search files in the channel, not personally to me. Type \@$server->{nick}-help in channel for help");
+	}
+}
+
+sub check_user_queued_items {
+	my $user = shift;					# Get the nickname to check
+	my $localsrvtag = shift;
+	my $counter = 0;					# Reset the counter
+	for ( my $i=1; $i <= $lastqueuenumber; $i++ ) { # Loop through entire queue
+		if ( $nickqueue{$i} eq $user && $localsrvtag eq $servertagqueue{$i}[0] ) {
+			$counter++;
+		}
+	}
+	return $counter;
+}
+
+sub already_queued_file {
+	my $checknick = shift;
+	my $checkfile = shift;
+	my $srvtag = shift;
+	my $alreadyqueued = 0;
+	for ( my $i=1; $i <= $lastqueuenumber; $i++ ) {	# Loop through entire queue
+		if ( $nickqueue{$i} eq $checknick && $filequeue{$i} eq $checkfile && $servertagqueue{$i}[0] eq $srvtag) { # Check if its queued
+			$alreadyqueued = 1;		# Yep it was
+		}
+	}
+	if ( $alreadyqueued ) { return 1; } else { return 0; } # Return true if queued else false
+}
+
+sub add_file_to_queue {
+	(my $addnick, my $addfile, my $srvtag, my $priority) = @_;			# Split nickname and filename into two variables
+	$lastqueuenumber++;
+	$nickqueue{$lastqueuenumber} = $addnick;	# for eg. $nickqueue{1} = 'El_Tomten'
+	$filequeue{$lastqueuenumber} = $addfile;	# for eg. $filequeue{1} = '/misc/legal-mp3s/happy.birthday.mp3'
+	if ( ! Irssi::settings_get_bool('findbot_voicegetpriority') ) { $priority = 0; }
+	my @field = ($srvtag,$priority,"To be used later, maybe");
+	$servertagqueue{$lastqueuenumber} = \@field;	# for eg. $servertagqueue{1} = 'stockholm'
+	if ( $priority > 1 ) {		# Did a priority user queued the file
+		fix_vip_position($priority);	# Move vip position up to number one, or just after the last already existing vip position
+	}
+}
+
+sub fix_vip_position {
+	my $priority = shift;		# Get priority from input
+	my ($tnickqueue,$tfilequeue,$tservertagqueue);
+	if ( $lastqueuenumber eq 1 ) { return; }	# If the queue only have one entry, why try to make it a priority?
+	for ( my $i = $lastqueuenumber; $i > 1; $i--) {
+		if ( $servertagqueue{$i-1}[1] >= $priority ) { $globalvippos = $i; last; } # Is the queue entry before a vip entry? Lets quit the prioritymove
+		$tnickqueue = $nickqueue{$i-1};			# Backup entry
+		$tfilequeue = $filequeue{$i-1};
+		$tservertagqueue = $servertagqueue{$i-1};
+
+		$nickqueue{$i-1} = $nickqueue{$i};		# Move entry up
+		$filequeue{$i-1} = $filequeue{$i};
+		$servertagqueue{$i-1} = $servertagqueue{$i};
+		
+		$nickqueue{$i} = $tnickqueue;			# Restore entry ( the two entris have now changed place )
+		$filequeue{$i} = $tfilequeue;
+		$servertagqueue{$i} = $tservertagqueue;
+	}
+}
+
+sub remove_queueitem {
+	my $queueitem = shift;
+	if (defined($nickqueue{$queueitem}) && defined($filequeue{$queueitem} && defined($servertagqueue{$queueitem})) ) { # Is there really a queueitem here?
+		for ( my $i = $queueitem; $i <= Irssi::settings_get_int('findbot_maxqueue'); $i++) {
+			if ( defined($nickqueue{$i+1}) && defined($filequeue{$i+1}) && defined($servertagqueue{$i+1}) ) { # Move up in queue if there is one
+				$nickqueue{$i} = $nickqueue{$i+1};			# Move up in queue
+				$filequeue{$i} = $filequeue{$i+1};			# Move up in queue
+				$servertagqueue{$i} = $servertagqueue{$i+1};		# Move up in queue
+			}
+				
+		}
+		delete $nickqueue{$lastqueuenumber};		# Delete the last entry. It has been moved up one slot
+		delete $filequeue{$lastqueuenumber};		# Delete the last entry. It has been moved up one slot
+		delete $servertagqueue{$lastqueuenumber};	# Delete the last entry. It has been moved up one slot
+		$lastqueuenumber--;				# Since we removed a queue item the lastqueuenumber decreases
+	} else { debugprint(10,"debug: No remove $queueitem"); }
+}
+
+sub user_have_max_active_sends {
+	my $nickname = shift;					# Save the nick
+	my $localserver = shift;				# Save current servertag
+	if ( $activesends{$nickname} < Irssi::settings_get_int('findbot_maxusersends') ) {
+		return 0;					# The user didn't have enough sends
+	} else {
+		return 1;					# The user have NOT an active send
+	}
+}
+
+sub user_is_in_active_channel {
+	my $nickname = shift;
+	my $srvtag = shift;
+	my $find_channels = Irssi::settings_get_str('findbot_channels'); # What channels to monitor
+        my @checkchannels = split (/ /, $find_channels); # Split into an array
+
+	foreach my $localserver ( Irssi::servers() ) {		# Loop through all connected servers
+		foreach my $singlechan ( @checkchannels ) {	# Loop through all monitored channels
+			my $channel = $localserver->channel_find($singlechan);	# Get a channelobject
+			if ( defined($channel) && defined($channel->nick_find($nickname)) ) {	# Is the nick there?
+				return 1;	# User are in monitored channels # Yep is was
+			} 
+        	}
+	}
+		return 0;	# User have left monitored channels
+
+}
+
+sub nicefilename {
+        my $filename = shift;
+
+        if ( $filename =~ /.*\/(.*)\ *:.*/g ) { # If filelist is made by "file"
+		debugprint(15,"Summary file is made by the program file");
+                return $1;
+        } elsif ( $filename =~ /.*\/(.*)$/g ) { # If filelist is Not made by file
+		debugprint(15,"Summary file is NOT made by the program file");
+                return $1;
+        }
+}
+
+sub strippath {
+	my $filename = shift;			# Get parameter into $filename
+
+	$filename =~ s/.*\/(.*)/$1/g;		# Remove everything until the last /
+	return $filename;			# Return the stripped line
+}
+
+sub debugprint {
+	(my $dbglvl,my $debugmessage) = @_;	# Save input to variables
+	$debuglevel = Irssi::settings_get_int('findbot_debuglevel');
+	my $win;
+	if ( ! ($win = Irssi::window_find_name($IRSSI{name})) ) { # If the windows doesn't exist
+		$win = Irssi::Windowitem::window_create($IRSSI{name},1);
+	}
+	if ( $dbglvl <= $debuglevel ) {
+		$win->set_name($IRSSI{name});	# Select the window
+		$win->print($debugmessage,MSGLEVEL_CLIENTCRAP);
+		my $debugtid = localtime(time);
+		open (LOGFILE,">> $logfile");
+                print LOGFILE "$debugtid: $debugmessage\n";
+                close (LOGFILE);
+	}
+}
+
+sub process_queue {
+	if (Irssi::settings_get_bool('findbot_enabled') ) { # Is the findbot enabled?
+		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); # Get current time
+		if ( ! timeslotenabled($wday,$hour,$min) ) {		# If NOT true the bot is offline
+			debugprint(15,"The bot is Offline due to timerestrictions in findbot_timeslots");
+			return 0;
+		}
+		print_banner();
+		if ( $currentsends < Irssi::settings_get_int('findbot_maxsends') ) {    # Check if we'll send another file simultanously
+			my $i = 1;
+			while ( $i <= $lastqueuenumber ) {
+				if ( ! user_have_max_active_sends($nickqueue{$i},$servertagqueue{$i}[0]) ) { # If NOT user have max active sends
+					my $nicefile = nicefilename($filequeue{$i});
+					if ( user_is_in_active_channel($nickqueue{$i},$servertagqueue{$i}[0]) ) { # Are the user in a monitored channel?
+						debugprint(10,"[ADMIN] $nickqueue{$i} are in monitored channels, sending $nicefile");
+						my $localserver = Irssi::server_find_tag($servertagqueue{$i}[0]);
+						$localserver->command("/QUOTE NOTICE " . $nickqueue{$i} . " :Sending you the requested file: $nicefile");
+						$localserver->command("/DCC SEND $nickqueue{$i} \"$filequeue{$i}\"" );
+						remove_queueitem($i);
+						last;	# Exit the loop
+					} else {
+						debugprint(10,"[ADMIN] $nickqueue{$i} is NOT in monitored channels. Removing queueentry $filequeue{$i}");
+						remove_queueitem($i);
+					 } # Remove the queued item if the user have parted the channel
+				} else { # A user had too many sends, increase $i by one to check next queue pos.
+					$i++;	# Increase by one so we can loop through whole queue
+				}
+			} # End while or for
+		}
+	}
+	check_dcc_speed_and_in_channel();			# Check minimumspeed
+}
+
+sub dcc_created {
+	(my $dcc) = @_;	# Put active dcc in variable
+
+	debugprint(15,"dcc_created was called");
+	if ( $dcc->{type} eq "SEND" ) {				# Is it a SEND?
+		if ( defined( $activesends{$dcc->{nick}} ) ) {
+			$activesends{$dcc->{nick}} = $activesends{$dcc->{nick}} + 1;
+		} else {
+			$activesends{$dcc->{nick}} = 1;
+		}
+		$currentsends++;
+	}
+}
+
+sub dcc_closed {
+	(my $dcc) = @_; # Put active dcc in variable
+
+	debugprint(15,"dcc_closed was called");
+	if ( $dcc->{type} eq "SEND" && defined ($activesends{$dcc->{nick}}) ) {	# Is it a SEND and a findbot SEND?
+		my $tiden = time();
+		$tiden = $tiden - $dcc->{starttime};
+		if ( $tiden > 0 ) {
+			my $kbsec = $dcc->{transfd} / $tiden;
+		} else {
+			$tiden = 1;
+			my $kbsec = $dcc->{transfd} / $tiden;
+		}
+		if ( $dcc->{transfd} == 0 ) {		# If transfered byts are zero, then it was probably aborted
+			debugprint(10,"[ADMIN] SEND aborted Nick: $dcc->{nick} File: $dcc->{arg}");
+		} else {
+			debugprint(10,"[ADMIN] SEND done Nick: $dcc->{nick} File: $dcc->{arg} Bytes: $dcc->{transfd} Time(sec): $tiden Speed: " . calc_kb_sec($tiden,$dcc->{transfd}) . " KB/s");
+		}
+		if ($activesends{$dcc->{nick}} == 1) {
+			delete $activesends{$dcc->{nick}};
+		} else {
+			 $activesends{$dcc->{nick}} = $activesends{$dcc->{nick}} - 1;
+		}
+		$currentsends--;
+		$scriptdetect{$dcc->{nick}} = time();		# Record the time when dcc was closed
+	}
+}
+
+sub calc_kb_sec {
+	my $seco = shift;
+	my $bytest = shift;
+
+my 	$kbsec = $bytest / $seco / 1000;
+	$kbsec =~ s/(.*\..?.?).*/$1/;
+
+	return $kbsec;
+}
+
+sub dcc_destroyed {
+        (my $dcc) = @_; # Put active dcc in variable
+
+	debugprint(15,"dcc_destroyed was called");
+}
+
+sub check_dcc_speed_and_in_channel {
+#	my $localserver = Irssi::server_find_tag($servertag); # Get serverobject
+	my $minimumspeed = Irssi::settings_get_int('findbot_minspeed');
+	my $channelcheck = Irssi::settings_get_bool('findbot_mustbeinchannel');
+	foreach my $dccconnection (Irssi::Irc::dccs()) {
+		if ( $dccconnection->{type} eq "SEND" &&  defined($activesends{$dccconnection->{nick}}) && ($dccconnection->{transfd} - $dccconnection->{skipped}) > 50000) { # Check if its a findbot send.
+			my $bytetransferred = $dccconnection->{transfd} - $dccconnection->{skipped};
+			my $timedownloaded = time() - $dccconnection->{starttime};
+			if ( $timedownloaded == 0 ) { $timedownloaded++; } # Fix for Illegal division by zero
+			my $currentcps = sprintf("%02d",($bytetransferred / $timedownloaded)); # Get current CPS
+			if ( $currentcps < $minimumspeed && $minimumspeed > 0 ) {	# Check if below minimumspeed
+				my $localserver = Irssi::server_find_tag($dccconnection->{servertag});
+				$localserver->command("/QUOTE NOTICE $dccconnection->{nick} :Minimum CPS is $minimumspeed and you only have $currentcps. Closing your connection");
+				$localserver->command("/DCC CLOSE SEND $dccconnection->{nick}");
+				debugprint(10,"[ADMIN] $dccconnection->{nick} ($currentcps) is below minimumspeed($minimumspeed). Closing...");
+			} elsif ( $channelcheck ) {
+				if ( ! user_is_in_active_channel($dccconnection->{nick},$dccconnection->{servertag}) ) {
+					debugprint(10,"[ADMIN] $dccconnection->{nick} has LEFT monitored channels, closing SEND");
+					my $localserver = Irssi::server_find_tag($dccconnection->{servertag});
+					$localserver->command("/DCC CLOSE SEND $dccconnection->{nick}");
+					# Just close without warning, why bother to tell him if he's left.
+				}
+			}
+		}
+	}
+}
+
+sub nickname_changed {
+	my ($chan, $newnick, $oldnick) = @_;
+
+	foreach my $queuepos (keys(%nickqueue)) {	# Go through all nicks in my queuelist to see if we're affected
+		if ( $nickqueue{$queuepos} eq $oldnick ) {	# Check the nick
+			$nickqueue{$queuepos} = $newnick->{nick};	# Insert the new nick in that position
+			debugprint(10,"[ADMIN] Nickchange $nickqueue{$queuepos} -> $newnick->{nick}");
+		}
+	}
+	if ( defined($activesends{$oldnick}) ) {		# He has an active send
+		$activesends{$newnick->{nick}} = $activesends{$oldnick}; # Make a new entry so he can't evade the dcc speed check
+		delete $activesends{$oldnick};
+	}
+}
+
+sub user_got_kicked {
+	my ($kchannel,$knick,$kkicker,$kaddress,$kreason) = @_;
+	my $mustbeinchannel = Irssi::settings_get_bool('findbot_mustbeinchannel');
+	
+	if ( $mustbeinchannel ) {				# Are we to punish this kicked user?
+		foreach my $queuepos (keys(%nickqueue)) {	# Go through all nicks in my queuelist to see if we're affected
+			if ( $nickqueue{$queuepos} eq $knick ) {	# Check the nick if the kicked user has a queue.
+				debugprint(10,"[ADMIN] $knick was KICKED. Removing queueposition $queuepos $filequeue{$queuepos}");
+				remove_queueitem($queuepos);	# Removes the users queue
+			}
+		}
+	}
+}
+
+sub print_banner {
+	my $timenow = time();
+	my $timecalc = Irssi::settings_get_str('findbot_bannertime') + $lastbannerprint;
+#	debugprint(10,"print_banner function... now: $timenow last: $lastbannerprint timecalc: $timecalc");
+	if ( $timenow > $timecalc ) {
+		$lastbannerprint = time();		# Reset timer
+		my $find_channels = Irssi::settings_get_str('findbot_channels'); # What channels to monitor
+		my @checkchannels = split (/ /, $find_channels); # Split into an array
+		if ( Irssi::settings_get_bool('findbot_showbanner') ) { # Check if I will print the banner
+			debugprint(10,"[ADMIN] Sending banner to monitored channels");
+			my $showvoiceprio = "OFF";
+			if (Irssi::settings_get_bool('findbot_voicegetpriority') ) {
+				$showvoiceprio = "ON";
+			}
+			foreach my $localserver ( Irssi::servers() ) {
+				my $bannerad = "For my list of $#bigarray files type: \@" . $localserver->{nick} . ", Sends: $currentsends/" . Irssi::settings_get_int('findbot_maxsends') . " , Queue: $lastqueuenumber/" . Irssi::settings_get_int('findbot_maxqueue') . ", Voicepriority: $showvoiceprio, For help: \@" . $localserver->{nick} . "-help";
+				foreach my $singlechan ( @checkchannels ) {	# Loop through all monitored channels
+					my $channel = $localserver->channel_find($singlechan);	# Get the channelobject
+					if ( defined($channel) ) { # Am I in the specific channel, if so its defined
+						$channel->command("/MSG $singlechan $bannerad" . " Using: Irssi " . $IRSSI{name} . " v$VERSION"); # Print banner
+					} # End if
+				} # End foreach channel
+			} # End foreach server
+		} # End if
+	} # End check if I'll print the banner
+}
+
+sub admin_showqueue {
+	debugprint(10,"[ADMIN] Show queue");
+	debugprint(10,"[ADMIN] Current sends are: $currentsends");
+	for ( my $i = 1; $i <= $lastqueuenumber; $i++ ) { # Loop through the queue
+		debugprint(10,"[ADMIN] ($i) $nickqueue{$i}:$filequeue{$i}:$servertagqueue{$i}[0]:Prio $servertagqueue{$i}[1]");
+#		if ( $servertagqueue{$i}[1] > 0 ) {	# Is this a VIP entry?
+#			debugprint(10,"[ADMIN] ($i) $nickqueue{$i}:$filequeue{$i}:$servertagqueue{$i}[0]:VIP queued($servertagqueue{$i}[1])");
+#		} else {
+#			debugprint(10,"[ADMIN] ($i) $nickqueue{$i}:$filequeue{$i}:$servertagqueue{$i}[0]:Normal queued");
+#		}
+	}
+	debugprint(10,"[ADMIN] End of list");
+}
+
+sub admin_reset {
+	my $howmany = shift;
+	if ( $howmany =~ /\d+/ ) {
+		$currentsends = $howmany;	# Reset current sends
+		debugprint(10,"[ADMIN] Current sends are now set to $currentsends");
+	} else {
+		debugprint(10,"[ADMIN] Specify how many sends there are now");
+	}
+}
+
+#sub start_findbot {
+#	my($data,$localserver,$witem) = @_;
+
+#	if ( $localserver != 0 ) {
+#		$servertag = $localserver->{tag};		# Remeber on which server the findbot is on
+#		$globalstart = 1;
+#		debugprint(10,"Findserver is started");
+#	} else {
+#		debugprint(10,"Please start the server in a window where I can get hold of a servertag");
+#3	}
+#}
+
+sub admin_removequeue {
+	my $queueposition = shift;
+	if ( $queueposition =~ /\d+/ ) {
+		remove_queueitem($queueposition);
+		debugprint(10,"[ADMIN] Removed position $queueposition");
+	} else {
+		debugprint(10,"[ADMIN] Specify which queueitem should be removed");
+	}
+}
+
+sub admin_activesends {
+		debugprint(10,"[ADMIN] Listing active dccsends");
+	foreach my $send (keys(%activesends)) {
+		debugprint(10,"[ADMIN] $send ($activesends{$send})");
+	}
+		debugprint(10,"[ADMIN] End of list");
+}
+
+sub admin_reload {
+	if ( -r Irssi::settings_get_str('findbot_summaryfile') ) {
+	        open (FINDFILE,Irssi::settings_get_str('findbot_summaryfile')); # Open the file
+	        @bigarray = <FINDFILE>;                         # Load it whole into memory :)
+	        close (FINDFILE);
+		debugprint(10,"[ADMIN] Summary file has been reloaded into memory.");
+	} else {        
+	        debugprint(10,"[ADMIN] The Summaryfile cannot be read. Please check if the path is correct and the file is accually there.");
+	}
+}
+
+sub send_ctcp_slots {
+# Not implemented yet
+}
+
+sub sanitize_input {
+	my $tainted_input = shift;
+	$tainted_input =~ s/[\^\\\[\]\$\(\)\?\+\/\|\'\}\{]+/\./g; # Translate ^\[]$()?+ to .
+	return $tainted_input;		# Return regularexpression sanitized input
+}
+
+sub find_public {
+	my ($server, $msg, $nick, $address, $targetchan) = @_;		# Save all input to variables
+	my $find_channels = Irssi::settings_get_str('findbot_channels');# What channels to monitor
+	my $find_file = Irssi::settings_get_str('findbot_summaryfile');	# Filename which holds all the files
+	my $mp3list = Irssi::settings_get_str('findbot_sendlist');	# The nice list which is sent to users
+	my $max_results = Irssi::settings_get_int('findbot_maxresults');# Get max results retured to client
+	my $userqueuelimit = Irssi::settings_get_int('findbot_maxuserqueue'); # Get userqueue limit
+	my $serverqueuelimit = Irssi::settings_get_int('findbot_maxqueue'); # Get server maxqueue
+	my @checkchannels = split (/ /, $find_channels);		# Split into an array
+
+	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); # Get current time
+
+	my $validchan = 0;
+	foreach my $singlechan ( @checkchannels ) {
+		if ( $singlechan eq $targetchan ) {
+			$validchan = 1;
+		}
+	}
+
+	if ( $validchan && Irssi::settings_get_bool('findbot_enabled') && timeslotenabled($wday,$hour,$min) ) {	# Did the user say something in one of our channels?
+		my $mynick = $server->{nick};
+		if ( $msg =~ /^\ *\@find\ +.+/i ) { 			# Was it a @find command?
+			$msg =~ s/^\ *\@find\ (.*)/$1/i;		# Remove @find space spaces infront of it
+			$msg =~ tr/*/\ /;				# Translate * to spaces
+			$msg =~ s/[\ \+]+/\.\*/g;			# Translate ALL spaces to .*
+			$msg = sanitize_input($msg);
+			debugprint(10,"$nick is searching for $msg");
+			my @matched;
+#			if ( length($msg) > 2  && $msg =~ m/[a-z]+/i) { # MUST be over 2 chars and contain atleast 1 or more normal characters
+				@matched = grep (/$msg/i,@bigarray);		# Search for the matches
+#			} else {
+#				debugprint(10,"[ADMIN] $nick tried to search with too wide searchpattern ($msg)");
+#				return;
+#			}
+			my $matchcount = 0;				# Reset a counter
+			my $found_results = $#matched;			# Return how many hits
+			$found_results++;				# If nomatch then it is -1
+			if ( $found_results > 0 ) {	# Print number of results to the user
+				debugprint(10,"Found $found_results matches");
+				$server->command("/QUOTE PRIVMSG " . $nick . " :Found $found_results matching files. Using: $IRSSI{name} v$VERSION for Irssi");
+			}
+			foreach my $match (@matched) {			# Loop through each file match
+				$match = strippath($match);		# Remove the path and keep filename and mp3info
+				$match =~ s/:/\ \ \ :\ \ /;		# Replace the ":" with "   :  "
+				if ( $matchcount < $max_results ) { 	# Is the matchlimit reached and is it a mp3 file?
+					$matchcount++;			# Increase by one
+					$server->command("/QUOTE PRIVMSG " . $nick . " :!$mynick $match");
+				} else {				# Limit reached!
+					$server->command("/QUOTE PRIVMSG " . $nick . " :Resultlimit by " . $max_results . " reached. Download my list for more, by typing \@$server->{nick}");
+					close (FINDFILE);
+					return;
+				}
+			}
+#			if ( $matchcount == 0 ) {
+#				$server->command("/QUOTE NOTICE " . $nick . " :No match found.");
+#			}
+		} elsif ( $msg =~ /^\ *!$server->{nick}.*/i ) {		# Send file trigger
+			my $localsrvtag = $server->{tag};		# Get current servertag
+			debugprint(20,"$nick tries to queue $msg");	# Just debugoutput
+			$msg =~ s/\ *!$server->{nick}\ *(.*)/$1/;	# Remove the trigger
+			$msg =~ tr/\(\)/\.\./;				# Translate all () to . (any char)
+			$msg = sanitize_input($msg);
+			my @matched = grep (/$msg/i,@bigarray);		# Get the real path from the file
+			if ( $matched[0] eq "" ) {
+				$server->command("/QUOTE NOTICE " . $nick . " :That file does not exist");
+				return;
+			}
+			my $realfile = $matched[0]; 			# Append the real path to the relative path
+			$realfile =~ s/(.*)\ +:.*/$1/;			# Remove : and beyoned
+			
+			my $scriptrequest = time() - $scriptdetect{$nick};
+			if ( $scriptrequest <= $scriptdetecttime && $showscriptdetect ) {
+				debugprint(10,"[ADMIN] Requestscript detected on $nick");
+				# return;	# 
+			}
+			chomp ($realfile);
+			if ( check_user_queued_items($nick,$localsrvtag) < $userqueuelimit ) { # Is it below allowed user queue limit
+				if ( already_queued_file($nick,$realfile,$localsrvtag) ) {
+					$server->command("/QUOTE PRIVMSG " . $nick . " :You have already queued that file!");
+				} else {
+					my $priority = 1;			# Default prio
+					if ( $lastqueuenumber < $serverqueuelimit ) {
+						foreach my $vchannel ($server->channels()) {	# Loop through all joined channels
+							if ( $vchannel->{name} eq $targetchan ) {	# Did he say it in a monitored channel
+								my $nickrec = $vchannel->nick_find($nick);
+								if ( $nickrec->{voice} ) {
+									$priority = 10;	# A voiced user get 10 prioritypoints
+								} # Voiced user?
+								if ( $nickrec->{op} ) {
+									$priority = 20; # An op get 20 prioritypoints
+								}
+								last;		# Skip rest of loop
+							}
+						}
+						add_file_to_queue($nick,$realfile,$localsrvtag,$priority);	# Add file to queue
+						if ( Irssi::settings_get_bool('findbot_voicegetpriority') && $priority > 1 ) {
+							$server->command("/QUOTE PRIVMSG " . $nick . " :Added file to VIP queueposition $globalvippos.");
+							debugprint(10,"[ADMIN] $nick VIP queued: $realfile");
+						} else {
+							$server->command("/QUOTE PRIVMSG " . $nick . " :Added file to queueposition $lastqueuenumber.");
+							debugprint(10,"[ADMIN] $nick queued: $realfile");
+						}
+					} else {
+						$server->command("/QUOTE PRIVMSG " . $nick . " :The serverqueue is full. Please try again in a few minutes.");
+						debugprint(10,"[ADMIN] Queue is FULL.");
+					}
+				}
+			} else {						# Tell the user the user queue limit is reached
+				$server->command("/QUOTE PRIVMSG " . $nick . " :You have reached the " . $userqueuelimit . " files queue limit.");
+				debugprint(10,"[ADMIN] $nick has reached his queuelimit");
+			}
+		} elsif ( ($msg =~ /^\ *\@$server->{nick}-stats.*/i) || ($msg =~ /^\ *\@$server->{nick}-que.*/i) ) {
+			debugprint(10,"[ADMIN] $nick checked queuepositions");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :Sending you, your queuepositions");
+			for ( my $i = 1; $i <= $lastqueuenumber; $i++ ) { # Loop through the queue
+				if ( $nickqueue{$i} eq $nick ) {
+					my $nicefile = nicefilename($filequeue{$i});
+					$server->command("/QUOTE PRIVMSG " . $nick . " :Pos $i, $nicefile");
+				}
+			}
+		} elsif ( $msg =~ /^\ *\@$server->{nick}-remove.*/i ) {
+			if ( $msg =~ /\ *\@$server->{nick}-remove\ *([\d]+)/ ) { # We have a number
+				my $qitem = $1;
+				debugprint(10,"[ADMIN] $nick is trying to remove queueposition $qitem");
+				if ( $nickqueue{$qitem} eq $nick ) {	# Check if the item is owned by the user
+					remove_queueitem($qitem);	# Remove the requested queueitem
+					$server->command("/QUOTE NOTICE " . $nick . " :Item $qitem has");
+				} else {	# Unauthorized removal
+					debugprint(10,"[ADMIN] $nick tried to remove other peoples files from queue");
+					$server->command("/QUOTE NOTICE " . $nick . " :You can't remove other peoples queueitems");
+				}
+			} else {			# We dont have a number, ie remove the whole user queue
+				debugprint(10,"[ADMIN] $nick has removed all own queueitems");
+				for ( my $i = 1; $i <= $lastqueuenumber; $i++ ) { # Loop through the queue
+					if ( $nickqueue{$i} eq $nick ) {
+						remove_queueitem($i);
+					}
+				}
+				$server->command("/QUOTE NOTICE " . $nick . " :Your whole queue have been deleted");
+			}
+		} elsif ( $msg =~ /^\ *\@$server->{nick}$/i ) {
+			if ( -r $mp3list ) {				# Check if the file is still there
+				debugprint(10,"[ADMIN] $nick requested my list: $mp3list");
+				$server->command("/QUOTE NOTICE " . $nick . " :Sending you my full list...");
+				$server->command("/DCC SEND $nick $mp3list" );
+			} else {
+				debugprint(5,"[WARNING] the $mp3list doesn't exist!");
+				$server->command("/QUOTE NOTICE " . $nick . " :Something wicked happened. My list has disappeared and i have notified the bot owner.");
+			}
+		} elsif ( ($msg =~ /^\ *\@$server->{nick}\ *help\ *$/i) || ($msg =~ /^\ *\@$server->{nick}-help\ *$/i) ) {
+			debugprint(10,"[ADMIN] $nick requested HELP");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :Public channel commands:");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :\@find [searchpattern] : Searches my database for that file");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :!$server->{nick} [file] : Queues that file and it will be sent to you when its your turn");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :\@$server->{nick}-stats : Shows you your queuepositions");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :\@$server->{nick}-que : Shows you your queuepositions");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :\@$server->{nick}-remove : Clears all your queued files");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :\@$server->{nick}-remove 2 : Clear your queueposition 2");
+			$server->command("/QUOTE PRIVMSG " . $nick . " :$IRSSI{name} v$VERSION $IRSSI{url}");
+		} else {
+			return; # Just ordinary chatter
+		}
+	}
+	return;	# Just in case
+}
+
+sub check_vital_configuration {
+	my $configerror = 0;
+	if ( Irssi::settings_get_str('findbot_channels') eq "" ) {
+		$configerror = 1;
+		Irssi::print("The setting findbot_channels is empty.");
+	} elsif (  Irssi::settings_get_str('findbot_summaryfile') eq "" ) {
+		$configerror = 1;
+                Irssi::print("The setting findbot_summaryfile is empty.");
+	} elsif (  Irssi::settings_get_str('findbot_sendlist') eq "" ) {
+		$configerror = 1;
+                Irssi::print("The setting findbot_sendlist is empty.");
+	} elsif (  Irssi::settings_get_int('findbot_maxresults') == 0 ) {
+                $configerror = 1;         
+                Irssi::print("The setting findbot_maxresults is empty.");
+        } elsif (  Irssi::settings_get_int('findbot_maxqueue') == 0 ) {
+                $configerror = 1;         
+                Irssi::print("The setting findbot_maxqueue is empty.");
+        } elsif (  Irssi::settings_get_int('findbot_maxsends') == 0 ) {
+                $configerror = 1;         
+                Irssi::print("The setting findbot_maxsends is empty.");
+        } elsif (  Irssi::settings_get_int('findbot_maxuserqueue') == 0 ) {
+                $configerror = 1;         
+                Irssi::print("The setting findbot_maxuserqueue is empty.");
+        } elsif (  Irssi::settings_get_int('findbot_maxusersends') == 0 ) {
+                $configerror = 1;         
+                Irssi::print("The setting findbot_maxusersends is empty.");
+        } elsif (  Irssi::settings_get_int('findbot_bannertime') == 0 ) {
+                $configerror = 1;
+                Irssi::print("The setting findbot_bannertime is empty.");
+        }
+	if ($configerror) {
+		Irssi::print("Please correct the settings first. The server will be disabled");
+		Irssi::print("You have to reload the script when the settings are correct");
+		Irssi::timeout_remove($timeout_tag);
+		Irssi::timeout_remove($banner_timeout);
+	}
+}
+
+########
+# Main #
+########
+
+Irssi::settings_add_str("misc", "findbot_channels", "");	# Add a variable inside of irssi
+Irssi::settings_add_str("misc", "findbot_summaryfile", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_maxresults", "");	# Add a variable inside of irssi
+Irssi::settings_add_str("misc", "findbot_sendlist", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_maxqueue", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_maxsends", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_maxuserqueue", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_maxusersends", "");	# Add a variable inside of irssi
+Irssi::settings_add_bool("misc", "findbot_showbanner", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_bannertime", "");	# Add a variable inside of irssi
+Irssi::settings_add_bool("misc", "findbot_enabled", "");	# Add a variable inside of irssi
+Irssi::settings_add_bool("misc", "findbot_voicegetpriority", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_minspeed", "");	# Add a variable inside of irssi
+Irssi::settings_add_int("misc", "findbot_debuglevel", 10);	# Add a variable inside of irssi
+Irssi::settings_add_bool("misc", "findbot_mustbeinchannel", "");
+Irssi::settings_add_str("misc", "findbot_timeslots", "");	# Add a variable inside of irssi
+Irssi::signal_add_last('message public', 'find_public');	# Hook up a function to public chatter
+Irssi::signal_add_last('message private', 'private_get');	# Hook up a function to public chatter
+Irssi::signal_add_last('dcc created', 'dcc_created');		# Hook when a dcc is created
+Irssi::signal_add_last('dcc closed', 'dcc_closed');		# Hook when a dcc is closed
+Irssi::signal_add_last('dcc destroyed', 'dcc_destroyed');
+Irssi::signal_add('nicklist changed', 'nickname_changed');
+Irssi::signal_add('message kick', 'user_got_kicked');
+Irssi::command_bind('findbotqueue', 'admin_showqueue');
+Irssi::command_bind('findbotremove', 'admin_removequeue');
+Irssi::command_bind('findbotreset', 'admin_reset');
+Irssi::command_bind('findbotreload', 'admin_reload');
+Irssi::command_bind('findbotactivesends', 'admin_activesends');
+
+check_vital_configuration();	# Run a subroutine to check all variables before starting
+if ( -r Irssi::settings_get_str('findbot_summaryfile') ) {
+	open (FINDFILE,Irssi::settings_get_str('findbot_summaryfile'));	# Open the file
+	@bigarray = <FINDFILE>; 			# Load it whole into memory :)
+	close (FINDFILE);
+} else {
+	debugprint(10,"The Summaryfile cannot be read. Please check if the path is correct and the file is accually there.");
+}
+# my $slots_timeout = Irssi::timeout_add(600000, "send_ctcp_slots", ""); # Not implemented yet
+$timeout_tag = Irssi::timeout_add(5000, "process_queue", "");	# Add a timeout value the process the queue
+#my $bannertime = Irssi::settings_get_int('findbot_bannertime');
+#$banner_timeout = Irssi::timeout_add($bannertime * 1000, "print_banner", ""); # Set timeout for banner
+Irssi::print("Findbot script v$VERSION by $IRSSI{'authors'} loaded!"); # Show version and stuff when it has been loaded
+
+if ( Irssi::settings_get_bool('findbot_enabled') ) {
+	Irssi::print("Findserver is Online");
+} else {
+	Irssi::print("Findserver is Offline");
+}
+debugprint (5,"[ADMIN] Findbot fileserver has been loaded!");
+
+
+#############################
+# INSTALLATION INSTRUCTIONS
+#############################
+# - Making of the "findbot_summaryfile" and "findbot_sendlist"
+# 	Run the perlscript below to create the summaryfile and sendlist
+#
+# - Install it in Irssi
+# 	Put the script in your Irssi scripts directory (~.irssi/scripts)
+# 	Start Irssi and load it. (/run findbot.pl)
+# 	Now start setting all vital variables by using the command /set
+#	set the "findbot_summaryfile" and "findbot_sendlist" to the files you just have created with
+#	the perlscript below.
+#	Dont forget to set all the other variables
+
+
+####### Here is the script #########
+
+# #!/usr/bin/perl 
+
+# if not supplied on cmd line this is the values
+#$MP3PATH = "/misc/glftpd/site/mp3/";
+#$NICK    = "Donken";
+#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+#
+#$year    = sprintf("%04d",$year+1900);
+#$mon     = sprintf("%02d",$mon + 1);
+#$mday    = sprintf("%02d",$mday);
+#$DATE    = "$year-$mon-$mday";
+#$LIST    = $NICK . "_mp3s_list.txt";
+#$CMD     = $NICK . "_mp3s_cmd.txt";
+#$padding = 50;	# How many pad-characters should it be
+#
+#if( "x" ne  "x$ARGV[0]" ){ $NICK    = $ARGV[0]; }
+#if( "x" ne  "x$ARGV[1]" ){ $MP3PATH = $ARGV[1]; }
+#if( "x" ne  "x$ARGV[2]" ){ $LIST    = $ARGV[2]; }
+#if( "x" ne  "x$ARGV[3]" ){ $CMD     = $ARGV[3]; }
+#
+#print "Using nick: $NICK\n";
+#print "Finding under supplied mp3path $MP3PATH\n";
+#@INPUT=`find $MP3PATH -follow -type f`;
+#print "Find done\n";
+#print "Summaryfile: $LIST\n";
+#print "Sendlist:    $CMD\n";
+#
+#print "Generating lists done/total mp3 files\n";
+#open(LIST,">$LIST"); 
+#open(CMD,">$CMD");
+#
+#print LIST "### List generated: $DATE I have a total of $#INPUT mp3s ###\n";
+#print CMD  "### List generated: $DATE I have a total of $#INPUT mp3s ###\r\n";
+#print CMD  "### This list was created by Findbot for Irssi\r\n";
+#print CMD  "### http://irssi.org/scripts\r\n";
+#
+#$CHECKDIR=""; 
+#$CNT=0;
+#
+## arrays start 0 and If I have 10 mp3 without +1 it would stat you have 9 ...
+#$TOTAL = $#INPUT + 1; 
+#
+#sub padline {
+#	$filename = shift;
+#	$filelength = length($filename);
+#	$paddchar = "=";
+#	if ( $filelength <= $padding ) {
+#		for ( $counter = $filelength; $counter < $padding; $counter++ ) {
+#			$paddchar .= "=";
+#		}
+#	}
+#	return $paddchar;
+#}
+#
+#foreach( @INPUT ){
+#        $CNT++; 
+#	print "\r$CNT/" . $TOTAL;
+#        chomp $_; 
+#
+#	$FILE=$_; 
+#	$DIR=$_; 
+#	$FILEwPATH=$_;
+#
+#        $FILE =~ s/.*\/(.*)/$1/g; # only the file
+#        $DIR =~ s/(.*)\/.*/$1/g; # only the dir
+#
+#        $STAT_OF_FILE = `file -b "$FILEwPATH"`; # the info about the file
+#	$STAT_OF_FILE =~ s#/##gio; # remove /
+#        chomp $STAT_OF_FILE;
+#
+#        print LIST "$FILEwPATH : $STAT_OF_FILE\n"; # output to the LIST-file
+#	if( "$DIR" ne "$CHECKDIR" ){ 
+#	        # output to the CMD-file 
+#		print CMD "\r\n=================================================\r\n";
+#		$CHECKDIR = $DIR; print CMD "Files in $DIR\r\n"; 
+#		print CMD "=================================================\r\n\r\n";
+#	}
+#        print CMD "!$NICK $FILE " . padline($FILE) . " $STAT_OF_FILE\r\n"; # output to the CMD-file
+#}
+#print CMD "EOF\r\n";
+#print LIST "EOF\r\n";
+#close LIST,CMD;
+#print "\nList generation done\n";
+
diff --git a/scripts/fleech.pl b/scripts/fleech.pl
new file mode 100644
index 0000000..3443c28
--- /dev/null
+++ b/scripts/fleech.pl
@@ -0,0 +1,948 @@
+#
+# $Id: fleech.pl,v 1.41 2003/01/11 23:07:48 piotr Exp $
+#
+# This script works the best with sysreset file server. For other file 
+# server types you probably need to add regexps.
+#
+# Commands: (for "/fleech add" uses current irc server - make sure nick is
+# 	on this server (e.g. execute "/fleech" commands in the window with 
+# 	channel in which a nick is, or use C-x))
+# 	
+# Setting trigger: (<trigger> is a command you'd use to connect to fserve
+#	without "/ctcp nick" part. Currently only /ctcp triggers are supported)
+# /fleech add nick trigger <trigger>  
+# 
+# Adding file: (<file> is a file with full path, with "/" not "\" even if 
+# 	fserve is run on windows)
+# /fleech add nick file <file>
+# 
+# Adding multiple files with one command: (see also 'Multiple files' section 
+#   below for examples and better description)
+# /fleech add nick rfile xxx{01,5}yy\{\\{y 
+#   
+# Starting leeching:
+# /fleech go
+#
+# Listing status:
+# /fleech list
+#
+# Removing Completed file records:
+# /fleech clrc
+#
+# There is also /fleech set command which is currently not documented 
+# (RTFS :P), and a couple of /set fleech_ settings
+#
+# Example usage: ('nick' is fserve's nick)
+# /fleech add nick trigger !get me
+# /fleech add nick file lonewolf/Lone Wolf vol15 Story74.rar
+# /fleech add nick file Lone Wolf15.jpg
+# /fleech list
+# /fleech go
+#
+# Multiple files: [patch by Stylianos Papadopoulos]
+#	 Suppose you want to get files abc.r00, abc.r01, ..., abc.r45. 
+#	 You can add them all with one command:
+#		/fleech add nick rfile path/to/file/abc.r{00,45}
+#	 The "{00,45}" will be replaced by 00, 01, ..., 45 and files will be 
+#	 added for download.
+#	 If the file name have "{" or "\" in it you need to escape such characters
+#	 with a "\", so "{" -> "\{", "\" -> "\\"
+#	 For example:
+#		/fleech add nick rfile xxx{01,5}yy\{\\{y
+#	will add xxx01yy{\{y, xxx02yy{\{y, ... , xxx05yy{\{y for download.
+#
+#
+# TODO:
+# - when get is closed and we're checking if there are other the same gets, 
+# 	check only for gets with bigger tranfd
+# - loading, saving leechs
+# - user should be able to specify his own regexps for checking if file was
+# 	queued etc, connect this with some name, and notify fleech.pl that
+# 	server-nick fserve is that type fserve
+#
+# Changes:
+# 0.0.2i (2005.03.06):
+# 	- Multiple files adding with "/fleech add nick rfile" command, patch
+# 	  from Stylianos Papadopoulos [papasv69 //at// hotmail //dot// com] 
+# 	  (thanks!)
+# 0.0.2h (2003.04.13):
+# 	- /fleech set <oldnick> nick <newnick>
+# 	- some other small fixes/changes
+# 0.0.2g (2003.01.13):
+#	- rechecking bugfix
+# 0.0.2f (2003.01.12):
+# 	- new command "/fleech clrc" to remove record of complete files 
+# 	- some sanity checks in /fleech set
+# 0.0.2e (2003.01.10): 
+#	- should work when fserv changes nick. Because of this, use
+#		"/fleech add nick trigger !trigger" and not, like previously,
+#		"/fleech add nick trigger /ctcp nick !trigger".
+#
+
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.2i";
+%IRSSI = (
+	authors	=> 'Piotr Krukowiecki',
+	name	=> 'fleech',
+	contact	=> 'piotr //at// krukowiecki //dot// net',
+	description	=> 'fserve leecher - helps you download files from file servers',
+	license	=> 'GNU GPL v2', 
+	url	=> 'http://www.krukowiecki.net/code/irssi/'
+);
+
+
+### Data model: (i know this sucks :( )
+# servertag->nick-> %hash:
+# 	trigger->$
+# 	path->@ (where are we in file server?)
+# 	state->$ 
+# 	type->$ (type of server, for example default, sysreset etc)
+# 	lastaction->$ (when was last action performed/received)
+# 	cfile->$ (number of file we're operating now, -1 if none (i.e. the send has come or fserver ACK'ed queueing/sending the file)
+# 	files->@ of %hash: 
+# 		name (file name with full path)
+# 		state (complete, in transfer, not complete, etc.)
+# 		depth (how deep in dirs the file is. file in root dir == 0)
+# 		size (size of file, -1 means yet unknown)
+
+my %serv = ();
+my $dbglog = "";
+#my $dbglog = Irssi::get_irssi_dir() . "/fleech.dbg";
+
+my %states = (
+	'0' => 'Nothing done', 
+	'1' => 'Initiating connection', # sent e.g. "/ctcp nick trigger"
+	'2' => 'Connecting', # accepted chat by "/dcc chat nick"
+	'3' => 'Connected, waiting till end of welcome message', # dcc chat established, probably reading welcome message
+	'4' => 'Connected, changing dir', # sent "cd dir"
+	'5' => 'Connected, queueing files', # sent "get file"
+	'6' => 'Files queued', # we belive we have queued all files we could
+	'7'	=> 'All files complete', # we belive we have all files we wanted
+	'8'	=> 'Slots Full', # can't queue cause slots full
+	);
+
+my %fstates = (
+	'0'	=> 'File not complete', 
+	'1'	=> 'Transfer in progress', # the files is currently being send to us
+	'2'	=> 'Completed',	# we assume we have whole file on disk
+	'3' => 'File queued', # we assume it's in queue
+	);
+
+my %servers = (
+	'SysReset.*FileServer'	=> 'sysreset',
+	'I.*-.*n.*-.*v.*-.*i.*-.*s.*-.*i.*-.*o.*-.*n.*File Server with Advanced File Serving features'	=> 'invision', # stupid colors
+	'Edward_K Script'	=> 'edward_k',
+	);
+	
+# TODO : Check more servers for regexps
+my %patterns = ( 
+	'default'	=> {
+		'EoWM'	=> '\[\\\]', # End of Welcome Message
+		'file queued'	=> 'queue(d|ing).*in.*slot|add.*file.*to.*slot',
+		'my slots full'	=> 'queue slot.*full|have filled.*queue slots|no.*sends.*avail',
+		'sending file'	=> 'sending',
+		'invalid file name'	=> 'invalid filename|not.*valid.*file',
+		'already queued'	=> 'already.*(queued|sending)',
+		'dir changed'	=> '\[\\\.*\]',
+		},
+	'sysreset' => {
+		'EoWM'	=> '\[\\\]', # End of Welcome Message
+		'file queued'	=> 'Adding your file to queue slot.*The file will send when the next send slot is open', #ok
+		'my slots full'	=> 'Sorry, all of your queue slots are full', #ok
+		'all slots full'	=> 'Sorry, all send and queue slots are full', #ok
+		'sending file'	=> 'Sending File', #ok
+		'invalid file name'	=> 'Invalid file name, please use the form:', #OK
+		'already sending'	=> 'That file is already sending', # ok
+		'already queued'	=> 'That file has already been queued in slot', # ok
+		'dir changed'	=> '\[\\\.*\]', #ok
+		'press S'	=> "[[]'C' for more, 'S' to stop[]]", 
+		},
+	'edward_k' => {
+		'EoWM'	=> '\[\\\]', #ok
+		'file queued'	=> 'Queuing.*It has been placed in queue slot.*, it will send when sends are available',  #ok
+		'my slots full'	=> 'Sorry, there are too many sends in progress right now and you have used all your queue slots\. If you still want to get a file please wait for one to finish and try again',  #ok
+#		'all slots full'	=> 'Sorry, all send and queue slots are full', 
+		'sending file'	=> 'Sending', #ok 
+#		'already sending'	=> 'That file is already sending',  # not have?
+		'already queued'	=> 'Sorry, that queue already exists in queue slot.*, you have already queued that file', #ok
+		'dir changed'	=> '\[\\\.*\]', # ok 
+		},
+	'invision'	=> {
+		'EndoWM'	=> '\[\\\]', # End of Welcome Message
+		'file queued'	=> 'The file has been queued in slot|Thë.*file.*has beèn.*quëued.*in.*slót', #ok 1,2
+		'my slots full'    => 'Invision has determined you have used all your queue slots', #ok 2
+		'all slots full'	=> 'Sorry but the Maximum Allowed Queues of.*has been reached\. Please try again later',
+		'sending file'	=> 'InstaSending|Sending .*(MB)+.*\.', #ok1
+		'invalid file name'	=> 'File does not exists|ERROR:.*That is not a valid File', #ok1,2
+		'already queued'	=> 'hàt queüé.*alreadý.*e×ísts in.*queuè slot.*, try ãnother fìlè', # ok1
+		'dir changed'	=> '\[\\\.*\]', #ok
+		},
+	'lamielle' => { #
+		'EoWM'	=> '\[\\\]', # OK
+		'my slots full'	=> 'You already have a send going, please do not try to get another file till it has stopped',
+		'invalid file name'	=> 'Invalid filename', #OK
+		'dir changed'	=> '\[\\\.*\]', #ok
+		},
+	);
+
+###
+# "DCC CHAT from nick" came (or dcc send from nick, but we don't care)
+sub sig_dcc_request {
+	my ($dcc, $sendaddr) = @_;
+	print_dbg("Signal 'dcc request': type '$dcc->{type}' from '$dcc->{nick}' on '$dcc->{servertag}' arg '$dcc->{arg}' sendaddr '$sendaddr'", 3);
+	my $nick = lc $dcc->{'nick'};
+	my $tag = $dcc->{'servertag'};
+
+	return if (($dcc->{type} ne 'CHAT')
+		or (not exists $serv{$tag})
+		or (not exists $serv{$tag}{$nick})
+		or ($serv{$tag}{$nick}{'state'} != 1));
+		
+	print_dbg("Accepting connection", 3);
+	$serv{$tag}{$nick}{'state'} = 2;
+	$serv{$tag}{$nick}{'lastaction'} = time();
+	$dcc->{'server'}->command("DCC CHAT $dcc->{nick}");
+}
+
+###
+# dcc chat established or dcc get established
+sub sig_dcc_connected {
+	my $dcc = @_[0];
+	print_dbg("Signal 'dcc connected': type '$dcc->{type}' from '$dcc->{nick}' on '$dcc->{servertag}' arg '$dcc->{arg}'", 3);
+	my $nick = lc $dcc->{'nick'};
+	my $tag = $dcc->{'servertag'};
+	
+	return if ((not exists $serv{$tag})
+			or (not exists $serv{$tag}{$nick}));
+	my $fserv = get_fserv($tag, $nick);
+	if ($dcc->{'type'} eq 'CHAT') {
+		return if ($$fserv{'state'} != 2);
+	
+		print_dbg("Connection established", 3);
+		$$fserv{'state'} = 3;
+		$$fserv{'lastaction'} = time();
+		return;
+	}
+	if ($dcc->{'type'} eq 'GET') {
+		print_dbg("We have get!", 3);
+		
+		my $fnumber = find_file($fserv, $dcc->{'arg'});
+		if ($fnumber == -1) {
+			print_dbg("We have not queued this file", 3);
+			return;
+		}
+
+		my $file = $$fserv{'files'}[$fnumber];
+		if ($$file{'state'} == 2) {
+			print_dbg("File completed, ignoring send", 3);
+			return;
+		}
+		
+		$$file{'state'} = 1;
+		$$file{'size'} = $dcc->{'size'};
+		$$fserv{'lastaction'} = time();
+		$$fserv{'cfile'} = -1 if ($fnumber == $$fserv{'cfile'});
+
+		if (($$fserv{'state'} == 0 or $$fserv{'state'} == 6 or
+			$$fserv{'state'} == 8) and 
+			(find_file_to_queue($tag, $nick) != -1)) {
+			initiate_connection($tag, $nick);
+			return;
+		}
+		return;
+	}
+}
+
+
+###
+# Finds number of file with name filename. File name has spaces changed
+# to underscores and the search is case nonsensitive
+# Does not care about file state
+# nick record, filename
+sub find_file_modified ($$) {
+	my ($fserv, $file) = @_;
+	my $number = -1;
+	foreach (@{$$fserv{files}}) {
+		$number++;
+		my $name = $$_{'name'};	
+		$name =~ tr/A-Z /a-z_/;	# FIXME : i hope locales won't be a problem...
+		return $number 
+			if ($name =~ m/^\Q${file}\E$/i or $name =~ m/\/\Q${file}\E$/i);
+	}
+	return -1;
+}
+
+###
+# Finds number of file with name filename. Searches for exact match.
+# Does not care about file state
+# nick record, filename
+sub find_file_exact($$) {
+	my ($fserv, $file) = @_;
+	my $number = -1;
+	foreach (@{$$fserv{files}}) {
+		$number++;
+		return $number if ($$_{name} eq $file or $$_{name} =~ m|/\Q${file}\E$|);
+	}
+	return -1;
+}
+
+sub find_file($$) {
+	my ($fserv, $file) = @_;
+	my $num = find_file_exact($fserv, $file);
+	return $num if ($num >= 0);
+	return find_file_modified($fserv, $file);
+}
+
+### 
+# End of dcc chat or end of dcc get
+sub sig_dcc_destroyed {
+	my $dcc = @_[0];
+	print_dbg("Signal 'dcc destroyed': type '$dcc->{type}' from '$dcc->{nick}' on '$dcc->{servertag}' arg '$dcc->{arg}'", 3);
+	my $nick = lc $dcc->{'nick'};
+	my $tag = $dcc->{'servertag'};
+
+	return if ((not exists $serv{$tag})
+		or (not exists $serv{$tag}{$nick}));
+	
+	my $fserv = get_fserv($tag, $nick);
+	
+	if ($dcc->{'type'} eq 'CHAT') { # TODO : sometimes we should reconnect at once (when?)
+		print_dbg("Chat connection closed", 3);
+		$$fserv{'state'} = 0 if ($$fserv{'state'} < 6);
+		$$fserv{'cfile'} = -1; 
+		$$fserv{'lastaction'} = time();
+		@{$$fserv{'path'}} = ();
+		
+		return;
+	}
+
+	if ($dcc->{'type'} eq 'GET') {
+		my $fnumber = find_file($fserv, $dcc->{'arg'});
+		if ($fnumber == -1) {
+			print_dbg("We have not queued this file", 3);
+			return;
+		}
+
+		my $file = $$fserv{'files'}[$fnumber];
+		if ($$file{'state'} == 2) {
+			print_dbg("File completed, ignoring this event", 3);
+			return;
+		}
+		
+		print_dbg("Dcc get connection closed", 3);
+		$$fserv{'lastaction'} = time();
+
+		if ($dcc->{'size'} == $dcc->{'transfd'}) {
+			$$fserv{'files'}[$fnumber]{'state'} = 2;
+			$$fserv{'cfile'} = -1 if ($fnumber == $$fserv{'cfile'}); # possibile if we had send for the file from before script was loaded
+		} else {
+			if (!gets_exists($tag, $dcc->{'nick'}, $dcc->{'arg'})) {
+				$$fserv{'files'}[$fnumber]{'state'} = 0;
+				$$fserv{cfile} = -1 if ($fnumber == $$fserv{cfile}); # possibile if we had send for the file from before script was loaded
+			}
+		}
+
+		if (all_files_complete($tag, $nick)) { 
+			$$fserv{'state'} = 7;
+			print_dbg("Leeching complete for nick $nick\@$tag", 2);
+			return;
+		}
+
+		if (($$fserv{'state'} == 0 or $$fserv{'state'} == 6 or
+			$$fserv{'state'} == 8) and
+			(find_file_to_queue($tag, $nick) != -1)) { 
+			initiate_connection($tag, $nick);
+			return;
+		}
+		
+		return;
+	}
+}
+
+###
+# Text was send thorough dcc chat
+# $dcc->{arg} is CHAT, what else can it be if type == CHAT?
+sub sig_dcc_chat_message {
+	my ($dcc, $message) = @_;
+	print_dbg("Signal 'dcc chat message': type '$dcc->{type}' from '$dcc->{nick}' on '$dcc->{servertag}' arg '$dcc->{arg}' message '$message'", 3);
+	my $nick = lc $dcc->{'nick'};
+	my $tag = $dcc->{'servertag'};
+
+	return if ((not exists $serv{$tag})
+		or (not exists $serv{$tag}{$nick})
+		or ($dcc->{'type'} ne 'CHAT'));
+	
+	my $fserv = get_fserv($tag, $nick);
+	$$fserv{'lastaction'} = time();
+	if ($$fserv{'state'} == 3) { # waiting till end of welcome message
+		if ($$fserv{'type'} eq 'default') {
+			foreach (keys %servers) {
+				if ($message =~ /$_/i) {
+					$$fserv{'type'} = $servers{$_};
+					print_dbg("Recognized '$_' server", 2);
+					last;
+				}
+			}
+		}
+		if ($message =~ /$patterns{$$fserv{'type'}}{'EoWM'}/i) { 
+			print_dbg("Got End of Welcome Message", 3);
+			get_next_file($dcc->{'server'}, $nick);
+			return;
+		}
+		if ((exists $patterns{$$fserv{'type'}}{'press S'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'press S'}/i)) {
+			print_dbg("Pressing S", 3);
+			$dcc->{'server'}->command("MSG =$dcc->{nick} S");
+			return;
+		}
+		return;
+	}
+	if ($$fserv{'state'} == 4) { # changing dir
+		# TODO : should check $message for 'directory not existing' etc
+		print_dbg("Current state 4", 3);
+		if ($message =~ /$patterns{$$fserv{'type'}}{'dir changed'}/i) {
+			print_dbg("Directory successfully changed", 3);
+			get_next_file($dcc->{'server'}, $nick);
+		}
+		return;
+	}
+	if ($$fserv{'state'} == 5) { # sent "get file"
+		print_dbg("Current state 5", 3);
+		if ((exists $patterns{$$fserv{'type'}}{'file queued'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'file queued'}/i) or
+			(exists $patterns{$$fserv{'type'}}{'sending file'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'sending file'}/i)) { 
+			print_dbg("File successfully queued", 3);
+			if ($$fserv{'cfile'} != -1) {
+				$$fserv{'files'}[$$fserv{'cfile'}]{'state'} = 3;
+				$$fserv{'cfile'} = -1;
+			}
+			get_next_file($dcc->{'server'}, $nick);
+			return;
+		}
+		if ((exists $patterns{$$fserv{'type'}}{'my slots full'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'my slots full'}/i)) {
+			print_dbg("Can't queue file, my slots full", 3);
+			$$fserv{'cfile'} = -1;
+			$$fserv{'state'} = 8;
+			$dcc->{'server'}->command("MSG =$dcc->{nick} quit");
+			return;
+		}
+		if ((exists $patterns{$$fserv{'type'}}{'all slots full'} and
+			$message =~ /$patterns{$$fserv{'type'}}{'all slots full'}/i)) { 
+			print_dbg("Can't queue file, all slots full", 3);
+			$$fserv{'cfile'} = -1;
+			$$fserv{'state'} = 0;
+			$dcc->{'server'}->command("MSG =$dcc->{nick} quit");
+			return;
+		}
+		if ((exists $patterns{$$fserv{'type'}}{'already queued'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'already queued'}/i) or
+			(exists $patterns{$$fserv{'type'}}{'already sending'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'already sending'}/i)) { # the same as 'file queued'
+			print_dbg("File has been already queued/sending", 3);
+			if ($$fserv{'cfile'} != -1) {
+				$$fserv{'files'}[$$fserv{'cfile'}]{'state'} = 3; # TODO : can it be that the file is in transfer?
+				$$fserv{'cfile'} = -1;
+			}
+			get_next_file($dcc->{'server'}, $nick);
+			return;
+		}
+		if (exists $patterns{$$fserv{'type'}}{'sending file'} and 
+			$message =~ /$patterns{$$fserv{'type'}}{'sending file'}/i) { # the same as 'file queued'
+			print_dbg("File is being send at once", 3);
+			if ($$fserv{'cfile'} != -1) {
+				$$fserv{'files'}[$$fserv{'cfile'}]{'state'} = 3;
+				$$fserv{'cfile'} = -1;
+			}
+			get_next_file($dcc->{'server'}, $nick);
+			return;
+		}
+	}
+}
+
+###
+sub sig_no_such_nick {
+	my ($server, $args, $sender_nick, $sender_address) = @_;
+	my ($myself, $nick) = split(/ /, $args, 3);	
+	print_dbg("no such nick '$nick' on '$server->{tag}'", 3);
+	$nick = lc $nick;
+	my $tag = $server->{'tag'};
+	return if ((not exists $serv{$tag}) or (not exists $serv{$tag}{$nick})
+		or ($serv{$tag}{$nick}{'state'} != 1));
+	
+	$serv{$tag}{$nick}{'state'} = 0;
+	$serv{$tag}{$nick}{'lastaction'} = time();
+	print_dbg("Changed state to 0", 3);
+}
+
+###
+#
+sub sig_nicklist_changed {
+	my ($chan, $nick, $oldnick) = @_;
+	print_dbg("Nick change on $chan->{server}{tag} from $oldnick to $nick->{nick}", 3);
+	$nick = lc($nick->{'nick'});
+	my $tag = $chan->{'server'}{'tag'};
+	if ((exists $serv{$tag}) and
+		(exists $serv{$tag}{$oldnick})) {
+		print_dbg("Changing record for this nick", 3);
+		my $record = delete $serv{$tag}{$oldnick};
+		$serv{$tag}{$nick} = $record;
+	}
+}
+
+###
+# server tag, nick, filename
+sub gets_exists($$$) {
+	my ($tag, $nick, $file) = @_;
+	foreach (Irssi::Irc::dccs()) {
+		print_dbg("gets_exists: checking nick: '$_->{nick}', serv: '$_->{servertag}', type: '$_->{type}', arg: '$_->{arg}'", 4);
+		return 1 if ($_->{'type'} eq 'GET' and $tag eq $_->{servertag}
+			and $nick eq $_->{nick} and $file eq $_->{arg});
+	}
+	print_dbg("gets_exists: FOUND NO GETS", 3);
+	return 0;
+}
+
+### 
+# Tries to get next file, we must be connected to fserv
+# server, nick
+sub get_next_file($$) {
+	my ($server, $nick) = @_;
+	my $fserv = get_fserv($server->{tag}, $nick);
+	my $fnumber = find_file_to_queue($server->{tag}, $nick);
+	if ($fnumber == -1) {
+		if (all_files_complete($server->{tag}, $nick)) {
+			$$fserv{state} = 7;
+			print_dbg("Leeching complete for nick $nick\@$server->{tag}", 2);
+			$server->command("MSG =$nick quit");
+			return;
+		}
+		# TODO : should wait a bit and see if the send comes
+		$$fserv{state} = 6;
+		print_dbg("Queued all files possibile", 3);
+		$server->command("MSG =$nick quit");
+		return;
+	}
+	
+	print_dbg("Will try to get file number $fnumber", 3) 	
+		if ($$fserv{state} != 4);
+	
+	if (change_dir($server->{tag}, $nick, $fnumber)) {
+		print_dbg("We're in the dir where the file is", 4);
+		
+		$$fserv{state} = 5;
+		my @arr = split ('/', $$fserv{files}[$fnumber]{name});
+		$server->command("MSG =$nick get "
+			.(pop @arr) );
+		
+		return;
+	}
+	return;		
+}
+
+###
+# server tag, nick, file number
+# Tries to change current directory on fserve to the one where the file is
+# If it's in the dir returns true, if not yet returs false
+sub change_dir($$$) {
+	my ($tag, $nick, $fileno) = @_;
+	my $fserv = get_fserv($tag, $nick);
+	my $file = $$fserv{files}[$fileno];
+	
+	my $server = Irssi::server_find_tag($tag);
+	if (!$server) {
+		# TODO : must do sth more in this case
+		print_dbg("Could not find server '$tag'", 3);
+		return;
+	}
+	
+	$$fserv{state} = 4;
+	
+	# simple case, file in root and we're in root
+	return 1 if (@{$$fserv{path}} == 0 and $$file{depth} == 0); 
+
+	# we are deeper than the file, we must go up for sure.
+	if ($$file{depth} < @{$$fserv{path}}) { 
+		print_dbg("change_dir: #5", 4);
+		pop @{$$fserv{path}};
+		$$fserv{lastaction} = time();
+		$server->command("MSG =$nick cd ..");
+		return 0;
+	}
+
+	my @fpath = split ('/', $$file{name}); pop @fpath; # has all dirs
+	print_dbg("File we want to traverse is '@fpath'", 4);
+
+	# we're in root dir, must cd to first dir for sure
+	if (@{$$fserv{path}} == 0) { 
+		print_dbg("change_dir: #10", 4);
+		push (@{$$fserv{path}}, $fpath[0]);
+		$$fserv{lastaction} = time();
+		$server->command("MSG =$nick cd $fpath[0]");
+		return 0;
+	}
+
+	my @path = @{$$fserv{path}}; # just to have thing easier
+	while (@path) {
+		print_dbg("change_dir: comparing '$fpath[0]' and '$path[0]'", 4);
+		last if ($fpath[0] ne $path[0]); # go on as long as dirs are equal
+		shift @fpath; shift @path;
+		print_dbg("Current path='@path', fpath='@fpath'", 4);
+	}
+	if (@path == 0) { # so far we are on good path
+		print_dbg("change_dir: #15", 4);
+		return 1 if (@fpath == 0); # yup! no more dirs!
+		
+		print_dbg("change_dir: #20", 4);
+		# must go deeper
+		push (@{$$fserv{path}}, $fpath[0]);
+		print_dbg("Going deeper, path='@path', fpath='@fpath'", 4);
+		$$fserv{lastaction} = time();
+		$server->command("MSG =$nick cd $fpath[0]");
+		return 0;
+	}
+	
+	print_dbg("change_dir: #25", 4);
+	# dir is different - must go up
+	pop @{$$fserv{path}};
+	$$fserv{lastaction} = time();
+	$server->command("MSG =$nick cd ..");
+}
+
+###
+# Returns -1 if can't find it 
+# server tag, nick
+sub find_file_to_queue($$) {
+	my ($tag, $nick) = @_;
+	my $fserv = get_fserv($tag, $nick);
+	
+	return $$fserv{cfile} if ($$fserv{cfile} >= 0);
+	
+	my $fnumber = -1;
+	foreach my $file (@{$$fserv{files}}) {
+		$fnumber++;
+		next unless ($$file{'state'} == 0);
+		$$fserv{cfile} = $fnumber;
+		return $fnumber;
+	}
+	return -1;
+}
+
+###
+# server tag, nick
+sub all_files_complete($$) {
+	my ($tag, $nick) = @_;
+	my $fserv = get_fserv($tag, $nick);
+	foreach (@{$$fserv{files}}) {
+		return 0 if ($$_{'state'} != 2); # FIXME : probably will have to be fixed when implemented missing files etc
+	}
+	return 1;
+}
+
+###
+# server tag, nick
+sub get_fserv($$) {
+	my ($tag, $nick) = @_;
+	return \%{$serv{$tag}{$nick}};
+}
+
+###
+# server tag, nick, trigger
+sub add_trigger ($$$) {
+	my ($tag, $nick, $trigger) = @_;	
+	$nick = lc $nick;
+	my $fserv = get_fserv($tag,$nick);
+	if (not exists $$fserv{trigger}) {
+		@{$$fserv{path}} = ();
+		$$fserv{state} = 0;
+		$$fserv{type} = 'default';
+		$$fserv{cfile} = -1;
+		$$fserv{lastaction} = 0; # when was last action performed
+		@{$$fserv{files}} = ();
+	}
+	$$fserv{trigger} = $trigger;
+}
+
+###
+# server tag, nick, file
+sub add_file ($$$) {
+	my ($tag, $nick, $file) = @_;	
+	$nick = lc $nick;
+	my $fserv = get_fserv($tag,$nick);
+	$file =~ s{^/}{}; 
+	$file =~ s{/$}{};  
+	my $depth = ($file =~ tr|/||); # counting number of slashes ...
+	push (@{$$fserv{files}}, 
+		{ 'name' => $file, 'state' => 0, 'depth' => $depth,
+		'size' => -1});	
+}
+
+###
+# server tag, nick
+sub initiate_connection($$) {
+	my ($tag, $nick) = @_;
+	my $server = Irssi::server_find_tag($tag);
+	if (!$server) {
+		print_dbg("Could not find server '$tag'", 3);
+		return;
+	}
+	my $fserv = get_fserv($tag,$nick);
+	print_dbg("Initiating connection with $nick", 3);
+	$$fserv{state} = 1;
+	$$fserv{lastaction} = time();
+	$server->command("CTCP $nick $$fserv{trigger}");
+}
+
+###
+# server tag, nick
+sub execute_next_command ($$) {
+	my ($tag, $nick) = @_;
+	
+	my $fserv = get_fserv($tag,$nick);
+
+	if ($$fserv{'state'} == 0 or $$fserv{'state'} == 6 or $$fserv{'state'} == 8) {
+		initiate_connection($tag, $nick);
+	}
+
+	# if it's for example 'changing dir' don't wait for response but
+	# execute next command (i.e. next cd or get)
+}
+
+###
+#
+sub time4check {
+	my ($tag, $nick, $fserv);
+	my $time = time();
+	print_dbg("Time 4 check", 3);
+	my $recheck = Irssi::settings_get_int('fleech_recheck_interval');
+	my $conn_timeout = Irssi::settings_get_int('fleech_max_connecting_time');
+	foreach $tag (keys %serv) {
+		while (($nick, $fserv) = each %{$serv{$tag}}) { 
+			next if ($$fserv{'lastaction'} == 0);
+			$$fserv{'state'} = 0 
+				if (($$fserv{'state'} == 1 or $$fserv{'state'} == 2) 
+				and	($time > $$fserv{'lastaction'} + $conn_timeout));
+			next if (($$fserv{'state'} != 0 and $$fserv{'state'} != 6 
+				and $$fserv{'state'} != 8) or
+				($time < $$fserv{'lastaction'} + $recheck) or
+				(find_file_to_queue($tag, $nick) == -1));
+				
+			print_dbg ("Checking '$nick'\@'$tag'", 4);
+			execute_next_command($tag, $nick);
+		}
+	}
+}
+
+###
+# text[, level]
+sub print_dbg {
+	my ($txt, $mlvl) = @_;
+	my $lvl = Irssi::settings_get_int('fleech_verbose_level');
+if ($dbglog) {
+	if (not open (DBGLOG, ">> $dbglog")) {
+		$dbglog = "";
+	} else {
+	#	print_dbg("fleech.pl $VERSION loaded");		
+	print DBGLOG time() . " $txt\n" if ($dbglog);
+	}
+} 
+	Irssi::print("$txt") if ($mlvl < $lvl);
+}
+
+###
+# server tag, nick
+sub list_nick ($$) {
+	my ($s, $nick) = @_;
+	my $fserv = get_fserv($s, $nick);
+	print_dbg("Nick: '$nick'");
+	print_dbg("  type   : '$$fserv{type}'");
+	print_dbg("  trigger: '$$fserv{trigger}'");
+	print_dbg("  state  : '$$fserv{state}' "
+		."($states{$$fserv{state}})");
+	print_dbg("  cfile  : '$$fserv{cfile}'", 2);
+	print_dbg("  path   : '@{$$fserv{path}}'", 2);
+	print_dbg("  lastaction: '$$fserv{lastaction}'", 2);
+	print_dbg("  files  :");
+	my $fn = 0;
+	foreach my $file (@{$$fserv{files}}) {
+		print_dbg("    $fn)", 1); $fn++;
+		print_dbg("    name : '$$file{name}'");
+		print_dbg("    depth: '$$file{depth}'", 2);
+		print_dbg("    size : '$$file{size}'", 1);
+		print_dbg("    state: '$$file{state}' ($fstates{$$file{state}})");
+	}
+}
+#############################
+# take a string and expand it to an array of strings by substituting {00x,y} with 00x,00x+1,..,y
+# \{ is substituted with { and \\ with \ so \{->{ and \\{->\{
+sub expand_str($){
+    my ($str)=@_;
+    #print Dumper($str);
+    $str=~s/\%/\%\%/g;
+    my $from=0;
+    my $to=0;
+    my $zeros='';
+    if($str=~s/(^|[^\\])((\\\\)*)(\{(\d+),(\d+)\})/$1$2\%s/){
+ #print "matched\n";
+ $from=$5;
+ $to=$6;
+ $zeros=$from;
+ if($from=~/^0/){
+     $zeros='0'.length($from);
+ }else{
+     $zeros='';
+ }
+    }
+    $str=~s/\\\{/\{/g;
+    $str=~s/\\\\/\\/g;
+    #print Dumper($str);#" $str $from,$to\n";
+    my $toret=[];
+    for(my $i=$from;$i<=$to;$i++){
+ push @$toret,sprintf($str,sprintf('%'.$zeros.'d',$i));
+    }
+    return $toret;
+}
+
+###
+# /fleech add nick trigger /ctcp nick dupa
+# /fleech add nick file /dir/file
+sub cmd_fleech {
+	my ($data, $server, $channel) = @_;
+
+	my ($command, $nick, $rest) = split (" ", $data, 3);
+	$_ = $command;
+	if (/^list/) {
+		foreach my $s (keys %serv) {
+			print_dbg("Server '$s'");
+			foreach my $nick (keys %{$serv{$s}}) {
+				list_nick($s, $nick);
+			}
+		}
+		return;
+	}
+	if (/^add/) {
+		my ($type, $command) = split (" ", $rest, 2);	
+		print_dbg("Adding type '$type' for '$nick' on '$server->{tag}': '$command'", 4);
+		if ($type eq 'trigger') {
+			add_trigger($server->{tag}, $nick, $command);
+			return;
+		}
+		if ($type eq 'file') {
+			if (not exists $serv{$server->{'tag'}} or 
+				not exists $serv{$server->{'tag'}}{lc($nick)}) {
+				print_dbg("No such server or nick record");
+				return;
+			}
+			add_file($server->{tag}, $nick, $command);
+   return;
+  }
+  if ($type eq 'rfile') {
+   if (not exists $serv{$server->{'tag'}} or 
+    not exists $serv{$server->{'tag'}}{lc($nick)}) {
+    print_dbg("No such server or nick record");
+    return;
+   }
+   my $papasv_list=expand_str($command);
+   my $papasv_item;
+   foreach $papasv_item (@$papasv_list){
+    #Irssi::print($papasv_item);
+    add_file($server->{tag}, $nick, $papasv_item);
+   }
+			return;
+		}
+		print_dbg("Unknown type '$type'");
+		return;
+	}
+	if (/^del/) {
+	}
+	if (/^set/) { 
+		# set nick field value
+		# or in case of field == file:
+		# set nick file number field value
+		# or in case of field == nick:
+		# set nick nick newnick 
+		# For example:
+		# /fleech set somenick type sysreset
+		# /fleech set somenick file 2 state complete
+		# /fleech set somenick nick newnick
+		my ($field, $rest) = split (" ", $rest, 2);
+		if (not exists $serv{$server->{'tag'}} or 
+			not exists $serv{$server->{'tag'}}{lc($nick)}) {
+			print_dbg("No such server or nick record");
+			return;
+		}
+		if ($field eq 'files') {
+			my ($fn, $field, $rest) = split (" ", $rest, 3);
+			$serv{$server->{'tag'}}{lc($nick)}{'files'}[$fn]{$field} = $rest;
+			return;
+		} elsif ($field eq 'nick') {
+			if ((exists $serv{$server->{'tag'}}) and
+				(exists $serv{$server->{'tag'}}{lc($nick)})) {
+				my $record = delete $serv{$server->{'tag'}}{lc($nick)};
+				$serv{$server->{'tag'}}{lc($rest)} = $record;
+				return;
+			}
+			Irssi::print("No such server or nick");
+			return;
+		}	
+		$serv{$server->{'tag'}}{lc($nick)}{$field} = $rest;
+		return; 
+	}
+	if (/^go/) {
+		foreach my $s (keys %serv) {
+			foreach my $n (keys %{$serv{$s}}) {
+				if ($serv{$s}{$n}{state} == 0) {
+					execute_next_command($s, $n);
+				}
+			}
+		}
+		return;
+	}
+	if (/^clrc/) {
+		my $fc = 0;
+		foreach my $s (keys %serv) {
+			foreach my $n (keys %{$serv{$s}}) {
+				my $f = scalar @{$serv{$s}{$n}{'files'}};
+				while (--$f >= 0) {
+					if ($serv{$s}{$n}{'files'}[$f]{'state'} == 2) {
+						print_dbg("Removing from $n '"
+							."$serv{$s}{$n}{files}[$f]{name}'", 1);
+						splice @{$serv{$s}{$n}{'files'}}, $f, 1;
+						$fc++;
+					}
+				}
+				@{$serv{$s}{$n}{'files'}} = () if (not @{$serv{$s}{$n}{'files'}});
+			}
+		}
+		print_dbg("Removed $fc file(s)") if ($fc);
+		return;
+	}
+
+}
+
+# FIXME: which one of signal_add{,_first,_last} use?
+Irssi::signal_add_last('nicklist changed', 'sig_nicklist_changed');
+Irssi::signal_add_last('dcc request', 'sig_dcc_request');
+Irssi::signal_add_last('dcc connected', 'sig_dcc_connected');
+Irssi::signal_add_last('dcc destroyed', 'sig_dcc_destroyed');
+Irssi::signal_add_last('dcc chat message', 'sig_dcc_chat_message');
+Irssi::signal_add("event 401", "sig_no_such_nick");
+
+ 
+Irssi::command_bind('fleech', 'cmd_fleech');		
+
+Irssi::settings_add_int($IRSSI{'name'}, 'fleech_verbose_level', 1); # 0 - no messages at all, 1 - std messages, 2 - more verbose, 3 - even more verbose, 4 - debug messages
+Irssi::settings_add_int($IRSSI{'name'}, 'fleech_recheck_interval', 60*30); # check if can queue more files every this seconds 
+Irssi::settings_add_int($IRSSI{'name'}, 'fleech_max_connecting_time', 60*5); # if fserv in state 1 or 2 more than this seconds, reset it to state 0
+Irssi::settings_add_int($IRSSI{'name'}, 'fleech_timeout', 60); # functions that checks timeouts etc is called every this seconds
+
+my $ttag = Irssi::timeout_add(1000*Irssi::settings_get_int('fleech_timeout'), "time4check", undef);
+	
+
+
+# vim:ts=4:noexpandtab
diff --git a/scripts/follow.pl b/scripts/follow.pl
new file mode 100644
index 0000000..74274e4
--- /dev/null
+++ b/scripts/follow.pl
@@ -0,0 +1,72 @@
+# This is useful with irssiproxy, to monitor irc on a separate terminal,
+# or if you just want to sit back and watch conversations. It just
+# lets Irssi go to the active window whenever there's any activity.
+# 
+# It was made to demonstrate Irssi's new Perl capabilities...
+# 
+# Juerd <juerd@juerd.nl>
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind active_win);
+$VERSION = '1.10';
+%IRSSI = (
+    authors     => 'Juerd',
+    contact     => 'juerd@juerd.nl',
+    name        => 'Follower',
+    description => 'Automatically switch to active windows',
+    license     => 'Public Domain',
+    url         => 'http://juerd.nl/irssi/',
+    changed     => 'Thu Mar 19 11:00 CET 2002',
+);
+
+use Irssi 20011211 qw(signal_add command);
+
+sub sig_own {
+    my ($server, $msg, $target, $orig_target) = @_;
+    $server->print($target, 'Chatting with follow.pl loaded is very foolish.');
+}
+
+signal_add {
+	    'window hilight'         => sub { command 'window goto active' },
+	    'message own_public'     => \&sig_own,
+	    'message own_private'    => \&sig_own,
+	    'message irc own_action' => \&sig_own
+};
+
+
+
+=comment
+
+    >> use Irssi 20011211 qw(signal_add command);
+    
+    Loads the Irssi module, requiring at least version 20011211 and telling
+    it to export signal_add() and command() into our package.
+    This kind of version checking came available in the 20011208-snapshot.
+    Having te Irssi:: subs exported came available in the 20011211-snapshot.
+    
+    >> sub sig_own
+    
+    Warns the user: chatting while having windows switch all the time is
+    foolish, because your text gets sent to whatever window has the focus
+    when you press enter.
+    
+    >> signal_add
+    
+    This was exported into our package, so we can use signal_add() without the
+    "Irssi::" prefix. Since the 20011207 snapshot, you can add multiple signals
+    using a single add_signal(). If you want to do so, use a hash reference
+    (either { foo => bar, foo2 => bar2 } or \%hash).
+    
+    >> sub { ... }
+    >> \&subname
+    
+    These are references to subs(code). The first one is a reference to an
+    anonymous sub, the second one refers to a named one. Anonymous code
+    references allow for easy placement of oneliners :)
+    Irssi understands codereferences since the 20011207 snapshot.
+    Using references is better than having a string with the function name,
+    imho.
+
+=cut
diff --git a/scripts/foo.pl b/scripts/foo.pl
new file mode 100644
index 0000000..b80ecfa
--- /dev/null
+++ b/scripts/foo.pl
@@ -0,0 +1,75 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind signal_add signal_emit signal_stop);
+
+$VERSION = '3.00';
+%IRSSI = (
+    authors	=> 'Juerd, Shiar',
+    contact	=> 'juerd@juerd.nl, shiar@shiar.org',
+    name	=> 'UeberRot encryption',
+    description	=> 'Rot n+i encryption and decryption',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/site.plp/irssi',
+    changed	=> 'Tue Jan 21 01:40 CET 2003',
+);
+
+my $char1 = "\xC0-\xCF\xD2-\xD6\xD8-\xDD";
+my $char2 = "\xE0-\xF6\xF8-\xFF";
+
+sub rot {
+    my ($dir, $rotABC, $rot123, $rotshift, $msg) = @_;
+    my $i = 0;
+    for (0 .. length $msg) {
+	my $char = \substr $msg, $_, 1;
+	$i += $rotshift;
+	$$char =~ tr/a-zA-Z/b-zaB-ZA/ for 1..abs $dir *26 - ($rotABC + $i) % 26;
+	$$char =~ tr/0-9/1-90/        for 1..abs $dir *10 - ($rot123 + $i) % 10;
+    }
+    return $msg;
+}
+
+sub sig_message {
+    my $signal = shift;
+    my $msg = \$_[1];
+    return unless $$msg =~ s/^\cO(\cB+)\cO(\cB+)\cO(\cO*)//;
+    my $orig = $$msg;
+    $$msg = "\cB" . rot 1, length $1, length $2, length $3, $$msg;
+    $$msg =~ s{\c_\c_\cO([a-zA-Z])}<
+	my $char = $1;
+	eval qq{
+	    \$char =~ tr/A-Z/$char1/;
+	    \$char =~ tr/a-z/$char2/;
+	};
+	$char;
+    >ego;
+    signal_stop;
+    signal_emit($signal, $_[0], $orig, @_[2..$#_]);
+    signal_emit($signal, @_);
+}
+
+command_bind rot => sub {
+    my ($data, $server, $window) = @_;
+    $data =~ s/([$char1$char2])/\c_\c_\cO$1/og;
+    eval qq{
+        \$data =~ tr/$char1/A-Z/;
+        \$data =~ tr/$char2/a-z/;
+    };
+    my $rotABC   = 1 +     int rand 13;
+    my $rot123   = 1 + 2 * int rand 4;
+    my $rotshift = 1 +     int rand 10;
+    $window->command(
+	sprintf "say \cO%s\cO%s\cO%s%s",
+	"\cB" x $rotABC,
+	"\cB" x $rot123,
+        "\cO" x $rotshift,
+	rot 0, $rotABC, $rot123, $rotshift, $data
+    );
+};
+
+signal_add {
+    'message private'     => sub { sig_message 'message private'     => @_ },
+    'message public'      => sub { sig_message 'message public'      => @_ },
+    'message own_private' => sub { sig_message 'message own_private' => @_ },
+    'message own_public'  => sub { sig_message 'message own_public'  => @_ },
+};
diff --git a/scripts/foreach_user.pl b/scripts/foreach_user.pl
new file mode 100644
index 0000000..23a1591
--- /dev/null
+++ b/scripts/foreach_user.pl
@@ -0,0 +1,59 @@
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0";
+%IRSSI = (
+      authors     => "David Leadbeater",
+      contact     => "dgl\@dgl.cx",
+      url         => "http://irssi.dgl.cx/",
+      license     => "GNU GPLv2 or later", 
+      name        => "foreach user",
+      description => "Extends the /foreach command to have /foreach user 
+        (users in a channel).
+        Syntax: /foreach user [hostmask] command.",
+);
+
+# Examples:
+# /foreach user /whois $0
+# /foreach user *!eviluser@* /k $0 evil!  (consider kicks.pl ;) )
+
+Irssi::command_bind('foreach user', sub {
+   my($command) = @_;
+   return unless length $command;
+
+   my $mask = '*!*@*';
+   # see if it begins with a mask (kind of assumes cmdchars is /).
+   if($command !~ m!^/! && $command =~ /^\S+[!@]/) { 
+      ($mask,$command) = split / /, $command, 2;
+      # make sure the mask is okay.
+      $mask .= '@*' if $mask !~ /\@/;
+      $mask = "*!$mask" if $mask !~ /!/;
+   }
+
+   my $channel = ref Irssi::active_win ? Irssi::active_win->{active} : '';
+   return unless ref $channel;
+
+   for my $nick($channel->nicks) {
+      next unless ref $nick;
+      next unless $channel->{server}->mask_match_address($mask, $nick->{nick},
+         $nick->{host} ? $nick->{host} : '');
+      
+      # the backtracking is only so $$0 is escaped (don't ask me why...)
+      (my $tmpcommand = $command) =~ s/(?<!\$)\$(\d)/
+         if($1 == 0) {
+            $nick->{nick}
+         }elsif($1 == 1) {
+            $nick->{host}
+         }elsif($1 == 2) {
+            (split('@',$nick->{host}))[0];
+         }elsif($1 == 3) {
+            (split('@',$nick->{host}))[1];
+         }elsif($1 == 4) {
+            $nick->{realname}
+         }
+      /eg;
+      $tmpcommand =~ s/\$\$(\d)/\$$1/g;
+      $channel->command($tmpcommand);
+   }
+} );
+
diff --git a/scripts/format_identify.pl b/scripts/format_identify.pl
new file mode 100755
index 0000000..0b19c44
--- /dev/null
+++ b/scripts/format_identify.pl
@@ -0,0 +1,440 @@
+
+#!/usr/bin/perl
+# ^ to make vim know this is a perl script so I get syntax hilighting.
+
+#####################################################################
+### WARNING: This version was restored from google cache          ###
+###           by Wouter Coekaerts <coekie@irssi.org>.             ###
+###          Syntax might not be exactly the same as the original ###
+#####################################################################
+
+# $Id$
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi qw(signal_stop signal_emit signal_remove
+             signal_add signal_add_first
+             settings_add_str settings_get_str settings_add_bool
+	     settings_get_bool
+             print );
+$VERSION = '1.5-dev-coekie';
+%IRSSI = (
+  authors => 'ResDev (Ben Reser)',
+  contact => 'ben@reser.org',
+  name  => 'format_identify',
+  description => 'Formats msgs and notices when the identify-msg and/or ' .
+                 'identify-ctcp capability is available.',
+  license => 'GPL2',
+  url   => 'http://ben.reser.org/irssi/',
+);
+
+# Additional credit to ch for his wash-imsg script which was a starting place
+# for this; coekie for pointing me towards the nickcolor script and its
+# technique for doing this; Timo Sirainen and Ian Peters for writing nickcolor.
+
+# This script takes advantage of the identify-msg and identify-ctcp
+# capabilities of the new dancer ircd.  The identify-msg capability causes the
+# first character of a msg or notice to be set to a + if the user is identified
+# with nickserve and a - if not.  identify-ctcp does similar for CTCP messages.
+# This script removes the tagging and then allows you to configure a
+# modification to the formating of the nickname.
+
+# Installation instructions:  Drop this in ~/.irssi/scripts and run
+# /script load format_identify.  To make it autorun on startup place it in
+# ~/.irssi/scripts/autorun.  This script will detect if the IRC server has
+# the identify-msg and identify-ctcp capability.  If it is available it will
+# use it.  Messages on servers without support for these capabilities will
+# be tagged as unknown.  
+# 
+# While you can unload this script.  Any servers that you are connected to
+# with identify-msg/identify-ctcp turned on will continue to send data
+# encoded that way.  This means messages and notices will have a + or -
+# appended to the front of them.  CTCPs will be broken.  Unfortunately, there
+# is no way to turn off a capability once it is turned on.  You will have to
+# disconnect and reconnect to these servers.  This script will warn you when
+# unloading the script of this situation.
+
+#
+# Configuration:  You can control the formating of the nickname with the
+# format_identified_nick, format_unidentified_nick, and format_unknown_nick
+# variables.  The default is to do nothing to identified nicks and unknown
+# nicks.  while unidentified nicks have a ~ to the beginning of nick.  An
+# unknown nick means anytime a message or notice doesn't start with a + or -,
+# which will occur when identify-msg isn't enabled.  The format_unknown_nick
+# can be really handy to alert you that you don't have identify-msg or
+# identify-ctcp set, but is set by default to do nothing since most servers do
+# not have identify-msg yet.  In these variables $0 stands for the nick.  You
+# can use the standard formating codes or just text in it.  See formats.txt for
+# more information on the codes you can use.  Warning about colors.  Using
+# colors in this formating will likely break other formating scripts and
+# features, in particular the hilight feature of irssi or vice versa.  Remember
+# that %n has a different meaning here as explamined in the default.theme file
+# that comes with irssi.
+#
+# Some examples:
+# 
+# Make unidentified nicks have a ? after the nick: /set
+# format_unidentified_nick $0?
+#
+# Make unidentified nicks red and identified nicks green: /set
+# format_identified_nick %G$0 /set format_unidentified_nick %R$0 Note that the
+# above will not do the tagging if a message gets hilighted.  Since a hilight
+# (line or nick) will override the colors.
+#
+# So I recommend doing something like this: /set format_identified_nick %G$0
+# /set format_unidentified_nick %R~$0
+# 
+# Make unidentified nicks be unmodified but add a * before identified nicks:
+# /set format_identified_nick *$0 /set format_unidentified_nick $0
+#
+# This script works by modifying the formats irssi uses to display various
+# things.  Therefore it is highly recommended that you do not change any of the
+# following format variables except through this script: pubmsg pubmsg_channel
+# msg_private msg_private_query pubmsg_hilight pubmsg_hilight_channel pubmsg_me
+# pubmsg_me_channel action_private action_private_query action_public
+# action_public_channel ctcp_requested ctcp_requested_unknown notice_public
+# notice_private ctcp_reply ctcp_reply_channel ctcp_ping_reply
+
+#
+# To change these formats you need to set the variable (with the set command
+# not the format command as usual) of the same name as the format but with
+# _identify on the end.  This format has an additional special purpose
+# "abstract" that is only used by this script and is parsed and replaced before
+# setting the format and giving it to irssi.  It is called format_identify.
+# Any format you use with this script should have a {format_identify $0} in it
+# to replace where the $0 usually is in the format.  Sometimes it will be $1
+# for the nick in the format, in which case you should replace the $1 with
+# {format_identify $1}.  For more examples take a look at the defaults at the
+# bottom of this script.
+#
+#
+# If you wish to disable the module from applying a change to the nickname in a
+# particular place the best way to do it is to simply remove the
+# {format_identify $0} from the format that applies.  E.G. to disable the
+# format change for a CTCP reply one would do: /set ctcp_reply_identify CTCP
+# {hilight $0} reply from {nick $1}: $2
+#
+
+# TODO
+# * Implement DCC formats, which means figuring out which ones are appropriate
+# to try and format.  
+# * Allow different formating on the nick for different types of messages.  I'm
+# not sure if this is useful...
+# 
+# It should not be necessary to modify anything in this script.  Everything
+# should be able to be modified via the variables it exports as described
+# above.
+# 
+
+my(@format_identify_message_formats) = qw(pubmsg pubmsg_channel msg_private
+                                          msg_private_query pubmsg_hilight
+                                          pubmsg_hilight_channel action_private
+                                          action_private_query action_public
+                                          action_public_channel ctcp_requested
+                                          ctcp_requested_unknown pubmsg_me
+                                          pubmsg_me_channel
+                                         );
+
+my(@format_identify_notice_formats) = qw(notice_public notice_private ctcp_reply
+                                         ctcp_reply_channel ctcp_ping_reply);
+
+
+my %servers;
+
+# Replace the {format_identify $0} place holder with
+# whatever the user has setup for their nick formats...
+sub replace_format_identify {
+	my ($format, $entry) = @_;
+
+	my ($nickarg) = $format =~ /{\s*format_identify\s+?([^\s]+?)\s*}/;
+	$entry =~ s/\$0/$nickarg/;
+	$format =~ s/{\s*format_identify\s+?[^\s]+?\s*}/$entry/g;
+	return $format;
+}
+
+# rewrite the message now that we've updated the formats
+sub format_identify_rewrite {
+	my $signal = shift;
+	my $proc = shift;
+
+	signal_stop();
+	signal_remove($signal,$proc);
+	signal_emit($signal, @_);
+	signal_add($signal,$proc);
+}
+
+  
+# Issue the format update after generating the new format.
+sub update_format_identify {
+	my ($server,$entry,$nick) = @_;
+
+	my $identify_format = settings_get_str("${entry}_identify");
+	my $replaced_format = replace_format_identify($identify_format,$nick);
+	$server->command("^format $entry " . $replaced_format);
+}
+
+my %saved_colors;
+my %session_colors = {};
+my @colors = qw/2 3 4 5 6 7 9 10 11 12 13/;
+
+sub simple_hash {
+	my ($string) = @_;
+	chomp $string;
+	my @chars = split //, $string;
+	my $counter;
+
+	foreach my $char (@chars) {
+		$counter += ord $char;
+	}
+
+	$counter = $colors[($counter % @colors)];
+	return $counter;
+}
+
+sub colourise {
+	return if(!settings_get_bool('format_colour'));
+	my ($nick) = @_;
+	my $color = $saved_colors{$nick};
+	if (!$color) {
+		$color = $session_colors{$nick};
+	}
+	if (!$color) {
+		$color = simple_hash $nick;
+		$session_colors{$nick} = $color;
+	}
+	$color = "0".$color if ($color < 10);
+	return chr(3).$color;
+}
+
+
+# catches the signal for a message removes the + or -, updates the 
+# formats and then resends the message event.
+sub format_identify_message {
+	my ($server, $data, $nick, $address) = @_;
+	my ($channel, $msg) = split(/ :/, $data,2);
+
+	if (!$servers{$server->{'real_address'}}->{'IDENTIFY-CTCP'} &&
+		!$servers{$server->{'real_address'}}->{'IDENTIFY-MSG'}) {
+		my $unknown_nick = settings_get_str('format_unknown_nick');
+		foreach my $format (@format_identify_message_formats) {
+			update_format_identify($server,$format,colourise($nick).$unknown_nick);
+		}
+	} elsif(($msg =~ /^\+(.*)/)){
+		my $newdata = "$channel :$1";
+		my $identified_nick = settings_get_str('format_identified_nick');
+		foreach my $format (@format_identify_message_formats) {
+			update_format_identify($server,$format,colourise($nick).$identified_nick);
+		}
+		format_identify_rewrite('event privmsg','format_identify_message', $server,$newdata,$nick,$address);
+	} elsif(($msg =~ /^-(.*)/)){
+		my $newdata = "$channel :$1";
+		my $unidentified_nick = settings_get_str('format_unidentified_nick');
+		foreach my $format (@format_identify_message_formats) {
+			update_format_identify($server,$format,colourise($nick).$unidentified_nick);
+		} 
+		format_identify_rewrite('event privmsg','format_identify_message', $server,$newdata,$nick,$address);
+	} else {
+		my $unknown_nick = settings_get_str('format_unknown_nick');
+		foreach my $format (@format_identify_message_formats) {
+			update_format_identify($server,$format,colourise($nick).$unknown_nick);
+		}
+	}
+}
+
+# catches the signal for a notice removes the + or -, updates the
+# formats and resends the notice event.
+sub format_identify_notice {
+	my ($server, $data, $nick, $address) = @_;
+	my ($channel, $msg) = split(/ :/, $data,2);
+
+	if (!$servers{$server->{'real_address'}}->{'IDENTIFY-CTCP'} &&
+		!$servers{$server->{'real_address'}}->{'IDENTIFY-MSG'}) {
+		my $unknown_nick = settings_get_str('format_unknown_nick');
+		foreach my $format (@format_identify_notice_formats) {
+			update_format_identify($server,$format,colourise($nick).$unknown_nick);
+		}
+	} elsif(($msg =~ /^\+(.*)/)){
+		my $newdata = "$channel :$1";
+		my $identified_nick = settings_get_str('format_identified_nick');
+		foreach my $format (@format_identify_notice_formats) {
+			update_format_identify($server,$format,colourise($nick).$identified_nick);
+		} 
+		format_identify_rewrite('event notice','format_identify_notice', $server,$newdata,$nick,$address);
+	} elsif(($msg =~ /^-(.*)/)){
+		my $newdata = "$channel :$1";
+		my $unidentified_nick = settings_get_str('format_unidentified_nick');
+		foreach my $format (@format_identify_notice_formats) {
+			update_format_identify($server,$format,colourise($nick).$unidentified_nick);
+		}
+		format_identify_rewrite('event notice','format_identify_notice', $server,$newdata,$nick,$address);
+	} else {
+		my $unknown_nick = settings_get_str('format_unknown_nick');
+		foreach my $format (@format_identify_notice_formats) {
+			update_format_identify($server,$format,colourise($nick).$unknown_nick);
+		}
+	}
+}
+
+# Handle CTCP messages.  Note that messages tagged with identify-ctcp will
+# not be seen as CTCPs and will go through event privmsg first.  This script
+# will generate new events and send them on through to here.  However CTCPs
+# that are not tagged at all will go here first.  So we need to test here
+# to see if the message is from a server that does not support identify-ctcp
+# and update the format accordingly.
+sub format_identify_ctcp_msg {
+	my ($server) = @_;
+
+	if (!$servers{$server->{'real_address'}}->{'IDENTIFY-CTCP'}) {
+		my $unknown_nick = settings_get_str('format_unknown_nick');
+		foreach my $format (@format_identify_message_formats) {
+			update_format_identify($server,$format,$unknown_nick);
+		}
+	}
+}
+
+# Handle CTCP replies.  Note that messages tagged with identify-ctcp will
+# not be seen as CTCPs and will go through event notice first.  This script
+# will generate new events and send them on through to here.  However CTCPs
+# that are not tagged at all will go here first.  So we need to test here
+# to see if the message is from a server that does not support identify-ctcp
+# and update the format accordingly.
+sub format_identify_ctcp_reply {
+	my ($server) = @_;
+
+	if (!$servers{$server->{'real_address'}}->{'IDENTIFY-CTCP'}) {
+		my $unknown_nick = settings_get_str('format_unknown_nick');
+		foreach my $format (@format_identify_notice_formats) {
+			update_format_identify($server,$format,$unknown_nick);
+		}
+	}
+}
+
+# If we're getting unloaded reset the formats back to their defaults
+# so that it doesn't wrongly show people being unidentifed or vice versa.
+# Also issue a warning about CTCPs etc being broken.
+sub format_identify_unload {
+	my ($script,$server,$witem) = @_;
+	my @warning_servers = ();
+
+	if ($script =~ /^format_identify(?:\.pl|\.perl)?$/) {
+		foreach my $format (@format_identify_message_formats,
+			@format_identify_notice_formats) {
+			$server->command("^format -reset $format");
+		}
+		foreach my $server_name (keys %servers) {
+			if ( $servers{$server_name}->{'IDENTIFY-MSG'} 
+				|| $servers{$server_name}->{'IDENTIFY-CTCP'})
+			{
+				if($servers{$server_name}->{'USES-CAP'}) {
+					$server->command("^quote cap req :-identify-msg");
+				} else {
+					push @warning_servers, $server_name;
+				}
+			}
+		} 
+		print('Warning: Unloading format_identify will leave your messages '.
+			'and notices modified and will break CTCPs on the following '.
+			'servers: ' . join (',',@warning_servers));
+	}
+}
+
+# Server responded to capab request.  We want to capture the reply
+# and mark it in a hash so we can keep track of which servers have 
+# the capabilities. This style of reply will come from dancer or
+# hyperion.
+sub format_identify_capab_reply {
+	my ($server, $data, $server_name) = @_;
+	unless (ref($servers{$server_name}) eq 'HASH') {
+		$servers{$server_name} = {};
+		$servers{$server_name}->{'IDENTIFY-MSG'} = 0;
+		$servers{$server_name}->{'IDENTIFY-CTCP'} = 0;
+		$servers{$server_name}->{'USES-CAP'} = 0;
+	}
+	if ($data =~ /:IDENTIFY-MSG$/) {
+		$servers{$server_name}->{'IDENTIFY-MSG'} = 1;
+		$servers{$server_name}->{'USES-CAP'} = 0;
+		Irssi::signal_stop();
+		return;
+	}
+	if ($data =~ /:IDENTIFY-CTCP$/) {
+		$servers{$server_name}->{'IDENTIFY-CTCP'} = 1;
+		$servers{$server_name}->{'USES-CAP'} = 0;
+		Irssi::signal_stop();
+		return;
+	}
+}
+
+# The same as above. This style of reply comes from ircd-seven.
+sub format_identify_cap_reply {
+	my ($server, $data, $server_name) = @_;
+	unless (ref($servers{$server_name}) eq 'HASH') {
+		$servers{$server_name} = {};
+		$servers{$server_name}->{'IDENTIFY-MSG'} = 0;
+		$servers{$server_name}->{'IDENTIFY-CTCP'} = 0;
+		$servers{$server_name}->{'USES-CAP'} = 0;
+	}
+	if ($data =~ /ACK :.*identify-msg/) {
+		$servers{$server_name}->{'IDENTIFY-MSG'} = 1;
+		$servers{$server_name}->{'IDENTIFY-CTCP'} = 1;
+		$servers{$server_name}->{'USES-CAP'} = 1;
+		return;
+	}
+}
+
+# Handles connections to new (to this script) servers and
+# attempts to turn on the capabilities it supports.
+# We send the request in both formats, for hyperion and ircd-seven.
+sub format_identify_connected {
+	my $server = shift;
+	$server->command("^quote capab IDENTIFY-MSG");
+	$server->command("^quote capab IDENTIFY-CTCP");
+	$server->command("^quote cap req :identify-msg");
+}
+
+# signals to handle the events we need to intercept.
+signal_add('event privmsg', 'format_identify_message');
+signal_add('event notice', 'format_identify_notice');
+signal_add('ctcp msg', 'format_identify_ctcp_msg');
+signal_add('ctcp reply', 'format_identify_ctcp_reply');
+signal_add('event 290', 'format_identify_capab_reply');
+signal_add('event cap', 'format_identify_cap_reply');
+signal_add('event connected', 'format_identify_connected');
+
+# On load enumerate the servers and try to turn on 
+# IDENTIFY-MSG and IDENTIFY-CTCP
+foreach my $server (Irssi::servers()) {
+	%servers = ();
+	format_identify_connected($server);
+}
+
+# signal needed to catch the unload...  Be sure to be the first to
+# get it too...
+signal_add_first('command script unload', 'format_identify_unload');
+
+settings_add_bool('format_identify', 'format_colour', 1);
+
+# How we format the nick.  $0 is the nick we'll be formating.
+settings_add_str('format_identify','format_identified_nick','$0');
+settings_add_str('format_identify','format_unidentified_nick','~$0');
+settings_add_str('format_identify','format_unknown_nick','$0');
+
+# What we use for the formats...
+# Don't modify here, use the /set command or modify in the ~/.irssi/config file.
+settings_add_str('format_identify','pubmsg_identify','{pubmsgnick $2 {pubnick {format_identify $0}}}$1');
+settings_add_str('format_identify','pubmsg_channel_identify','{pubmsgnick $3 {pubnick {format_identify $0}}{msgchannel $1}}$2');
+settings_add_str('format_identify','msg_private_identify','{privmsg {format_identify $0} $1 }$2');
+settings_add_str('format_identify','msg_private_query_identify','{privmsgnick {format_identify $0}}$2');
+settings_add_str('format_identify','pubmsg_hilight_identify','{pubmsghinick {format_identify $0} $3 $1}$2');
+settings_add_str('format_identify','pubmsg_hilight_channel_identify','{pubmsghinick {format_identify $0} $4 $1{msgchannel $2}$3');
+settings_add_str('format_identify','action_private_identify','{pvtaction {format_identify $0}}$2');
+settings_add_str('format_identify','action_private_query_identify','{pvtaction_query {format_identify $0}}$2');
+settings_add_str('format_identify','action_public_identify','{pubaction {format_identify $0}}$1');
+settings_add_str('format_identify','action_public_channel_identify', '{pubaction {format_identify $0}{msgchannel $1}}$2');
+settings_add_str('format_identify','ctcp_requested_identify','{ctcp {hilight {format_identify $0}} {comment $1} requested CTCP {hilight $2} from {nick $4}}: $3');
+settings_add_str('format_identify','ctcp_requested_unknown_identify','{ctcp {hilight {format_identify $0}} {comment $1} requested unknown CTCP {hilight $2} from {nick $4}}: $3');
+settings_add_str('format_identify','pubmsg_me_identify','{pubmsgmenick $2 {menick {format_identify $0}}}$1');
+settings_add_str('format_identify','pubmsg_me_channel_identify','{pubmsgmenick $3 {menick {format_identify $0}}{msgchannel $1}}$2');
+settings_add_str('format_identify','notice_public_identify','{notice {format_identify $0}{pubnotice_channel $1}}$2');
+settings_add_str('format_identify','notice_private_identify','{notice {format_identify $0}{pvtnotice_host $1}}$2');
+settings_add_str('format_identify','ctcp_reply_identify','CTCP {hilight $0} reply from {nick {format_identify $1}}: $2');
+settings_add_str('format_identify','ctcp_reply_channel_identify','CTCP {hilight $0} reply from {nick {format_identify $1}} in channel {channel $3}: $2');
+settings_add_str('format_identify','ctcp_ping_reply_identify','CTCP {hilight PING} reply from {nick {format_identify $0}}: $1.$[-3.0]2 seconds');
diff --git a/scripts/fortune.pl b/scripts/fortune.pl
new file mode 100644
index 0000000..bd8b2e6
--- /dev/null
+++ b/scripts/fortune.pl
@@ -0,0 +1,103 @@
+#
+#   fortune
+#
+#   Edited by: Ivo Marino <eim@cpan.org>
+#   $Id: fortune.pl,v 1.3 2004/12/17 19:39:19 eim Exp $
+#
+#   Required (Debian) packages:
+#
+#       . fortune-mod       The fortune core binaries
+#       . fortunes-min      Basic english fortune cookies
+#       . fortunes-de       German fortune cookies
+#       . fortunes-it       Italian fortune cookies
+#
+#   Usage:
+#
+#       Inside a channel write: /fortune <nick> [lang]
+#       The optional [lang] parameter can be:
+#
+#           . en            English
+#           . de            German
+#           . it            Italian
+#
+#       If not defined the fortune script defaults to en.
+#
+#   TODO:
+#
+#       . Check if specified user exists.
+#       . Handle direct user messaging.
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '$Id: fortune.pl,v 1.3 2004/12/17 19:39:19 eim Exp $';
+%IRSSI = (
+    authors     => 'Ivo Marino',
+    contact     => 'eim@cpan.rg',
+    name        => 'fortune',
+    description => 'Send a random fortune cookie to an user in channel.',
+    license     => 'Public Domain',
+);
+
+sub fortune {
+
+    my ($param, $server, $witem) = @_;
+    my $return = 0;
+    my $cookie = '';
+
+    if ($param) {
+
+        if ($server || $server->{connected}) {
+
+            (my $nick, my $lang) = split (' ', $param);
+
+            $lang = 'en' unless ($lang eq 'de'|| $lang eq 'it' || $lang eq 'en');
+
+            Irssi::print ("Nick: " . $nick . ", Lang: \"" . $lang . "\"");
+
+            if ($lang eq 'de') {
+
+                $cookie = `fortune -x`;
+
+            } elsif ($lang eq 'it') {
+
+                $cookie = `fortune -a italia`;
+
+            } else {
+
+                $cookie = `fortune.en -a fortunes literature riddles`;
+            }
+
+            $cookie =~ s/\s*\n\s*/ /g;
+
+            if ($cookie) {
+
+                if ($witem && ($witem->{type} eq "CHANNEL")) {
+
+                        $witem->command('MSG ' . $witem->{name} . ' ' . $nick . ': ' . $cookie);
+                }
+
+            } else {
+
+                Irssi::print ("No cookie.");
+                $return = 1;
+            }
+
+        } else {
+
+            Irssi::print ("Not connected to server");
+            $return = 1;
+        }
+
+    } else {
+
+        Irssi::print ("Usage: /fortune <nick> [language]");
+        $return = 1;
+    }
+
+    return $return;
+}
+
+Irssi::command_bind ('fortune', \&fortune);
diff --git a/scripts/forward.pl b/scripts/forward.pl
new file mode 100644
index 0000000..4fcb31b
--- /dev/null
+++ b/scripts/forward.pl
@@ -0,0 +1,128 @@
+#!/usr/bin/perl
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = '2003071904';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'Forward',
+    description => 'forward incoming messages to another nick',
+    license     => 'GPLv2',
+    url         => 'http://irssi.org/scripts/',
+    changed     => $VERSION,
+    modules     => '',
+    commands    => "forward"
+);
+
+use Irssi 20020324;
+
+use vars qw(%forwards);
+
+sub show_help() {
+    my $help = $IRSSI{name}." ".$VERSION."
+/forward to <nick>
+    Forward incoming messages to <nick>
+/forward remove
+    Disable forwarding in the current chatnet
+
+You can remotely en- or disable forwarding by sending an
+ctcp command to your client. Set a password and use
+ /CTCP <nickname> forward <password>
+or
+ /CTCP <nickname> noforward
+to enable or diable forwarding to your current nick.
+";
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }   
+    print CLIENTCRAP &draw_box($IRSSI{name}, $text, $IRSSI{name}." help", 1);
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub sig_message_private ($$$$) {
+    my ($server, $msg, $nick, $address) = @_;
+    my $chatnet = $server->{chatnet};
+    return unless defined $forwards{$chatnet};
+    if ($forwards{$chatnet}{active}) {
+	my $to = $forwards{$chatnet}{to};
+	my $text = "[forwarded MSG from ".$nick."] ".$msg;
+	$server->command("notice $to ".$text);
+    }
+}
+
+sub sig_ctcp_msg_forward ($$$$$) {
+    my ($server, $args, $nick, $address, $target) = @_;
+    my $pass = Irssi::settings_get_str('forward_remote_password');
+    unless ($pass) {
+	print CLIENTCRAP '%R>>%n No forward password set, forwarding not enabled!';
+	$server->command("nctcp ".$nick." FORWARD Forwarding forbidden!");
+	return 0;
+    }
+    if ($pass eq $args) {
+	$server->command("nctcp ".$nick." FORWARD Forwarding enabled");
+	set_forward($server->{chatnet}, $nick);
+    }
+}
+
+sub sig_ctcp_msg_noforward ($$$$$) {
+    my ($server, $args, $nick, $address, $target) = @_;
+    my $chatnet = $server->{chatnet};
+    return unless defined $forwards{$chatnet};
+    return unless ($forwards{$chatnet}{to} eq $nick);
+    $server->command("nctcp ".$nick." NOFORWARD Forwarding disabled");
+    remove_forward($server->{chatnet});
+}
+
+
+sub set_forward ($$) {
+    my ($chatnet, $nick) = @_;
+    print CLIENTCRAP "%B>>%n Forwarding messages from $chatnet to > $nick <";
+    $forwards{$chatnet}{to} = $nick;
+    $forwards{$chatnet}{active} = 1;
+}
+
+sub remove_forward ($) {
+    my ($chatnet) = @_;
+    delete $forwards{$chatnet};
+    print CLIENTCRAP "%B>>%n No longer forwarding messages from $chatnet";
+}
+
+sub cmd_forward ($$$) {
+    my ($arg, $server, $witem) = @_;
+    return unless defined $server;
+    my @args = split(/ /, $arg);
+    if (@args < 1 || $args[0] eq 'help') {
+	show_help();
+    } elsif (@args[0] eq 'to') {
+	shift @args;
+	return unless @args;
+	set_forward($server->{chatnet}, $args[0]);
+    } elsif (@args[0] eq 'remove') {
+	remove_forward($server->{chatnet});
+    }
+}
+
+
+Irssi::signal_add('message private', \&sig_message_private);
+Irssi::signal_add('ctcp msg forward', \&sig_ctcp_msg_forward);
+Irssi::signal_add('ctcp msg noforward', \&sig_ctcp_msg_noforward);
+Irssi::settings_add_str($IRSSI{name}, 'forward_remote_password', '');
+
+Irssi::command_bind('forward' => \&cmd_forward);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /forward help for help';
diff --git a/scripts/freenode_filter.pl b/scripts/freenode_filter.pl
new file mode 100644
index 0000000..2277c13
--- /dev/null
+++ b/scripts/freenode_filter.pl
@@ -0,0 +1,122 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.06";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'default.pl',
+    description => 'This script will filter some Freenode IRCD (Dancer) servernotices.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/freenode_filter.pl',
+    changed     => 'Wed Sep 17 23:00:11 CEST 2003',
+);
+
+Irssi::theme_register([
+    'window_missing', '%_Warning%_: %R>>%n You are missing the %_FILTER%_ window. Use %_/WINDOW NEW HIDDEN%_ and %_/WINDOW NAME FILTER%_ to create it.',
+    'filter', '{servernotice $0} $1',
+    'freenode_filter_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub check_filter {
+    
+    if (!Irssi::window_find_name("FILTER")) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'window_missing');
+        return 0;
+    }
+    
+    return 1;
+}
+
+sub parse_snote {
+
+    my ($dest, $text) = @_;
+
+    return if (($text !~ /^NOTICE/));
+
+    if ($text =~ /Notice -- Client connecting:/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Illegal nick/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Invalid username:/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- X-line Warning/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Kick from/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Client exiting:/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- (.*) confirms kill/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Remove from/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Flooder (.*)/) {
+        filter_snote($dest, $text);
+    } elsif ($text =~ /Notice -- Received KILL message for/) {
+        filter_snote($dest, $text);
+    }
+    
+    if ($text =~ /Notice -- (.*) has removed the K-Line for:/) {
+        active_snote($dest, $text);
+    } elsif ($text =~ /Notice -- (.*) added K-Line for/) {
+        active_snote($dest, $text);
+    }
+}
+
+sub filter_snote {
+    
+    my ($server, $snote) = @_;
+    my $win = Irssi::window_find_name("FILTER");
+    my $ownnick = $server->{nick};
+    
+    $snote =~ s/^NOTICE $ownnick ://;
+
+    if (!check_filter()) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'window_missing');
+        return;
+    }
+
+    $win->printformat(MSGLEVEL_SNOTES, 'filter', $server->{real_address}, $snote);
+    Irssi::signal_stop();
+}
+
+sub active_snote {
+    
+    my ($server, $snote) = @_;
+    my $ownnick = $server->{nick};
+    my $win = Irssi::active_win();
+    
+    $snote =~ s/^NOTICE $ownnick ://;
+
+    $win->printformat(MSGLEVEL_SNOTES, 'filter', $server->{real_address}, $snote);
+    Irssi::signal_stop();
+}
+
+check_filter();
+
+Irssi::signal_add_first('server event', 'parse_snote');
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'freenode_filter_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/friends_peder.pl b/scripts/friends_peder.pl
new file mode 100644
index 0000000..bc4355b
--- /dev/null
+++ b/scripts/friends_peder.pl
@@ -0,0 +1,729 @@
+# friends - irssi 0.8.4.CVS
+#
+#    $Id: friends.pl,v 1.34 2004/03/08 21:47:12 peder Exp $
+#
+# Copyright (C) 2001, 2002, 2003 by Peder Stray <peder@ninja.no>
+#
+
+use strict;
+use Irssi 20020427.2353;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+use Data::Dumper;
+$Data::Dumper::Indent = 1;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.34 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'friends',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/friends.pl',
+          license     => 'GPL',
+          description => 'Basicly an autoop script with a nice interface and nick coloring ;)',
+         );
+
+# ======[ Variables ]===================================================
+
+my(%friends, @friends);
+
+my(%flagshort) = (
+		  op => 'o',
+		  voice => 'v',
+		  color => 'c',
+		 );
+my(%flaglong) = map { $flagshort{$_} => $_ } keys %flagshort;
+
+# ======[ Helper functions ]============================================
+
+# --------[ crap ]------------------------------------------------------
+
+sub crap {
+    my $template = shift;
+    my $msg = sprintf $template, @_;
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'friends_crap', $msg);
+}
+
+# --------[ load_friends ]----------------------------------------------
+
+sub load_friends {
+    my($file) = Irssi::get_irssi_dir."/friends";
+    my($count) = 0;
+    my($mask,$net,$channel,$flags,$flag);
+    local(*FILE);
+
+    %friends = ();
+    open FILE, "< $file";
+    while (<FILE>) {
+	($mask,$net,$channel,$flags) = split;
+	for (split //, $flags) {
+	    if ($flag = $flaglong{$_}) {
+		$friends{$mask}{lc $net}{lc $channel}{$flag} = 1;
+	    }
+	}
+    }
+    close FILE;
+    $count = keys %friends;
+    
+    crap("Loaded $count friends from $file");
+}
+
+# --------[ save_friends ]----------------------------------------------
+
+sub save_friends {
+    my($auto) = @_;
+    my($file) = Irssi::get_irssi_dir."/friends";
+    my($count) = 0;
+    local(*FILE);
+
+    return if $auto && !Irssi::settings_get_bool('friends_autosave');
+
+    open FILE, "> $file";
+    for my $mask (keys %friends) {
+	$count++;
+	for my $net (keys %{$friends{$mask}}) {
+	    for my $channel (keys %{$friends{$mask}{$net}}) {
+		print FILE "$mask\t$net\t$channel\t".
+		  join("", sort map {$flagshort{$_}} keys %{$friends{$mask}{$net}{$channel}}).
+		    "\n";
+	    }
+	}
+    }
+    close FILE;
+
+    crap("Saved $count friends to $file")
+      unless $auto;
+}
+
+# --------[ is_friends_window ]-----------------------------------------
+
+sub is_friends_window {
+    my($win) = @_;
+    return $win->{name} eq '<Friends>';
+}
+
+# --------[ get_friends_window ]----------------------------------------
+
+sub get_friends_window {
+    my($win) = Irssi::window_find_name('<Friends>');
+    if ($win) {
+	$win->set_active;
+    } else {
+	Irssi::command("window new hide");
+	$win = Irssi::active_win;
+	$win->set_name('<Friends>');
+	$win->set_history('<Friends>');
+    }
+    return $win;
+}
+
+# --------[ get_friend ]------------------------------------------------
+
+sub get_friend {
+    my($channel,$nick) = @_;
+    my($server) = $channel->{server};
+    my($chan) = lc $channel->{name};
+    my($net) = lc $server->{chatnet};
+    my($flags,@friend);
+    
+    for my $mask (keys %friends) {
+	next unless $server->mask_match_address($mask, 
+						$nick->{nick},
+						$nick->{host});
+	for my $n ('*', $net) {
+	    for my $c ('*', $chan) {
+		if (exists $friends{$mask}{$n}{$c}) {
+		    for my $flag (keys %{$friends{$mask}{$n}{$c}}) {
+			$flags->{$flag} = 1;
+		    }
+		}
+	    }
+	}
+	return $flags if $flags;
+    }
+    return undef;
+}
+
+# --------[ check_friends ]---------------------------------------------
+
+sub check_friends {
+    my($channel, @nicks) = @_;
+    my(%op,%voice);
+    my($nick,$friend,$list); 
+    my(@friends);
+
+    return unless $channel->{chanop} || $channel->{ownnick}{op};
+
+    for $nick (@nicks) {
+	$friend = get_friend($channel, $nick);
+	next unless $friend;
+	next if $nick->{nick} eq $channel->{server}{nick};
+	if ($friend->{op} && !$nick->{op}) {
+	    $op{$nick->{nick}} = 1;
+	}
+	if ($friend->{voice} && !$nick->{voice}) {
+	    $voice{$nick->{nick}} = 1;
+	}
+	push @friends, ($nick->{op}?'@':'').
+	  ($nick->{voice}?'+':'').$nick->{nick};
+    }
+
+    if (@friends && Irssi::settings_get_bool("friends_show_check")) {
+	my($max) = Irssi::settings_get_int("friends_max_nicks");
+	@friends = sort @friends;
+	$channel->printformat(MSGLEVEL_CLIENTCRAP,
+			      @friends>$max 
+			      ? 'friends_check_more' : 'friends_check',
+			      join(" ", splice @friends, 0, $max),
+			      scalar @friends);
+    }
+
+    if ($list = join " ", sort keys %op) {
+        $channel->command("op $list");
+    }
+    if ($list = join " ", sort keys %voice) {
+        $channel->command("voice $list");
+    }
+}
+
+# --------[ update_friends_hash ]---------------------------------------
+
+sub update_friends_hash {
+    %friends = ();
+    for (@friends) {
+	my($num,$mask,$chan,$net,$flags) = @$_;
+	for (split //, $flags) {
+	    $friends{$mask}{$net}{$chan}{$flaglong{$_}} = 1;
+	}
+    }
+}
+
+# --------[ update_friends_window ]-------------------------------------
+
+sub update_friends_window {
+    my($win) = Irssi::window_find_name('<Friends>');
+    my($view);
+    my($num) = 0;
+    my($mask,$net,$channel,$flags);
+
+    my(%net);
+
+    if ($win) {
+	@friends = ();
+	for $mask (sort keys %friends) {
+	    for $net (sort keys %{$friends{$mask}}) {
+		for $channel (sort keys %{$friends{$mask}{$net}}) {
+		    $flags = join "", sort map {$flagshort{$_}} 
+		      keys %{$friends{$mask}{$net}{$channel}};
+		    push @friends, [ ++$num, $mask, $channel, $net, $flags ];
+		}
+	    }
+	}
+
+	$view = $win->view;
+	$view->remove_all_lines();
+	$view->clear();
+	$win->printformat(MSGLEVEL_NEVER, 'friends_header',
+			  '##', 'Mask', 'Channel', 'ChatNet', 'Flags');
+	for (@friends) {
+	    ($num,$mask,$channel,$net,$flags) = @$_;
+	    if (!$net{$net}) {
+		my($n) = Irssi::chatnet_find($net);
+		$net{$net} = $n?$n->{name}:$net;
+	    }
+	    $win->printformat(MSGLEVEL_NEVER, 'friends_line',
+			      $num, $mask, $channel, $net{$net}, $flags);
+	}
+	$win->printformat(MSGLEVEL_NEVER, 'friends_footer', scalar @friends);
+    }
+}
+
+# ======[ Signal Hooks ]================================================
+
+# --------[ sig_send_command ]------------------------------------------
+
+sub sig_send_command {
+    my($win) = Irssi::active_win;
+    if (is_friends_window($win)) {
+	my($cmd,@param) = split " ", $_[0];
+	my($changed) = 0;
+
+	Irssi::signal_stop;
+
+	for (lc $cmd) {
+	    s,^/,,;
+	    if (/^m(ask)?$/) {
+		$changed = subcmd_friends_mask($win,@param);
+
+	    } elsif (/^c(han(nel)?)?$/) {
+		$changed = subcmd_friends_channel($win,@param);
+
+	    } elsif (/^(?:n(et)?|chat(net)?)$/) {
+		$changed = subcmd_friends_net($win,@param);
+		
+	    } elsif (/^del(ete)?$/) {
+		$changed = subcmd_friends_delete($win,@param);
+		
+	    } elsif (/^f(lags?)?$/) {
+		$changed = subcmd_friends_flags($win,@param);
+
+	    } elsif (/^s(ave)?/) {
+		save_friends();
+
+	    } elsif (/^(?:e(xit)?|q(uit)?)$/) {
+		$win->destroy;
+
+	    } elsif (/^(?:h(elp)?|\?)$/) {
+		subcmd_friends_help($win);
+
+	    } else {
+		$win->print("CMD: $cmd @{[map{\"[$_]\"}@param]}");
+
+	    }
+	}
+
+	if ($changed) {
+	    update_friends_hash();
+	    update_friends_window();
+	    save_friends(1);
+	}
+    }
+}
+
+# --------[ sig_massjoin ]----------------------------------------------
+
+sub sig_massjoin {
+    my($channel, $nicks) = @_;
+    check_friends($channel, @$nicks);
+}
+
+# --------[ sig_nick_mode_changed ]-------------------------------------
+
+sub sig_nick_mode_changed {
+    my($channel, $nick) = @_;
+    if ($channel->{synced} && $channel->{server}{nick} eq $nick->{nick}) {
+	check_friends($channel, $channel->nicks);
+    }
+}
+
+# --------[ sig_channel_sync ]------------------------------------------
+
+sub sig_channel_sync {
+    my($channel) = @_;
+    check_friends($channel, $channel->nicks);
+}
+
+# --------[ sig_setup_reread ]------------------------------------------
+
+sub sig_setup_reread {
+    load_friends;
+}
+
+# --------[ sig_setup_save ]--------------------------------------------
+
+sub sig_setup_save {
+    my($mainconf,$auto) = @_;
+    save_friends($auto);
+}
+
+# --------[ sig_window_changed ]----------------------------------------
+
+sub sig_window_changed {
+    my($new,$old) = @_;
+    if (is_friends_window($new)) {
+	update_friends_window();
+    }
+}
+
+# --------[ sig_message_public ]----------------------------------------
+
+sub sig_message_public {
+    my($server, $msg, $nick, $addr, $target) = @_;
+    my($window,$theme,$friend,$oform,$nform);
+    my($channel) = $server->channel_find($target);
+
+    return unless $channel;
+
+    my($color) = Irssi::settings_get_str("friends_nick_color");
+
+    $friend = get_friend($channel, $channel->nick_find($nick));
+
+    if ($friend && $color =~ /^[rgbcmykpwRGBCMYKPWFU0-9_]$/) {
+	$window = $server->window_find_item($target);
+	$theme = $window->{theme} || Irssi::current_theme;
+	
+	$oform = $nform = $theme->get_format('fe-common/core', 'pubmsg');
+	$nform =~ s/(\$(\[-?\d+\])?0)/%$color$1%n/g;
+
+	$window->command("^format pubmsg $nform");
+	Irssi::signal_continue(@_);
+	$window->command("^format pubmsg $oform");
+    }
+}
+
+# --------[ sig_message_irc_action ]------------------------------------
+
+sub sig_message_irc_action {
+    my($server, $msg, $nick, $addr, $target) = @_;
+    my($window,$theme,$friend,$oform,$nform);
+    my($channel) = $server->channel_find($target);
+
+    return unless $channel;
+
+    my($color) = Irssi::settings_get_str("friends_nick_color");
+
+    $friend = get_friend($channel, $channel->nick_find($nick));
+
+    if ($friend && $color =~ /^[rgbcmykpwRGBCMYKPWFU0-9_]$/) {
+	$window = $server->window_find_item($target);
+	$theme = $window->{theme} || Irssi::current_theme;
+	
+	$oform = $nform = $theme->get_format('fe-common/irc', 
+					     'action_public');
+	$nform =~ s/(\$(\[-?\d+\])?0)/%$color$1%n/g;
+
+	$window->command("^format action_public $nform");
+	Irssi::signal_continue(@_);
+	$window->command("^format action_public $oform");
+    }
+}
+
+# ======[ Commands ]====================================================
+
+# --------[ FRIENDS ]---------------------------------------------------
+
+# Usage: /FRIENDS
+sub cmd_friends {
+    my($win) = get_friends_window;
+    update_friends_window();
+}
+
+# --------[ subcmd_friends_channel ]------------------------------------
+
+sub subcmd_friends_channel {
+    my($win,$num,$chan) = @_;
+
+    unless ($chan && defined $num) {
+	$win->print("Syntax: CHANNEL <num> <channel>", MSGLEVEL_NEVER);
+	return;
+    }
+
+    unless (0 < $num && $num <= @friends) {
+	$win->print("Error: Element $num not in list", MSGLEVEL_NEVER);
+	return;
+    }
+
+    $friends[$num-1][2] = $chan;
+
+    return 1;
+}
+
+# --------[ subcmd_friends_delete ]-------------------------------------
+
+sub subcmd_friends_delete {
+    my($win,$num) = @_;
+
+    unless (defined $num) {
+	$win->print("Syntax: DELETE <num>", MSGLEVEL_NEVER);
+	return;
+    }
+    
+    unless (0 < $num && $num <= @friends) {
+	$win->print("Error: Element $num not in list", MSGLEVEL_NEVER);
+	return;
+    }
+    
+    splice @friends, $num-1, 1;
+
+    return 1;
+}
+
+# --------[ subcmd_friends_flags ]--------------------------------------
+
+sub subcmd_friends_flags {
+    my($win,$num,$flags) = @_;
+    my(%f);
+    
+    unless ($flags && defined $num) {
+	$win->print("Syntax: FLAGS <num> <flags>", MSGLEVEL_NEVER);
+	return;
+    }
+
+    unless (0 < $num && $num <= @friends) {
+	$win->print("Error: Element $num not in list", MSGLEVEL_NEVER);
+	return;
+    }
+    
+    $friends[$num-1][4] = join "", sort grep {!$f{$_}++}
+      split //, $flags;
+
+    return 1;
+}
+
+# --------[ subcmd_friends_help ]---------------------------------------
+
+sub subcmd_friends_help {
+    my($win) = @_;
+
+    $win->print(q{CHANNEL <num> <channel>    - set channel
+
+    <channel> is either a channel name or * for all
+}, MSGLEVEL_NEVER);
+
+    $win->print(q{DELETE  <num>              - delete entry
+}, MSGLEVEL_NEVER);
+
+    $win->print(q{FLAGS   <num> <flags>      - set flags
+
+    <flags> is a list of c (color), o (give op), v (give voice)
+}, MSGLEVEL_NEVER);
+
+    $win->print(q{MASK    <num> <mask>       - set mask
+
+    <mask> is in the usual nick!user@host format
+}, MSGLEVEL_NEVER);
+
+    $win->print(q{NET     <num> <net>        - set net
+
+   <net> is one of your defined ircnets or * for all
+}, MSGLEVEL_NEVER);
+
+}
+
+# --------[ subcmd_friends_mask ]---------------------------------------
+
+sub subcmd_friends_mask {
+    my($win, $num, $mask) = @_;
+
+    unless ($mask && defined $num) {
+	$win->print("Syntax: MASK <num> <mask>", MSGLEVEL_NEVER);
+	return;
+    }
+    
+    unless (0 < $num && $num <= @friends) {
+	$win->print("Error: Element $num not in list", MSGLEVEL_NEVER);
+	return;
+    }
+    
+    unless ($mask =~ /^.+!.+@.+$/) {
+	$win->print("Error: Mask $mask is not valid", MSGLEVEL_NEVER);
+    }
+    
+    $friends[$num-1][1] = $mask;
+
+    return 1;
+}
+
+# --------[ subcmd_friends_net ]----------------------------------------
+
+sub subcmd_friends_net {
+    my($win,$num,$net) = @_;
+    my($n);
+
+    unless ($net && defined $num) {
+	$win->print("Syntax: NET <num> <net>", MSGLEVEL_NEVER);
+	return;
+    }
+
+    unless (0 < $num && $num <= @friends) {
+	$win->print("Error: Element $num not in list", MSGLEVEL_NEVER);
+	return;
+    }
+    
+    if ($net eq '*') {
+	# all is well
+    } elsif ($n = Irssi::chatnet_find($net)) {
+	$net = $n->{name};
+    } else {
+	$win->print("Error: No defined chatnet named $net",
+		    MSGLEVEL_NEVER);
+	return;
+    }
+    
+    $friends[$num-1][3] = $net;
+
+    return 1;
+}
+
+# --------[ ADDFRIEND ]-------------------------------------------------
+
+# Usage: /ADDFRIEND <nick>|<mask> [<channel>|* [<net>|*]]
+#                                 [-mask host|normal|domain|full]
+#			          [-flags <flags>]
+sub cmd_addfriend {
+    my($param,$serv,$chan) = @_;
+    my(@param,@flags);
+    my($type) = Irssi::Irc::MASK_USER | Irssi::Irc::MASK_DOMAIN;
+    my($mask,$flags,$channel,$net);
+    my(@split) = split " ", $param;
+
+    while (@split) {
+	$_ = shift @split;
+	if (/^-m(ask)?$/) {
+	    $_ = shift @split;
+	    if (/^h(ost)?$/) {
+		$type = Irssi::Irc::MASK_HOST;
+	    } elsif (/^n(ormal)?$/) {
+		$type = Irssi::Irc::MASK_USER
+	              | Irssi::Irc::MASK_DOMAIN;
+	    } elsif (/^d(omain)?$/) {
+		$type = Irssi::Irc::MASK_DOMAIN;
+	    } elsif (/^f(ull)?$/) {
+		$type = Irssi::Irc::MASK_NICK
+	              | Irssi::Irc::MASK_USER
+		      | Irssi::Irc::MASK_HOST;
+	    } else {
+		# fjekk
+	    }
+	} elsif (/^-flags?$/) {
+	    $flags = shift @split;
+	} else {
+	    push @param, $_;
+	}
+    }
+    ($mask,$channel,$net) = @param;
+
+    unless ($mask) {
+	crap("/ADDFRIEND [-mask full|normal|host|domain] [-flags <[o][v][c]>] <nick|mask> [<channel> [<chatnet>]]]");
+	return;
+    }
+
+    $flags ||= "o";
+
+    unless ($channel) {
+	if ($chan) {
+	    $channel = $chan->{name};
+	} else {
+	    crap("/ADDFRIEND needs a channel.");
+	    return;
+	}
+    }
+
+    unless ($net) {
+	if ($serv) {
+	    $net = $serv->{chatnet};
+	} else {
+	    crap("/ADDFRIEND needs a chatnet.");
+	    return;
+	}
+    }
+
+    # is this a nick we need to expand?
+    unless ($mask =~ /.+!.+@.+/) {
+	my($nick);
+	if ($net ne '*') {
+	    unless ($serv = Irssi::server_find_chatnet($net)) {
+		crap("Error locating server for $net.");
+		return;
+	    }
+	} else {
+	    unless ($serv) {
+		crap("Need a server for nick expansion");
+		return
+	    }
+	}
+	if ($channel ne '*') {
+	    unless ($chan = $serv->channel_find($channel)) {
+		crap("Error locating channel $channel.");
+		return;
+	    }
+	} else {
+	    unless ($chan) {
+		crap("Need a channel for nick expansion");
+		return;
+	    }
+	}
+	unless ($nick = $chan->nick_find($mask)) {
+	    crap("Error locating nick $mask.");
+	    return;
+	}
+	$mask = Irssi::Irc::get_mask($nick->{nick}, $nick->{host}, $type);
+    }
+
+    for my $flag (split //, $flags) {
+	unless ($flag = $flaglong{$flag}) {
+	    crap("Unknown flag [$flag]");
+	    next;
+	}
+	push @flags, $flag;
+	$friends{$mask}{lc $net}{lc $channel}{$flag} = 1;
+    }
+
+    if (@flags) {
+	crap("Added %s for %s in %s on %s.",
+	     join(",", @flags), $mask, $channel, $net);
+    }
+
+    save_friends(1);
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_bool('friends', 'friends_autosave', 1);
+Irssi::settings_add_int('friends', 'friends_max_nicks', 10);
+Irssi::settings_add_bool('friends', 'friends_show_check', 1);
+
+Irssi::settings_add_str('friends', 'friends_nick_color', '');
+
+# --------[ Register formats ]------------------------------------------
+
+Irssi::theme_register(
+[
+ 'friends_crap',
+ '{line_start}{hilight Friends:} $0',
+
+ 'friends_check',
+ '{line_start}{hilight Friends} checked: $0',
+
+ 'friends_check_more',
+ '{line_start}{hilight Friends} checked: $0 (+$1 more)',
+
+ 'friends_header',
+ '<%W$[2]0%n> <%W$[33]1%n> <%W$[13]2%n> <%W$[13]3%n> <%W$[5]4%n>',
+
+ 'friends_line',
+ '[%R$[-2]0%n] $[35]1 $[15]2 $[15]3 $[7]4',
+
+ 'friends_footer',
+ "\n".'%4 List contains $0 friends %>%n',
+
+]);
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add_first("send command", "sig_send_command");
+
+Irssi::signal_add_last("massjoin", "sig_massjoin");
+Irssi::signal_add_last("nick mode changed", "sig_nick_mode_changed");
+Irssi::signal_add_last("channel sync", "sig_channel_sync");
+
+Irssi::signal_add('setup saved', 'sig_setup_save');
+Irssi::signal_add('setup reread', 'sig_setup_reread');
+
+Irssi::signal_add('window changed', 'sig_window_changed');
+
+Irssi::signal_add_first('message public', 'sig_message_public');
+Irssi::signal_add_first('message irc action', 'sig_message_irc_action');
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind('friends', 'cmd_friends');
+Irssi::command_bind('addfriend', 'cmd_addfriend');
+
+# --------[ Register timers ]-------------------------------------------
+
+# --------[ Load config ]-----------------------------------------------
+
+load_friends;
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
diff --git a/scripts/friends_shasta.pl b/scripts/friends_shasta.pl
new file mode 100644
index 0000000..dae5590
--- /dev/null
+++ b/scripts/friends_shasta.pl
@@ -0,0 +1,2719 @@
+#!/usr/bin/perl -w
+#
+# This script may not work with irssi older than 0.8.5!
+#
+# Historical author of this script is Erkki Seppala <flux@inside.org>
+# Now it's maintained by me, so i'm listed as an author.
+# 
+# $Id: friends.pl,v 1.3 2003/11/09 21:11:45 shasta Exp $ 
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "2.4.9";
+%IRSSI = (
+    authors	=> 'Jakub Jankowski',
+    contact	=> 'shasta@toxcorp.com',
+    name	=> 'Friends',
+    description	=> 'Maintains list of people you know.',
+    license	=> 'GNU GPLv2 or later',
+    url		=> 'http://toxcorp.com/irc/irssi/friends/',
+    changed	=> 'Sun Oct 9 22:12:43 2003'
+);
+
+use Irssi 20011201.0100 ();
+use Irssi::Irc;
+
+# friends.pl
+my $friends_version = $VERSION . " (20031109)";
+
+# release note, if any
+my $release_note = "Please read http://toxcorp.com/irc/irssi/friends/current/README\n";
+
+##############################################
+# These variables are adjustable with /set
+# but here are some 'safe' defaults:
+
+# do you want to process CTCP queries?
+my $default_friends_use_ctcp = 1;
+
+# space-separated list of allowed (implemented ;) CTCP commands
+my $default_friends_ctcp_commands = "OP VOICE LIMIT KEY INVITE PASS IDENT UNBAN";
+
+# do you want to learn new users?
+my $default_friends_learn = 1;
+
+# do you want to autovoice already opped nicks?
+my $default_friends_voice_opped = 0;
+
+# do you want to show additional info with /whois?
+my $default_friends_show_whois_extra = 1;
+
+# which flags do you want to add automatically with /addfriend? (case *sensitive*)
+my $default_friends_default_flags = "";
+
+# default path to friendlist
+my $default_friends_file = Irssi::get_irssi_dir() . "/friends";
+
+# do you want to save friendlist every time irssi's setup is saved
+my $default_friends_autosave = 0;
+
+# do you want to backup your friendlist upon a save
+my $default_friends_backup_friendlist = 1;
+
+# backup suffix to use (unixtime if empty)
+my $default_friends_backup_suffix = ".backup";
+
+# do you want to show friend's flags while he joins a channel?
+my $default_friends_show_flags_on_join = 1;
+
+# do you want to revenge?
+my $default_friends_revenge = 1;
+
+# revenge mode:
+# 0 Deop the user.
+# 1 Deop the user and give them the +D flag for the channel.
+# 2 Deop the user, give them the +D flag for the channel, and kick them.
+# 3 Deop the user, give them the +D flag for the channel, kick, and ban them.
+my $default_friends_revenge_mode = 0;
+
+# do you want /findfriends to print info in separate windows for separate chans?
+my $default_friends_findfriends_to_windows = 0;
+
+# maximum size of operationQueue
+my $default_friends_max_queue_size = 20;
+
+# min delaytime
+my $default_delay_min = 10;
+
+# max delaytime
+my $default_delay_max = 60;
+
+###############################################################
+
+# registering themes
+Irssi::theme_register([
+	'friends_empty',		'Your friendlist is empty. Add items with /ADDFRIEND',
+	'friends_notenoughargs',	'Not enough arguments. Usage: $0',
+	'friends_badargs',		'Bad arguments. Usage: $0',
+	'friends_nosuch',		'No such friend %R$0%n',
+	'friends_notonchan',		'Not on channel {hilight $0}',
+	'friends_endof',		'End of $0 $1',
+	'friends_badhandle',		'Wrong handle: %R$0%n. $1',
+	'friends_notuniqhandle',	'Handle %R$0%n already exists, choose another one',
+	'friends_version',		'friends.pl\'s version: {hilight $0} [$1]',
+	'friends_file_written',		'friendlist written on: {hilight $0}',
+	'friends_file_version',		'friendlist written with: {hilight $0} [$1]',
+	'friends_filetooold',		'Friendfile too old, loading aborted',
+	'friends_loaded',		'Loaded {hilight $0} friends from $1',
+	'friends_saved',		'Saved {hilight $0} friends to $1',
+	'friends_duplicate',		'Skipping %R$0%n [duplicate?]',
+	'friends_checking',		'Checking {hilight $0} took {hilight $1} secs [on $2]',
+	'friends_line_head',		'[$[!-3]0] Handle: %R$1%n, flags: %C$2%n [password: $3]',
+	'friends_line_hosts',		'$[-6]9 Hosts: $0',
+	'friends_line_chan',		'$[-6]9 Channel {hilight $0}: Flags: %c$1%n, Delay: $2',
+	'friends_line_comment',		'$[-6]9 Comment: $0',
+	'friends_line_currentnick',	'$[-6]9 [$1] Current nick: {nick $0}',
+	'friends_line_channelson',	'$[-6]9 [$1] Currently sharing with you: $0',
+	'friends_joined',		'{nick $0} is a friend, handle: %R$1%n, global flags: %C$2%n, flags for {hilight $3}: %C$4%n',
+	'friends_whois',		'{whois friend handle: {hilight $0}, global flags: $1}',
+	'friends_queue_empty',		'Operation queue is empty',
+	'friends_queue_line1',		'[$[!-2]0] Operation: %R$1%n secs left before {hilight $2}',
+	'friends_queue_line2',		'     (Server: {hilight $0}, Channel: {hilight $1}, Nicklist: $2)',
+	'friends_queue_nosuch',		'No such entry in operation queue ($0)',
+	'friends_queue_removed',	'$0 queues: {hilight $1} [$2]',
+	'friends_friendlist',		'{hilight Friendlist} [$0]:',
+	'friends_friendlist_count',	'Listed {hilight $0} friend$1',
+	'friends_findfriends',		'Looking for %R$2%n on channel {hilight $0} [on $1]:',
+	'friends_already_added',	'Nick {hilight $0} matches one of %R$1%n\'s hosts',
+	'friends_added',		'Added %R$0%n to friendlist',
+	'friends_removed',		'Removed %R$0%n from friendlist',
+	'friends_comment_added',	'Added comment line to %R$0%n ($1)',
+	'friends_comment_removed',	'Removed comment line from %R$0%n',
+	'friends_host_added',		'Added {hilight $1} to %R$0%n',
+	'friends_host_removed',		'Removed {hilight $1} from %R$0%n',
+	'friends_host_exists',		'Hostmask {hilight $1} overlaps with one of the already added to %R$0%n',
+	'friends_host_notexists',	'%R$0%n does not have {hilight $1} in hostlist',
+	'friends_chanrec_removed',	'Removed {hilight $1} record from %R$0%n',
+	'friends_chanrec_notexists',	'%R$0%n does not have {hilight $1} record',
+	'friends_changed_handle',	'Changed {hilight $0} to %R$1%n',
+	'friends_changed_delay',	'Changed %R$0%n\'s delay value on {hilight $1} to %c$2%n',
+	'friends_chflagexec',		'Executing %c$0%n for %R$1%n ($2)',
+	'friends_currentflags',		'Current {channel $2} flags for %R$1%n are: %c$0%n',
+	'friends_chpassexec',		'Altered password for %R$0%n',
+	'friends_ctcprequest',		'%R$0%n asks for {hilight $1} on {hilight $2}',
+	'friends_ctcppass',		'Password for %R$0%n altered by $1',
+	'friends_ctcpident',		'CTCP IDENT for %R$0%n from {hilight $1} succeeded',
+	'friends_ctcpfail',		'Failed CTCP {hilight $0} from %R$1%n. $2',
+	'friends_optree_header',	'Opping tree:',
+	'friends_optree_line1',		'%R$0%n has opped these:',
+	'friends_optree_line2',		'{hilight $[!-4]0} times: $1',
+	'friends_general',		'$0',
+	'friends_notice',		'[%RN%n] $0'
+]);
+
+my @friends = ();
+my $all_regexp_hosts = {};
+my $all_hosts = {};
+my $all_handles = {};
+my @operationQueue = ();
+my $timerHandle = undef;
+my $friends_file_version;
+my $friends_file_written;
+
+my $friends_PLAIN_HOSTS = 0;
+my $friends_REGEXP_HOSTS = 1;
+
+# Idea of moving userhost to a regexp and
+# the subroutine userhost_to_regexp were adapted from people.pl,
+# an userlist script made by Marcin 'Qrczak' Kowalczyk.
+# You can get that script from http://qrnik.knm.org.pl/~qrczak/irssi/people.pl
+# or from http://scripts.irssi.org/
+
+# HostToRegexp
+my %htr = ();
+# fill the hash
+foreach my $i (0..255) {
+	my $ch = chr($i);
+	$htr{$ch} = "\Q$ch\E";
+}
+# wildcards to regexp
+$htr{'?'} = '.';
+$htr{'*'} = '.*';
+
+# str userhost_to_regexp($userhost)
+# translates userhost to a regexp
+# lowercases host-part
+sub userhost_to_regexp($) {
+	my ($mask) = @_;
+	$mask = lowercase_hostpart($mask);
+	$mask =~ s/(.)/$htr{$1}/g;
+	return $mask;
+}
+
+# str lowercase_hostpart($userhost)
+# returns userhost with host-part loweracased
+sub lowercase_hostpart($) {
+	my ($host) = @_;
+	$host =~ s/(.+)\@(.+)/sprintf("%s@%s", $1, lc($2));/eg;
+	return $host;
+}
+
+# void print_version($what)
+# print's version of script/userlist
+sub print_version($) {
+	my ($what) = @_;
+	$what = lc($what);
+
+	if ($what eq "filever") {
+		if ($friends_file_version) {
+			my ($verbal, $numeric) = $friends_file_version =~ /^(.+)\ \(([0-9]+)\)$/;
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_file_version', $verbal, $numeric);
+		} else {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_empty');
+		}
+	} elsif ($what eq "filewritten" && $friends_file_written) {
+		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($friends_file_written);
+		my $written = sprintf("%4d%02d%02d %02d:%02d:%02d", ($year+1900), ($mon+1), $mday, $hour, $min, $sec);
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_file_written', $written);
+	} else {
+		my ($verbal, $numerical) = $friends_version =~ /^(.+)\ \(([0-9]+)\)$/;
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_version', $verbal, $numerical);
+	}
+}
+
+# void print_releasenote()
+# suprisingly, prints a release note ;^)
+sub print_releasenote {
+	foreach my $line (split(/\n/, $release_note)) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notice', $line);
+	}
+}
+
+# str friends_crypt($plain)
+# returns crypt()ed $plain, using random salt;
+# or "" if $plain is empty
+sub friends_crypt {
+	return if ($_[0] eq "");
+	return crypt("$_[0]", (join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]));
+}
+
+# bool friend_passwdok($idx, $pwd)
+# returns 1 if password is ok, 0 if isn't
+sub friends_passwdok {
+	my ($idx, $pwd) = @_;
+	return 1 if (crypt("$pwd", $friends[$idx]->{password}) eq $friends[$idx]->{password});
+	return 0;
+}
+
+# arr get_friends_channels($idx)
+# returns list of $friends[$idx] channels
+sub get_friends_channels {
+	return keys(%{$friends[$_[0]]->{channels}});
+}
+
+# arr get_friends_hosts($idx, $type)
+# returns list of $friends[$idx] regexp-hostmask if $type=$friends_REGEXP_HOSTS
+# returns list of plain-hostmasks if $type=$friends_PLAIN_HOSTS
+sub get_friends_hosts($$) {
+	if ($_[1] == $friends_REGEXP_HOSTS) {
+		return keys(%{$friends[$_[0]]->{regexp_hosts}});
+	} elsif ($_[1] == $friends_PLAIN_HOSTS) {
+		return keys(%{$friends[$_[0]]->{hosts}});
+	}
+	return undef;
+}
+
+# str get_friends_flags($idx[, $chan])
+# returns list of $chan flags for $idx
+# $chan can be also 'global' or undef
+# case insensitive about the $chan
+sub get_friends_flags {
+	my ($idx, $chan) = @_;
+	$chan = lc($chan);
+	if ($chan eq "" || $chan eq "global") {
+		return $friends[$idx]->{globflags};
+	} else {
+		foreach my $friendschan (get_friends_channels($idx)) {
+			if ($chan eq lc($friendschan)) {
+				return $friends[$idx]->{channels}->{$friendschan}->{flags};
+			}
+		}
+	}
+	return;
+}
+
+# str get_friends_delay($idx[, $chan])
+# returns $chan delay for $idx
+# returns "" if $chan is 'global' or undef
+# case insensitive about the $chan
+sub get_friends_delay {
+	my ($idx, $chan) = @_;
+	$chan = lc($chan);
+	if ($chan && $chan ne "global") {
+		foreach my $friendschan (get_friends_channels($idx)) {
+			if ($chan eq lc($friendschan)) {
+				return undef if ($friends[$idx]->{channels}->{$friendschan}->{delay} eq '');
+				return $friends[$idx]->{channels}->{$friendschan}->{delay};
+			}
+		}
+	}
+	return;
+}
+
+# struct friend new_friend($handle, $hoststr, $globflags, $chanflagstr, $password, $comment)
+# hoststr is: *!foo@host1 *!bar@host2 *!?baz@host3
+# chanstr is: #chan1,flags,delay #chan2,flags,delay
+sub new_friend {
+	my $friend = {};
+	my $idx = scalar(@friends);
+	$friend->{handle} = $_[0];
+	$all_handles->{lc($_[0])} = $idx;
+	$friend->{globflags} = $_[2];
+	$friend->{password} = $_[4];
+	$friend->{comment} = $_[5];
+	$friend->{friends} = [];
+
+	foreach my $host (split(/ +/, $_[1])) {
+		my $regexp_host = userhost_to_regexp($host);
+		my ($firstalpha) = $host =~ /\@(.)/;
+		$firstalpha = lc($firstalpha);
+
+		$friend->{hosts}->{$host} = $regexp_host;
+		$friend->{regexp_hosts}->{$regexp_host} = $host;
+		$all_regexp_hosts->{allhosts}->{$regexp_host} = lc($_[0]);
+		$all_regexp_hosts->{$firstalpha}->{$regexp_host} = lc($_[0]);
+		$all_hosts->{$host} = lc($_[0]);
+	}
+
+	foreach my $cfd (split(/ +/, $_[3])) {
+		# $cfd format: #foobar,oikl,15 (channelname,flags,delay)
+		my ($channel, $flags, $delay) = split(",", $cfd, 3);
+		$friend->{channels}->{$channel}->{exist} = 1;
+		$friend->{channels}->{$channel}->{flags} = $flags;
+		$friend->{channels}->{$channel}->{delay} = $delay;
+	}
+
+	return $friend;
+}
+
+# get_regexp_hosts_by_letter($letter)
+# returns those regexp masks whose host part begins with $letter, '?' or '*'
+sub get_regexp_hosts_by_letter($) {
+	my $l = lc(substr($_[0], 0, 1));
+	my @tmphosts = ();
+	push(@tmphosts, keys(%{$all_regexp_hosts->{$l}}));
+	push(@tmphosts, keys(%{$all_regexp_hosts->{'?'}}));
+	push(@tmphosts, keys(%{$all_regexp_hosts->{'*'}}));
+	return @tmphosts;
+}
+
+# bool is_allowed_flag($flag)
+# will be obsolete, soon.
+sub is_allowed_flag { return 1; }
+
+# bool is_ctcp_command($command)
+# check if $command is one of the implemented ctcp commands
+sub is_ctcp_command {
+	my ($command) = @_;
+	$command = uc($command);
+	foreach my $allowed (split(/[,\ \|]+/, uc(Irssi::settings_get_str('friends_ctcp_commands')))) {
+		return 1 if ($command eq $allowed);
+	}
+	return 0;
+}
+
+# int get_idx($nick, $userhost)
+# returns idx of the friend or -1 if not a friend
+# The New Approach (TM) :)
+sub get_idx($$) {
+	my ($nick, $userhost) = @_;
+	$userhost = lowercase_hostpart($nick.'!'.$userhost);
+	my ($letter) = $userhost =~ /\@(.)/;
+	my $idx = -1;
+
+	foreach my $regexp_host (get_regexp_hosts_by_letter($letter)) {
+		if ($userhost =~ /^$regexp_host$/) {
+			return get_idxbyhand($all_regexp_hosts->{allhosts}->{$regexp_host});
+		}
+	}
+
+	return -1;
+}
+
+# int get_idxbyhand($handle)
+# returns $idx of friend with $handle or -1 if no such handle
+# case insensitive
+sub get_idxbyhand($) {
+	my $handle = lc($_[0]);
+	if (exists $all_handles->{$handle}) {
+		return $all_handles->{$handle};
+	}
+	return -1;
+}
+
+# int get_handbyidx($idx)
+# returns $handle of friend with $idx or undef if no such $idx
+# case sensitive
+sub get_handbyidx($) {
+	my ($idx) = @_;
+	return undef unless ($idx > -1 && $idx < scalar(@friends));
+	return $friends[$idx]->{handle};
+}
+
+# bool friend_has_host($idx, $host)
+# checks wheter $host matches any of $friend[$idx]'s hostmasks
+# The New Approach (TM)
+sub friend_has_host($$) {
+	my ($idx, $host) = @_;
+	$host = lowercase_hostpart($host);
+	foreach my $regexp_host (keys (%{$friends[$idx]->{regexp_hosts}})) {
+		return 1 if ($host =~ /^$regexp_host$/);
+	}
+	return 0;
+}
+
+# void add_host($idx, $host)
+# adds $host wherever it's needed
+# $friends[$idx]->{handle} is A MUST for add_host() to work properly.
+sub add_host($$) {
+	my ($idx, $host) = @_;
+	my $regexp_host = userhost_to_regexp($host);
+	my ($firstalpha) = $host =~ /\@(.)/;
+	$firstalpha = lc($firstalpha);
+
+	$friends[$idx]->{hosts}->{$host} = $regexp_host;
+	$friends[$idx]->{regexp_hosts}->{$regexp_host} = $host;
+	$all_regexp_hosts->{allhosts}->{$regexp_host} = lc($friends[$idx]->{handle});
+	$all_regexp_hosts->{$firstalpha}->{$regexp_host} = lc($friends[$idx]->{handle});
+	$all_hosts->{$host} = lc($friends[$idx]->{handle});
+}
+
+# int del_host($idx, $host)
+# deletes $host from wherever it is
+# if given $host arg is '*', removes all hosts of this friend
+sub del_host($$) {
+	my ($idx, $host) = @_;
+	my $deleted = 0;
+
+	foreach my $regexp_host (keys (%{$friends[$idx]->{regexp_hosts}})) {
+		if ($host eq '*' || $host =~ /^$regexp_host$/) {
+			my $plain_host = $friends[$idx]->{regexp_hosts}->{$regexp_host};
+			my ($l) = $plain_host =~ /\@(.)/;
+
+			delete $friends[$idx]->{hosts}->{$plain_host};
+			delete $friends[$idx]->{regexp_hosts}->{$regexp_host};
+			delete $all_regexp_hosts->{allhosts}->{$regexp_host};
+			delete $all_regexp_hosts->{$l}->{$regexp_host};
+			delete $all_hosts->{$plain_host};
+			$deleted++;
+		}
+	}
+	return $deleted;
+}
+
+# bool friend_has_chanrec($idx, $chan)
+# checks wheter $friend[$idx] has a $chan record
+# case insensitive
+sub friend_has_chanrec {
+	my ($idx, $chan) = @_;
+	$chan = lc($chan);
+	foreach my $friendschan (get_friends_channels($idx)) {
+		return 1 if ($chan eq lc($friendschan));
+	}
+	return 0;
+}
+
+# bool add_chanrec($idx, $chan)
+# adds an empty $chan record to $friends[$idx]
+# case sensitive
+sub add_chanrec {
+	my ($idx, $chan) = @_;
+	return 0 unless ($idx > -1 && $idx < scalar(@friends));
+	$friends[$idx]->{channels}->{$chan}->{exist} = 1;
+	return 1;
+}
+
+# bool del_chanrec($idx, $chan)
+# deletes $chan record from $friends[$idx]
+# case *in*sensitive
+sub del_chanrec {
+	my ($idx, $chan) = @_;
+	my $deleted = 0;
+	foreach my $friendschan (get_friends_channels($idx)) {
+		if (lc($chan) eq lc($friendschan)) {
+			delete $friends[$idx]->{channels}->{$friendschan};
+			$deleted = 1;
+		}
+	}
+	return $deleted;
+}
+
+# arr del_friend($idxs)
+# removes friends
+# removes all hosts corresponding to this friend
+# returns array of removed friends
+sub del_friend($) {
+	my ($idxlist) = @_;
+	my @idxs = split(/ /, $idxlist);
+	return -1 unless (scalar(@idxs) > 0);
+	my @tmp = ();
+	my @result = ();
+	my @todelete = ();
+
+	foreach my $idx (@idxs) {
+		my $handle = get_handbyidx($idx);
+		if (!(!defined $handle || grep(/^\Q$handle\E$/i, @todelete))) {
+			push(@todelete, $handle);
+			del_host($idx, '*');
+		}
+	}
+	for (my $idx = 0; $idx < @friends; $idx++) {
+		if (grep(/^\Q$friends[$idx]->{handle}\E$/i, @todelete)) {
+			push(@result, $friends[$idx]);
+		} else {
+			push(@tmp, $friends[$idx]);
+		}
+	}
+	@friends = @tmp;
+	update_allhandles();
+	return @result;
+}
+
+# void update_all_handles()
+# updates $all_handles
+sub update_allhandles {
+	$all_handles = {};
+	for (my $idx = 0; $idx < @friends; $idx++) {
+		$all_handles->{lc($friends[$idx]->{handle})} = $idx
+	}
+}
+
+# bool is_unique_handle($handle)
+# checks if the $handle is unique for the whole friendlist
+# returns 1 if there's no such $handle
+# returns 0 if there is one.
+sub is_unique_handle($) {
+	return !exists $all_handles->{lc($_[0])};
+}
+
+# str choose_handle($proposed)
+# tries to choose a handle, closest to the $proposed one
+sub choose_handle {
+	my ($proposed) = @_;
+	my $counter = 0;
+	my $handle = $proposed;
+
+	# do this until we have an unique handle
+	while (!is_unique_handle($handle)) {
+		if (($handle !~ /([0-9]+)$/) && !$counter) {
+			# first, if handle doesn't end with a digit, append '2'
+			# (but only in first step)
+			$handle .= "2";
+		} elsif ($counter < 85) {
+			# later, increase the trailing number by one
+			# do that 84 times
+			my ($number) = $handle =~ /([0-9]+)$/;
+			++$number;
+			$handle =~ s/([0-9]+)$/$number/;
+		} elsif ($counter == 85) {
+			# then, if it didn't helped, make $handle = $proposed."_"
+			$handle = $proposed . "_";
+		} elsif ($counter < 90) {
+			# if still unsuccessful, append "_" to the handle
+			# do that 4 times
+			$handle .= "_";
+		} else {
+			# if THAT didn't help -- make some silly handle
+			# and exit the loop
+			$handle = $proposed.'_'.(join '', (0..9, 'a'..'z')[rand 36, rand 36, rand 36, rand 36]);
+			last;
+		}
+		++$counter;
+	}
+
+	# return our glorious handle ;-)
+	return $handle;
+}
+
+# bool friend_has_flag($idx, $flag[, $chan])
+# returns true if $friends[$idx] has $flag for $chan
+# (checks global flags, if $chan is 'global' or undef)
+# returns false if hasn't
+# case sensitive about the FLAG
+# case insensitive about the chan.
+sub friend_has_flag {
+	my ($idx, $flag, $chan) = @_;
+	$chan = "global" unless ($chan ne '');
+
+	return 1 if (get_friends_flags($idx, $chan) =~ /\Q$flag\E/);
+	return 0;
+}
+
+# bool friend_is_wrapper($idx, $chan, $goodflag, $badflag)
+# something to replace friend_is_* subs
+# true on: ($channel +$goodflag OR global +$goodflag) AND ($badflag == "" OR NOT $channel +$badflag))
+sub friend_is_wrapper($$$$) {
+	my ($idx, $chan, $goodflag, $badflag) = @_;
+	return 0 unless ($idx > -1);
+	if ((friend_has_flag($idx, $goodflag, $chan) ||
+		 friend_has_flag($idx, $goodflag, undef)) && 
+		($badflag eq "" || !friend_has_flag($idx, $badflag, $chan))) {
+		return 1;
+	}
+	return 0;
+}
+
+# bool add_flag($idx, $flag[, $chan])
+# adds $flag to $idx's $chan flags
+# $chan can be 'global' or undef
+# case insensitive about the $chan -- chooses the proper case.
+# returns 1 on success
+sub add_flag {
+	my ($idx, $flag, $chan) = @_;
+	$chan = lc($chan);
+	if ($chan eq "" || $chan eq "global") {
+		$friends[$idx]->{globflags} .= $flag;
+		return 1;
+	} else {
+		foreach my $friendschan (get_friends_channels($idx)) {
+			if ($chan eq lc($friendschan)) {
+				$friends[$idx]->{channels}->{$friendschan}->{flags} .= $flag;
+				return 1;
+			}
+		}
+	}
+	return 0;
+}
+
+# bool del_flag($idx, $flag[, $chan])
+# removes $flag from $idx's $chan flags
+# $chan can be 'global' or undef
+# case insensitive about the $chan -- chooses the proper case.
+sub del_flag {
+	my ($idx, $flag, $chan) = @_;
+	$chan = lc($chan);
+	if ($chan eq "" || $chan eq "global") {
+		$friends[$idx]->{globflags} =~ s/\Q$flag\E//g;
+		return 1;
+	} else {
+		foreach my $friendschan (get_friends_channels($idx)) {
+			if ($chan eq lc($friendschan)) {
+				$friends[$idx]->{channels}->{$friendschan}->{flags} =~ s/\Q$flag\E//i;
+				return 1;
+			}
+		}
+	}
+	return 0;
+}
+
+# bool change_delay($idx, $delay, $chan)
+# alters $idx's delay time for $chan
+# fails if $chan is 'global' or undef
+sub change_delay {
+	my ($idx, $delay, $chan) = @_;
+	$chan = lc($chan);
+	if ($chan && $chan ne "global") {
+		foreach my $friendschan (get_friends_channels($idx)) {
+			if ($chan eq lc($friendschan)) {
+				$friends[$idx]->{channels}->{$friendschan}->{delay} = $delay;
+				return 1;
+			}
+		}
+	}
+	return 0;
+}
+
+# void list_friend($window, $who, @data)
+# prints an info line about certain friend.
+# $who may be handle or idx
+# if you want to improve the look of the script, you should
+# change /format friends_*, probably.
+sub list_friend {
+	my ($win, $who, @data) = @_;
+	my $idx = $who;
+
+	$idx = get_idxbyhand($who) unless ($who =~ /^[0-9]+$/);
+
+	return unless ($idx > -1 && $idx < scalar(@friends));
+
+	my $globflags = get_friends_flags($idx, undef);
+
+	$win = Irssi::active_win() unless ($win);
+
+	$win->printformat(MSGLEVEL_CRAP, 'friends_line_head',
+		$idx,
+		get_handbyidx($idx),
+		(($globflags) ? "$globflags" : "[none]"),
+		(($friends[$idx]->{password}) ? "yes" : "no"));
+
+	$win->printformat(MSGLEVEL_CRAP, 'friends_line_hosts',
+		join(", ", get_friends_hosts($idx, $friends_PLAIN_HOSTS)) );
+
+	foreach my $chan (get_friends_channels($idx)) {
+		my $flags = get_friends_flags($idx, $chan);
+		my $delay = get_friends_delay($idx, $chan);
+		$win->printformat(MSGLEVEL_CRAP, 'friends_line_chan', 
+			$chan,
+			(($flags) ? "$flags" : "[none]"),
+			(defined($delay) ? "$delay" : "random"));
+	}
+
+	if ($friends[$idx]->{comment}) {
+		$win->printformat(MSGLEVEL_CRAP, 'friends_line_comment', $friends[$idx]->{comment});
+	}
+
+	for my $item (@data) {
+		my ($ircnet, $nick, $chanstr) = split(" ", $item);
+		next unless (defined $ircnet);
+		$win->printformat(MSGLEVEL_CRAP, 'friends_line_currentnick', $nick, $ircnet) if ($nick ne '');;
+		$win->printformat(MSGLEVEL_CRAP, 'friends_line_channelson', join(", ", split(/,/, $chanstr)), $ircnet) if ($chanstr ne '');
+	}
+}
+
+# void add_operation($server, "#channel", "op|voice|deop|devoice|kick|kickban", timeout, "nick1", "nick2", ...)
+# adds a delayed (or not) operation
+sub add_operation {
+	my ($server, $channel, $operation, $timeout, @nicks) = @_;
+
+	# my dear queue, don't grow too big, mmkay? ;^)
+	my $maxsize = Irssi::settings_get_int('friends_max_queue_size');
+	$maxsize = $default_friends_max_queue_size unless ($maxsize > 0);
+	return if (@operationQueue >= $maxsize);
+
+	push(@operationQueue,
+	{
+		server=>$server,		# server object
+		left=>$timeout,			# seconds left
+		nicks=>[ @nicks ],		# array of nicks
+		channel=>$channel,		# channel name
+		operation=>$operation	# operation ("op", "voice" and so on)
+	});
+
+	$timerHandle = Irssi::timeout_add(1000, 'timer_handler', 0) unless (defined $timerHandle);
+}
+
+# void timer_handler()
+# handles delay timer
+sub timer_handler {
+	my @ops = ();
+
+	# splice out expired timeouts. if they are expired, move them to
+	# local ops-queue. this allows creating new operations to the queue
+	# in the operation. (we're not (yet) doing that)
+
+	for (my $c = 0; $c < @operationQueue;) {
+		if ($operationQueue[$c]->{left} <= 0) {
+			push(@ops, splice(@operationQueue, $c, 1));
+		} else {
+			++$c;
+		}
+	}
+
+	for (my $c = 0; $c < @ops; ++$c) {
+		my $op = $ops[$c];
+		my $channel = $op->{server}->channel_find($op->{channel});
+
+		# check if $channel is still active (you might've parted)
+		if ($channel) {
+			my @operationNicks = ();
+			foreach my $nickStr (@{$op->{nicks}}) {
+				my $nick = $channel->nick_find($nickStr);
+				# check if there's still such nick (it might've quit/parted)
+				if ($nick) {
+					if ($op->{operation} eq "op" && !$nick->{op}) {
+						push(@operationNicks, $nick->{nick});
+					}
+					if ($op->{operation} eq "voice" && !$nick->{voice} &&
+						(!$nick->{op} || Irssi::settings_get_bool('friends_voice_opped'))) {
+						push(@operationNicks, $nick->{nick});
+					}
+					if ($op->{operation} eq "deop" && $nick->{op}) {
+						push(@operationNicks, $nick->{nick});
+					}
+					if ($op->{operation} eq "devoice" && $nick->{voice}) {
+						push(@operationNicks, $nick->{nick});
+					}
+					if ($op->{operation} eq "kick") {
+						push(@operationNicks, $nick->{nick});
+					}
+					if ($op->{operation} eq "kickban") {
+						push(@operationNicks, $nick->{nick});
+					}
+				}
+			}
+			# final stage: issue desired command if we're a chanop
+			$channel->command($op->{operation}." ".join(" ", @operationNicks)) if ($channel->{chanop});
+		}
+	}
+
+	# decrement timeouts.
+	for (my $c = 0; $c < @operationQueue; ++$c) {
+		--$operationQueue[$c]->{left};
+	}
+
+	# if operation queue is empty, remove timer.
+	if (!@operationQueue && $timerHandle) {
+		Irssi::timeout_remove($timerHandle);
+		$timerHandle = undef;
+	}
+}
+
+# str replace_home($string)
+# replaces '~' with current $ENV{HOME}
+sub replace_home($) {
+	my ($string) = @_;
+	my $home = $ENV{HOME};
+	return undef unless ($string);
+	$string =~ s/^\~/$home/;
+	return $string;
+}
+
+# void load_friends($inputfile)
+# loads friends from file. uses $inputfile if supplied.
+# if not, uses friends_file setting. if this setting is empty,
+# uses default -- $friends_file
+sub load_friends {
+	my ($inputfile) = @_;
+	my $friendfile = undef;
+
+	if (defined($inputfile)) {
+		$friendfile = replace_home($inputfile);
+	} else {
+		$friendfile = replace_home(Irssi::settings_get_str('friends_file'));
+	}
+
+	$friendfile = $default_friends_file unless (defined $friendfile);
+
+	if (-e $friendfile && -r $friendfile) {
+		@friends = ();
+		$all_hosts = {};
+		$all_regexp_hosts = {};
+		$all_handles = {};
+
+		local *F;
+		open(F, "<$friendfile") or return -1;
+		local $/ = "\n";
+		while (<F>) {
+			my ($handle, $hosts, $globflags, $chanstr, $password, $comment);
+			chop;
+
+			# dealing with empty lines
+			next if (/^[\w]*$/);
+
+			# dealing with comments
+			if (/^\#/) {
+				# script version
+				if (/^\# version = (.+)/) { $friends_file_version = $1; }
+				# timestamp
+				if (/^\# written = ([0-9]+)/) { $friends_file_written = $1; }
+				next;
+			}
+
+			# split by '%'
+			my @fields = split("%", $_);
+			foreach my $field (@fields) {
+				if ($field =~ /^handle=(.*)$/) { $handle = $1; }
+				elsif ($field =~ /^hosts=(.*)$/) { $hosts = $1; }
+				elsif ($field =~ /^globflags=(.*)$/) { $globflags = $1; }
+				elsif ($field =~ /^chanflags=(.*)$/) { $chanstr = $1; }
+				elsif ($field =~ /^password=(.*)$/) { $password = $1; }
+				elsif ($field =~ /^comment=(.*)$/) { $comment = $1; }
+			}
+
+			# handle cannot start with a digit
+			# skip friend if it does
+			next if ($handle =~ /^[0-9]/);
+
+			# if all fields were processed, and $handle is unique,
+			# make a friend and add it to $friends
+			if (is_unique_handle($handle)) {
+				push(@friends, new_friend($handle, $hosts, $globflags, $chanstr, $password, $comment));
+			} else {
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_duplicate', $handle);
+			}
+		}
+
+		close(F);
+
+		# if everything's ok -- print a message
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_loaded', scalar(@friends), $friendfile);
+	} else {
+		# whoops, bail out, but do not clear the friendlist.
+		Irssi::print("Cannot load $friendfile");
+	}
+}
+
+# void cmd_loadfriends($data, $server, $channel)
+# handles /loadfriends [file]
+sub cmd_loadfriends {
+	my ($file) = split(/ +/, $_[0]);
+	load_friends($file);
+}
+
+# void save_friends($auto)
+# saving friends to file
+sub save_friends {
+	my ($auto, $inputfile) = @_;
+	local *F;
+	my $friendfile = undef;
+	my $backup_suffix = Irssi::settings_get_str('friends_backup_suffix');
+	$backup_suffix = "." . time if ($backup_suffix eq '');
+
+	if (defined $inputfile) {
+		$friendfile = replace_home($inputfile);
+	} else {
+		$friendfile = replace_home(Irssi::settings_get_str('friends_file'));
+	}
+	$friendfile = $default_friends_file unless (defined $friendfile);
+
+	my $backupfile = $friendfile . $backup_suffix;
+	my $tmpfile = $friendfile . ".tmp" . time;
+
+	# be sane
+	my $old_umask = umask(077);
+
+	if (!defined open(F, ">$tmpfile")) {
+		Irssi::print("Couldn't open $tmpfile for writing");
+		return 0;
+	}
+
+	# write script's version and update corresponding variable
+	$friends_file_version = $friends_version;
+	print(F "# version = $friends_file_version\n");
+	# write current unixtime and update corresponding variable
+	$friends_file_written = time;
+	print(F "# written = $friends_file_written\n");
+
+	# go through all entries
+	for (my $idx = 0; $idx < @friends; ++$idx) {
+		# get friend's channels, corresponding flags and delay values
+		# then put them as c,f,d fields into @chanstr
+		my @chanstr = ();
+		foreach my $chan (get_friends_channels($idx)) {
+			$chan =~ s/\%//g;
+			push(@chanstr, $chan.",".(get_friends_flags($idx, $chan)).",".
+				(get_friends_delay($idx, $chan)));
+		}
+
+		# write the actual line
+		print(F join("%",
+			"handle=".get_handbyidx($idx),
+			"hosts=".(join(" ", get_friends_hosts($idx, $friends_PLAIN_HOSTS))),
+			"globflags=".(get_friends_flags($idx, undef)),
+			"chanflags=".(join(" ", @chanstr)),
+			"password=".$friends[$idx]->{password},
+			"comment=".$friends[$idx]->{comment},
+			"\n"));
+	}
+	# done.
+
+	close(F);
+
+	rename($friendfile, $backupfile) if (Irssi::settings_get_bool('friends_backup_friendlist'));
+	rename($tmpfile, $friendfile);
+
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_saved', scalar(@friends), $friendfile) unless ($auto);
+
+	# restore umask
+	umask($old_umask);
+}
+
+# void cmd_savefriends($data, $server, $channel)
+# handles /savefriends [filename]
+sub cmd_savefriends {
+	my ($file) = split(/ +/, $_[0]);
+	eval {
+		save_friends(0, $file);
+	};
+	Irssi::print("Saving friendlist failed: $?") if ($?);
+}
+
+# void event_setup_saved($config, $auto)
+# calls save_friends to save friendslist while saving irssi's setup
+# (if friends_autosave is turned on)
+sub event_setup_saved {
+	my ($config, $auto) = @_;
+	return unless (Irssi::settings_get_bool('friends_autosave'));
+	eval {
+		save_friends($auto);
+	};
+	Irssi::print("Saving friendlist failed: $?") if ($?);
+}
+
+# void event_setup_reread($config)
+# calls load_friends() while setup is re-readed
+# (if friends_autosave is turned on)
+sub event_setup_reread {
+	load_friends() if (Irssi::settings_get_bool('friends_autosave'));
+}
+
+# int calculate_delay($idx, $chan)
+# calculates delay
+sub calculate_delay {
+	my ($idx, $chan) = @_;
+	my $delay = get_friends_delay($idx, $chan);
+	my $min = Irssi::settings_get_int('friends_delay_min');
+	my $max = Irssi::settings_get_int('friends_delay_max');
+
+	# lazy man's sanity checks :-P
+	$min = $default_delay_min if $min < 0;
+	$max = $default_delay_max if $min > $max;
+	$max = $max + $min if $min > $max;
+
+	# make a random delay unless we've got a fixed delay time already
+	$delay = int(rand ($max - $min)) + $min unless ($delay =~ /^[0-9]+$/);
+
+	return $delay;
+}
+
+# void check_friends($server, $channelstr, $options, @nickstocheck)
+# checks the given nicklist, channelname and server against the friendlist
+sub check_friends {
+	my ($server, $channelName, $options, @nicks) = @_;
+	my $channel = $server->channel_find($channelName);
+	my $delay = 30;
+	my %opList = ();
+	my %voiceList = ();
+
+	# server and channel -- a must.
+	return unless ($server && $channelName);
+
+	# proper !channels support, hopefully
+	my $noPrefix = $channelName;
+	$noPrefix = '!' . substr($channelName, 6) if ($channelName =~ /^\!/);
+
+	# get settings
+	my $voice_opped = Irssi::settings_get_bool('friends_voice_opped');
+
+	# for each nick from the given list
+	foreach my $nick (@nicks) {
+		# check if $nick is a friend
+		if ((my $idx = get_idx($nick->{nick}, $nick->{host})) > -1) {
+
+			# notify about the join if "showjoins" is set
+			if ($options =~ /showjoins/) {
+				my $globflags = get_friends_flags($idx, undef);
+				my $chanflags = get_friends_flags($idx, $noPrefix);
+
+				my $win = $server->window_item_find($channelName);
+				$win = Irssi::active_win() unless ($win);
+				$win->printformat(MSGLEVEL_CRAP, 'friends_joined',
+					$nick->{nick},
+					get_handbyidx($idx),
+					($globflags) ? $globflags : "[none]",
+					$noPrefix,
+					($chanflags) ? $chanflags : "[none]");
+			}
+
+			# notice1: password doesn't matter in this loop
+			# notice2: channel flags take precedence over the global ones
+
+			# handle auto-(op|voice)
+			if (friend_is_wrapper($idx, $noPrefix, "a", undef)) {
+				# add $nick to opList{delay} if he is a valid op
+				# and isn't opped already
+				# 'valid op' means: (chanflag +o OR globflag +o) AND NOT chanflag +d
+				if (friend_is_wrapper($idx, $noPrefix, "o", "d") && !$nick->{op}) {
+					# calculate delay, add to $opList{$delay}
+					$delay = calculate_delay($idx, $noPrefix);
+					$opList{$delay}->{$nick->{nick}} = 1;
+				}
+				# add $nick to voiceList{delay} if he is a valid voice
+				# and isn't voiced already
+				if (friend_is_wrapper($idx, $noPrefix, "v", undef) && !$nick->{voice} &&
+					(!$nick->{op} || $voice_opped)) {
+					# calculate delay, add to $voiceList{$delay}
+					$delay = calculate_delay($idx, $noPrefix);
+					$voiceList{$delay}->{$nick->{nick}} = 1;
+				}
+			}
+		}
+	}
+
+	# opping
+	foreach my $delay (keys %opList) {
+		add_operation($server, $channelName, "op", $delay, keys %{$opList{$delay}});
+	}
+	# voicing
+	foreach my $delay (keys %voiceList) {
+		add_operation($server, $channelName, "voice", $delay, keys %{$voiceList{$delay}});
+	}
+
+	timer_handler();
+}
+
+# void event_kick($server, $data, $nick)
+# handles kicks (for revenging)
+sub event_kick {
+	my ($server, $data, $kicker) = @_;
+	my ($channel, $kicked, $reason) = $data =~ /^([^ ]+) ([^ ]+) :(.*)$/;
+	my $channelInfo = $server->channel_find($channel);
+	my $myNick = $server->{nick};
+	my $victimInfo = undef;
+	my $kickerInfo = undef;
+	my $victimIdx = -1;
+	my $kickerIdx = -1;
+	my $noPrefix = $channel;
+	$noPrefix = '!' . substr($channel, 6) if ($channel =~ /^\!/);
+
+	return unless ($channelInfo);
+
+	# don't bother checking our own kicks, or self-kicks
+	return if ($kicker eq $myNick || $kicker eq $kicked);
+
+	$victimInfo = $channelInfo->nick_find($kicked);
+	$kickerInfo = $channelInfo->nick_find($kicker);
+	# we'll need both
+	return unless ($victimInfo && $kickerInfo);
+
+	$victimIdx = get_idx($victimInfo->{nick}, $victimInfo->{host});
+	$kickerIdx = get_idx($kickerInfo->{nick}, $kickerInfo->{host});
+
+	# check if we know the victim, and it wasn't a master who deopped
+	if ($victimIdx > -1 && !friend_is_wrapper($kickerIdx, $noPrefix, "m", undef)) {
+		# RRRRREVENGE!
+		my $revengemode = Irssi::settings_get_int('friends_revenge_mode');
+		if (Irssi::settings_get_bool('friends_revenge') && ($revengemode > -1 && $revengemode < 4) &&
+		    friend_is_wrapper($victimIdx, $noPrefix, "p", undef)) {
+			# 0 Deop the user.
+			add_operation($server, $channel, "deop", 1, $kicker);
+			if ($revengemode > 0) {
+				# 1 Deop the user and give them the +D flag for the channel.
+				if ($kickerIdx < 0) {
+					push(@friends, new_friend(
+						choose_handle("bad1"),		# handle
+						"*!".$kickerInfo->{host}, 	# hostmask
+						undef,				# globflags
+						$noPrefix.",D,",		# channel,chanflags,chandelay
+						undef,				# password
+						"Kicked ".get_handbyidx($victimIdx)." off $noPrefix on $server->{tag}"));
+				} else {
+					friends_chflags($kickerIdx, "+D", $noPrefix);
+				}
+				if ($revengemode > 1 && $channelInfo->{chanop}) {
+					# 2 Deop the user, give them the +D flag for the channel, and kick them.
+					$channelInfo->command("KICK ". $channel . " ".$kicker. " Don't mess with my friends[.pl]");
+					if ($revengemode > 2) {
+						# 3 Deop the user, give them the +D flag for the channel, kick, and ban them.
+						$channelInfo->command("MODE ". $channel ." +b *!".$kickerInfo->{host});
+					}
+				}
+			}
+		}
+	}
+}
+
+# void event_modechange($server, $data, $nick)
+# handles modechanges and learning
+sub event_modechange {
+	my ($server, $data, $nick) = @_;
+	my ($channel, $modeStr, $nickStr) = $data =~ /^([^ ]+) ([^ ]+) (.*)$/;
+	my @modeargs = split(" ", $nickStr);
+	my $ptr = 0;
+	my $mode = undef;
+	my $gotOpped = 0;
+	my $learnFriends = Irssi::settings_get_bool('friends_learn');
+	my $opperInfo = undef;
+	my $opperIdx = -1;
+	my $learnFromOpper = 0;
+	my $channelInfo = $server->channel_find($channel);
+	my $myNick = $server->{nick};
+	# !channels support :)
+	my $noPrefix = $channel;
+	$noPrefix = '!' . substr($channel, 6) if ($channel =~ /^\!/);
+
+	# don't bother checking our own modes
+	return if ($nick eq $myNick);
+
+	# we need $channelInfo to do almost every other things;
+	return unless (defined $channelInfo);
+
+	$opperInfo = $channelInfo->nick_find($nick);
+	$opperIdx = get_idx($opperInfo->{nick}, $opperInfo->{host}) if ($opperInfo);
+
+	# learn if learning is enabled, 
+	# we know the opper, and we're allowed to learn from him
+	if ($learnFriends && $opperIdx > -1 &&
+	    (friend_is_wrapper($opperIdx, $noPrefix, "F", undef))) {
+		$learnFromOpper = 1;
+	}
+
+	# process the mode string
+	foreach my $char (split(//, $modeStr)) {
+
+		if ($char eq "+") { $mode = "+";
+		} elsif ($char eq "-") { $mode = "-";
+
+		# op/deop, it wasn't a self-op/deop
+		} elsif (lc($char) eq "o" && ($nick ne $modeargs[$ptr])) {
+			my $victim = $channelInfo->nick_find($modeargs[$ptr]);
+			my $victimIdx = -1;
+			$victimIdx = get_idx($victim->{nick}, $victim->{host}) if ($victim);
+
+			# someone +o foobar
+			if ($mode eq "+") {
+				# hooray, i got opped!
+				if ($modeargs[$ptr] eq $myNick) {
+					$gotOpped = 1;
+				# should learn?
+				} elsif ($learnFromOpper && $victim) {
+					# handle the learning stuff.
+					my $friend;
+
+					if ($victimIdx == -1) {
+						# we got someone not known before
+						# choose a handle for him and add him to our friendlist with +L $noPrefix
+						$friend = new_friend(
+							choose_handle($modeargs[$ptr]),		# handle
+							"*!".$victim->{host}, 			# hostmask
+							undef,					# globflags
+							$noPrefix.",L,",			# channel,chanflags,chandelay
+							undef,					# password
+							"Learnt (opped by $friends[$opperIdx]->{handle} on $noPrefix\@$server->{tag})"	# comment
+						);
+						push(@friends, $friend);
+					} else {
+						# we know him already
+						$friend = $friends[$victimIdx];
+					}
+
+					if ($victimIdx == -1 || get_friends_flags($victimIdx, $noPrefix) eq "L") {
+						# add him to the opper's friendlist
+						# ($opperIdx != -1, we've checked that with $learnFromOpper earlier)
+						push(@{$friends[$opperIdx]->{friends}}, $friend);
+					}
+
+				} elsif (friend_is_wrapper($victimIdx, $noPrefix, "D", undef) && !friend_is_wrapper($opperIdx, $noPrefix, "m", undef)) {
+					add_operation($server, $channel, "deop", 1, $modeargs[$ptr]);
+				}
+
+			# deop
+			} elsif ($mode eq "-") {
+				if ($victim) {
+					# check if we know the victim, and it wasn't a master who deopped
+					if ($victimIdx > -1 && !friend_is_wrapper($opperIdx, $noPrefix, "m", undef)) {
+						# RRRRREVENGE!
+						my $revengemode = Irssi::settings_get_int('friends_revenge_mode');
+						if (Irssi::settings_get_bool('friends_revenge') && ($revengemode > -1 && $revengemode < 4) &&
+						    friend_is_wrapper($victimIdx, $noPrefix, "p", undef)) {
+							# 0 Deop the user.
+							add_operation($server, $channel, "deop", 1, $nick);
+							if ($revengemode > 0 && $opperInfo) {
+								# 1 Deop the user and give them the +D flag for the channel.
+								if ($opperIdx < 0) {
+									push(@friends, new_friend(
+										choose_handle("bad1"),		# handle
+										"*!".$opperInfo->{host}, 	# hostmask
+										undef,				# globflags
+										$noPrefix.",D,",		# channel,chanflags,chandelay
+										undef,				# password
+										"Deopped ".get_handbyidx($victimIdx)." on $noPrefix\@$server->{tag}"));
+								} else {
+									friends_chflags($opperIdx, "+D", $noPrefix);
+								}
+
+								if ($revengemode > 1 && $channelInfo->{chanop}) {
+									# 2 Deop the user, give them the +D flag for the channel, and kick them.
+									$channelInfo->command("KICK ". $channel . " ".$opperInfo->{nick}. " Don't mess with my friends[.pl]");
+									if ($revengemode > 2) {
+										# 3 Deop the user, give them the +D flag for the channel, kick, and ban them.
+										$channelInfo->command("MODE ". $channel ." +b *!".$opperInfo->{host});
+									}
+								}
+							}
+						}
+						# if a +r'ed person was deopped, perform a reop
+						if (friend_is_wrapper($victimIdx, $noPrefix, "r", "d")) {
+							add_operation($server, $channel, "op", calculate_delay($victimIdx, $channel), $modeargs[$ptr])
+						}
+					}
+				}
+			}
+			# increase pointer, 'o' mode has argument, *always*
+			$ptr++;
+		} elsif ($char =~ /[beIqdhvk]/ || ($char eq "l" && $mode eq "+")) {
+			# increase pointer, these modes have arguments as well
+			$ptr++;
+		}
+	}
+
+	if ($gotOpped) {
+		# calling check_friends with !BLARHchannel, since removing BLARH is done there
+		check_friends($server, $channel, undef, $channelInfo->nicks());
+	}
+}
+
+# void event_massjoin($channel, $nicklist)
+# handles join event
+sub event_massjoin {
+	my ($channel, $nicksList) = @_;
+	my @nicks = @{$nicksList};
+	my $server = $channel->{'server'};
+	my $channelName = $channel->{name};
+	my $options;
+	$options = "showjoins|" if Irssi::settings_get_bool("friends_show_flags_on_join");
+
+	my $begin = time;
+
+	check_friends($server, $channelName, $options, @nicks);
+
+	if ((my $duration = time - $begin) >= 1) {
+		# if checking took more than 1 second -- print a message about it
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_checking', $channelName, $duration, $server->{address});
+	}
+}
+
+# void event_nicklist_changed($channel, $nick, $oldnick)
+# some kind of nick-tracking
+# alters operationQueue if someone from there has changed nick
+sub event_nicklist_changed {
+	my ($channel, $nick, $oldnick) = @_;
+
+	# nicknames are case insensitive
+	return if (lc($oldnick) eq lc($nick->{nick}));
+
+	# cycle through all operation queues
+	for (my $c = 0; $c < @operationQueue; ++$c) {
+		# temporary array
+		my @nickarr = ();
+		# is there any nick in this queue that needs altering?
+		my $found = 0;
+
+		# skip if tags don't match
+		next unless ($operationQueue[$c]->{server}->{tag} eq $channel->{server}->{tag});
+
+		# cycle through all nicks in single operation queue
+		foreach my $opnick (@{$operationQueue[$c]->{nicks}}) {
+			# if $oldnick was in the queue
+			if (lc($oldnick) eq lc($opnick)) {
+				# ... replace it with the new one
+				push(@nickarr, $nick->{nick});
+				$found = 1;
+			} else {
+				# ... else -- keep the old one
+				push(@nickarr, $opnick);
+			}
+		}
+
+		# replace $opQ[$c]->{nicks} with our new nicklist if any nick needed updating
+		$operationQueue[$c]->{nicks} = [ @nickarr ] if ($found);
+	}
+}
+
+# void event_server_disconnected($server, $anything)
+# removes all queues related to $server from @operationQueue
+sub event_server_disconnected {
+	my ($server, $anything) = @_;
+	my @removed = ();
+
+	# cycle through all operation queues
+	for (my $c = 0; $c < @operationQueue;) {
+		if ($operationQueue[$c]->{server}->{tag} eq $server->{tag}) {
+			push(@removed, splice(@operationQueue, $c, 1));
+		} else {
+			++$c;
+		}
+	}
+
+	# if operation queue is empty, remove the timer.
+	if (scalar(@removed) && !@operationQueue && $timerHandle) {
+		Irssi::timeout_remove($timerHandle);
+		$timerHandle = undef;
+	}
+}
+
+# void cmd_opfriends($data, $server, $channel)
+# handles /opfriends #channel
+sub cmd_opfriends {
+	my ($data, $server, $channel) = @_;
+	my ($chan) = split(/ +/, $data);
+	my $usage = "/OPFRIENDS [channel]";
+	my @chanstocheck = ();
+
+	if (!$server) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "No server item in current window");
+		return;
+	}
+
+	# no argument given
+	if ($chan eq "") {
+		if (!$channel) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "No usable channel item in current window");
+			return;
+		} elsif ($channel->{type} ne "CHANNEL") {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "Current window item is not a channel");
+			return;
+		} else {
+			push(@chanstocheck, $channel->{name});
+		}
+	# all channels on current server
+	} elsif ($chan eq "*") {
+		foreach my $c ($server->channels()) {
+			push(@chanstocheck, $c->{name});
+		}
+	# specified channel on current server
+	} else {
+		push(@chanstocheck, $chan);
+	}
+
+	foreach my $channelName (@chanstocheck) {
+		my $chanInfo = $server->channel_find($channelName);
+		if (!$chanInfo) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_notonchan', $channelName);
+			next;
+		}
+
+		# !channels support
+		my $noPrefix = $chanInfo->{name};
+		$noPrefix = '!' . substr($chanInfo->{name}, 6) if ($chanInfo->{name} =~ /^\!/);
+
+		my @opnicks = ();
+		foreach my $nick ($chanInfo->nicks()) {
+			# skip already opped nicks
+			next if ($nick->{op});
+			# check for friends
+			my $idx = get_idx($nick->{nick}, $nick->{host});
+			# skip not-friends
+			next unless ($idx > -1);
+			# add $nick's nick to oplist if enough flags for this channel
+			push(@opnicks, $nick->{nick}) if (friend_is_wrapper($idx, $noPrefix, "o", "d"));
+		}
+
+		# add stuff to the operation queue
+		add_operation($server, $noPrefix, "op", "0", @opnicks);
+	}
+
+	timer_handler();
+}
+
+# void cmd_queue($data, $server, $channel)
+# expands to queue show|purge|flush
+sub cmd_queue($$$) {
+	my ($data, $server, $channel) = @_;
+	Irssi::command_runsub("queue", $data, $server, $channel);
+}
+
+# bool queue_flush_expand(%what)
+# "... and few lines of The Magic Code. Now. Your poison is ready."
+sub queue_flush_expand {
+	my ($flush) = @_;
+	my $result = 0;
+
+	foreach my $s (keys(%{$flush})) {
+		# is this server active?
+		my $server = Irssi::server_find_tag($s);
+		next unless (defined $server);
+
+		foreach my $c (keys(%{$flush->{$s}})) {
+			# is this channel active?
+			my $channel = $server->channel_find($c);
+			next unless (defined $channel);
+
+			# for each pending operation
+			foreach my $o (sort keys(%{$flush->{$s}->{$c}})) {
+				my @nicklist = ();
+				foreach my $nickStr (sort keys(%{$flush->{$s}->{$c}->{$o}})) {
+					# is this nick still here?
+					if (my $nick = $channel->nick_find($nickStr)) {
+						push(@nicklist, $nick->{nick});
+					}
+				}
+
+				if (my $nickstr = join(" ", @nicklist)) {
+					$channel->command($o." ".$nickstr);
+					$result = 1;
+				}
+			}
+		}
+	}
+	return $result;
+}
+
+# void queue_show($data, $server, $channel)
+# handles /QUEUE SHOW
+# prints @operationQueue's contents
+sub cmd_queue_show {
+	if (!@operationQueue) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_empty');
+		return;
+	}
+
+	# cycle through all operation queues
+	for (my $c = 0; $c < @operationQueue; ++$c) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_line1', 
+			$c,
+			$operationQueue[$c]->{left},
+			$operationQueue[$c]->{operation}
+		);
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_line2', 
+			$operationQueue[$c]->{server}->{address},
+			$operationQueue[$c]->{channel},
+			join(", ", @{$operationQueue[$c]->{nicks}})
+		);
+	}
+}
+
+# void cmd_queue_flush($data, $server, $channel)
+# handles /QUEUE FLUSH <number|all>
+# flushes given/all queue(s)
+sub cmd_queue_flush {
+	my ($data) = split(/ +/, $_[0]);
+	my $usage = "/QUEUE FLUSH <number|all>";
+	my @flushqueue = ();
+	my $flushdata = {};
+	my @removed = ();
+
+	if (!@operationQueue) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_empty');
+		return;
+	}
+
+	if ($data eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	if ($data =~ /^all/i) {
+		@flushqueue = @operationQueue;
+		@operationQueue = ();
+		push(@removed, $data);
+	} elsif ($data =~ /^[0-9,]+$/) {
+		my $numstr = join(" ", split(/,/, $data));
+		for (my $num = 0; $num < @operationQueue;) {
+			if ($numstr =~ /\b$num\b/) {
+				push(@flushqueue, splice(@operationQueue, $num, 1));
+				push(@removed, $num);
+			} else {
+				$num++
+			}
+		}
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badargs', $usage);
+		return;
+	}
+
+	if (@flushqueue) {
+		# don't ask... ;^)
+		foreach my $q (@flushqueue) {
+			my $s = $q->{server}->{tag};
+			my $c = $q->{channel};
+			my $o = $q->{operation};
+			foreach my $n (@{$q->{nicks}}) {
+				$flushdata->{$s}->{$c}->{$o}->{$n} = 1 unless ($o eq "voice" && 
+					exists $flushdata->{$s}->{$c}->{op}->{$n} && 
+					!Irssi::settings_get_bool('friends_voice_opped'));
+			}
+		}
+		my $result = ((queue_flush_expand($flushdata)) ? "seems ok" : "looks like nothing done");
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_removed', "Flushed", join(", ", @removed), $result);
+	}
+
+	if (!@operationQueue && $timerHandle) {
+		Irssi::timeout_remove($timerHandle);
+		$timerHandle = undef;
+	}
+}
+
+# void cmd_queue_purge($data, $server, $channel)
+# handles /QUEUE PURGE <number|all>
+# removes given/all queue(s)
+sub cmd_queue_purge {
+	my ($data) = split(/ +/, $_[0]);
+	my $usage = "/QUEUE PURGE <number|all>";
+	my $result;
+	my @removed;
+
+	if (!@operationQueue) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_empty');
+		return;
+	}
+
+	if ($data eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	if ($data =~ /^all/i) {
+		@operationQueue = ();
+		$result = "OK";
+		push(@removed, $data);
+	} elsif ($data =~ /^[0-9,]+$/) {
+		my $numstr = join(" ", split(/,/, $data));
+		for (my $num = 0; $num < @operationQueue;) {
+			if ($numstr =~ /\b$num\b/) {
+				splice(@operationQueue, $num, 1);
+				push(@removed, $num);
+				$result = "OK";
+			} else {
+				$num++
+			}
+		}
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badargs', $usage);
+		return;
+	}
+
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_queue_removed', "Purged", join(", ", @removed), $result) if (defined $result);
+
+	if (!@operationQueue && $timerHandle) {
+		Irssi::timeout_remove($timerHandle);
+		$timerHandle = undef;
+	}
+}
+
+# void friends_chflags($idx, $string[, $chan])
+# parses the $string and calls add_flag() or del_flag()
+sub friends_chflags {
+	my ($idx, $string, $chan) = @_;
+	my $mode = undef;
+	my $char;
+
+	$chan = "global" if ($chan eq "" || lc($chan) eq "global");
+
+	foreach my $char (split(//, $string)) {
+		if ($char eq "+") { $mode = "+";
+		} elsif ($char eq "-") { $mode = "-";
+		} elsif ($mode) {
+			if ($mode eq "+") {
+				# ADDING flags
+				# add chan record, if needed
+				add_chanrec($idx, $chan) if ($chan ne "global" && !friend_has_chanrec($idx, $chan));
+				if (!friend_has_flag($idx, $char, $chan)) {
+					# add this flag if he doesn't have it yet
+					add_flag($idx, $char, $chan);
+				}
+			} elsif ($mode eq "-") {
+				# REMOVING flags
+				if ($chan eq "global" || friend_has_chanrec($idx, $chan)) {
+					del_flag($idx, $char, $chan);
+				}
+			}
+		}
+	}
+}
+
+# void cmd_chflags($data, $server, $channel)
+# handles /chflags <handle> <+-flags> [#channel]
+sub cmd_chflags {
+	my ($handle, $flags, @chans) = split(/ +/, $_[0]);
+	my $usage = "/CHFLAGS <handle> <+/-flags> [#channel1] [#channel2] ...";
+
+	# strip %'s
+	$handle =~ s/\%//g;
+
+	# not enough args
+	if ($handle eq "" || $flags eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# bad args
+	# if the 'flags' part doesn't start with + or -
+	if ($flags !~ /^[\+\-]/) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it isn't valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	# if #channel wasn't specified -- we'll deal with global flags
+	push(@chans, "global") unless (@chans);
+
+	# go through all channels specified
+	foreach my $chan (@chans) {
+		# strip %'s
+		$chan =~ s/\%//g;
+
+		# 'executing +foo-bar for someone (where)'
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_chflagexec', $flags, get_handbyidx($idx), $chan);
+		# make changes
+		friends_chflags($idx, $flags, $chan);
+
+		my $flagstr = get_friends_flags($idx, $chan);
+		# 'current $chan flags for someone are: +blah/[none]'
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_currentflags', (($flagstr) ? $flagstr : "[none]"), get_handbyidx($idx), $chan);
+	}
+}
+
+# void cmd_chhandle($data, $server, $channel)
+# handles /chhandle <oldhandle> <newhandle>
+sub cmd_chhandle {
+	my ($oldhandle, $newhandle) = split(/ +/, $_[0]);
+	my $usage = "/CHHANDLE <oldhandle> <newhandle>";
+
+	# strip %'s
+	$newhandle =~ s/\%//g;
+
+	# not enough args
+	if ($oldhandle eq "" || $newhandle eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($oldhandle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $oldhandle);
+		return;
+	}
+
+	# proper case for later printformat
+	$oldhandle = get_handbyidx($idx);
+
+	# handle cannot start with a digit
+	if ($newhandle =~ /^[0-9]/) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badhandle', $newhandle, 
+			"Handle may not start with a digit");
+		return;
+	}
+
+	if (lc($newhandle) eq lc($oldhandle)) {
+		# funny case, only changes case of letters, omit the whole change_handle()
+		$friends[$idx]->{handle} = $newhandle;
+	} else {
+		# check if $newhandle is unique
+		# if not, print appropriate message and return
+		if (!is_unique_handle($newhandle)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_notuniqhandle', $newhandle);
+			return;
+		}
+		# ok, everything seems fine now, let's change the handle.
+		change_handle($oldhandle, $newhandle);
+	}
+
+	# ... and print a message
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_changed_handle', $oldhandle, $newhandle);
+}
+
+# void change_handle($oldhandle, $newhandle)
+# changes handle in appropriate structures
+sub change_handle($$) {
+	my ($old, $new) = @_;
+	my $idx = get_idxbyhand($old);
+	my $lc_new = lc($new);
+	foreach my $host (get_friends_hosts($idx, $friends_PLAIN_HOSTS)) {
+		my ($l) = $host =~ /\@(.)/;
+		my $regexp_host = userhost_to_regexp($host);
+		$all_regexp_hosts->{allhosts}->{$regexp_host} = $lc_new;
+		$all_regexp_hosts->{lc($l)}->{$regexp_host} = $lc_new;
+		$all_hosts->{$host} = $lc_new;
+		delete $all_handles->{lc($old)};
+		$all_handles->{$lc_new} = $idx;
+		$friends[$idx]->{handle} = $new;
+	}
+}
+
+# void cmd_chpass($data, $server, $channel)
+# handles /chpass <handle> [pass]
+# if pass is empty, removes password
+# otherwise, crypts it and sets as current one
+sub cmd_chpass {
+	my ($handle, $pass) = split(/ +/, $_[0]);
+	my $usage = "/CHPASS <handle> [newpassword]";
+
+	# not enough args
+	if ($handle eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	# crypt and set password. then print a message
+	$friends[$idx]->{password} = friends_crypt("$pass");
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_chpassexec', get_handbyidx($idx));
+}
+
+# void cmd_chdelay($data, $server, $channel)
+# handles /chdelay <handle> <delay> <#channel>
+# use delay=0 to get instant opping
+# use delay>0 to get fixed opping delay
+# use delay='random' or delay='none' or delay = 'remove'
+#  to remove fixed delay (make it random)
+sub cmd_chdelay {
+	my ($handle, $delay, $chan) = split(/ +/, $_[0]);
+	my $usage = "/CHDELAY <handle> <delay> <#channel>";
+	my $value = undef;
+
+	# strip %'s
+	$chan =~ s/\%//g;
+
+	# not enough args
+	if ($handle eq "" || $delay eq "" || $chan eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# if $chan doesn't start with one of the [!&#+]
+	if ($chan !~ /^[\!\&\#\+]/) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badargs', $usage);
+		return;
+	}
+
+	# check validness of $delay
+	if ($delay =~ /^[0-9]+$/) {
+		# numeric value
+		$value = $delay;
+	} elsif ($delay =~ /^(remove|random|none)$/i) {
+		# 'remove', 'random' or 'none'
+		$value = undef;
+	} else {
+		# badargs, return
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	# check if $idx has got $chan record.
+	# add one if needed
+	add_chanrec($idx, $chan) unless (friend_has_chanrec($idx, $chan));
+
+	# finally, set it, and print a message
+	change_delay($idx, $value, $chan);
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_changed_delay', get_handbyidx($idx),
+		$chan, (defined($value) ? $value : "[random]"));
+}
+
+# void cmd_comment($data, $server, $channel)
+# handles /comment <handle> [comment]
+# if comment is empty, removes it
+# otherwise, sets it as the current one
+sub cmd_comment {
+	my ($handle, $comment) = split(" ", $_[0], 2);
+	my $usage = "/COMMENT <handle> [comment]";
+
+	# not enough args
+	if ($handle eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	# remove %'s and trailing spaces (just-in-case ;)
+	$comment =~ s/\%//g;
+	$comment =~ s/[\ ]+$//;
+
+	# finally, set it, and print a message
+	$friends[$idx]->{comment} = $comment;
+
+	if ($comment ne '') {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_comment_added', get_handbyidx($idx), $comment);
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_comment_removed', get_handbyidx($idx));
+	}
+}
+
+# void cmd_listfriend($data, $server, $chanel)
+# handles /listfriends [what]
+# 'what' can be either handle, channel name, 1,2,5,15-style, host mask or empty.
+sub cmd_listfriends {
+	if (@friends == 0) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_empty');
+	} else {
+		my ($data) = @_;
+		my $counter = 0;
+		# remove whitespaces
+		$data =~ s/[\t\ ]+//g;
+		my $win = Irssi::active_win();
+
+		if ($data =~ /^[\!\&\#\+]/) {
+			# deal with channel
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_friendlist', "channel " . $data);
+			for (my $idx = 0; $idx < @friends; ++$idx) {
+				if (friend_has_chanrec($idx, $data)) {
+					list_friend($win, $idx, undef);
+					$counter++;
+				}
+			}
+		} elsif ($data =~ /^[0-9,]+$/) {
+			# deal with 1,2,5,15 style
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_friendlist', $data);
+			foreach my $idx (split(/,/, $data)) {
+				if ($idx < @friends) {
+					list_friend($win, $idx, undef);
+					$counter++;
+				}
+			}
+		} elsif ($data =~ /^.*\!.*\@.*$/) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_friendlist', "matching " . $data);
+			# /* FIXME */
+			my $regexp_data = userhost_to_regexp($data);
+			for (my $idx = 0; $idx < @friends; ++$idx) {
+				foreach my $regexp_host (get_friends_hosts($idx, $friends_REGEXP_HOSTS)) {
+					if ($data =~ /^$regexp_host$/ || $friends[$idx]->{regexp_hosts}->{$regexp_host} =~ /^$regexp_data$/) {
+						list_friend($win, $idx, undef);
+						$counter++;
+						last;
+					}
+				}
+			}
+		} elsif ($data ne "") {
+			if ((my $idx = get_idxbyhand($data)) > -1) {
+				# deal with handle
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_friendlist', $data);
+				list_friend($win, $idx, undef);
+				$counter++;
+			} else {
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $data);
+			}
+		} else {
+			# deal with every entry
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_friendlist', "all");
+			for (my $idx = 0; $idx < @friends; ++$idx) {
+				list_friend($win, $idx, undef);
+				$counter++;
+			}
+		}
+		if ($counter) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_friendlist_count', $counter, (($counter > 1) ? "s" : ""));
+		}
+	}
+}
+
+# void cmd_addfriend($data, $server, $channel)
+# handles /addfriend <handle> <hostmask> [flags]
+# if 'flags' is empty, uses friends_default_flags instead
+sub cmd_addfriend {
+	my ($handle, $host, $flags) = split(/ +/, $_[0]);
+	my $server = $_[1];
+	my $usage = "/ADDFRIEND <handle|nick> [<hostmask> [flags]]";
+
+	# strip %'s
+	$handle =~ s/\%//g;
+	$host =~ s/\%//g;
+
+	# not enough args
+	if ($handle eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# handle cannot start with a digit
+	if ($handle =~ /^[0-9]/) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_badhandle', $handle, "Handle may not start with a digit");
+		return;
+	}
+
+	# assume we want /addfriend somenick
+	if ($host eq "") {
+		# no server item in current window
+		if (!$server) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "No server item in current window");
+			return;
+		}
+
+		# redirect userhost reply to event_isfriend_userhost()
+		# caution: This works only with Irssi 0.7.98.CVS (20011117) and newer
+		$server->redirect_event("userhost", 1, $handle, 0, undef, {
+					"event 302" => "redir userhost_addfriend"});
+		# send our query
+		$server->send_raw("USERHOST :$handle");
+		return;
+	}
+
+	# check must be unique
+	if (!is_unique_handle($handle)) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notuniqhandle', $handle);
+		return;
+	}
+
+	# add friend.
+	push(@friends, new_friend($handle, $host, undef, undef, undef, undef));
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_added', $handle);
+
+	# check 'flags' parameter, add default flags if empty.
+	$flags = Irssi::settings_get_str('friends_default_flags') unless ($flags);
+
+	# add flags and print them if needed
+	if ($flags) {
+		# check if $flags start with a '+'. if not, prepend one.
+		$flags = "+".$flags unless ($flags =~ /^\+/);
+
+		# our new friend should have $idx=(scalar(@friends)-1) now, so we'll use it.
+		my $idx = scalar(@friends) - 1;
+
+		friends_chflags($idx, $flags, "global");
+		$flags = get_friends_flags($idx, undef);
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_currentflags', $flags, $handle, "global") if ($flags);
+	}
+}
+
+# void event_addfriend_userhost($server, $reply, $servername)
+# handles redirected USERHOST replies
+# (part of /addfriend)
+sub event_addfriend_userhost {
+	my ($mynick, $reply) = split(/ +/, $_[1]);
+	my $server = $_[0];
+	my ($nick, $user, $host) = $reply =~ /^:?([^\*=]*)\*?=.(.*)@(.*)/;
+	my $string = $nick . '!' . $user . '@' . $host;
+	my $friend_matched = 0;
+
+	# try matching ONLY if the response is positive
+	if (defined $nick && defined $user && defined $host) {
+		if ((my $idx = get_idx($nick, $user.'@'.$host)) > -1) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_already_added', $nick, get_handbyidx($idx));
+			return;
+		}
+		# handle
+		my $handle = choose_handle($nick);
+		# *~^=-ident
+		$user =~ s/^[\~\+\-\^\=]+/\*/;
+
+		# add friend.
+		push(@friends, new_friend($handle, '*!'.$user.'@'.$host, undef, undef, undef, undef));
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_added', $handle);
+		return;
+	}
+
+	# failed
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "No such nick");
+}
+
+# void cmd_delfriend($data, $server, $channel)
+# handles /delfriend <handle|number>
+# supports /delfriend 2-5,foohand,1,4,10,11-22
+sub cmd_delfriend {
+	my ($who) = split(/ +/, $_[0]);
+	my $usage = "/DELFRIEND <handle|number>";
+
+	# strip %'s
+	$who =~ s/\%//g;
+
+	# not enough args
+	if ($who eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	my @todelete = ();
+	foreach my $what (split(/[\ ,]/, $who)) {
+		if ($what =~ /^[0-9]+$/) {
+			# /delfriend 15
+			next unless ($what > -1 && $what < scalar(@friends));
+			push(@todelete, $what) unless (grep(/^$what$/, @todelete));
+		} elsif ($what =~ /^([0-9]+)\-([0-9]+)$/) {
+			# /delfriend 2-10
+			my ($start, $end) = $what =~ /([0-9]+)\-([0-9]+)/;
+			next if ($start > $end);
+			for my $i ($start .. $end) {
+				next unless ($i > -1 && $i < scalar(@friends));
+				push(@todelete, $i) unless (grep(/^$i$/, @todelete));
+			}
+		} else {
+			# /delfriend foobar
+			my $delidx = get_idxbyhand($what);
+			push(@todelete, $delidx) unless ($delidx < 0 || grep(/^$delidx$/, @todelete));
+		}
+	}
+	@todelete = sort {$a <=> $b} @todelete;
+
+	return unless (@todelete);
+
+	my @result = del_friend(join(" ", @todelete));
+	foreach my $deleted (@result) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_removed', $deleted->{handle});
+	}
+}
+
+# void cmd_addhost($data, $server, $channel)
+# handles /addhost <handle> <hostmask1> [hostmask2] ...
+# hostmask may not overlap with any of the current ones
+sub cmd_addhost {
+	my ($handle, @hosts) = split(/ +/, $_[0]);
+	my $usage = "/ADDHOST <handle> <hostmask1> [hostmask2] [hostmask3] ...";
+
+	# not enough args
+	if ($handle eq "" || !@hosts) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	for (my $i = 0; $i < scalar(@hosts); $i++) {
+		my $data = $hosts[$i];
+		$data =~ s/\%//g;
+		my $regexp_data = userhost_to_regexp($data);
+		my $found = 0;
+		my $who = "";
+
+		# /* FIXME */
+		foreach my $plain_host (keys %{$all_hosts}) {
+			if (!$found && $plain_host =~ /^$regexp_data$/) {
+				$found = 1;
+				$who = get_handbyidx(get_idxbyhand($all_hosts->{$plain_host}));
+				last;
+			}
+		}
+
+		# /* FIXME again */
+		foreach my $regexp_host (get_friends_hosts($idx, $friends_REGEXP_HOSTS)) {
+			last if ($found);
+			if ($data =~ /^$regexp_host$/ || $friends[$idx]->{regexp_hosts}->{$regexp_host} =~ /^$regexp_data$/) {
+				$found = 1;
+				$who = get_handbyidx($idx);
+				last;
+			}
+		}
+
+		if (!$found) {
+			add_host($idx, $data);
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_host_added', get_handbyidx($idx), $data);
+		} else {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_host_exists', $who, $data);
+		}
+	}
+}
+
+# void cmd_delhost($data, $server, $channel)
+# handles /delhost <handle> <hostmask>
+# hostmask should be EXACTLY the same as one in $friends[$idx]->{hosts}
+sub cmd_delhost {
+	my ($handle, $host) = split(/ +/, $_[0]);
+	my $usage = "/DELHOST <handle> <hostmask>";
+
+	# strip %'s
+	$host =~ s/\%//g;
+
+	# not enough args
+	if ($handle eq "" || $host eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	# delete host, print appropriate message
+	if (del_host($idx, $host)) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_host_removed', get_handbyidx($idx), $host);
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_host_notexists', get_handbyidx($idx), $host);
+	}
+}
+
+# void cmd_delchanrec($data, $server, $channel)
+# handles /delchanrec <handle> <#channel>
+sub cmd_delchanrec {
+	my ($handle, $chan) = split(/ +/, $_[0]);
+	my $usage = "/DELCHANREC <handle> <#channel>";
+
+	# strip %'s
+	$chan =~ s/\%//g;
+
+	# not enough args
+	if ($handle eq "" || $chan eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# get idx, yell and return if it's not valid
+	my $idx = get_idxbyhand($handle);
+	if ($idx == -1) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $handle);
+		return;
+	}
+
+	# delete chanrec, print appropriate message
+	if (del_chanrec($idx, $chan)) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_chanrec_removed', get_handbyidx($idx), $chan);
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_chanrec_notexists', get_handbyidx($idx), $chan);
+	}
+}
+
+# void cmd_findfriends($data, $server, $channel)
+# handles /findfriends [handle]
+# prints online friends
+sub cmd_findfriends {
+	my ($data) = split(/ +/, $_[0]);
+	my $f2w = Irssi::settings_get_str('friends_findfriends_to_windows');
+	my $win = undef;
+	my $lc_data = lc($data);
+	$win = Irssi::active_win() unless ($f2w || $data eq '');
+
+	# gathering info
+	my $by_hand = {};
+	foreach my $channel (Irssi::channels()) {
+		my $myNick = $channel->{server}->{nick};
+		my $tag = lc($channel->{server}->{tag});
+		foreach my $nick ($channel->nicks()) {
+			# don't count myself
+			next if ($nick->{nick} eq $myNick);
+			if ((my $idx = get_idx($nick->{nick}, $nick->{host})) > -1) {
+				$by_hand->{lc($friends[$idx]->{handle})}->{$tag}->{$channel->{name}} = $nick->{nick};
+			}
+		}
+	}
+
+	# looking for a specified handle
+	if ($data ne '') {
+		my $handle = undef;
+		foreach my $h (keys %{$by_hand}) {
+			next if ($lc_data ne $h);
+			$handle = $h;
+			last;
+		}
+		return unless (defined $handle);
+
+		# tricky part.
+		my @data = ();
+		foreach my $ircnet (keys %{$by_hand->{$handle}}) {
+			my ($nick, $chan);
+			foreach $chan (keys %{$by_hand->{$handle}->{$ircnet}}) {
+				$nick = $by_hand->{$handle}->{$ircnet}->{$chan};
+				last;
+			}
+			my $chanstr = join(",", sort keys %{$by_hand->{$handle}->{$ircnet}});
+			push(@data, join(" ", $ircnet, $nick, $chanstr));
+		}
+		# list them.
+		list_friend(Irssi::active_win(), $handle, @data);
+
+	# looking for anyone
+	} else {
+		foreach my $handle (keys %{$by_hand}) {
+			foreach my $ircnet (keys %{$by_hand->{$handle}}) {
+				my $server = Irssi::server_find_tag($ircnet);
+				next unless (defined $server);
+				foreach my $chan (sort keys %{$by_hand->{$handle}->{$ircnet}}) {
+					my @data = ();
+					my $nick = $by_hand->{$handle}->{$ircnet}->{$chan};
+					$win = $server->window_item_find($chan);
+					$win = Irssi::active_win() unless (defined $win && $f2w);
+					my $chanstr = join(",", sort keys %{$by_hand->{$handle}->{$ircnet}});
+					push(@data, join(" ", $ircnet, $nick, $chanstr));
+					list_friend($win, $handle, @data);
+				}
+			}
+		}
+	}
+}
+
+# void cmd_isfriend($data, $server, $channel)
+# handles /isfriend <nick>
+sub cmd_isfriend {
+	my ($data, $server, $channel) = @_;
+	my $usage = "/ISFRIEND <nick>";
+
+	# remove trailing spaces
+	$data =~ s/[\t\ ]+$//;
+
+	# not enough args
+	if ($data eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_notenoughargs', $usage);
+		return;
+	}
+
+	# no server item in current window
+	if (!$server) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "No server item in current window");
+		return;
+	}
+
+	# redirect userhost reply to event_isfriend_userhost()
+	# caution: This works only with Irssi 0.7.98.CVS (20011117) and newer
+	$server->redirect_event("userhost", 1, $data, 0, undef, {
+				"event 302" => "redir userhost_friends"});
+	# send our query
+	$server->send_raw("USERHOST :$data");
+}
+
+# void event_isfriend_userhost($server, $reply, $servername)
+# handles redirected USERHOST replies
+# (part of /isfriend)
+sub event_isfriend_userhost {
+	my ($mynick, $reply) = split(/ +/, $_[1]);
+	my $server = $_[0];
+	my ($nick, $user, $host) = $reply =~ /^:?([^\*=]*)\*?=.(.*)@(.*)/;
+	my $string = $nick . '!' . $user . '@' . $host;
+	my $friend_matched = 0;
+
+	# try matching ONLY if the response is positive
+	if (defined $nick && defined $user && defined $host) {
+		if ((my $idx = get_idx($nick, $user.'@'.$host)) > -1) {
+			my @chans = ();
+			foreach my $channel ($server->channels()) {
+				push(@chans, $channel->{name}) if ($channel->nick_find($nick));
+			}
+			my $chanstr = join(",", @chans);
+			list_friend(Irssi::active_win(), $idx, join(" ", $server->{tag}, $nick, $chanstr));
+			$friend_matched++;
+		}
+	}
+
+	# print message
+	if ($friend_matched) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_endof', "/isfriend", $nick);
+	} else {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_nosuch', $nick);
+	}
+}
+
+# void event_whois($server, $text, $servername)
+# handles additional whois data
+sub event_whois {
+	my ($server, $text, $servername) = @_;
+	return unless (Irssi::settings_get_bool('friends_show_whois_extra'));
+
+	my ($on, $nick, $user, $host, $as, $rn) = split(/[\ ]:?/, $text, 6);
+	my $idx = get_idx($nick, $user.'@'.$host);
+	return unless ($idx > -1);
+
+	$server->printformat($nick, MSGLEVEL_CRAP, 'friends_whois', get_handbyidx($idx), ($friends[$idx]->{globflags} ? $friends[$idx]->{globflags} : "none"));
+}
+
+# void cmd_flushlearnt($data, $server, $channel)
+# cycles through all users and removes every chanrec with flag L
+# then, if no other stuff left (specific delay, other chanrecs,
+# global flags, password maybe) -- deletes user.
+# clears the opping tree too
+sub cmd_flushlearnt {
+	my @todelete = ();
+	# cycle through the whole friendlist
+	for (my $idx = 0; $idx < @friends; ++$idx) {
+		my $was_learnt = 0;
+
+		# foreach friend, clear his opping tree
+		$friends[$idx]->{friends} = [];
+
+		# now go through all friend's channel entries
+		foreach my $chan (get_friends_channels($idx)) {
+			# if 'L' is the only flag for this chan
+			if (get_friends_flags($idx, $chan) eq "L") {
+				# remove channel record and print a message
+				$was_learnt = del_chanrec($idx, $chan);
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_chanrec_removed', get_handbyidx($idx), $chan);
+			}
+		}
+
+		# delete friend, if he has exactly 1 host, no global flags,
+		# neither password, nor chanrecs, and he was learnt.
+		if ($was_learnt && scalar(get_friends_hosts($idx, $friends_REGEXP_HOSTS)) == 1  && !get_friends_flags($idx, undef) &&
+			!get_friends_channels($idx) && !$friends[$idx]->{password}) {
+			push(@todelete, $idx) unless (grep(/^$idx$/, @todelete));
+		}
+	}
+	return unless @todelete;
+
+	@todelete = sort {$a <=> $b} @todelete;
+	my @result = del_friend(join(" ", @todelete));
+	foreach my $deleted (@result) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_removed', $deleted->{handle});
+	}
+}
+
+# void cmd_opping_tree($data, $server, $channel)
+# prints the Opping Tree
+sub cmd_oppingtree {
+	my $found = 0;
+	# cycle through the whole friendlist
+	for (my $idx = 0; $idx < @friends; ++$idx) {
+		# get friend's friends
+		my @friendFriends = @{$friends[$idx]->{friends}};
+		if (@friendFriends) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "Opping tree:") unless ($found);
+			$found = 1;
+			# print info about our friend
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_optree_line1', get_handbyidx($idx));
+			my %masks;
+			# get all masks opped by him
+			foreach my $friend (@friendFriends) {
+				foreach my $host (keys(%{$friend->{hosts}})) {
+					$masks{$host}++;
+					last;
+				}
+			}
+			# print them, along with the opcount
+			foreach my $friend (sort keys %masks) {
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_optree_line2', $masks{$friend}, $friend);
+			}
+		}
+	}
+	Irssi::printformat(MSGLEVEL_CRAP, 'friends_general', "Opping tree is empty.") unless ($found);
+}
+
+# void event_ctcpmsg($server, $args, $sender, $senderhsot, $target)
+# handles ctcp requests
+sub event_ctcpmsg {
+	my ($server, $args, $sender, $userhost, $target) = @_;
+
+	# return, if ctcp is not for us
+	my $myNick = $server->{nick};
+	return if (lc($target) ne lc($myNick));
+
+	# return, if we don't process ctcp requests
+	return unless (Irssi::settings_get_bool('friends_use_ctcp'));
+
+	# return in case of strange things
+	return unless (defined $sender && defined $userhost);
+
+	my @cmdargs = split(/ +/, $args);
+
+	# prepare arguments:
+	# get 1st arg, uppercase it
+	my $command = uc($cmdargs[0]);
+	# get 2nd arg
+	my $channelName = $cmdargs[1];
+	# get 3rd arg
+	my $password = $cmdargs[2];
+
+	# check if $command is one of friends_ctcp_commands. return if it isn't
+	return unless (is_ctcp_command($command));
+
+	# this is supposed to be processed BEFORE any other ctcp commands
+	# /ctcp nick IDENT handle password
+	if ($command eq "IDENT") {
+		my $idxguess = get_idxbyhand($channelName);
+		# looks like a valid friend, password already set, provided password looks fine
+		if ($idxguess > -1 && $friends[$idxguess]->{password} ne "" && friends_passwdok($idxguess, $password)) {
+			# do the IDENT stuff here.
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpident', $channelName, $sender.'!'.$userhost);
+			add_host($idxguess, "*!$userhost");
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_host_added', $channelName, '*!'.$userhost);
+			$server->command("/^NOTICE $sender Identified as " . get_handbyidx($idxguess));
+		} else {
+			my $reason = "No reason ;)";
+			if ($idxguess < 0) {
+				$reason = "No such handle: $channelName";
+			} elsif ($friends[$idxguess]->{password} eq "") {
+				$reason = "Can't IDENT $channelName without password set";
+			} elsif (!friends_passwdok($idxguess, $password)) {
+				$reason = "Bad password for $channelName";
+			}
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $sender.'!'.$userhost, $reason);
+		}
+		goto SIGSTOP;
+	}
+
+	my $idx = get_idx($sender, $userhost);
+
+	# if get_idx* failed, return.
+	if ($idx == -1) {
+		my $reason = "Not a friend" . (($command ne "PASS") ? " for $channelName" : "");
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $sender.'!'.$userhost, $reason);
+		goto SIGSTOP;
+	}
+
+	# we'll use handle instead of $sender!$userhost in messages
+	my $handle = get_handbyidx($idx);
+
+	# check if $channelName was supplied.
+	# (first argument, should be always given)
+	if ($channelName eq "") {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough arguments");
+		goto SIGSTOP;
+	}
+
+	# /ctcp nick PASS pass [newpass]
+	if ($command eq "PASS") {
+		# if someone has password already set - we can only *change* it
+		if ($friends[$idx]->{password}) {
+			# if cmdargs[1] ($channelName, that is) is a valid password (current)
+			if (!friends_passwdok($idx, $channelName)) {
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+				goto SIGSTOP;
+			}
+			# and $cmdargs[2] ($password, that is) contains something ...
+			if (defined $password) {
+				# ... process allowed password change.
+				# in this case, old password is in $channelName
+				# and new password is in $password
+				$friends[$idx]->{password} = friends_crypt("$password");
+				Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcppass', $handle, $sender."!".$userhost);
+				# send a quiet notice to sender
+				$server->command("/^NOTICE $sender Password changed to: $password");
+			} else {
+				# in this case, notify sender about his current password quietly
+				$server->command("/^NOTICE $sender You already have a password set");
+			}
+		# if $idx doesn't have a password, we will *set* it
+		} else {
+			# in this case, new password is in $channelName
+			# and $password is unused
+			$friends[$idx]->{password} = friends_crypt("$channelName");
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcppass', $handle, $sender.'!'.$userhost);
+			# send a quiet notice to sender
+			$server->command("/^NOTICE $sender Password set to: $channelName");
+		}
+		goto SIGSTOP;
+	}
+
+	# get channel object. if not found -- yell, stop the signal, and return
+	my $channel = $server->channel_find($channelName);
+	if (!$channel) {
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not on channel $channelName");
+		goto SIGSTOP;
+	}
+
+	my $sender_rec = $channel->nick_find($sender);
+
+	# /ctcp nick OP #channel password
+	if ($command eq "OP") {
+		if (!friend_is_wrapper($idx, $channelName, "o", "d")) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough flags");
+			goto SIGSTOP;
+		}
+		if (!friends_passwdok($idx, $password)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+			goto SIGSTOP;
+		}
+
+		# process allowed opping
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcprequest', $handle, $command, $channelName);
+		$channel->command("op $sender") if ($sender_rec && !$sender_rec->{op});
+		goto SIGSTOP;
+
+	# /ctcp nick VOICE #channel password
+	} elsif ($command eq "VOICE") {
+		if (!friend_is_wrapper($idx, $channelName, "v", undef)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough flags");
+			goto SIGSTOP;
+		}
+		if (!friends_passwdok($idx, $password)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+			goto SIGSTOP;
+		}
+
+		# process allowed voicing
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcprequest', $handle, $command, $channelName);
+		$channel->command("voice $sender") if ($sender_rec && !$sender_rec->{voice});
+		goto SIGSTOP;
+
+	# /ctcp nick INVITE #channel password
+	} elsif ($command eq "INVITE") {
+		if (!friend_is_wrapper($idx, $channelName, "i", undef)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough flags");
+			goto SIGSTOP;
+		}
+		if (!friends_passwdok($idx, $password)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+			goto SIGSTOP;
+		}
+
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcprequest', $handle, $command, $channelName);
+		if (!$channel->{chanop} && !$sender_rec) {
+			# friend is outside channel, but we're not opped
+			$server->command("/^NOTICE $sender I'm not opped on $channelName");
+		} elsif (!$sender_rec) {
+			# process allowed invite
+			$channel->command("invite $sender");
+		}
+		goto SIGSTOP;
+
+	# /ctcp nick KEY #channel password
+	} elsif ($command eq "KEY") {
+		if (!friend_is_wrapper($idx, $channelName, "k", undef)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough flags");
+			goto SIGSTOP;
+		}
+		if (!friends_passwdok($idx, $password)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+			goto SIGSTOP;
+		}
+
+		# process allowed key giving
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcprequest', $handle, $command, $channelName);
+		if ($channel->{key} && !$sender_rec) {
+			# give a key if channel is +k'ed and $sender is not on $channelName
+			$server->command("/^NOTICE $sender Key for $channelName is: $channel->{key}");
+		}
+		goto SIGSTOP;
+
+	# /ctcp nick UNBAN #channel password
+	} elsif ($command eq "UNBAN") {
+		if (!friend_is_wrapper($idx, $channelName, "u", undef)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough flags");
+			goto SIGSTOP;
+		}
+		if (!friends_passwdok($idx, $password)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+			goto SIGSTOP;
+		}
+
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcprequest', $handle, $command, $channelName);
+		if (!$channel->{chanop}) {
+			# notify him that we're not opped, unless he's here and he can see that ;^)
+			$server->command("/^NOTICE $sender I'm not opped on $channelName") if (!$sender_rec);
+		} else {
+			# process allowed unban
+			foreach my $ban ($channel->bans()) {
+				if ($server->mask_match_address($ban->{ban}, $sender, $userhost)) {
+					$server->command("MODE $channelName -b $ban->{ban}");
+				}
+			}
+		}
+		goto SIGSTOP;
+
+	# /ctcp nick LIMIT #channel password
+	} elsif ($command eq "LIMIT") {
+		if (!friend_is_wrapper($idx, $channelName, "l", undef)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Not enough flags");
+			goto SIGSTOP;
+		}
+		if (!friends_passwdok($idx, $password)) {
+			Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcpfail', $command, $handle, "Bad password");
+			goto SIGSTOP;
+		}
+
+		# process allowed limit raising
+		Irssi::printformat(MSGLEVEL_CRAP, 'friends_ctcprequest', $handle, $command, $channelName);
+		if (!$channel->{chanop}) {
+			# notify him that we're not opped, unless he's here and he can see that ;^)
+			$server->command("/^NOTICE $sender I'm not opped on $channelName") if (!$sender_rec);
+		} else {
+			my @nicks = $channel->nicks();
+			if ($channel->{limit} && $channel->{limit} <= scalar(@nicks)) {
+				# raise the limit if it's needed
+				$server->command("MODE $channelName +l " . (scalar(@nicks) + 1));
+			}
+		}
+		goto SIGSTOP;
+	}
+
+	# stop the signal if we processed the request
+SIGSTOP:
+	Irssi::signal_stop();
+}
+
+# void cmd_friendsversion($data, $server, $channel)
+# handles /friendsversion
+# prints script's and friendlist's version
+sub cmd_friendsversion() {
+	print_version("script");
+	print_version("filever");
+	print_version("filewritten");
+}
+
+# settings
+Irssi::settings_add_int('misc', 'friends_delay_min', $default_delay_min);
+Irssi::settings_add_int('misc', 'friends_delay_max', $default_delay_max);
+Irssi::settings_add_int('misc', 'friends_max_queue_size', $default_friends_max_queue_size);
+Irssi::settings_add_int('misc', 'friends_revenge_mode', $default_friends_revenge_mode);
+Irssi::settings_add_bool('misc', 'friends_revenge', $default_friends_revenge);
+Irssi::settings_add_bool('misc', 'friends_learn', $default_friends_learn);
+Irssi::settings_add_bool('misc', 'friends_voice_opped', $default_friends_voice_opped);
+Irssi::settings_add_bool('misc', 'friends_use_ctcp', $default_friends_use_ctcp);
+Irssi::settings_add_bool('misc', 'friends_autosave', $default_friends_autosave);
+Irssi::settings_add_bool('misc', 'friends_backup_friendlist', $default_friends_backup_friendlist);
+Irssi::settings_add_bool('misc', 'friends_show_flags_on_join', $default_friends_show_flags_on_join);
+Irssi::settings_add_bool('misc', 'friends_findfriends_to_windows', $default_friends_findfriends_to_windows);
+Irssi::settings_add_bool('misc', 'friends_show_whois_extra', $default_friends_show_whois_extra);
+Irssi::settings_add_str('misc', 'friends_ctcp_commands', $default_friends_ctcp_commands);
+Irssi::settings_add_str('misc', 'friends_default_flags', $default_friends_default_flags);
+Irssi::settings_add_str('misc', 'friends_file', $default_friends_file);
+Irssi::settings_add_str('misc', 'friends_backup_suffix', $default_friends_backup_suffix);
+
+# commands
+Irssi::command_bind('addfriend', 'cmd_addfriend');
+Irssi::command_bind('delfriend', 'cmd_delfriend');
+Irssi::command_bind('addhost', 'cmd_addhost');
+Irssi::command_bind('delhost', 'cmd_delhost');
+Irssi::command_bind('delchanrec', 'cmd_delchanrec');
+Irssi::command_bind('chhandle', 'cmd_chhandle');
+Irssi::command_bind('chdelay', 'cmd_chdelay');
+Irssi::command_bind('loadfriends', 'cmd_loadfriends');
+Irssi::command_bind('savefriends', 'cmd_savefriends');
+Irssi::command_bind('listfriends', 'cmd_listfriends');
+Irssi::command_bind('findfriends', 'cmd_findfriends');
+Irssi::command_bind('isfriend', 'cmd_isfriend');
+Irssi::command_bind('chflags', 'cmd_chflags');
+Irssi::command_bind('chpass', 'cmd_chpass');
+Irssi::command_bind('comment', 'cmd_comment');
+Irssi::command_bind('oppingtree', 'cmd_oppingtree');
+Irssi::command_bind('opfriends', 'cmd_opfriends');
+Irssi::command_bind('queue', 'cmd_queue');
+Irssi::command_bind('queue show', 'cmd_queue_show');
+Irssi::command_bind('queue flush', 'cmd_queue_flush');
+Irssi::command_bind('queue purge', 'cmd_queue_purge');
+Irssi::command_bind('flushlearnt', 'cmd_flushlearnt');
+Irssi::command_bind('friendsversion', 'cmd_friendsversion');
+
+# events
+Irssi::signal_add_last('massjoin', 'event_massjoin');
+Irssi::signal_add_last('event mode', 'event_modechange');
+Irssi::signal_add_last('event 311', 'event_whois');
+Irssi::signal_add('default ctcp msg', 'event_ctcpmsg');
+Irssi::signal_add('redir userhost_friends', 'event_isfriend_userhost');
+Irssi::signal_add('redir userhost_addfriend', 'event_addfriend_userhost');
+Irssi::signal_add('setup saved', 'event_setup_saved');
+Irssi::signal_add('setup reread', 'event_setup_reread');
+Irssi::signal_add('nicklist changed', 'event_nicklist_changed');
+Irssi::signal_add('server disconnected', 'event_server_disconnected');
+Irssi::signal_add('server connect failed', 'event_server_disconnected');
+Irssi::signal_add_first('event kick', 'event_kick');
+
+print_releasenote() if (defined($release_note));
+load_friends();
diff --git a/scripts/fserve.pl b/scripts/fserve.pl
new file mode 100644
index 0000000..607f91c
--- /dev/null
+++ b/scripts/fserve.pl
@@ -0,0 +1,3578 @@
+#!/usr/bin/perl -w
+#############################################################################
+#
+#	FServe - file server for Irssi using DCC
+#
+#	Copyright (C) 2001 Martin Persson
+#	Copyright (C) 2003 Andriy Gritsenko
+#	Copyright (C) 2002-2004 Piotr Krukowiecki
+#
+#
+#	If you have any comments, bug reports or anything else
+#	please contact me at piotr at pingu.ii.uj.edu.pl
+#
+#	"Official" home page is at http://pingu.ii.uj.edu.pl/~piotr/irssi
+#
+#
+#	This program is free software; you can redistribute it and/or modify
+#	it under the terms of the GNU General Public License as published by
+#	the Free Software Foundation; either version 2 of the License, or
+#	(at your option) any later version.
+#
+#	This program is distributed in the hope that it will be useful,
+#	but WITHOUT ANY WARRANTY; without even the implied warranty of
+#	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#	GNU General Public License for more details.
+#
+#
+#	Changelog 
+#	====================================================================
+#
+#	TODO:
+#		- when sending e.g. 3/2 files (e.g. because of min_upload), fserve
+#		  ad should say it's 3/2 sends, not 2/2 as it is now
+#		- BUG: doesn't work if root_dir contains '+' ?
+#		- Improve distro: /fs distro clear, etc
+#		- possibility to, in case of failed send, not to resend file at once
+#		  but to requeue it in slot X
+#		- More control in sends/queues (e.g. changing resends left, etc)
+#		- /fs show_current_sends_to_channel 
+#		- restricted @find
+#		- user priorities: new priority_user option in queue_priority +
+#		  /fs priouser nick
+#		- @find should search thorough dirs as well.
+#		- incorporate flood protection
+#		? make sure all server tags and user nicks are first lc()'ed
+#		? don't use send_user_msg, it's redundant
+#		? don't use message levels, but set window number
+#			instead (might be better)
+#		- Add '/fs queue all' or '/fs queue *' etc.
+#
+#	2.0.0 (2004.05.09)
+#	* released rc4 without changes. Still a lot to do, but it's quite stable.
+#
+#	2.0.0rc4 (2004.01.27)
+#	* fixed "() queued  (0 B)" queued files
+#
+#	2.0.0rc3 (2003.06.19)
+#	* fserve.pl works with old (before 0.8.6) irssi
+#	* bugfix: min_upload was not working
+#	* more documentation
+#
+#	2.0.0rc2 (2003.06.09)
+#	* fixed 'send speed < 0' bug
+#	* some queue-oriented fixes
+#	* fixed '/fs delt' to update remaining sends and queues
+#	* added '/fs queue *' to display all queues.
+#
+#	2.0.0rc1 (2003.06.01) Happy Child's Day :)
+#	* Changed format of config file, it won't work with old (1.2.4 and 
+#		older file). If you're upgrading from 1.3.x and newer, just add
+#		"[ConfigFileVersion 1.0]" (without '"') at the beginning of the 
+#		file.
+#		This should be the last user-visible change of config/queue files.
+#	* More documentation in /fs help
+#	* Reseting upload_counter after having sent file
+#	* renamed ignore_chat to ctcp_only
+#	* renamed short_notice to custom_notice, added custom_notice_fields
+#	* @find responses more Sysreset-like
+#
+#	Important changes between 1.2.4 and 2.0.0rc1 
+#		(for detailed version look at fserve-1.4.0pre6)
+#		Many thanks to Andriy Gritsenko for his work on the fserve.
+#	* multiple server support 
+#	* multiple queue support (patch from A.G)
+#	* good documentation: '/fs help' (although it's still not complete)
+#	* changed format of queue file, saved sends and queues won't be back.
+#	* many bugfixes, small fixes, changes in server logic etc.
+#	* big patch from A.G, too much changes to list here.
+#	
+#		
+#	1.2.4
+#   * bug workaround: removing ghost users (not tested... i don't have 
+#		such problems...)
+#	* Removed window_close_on_quit - it was causing irssi to crash
+#	* Patch from Daniel Seifert (dseifert at gmx dot de):
+#		- added dont_notify option (to define channels where no notifies
+#	  		should be sent to) 
+#		- english corrections
+#		
+#	1.2.3
+#	* Added:
+#		- offline_message which is displayed when someone wants to access
+#			disabled fserve
+#		- fserve responds to !olist if (restricted_level > 0) and to 
+#			!vlist if (restricted_level == 1)
+#		- fserve responds to "!list <my irc nick>"
+#	* bug (?) workaround: sometimes fserve thinks it's still sending 
+#		the file when it's not. Now it's checking for such ghost sends
+#		and removes them from sends list
+#	* bugfix: can send files containing "'" now
+#	
+#	1.2.2
+#	* works with irssi 0.8.6 now, but doesn't work with irssi 0.8.5 and
+#	  former (incompatybile change in irssi 0.8.6 :( )
+#
+#   1.2.1
+#	* bugfix: @find didn't reported any files if there was only one match
+#
+#	1.2.0
+#	* IMPORTANT CHANGE: there is no longer 'ops_priority' setting. You must
+#		use 'queue_priority' instead (irssi will switch to it automatically 
+#		when loading old config). queue_priority is a list of space separated
+#		priorities: "normal", "voice", "halfop", "op" and "others". Queue
+#		is sorted according to the order in which they appear in queue_priority.
+#		For example, if you set it to 'voice others normal' then first in queue
+#		will be voiced people, then people with priority not mentioned in 
+#		queue_priority (in this case halfops and ops), then normal people.
+#		If 'others' doesn't exists in queue_priority it's assumed to be at
+#		the end
+#	* Added:
+#		- '/fs sortqueue' to sort queue according to queue_prority
+#		- count_send_as_queue setting. If set to 1 user sends take
+#			place in queue. For example, if it's set and user_slots == 1, 
+#			user can have only one send, or only one queued file.
+#		- distro mode (/fs set distro, distro_file). When distro = 1
+#			fileserver counts how many times each file was sent, and first 
+#			sends files with lowest send count.
+#			In fact, distro setting isn't simply 0/1. It's a PROBABILITY of
+#			using distro mode for the send. The values should be from range
+#			[0,1], where 0 means don't use distro mode at all, and 1 means
+#			allways use distro mode. For example when it's set to 0.7 it'll
+#			use distro mode in 7 cases of 10 (more or less). 
+#		- '/fs distro stats' displays send count for files
+#	* bugfix: 
+#		- send speed was wrongly calculated.
+#		- fserve could sometimes use wrong network 
+#		- exit, bye shoult works now. Patch from Jan Rekorajski 
+#			(baggins at sith.mimuw.edu.pl). Chat windows are closed unless
+#			close_window_on_quit is set to 0
+#	* in conffile, queuefile and log_name you can use $IRSSI as part of the 
+#		path. It will be changed to Irssis home directory.
+#	* hopefully better support for fserve explorers etc (changed 'dir' output)
+#	* people who use different command char then '/' in /command shouldn't
+#		have problems now
+#	* some other fixes/changes
+#
+#	1.1.3
+#	* added:
+#		- +v/+%/+o only fserve. setting restricted_level to 3 means only ops 
+#			can access, to 2 only ops and halfops, to 1 only ops, halfops and 
+#			voiced users can access. if it's 0 everybody can access.
+#
+#	1.1.2
+#	* added: 
+#		- !request support (/fs set request)
+#
+#	1.1.1
+#	* bugfix:
+#		- works with files containing more than one space in row 
+#			(e.g. 'blah  blah')
+#	* added: 
+#		- /fs set autosave_on_close - when set to 1 sends and queues
+#			will be saved on /fs off
+#
+#	1.1.0
+#	* bugfix:
+#		- Enabling debug (/fs set debug 1) works now
+#	* New:
+#		- /fs set content - adds "On Fserve:(content)" to notice.
+#		- /fs set motdfile - gets MOTD from file
+#		- /fs set recache_interval - does /fs recache every recache_interval
+#			seconds			
+#		- /ctcp ... NoResend
+#
+#	1.0.0
+#	-----
+#	* added:
+#		- sending small files without waiting in queues 
+#		  (/fs set instant_send). Patch from Jan Rekorajski 
+#  		  (baggins at sith.mimuw.edu.pl)
+#		- @find support (/fs set find, /fs set find_results). Patch from 
+#		  Jan Rekorajski (baggins at sith.mimuw.edu.pl
+#		- queuefile and $conffile in $fs_prefs{}
+#		- /fs notify #channel1 #channel2 #etc
+#		- current upstream is displayed in server notice
+#		- resends ($max_resends) and better min_cps handling ($speedp). New
+#			log position (dcc_soft_fail) if resend is possibile
+#		- MOTD - '/fs set motd blah blah'
+#	* bugfixes
+#		- fserver should respond to all !list's (comparing # names not cases s.)
+#		- fixed '/fs insert file'
+#		- displays notice with correct colors even if Note: contains braces
+#		- queued position reported after queueing file by +o/+v with 
+#			ops_priority on
+#	* moved most usefull variables to %fs_prefs (/fs set ...)
+#	* priority users are moved to the beginnign of the queue
+#	* 'Autosaving...' is not printed anymore unless in debug mode
+#	* Previously if ops_priority was on and nick was +o/+v the file was added
+#		even if there was no free queue slot. Now it's not added, unless
+#	  	ops_priority > 2. 
+#	* if irc server disconnects, fserve will change to 'frozen' state and will
+#		wait for reconnection, then will wait next 150s to join channels etc.
+#		If send will fail in that time then it will be moved to queue.
+#		If you want to manually connect to new irc server, do /fs off, /fs on
+#
+#	--
+#	Changes above by Cvbge (piotr at pingu.ii.uj.edu.pl) 
+#	--	
+#
+#	0.6.0
+#	-----
+#
+#	* Merged patch from Ethan Fischer (allanon@crystaltokyo.com)
+#   	  - added ignore_chat option that, when turned on, ignores the
+#    	    trigger if said in the channel; it also changes the trigger 
+#   	    advertisement to "/ctcp nick !trigger"
+#   	  - added ops_priority option that, when set to 1, force-adds 
+#   	    requests from to the top of the download queue regardless of
+#           queue size; when set to 2, it does the same thing for voices
+#   	  - added log_name option to specify the name of a logfile which 
+#           will be used to store transfer logs; the log contains the time 
+#           a dcc transfer finishes, whether it finished or failed, filename,
+#           nick, bytes sent, start time, and end time
+#         - added a kludge to kill dcc chats after an "exit" in sig_timeout()
+#   	  - added a -clear option to the set command (eg, /fs set -clear
+#           log_name) which sets the variable to an empty string
+#
+#   	* Merged patch from Brian (btherl@optushome.com.au)
+#         - Avoid division by zero when dcc send takes 0 time to complete
+#   	  - new user command "read" - allows reading of small (<30k) files,
+#           such as checksum files
+#         - set line delimeter before load_config()
+#   	  - formatting of function headers
+#
+#   	thanks for the patches guys :)
+#
+#   	* the bytecounter now also counts the number of bytes sent
+#   	  for failed transfers as well as successful transfers
+#         (with respects to resumed files)
+#   	* some bugfixes I don't remember ;)
+#
+#############################################################################
+
+# Best viewed with TAB size = 4 !
+
+use strict;
+no strict 'refs';
+
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "2.0.0";
+my $conffile = '$IRSSI/fserve.conf';
+
+%IRSSI = (
+	authors		=> 'Piotr Krukowiecki & others',
+	contact		=> 'piotr at pingu.ii.uj.edu.pl',
+	name		=> 'FServe',
+	description	=> 'File server for irssi',
+	license		=> 'GPL v2',
+	url			=> 'http://pingu.ii.uj.edu.pl/~piotr/irssi'
+);
+
+
+my @welcome_msg = (
+	"FServe $VERSION for Irssi",
+	"-",
+	"Commands: ls dir cd get read dequeue clr_queue queue sends",
+	"          help who stats quit",
+);
+
+my @help_msg = (
+	"-=[ Available commands ]=-",
+	"  ls / dir       - list files in current directory",
+	"  cd <dir>       - changes current directory to <dir>",
+	"                   (note: <dir> is case sensitive!)",
+	"  get <file>     - inserts <file> into the queue",
+	"  read <file>    - displays contents of <file>",
+	"  dequeue <nr>   - removes file in slot <nr>",
+	"  clr_queue[s]   - removes your queued files",
+	"  queue[s]       - lists the queue",
+	"  sends          - lists active sends",
+	"  who            - lists users online",
+	"  stats          - shows some statistice",
+	"  quit           - closes the connection",
+);
+
+my @srv_help_msg = (
+	"command - [params] description\003\n",
+	"on      - [0] enables fileserver",
+	"off     - [0] disables fileserver",
+	"save    - [0] save config file",
+	"load    - [0] load config file",
+	"saveq   - [0] saves sends/queues",
+	"loadq   - [0] loads the queues",
+	"set     - [0/2] sets variables",
+	"addq    - [0] adds new queue",
+	"delq    - [1] deletes queue",
+	"selq    - [1] sets default queue for next 4 commands",
+	"setq    - [0/2] sets queue variables",
+	"queue   - [0-1] lists file queue",
+	"sortq   - [0-1] sorts queue",
+	"move    - [2-3] moves queue slots around",
+	"insert  - [3] inserts a file in queue",
+	"clear   - [1] removes queued files",
+	"sends   - [0] lists active sends",
+	"who     - [0] lists users online",
+	"stats   - [0] shows server statistics",
+	"recache - [0] updates filecache\003\n",
+	"Usage: /fs <command> [<arguments>]",
+	"For parameter info type /fs <cmd>",
+	"Please read beginning of the fserve.pl (the changelog)",
+	"for more information",
+);
+
+###############################################################################
+#	fileserver preferences (/fs set <var> <data>)
+#	default values, feel free to change them
+###############################################################################
+my %fs_prefs = (
+	auto_save			=> 599,
+	autosave_on_close	=> 1,
+	clr_dir				=> "\00312",
+	clr_file			=> "\00315",
+	clr_hi				=> "\00312",
+	clr_txt				=> "\00315",
+	count_send_as_queue	=> 0,
+	debug				=> 0,
+	distro				=> 0,
+	distro_file			=> '$IRSSI/fserve.distro',
+	idle_time			=> 120,
+	ignores				=> "",
+	log_name			=> '$IRSSI/fserve.log',	 # FIXME should be renamed to logfile or similar
+	max_queues			=> 10,
+	max_sends			=> 2,
+	max_time			=> 600,
+	max_users			=> 5,
+	min_upload			=> 0,
+	motd				=> '',
+	motdfile			=> '',
+	offline_message		=> '',	# is displayed when someone wants to enter disabled fserve
+	queuefile			=> '$IRSSI/fserve.queue',
+	recache_interval	=> 3607,
+);
+
+my %fs_queue_defaults = (
+	channels			=> '#CHANGE_ME',
+	content				=> '',
+	ctcp_only			=> 1,
+	custom_notice		=> 1,
+	custom_notice_fields=> "trigger sends queues min_cps note content",
+	dont_notify			=> "",
+	find				=> 3,
+	guaranted_queues	=> 0,
+	guaranted_sends		=> 0,
+	ignore_msg			=> 1,
+	ignores				=> "",
+	instant_send		=> 10240,
+	max_queues			=> 10,
+	max_resends			=> 3,
+	max_sends			=> 2,
+	min_cps				=> 9728,
+	motd				=> '',
+	nice				=> 0,
+	note				=> '',
+	notify_interval		=> 0,
+	notify_on_join		=> 0,
+	queue_priority		=> "", 
+	request				=> "",
+	restricted_level	=> 0,
+	root_dir			=> '/path/to/files/CHANGE_ME',
+	servers				=> 'CHANGE_ME',
+	speed_warnings		=> 1,
+	trigger				=> '!trigger',
+	user_slots			=> 3,
+);
+
+###############################################################################
+#	fileserver statistics
+###############################################################################
+my %fs_stats = (
+	record_cps	=> 0,
+	rcps_nick	=> "",
+	sends_ok	=> 0,			# sends succeeded
+	sends_fail	=> 0,			# sends failed
+	transfd		=> 0,			# total bytes transferred
+	login_count	=> 0,			# total number of logins
+);
+
+my @fs_queues = ();
+my @fs_sends = ();
+my %fs_users = ();
+my %fs_distro = ();
+
+###############################################################################
+#	private variables
+###############################################################################
+my $fs_enabled = 0; 	# always start disabled
+my $online_time = 0;	# time since last script restart
+my $timer_tag;
+my $logfp;
+my @kill_dcc;
+my $upload_counter = 0;
+my $last_upload = 0;
+my $last_upload_check = 0;
+my $motdfile_modified = 0;	#when was motd file last modified
+my @motd = ();
+my $default_queue = 0;
+my $next_queue = 0;
+my $FD = "'"; # old irssi (<0.8.6) doesn't use "'" in /dcc send 'file'
+
+###############################################################################
+#	setup signal handlers
+###############################################################################
+Irssi::signal_add_first('event privmsg', 'sig_event_privmsg');
+Irssi::signal_add_first('event join', 'sig_event_join');
+Irssi::signal_add_first('default ctcp msg', 'sig_ctcp_msg');
+Irssi::signal_add_last('dcc chat message', 'sig_dcc_msg');
+
+Irssi::signal_add_last('dcc connected', 'sig_dcc_connected');
+Irssi::signal_add('dcc destroyed', 'sig_dcc_destroyed');
+
+Irssi::signal_add('nicklist changed', 'sig_nicklist_changed');
+
+Irssi::command_bind('fs', 'sig_fs_command');
+print_msg("FServe version $VERSION");
+print_log("FServe starting up");
+
+$_ = $conffile;
+s/\$IRSSI/Irssi::get_irssi_dir()/e or s/~/$ENV{"HOME"}/;
+if (-e) {       
+	load_config();
+} else {
+	print_msg("If this is your first time using this fserve");
+	print_msg("I advise you to read help (/fs help)");
+}	
+if (!@fs_queues) {
+	print_debug("Added inital trigger");
+	push (@fs_queues, { %fs_queue_defaults });
+	@{$fs_queues[$#fs_queues]->{queue}} = ();
+}
+
+{ 
+	my $ver = 'Very Old';
+	eval { $ver = Irssi::version(); };
+	if ($ver - 20021117 < 0) {
+		print_debug("Detected old irssi version: $ver") ;
+		$FD = "";
+	}
+}
+
+if ($fs_prefs{distro} and $fs_prefs{distro_file}) {
+	$_ = $fs_prefs{distro_file};
+	s/\$IRSSI/Irssi::get_irssi_dir()/e or s/~/$ENV{"HOME"}/;
+	if (-e) {
+		load_distro($_) and print_msg("Distro file loaded");
+	}
+}
+
+###############################################################################
+#	prints debug messages in the (fserve_dbg) window
+###############################################################################
+sub print_debug
+{
+	if ($fs_prefs{debug}) {
+		Irssi::print("<DBG> @_", MSGLEVEL_CLIENTERROR);
+	}
+}
+
+###############################################################################
+#	prints server message in current window
+###############################################################################
+sub print_msg
+{
+	Irssi::active_win()->print("$fs_prefs{clr_txt} @_");
+}
+		
+sub print_what_we_did {
+	Irssi::print("@_", MSGLEVEL_CLIENTCRAP);
+}
+
+sub max($$) { return @_[0]>@_[1]?@_[0]:@_[1]; }
+sub min($$) { return @_[0]<@_[1]?@_[0]:@_[1]; }
+
+###############################################################################
+###############################################################################
+##
+##		Signal handler routines
+##
+###############################################################################
+###############################################################################
+
+sub get_max_sends($) {
+	my $qn = @_[0];
+	
+	my $qu_msends = $fs_queues[$qn]->{max_sends};
+	my $gl_msends = $fs_prefs{max_sends};
+	my $guaranted_sends = $fs_queues[$qn]->{guaranted_sends};
+
+	my $current_sends = $fs_queues[$qn]->{sends};
+	my $free_sends = 
+		max( $guaranted_sends - $current_sends,
+			min($gl_msends - @fs_sends, $qu_msends - $current_sends) );
+	$free_sends = 0	if ($free_sends < 0);
+	my $max_sends = max( $guaranted_sends, min($qu_msends,$gl_msends) );
+	
+	return ($current_sends, $free_sends, $max_sends);
+}
+
+sub get_max_queues($) {
+	my $qn = @_[0];
+
+	my $qu_mqueues = $fs_queues[$qn]->{max_queues};
+	my $gl_mqueues = $fs_prefs{max_queues};
+	my $guaranted_queues = $fs_queues[$qn]->{guaranted_queues};
+	# TODO: keep this somewhere?
+	my $gl_current_queues = 0;
+	foreach (0 .. $#fs_queues) {
+		$gl_current_queues += @{$fs_queues[$_]->{queue}};
+	}	
+
+	my $current_queues = @{$fs_queues[$qn]->{queue}};
+	my $free_queues = 
+		max( $guaranted_queues - $current_queues,
+			min($gl_mqueues - $gl_current_queues, 
+				$qu_mqueues - $current_queues) );
+	$free_queues = 0 if ($free_queues < 0);
+	my $max_queues = max( $guaranted_queues, min($qu_mqueues, $gl_mqueues) );
+	
+	return ($current_queues, $free_queues, $max_queues);
+}
+
+###############################################################################
+#	updates some variables when DCC CHAT is established
+###############################################################################
+sub sig_dcc_connected
+{
+	my ($dcc) = @_;
+	my $tag = $dcc->{servertag};
+	my $user_id = $dcc->{nick}."@".$tag; 
+	print_debug("DCC connected: $dcc->{type} $user_id");
+
+	return if ($dcc->{type} ne "CHAT" || !defined $fs_users{$user_id});
+	
+	print_debug("User $user_id connected!");
+	$fs_users{$user_id}{status} = 0;
+	$fs_users{$user_id}{time} = 0;
+	$fs_stats{login_count}++;
+
+	foreach (@welcome_msg) {
+		send_user_msg($tag, $dcc->{nick}, $_);
+	}
+	send_user_msg($tag, $dcc->{nick}, "-");
+		
+	my $qn = $fs_users{$user_id}{queue};
+	my ($curr_queues, $free_queues, $max_queues) = get_max_queues($qn);
+	my ($curr_sends, $free_sends, $max_sends) = get_max_sends($qn);
+
+	send_user_msg($tag, $dcc->{nick}, "Current/Free/Max Sends: ".
+		"$curr_sends/$free_sends/$max_sends");
+	send_user_msg($tag, $dcc->{nick}, "Current/Free/Max Queues: ".
+		"$curr_queues/$free_queues/$max_queues");
+	send_user_msg($tag, $dcc->{nick}, "Your queue: ".
+		count_user_files($tag, $dcc->{nick}, $qn).
+		"/$fs_queues[$qn]->{user_slots}");
+		
+	send_user_msg($tag, $dcc->{nick}, "Instant send: ".
+		size_to_str($fs_queues[$qn]{instant_send}))
+		if ($fs_queues[$qn]{instant_send} > 0);
+		
+	if ($fs_prefs{motdfile}) {
+		send_user_msg($tag, $dcc->{nick}, "-");
+		my $f = $fs_prefs{motdfile};
+		$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+		if (! ((-f $f) and (-r $f))) {
+			print_msg("FServe: '$f' doesn't exists, isn't plain file or is not readable");
+		} else {
+			my $lm = (stat($f))[9];
+			if ($motdfile_modified < $lm) {
+				$motdfile_modified = $lm;
+				@motd = ();
+				open(FILE, $f);
+				while(<FILE>) {
+					chomp;
+					s/\t/       /g;
+					push @motd, $_;
+				}
+				close(FILE, $f);
+			}
+			foreach (@motd) {
+				send_user_msg($tag, $dcc->{nick}, $_);			
+			}
+		}
+	}
+
+	if (length($fs_prefs{motd})) {
+		send_user_msg($tag, $dcc->{nick}, "-");
+		send_user_msg($tag, $dcc->{nick}, "$fs_prefs{motd}");
+	}
+	if (length($fs_queues[$qn]{motd})) {
+		send_user_msg($tag, $dcc->{nick}, "-");
+		send_user_msg($tag, $dcc->{nick}, "$fs_queues[$qn]{motd}");
+	}
+	send_user_msg($tag, $dcc->{nick}, "-");
+	send_user_msg($tag, $dcc->{nick}, '[\]');
+}
+
+###############################################################################
+#	cleanups after DCC CHAT/SEND disconnects
+###############################################################################
+sub sig_dcc_destroyed
+{
+	my ($dcc) = @_;
+	my $nick = $dcc->{nick};
+	my $server = $dcc->{server};
+	my $server_tag = $dcc->{servertag};
+	my $user_id = $nick.'@'.$server_tag;
+
+	print_debug("DCC destroyed: $dcc->{type} $user_id '$dcc->{arg}'");
+
+	if ($dcc->{type} eq "CHAT" && defined $fs_users{$user_id}) {
+		delete $fs_users{$user_id};
+		print_debug("Users left: ".keys %fs_users);
+	} elsif ($dcc->{type} eq "SEND") {
+		foreach my $sn (0 .. $#fs_sends) {
+			print_debug("check slot $sn: ".
+				"user=$fs_sends[$sn]->{nick}\@$fs_sends[$sn]->{server_tag}, ".
+				"file=$fs_sends[$sn]->{file}.");
+			if ($fs_sends[$sn]->{nick} eq $nick &&
+				$fs_sends[$sn]->{server_tag} eq $server_tag &&
+				$fs_sends[$sn]->{file} eq $dcc->{arg}) {
+				print_debug("found send in slot $sn");
+				if ($dcc->{transfd} == $fs_sends[$sn]->{size}) {
+					print_log("dcc_finish $dcc->{arg} $user_id ".
+							  "$dcc->{skipped} $dcc->{transfd} ".
+							  "$dcc->{starttime} ".time());
+					print_debug("file was finished");
+					$fs_stats{sends_ok}++;
+					if ($fs_prefs{distro}) {
+						$fs_distro{$dcc->{arg}}{$dcc->{transfd}}++; 
+						save_distro();
+					}
+
+					## Update speed record (if new)
+					if (time() > $dcc->{starttime}) {
+						my $speed = ($dcc->{transfd}-$dcc->{skipped})/
+							(time() - $dcc->{starttime});
+
+					    if ($speed > $fs_stats{record_cps}) {
+						    $fs_stats{record_cps} = $speed;
+						    $fs_stats{rcps_nick} = $nick;
+					    }
+					}
+				} else {
+					if ($fs_sends[$sn]->{transfd} == -1) {
+						# send was too slow
+						print_log("dcc_abort $dcc->{arg} $user_id ".
+								  "$dcc->{skipped} $dcc->{transfd} ".
+								  "$dcc->{starttime} ".time());
+					} else {
+						$fs_sends[$sn]->{resends} += 1;
+						$fs_sends[$sn]->{warns} = 0;
+						$fs_sends[$sn]->{dontwarn} = 0;
+						delete $fs_sends[$sn]->{transfd};
+						
+						if ($fs_sends[$sn]->{resends} <= 
+							$fs_queues[$fs_sends[$sn]{queue}]{max_resends}) {
+							
+							# queue it for resending
+							# don't resend right now, you may be treated as flood
+							my $fsq = $fs_queues[$fs_sends[$sn]->{queue}]->{queue};
+							# TODO should be parametrized (in which slot requeue)
+							my $resended_queue = 0;
+							foreach (0 .. $#{$fsq}) {
+								last if (!${$fsq}[$_]->{resends});
+								$resended_queue++;
+							}
+							$resended_queue = 1
+								if (!$resended_queue && @{$fsq}>0);
+							print_debug("requeued $dcc->{arg} for ".
+										"$user_id in slot $resended_queue, ".
+										"resend $fs_sends[$sn]->{resends}");
+							splice(@{$fsq}, $resended_queue, 0, { %{$fs_sends[$sn]} });
+							$server->command("^NOTICE ".
+								"$fs_sends[$sn]->{nick} ".
+								"$fs_prefs{clr_txt} Send failed on try ".
+								$fs_sends[$sn]->{resends}." of ".
+								($fs_queues[$fs_sends[$sn]{queue}]{max_resends}+1).
+								". Type /ctcp ".
+								"$$server{nick} NoReSend to cancel "
+								."any further resends.")
+								if ($server && $server->{connected});
+							print_what_we_did("NOTICE ".
+								"$fs_sends[$sn]->{nick} ".
+								"$fs_prefs{clr_txt} Send failed on try ".
+								$fs_sends[$sn]->{resends}." of ".
+								($fs_queues[$fs_sends[$sn]{queue}]{max_resends}+1).
+								". Type /ctcp ".
+								"$$server{nick} NoReSend to cancel "
+								."any further resends.")
+								if ($server && $server->{connected});
+							print_log("dcc_soft_fail $dcc->{arg} $user_id ".
+									  "$dcc->{skipped} $dcc->{transfd} ".
+									  "$dcc->{starttime} ".time());
+						} else {
+							print_log("dcc_fail $dcc->{arg} $user_id ".
+									  "$dcc->{skipped} $dcc->{transfd} ".
+									  "$dcc->{starttime} ".time());
+						}
+					}
+					$fs_stats{sends_fail}++;
+				}
+				
+				## Update bytes transferred
+				$fs_stats{transfd} += ($dcc->{transfd} - $dcc->{skipped});
+				splice(@fs_sends, $sn, 1); # FIXME : decrease number of sends?
+				print_debug("SEND closed to $user_id, file: ".
+					"$dcc->{arg}, bytes sent: ".
+					($dcc->{transfd}-$dcc->{skipped}).
+					" (sent from slot $sn, ".@fs_sends." slots now)");
+				return;
+			}
+		}
+	}
+}
+
+###############################################################################
+#	handles dcc chat messages
+###############################################################################
+sub sig_dcc_msg
+{
+	my $dcc = shift (@_);
+	my $msg = @_[0]; 
+	my $user_id = $dcc->{nick}.'@'.$dcc->{servertag};
+
+	# ignore messages from unconnected dcc chats
+	return unless ($fs_enabled && defined $fs_users{$user_id});
+
+	# reset idle time for user
+	$fs_users{$user_id}{status} = 0;
+	
+	my ($cmd, $args) = split(' ', $msg, 2);
+	$cmd = lc($cmd);
+
+	if ($cmd eq "dir" || $cmd eq "ls") {
+		list_dir($user_id, "$args");
+	} elsif ($cmd eq "cd") {
+		change_dir($user_id, "$args");
+	} elsif ($cmd eq "cd..") { # darn windows users ;)
+		change_dir($user_id, '..');
+	} elsif ($cmd eq "get") {
+		queue_file($user_id, "$args");
+	} elsif ($cmd eq "dequeue") {
+		$args =~ s/^\D*(\d+)\D*$/$1/; # stupid leechers, we have to remove garbage
+		dequeue_file($user_id, $args);
+	} elsif ($cmd eq "clr_queue" || $cmd eq "clr_queues") {
+		clear_queue($user_id, 0, $fs_users{$user_id}{queue});
+	} elsif ($cmd eq "queue" || $cmd eq "queues") {
+		display_queue($user_id, $fs_users{$user_id}{queue});
+	} elsif ($cmd eq "sends") {
+		display_sends($user_id);
+	} elsif ($cmd eq "who") {
+		display_who($user_id);
+	} elsif ($cmd eq "stats") {
+		display_stats($user_id);
+	} elsif ($cmd eq "read") {
+		display_file($user_id, "$args");
+	} elsif ($cmd eq "help") {
+		foreach (@help_msg) {
+			send_user_msg($dcc->{servertag}, $dcc->{nick}, $_);
+		}
+	} elsif ($cmd eq "exit" || $cmd eq "quit" || $cmd eq "bye") {
+		push(@kill_dcc, $user_id);
+	}
+}
+
+###############################################################################
+# server, nick, queue_number 
+###############################################################################
+sub try_connecting_user ($$$)
+{
+	my ($server, $sender, $qn) = @_;
+	my $tag = $server->{tag};
+	
+	if (defined($fs_users{$sender."@".$tag})) {
+		if (!$fs_users{$sender."@".$tag}{ignore} && 
+			$fs_queues[$qn]->{ignore_msg}) {
+			$server->command("^NOTICE $sender $fs_prefs{clr_txt}".
+				"A DCC chat offer has already been sent to you!");
+			print_what_we_did("NOTICE $sender $fs_prefs{clr_txt}".
+				"A DCC chat offer has already been sent to you!");
+		}
+	
+		$fs_users{$sender."@".$tag}{ignore} = 1;
+		return 1;
+	}
+			
+	if (keys(%fs_users) < $fs_prefs{max_users}) {
+		if (!$fs_queues[$qn]->{restricted_level}) {
+			initiate_dcc_chat($server, $sender, $qn);
+			return 1;
+		} else {
+			foreach (split (' ', $fs_queues[$qn]->{channels})) {
+				my $ch = $server->channel_find($_);  
+				next if !$ch;
+				my $n = $ch->nick_find($sender); 
+				next if !$n;
+				if (($n->{op}) or  
+					(($fs_queues[$qn]->{restricted_level} < 3) && $n->{halfop}) or
+					(($fs_queues[$qn]->{restricted_level} < 2) && $n->{voice})) {
+						initiate_dcc_chat($server, $sender, $qn);
+						return 1;
+				}		
+			}
+			$server->command("^NOTICE $sender $fs_prefs{clr_txt}I'm sorry,"
+				." but this trigger is restricted. You need to be an".
+				(($fs_queues[$qn]->{restricted_level} == 3) ? " op" :
+				(($fs_queues[$qn]->{restricted_level} == 2) ? " op or halfop" :
+				" op, halfop or voiced")) . " to access this trigger");
+			print_what_we_did("NOTICE $sender $fs_prefs{clr_txt}I'm sorry,"
+				." but this trigger is restricted. You need to be an".
+				(($fs_queues[$qn]->{restricted_level} == 3) ? " op" :
+				(($fs_queues[$qn]->{restricted_level} == 2) ? " op or halfop" :
+				" op, halfop or voiced")) . " to access this trigger");
+		}
+	} else {	
+		$server->command("^NOTICE $sender $fs_prefs{clr_txt}".
+			"Sorry, server is full (".
+			$fs_prefs{clr_hi}.$fs_prefs{max_users}.
+			$fs_prefs{clr_txt}.")!");
+		print_what_we_did("NOTICE $sender $fs_prefs{clr_txt}".
+			"Sorry, server is full (".
+			$fs_prefs{clr_hi}.$fs_prefs{max_users}.
+			$fs_prefs{clr_txt}.")!");
+	}
+	return 0;
+}
+
+
+###############################################################################
+#	handles ctcp messages
+###############################################################################
+sub sig_ctcp_msg
+{
+	my ($server, $args, $sender, $addr, $target) = @_;
+	$args = uc($args);
+	$args =~ s/\s*$//; # strip ending spaces
+	my $tag = $server->{tag};
+
+	return if ($fs_prefs{ignores} &&
+		$server->masks_match($fs_prefs{ignores}, $sender, $addr));	
+
+	if (!$fs_enabled) {
+		# find queue where the trigger is
+		foreach (0 .. $#fs_queues) {
+			next if ($args ne uc($fs_queues[$_]->{trigger}));
+			next if ($fs_queues[$_]{ignores} &&
+				$server->masks_match($fs_queues[$_]{ignores}, $sender, $addr));
+ 
+			foreach my $s (split(' ', $fs_queues[$_]->{servers})) {
+				if (uc($s) eq uc($tag) && 
+					user_in_channel($server, $sender, $fs_queues[$_])) {
+				
+					$server->command("^NOTICE $sender $fs_prefs{clr_txt}".
+						"Sorry, fserve is currently offline. $fs_prefs{offline_message}");
+					print_what_we_did("NOTICE $sender $fs_prefs{clr_txt}".
+						"Sorry, fserve is currently offline. $fs_prefs{offline_message}");
+					Irssi::signal_stop();
+					return;
+				}
+			} # loop over servers
+		} # loop over queues
+		Irssi::signal_stop();
+		return;
+	}
+	
+	print_debug("CTCP from $sender: '$args'");
+
+	if ($args eq "NORESEND") {
+		my $found = 0;
+		foreach (0 .. $#fs_sends) {
+			if ($fs_sends[$_]{nick} eq $sender && 
+				$fs_sends[$_]{server} eq $tag) {
+				print_debug("$sender: Canceling resends of $fs_sends[$_]->{file}");
+				$fs_sends[$_]->{resends} = $fs_queues[$fs_sends[$_]{queue}]{max_resends};
+				$found++;
+			}
+		}
+		my $message = ($found?
+						"Resend: All resends ($found) for currently sending ".
+						"files have been canceled." :
+						"Resend: You currently have no sending files set ".
+						"to resend.");
+		$server->command("^MSG $sender $message");
+		print_what_we_did("MSG $sender $message");
+		Irssi::signal_stop();
+		return;
+	} # end NORESEND
+
+
+	foreach my $qn (0 .. $#fs_queues) {
+		next if ($args ne uc($fs_queues[$qn]->{trigger}));	
+		print_debug("Got trigger in queue $qn");
+		next if ($fs_queues[$qn]{ignores} &&
+			$server->masks_match($fs_queues[$qn]{ignores}, $sender, $addr));
+		print_debug("Not ignoring user");
+		
+		print_debug("Servers are $fs_queues[$qn]->{servers}");
+		foreach my $s (split(' ', $fs_queues[$qn]->{servers})) {
+			print_debug("Checking server $s against $tag");
+			next if (uc($tag) ne uc($s) || 
+				!user_in_channel($server, $sender, $fs_queues[$qn]));
+			print_debug("Good tag and user in chan");
+
+			if (try_connecting_user($server, $sender, $qn)) {
+				Irssi::signal_stop();
+				return;
+			}
+		}
+	}
+	Irssi::signal_stop();
+	return;
+}
+
+###############################################################################
+#	notifies joining users
+###############################################################################
+sub sig_event_join
+{
+	my ($server, $data, $sender, $addr) = @_;
+	my ($target) = ($data =~ /:(.*)/);
+
+	return if (!$fs_enabled);
+
+	foreach my $qn (0 .. $#fs_queues) {			
+		next if (!$fs_queues[$qn]->{notify_on_join});				
+		next if ($fs_queues[$qn]{ignores} && 
+			$server->masks_match($fs_queues[$qn]{ignores}, $sender, $addr));
+			
+		foreach my $s (split(' ', $fs_queues[$qn]->{servers})) {
+			next if (uc($s) ne uc($server->{tag}));
+			foreach my $channel (split(' ', $fs_queues[$qn]->{channels})) {
+				next if (uc($channel) ne uc($target));
+				show_notice($server, $sender, $qn);
+			} # loop over channels
+		} # loop over servers
+		
+	} # loop over queues
+
+}
+
+###############################################################################
+#	handles channel and private messages
+###############################################################################
+sub sig_event_privmsg
+{
+	my ($server, $data, $sender, $addr) = @_;
+	my ($target, $text) = split(/ :/, $data, 2);
+
+	return if (!$fs_enabled);
+	return if ($fs_prefs{ignores} && 
+		$server->masks_match($fs_prefs{ignores}, $sender, $addr));
+
+	foreach my $qn (0 .. $#fs_queues) {		
+		next if ($fs_queues[$qn]{ignores} && 
+			$server->masks_match($fs_queues[$qn]{ignores}, $sender, $addr));
+		foreach my $s (split(' ', $fs_queues[$qn]->{servers})) {
+			next if (uc($s) ne uc($server->{tag}));
+			foreach my $channel (split(' ', $fs_queues[$qn]->{channels})) {	  
+				next if (uc($channel) ne uc($target));
+	
+
+				# trigger typed
+				if (!$fs_queues[$qn]->{ctcp_only} && 
+					uc($text) eq uc($fs_queues[$qn]->{trigger})) {
+					try_connecting_user($server, $sender, $qn);
+					return;
+				}
+				
+				# strip extra spaces
+				$_ = uc($text);
+				s/\s+$//; s/^\s+$//; s/\s+/ /g;
+				if (($_ eq '!LIST') || ($_ eq ('!LIST '.uc($$server{nick}))) ||
+					($_ eq '!OLIST' and $fs_queues[$qn]->{restricted_level}) ||
+					($_ eq '!VLIST' and $fs_queues[$qn]->{restricted_level} == 1)
+					) {
+					show_notice($server, $sender, $qn);
+				}
+				if (length($fs_queues[$qn]->{request}) && ($_ eq '!REQUEST'))
+				{
+					my $msg = "[$fs_prefs{clr_hi}Request$fs_prefs{clr_txt}] ".
+						  "Message:[$fs_prefs{clr_hi}$fs_queues[$qn]->{request}".
+						  "$fs_prefs{clr_txt}] - FServe $VERSION";
+					$server->command("^NOTICE $sender $fs_prefs{clr_txt}$msg");
+					print_what_we_did("NOTICE $sender $fs_prefs{clr_txt}$msg");
+				}
+	
+				if ($fs_queues[$qn]->{find}) {
+					if (/^\@FIND /) {
+						if ($sender !~ /^#/) {
+							show_find($server, $sender, $text, $qn);
+						}
+					}
+				}
+				
+			} # loop over channels
+		} # loop over servers
+	} # loop over queues
+}
+
+
+###############################################################################
+#	updates userinfo on nick changes
+###############################################################################
+sub sig_nicklist_changed
+{
+	my ($chan, $nick, $oldnick) = @_;
+	my $server_tag = $chan->{server}{tag};
+
+	print_debug("NICK CHANGE: $oldnick -> $nick->{nick}\@$server_tag on $chan->{name}");
+
+	foreach my $qn (0 .. $#fs_queues) {
+	
+		my $ch_ok = 0; 
+		my $srv_ok = 0;
+		foreach (split(' ', $fs_queues[$qn]->{channels})) {
+			if (uc($_) eq uc($chan->{name})) {
+				$ch_ok = 1;
+				last;
+			}	
+		}
+		foreach (split(' ', $fs_queues[$qn]->{servers})) {
+			if (uc($_) eq uc($server_tag)) {
+				$srv_ok = 1;
+				last;
+			}	
+		}
+
+		next unless ($ch_ok && $srv_ok);
+
+		
+		my $old_user_id = $oldnick.'@'.$server_tag;
+		my $user_id = $nick->{nick}.'@'.$server_tag;
+
+		if (defined $fs_users{$old_user_id}) {
+			print_debug("Changing connected user data");
+			# update user data
+			my $rec = $fs_users{$old_user_id};
+			delete $fs_users{$old_user_id};
+			$fs_users{$user_id} = { %{$rec} };
+		}
+		
+		# update queue
+		my $fsq = $fs_queues[$qn]->{queue};
+		foreach (0 .. $#{$fsq}) {
+			if (${$fsq}[$_]->{nick} eq $oldnick &&
+				${$fsq}[$_]->{server_tag} eq $server_tag) {
+				print_debug("Changing queued file data");
+				${$fsq}[$_]->{nick} = $nick->{nick};
+			}
+		}
+		
+		# DONT update sends - irssi bug?
+		# irssi doesn't change nick in dcc sends
+#		foreach (0 .. $#fs_sends) {
+#			if ($fs_sends[$_]->{nick} eq $oldnick &&
+#				$fs_sends[$_]->{server_tag} eq $server_tag) {
+#				$fs_sends[$_]->{nick} = $nick->{nick};
+#			}
+#		}
+		
+	}
+}
+
+###############################################################################
+#	sig_timeout():	called once every second
+###############################################################################
+sub sig_timeout
+{
+	# kill connections that said "bye", campers, ghost users etc.
+	foreach (@kill_dcc) {
+		my ($nick, $servertag) = split('@', $_);
+		my $server = Irssi::server_find_tag($servertag);
+		next if (!$server || !$server->{connected});
+		print_debug("Closing dcc chat to $nick on $servertag");
+	    $server->command("DCC CLOSE CHAT $nick");
+	}
+	@kill_dcc = ();
+
+	my $time = time();
+
+	# check for campers...
+	foreach (keys %fs_users) {
+		$fs_users{$_}{time}++;
+		if ($fs_users{$_}{status} >= 0) {
+			$fs_users{$_}{status}++;
+			my ($nick, $server_tag) = split('@', $_);
+
+			if ($fs_users{$_}{status} > $fs_prefs{idle_time}) {
+				send_user_msg($server_tag, $nick, 
+					"Idletime ($fs_prefs{clr_hi}".
+					"$fs_prefs{idle_time}$fs_prefs{clr_txt} sec) ".
+					"reached, disconnecting!");
+				push(@kill_dcc, $_);
+			} elsif ($fs_users{$_}{time} > $fs_prefs{max_time}) {
+				send_user_msg($server_tag, $nick, 
+					"Does this look like a campsite? (".
+					"$fs_prefs{clr_hi}$fs_prefs{max_time} ".
+					"sec$fs_prefs{clr_txt})");
+				push(@kill_dcc, $_);
+			}
+		# 7 minutes for user to connect
+		} elsif ($fs_users{$_}{status} == -1 and $fs_users{$_}{time} > 420) {
+			print_msg("BUG workaround: probably ghost user '$_'. Removing from user list .");
+			delete $fs_users{$_};
+		}
+	}
+	
+	return if (! $fs_enabled);
+	
+	$online_time++;
+
+	# auto save config file
+	if ($fs_prefs{auto_save} && $time % $fs_prefs{auto_save} == 0) {
+		print_debug("Autosaving...");
+		save_config();
+		save_queue();
+	}
+
+	# update all $queue->{sends}
+	# FIXME: Do this 'the old way'
+	# FIXME: BUG: since number of sends is computed only every second
+	#  users could exploit this and gain more sends/queues then allowed
+	foreach (0 .. $#fs_queues) { $fs_queues[$_]->{sends} = 0; }
+	foreach (0 .. $#fs_sends) { $fs_queues[$fs_sends[$_]->{queue}]->{sends}++; }
+#	foreach (0 .. $#fs_queues) { 
+#		print_debug("Trigger #" . $_ . " have " . $fs_queues[$_]->{sends} .
+#			" sends.") ; 
+#	}
+
+	# First send forced sends	
+	my $file_sent = 0;
+	foreach (0 .. $#fs_queues) {
+		if ($fs_queues[$_]->{sends} < $fs_queues[$_]->{guaranted_sends}) {
+			if (run_queue($fs_queues[$_]) == 0) { 
+				$file_sent = 1;
+				$upload_counter = 0;
+				print_debug("Sent forced queue");
+				last;
+			}
+		}
+	}
+
+	# send only one file per second.
+	if (!$file_sent) {
+		if (send_next_file() == 0) {
+			$file_sent = 1;
+			$upload_counter = 0;
+			print_debug("Sent normal queue");
+		}
+	}
+	
+	# check for min upload (up to 2*max_sends+1)
+	# FIXME don't use 2*m_s+1 but parametrize
+	if (!$file_sent && @fs_sends >= $fs_prefs{max_sends} && 
+		$time > $last_upload_check &&
+	    @fs_sends <= 2*$fs_prefs{max_sends} && ($time % 60) == 0) {
+		my $curr_ups = 0;
+		foreach my $dcc (Irssi::Irc::dccs()) {
+			if ($dcc->{type} eq 'SEND') {
+				$curr_ups += ($dcc->{transfd}-$dcc->{skipped})/($time - $last_upload_check);
+			}
+		}
+		$curr_ups -= $last_upload;
+		$last_upload += $curr_ups;
+		$last_upload_check = $time;
+		if ($curr_ups > 0 && $curr_ups < $fs_prefs{min_upload}) {
+			$upload_counter++;
+			print_debug("Upload $curr_ups is below minimal, counter is $upload_counter");
+			if ($upload_counter > 4) {
+				send_next_file(1);
+				$upload_counter = 0;
+			}
+		} else {
+			$upload_counter = 0;
+		}
+	}
+
+	# recache files
+	if ($fs_prefs{recache_interval} && 
+		$time % $fs_prefs{recache_interval} == 0) {
+		update_files();
+	}
+
+	# notify channels
+	foreach my $qn (0 .. $#fs_queues) {
+		if ($fs_queues[$qn]->{notify_interval} && 
+		    $time % $fs_queues[$qn]->{notify_interval} == 0) {
+			foreach (split(' ', $fs_queues[$qn]->{channels})) {
+				foreach my $s (split(' ', $fs_queues[$qn]->{servers})) {
+					my $server = Irssi::server_find_tag($s);
+					next if (!$server || !$server->{connected});
+					show_notice($server, $_, $qn);
+				}
+			}
+		}
+	}
+
+	# check speed of sends
+	if (($time % 60) == 0) {
+		for (my $s = $#fs_sends; $s >= 0; $s--) {
+			if ($fs_queues[$fs_sends[$s]{queue}]{min_cps}) {
+				check_send_speed($s);
+			}
+		}
+	}
+}
+
+###############################################################################
+#	check_send_speed(): aborts send in $slot if speed < $fs_prefs{min_cps}
+###############################################################################
+sub check_send_speed
+{
+	my ($s) = @_;
+	print_debug("check_sends_speed: checking speed of ".
+		"$fs_sends[$s]->{nick}\@$fs_sends[$s]->{server_tag}".
+		" $fs_sends[$s]->{file}");
+
+	foreach my $dcc (Irssi::Irc::dccs()) {
+		print_debug("check_sends_speed: checking DCC ".
+			"$dcc->{nick}\@$dcc->{servertag} $dcc->{arg}");
+		
+		next if ($dcc->{type} ne 'SEND' ||
+			$dcc->{nick} ne $fs_sends[$s]->{nick} ||
+			$dcc->{servertag} ne $fs_sends[$s]->{server_tag} ||
+			$dcc->{arg} ne $fs_sends[$s]->{file});
+			
+		print_debug ("Found send");
+		return unless ($dcc->{starttime});
+			
+		if (defined $fs_sends[$s]->{transfd}) {
+			my $speed = ($dcc->{transfd}-$fs_sends[$s]->{transfd})/60;
+			my $min_cps = $fs_queues[$fs_sends[$s]{queue}]{min_cps};
+			if ($speed < 0) {
+				print_msg("BUG: send speed < 0 ($speed). Send number $s, ".
+					"dcc->transfd='$dcc->{transfd}', fs_sends->transfd='".
+					$fs_sends[$s]->{transfd} . "', skipped='".
+					$dcc->{skipped}. "', starttime='$dcc->{starttime}'. ".
+					"Please report this to maintainer (the best is to attach ".
+					"log output of last couple of minutes). Listing sends:");
+				display_sends('!fserve!');
+			}
+			if ($speed < $min_cps) {
+				# too slow...
+
+				if ($fs_sends[$s]->{warns} < 
+					$fs_queues[$fs_sends[$s]{queue}]->{speed_warnings}) {
+
+					# but he/she still has a chanse...
+					my $warn_msg;
+					my $last_warn_msg;
+
+					print_debug("$dcc->{nick}: send is too slow ($speed),".
+						" but warns=".$fs_sends[$s]->{warns});
+
+					if (!$fs_sends[$s]->{dontwarn}) {
+
+						if ($fs_sends[$s]->{warns} == 0) {
+							$warn_msg = "First warning";
+						} elsif ($fs_sends[$s]->{warns} == 1) {
+							$warn_msg = "Second warning";
+						} else {
+							$warn_msg = "Warning";
+							$fs_sends[$s]->{dontwarn} = 1;
+							$last_warn_msg = ' Next warnings will be suppressed.';
+						}
+						my $server = $dcc->{server};
+						if ($server && $server->{connected}) {
+							$server->command("^NOTICE $fs_sends[$s]->{nick} ".
+								$fs_prefs{clr_txt}.$warn_msg.
+								": the speed of your send (".
+								$fs_prefs{clr_hi}.size_to_str($speed)."/s".
+								$fs_prefs{clr_txt}.") is less than min CPS ".
+								"requirement (".$fs_prefs{clr_hi}.
+								size_to_str($min_cps)."/s".
+								$fs_prefs{clr_txt}.").".$last_warn_msg);
+							print_what_we_did("NOTICE $fs_sends[$s]->{nick} ".
+								$fs_prefs{clr_txt}.$warn_msg.
+								": the speed of your send (".
+								$fs_prefs{clr_hi}.size_to_str($speed)."/s".
+								$fs_prefs{clr_txt}.") is less than min CPS ".
+								"requirement (".$fs_prefs{clr_hi}.
+								size_to_str($min_cps)."/s".
+								$fs_prefs{clr_txt}.").".$last_warn_msg);
+						}
+					}
+
+					$fs_sends[$s]->{warns} += 1;
+				} else {
+					# we must finish him :(
+					my $server = $dcc->{server};
+					print_debug("$dcc->{nick}: warns=".
+						$fs_sends[$s]->{warns}.
+						" and speed is too slow ($speed)");
+					if ($server && $server->{connected}) {
+						$server->command("^NOTICE $fs_sends[$s]->{nick} ".
+							$fs_prefs{clr_txt}."The speed of your send (".
+							$fs_prefs{clr_hi}.size_to_str($speed)."/s".
+							$fs_prefs{clr_txt}.") is less than min CPS ".
+							"requirement (".$fs_prefs{clr_hi}.
+							size_to_str($min_cps)."/s".
+							$fs_prefs{clr_txt}."), aborting...");
+						print_what_we_did("NOTICE $fs_sends[$s]->{nick} ".
+							$fs_prefs{clr_txt}."The speed of your send (".
+							$fs_prefs{clr_hi}.size_to_str($speed)."/s".
+							$fs_prefs{clr_txt}.") is less than min CPS ".
+							"requirement (".$fs_prefs{clr_hi}.
+							size_to_str($min_cps)."/s".
+							$fs_prefs{clr_txt}."), aborting...");
+
+						$fs_sends[$s]{transfd} = -1;
+						$server->command("DCC CLOSE SEND $dcc->{nick}");
+					}
+					# FIXME: don't return here?
+					return; # don't touch $fs_sends[$s] anymore!
+				}
+			} else {
+				if ($fs_sends[$s]->{warns}) {
+					print_debug("$dcc->{nick}: speed is ok ($speed), reset speed warnings");
+					$fs_sends[$s]->{warns} = 0;
+				}
+			}
+		}
+		$fs_sends[$s]->{transfd} = $dcc->{transfd};
+		return;
+	}
+	# Could not find active send matching out record - delete it
+	# Don't know why it happens, one possibility is the file name in 
+	# dcc_destroyed do not match the one recoreded in fs_sends, but don't
+	# know how it's possibile 
+	print_debug("BUG?: cannot find file $fs_sends[$s]->{file} sending to ".
+		"$fs_sends[$s]->{nick}\@$fs_sends[$s]->{server_tag}");
+	print_debug("Active sends:");
+	foreach (Irssi::Irc::dccs()) {
+		print_debug("$_->{nick}\@$_->{servertag} -> $_->{arg}")
+			if ($_->{type} eq 'SEND');
+	}
+	print_debug("Removing lost send");
+	splice(@fs_sends, $s, 1);
+}
+
+
+sub do_help 
+{
+	my $arg = lc(join(" ", @_));
+	print_msg ("Arg is '$arg'");
+	
+	if (! $arg) { print_msg("
+Help for FServe
+
+All FServe commands are executed using '/fs <command>' 
+syntax.
+To get more help about specific topic type 
+'/fs help <topic>'.
+
+List of available help topics:
+* commands - available commands
+* tutorial - how to set up simple file server
+* bugs - known bugs/limitations (TODO)
+");	return; }
+
+	if ($arg eq "commands") { print_msg("
+List of FServe commands. 
+
+To get more help about specific command type
+'/fs help <command>'.
+
+v* on      - enable fileserver
+v* off     - disable fileserver
+v* save    - save config file
+v* load    - load config file
+v* saveq   - save sends and queues
+v* loadq   - load queues
+v* set     - list/set global settings
+v* sett    - list/set trigger variables
+v* addt    - add new trigger
+v* delt    - delete trigger
+v* selt    - set default trigger 
+v* queue   - list file queue
+v* sortt   - sort trigger
+v* move    - move queue slots around
+* insert  - insert a file into queue
+* clear   - remove queued files
+* sends   - list active sends
+* who     - list online online
+* stats   - show server statistics
+* distro  - show distro statistics
+* recache - update filecache
+* notify  - show fserve ad to user/channel
+* help    - show help
+"); return; }
+
+	if ($arg eq "on") {	print_msg("
+ON
+
+Enables FServe, updates filecache.
+Doesn't load saved queues.
+
+See also: LOADQ
+"); return; }
+	
+	if ($arg eq "off") { print_msg("
+OFF
+
+Disables FServe. 
+If 'autosave_on_close' is 1 saves sends and queues.
+
+See also: SAVEQ
+"); return; }
+
+	if ($arg eq "save") { print_msg("
+SAVE
+
+Saves config file.
+");	return; }
+
+	if ($arg eq "load") { print_msg("
+LOAD
+
+Loads config file.
+");	return; }
+
+	if ($arg eq "saveq") { print_msg("
+SAVEQ
+
+Saves sends and queues.
+
+See also: LOADQ
+");	return; }
+
+	if ($arg eq "loadq") { print_msg("
+LOADQ
+
+Loads sends and queues (sends are put 
+in the queues as first)
+
+See also: SAVEQ
+");	return; }
+
+	if ($arg eq "set") { print_msg("
+SET [-clear] [variable value]
+
+If used without arguments lists global settings.
+
+You can unset variable with -clear switch, 
+for example: /fs set -clear offline_message
+
+To get help for specific variable use
+/fs help set <variable_name>
+
+See also: SETT
+");	return; }
+
+	if ($arg eq "sett") { print_msg("
+SETT [-clear] [variable value]
+
+If used without arguments lists current trigger
+settings.
+You can select current trigger with '/fs selt <number>'
+
+You can unset variable with -clear switch, 
+for example: /fs sett -clear offline_message
+
+To get help for specific variable use
+/fs help sett <variable_name>
+
+See also: SET, SELT
+");	return; }
+
+	if ($arg eq "addt") { print_msg("
+ADDT
+
+Adds new trigger.
+
+See also: SELT
+");	return; }
+
+	if ($arg eq "delt") { print_msg("
+DELT <trigger number>
+
+Removes trigger.
+It does not remove files from queues.
+
+See also: SELT
+");	return; }
+
+	if ($arg eq "selt") { print_msg("	
+SELT <trigger number>
+
+Selects default trigger.
+
+The default trigger is used as default for
+MOVE, QUEUE, SETT, SORTT commands.
+");	return; }
+
+	if ($arg eq "queue") { print_msg("
+QUEUE [<trigger number>]
+
+Displays queued files.
+If used without argument uses default trigger.
+You can use '*' as an argument to display all 
+queued files.
+
+See also: SELT
+");	return; }
+
+	if ($arg eq "sortt") { print_msg("	
+SORTT [<trigger number>]
+
+Sorts queued files according to queue_priority.
+If used without argument uses default trigger.
+
+See also: SELT
+");	return; }
+
+	if ($arg eq "move") { print_msg("
+MOVE [<trigger number>] <from> <to>
+
+Moves files queued in trigger <trigger number> (or default
+trigger) from position <from> to position <to>.
+
+See also: SELT
+");	return; }
+
+	if ($arg eq "distro") { print_msg("	
+DISTRO stats
+
+Displays send count for files
+
+See also: SET distro
+");	return; }
+
+	if ($arg eq "set auto_save") { print_msg("
+SET auto_save <seconds>
+
+Every <seconds> seconds saves config, sends and 
+queues
+
+See also: SET autosave_on_close
+");	return; }
+	
+	if ($arg eq "set autosave_on_close") { print_msg("
+SET autosave_on_close 0|1
+
+When set to 1 sends and queues will be saved in /fs off
+
+See also: SET auto_save
+");	return; }
+	
+	if ($arg =~ /^set clr_(dir|file|hi|txt)$/) { print_msg("
+SET clr_dir <color>
+SET clr_file <color>
+SET clr_hi <color>
+SET clr_txt <color>
+
+This settings controll colors in fserve.
+Currently it's a little bit inconsistent.
+You can set <color> using ^C<txt_color>,<bg_color>
+(standart irssi/bitchx colors), for example
+/SET clr_txt ^C12
+to set text color to blue.
+
+Remember to use xy color codes, i.e. don't use 
+^C9 but use ^C09. If not displaying files that start 
+with a number will be fscked ;)
+");	return; }
+	
+	if ($arg eq "set count_send_as_queue") { print_msg("
+SET count_send_as_queue 0|1
+
+If set to 1 sends user have are counted as queues.
+So if user have 1 send and 2 file queued, and 
+user_slots is set to 3 the user won't be able
+to queue any more files (because has 2 queues and
+1 send = 3 files). If count_send_as_queue was 0
+the user would be able to queue one more file.
+
+See also: SETT user_slots
+");	return; }
+	
+	if ($arg eq "set debug") { print_msg("
+SET debug 0|1
+
+When set to 1 enables diagnostic messages
+");	return; }
+
+	if ($arg eq "set distro" || $arg eq "set distro_file" ) { print_msg("
+SET distro <probability>
+SET distro_file <file_name>
+
+When <probability> is 1 fileserver counts how many times 
+each file was sent, and first sends files with lowest send 
+count.
+
+In fact, distro setting isn't simply 0/1. It's a PROBABILITY of
+using distro mode for the send. The values should be from range
+[0,1], where 0 means don't use distro mode at all, and 1 means
+allways use distro mode. 
+
+For example when it's set to 0.7 it'll use distro mode in 7 
+cases of 10 (more or less). 
+
+See also: DISTRO
+");	return; }
+
+	if ($arg eq "set idle_time" || $arg eq "set max_time") { print_msg("	
+SET idle_time <s1>
+SET max_time <s2>
+
+Controls how much time the user can be connected with
+fserve on dcc chat.
+
+User will be disconnected after either:
+<s1> seconds of inactivity
+<s2> seconds since connecting
+");	return; }
+	
+	if ($arg eq "set ignores" || $arg eq "sett ignores") { print_msg("
+SET ignores <mask> <mask2> ...
+SETT ignores <mask> <mask2> ...
+
+Using this settings you can 'ban' users from the fserve.
+Fserve won't respond to !list nor trigger.
+
+The <mask> is in normal nick!ident\@host format,
+you can use '*' and '?'.
+");	return; }
+	
+	if ($arg eq "set log_name") { print_msg("
+SET log_name <file>
+
+Logs file transfers to <file>
+
+You can use \$IRSSI and ~ that specify irssi's home
+and your home directory.
+");	return; }
+
+	if ($arg eq "set max_queues" || 
+		$arg =~ /^sett (max_queues|guaranted_queues)$/){ print_msg("
+SET max_queues <val>
+SETT max_queues <val>
+SETT guaranted_queues <val>
+
+Those setting are responsibile for number of queues for 
+the trigger and for whole fserve.
+
+Algorithm used to compute number of free/max queues:
+
+Maximum queues := 
+  max( guaranted_queues, 
+       min(global max_queues, trigger max_queues) )
+
+Free queues := 
+  max( guaranted_queues - number of trigger queues,
+       min( global max_queues - number of all queues, 
+            trigger max_queues - number of queue queues ) )
+
+In short:
+a) the trigger has at least guaranted_queues queues
+b) maximum number of queues is the smallest value of 
+   global and trigger max_queues, except for (a)
+
+See also: SET max_sends
+
+TODO: examples of usage
+");	return; }
+
+	if ($arg eq "set max_sends" || 
+		$arg =~ /^sett (max_sends|guaranted_sends)$/){ print_msg("
+SET max_sends <val>
+SETT max_sends <val>
+SETT guaranted_sends <val>
+
+Those setting are responsibile for number of sends for 
+the trigger and for the whole fserve.
+
+Algorithm used to compute number of free/max sends:
+
+Maximum sends := 
+  max( guaranted_sends, 
+       min(global max_sends, trigger max_sends) )
+
+Free sends := 
+  max( guaranted_sends - number of trigger sends,
+       min( global max_sends - number of all sends, 
+            trigger max_sends - number of trigger sends ) )
+
+In short:
+a) the trigger has at least guaranted_sends sends
+b) maximum number of sends is the smallest value of 
+   global and trigger max_sends, except for (a)
+
+See also: SET max_queues, SET min_upload
+");	return; }
+
+	if ($arg eq "set max_users") { print_msg("
+SET max_users <number>
+
+Sets how many users can connect to the fserve.
+");	return; }
+	
+	if ($arg eq "set min_upload") { print_msg("
+SET min_upload <bps>
+
+Tries to make sure that sum of upload speeds
+of all dcc sends is >= <bps>. If for 4 minutes 
+it's no it tries to send next file, even if
+there is already max_sends sends.
+");	return; }
+
+	if ($arg eq "set motd" or $arg eq "set motdfile" or 
+		$arg eq "sett motd") { print_msg("
+SET <motd>
+SET <motd_file>
+SETT <motd>
+
+Specifies messages that will be displayed in welcome message
+after user connects to fserve.
+The message can be read from file <motd_file>.
+In <motd_file> you can use \$IRSSI and ~ that specify irssi's 
+home and your home directory.
+");	return; }
+
+	if ($arg eq "set offline_message") { print_msg("
+SET offline_message <message>
+
+When fserve is offline and user tries to connect
+to it using ctcp trigger fserve sends notice:
+'Sorry, fserve is currently offline. <message>'
+");	return; }
+
+	if ($arg eq "set queuefile") { print_msg("
+SET queuefile <file>
+
+Saves sends and queues to <file>
+
+You can use \$IRSSI and ~ that specify irssi's 
+home and your home directory.
+");	return; }
+	
+	if ($arg eq "set recache_interval") { print_msg("
+SET recache_interval <seconds>
+
+Every <seconds> does /fs recache.
+");	return; }
+	
+	if ($arg eq "sett channels") { print_msg("
+SETT channels <#channel1> [#channel2 ...]
+
+Space separated list of channels on which this
+trigger will work.
+
+See also: SETT servers
+");	return; }
+	
+	if ($arg eq "sett content" or $arg eq "sett note") { print_msg("
+SETT content <content>
+SETT note <note>
+
+Text that can be displayed in fserve ad.
+
+See also: SETT custom_notice
+");	return; }
+
+	if ($arg eq "sett ctcp_only") { print_msg("
+SETT ctcp_only 0|1
+
+If set to 1 fserve will ignore triggers typed
+on channels. It'll only respond to /ctcp.
+
+If set to 0 it will respond to both triggers typed
+on channels and used in /ctcp. 
+");	return; }
+	
+	if ($arg eq "sett custom_notice" || $arg eq "sett custom_notice_fields") { print_msg("
+SETT custom_notice 0|1
+SETT custom_notice_fields <list of fields>
+
+Controls what will be included in fserver ad. 
+If custom_notice is 0 then everything is included.
+If it's 1 then only fields specified in <list of fields>
+will be included.
+If it's 1 and custom_notice_fields is empty then fserve
+doesn't show ad at all (but it still respond to trigger
+etc.)
+
+Possibile fields: trigger, sends, queues, min_cps, online,
+accessed, snagged, record, current_upstream, serving,
+note, content
+
+Example: 
+/fs sett custom_notice_fields trigger note content
+");	return; }
+	
+	if ($arg eq "sett dont_notify") { print_msg("
+");	return; }
+	if ($arg eq "sett find") { print_msg("
+");	return; }
+	if ($arg eq "sett ignore_msg") { print_msg("
+");	return; }
+	if ($arg eq "sett instant_send") { print_msg("
+");	return; }
+	if ($arg eq "sett max_resends") { print_msg("
+");	return; }
+	if ($arg eq "sett min_cps") { print_msg("
+");	return; }
+	if ($arg eq "sett nice") { print_msg("
+");	return; }
+	if ($arg eq "sett notify_interval") { print_msg("
+");	return; }
+
+	if ($arg eq "sett notify_on_join") { print_msg("
+SETT notify_on_join 0|1
+
+When on, users joining a served channel will
+be sent an fserve notice.
+");	return; }
+	
+	if ($arg eq "sett queue_priority") { print_msg("
+");	return; }
+	if ($arg eq "sett request") { print_msg("
+");	return; }
+	if ($arg eq "sett restricted_level") { print_msg("
+");	return; }
+	if ($arg eq "sett root_dir") { print_msg("
+");	return; }
+	
+	if ($arg eq "sett servers") { print_msg("
+SETT servers <server_tag> [server_tag_2 ...]
+
+Space separated list of server tags on which this 
+trigger will work.
+Please read tutorial on how to add server tags.
+
+See also SETT channels, tutorial
+");	return; }
+	
+	if ($arg eq "sett speed_warnings") { print_msg("
+");	return; }
+	if ($arg eq "sett trigger") { print_msg("
+");	return; }
+
+	if ($arg eq "sett user_slots") { print_msg("
+SETT user_slots <number>
+
+Number of file user can queue (sometimes
+files being sent counts as well - see
+SET count_send_as_queue).
+
+See also: SET count_send_as_queue
+");	return; }
+
+	if ($arg eq "tutorial") {
+		print_msg("
+Setting up simple file server.
+
+After loading fserve you need to at least 
+- add first trigger with '/fs addt'
+- set up 'root_dir', 'servers' and 'channels'
+  For example: 
+  /fs sett root_dir /home/me/fs_root
+  /fs sett servers aniv
+  /fs sett channels #smurfs
+  
+The 'aniv' is the name if irc network you'll be using.
+You can add irc networks with '/ircnet add', for example:
+/ircnet add aniv
+and then
+/server add -ircnet aniv irc.aniverse.com 
+
+You can now enable the FServe with '/fs on'!
+
+Some other things you should know:
+- you can list global and trigger-specific settings with 
+  '/fs set' and '/fs sett'
+- you can add more triggers with '/fs addt' and choose default 
+  trigger with '/fs selt <number>'
+- 'servers' and 'channels' can be a list of space separated 
+  values, for example '#smurfs #gumibears #wuzzles'
+- '/fs help' has help for all FServe commands and settings
+");
+	return;
+	}
+	
+	if ($arg eq "bugs") { print_msg("
+Limitations:
+
+There can be only one send per user on irc server, no matter
+how many trigger there are. Maybe this should be changed to
+1 send/trigger or even be parametrized. Comments welcomme.
+");	return; }
+
+	print_msg("No such help topic: $arg");
+}
+
+##############################################################################
+# Handle an "/fs *" type command
+###############################################################################
+sub sig_fs_command
+{
+	my ($cmd_line, $server, $win_item) = @_;
+	my @args = split(' ', $cmd_line);
+
+	if (@args <= 0 || lc($args[0]) eq 'help') {
+		shift @args;
+		do_help(@args);
+		return;
+	}
+
+	# convert command to lowercase
+	my $cmd = lc(shift(@args));
+
+	if ($cmd eq 'on') {
+		unless ($fs_enabled) {
+			update_files();
+			$timer_tag = Irssi::timeout_add(1000, 'sig_timeout', 0);
+			$fs_enabled = 1;
+		}
+		print_msg("Fileserver online!");
+	} elsif ($cmd eq 'off') {
+		if ($fs_enabled) {
+			$fs_enabled = 0;			
+			Irssi::timeout_remove($timer_tag);
+			print_msg("Sends & Queue saved") 
+				if ($fs_prefs{autosave_on_close} && (!save_queue()));
+			print_msg("Distro file saved") if ($fs_prefs{distro} and !save_distro());
+		}
+		print_msg("Fileserver offline!");
+	} elsif ($cmd eq 'set' || $cmd eq 'sett') {
+		my $hash;
+		if ($cmd eq 'set') {
+			$hash = \%fs_prefs;
+		} else {
+			$hash = $fs_queues[$default_queue];
+		}
+		if (@args == 0) {
+			my $msg = "[$fs_prefs{clr_hi}FServe Variables$fs_prefs{clr_txt}]";
+			if ($cmd eq 'sett') {
+				$msg .= " for queue $default_queue";
+			}
+			print_msg($msg);
+			foreach (sort(keys %{$hash})) {
+				if (/clr/) {
+					print_msg("$_ $fs_prefs{clr_hi}=$fs_prefs{clr_txt} ".
+							  "$hash->{$_}COLOR");
+				} elsif ($cmd eq 'sett' && ($_ eq 'queue' || $_ eq 'cache' ||
+						$_ eq 'sends' || $_ eq 'filecount' || $_ eq 'bytecount')) {
+					next;
+				} else {
+					print_msg("$_ $fs_prefs{clr_hi}=$fs_prefs{clr_txt} ".
+							  $hash->{$_});
+				}
+			}
+			print_msg("\003\n$fs_prefs{clr_txt}Ex: /fs set max_users 4");
+		} elsif (@args < 2) {
+			print_msg("Error: usage /fs $cmd <var> <value>");
+	    } elsif ($args[0] eq '-clear' && defined $hash->{$args[1]}) {
+			print_msg("Clearing $args[1]");
+			$hash->{$args[1]} = "";
+			if ($args[1] eq 'log_name' && $logfp) {
+			    print_log("Closing log.");
+			    close($logfp);
+			    undef $logfp;
+			}
+		} elsif (defined $hash->{$args[0]}) {
+			my $var = shift(@args);
+			return if ($cmd eq 'sett' && ($var eq 'queue' || $var eq 'cache' ||
+				$var eq 'sends' || $var eq 'filecount' || $var eq 'bytecount'));
+			$hash->{$var} = "@args";
+			if ($var =~ /^clr/) {
+				print_msg("Setting: $var $fs_prefs{clr_hi}=$hash->{$var}COLOR");
+			} else {
+				print_msg("Setting: $var $fs_prefs{clr_hi}=$fs_prefs{clr_txt} ".
+						  $hash->{$var});
+			}
+			if ($var eq 'log_name') {
+				if ($logfp) {
+					print_log("Closing log.");
+					close($logfp);
+					undef $logfp;
+				}
+				print_log("Opening log.");
+			} elsif ($var eq 'motdfile') {
+				$motdfile_modified = 0;				
+			}
+		} else {
+			print_msg("Error: unknown variable ($args[0])");
+		}
+	} elsif ($cmd eq 'save') {
+		print_msg("Config file saved!") if (!save_config());
+	} elsif ($cmd eq 'load') {
+		print_msg("Config file loaded!") if (!load_config());
+	} elsif ($cmd eq 'saveq') {
+		print_msg("Sends & Queue saved!") if (!save_queue());
+	} elsif ($cmd eq 'loadq') {
+		print_msg("Queue loaded!") if (!load_queue());
+	} elsif ($cmd eq 'who') {
+		display_who('!fserve!');
+	} elsif ($cmd eq 'recache') {
+		update_files();
+	} elsif ($cmd eq 'queue') {
+		if (@args < 1) {
+			display_queue('!fserve!', $default_queue);
+		} elsif ($args[0] eq '*') {
+			foreach (0 .. $#fs_queues) {
+				display_queue('!fserve!', $_);
+			}
+		} elsif ($args[0] > $#fs_queues) {
+			print_msg("Usage /fs queue [<queue>]");
+		} else {
+			display_queue('!fserve!', $args[0]);
+		}
+	} elsif ($cmd eq 'sends') {
+		display_sends('!fserve!');
+	} elsif ($cmd eq 'sortt') {
+		if (@args < 1) {
+			sort_queue($default_queue);
+		} elsif ($args[0] > $#fs_queues) {
+			print_msg("Usage /fs sortt [<queue>]");
+		} else {
+			sort_queue($args[0]);
+		}
+	} elsif ($cmd eq 'stats') {
+		display_stats('!fserve!');
+		foreach (0 .. $#fs_queues) {
+			print_msg("Queue $_: ".scalar(@{$fs_queues[$_]->{queue}}).'/'.
+					  $fs_queues[$_]->{max_queues}." files");
+		}
+	} elsif ($cmd eq 'insert') {
+		if (@args < 3 || $args[0] > $#fs_queues) {
+			print_msg("Usage /fs insert <queue> <nick> <file>");
+			return;
+		}
+		my $qn = shift(@args);
+		my $nick_id = shift(@args);
+		srv_queue_file($nick_id, "@args", $qn);
+	} elsif ($cmd eq 'move') {
+		if (@args < 2 || (@args > 2 && $args[0] > $#fs_queues)) {
+			print_msg("Usage /fs move [<queue>] <from> <to>");
+		} elsif (@args == 2) {
+			srv_move_slot($args[0], $args[1], $fs_queues[$default_queue]->{queue});
+		} else {
+			srv_move_slot($args[1], $args[2], $fs_queues[$args[0]]->{queue});
+		}
+	} elsif ($cmd eq 'clear') {
+		if (@args < 1) {
+			print_msg("Usage /fs clear <nick> | /fs clear -all");
+			return;
+		}
+		foreach (0 .. $#fs_queues) {
+			if ($args[0] eq '-all') {
+				my @nullqueue = ();
+				$fs_queues[$_]->{queue} = [ @nullqueue ];
+			} else {
+				clear_queue($args[0], 1, $_);
+			}
+		}
+	} elsif ($cmd eq 'notify') {
+		return unless ($fs_enabled);
+		# TODO /fs notify #channel server
+		# FIXME not working?
+		foreach my $qn (0 .. $#fs_queues) {
+			if (@args == 0) {
+				foreach my $s (split(' ', $fs_queues[$qn]->{servers})) {						
+					my $server = Irssi::server_find_tag($s);
+					next if (!$server || !$server->{connected});
+					foreach (split(' ', $fs_queues[$qn]->{channels})) {
+						show_notice($server, $_, $qn);
+					}
+				}
+			} else {
+				foreach my $s (split(' ', $fs_queues[$qn]->{servers})) {						
+					my $server = Irssi::server_find_tag($s);
+					next if (!$server || !$server->{connected});
+					foreach (@args) {
+						show_notice($server, $_, $qn)
+							if ($fs_queues[$qn]->{channels} =~ /.*$_.*/i);
+					}
+				}
+			}	
+		}
+	} elsif ($cmd eq 'distro') {
+		if ($args[0] eq 'stats') {
+			foreach (sort keys %fs_distro) {
+				foreach my $size (sort keys %{$fs_distro{$_}}) {
+					print_msg("$_ (".$size." B) $fs_distro{$_}{$size}");
+				}
+			}
+		} else {
+			print_msg("Usage: /fs distro stats");
+		}
+	} elsif ($cmd eq 'selt') {
+		if (@args < 1 || $args[0] > $#fs_queues) {
+			print_msg("Usage: /fs selt <queue>");
+			return;
+		}
+		$default_queue = $args[0];
+		print_msg("Selecting trigger: $default_queue");
+	} elsif ($cmd eq 'addt') {
+		print_msg("Adding trigger: ".scalar(@fs_queues));
+		push (@fs_queues, { %fs_queue_defaults });
+		@{$fs_queues[$#fs_queues]->{queue}} = ();
+	} elsif ($cmd eq 'delt') {
+		if (@args < 1 || $args[0] > $#fs_queues) {
+			print_msg("Usage: /fs delt <trigger_no>");
+			return;
+		} elsif (@fs_queues < 2) {
+			print_msg("You cannot remove last trigger!");
+			return;
+		}
+		my $qn = $args[0];
+		if ($fs_queues[$qn]->{sends}) {
+			print_msg('There are on-going sends for this trigger,');
+			print_msg('please stop them first before removing the trigger.');
+			print_msg('(If you think fserve.pl should act differently');
+			print_msg('in this case please drop me a mail. Thanks)');
+			return;
+		}
+		splice (@fs_queues, $qn, 1);
+		foreach (@fs_sends) {
+			if ($_->{queue} > $qn) {
+				$_->{queue}--;
+			}
+		}
+		foreach ($qn .. $#fs_queues) {
+			foreach my $q (@{$fs_queues[$_]->{queue}}) {
+				$q->{queue}--;
+			}
+		}
+		if ($default_queue >= $qn) {
+			$default_queue--;
+		}
+		print_msg("Trigger $qn deleted");
+	} else {
+		print_msg("Unrecognized command /fs $cmd");
+	}
+}
+
+###############################################################################
+###############################################################################
+##	
+##		Script subroutines
+##
+###############################################################################
+###############################################################################
+
+###############################################################################
+#	initiate_dcc_chat($server, $nick, $qn): inits a dcc chat & sets some 
+#	variables for $nick
+###############################################################################
+sub initiate_dcc_chat
+{
+	my ($server, $nick, $qn) = @_;
+
+	print_debug("Initiating DCC CHAT to $nick for queue $qn");
+
+	my %nickinfo = ();
+	$nickinfo{status} 	= -1;
+	$nickinfo{time} 	= 0;
+	$nickinfo{ignore}	= 0;
+	$nickinfo{dir} 		= '/';
+	$nickinfo{queue}	= $qn;
+	$nickinfo{server}	= $server->{tag};
+
+	$fs_users{$nick."@".$server->{tag}} = { %nickinfo };
+	$server->command("DCC CHAT $nick");
+}
+
+###############################################################################
+#	show_notice($server, $dest, $qn): displays server notice to $dest
+#	($dest = #channel or nick)
+###############################################################################
+sub show_notice
+{
+	my ($server, $dest, $qn) = @_;
+	my $queue = $fs_queues[$qn];
+
+	foreach ($fs_queues[$qn]{dont_notify}) {
+		return if ($_ eq $dest);
+	}
+	
+	my $msg = "\002(\002FServe Online\002)\002";
+	
+	my @fields_list = ("trigger", "sends", "queues", "min_cps", "online", 
+		"accessed", "snagged", "record", "current_upstream", "serving",
+		"note", "content");
+	
+	if ($queue->{custom_notice}) {
+		return if (!$queue->{custom_notice_fields}); # Don't send the ad
+		@fields_list = split(' ', $queue->{custom_notice_fields});
+	}
+		
+	foreach (@fields_list) {
+		/trigger/ && do { 
+			$msg .= " Trigger:(/ctcp $$server{nick} $queue->{trigger})";
+			next; 
+		};
+		/sends/ && do { 
+			my ($curr_sends, $free_sends, $max_sends) = get_max_sends($qn);
+			$msg .= " Sends:(".($max_sends-$free_sends)."/$max_sends)";
+			next; 
+		};
+		/queues/ && do { 
+			my ($curr_queues, $free_queues, $max_queues) = get_max_queues($qn);
+			$msg .= " Queues:(".($max_queues-$free_queues)."/$max_queues)";
+			next; 
+		};			
+		/min_cps/ && do { 
+			if ($queue->{min_cps}) {
+				$msg .= ' Min CPS:('.size_to_str($queue->{min_cps}).'/s)';
+			}
+			next; 
+		};
+		/online/ && do { 
+		    $msg .= ' Online:('.(keys %fs_users)."/$fs_prefs{max_users})";
+			next; 
+		};
+		/accessed/ && do { 
+    		$msg .= " Accessed:($fs_stats{login_count} times)";
+			next; 
+		};
+		/snagged/ && do { 
+			$msg .= ' Snagged:('.size_to_str($fs_stats{transfd}).' in '.
+				($fs_stats{sends_ok}+$fs_stats{sends_fail}).' files)';
+			next; 
+		};
+		/record/ && do { 
+			if ($fs_stats{record_cps}) {
+				$msg .= ' Record CPS:('.size_to_str($fs_stats{record_cps}).
+				'/s by '.$fs_stats{rcps_nick}.')';
+			}
+			next; 
+		};
+		/current_upstream/ && do { 
+			my $curr_ups = 0;
+			foreach my $dcc (Irssi::Irc::dccs()) {
+				if ($dcc->{type} eq 'SEND') {
+					$curr_ups += ($dcc->{transfd}-$dcc->{skipped})/
+						(time() - $dcc->{starttime} + 1);
+				}
+			}
+			$msg .= ' Current Upstream:('.size_to_str($curr_ups).'/s)';
+			next; 
+		};
+		/serving/ && do { 
+			$msg .= ' Serving:('.size_to_str($queue->{bytecount}).' in '.
+				"$queue->{filecount} files)";
+			next; 
+		};
+		/note/ && do { 
+			if (length($queue->{note})) {
+				$msg .= " Note:($fs_prefs{clr_hi}$queue->{note}$fs_prefs{clr_txt})";
+			}
+			next; 
+		};
+		/content/ && do { 
+			if (length($queue->{content})) {
+				$msg .= " On FServe:($fs_prefs{clr_hi}$queue->{content}$fs_prefs{clr_txt})";
+			}
+			next; 
+		};
+		print_debug("Unknown notice field: $_");
+	}
+
+	$msg =~ s/\(/\($fs_prefs{clr_hi}/g;
+	$msg =~ s/\)/$fs_prefs{clr_txt}\)/g;
+
+	$msg .= " [FServe.pl $VERSION]";
+		
+	if ($dest =~ /^#/) {
+		$server->command("MSG $dest $fs_prefs{clr_txt}$msg");
+	} else {
+		$server->command("^NOTICE $dest $fs_prefs{clr_txt}$msg");
+		print_what_we_did("NOTICE $dest $fs_prefs{clr_txt}$msg");
+	}
+}
+
+###############################################################################
+#       show_find($server, $who, $file, $qn): displays @find notice to $who
+###############################################################################
+sub show_find
+{
+	my ($server, $who, $file, $qn) = @_;
+
+	$file =~ s/^\@find //i;
+	$file = "\Q$file\E";
+	$file =~ s/([\\]?[* ])+/.*/g;
+
+	print_debug("requested find patter '$file' in queue $qn");
+	# prepare list
+	my @founds = ();
+	foreach my $dir (keys %{$fs_queues[$qn]->{cache}}) {
+		my $files = $fs_queues[$qn]->{cache}{$dir}{files};
+		my $sizes = $fs_queues[$qn]->{cache}{$dir}{sizes};
+
+		$dir =~ s/$/\//;
+		$dir =~ s/^\/+//;
+		foreach my $i (0 .. $#{$files}) {
+			$_ = ${$files}[$i];
+#			print_debug("Checking against '$_'");
+			if (/$file/i) { # hmm.. check Sysreset response...
+#				print_debug("This file matches!");
+				push (@founds, (scalar(@founds)+1).". File: (".
+					$fs_prefs{clr_dir}.$dir.$_.$fs_prefs{clr_txt}.") Size:(".
+					size_to_str(${$sizes}[$i]).")");
+			}
+		}
+	}
+
+	if (!@founds) {
+		return;
+	}
+
+	my ($curr_sends, $free_sends, $max_sends) = get_max_sends($qn);
+	my ($curr_queues, $free_queues, $max_queues) = get_max_queues($qn);
+	
+	my $message = "(\@Find Results) - [FServe.pl $VERSION]";
+	$server->command("^MSG $who $message");
+	print_what_we_did("MSG $who $message");
+	$message = "Found ".@founds." file(s) on trigger:(".$fs_prefs{clr_hi}.
+		"/ctcp $server->{nick} $fs_queues[$qn]->{trigger}".$fs_prefs{clr_txt}.
+		") Sends:(".($max_sends-$free_sends)."/$max_sends)".
+		" Queues:(".($max_queues-$free_queues)."/$max_queues)";
+	$server->command("^MSG $who $message");
+	print_what_we_did("MSG $who $message");
+	
+	foreach (0 .. $#founds) {
+		last if ($_ >= $fs_queues[$qn]->{find});
+		$server->command("^MSG $who $founds[$_]");
+		print_what_we_did("MSG $who $founds[$_]");
+	}
+	if (@founds > $fs_queues[$qn]->{find}) {
+		$server->command("^MSG $who Too many results to display!");
+		print_what_we_did("MSG $who Too many results to display!");
+	} else {
+		$server->command("^MSG $who End of \@Find.");
+		print_what_we_did("MSG $who End of \@Find.");
+	}
+}
+
+###############################################################################
+#	change_dir($nick, $dir): changes directory for $nick
+###############################################################################
+sub change_dir
+{
+	my ($nick, $dir) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $qn = $fs_users{$nick}{queue};
+
+	$dir =~ s/\x03//g; # remove colors if any
+	my @dir_fields = ();
+	unless (substr($dir, 0, 1) eq '/') {
+		@dir_fields = split('/', $fs_users{$nick}{dir});
+	}
+
+	foreach (split('/', $dir)) {
+		next if ($_ eq '.');
+		if ($_ eq '..') {
+			pop(@dir_fields);
+		} else {
+			push(@dir_fields, $_);
+		}
+	}
+
+	my $new_dir = '/'.join('/', @dir_fields);
+	$new_dir =~ s/\/+/\//g;		# remove excessive '/'
+
+	if (defined $fs_queues[$qn]->{cache}{$new_dir}) {
+		$fs_users{$nick}{dir} = $new_dir;
+		send_user_msg($server_tag, $irc_nick, 
+			"[$fs_prefs{clr_hi}$new_dir$fs_prefs{clr_txt}]");
+	} else {
+		send_user_msg($server_tag, $irc_nick, 
+			"[$fs_prefs{clr_hi}$new_dir$fs_prefs{clr_txt}] doesn't exist!");
+	}
+}
+
+###############################################################################
+#	list_dir($nick): list contents of current directory for $nick
+###############################################################################
+sub list_dir
+{
+	my ($nick) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $qn = $fs_users{$nick}{queue};
+	my $dir = $fs_queues[$qn]->{cache}{$fs_users{$nick}{dir}};
+	my @filelist = ();
+
+	$_ = $fs_users{$nick}{dir};
+	s/\/+$//;
+	send_user_msg($server_tag, $irc_nick, 
+		"Listing [$fs_prefs{clr_hi}$_/*.*$fs_prefs{clr_txt}]");
+
+	# print the directories sorted
+	send_user_msg($server_tag, $irc_nick, $fs_prefs{clr_dir}."..") 
+		if ($fs_users{$nick}{dir} ne "/");
+	send_user_msg($server_tag, $irc_nick, 
+		$fs_prefs{clr_dir}.$_.$fs_prefs{clr_txt}.'/') 
+		foreach (sort(@{${$dir}{dirs}}));
+
+	# prepare filelist
+	foreach (0 .. $#{${$dir}{files}}) {
+		push(@filelist, ${$dir}{files}[$_]."  ".
+		     size_to_str(${$dir}{sizes}[$_]));
+	}
+
+	# print the files sorted
+	send_user_msg($server_tag, $irc_nick, $fs_prefs{clr_file}.$_) 
+		foreach(sort(@filelist));
+	send_user_msg($server_tag, $irc_nick, 
+		"End [$fs_prefs{clr_hi}$fs_users{$nick}{dir}$fs_prefs{clr_txt}]");
+}
+
+###############################################################################
+#	srv_queue_file($nick_id, $file, $qn): queues to queue $qn file for $nick_id,
+#				      server use only
+#				      (no max_queue and/or duplicate check)
+###############################################################################
+sub srv_queue_file
+{
+	my ($nick_id, $path, $qn) = @_;
+	my ($nick, $server_tag) = split('@', $nick_id);
+	$path =~ s/~/$ENV{"HOME"}/;
+
+	unless (-e $path || -f $path) {
+		print_msg("Invalid file: '$path'");
+		return;
+	}
+
+	my $size = (stat($path))[7];
+	$path =~ /(.*)\/(.*)/;
+	$path = $1;
+	my $file = $2;    
+
+	push(@{$fs_queues[$qn]->{queue}}, { queue => $qn, nick => $nick,
+		 file => $file, size => $size,
+		 dir => $path, resends => 0, warns => 0, server_tag => $server_tag });
+		 
+	print_msg($fs_prefs{clr_hi}.'#'.@{$fs_queues[$qn]->{queue}}.
+			  $fs_prefs{clr_txt}.": Queuing '$fs_prefs{clr_hi}$file".
+			  "$fs_prefs{clr_txt}' for $fs_prefs{clr_hi}$nick".
+			  "$fs_prefs{clr_txt} ($server_tag) in queue ".
+			  "$fs_prefs{clr_hi}$qn$fs_prefs{clr_txt}!");
+}
+
+###############################################################################
+#	srv_move_slot($slot, $dest, [ @queue ]): moves queue slots around
+###############################################################################
+sub srv_move_slot
+{
+	my ($slot, $dest, $fsq) = @_;
+
+	$slot--;
+	$dest--;
+
+	unless (defined ${$fsq}[$slot] || defined ${$fsq}[$dest]) {
+		print_msg("Error: Invalid slot numbers!");
+		return;
+	}
+	print_debug("srv_move_slot: Will move $slot to $dest");
+
+	my %rec = %{${$fsq}[$slot]};
+	splice(@{$fsq}, $slot, 1);
+	splice(@{$fsq}, $dest, 0, { %rec });
+
+	print_msg("Moved slot $fs_prefs{clr_hi}#".($slot+1).$fs_prefs{clr_txt}.
+			  " to $fs_prefs{clr_hi}#".($dest+1));
+}
+
+###############################################################################
+#	get_user_flag($server, $nick,$qn): returns highest user flag 
+#		(normal/voice/halfop/op) among all channels from fs_queues[$qn]->{channels}
+###############################################################################
+sub get_user_flag {
+	my ($server,$nick,$qn) = @_;
+	
+	my $bestflag = "normal";
+	foreach my $channelName (split(' ', $fs_queues[$qn]->{channels})) {
+		my $channel = $server->channel_find($channelName);
+		next if !$channel;
+		my $n = $channel->nick_find($nick);
+		next if !$n;
+		if ($n->{op}) {
+			return "op";
+		} elsif ($n->{halfop}) {
+			$bestflag = "halfop";
+		} elsif ($n->{voice} and $bestflag ne "halfop") {
+			$bestflag = "voice";
+		}
+		# max 4 categories - see sort_queue() also
+	}
+	return $bestflag;
+}
+
+###############################################################################
+#	sort_queue($qn): sorts queue according to queue_priority 
+#				  returns where was moved last position
+###############################################################################
+	# queue_priority format:
+	# group1 group2 ... groupN
+	# where groupX is one of: others, normal, voice, halfop, op
+	# for example:
+	#   normal voice others
+	# means that first in queue are "normal" people, then people who are +v,
+	# and then the rest - ops and halfops
+	#
+	# When some server is disconnected then all people on this server are
+	# sorted last in the queue.
+sub sort_queue {
+	my ($qn) = @_;
+
+	print_debug ("sort_queue: $qn");
+	return ($#{$fs_queues[$qn]->{queue}})
+		if (!$fs_queues[$qn]->{queue_priority});
+
+	my %prio;
+	my $n = 1;  # highest priority is 0 - resended queue
+	foreach (split (/ +/, $fs_queues[$qn]->{queue_priority})) {
+		if (/others/) {
+			foreach my $type ("normal", "voice", "halfop", "op") {
+				if (not exists $prio{$type}) {
+					$prio{$type} = $n;
+				}
+			}
+		} else {
+			$prio{$_} = $n;
+		}
+		$n++;
+	}
+	# in case there is no 'others' in queue_priority we assume it's last
+	foreach my $type ("normal", "voice", "halfop", "op") {
+		if (not exists $prio{$type}) {
+			$prio{$type} = $n;
+		}
+	}
+	my $max_prio = $n;
+
+	my @uprio = (0, 0, 0, 0, 0); # assume max 4 categories + resends :)
+	my $fsq = $fs_queues[$qn]->{queue};
+	my $dmsg = 'Sorting...';
+	# now do sorting
+	foreach (0 .. $#{$fsq}) {
+		if (${$fsq}[$_]->{resends}) {
+			$n = 0;
+		} else {
+			my $server = Irssi::server_find_tag(${$fsq}[$_]->{server_tag});
+			if (!$server || !$server->{connected}) {
+				$n = $max_prio;
+			} else {
+				$n = $prio{get_user_flag($server, ${$fsq}[$_]->{nick}, $qn)};
+			}
+		}
+
+		# re-sort these positions 0 .. $_
+		splice(@{$fsq}, $uprio[$n], 0, splice(@{$fsq}, $_, 1))
+			if ($uprio[$n] != $_);
+
+		$dmsg .= " $_:$uprio[$n]";
+		# update @uprio
+		$uprio[$_]++ foreach ($n .. $#uprio);
+	}
+	print_debug($dmsg);
+
+	# $n now has prio for last moved position
+	return $uprio[$n]-1;
+}
+
+###############################################################################
+#	queue_file($nick, $file): queues $file for $nick. 
+###############################################################################
+sub queue_file
+{
+	my ($nick, $ufile) = @_;
+	$ufile =~ s/\s+$//; 
+	my $qn = $fs_users{$nick}{queue};
+	my ($file, $size);
+	my ($irc_nick, $server_tag) = split('@', $nick);
+
+	print_debug("queue_file: '$ufile' for $nick in queue $qn");
+	# try to find the filename in cache
+	my $files = $fs_queues[$qn]->{cache}{$fs_users{$nick}{dir}}{files};
+	my $sizes = $fs_queues[$qn]->{cache}{$fs_users{$nick}{dir}}{sizes};
+
+	my $fsq = $fs_queues[$qn]->{queue};
+
+	foreach (0 .. $#{$files}) {
+		if (uc(${$files}[$_]) eq uc($ufile)) {
+			$file = ${$files}[$_];
+			$size = ${$sizes}[$_];
+			last;
+		}
+	}
+
+	unless (defined $file) {
+		send_user_msg($server_tag, $irc_nick, 
+			"Invalid filename: '$fs_prefs{clr_hi}$ufile$fs_prefs{clr_txt}'!");
+		return;
+	}
+
+	my $server = Irssi::server_find_tag($server_tag);
+	if (!$server || !$server->{connected}) {
+		print_msg("Error: this should never happen!!! #002");
+		return;
+	}
+
+	if ($size <= $fs_queues[$qn]{instant_send}) {
+		my $sfile = $fs_queues[$qn]->{root_dir}.$fs_users{$nick}{dir}.'/'.$file;
+		$sfile =~ s/\/+/\//g;
+		if (-e $sfile && -f $sfile) {
+			send_user_msg($server_tag, $irc_nick, 
+				"Sending '$fs_prefs{clr_hi}$file$fs_prefs{clr_txt}'");
+			$sfile =~ s/'/\\'/g;
+			$server->command("DCC SEND $irc_nick $FD$sfile$FD");
+			return;
+		}
+	}
+
+	my ($curr_queues, $free_queues, $max_queues) = get_max_queues($qn);
+	my ($curr_sends, $free_sends, $max_sends) = get_max_sends($qn);
+
+	if (count_user_files($server_tag, $irc_nick, $qn) >= 
+		$fs_queues[$qn]->{user_slots}) {
+		send_user_msg($server_tag, $irc_nick, 
+			"No sends are available and you have ".
+			"used all your queue slots ($fs_prefs{clr_hi}".
+			"$fs_queues[$qn]->{user_slots}$fs_prefs{clr_txt})");
+		return;
+	} elsif ($free_queues <= 0) {
+		send_user_msg($server_tag, $irc_nick, 
+			"No send or queue slots are available!");
+		return;
+	} else {
+		foreach (0 .. $#{$fsq}) {
+			if (${$fsq}[$_]->{nick} eq $irc_nick && 
+				${$fsq}[$_]->{file} eq $file &&
+				${$fsq}[$_]->{server_tag} eq $server_tag) {
+				send_user_msg($server_tag, $irc_nick, 
+					"You have already queued '".
+					"$fs_prefs{clr_hi}$file$fs_prefs{clr_txt}'".
+					" in slot #$fs_prefs{clr_hi}".($_+1).
+					"$fs_prefs{clr_txt}!");
+				return;
+			}
+		}
+	}
+
+	push(@{$fsq}, { queue => $qn, nick => $irc_nick, file => $file, 
+		size => $size, dir => $fs_queues[$qn]->{root_dir}.$fs_users{$nick}{dir},
+	 	resends => 0, warns => 0, server_tag => $server_tag });
+
+	my $place = sort_queue($qn);	
+	print_debug("queue_file: queued on place $place");
+	
+	send_user_msg($server_tag, $irc_nick, 
+		"Queued '$fs_prefs{clr_hi}$file$fs_prefs{clr_txt}".
+		"' (".$fs_prefs{clr_hi}.size_to_str($size).
+		$fs_prefs{clr_txt}.") in slot ".$fs_prefs{clr_hi}.'#'.
+		($place+1) .$fs_prefs{clr_txt});
+}
+
+###############################################################################
+#	dequeue_file($nick, $slot): dequeues file in slot $slot for $nick
+###############################################################################
+sub dequeue_file
+{
+	my ($nick, $slot) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $fsq = $fs_queues[$fs_users{$nick}{queue}]->{queue};
+
+	$slot -= 1;
+	if (defined ${$fsq}[$slot]) {
+		if (${$fsq}[$slot]->{nick} eq $irc_nick &&
+			${$fsq}[$slot]->{server_tag} eq $server_tag) {
+			my $filename = ${$fsq}[$slot]{file};
+			splice(@{$fsq}, $slot, 1);
+			send_user_msg($server_tag, $irc_nick, "Removing '$fs_prefs{clr_hi}".
+				"$filename$fs_prefs{clr_txt}', you now have $fs_prefs{clr_hi}".
+				count_queued_files($server_tag, $irc_nick,$fs_users{$nick}{queue}).
+				"$fs_prefs{clr_txt} file(s) queued!");
+		} else {
+			send_user_msg($server_tag, $irc_nick, 
+				"You can't dequeue other peoples files!!!");
+		}
+	} else {
+		send_user_msg($server_tag, $irc_nick, 
+			"Queue slot $fs_prefs{clr_hi}#".($slot+1).
+			$fs_prefs{clr_txt}." doesn't exist!");
+	}
+}
+
+###############################################################################
+#	clear_queue($nick, $is_server, $qn): clears all queued files for $nick
+###############################################################################
+sub clear_queue
+{
+	my ($nick, $is_server, $qn) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $fsq = $fs_queues[$qn]->{queue};
+	my $count = 0;
+
+	if (count_queued_files($server_tag, $irc_nick, $qn) == 0) {
+		if ($is_server) {
+			print_msg("$fs_prefs{clr_hi}$nick$fs_prefs{clr_txt} doesn't ".
+					  "have any files queued!");
+		} else {
+			send_user_msg($server_tag, $irc_nick, "You don't have any queued files!");
+		}
+	} else {
+		for (my $i = $#{$fsq}; $i >= 0; $i--) {
+			if (${$fsq}[$i]->{nick} eq $irc_nick && 
+				${$fsq}[$i]->{server_tag} eq $server_tag) {
+				splice(@{$fsq}, $i, 1);
+				$count++;
+			}
+		}
+
+		$irc_nick = '!fserve!' if ($is_server);
+		send_user_msg($server_tag, $irc_nick, 
+			"Successfully dequeued $fs_prefs{clr_hi}".
+			"$count$fs_prefs{clr_txt} file(s)!");
+	}
+}
+
+###############################################################################
+#	display_queue($nick, $qn): displays queue to $nick
+###############################################################################
+sub display_queue
+{
+	my ($nick, $qn) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $queue = $fs_queues[$qn];
+	my $fsq = $queue->{queue};
+	my $m_server = (split(' ', $queue->{servers}) > 1);
+
+	my ($curr_queues, $free_queues, $max_queues) = get_max_queues($qn);
+	if ($nick eq '!fserve!') {
+		send_user_msg($server_tag, $irc_nick, 
+			"$curr_queues/$free_queues/$max_queues Current/Free/Max queues ".
+			"for trigger #".$qn.":");
+	} else {
+		send_user_msg($server_tag, $irc_nick, 
+			$fs_prefs{clr_hi}.$curr_queues.$fs_prefs{clr_txt}."/".
+			$fs_prefs{clr_hi}.$max_queues.$fs_prefs{clr_txt}.
+			" file(s) queued for this trigger. ".$fs_prefs{clr_hi}.
+			$free_queues.$fs_prefs{clr_txt}." free slot(s) left.");
+	}	
+	
+	foreach (0 .. $#{$fsq}) {
+		my $msg = "  $fs_prefs{clr_hi}#".($_+1)."$fs_prefs{clr_txt}".
+			": $fs_prefs{clr_hi}${$fsq}[$_]->{nick}$fs_prefs{clr_txt}".
+			($m_server?" (${$fsq}[$_]->{server_tag})":"").
+			" queued $fs_prefs{clr_hi}${$fsq}[$_]->{file}$fs_prefs{clr_txt}".
+			" (".$fs_prefs{clr_hi}.size_to_str(${$fsq}[$_]->{size}).
+			$fs_prefs{clr_txt}.")";
+		if (${$fsq}[$_]->{resends}) {
+			$msg .= " (Resend #".${$fsq}[$_]->{resends}.")";
+		}
+		send_user_msg($server_tag, $irc_nick, $msg);
+	}
+}
+
+###############################################################################
+#	display_who($user_id): shows users connected to $user_id
+###############################################################################
+sub display_who
+{
+	my ($user_id) = @_;
+	my ($nick, $server_tag) = split('@', $user_id);
+
+	send_user_msg($server_tag, $nick, $fs_prefs{clr_hi}.keys(%fs_users).
+		$fs_prefs{clr_txt}.' user(s) online!');
+	
+	foreach (keys(%fs_users)) {
+		my ($n, $s_tag) = split('@', $_);		
+		if ($fs_users{$_}{status} == -1) {
+			send_user_msg($server_tag, $nick, 
+				"  $fs_prefs{clr_hi}$n$fs_prefs{clr_txt} ($s_tag):".
+						  " connecting...");
+		} else {
+			send_user_msg($server_tag, $nick, 
+				"  $fs_prefs{clr_hi}$n$fs_prefs{clr_txt} ($s_tag):".
+				" online $fs_prefs{clr_hi}$fs_users{$_}{time}s".
+				"$fs_prefs{clr_txt} idle: $fs_prefs{clr_hi}".
+				"$fs_users{$_}{status}s");
+		}
+	}
+}
+
+###############################################################################
+#	display_sends($nick): shows active sends to $nick
+###############################################################################
+sub display_sends
+{
+	my ($nick) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $guaranted_sends;
+	my $qtext = "";
+	my $qn = -1;
+
+	if (defined $fs_users{$nick}) {
+		$qn = $fs_users{$nick}{queue};
+	}
+
+
+	if ($qn != -1) { # user - show only this queue sends
+		my ($curr_sends, $free_sends, $max_sends) = get_max_sends($qn);
+		send_user_msg($server_tag, $irc_nick, 
+			"Sending $fs_prefs{clr_hi}".$curr_sends.'/'.
+			 $max_sends.$fs_prefs{clr_txt}." file(s) for this trigger. ".
+			 $fs_prefs{clr_hi}.$free_sends.$fs_prefs{clr_txt}." free sends left.");
+	} else { # me - show all sends
+		send_user_msg($server_tag, $irc_nick, 
+			"Sending $fs_prefs{clr_hi}".@fs_sends.'/'.
+			$fs_prefs{max_sends}.$fs_prefs{clr_txt}." file(s)!");
+	}
+
+	foreach my $dcc (Irssi::Irc::dccs()) {
+		next if ($dcc->{type} ne 'SEND');
+		
+		foreach (0 .. $#fs_sends) {
+			next if ($dcc->{nick} ne $fs_sends[$_]{nick} ||
+				$dcc->{arg} ne $fs_sends[$_]{file} ||
+				$dcc->{servertag} ne $fs_sends[$_]{server_tag});
+				
+			if ($qn < 0) {
+				$qtext = " for queue #".$fs_sends[$_]->{queue};
+			} else {
+				last if ($fs_sends[$_]->{queue} != $qn);
+			}
+			
+			if ($dcc->{starttime} == 0 ||
+				($dcc->{transfd}-$dcc->{skipped}) == 0) {
+				send_user_msg($server_tag, $irc_nick, 
+					"  $fs_prefs{clr_hi}#".($_+1).
+					"$fs_prefs{clr_txt}: Waiting for ".
+					$fs_prefs{clr_hi}.$dcc->{nick}.$fs_prefs{clr_txt}.
+					" ($dcc->{servertag}) to accept $fs_prefs{clr_hi}".
+					"$dcc->{arg}".
+					$fs_prefs{clr_txt}." (".$fs_prefs{clr_hi}.
+					size_to_str($fs_sends[$_]->{size}).
+					$fs_prefs{clr_txt}.")".$qtext);
+				last;
+			}
+				
+			my $perc = sprintf("%.1f%%", ($dcc->{transfd}/$dcc->{size})*100);
+			my $speed = ($dcc->{transfd}-$dcc->{skipped})/(time() - $dcc->{starttime} + 1);
+			my $left  = ($dcc->{size} - $dcc->{transfd}) / $speed;
+			send_user_msg($server_tag, $irc_nick, 
+				"  $fs_prefs{clr_hi}#".($_+1)."$fs_prefs{clr_txt}:".
+				" $fs_prefs{clr_hi}$dcc->{nick}$fs_prefs{clr_txt} ".
+				"($dcc->{servertag}) has ".
+				$fs_prefs{clr_hi}.$perc.$fs_prefs{clr_txt}.
+				" of '$fs_prefs{clr_hi}$dcc->{arg}$fs_prefs{clr_txt}'".
+				" at ".$fs_prefs{clr_hi}.size_to_str($speed)."/s".
+				$fs_prefs{clr_txt}." (".$fs_prefs{clr_hi}.
+				time_to_str($left).$fs_prefs{clr_txt}." left)".
+				$qtext);
+			last;
+		}
+	}
+
+}
+
+###############################################################################
+#	display_stats($nick): displays server statistics to $nick
+###############################################################################
+sub display_stats
+{
+	my ($nick) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+
+	send_user_msg($server_tag, $irc_nick, "-=[ Server Statistics ]=-");
+	send_user_msg($server_tag, $irc_nick, "  Online for ".$fs_prefs{clr_hi}.time_to_str($online_time));
+	send_user_msg($server_tag, $irc_nick, "  Access Count: ".$fs_prefs{clr_hi}.$fs_stats{login_count});
+	send_user_msg($server_tag, $irc_nick, " ");
+	send_user_msg($server_tag, $irc_nick, "  Successful Sends: ".$fs_prefs{clr_hi}.$fs_stats{sends_ok});
+	send_user_msg($server_tag, $irc_nick, "  Bytes Transferred: ".$fs_prefs{clr_hi}.size_to_str($fs_stats{transfd}));
+	send_user_msg($server_tag, $irc_nick, "  Failed Sends: ".$fs_prefs{clr_hi}.$fs_stats{sends_fail});
+	send_user_msg($server_tag, $irc_nick, "  Record CPS: ".$fs_prefs{clr_hi}.size_to_str($fs_stats{record_cps})."/s");
+}
+
+###############################################################################
+## Shows a small file to the user
+###############################################################################
+sub display_file ($$) {
+	my ($nick, $ufile) = @_;
+	my ($irc_nick, $server_tag) = split('@', $nick);
+	my $queue = $fs_queues[$fs_users{$nick}{queue}];
+	my ($file, $size, $dir, $filepath);
+
+	# try to find the filename in cache
+	my $files = $queue->{cache}{$fs_users{$nick}{dir}}{files};
+	my $sizes = $queue->{cache}{$fs_users{$nick}{dir}}{sizes};
+
+	foreach (0 .. $#{$files}) {
+		if (uc(${$files}[$_]) eq uc($ufile)) {
+			$file = ${$files}[$_];
+			$size = ${$sizes}[$_];
+			last;
+		}
+	}
+
+	$dir = $queue->{root_dir} . $fs_users{$nick}{dir};
+	$filepath = "$dir" . "/" . "$ufile";
+
+	unless (defined $file) {
+		send_user_msg($server_tag, $irc_nick, "Invalid filename: " .
+			"'$fs_prefs{clr_hi}$ufile$fs_prefs{clr_txt}'!");
+		return;
+	}
+
+	if ($size > 30000) {
+		send_user_msg($server_tag, $irc_nick, "File too large: " .
+			"'$fs_prefs{clr_hi}$ufile$fs_prefs{clr_txt}'!");
+		return;
+	}
+
+	unless (open (RFILE, $filepath)) {
+		send_user_msg($server_tag, $irc_nick, "Couldn't open file: " .
+			"'$fs_prefs{clr_hi}$ufile$fs_prefs{clr_txt}'!");
+		print_msg("Could not open file $filepath");
+		return;
+	}
+
+	while (my $line = <RFILE>) {
+		chomp $line;
+		send_user_msg($server_tag, $irc_nick, $line);
+	}
+
+	unless (close (RFILE)) {
+		print_debug("Couldn't close file: $filepath");
+		return;
+	}
+
+	return 1;
+}
+
+###############################################################################
+#	send_next_file(): send a file from not forced queues
+###############################################################################
+sub send_next_file
+{
+	my ($ignore_free_sends) = @_;
+	
+	# first step: reorder queues
+	my @que_numb = (0 .. $#fs_queues);
+	splice (@que_numb, 0, 0, (splice(@que_numb, $next_queue)));
+
+	# First use queues with lowest 'nice', then queues with least sends.
+	my @min_queue = sort { 
+		$fs_queues[$a]->{nice} <=> $fs_queues[$b]->{nice} or 
+		$fs_queues[$a]->{sends} <=> $fs_queues[$b]->{sends} 
+		} @que_numb;
+
+	# step 2b: select a queue
+	foreach my $i (@min_queue) {
+		my $free_sends = (get_max_sends($i))[1];
+		next if ($free_sends == 0 and !$ignore_free_sends);  
+
+		
+		if (!run_queue($fs_queues[$i])) {
+			$next_queue++;
+			$next_queue = 0	if ($next_queue >= scalar(@fs_queues));
+			print_debug("send_next_file(): next queue will be $next_queue");
+			return 0;
+		}
+	}
+	return 1;
+}
+
+###############################################################################
+#	run_queue($queue): try to send the next file in $queue
+###############################################################################
+sub run_queue
+{
+	my ($queue) = @_;
+	my %entry = ();
+	my ($next, $nextcount, $nextfile) = (-1); 
+
+	# step through the queue
+	for (my $i = 0; $i < @{$queue->{queue}}; ) {
+		%entry = %{ ${$queue->{queue}}[$i] };
+		my $server = Irssi::server_find_tag($entry{server_tag});
+		if (!$server || !$server->{connected}) {
+			$i++;
+			next;
+		}
+		
+		my $in_channel  = user_in_channel($server, $entry{nick}, $queue);
+		my $send_active = send_active_for($entry{server_tag}, $entry{nick});
+		my $file = $entry{dir}.'/'.$entry{file};
+		$file =~ s/\/+/\//g;
+
+		# rand() returns [0,1) so if distro is == 0 this is always false,
+		# and if distro == 1 this is allways true
+		my $use_distro = (rand() < $fs_prefs{distro}) ? 1 : 0;
+		
+		# send file if user in channel and has no sends active
+		if (!$send_active && $in_channel && -e $file && -f $file) {
+			if (!$use_distro) {
+				$next = $i;
+				$nextfile = $file;	
+				last;
+			}
+			my $count =  $fs_distro{$entry{file}}{$entry{size}};
+			if ($next < 0 or $nextcount > $count) {
+				$next = $i;
+				$nextcount = $count;
+				$nextfile = $file;			
+			}
+			$i++;
+			next;
+		}
+			
+		# remove entry if user wasn't in channel of file didn't exist
+		if (!$send_active) {
+			Irssi::print("User $fs_prefs{clr_hi}$entry{nick} ".
+				"$fs_prefs{clr_txt} not in channel or file doesn't exists,".
+				" removing $entry{file}".
+				$fs_prefs{clr_txt}." from queue...");
+			splice(@{$queue->{queue}}, $i, 1);
+			# next slot will have same index
+		} else {
+            $i++;
+        }
+	}
+
+	return 1 if ($next == -1);
+
+	%entry = %{ ${$queue->{queue}}[$next] };
+	my $server = Irssi::server_find_tag($entry{server_tag});
+	$server->command("^NOTICE $entry{nick} ".$fs_prefs{clr_txt}.
+					 "Sending you your queued file (".$fs_prefs{clr_hi}.
+					 size_to_str($entry{size}).$fs_prefs{clr_txt}.")");
+	print_what_we_did("NOTICE $entry{nick} ".$fs_prefs{clr_txt}.
+					 "Sending you your queued file (".$fs_prefs{clr_hi}.
+					 size_to_str($entry{size}).$fs_prefs{clr_txt}.")");
+	$nextfile =~ s/'/\\'/g;
+	$server->command("DCC SEND $entry{nick} $FD$nextfile$FD");
+	push(@fs_sends, { %entry });
+	splice(@{$queue->{queue}}, $next, 1);
+	return 0;
+}
+
+###############################################################################
+#	update_files():	update the cache from $fs_prefs{root_dir}
+###############################################################################
+sub update_files
+{
+	my $filecount;
+	my $bytecount;
+
+	print_msg("Caching files, please wait!");
+	# update the cache
+	foreach my $qn (0 .. $#fs_queues) {
+		delete $fs_queues[$qn]->{cache};
+		cache_dir($fs_queues[$qn]->{root_dir},$fs_queues[$qn]);
+
+		$filecount = 0;
+		$bytecount = 0;
+		foreach my $dir (keys %{$fs_queues[$qn]->{cache}}) {
+			$filecount += @{$fs_queues[$qn]->{cache}{$dir}{files}};
+			$bytecount += $_ foreach (@{$fs_queues[$qn]->{cache}{$dir}{sizes}});
+		}
+
+		$fs_queues[$qn]->{filecount} = $filecount;
+		$fs_queues[$qn]->{bytecount} = $bytecount;
+
+		print_msg("Queue $qn: cached $filecount file(s) (".size_to_str($bytecount).") in ".
+				  (keys(%{$fs_queues[$qn]->{cache}}))." dir(s)!");
+	}	
+}
+
+###############################################################################
+#	cache_dir($dir): recursive filecaching subroutine
+###############################################################################
+sub cache_dir
+{
+	my ($dir, $queue) = @_;
+	my @dirs  = ();
+	my @files = ();
+	my @sizes = ();
+
+	opendir($dir, "$dir");
+	while (my $entry = readdir($dir)) {
+		if (!($entry eq '.') && !($entry eq '..')) {
+			my $full_path = $dir.'/'.$entry;
+			if (-d $full_path) {
+				push(@dirs, $entry);
+				cache_dir($full_path, $queue);
+			} elsif (-f $full_path) {
+				push(@sizes, (stat($full_path))[7]);
+				push(@files, $entry);
+			}
+		}
+	}
+
+	closedir($dir);
+
+	$dir =~ s/$queue->{root_dir}//;
+	$dir = '/' if (length($dir) == 0);
+
+	$queue->{cache}{$dir} = { dirs => [ @dirs ], files => [ @files ],
+						sizes => [ @sizes ] };
+}
+
+###############################################################################
+#	count_queued_files($server_tag, $nick,$qn): returns number of queued files 
+#		for $nick
+###############################################################################
+sub count_queued_files
+{
+	my ($server_tag, $nick, $qn) = @_;
+	my $count = 0;
+	
+	foreach (0 .. $#{$fs_queues[$qn]->{queue}}) {
+		$count++ 
+			if (${$fs_queues[$qn]->{queue}}[$_]->{nick} eq $nick &&
+				${$fs_queues[$qn]->{queue}}[$_]->{server_tag} eq $server_tag);
+	}
+
+	return $count;
+}
+
+###############################################################################
+#	count_user_files($server_tag, $nick, $qn): returns number of queued and 
+#	sended files for $nick
+###############################################################################
+sub count_user_files {
+	my ($server_tag, $nick, $qn) = @_;
+
+	if (!$fs_prefs{count_send_as_queue}) {
+		return count_queued_files($server_tag, $nick, $qn);
+	}
+
+	my $count = count_queued_files($server_tag, $nick, $qn);
+	foreach (0 .. $#fs_sends) {
+		$count++ 
+			if ($fs_sends[$_]->{nick} eq $nick && 
+				$fs_sends[$_]->{server_tag} eq $server_tag);
+	}
+
+	return $count;
+}
+
+###############################################################################
+#	send_active_for($server_tag, $nick): true if currently sending file to 
+#		$nick
+###############################################################################
+sub send_active_for
+{
+	my ($server_tag, $nick) = @_;
+
+	foreach (0 .. $#fs_sends) {
+		return 1 if ($fs_sends[$_]{nick} eq $nick && 
+			$fs_sends[$_]{server_tag} eq $server_tag);
+	}
+
+	return 0;
+}
+
+###############################################################################
+#	user_in_channel($server,$nick,$queue): true if user is on any 
+#		$queue->{channels}
+###############################################################################
+sub user_in_channel
+{
+	my ($server, $nick, $queue) = @_;
+
+	foreach (split(' ', $queue->{channels})) {
+#		print_debug("Checking channel $_");
+		my $channel = $server->channel_find($_);
+		if ($channel && $channel->{joined} && $channel->nick_find($nick)) {
+			return 1;
+		}
+	}
+
+	return 0;
+}
+
+###############################################################################
+#	send_user_msg($servertag, $nick, $msg):	sends a msg to $nick using dcc if 
+#	available
+###############################################################################
+sub send_user_msg
+{
+	my ($servertag, $nick, $msg) = @_;
+
+	if ($nick eq "!fserve!") {
+		print_msg($msg);
+	} else {
+		my $server = Irssi::server_find_tag($servertag);
+		if (!$server || !$server->{connected}) {
+			return;
+		}
+
+		my $cmd = ((defined $fs_users{$nick."@".$servertag})?"MSG =$nick":"MSG $nick");
+		$server->command("$cmd $fs_prefs{clr_txt}$msg");
+	}
+}
+
+###############################################################################
+#	size_to_str($size): returns a formatted size string
+###############################################################################
+sub size_to_str
+{
+	my ($size) = @_;
+
+	if ($size < 1024) {
+		$size = int($size) . " B";
+	} elsif ($size < 1048576) {
+		$size = sprintf("%.1f kB", $size/1024);
+	} elsif ($size < 1073741824) {
+		$size = sprintf("%.2f MB", $size/1048576);
+	} elsif ($size < 1099511627776) {
+		$size = sprintf("%.2f GB", $size/1073741824);
+	} else {
+		$size = sprintf("%.3f TB", $size/1099511627776);
+	}
+
+	return $size;
+}
+
+###############################################################################
+#	time_to_str($time): returns a formatted time string
+###############################################################################
+sub time_to_str
+{
+	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(shift(@_));
+
+	return sprintf("%dd %dh %dm %ds", $yday, $hour, $min, $sec) if ($yday);
+	return sprintf("%dh %dm %ds", $hour, $min, $sec) if ($hour);
+	return sprintf("%dm %ds", $min, $sec) if ($min);
+	return sprintf("%ds", $sec);
+}
+
+###############################################################################
+#	save_config(): saves preferences & statistics to file
+###############################################################################
+sub save_config
+{
+	my $f = $conffile; 
+	$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+	if (!open(FILE, ">$f")) {
+		print_msg("Unable to open $f for writing!");
+		return 1;
+	}
+
+	print (FILE "[ConfigFileVersion 1.0]\n");
+	
+	# save preferences
+	print(FILE "[common]\n");
+	foreach (sort(keys %fs_prefs)) {
+		print(FILE "$_=$fs_prefs{$_}\n");
+	}
+
+	# save statistics
+	print(FILE "[stats]\n");
+	foreach (sort(keys %fs_stats)) {
+		print(FILE "$_=$fs_stats{$_}\n");
+	}
+
+	#save queues settings
+	foreach my $qn (0 .. $#fs_queues) {
+		print(FILE "[queue $qn]\n");
+		foreach (sort(keys %{$fs_queues[$qn]})) {
+			next if ($_ eq 'queue' || $_ eq 'cache' || $_ eq 'sends' ||
+					 $_ eq 'filecount' || $_ eq 'bytecount');
+			print(FILE "$_=$fs_queues[$qn]->{$_}\n");
+		}
+	}
+
+	close(FILE);
+	return 0;
+}
+
+###############################################################################
+#	load_distro($file) 
+###############################################################################
+sub load_distro {
+	my $file = $_[0];
+	if (!open(FILE, "<$file")) {
+		print_msg("Unable to open $file for reading!");
+		return 0;
+	}
+
+	# file format:
+	# sent_count file_size file_name
+	
+	my ($count, $size, $name);
+	while (<FILE>) {
+		chomp;
+		($count, $size, $name) = split(/ /, $_, 3);
+		if (($count !~ /\d+/) or ($size !~ /\d+/) or (!$name)) { 
+			print_msg("Error in $file in line $.");
+			close(FILE);
+			return 0;
+		}
+		$fs_distro{$name}{$size} = $count;
+	}
+	
+	close(FILE);
+	return 1; # ok
+}
+
+
+###############################################################################
+#	save_distro() 
+###############################################################################
+sub save_distro 
+{
+	return 0 if (!$fs_prefs{distro_file});
+
+	my $f = $fs_prefs{distro_file}; 
+	$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+
+	if (!open(FILE, ">$f")) {
+		print_msg("Unable to open $f for writing!");
+		return 1;
+	}
+
+	foreach (sort keys %fs_distro) {
+		foreach my $size (sort keys %{$fs_distro{$_}}) {
+			print FILE "$fs_distro{$_}{$size} $size $_\n";
+		}
+	}
+
+	close(FILE);
+	return 0;
+}
+
+###############################################################################
+#	load_config(): loads preferences & statistics from file
+###############################################################################
+sub load_config
+{
+
+	my $f = $conffile; 
+	$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+	if (!open(FILE, "<$f")) {
+		print_msg("Unable to open $f for reading!");
+		return 1;
+	}
+
+	local $/ = "\n";
+
+	my $config_version = <FILE>;
+	chomp $config_version;
+	if ($config_version !~ /^\[ConfigFileVersion 1\.[0-9]+]$/) {
+		print_msg("Config file format not recognized!");
+		print_msg("FServe 2.0 and newer won't work with config file");
+		print_msg(" created by earlier versions on FServe.");
+		return 1;
+	}
+												
+	my $hash = \%fs_prefs; 
+	my %garbage = ();
+
+	while (<FILE>) {
+		chomp;
+		if (/^\[(.*)\]$/) { # next chapter
+			if ($1 eq "common") {
+				$hash = \%fs_prefs;
+			} elsif ($1 eq "stats") {
+				$hash = \%fs_stats;
+			} elsif ($1 =~ /queue (.*)$/) {
+				while (!defined $fs_queues[$1]) {
+					push (@fs_queues, { %fs_queue_defaults });
+					@{$fs_queues[$#fs_queues]->{queue}} = ();
+				}
+				$hash = $fs_queues[$1];
+			} else {
+				print_msg("Unknown config section: $_");
+				$hash = \%garbage;
+			}
+			next;
+		}
+		my ($entry, $value) = split('=', $_, 2);
+		if (defined $hash->{$entry}) {
+			$hash->{$entry} = $value;
+		} else {
+			print_msg("unknown entry: $_");
+		}
+	}
+
+	close(FILE);
+	return 0;
+}
+
+
+###############################################################################
+#	save_queue(): saves the current sends & queue to file
+###############################################################################
+sub save_queue
+{
+	my $f = $fs_prefs{queuefile}; 
+	$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+
+	if (!open(FILE, ">$f")) {
+		print_msg("Unable to open $f for writing!");
+		return 1;
+	}
+
+	print (FILE "[QueueFileVersion 1.0]\n");
+
+	# save the sends (for resuming)
+	foreach my $slot (0 .. $#fs_sends) {
+		foreach (sort keys %{$fs_sends[$slot]}) {
+			next if ($_ eq "dontwarn");
+			next if ($_ eq "transfd");
+			if ($_ eq "warns") {
+				print(FILE "$_=>0\0");
+			} else {
+				print(FILE "$_=>$fs_sends[$slot]->{$_}\0");
+			}
+		}
+		print(FILE "\n");
+	}
+	
+	# save the queues
+	foreach (0 .. $#fs_queues) {
+		my $fsq = $fs_queues[$_]->{queue};
+		foreach my $slot (0 .. $#{$fsq}) {
+			foreach (sort keys %{${$fsq}[$slot]}) {
+				next if ($_ eq "dontwarn");
+				next if ($_ eq "transfd");
+				if ($_ eq "warns") {
+					print(FILE "$_=>0\0");
+				} else {
+					print(FILE "$_=>${$fsq}[$slot]->{$_}\0");
+				}
+			}
+			print(FILE "\n");
+		}
+	}
+
+	close(FILE);
+	return 0;
+}
+
+###############################################################################
+#	load_queue(): (re)loads the queue from file
+###############################################################################
+sub load_queue
+{
+	my $f = $fs_prefs{queuefile}; 
+	$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+	
+	if (!open(FILE, "<$f")) {
+		print_msg("Unable to open $f for reading!");
+		return 1;
+	}
+	
+	my $queue_version = <FILE>;
+	chomp $queue_version;
+	if ($queue_version !~ /^\[QueueFileVersion 1\.[0-9]+]$/) {
+		print_msg("Queue file format not recognized!");
+		print_msg("FServe 2.0 and newer won't work with queue file");
+		print_msg(" created by earlier versions on FServe.");
+		return 1;
+	}
+
+	if (!@fs_queues) {
+		# create a very first queue :)
+		push (@fs_queues, { %fs_queue_defaults });
+		@{$fs_queues[$#fs_queues]->{queue}} = ();
+	}
+
+	# empty all queues
+	foreach (0 .. $#fs_queues) {
+		@{$fs_queues[$_]->{queue}} = ();
+	}
+
+	while (<FILE>) {
+		s/\n//g;
+		my %rec = ();
+		my $ignore = 0;
+
+		foreach my $line (split("\0", $_)) {
+			my ($entry, $value) = split('=>', $line, 2);
+			$rec{$entry} = $value;
+		}
+#		print_debug("Read: $rec{nick}|$rec{server_tag}|$rec{file}|$rec{queue}");
+
+		# don't put it in queue if it is sending
+		foreach (0 .. $#fs_sends) {
+#			print_debug("Checking if it's not in fs_sends with: $fs_sends[$_]->{nick}|$fs_sends[$_]->{server_tag}|$fs_sends[$_]->{file}|$fs_sends[$_]->{queue}");
+			if ($rec{nick} eq $fs_sends[$_]->{nick} &&
+				$rec{file} eq $fs_sends[$_]->{file} &&
+				$rec{queue} eq $fs_sends[$_]->{queue} &&
+				$rec{server_tag} eq $fs_sends[$_]->{server_tag}) {
+				$ignore = 1;
+			}
+		}
+
+		if (!$ignore) {
+			# check if it's sending already but isn't in %fs_sends
+			foreach (Irssi::Irc::dccs()) {
+#				print_debug("Checking if it's not sending with: $_->{nick}|$_->{servertag}|$_->{arg}");
+				if ($_->{type} eq 'SEND' && $_->{nick} eq $rec{nick} &&
+					$_->{arg} eq $rec{file} &&
+					$rec{server_tag} eq $_->{servertag}) {
+					print_debug("send of '$rec{file}' for $rec{nick}\@$rec{server_tag} was lost, adding to fs_sends");
+					push(@fs_sends, { %rec });
+					$ignore = 1;
+					last;
+				}
+			}
+		}
+		if (!$ignore) {
+			my $fsq;
+			if (defined $rec{queue}) {
+				if (!defined $fs_queues[$rec{queue}]) {
+					print_msg("unknown queue #$rec{queue}");
+					next;
+				}
+				$fsq = $fs_queues[$rec{queue}]->{queue};
+			} else {
+				$fsq = $fs_queues[0]->{queue};
+			}
+			# add to queue
+			if ($rec{resends}) {
+				# count resended files
+				my $place = 0;
+				foreach (0 .. $#{$fsq}) {
+					$place++ if (${$fsq}[$_]->{resends});
+				}
+				splice(@{$fsq}, $place, 0, { %rec });
+			} else {
+				push(@{$fsq}, { %rec });
+			}
+		}
+	}
+
+	close(FILE);
+	return 0;
+}
+
+###############################################################################
+# print_log(): write line to log file
+###############################################################################
+sub print_log
+{
+	my $f = $fs_prefs{log_name}; 
+	$f =~ s/\$IRSSI/Irssi::get_irssi_dir()/e or $f =~ s/~/$ENV{"HOME"}/; 
+	if (!$logfp && $fs_prefs{log_name} && open(LOGFP, ">>$f")) {
+		$logfp = \*LOGFP;
+		select((select($logfp), $|++)[0]);
+	}
+	return if !$logfp;
+	my ($msg) = @_;
+	$msg =~ s/^\s*|\s*$//gs;
+	print $logfp localtime()." $msg\n";
+}
+
+# vim:noexpandtab:ts=4
diff --git a/scripts/fuckem.pl b/scripts/fuckem.pl
new file mode 100644
index 0000000..2c18f3b
--- /dev/null
+++ b/scripts/fuckem.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.05";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'fuckem.pl',
+    description => 'Simulates the BitchX /FUCKEM command. Deop/Dehalfop everyone on the channel including you.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/fuckem.pl',
+    changed     => 'Wed Sep 17 23:00:11 CEST 2003',
+);
+
+Irssi::theme_register([
+    'fuckem_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub fuckem {
+
+    my ($data, $server, $channel) = @_;
+    my ($hops, $ops, $hcount, $ocount, $mode, $users);
+
+    if (!$server) {
+        $channel->print("You are not connected to a server.");
+        return;
+    } elsif  (!$channel || $channel->{type} ne "CHANNEL") {
+        $channel->print("No active channel in this window.");
+        return;
+    } elsif (!$channel->{ownnick}{op}) {
+        $channel->print("You're no channel operator.");
+        return;
+    }
+
+    foreach my $nick ($channel->nicks()) {
+        if ($nick->{halfop}) {
+            $hops .= "$nick->{nick} ";
+            $hcount++;
+        } elsif ($nick->{op}) {
+            $ops .= "$nick->{nick} ";
+            $ocount++;
+        }
+    }
+
+    if ($ops) {
+        $mode .= 'o' x $ocount;
+        $users .= "$ops ";
+    }
+
+    if ($hops) {
+        $mode .= 'h' x $hcount;
+        $users .= "$hops ";
+    }
+    
+    $mode .= 'o';
+    $users .= "$server->{nick}";
+    
+    $channel->command("mode -$mode $users");
+}
+
+Irssi::command_bind('fuckem', 'fuckem');
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'fuckem_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/getop.pl b/scripts/getop.pl
new file mode 100644
index 0000000..1dbd75c
--- /dev/null
+++ b/scripts/getop.pl
@@ -0,0 +1,387 @@
+use Irssi 20020300;
+use strict;
+
+use vars qw($VERSION %IRSSI %HELP);
+$HELP{getop} = "
+GETOP [channel]
+
+Gets op on current channel or 'channel' from random opped bot added by ADDGETOP.
+";
+$HELP{addgetop} = "
+ADDGETOP [channel] <mask> <command>
+
+Adds entry to 'channel' or current channel getop list.
+The \$0 in command specifies nick of random found mask
+in channel.
+";
+$HELP{delgetop} = "
+DELGETOP [channel] <mask or index number from LISTGETOP>
+
+Deletes entry from getoplist on current channel or 'channel'.
+";
+$HELP{listgetop} = "
+LISTGETOP [channel]
+
+Lists all entries in getop list or just 'channel's getop list.
+";
+$VERSION = "0.9b";
+%IRSSI = (
+	authors         => "Maciek \'fahren\' Freudenheim",
+	contact         => "fahren\@bochnia.pl",
+	name            => "GetOP",
+	description     => "Automatically request op from random opped person with specifed command from list after joining channel",
+	license         => "GNU GPLv2 or later",
+	changed         => "Fri Jan 10 03:54:07 CET 2003"
+);
+
+Irssi::theme_register([
+	'getop_listline', '[%W$[!-2]0%n]%| $[40]1%_: %_$2',
+	'getop_add', 'Added \'%_$2%_\' to getop list on channel %_$1%_ /$0/',
+	'getop_del', 'Deleted \'%_$2%_\' from getop list on channel %_$1%_ /$0/',
+	'getop_changed', 'Changed command for mask \'%_$2%_\' on channel %_$1%_ /$0/',
+	'getop_noone', '"%Y>>%n No one to get op from on $1 /$0/',
+	'getop_get', '%Y>>%n Getting op from %_$2%_ on $1 /$0/'
+]);
+
+my %getop = ();
+my @userhosts;
+my $getopfile = Irssi::get_irssi_dir . "/getoplist";
+
+sub sub_getop {
+	my ($args, $server, $winit) = @_;
+
+	my $chan;
+	my ($channel) = $args =~ /^([^\s]+)/;
+
+	if ($server->ischannel($channel)) {
+		unless ($chan = $server->channel_find($channel)) {
+			Irssi::print("%R>>%n You are not on $channel.");
+			return;
+		}
+		$args =~ s/^[^\s]+\s?//;
+	} else {
+		unless ($winit && $winit->{type} eq "CHANNEL") {
+			Irssi::print("%R>>%n You don't have active channel in that window.");
+			return;
+		}
+		$channel = $winit->{name};
+		$chan = $winit;
+	}
+
+	if ($chan->{chanop}) {
+		Irssi::print("%R>>%n You are already opped on $channel.");
+		return;
+	}
+
+	$channel = lc($channel);
+	my $tag = lc($server->{tag});
+
+	unless ($getop{$tag}{$channel}) {
+		Irssi::print("%R>>%n Your getop list on channel $channel is empty. Use /ADDGETOP first.");
+		return;
+	};
+
+	unless ($getop{$tag}{$channel}) {
+		Irssi::print("%R>>%n Your getop list on channel $channel is empty.");
+		return;
+	}
+
+	getop_proc($tag, $chan);
+}
+
+sub sub_addgetop {
+	my ($args, $server, $winit) = @_;
+
+	my ($channel) = $args =~ /^([^\s]+)/;
+
+	if ($server->ischannel($channel)) {
+		$args =~ s/^[^\s]+\s?//;
+	} else {
+		unless ($winit && $winit->{type} eq "CHANNEL") {
+			Irssi::print("%R>>%n You don't have active channel in that window.");
+			return;
+		}
+		$channel = $winit->{name};
+	}
+
+	my ($mask, $command) = split(/ +/, $args, 2);
+	
+	unless ($command) {
+		Irssi::print("Usage: /ADDGETOP [channel] <mask or nickname> <command>. If you type '\$0' in command then it will be changed automatically into mask's nick.");
+		return;
+	}
+
+	my $cmdchar = Irssi::settings_get_str('cmdchars');
+	$command =~ s/^($cmdchar*)\^?/\1^/g;
+	
+	if (index($mask, "@") == -1) {
+		my ($c, $n);
+		if (($c = $server->channel_find($channel)) && ($n = $c->nick_find($mask))) {
+			$mask = $n->{host};
+			$mask =~ s/^[~+\-=^]/*/;
+		} else {
+			$server->redirect_event('userhost', 1, $mask, 0, undef, {
+					'event 302' => 'redir getop userhost',
+					'' => 'event empty' } );
+			$server->send_raw("USERHOST $mask");
+			my $uh = lc($mask) . " " . lc($channel) . " $command";
+			push @userhosts,  $uh;
+			return;
+		}
+	}
+	
+	$mask = "*!" . $mask if (index($mask, "!") == -1);
+	my $tag = lc($server->{tag});
+	my $channel = lc($channel);
+	
+	for my $entry (@{$getop{$tag}{$channel}}) {
+		if ($entry->{mask} eq $mask) {
+			$entry->{command} = $command;
+			Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_changed', $tag, $channel, $mask, $command);
+			&savegetop;
+			return;
+		}
+	}
+	
+	my $gh = {
+		mask	=> $mask,
+		command	=> $command
+	};
+	
+	push @{$getop{$tag}{$channel}}, $gh;
+
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_add', $tag, $channel, $mask, $command);
+
+	&savegetop;
+}
+
+sub sub_delgetop {
+	my ($args, $server, $winit) = @_;
+
+	my ($channel) = $args =~ /^([^\s]+)/;
+
+	if ($server->ischannel($channel)) {
+		$args =~ s/^[^\s]+\s?//;
+	} else {
+		unless ($winit && $winit->{type} eq "CHANNEL") {
+			Irssi::print("%R>>%n You don't have active channel in that window.");
+			return;
+		}
+		$channel = $winit->{name};
+	}
+
+	my $tag = lc($server->{tag});
+	my $channel = lc($channel);
+
+	unless ($getop{$tag}{$channel}) {
+		Irssi::print("%R>>%n Your getop list on channel $channel is empty.");
+		return;
+	}
+
+	unless ($args) {
+		Irssi::print("%W>>%n Usage: /DELGETOP [channel] <mask | index from LISTGETOP>");
+		return;
+	}
+
+	my $num;
+	if ($args =~ /^[0-9]+$/) {
+		if ($args > scalar(@{$getop{$tag}{$channel}})) {
+			Irssi::print("%R>>%n No such entry in $channel getop list.");
+			return;
+		}
+		$num = $args - 1;
+	} else {
+		my $i = 0;
+		for my $entry (@{$getop{$tag}{$channel}}) {
+			$args eq $entry->{mask} and $num = $i, last;
+			$i++;
+		}
+	}
+
+	if (my($gh) = splice(@{$getop{$tag}{$channel}}, $num, 1)) {
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_del', $tag, $channel, $gh->{mask}, $gh->{command});
+		unless (scalar(@{$getop{$tag}{$channel}})) {
+			Irssi::print("%R>>%n No more entries in $channel getop list left.");
+			delete $getop{$tag}{$channel};
+		}
+		unless (keys %{$getop{$tag}}) {
+			Irssi::print("%R>>%n No more entries in getop list on $tag left.");	
+			delete $getop{$tag};
+		}
+	}
+
+	&savegetop;
+}
+
+sub sub_listgetop {
+	my ($args, $server, $winit) = @_;
+
+	my ($channel) = $args =~ /^([^\s]+)/;
+
+	if ($server->ischannel($channel)) {
+		my $tag = lc($server->{tag});
+		$channel = lc($channel);
+		unless ($getop{$tag}{$channel}) {
+			Irssi::print("%R>>%n Your getop list on channel $channel is empty.");
+			return;
+		}
+		my $i = 0;
+		Irssi::print("Getop list on $channel /$tag/:");
+		for my $entry (@{$getop{$tag}{$channel}}) {
+			Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_listline', $i++, $entry->{mask}, $entry->{command});
+		}
+	} else {
+		unless (keys %getop) {
+			Irssi::print("%R>>%n Your getop list is empty. /ADDGETOP first.");
+			return;
+		}
+		for my $ircnet (keys %getop) {
+			for my $chan (keys %{$getop{$ircnet}}) {
+				Irssi::print("Channel: $chan /$ircnet/");
+				my $i = 1;
+				for my $entry (@{$getop{$ircnet}{$chan}}) {
+					Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_listline', $i++, $entry->{mask}, $entry->{command});
+				}
+			}
+		}
+	}
+}
+
+sub userhost_red {
+	my ($server, $data) = @_;
+	$data =~ s/^[^ ]* :?//;
+
+	my $uh = shift @userhosts;
+	my ($nick, $chan, $command) = split(/ /, $uh, 3);
+
+	unless ($data && $data =~ /^([^=\*]*)\*?=.(.*)@(.*)/ && lc($1) eq $nick) {
+		Irssi::print("%R>>%n No such nickname: $nick");
+		return;
+	}
+
+	my ($user, $host) = ($2, $3);
+	$user =~ s/^[~+\-=^]/*/;
+	my $mask = "*!" . $user . "@" . $host;
+	my $tag = lc($server->{tag});
+	
+	for my $entry (@{$getop{$tag}{$chan}}) {
+		if ($entry->{mask} eq $mask) {
+			$entry->{command} = $command;
+			Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_changed', $tag, $chan, $mask, $command);
+			&savegetop;
+			return;
+		}
+	}
+	
+	my $gh = {
+		mask => $mask,
+		command => $command
+	};
+
+	push @{$getop{$tag}{$chan}}, $gh;
+
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_add', $tag, $chan, $mask, $command);
+
+	&savegetop;
+}
+
+sub getop_proc ($$) {
+	my ($tag, $chan) = @_;
+
+	my $channel = lc($chan->{name});
+	return unless ($getop{$tag}{$channel});
+
+	my (@list, $mask);
+	for my $nick ($chan->nicks()) {
+		next unless ($nick->{op});
+		$mask = $nick->{nick} . "!" . $nick->{host};
+		for my $entry (@{$getop{$tag}{$channel}}) {
+			if (mask_match($mask, $entry->{mask})) {
+				my $lh = {
+					nick	=> $nick->{nick},
+					command	=> $entry->{command}
+				};
+				push @list, $lh;
+			}
+		}
+	}
+	
+	unless (@list) {
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_noone', $tag, $channel);
+	} else {
+		my $get = $list[int(rand(@list))];
+		$get->{command} =~ s/\$0/$get->{nick}/g;
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'getop_get', $tag, $channel, $get->{nick}, $get->{command});	
+		$chan->command($get->{command});
+	}
+}
+
+sub mask_match ($$) {
+	my ($what, $match) = @_;
+
+	$match =~ s/\\/\\\\/g;
+	$match =~ s/\./\\\./g;
+	$match =~ s/\*/\.\*/g;
+	$match =~ s/\!/\\\!/g;
+	$match =~ s/\?/\./g;
+	$match =~ s/\+/\\\+/g;
+	$match =~ s/\^/\\\^/g;
+
+	return ($what =~ /^$match$/i);
+}
+
+sub got_notopped {
+	my ($server, $data) = @_;
+	my ($chan) = $data =~ /^[^\s]+\s([^\s]+)\s:/;
+	getop_proc(lc($server->{tag}), $server->channel_find($chan));
+}
+
+sub channel_sync {
+	my $chan = shift;
+	getop_proc(lc($chan->{server}->{tag}), $chan) unless ($chan->{chanop});
+}
+
+sub savegetop {
+	local *fp;
+	open (fp, ">$getopfile") or die "Couldn't open $getopfile for writing";
+
+	for my $ircnet (keys %getop) {
+		for my $chan (keys %{$getop{$ircnet}}) {
+			for my $entry (@{$getop{$ircnet}{$chan}}) {
+				print(fp "$ircnet $chan $entry->{mask} $entry->{command}\n");
+			}
+		}
+	}
+
+	close fp;
+}
+
+sub loadgetop {
+	%getop = ();
+	return unless (-e $getopfile);
+	local *fp;
+
+	open (fp, "<$getopfile") or die "Couldn't open $getopfile for reading";
+	local $/ = "\n";
+	
+	while (<fp>) {
+		chop;
+		my $gh = {};
+		my ($tag, $chan);
+		($tag, $chan, $gh->{mask}, $gh->{command}) = split(/ /, $_, 4);
+		push @{$getop{$tag}{$chan}}, $gh;
+	}
+	
+	close fp;
+}
+
+&loadgetop;
+
+Irssi::command_bind( {
+		'getop' => \&sub_getop,
+		'addgetop' => \&sub_addgetop,
+		'delgetop' => \&sub_delgetop,
+		'listgetop' => \&sub_listgetop } );
+Irssi::signal_add({ 'redir getop userhost' => \&userhost_red,
+		    'event 482' => \&got_notopped,
+	    	    'channel sync' => \&channel_sync});
diff --git a/scripts/gimmie.pl b/scripts/gimmie.pl
new file mode 100644
index 0000000..f04f964
--- /dev/null
+++ b/scripts/gimmie.pl
@@ -0,0 +1,38 @@
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+    authors => 'PrincessLeia2',
+    contact => 'lyz\@princessleia.com ',
+    name => 'gimmie',
+    description => 'a bot script, using ! followed by anything the script will say (as an action): gets nickname anything',
+    license => 'GNU GPL v2 or later',
+    url => 'http://www.princessleia.com/'
+);
+
+sub event_privmsg {
+my ($server, $data, $nick, $mask, $target) =@_;
+my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
+     return if ( $text !~ /^!/i );
+        if ( $text =~ /^!coffee$/i ) {
+        	$server->command ( "action $target hands $nick a steaming cup of coffee" );
+	}
+        elsif ($text =~ /^!chimay$/i ) {
+        	$server->command ( "action $target hands $nick a glass of Chimay" );
+	}
+        elsif ($text =~ /^!pepsi$/i ) {
+        	$server->command ( "action $target gives $nick a can of Star Wars Pepsi" );
+	}
+        elsif ($text =~ /^!ice cream$/i ) {
+        	$server->command ( "action $target gives $nick a chocolate ice cream with lots of cherries" );
+	}
+        elsif ($text =~ /^!$nick$/i ) {
+        	$server->command ( "msg $target get yourself?" );
+	}
+        else {
+        	my ($gimmie) = $text =~ /!(.*)/;
+        	$server->command ( "action $target Gets $nick $gimmie \0032<\%)");
+	}
+}
+Irssi::signal_add('event privmsg', 'event_privmsg');
diff --git a/scripts/go.pl b/scripts/go.pl
new file mode 100644
index 0000000..3ca6744
--- /dev/null
+++ b/scripts/go.pl
@@ -0,0 +1,59 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+use Irssi::Irc;
+
+# Usage:
+# /script load go.pl
+# If you are in #irssi you can type /go #irssi or /go irssi or even /go ir ...
+# also try /go ir<tab> and /go  <tab> (that's two spaces)
+
+$VERSION = '1.00';
+
+%IRSSI = (
+    authors     => 'nohar',
+    contact     => 'nohar@freenode',
+    name        => 'go to window',
+    description => 'Implements /go command that activates a window given a name/partial name. It features a nice completion.',
+    license     => 'GPLv2 or later',
+    changed     => '08-17-04'
+);
+
+sub signal_complete_go {
+	my ($complist, $window, $word, $linestart, $want_space) = @_;
+	my $channel = $window->get_active_name();
+	my $k = Irssi::parse_special('$k');
+
+        return unless ($linestart =~ /^\Q${k}\Ego/i);
+
+	@$complist = ();
+	foreach my $w (Irssi::windows) {
+		my $name = $w->get_active_name();
+		if ($word ne "") {
+			if ($name =~ /\Q${word}\E/i) {
+				push(@$complist, $name)
+			}
+		} else {
+			push(@$complist, $name);
+		}
+	}
+	Irssi::signal_stop();
+};
+
+sub cmd_go
+{
+	my($chan,$server,$witem) = @_;
+
+	$chan =~ s/ *//g;
+	foreach my $w (Irssi::windows) {
+		my $name = $w->get_active_name();
+		if ($name =~ /^#?\Q${chan}\E/) {
+			$w->set_active();
+			return;
+		}
+	}
+}
+
+Irssi::command_bind("go", "cmd_go");
+Irssi::signal_add_first('complete word', 'signal_complete_go');
+
diff --git a/scripts/go2.pl b/scripts/go2.pl
new file mode 100644
index 0000000..96d27cd
--- /dev/null
+++ b/scripts/go2.pl
@@ -0,0 +1,492 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+use Irssi::TextUI;
+
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'cxreg',
+    contact     => 'cxreg@pobox.com',
+    name        => 'go2',
+    description => 'Switch to the window with the given name or item',
+    license     => 'Public Domain',
+    url         => 'http://genericorp.net/~count/irssi/go',
+    changed     => '2008-02-22',
+);
+
+# Tab complete (0.8.12+)
+sub signal_complete_go {
+    my ( $complist, $window, $word, $linestart, $want_space ) = @_;
+
+    # This is cargo culted but I think it's right
+    my $k = Irssi::parse_special('$k');
+    return unless ( $linestart =~ /^\Q${k}\Ego/i );
+
+    # call the go command
+    $window->command("go $word");
+
+    # we've come back from the go command and cleaned up the command line,
+    # remove previous input and finish up
+    @$complist = ();
+    Irssi::gui_input_set('');
+    Irssi::signal_stop();
+}
+
+# Only do this in irssi 0.8.12 or better since input mangling didn't exist until then
+if ( Irssi::version >= 20070804 ) {
+    Irssi::signal_add_first( 'complete word', 'signal_complete_go' );
+}
+
+sub cmd_go2 {
+    my ($window, $suggestion, @matches);
+    my $buf = '';
+
+    # get a complete list of current windows
+    my @all_windows = Irssi::windows();
+
+    # Parse passed in argument
+    if ( length $_[0] ) {
+        $buf = shift;
+
+        # this messes up a quick jump to any channel or window named "help",
+        # so maybe this should be an option
+        if ( $buf eq 'help' ) {
+            _help();
+            return;
+        }
+
+        @matches = _match( $buf, @all_windows );
+
+        my @non_cur = grep { !$_->{active_win} } @matches;
+        if ( @matches and !@non_cur ) {
+            # The only match is the current window, bail out
+            return;
+        }
+
+        # First look for an (non-current) exact match
+        my @exact_matches = grep { $_->{exact} } @non_cur;
+        if ( @exact_matches == 1 ) {
+            $exact_matches[0]->{window}->set_active;
+            return;
+        }
+
+        # Then look for any single (non-current) match
+        if ( @non_cur == 1 ) {
+            $non_cur[0]->{window}->set_active;
+            return;
+        }
+
+        # If there's only 2 matches, we now know neither is current
+        # so just pick one.  This is ok because the next call would
+        # "toggle" to the other.  More than 2, though, and we'd end up
+        # ignoring windows
+        if ( @matches == 2 ) {
+            $matches[0]->{window}->set_active;
+            return;
+        }
+
+        # Otherwise, fall through to normal prompt
+        $suggestion = $matches[0];
+    }
+
+    while (1) {
+        # display the current input and suggestion
+        _draw_suggestion( $buf, $suggestion );
+
+        # read input one character at a time
+        my $chr = getc;
+
+        # break out on Enter
+        if ( $chr =~ /[\r\n]/ ) {
+            $window = $suggestion;
+            last;
+        }
+
+        # Esc means "stop trying"
+        elsif ( ord($chr) == 27 ) {
+            last;
+        }
+
+        # Tab to cycle through suggestions
+        elsif ( ord($chr) == 9 ) {
+            if(@matches) {
+                # get matches if we don't have any yet
+                push @matches, grep { $_ } shift @matches;
+            } else {
+                # otherwise switch to the next one
+                @matches = _match( $buf, @all_windows );
+            }
+
+            $suggestion = $matches[0];
+        }
+
+        # ^U means wipe out the input.  we might want to actually read this
+        # from the user's keybinding (for erase_line or maybe erase_to_beg_of_line)
+        # instead of assuming ^U
+        elsif ( ord($chr) == 21 ) {
+            $buf = '';
+            @matches = _match( $buf, @all_windows );
+            $suggestion = undef;
+        }
+
+        # handle backspace and delete
+        elsif ( ord($chr) == 127 or ord($chr) == 8 ) {
+            # remove the last char
+            $buf = substr( $buf, 0, length($buf) - 1 );
+
+            # get suggestions again
+            if ( @matches = _match( $buf, @all_windows ) ) {
+                $suggestion = $buf ? $matches[0] : undef;
+            } else {
+                $suggestion = undef;
+            }
+        }
+
+        # regular input
+        else {
+            # create a temporary new buffer
+            my $tmp = $buf . $chr;
+
+            if ( @matches = _match($tmp, @all_windows) ) {
+                # if the new character results in a match, keep it
+                $buf = $tmp;
+                $suggestion = $buf ? $matches[0] : undef;
+            } else {
+                # vbell on mistype
+                print STDOUT "\a";
+            }
+        }
+    }
+
+    # go to the selected window if there is one
+    if ($window) {
+        $window->{window}->set_active;
+    }
+
+    # refresh the screen to get the regular prompt back if needed
+    Irssi::command('redraw')
+}
+
+Irssi::command_bind('go', 'cmd_go2', 'go2.pl');
+
+sub _draw_suggestion {
+    my ( $b, $s ) = @_;
+
+    # $b might have a space and a second token which is a tag, remove it
+    # since that's getting displayed separately anyway
+    my $tag;
+    if ( $b =~ s/ (.*)// ) {
+        $tag = $1;
+    }
+
+    my $pre = '';
+    my $post = '';
+    if ($s) {
+        # No input, entire thing is a suggestion
+        if ( !$b ) {
+            $pre = '#' . $s->{window}->{refnum} . ' ';
+            $post = $s->{string};
+        }
+        # Matched window number
+        elsif ( $s->{match_obj} eq 'number' and $s->{string} =~ /\Q$b\E/i ) {
+            $pre = '#' . $`;
+            $post = $' . ' ' . ( $s->{window}->{active}->{name} || $s->{window}->{name} );
+        }
+        # Matched 'tag' (network or server)
+        elsif ( $s->{match_obj} eq 'tag' and $s->{string} =~ /\Q$b\E/i ) {
+            $pre = '#' . $s->{window}->{refnum} . ' ' .
+                ( $s->{window}->{active}->{name} || $s->{window}->{name} ) . " ($`";
+            $post = "$')";
+        }
+        # Matched window or item name
+        elsif ( $s->{string} =~ /\Q$b\E/i ) {
+            $pre = '#' . $s->{window}->{refnum} . ' ' . $`;
+            $post = $';
+        }
+
+        # special case 'tag'.  maybe this should be moved up into the case blocks
+        unless ( $s->{match_obj} eq 'tag' ) {
+            my $window_tag = $s->{window}->{active_server}->{tag};
+            if ( $window_tag ) {
+                if ( $tag ) {
+                    if ( $window_tag =~ /^\Q$tag\E/i ) {
+                        $post .= " ([/i]${tag}[i]$')"
+                    } else {
+                        print "BUG! Window had tag '$window_tag' and should have matched '$tag' but didn't!";
+                    }
+                } else {
+                    $post .= " ($window_tag)";
+                }
+            }
+        }
+    }
+
+    # ANSI escapes
+    my $inv    = "\x{1b}[7m";
+    my $no_inv = "\x{1b}[0m";
+
+    # Fix up inverse for pre and post text
+    if($pre) {
+        $pre = "[i]${pre}[/i]";
+        $pre =~ s/\[i\]/$inv/ig;
+        $pre =~ s/\[\/i\]/$no_inv/ig;
+    }
+    if($post) {
+        $post = "[i]${post}[/i]";
+        $post =~ s/\[i\]/$inv/ig;
+        $post =~ s/\[\/i\]/$no_inv/ig;
+    }
+
+    # FIXME - there has to be a "right way" to do this.
+    # it looks like the fe-text/gui-readline.c and gui-entry.c
+    # (and other gui-*) are not XS wrapped for whatever reason.
+    print STDOUT "\r" . ' 'x40 . "\rGoto: ";
+
+    print STDOUT $pre if $pre;   # before
+    print STDOUT $b;             # the matched string
+    print STDOUT $post if $post; # after
+}
+
+sub _match {
+    my ( $name, @wins ) = @_;
+    my @matches;
+
+    # $name might have a space and a second token which is a tag, remove it
+    # and try to match the window tag
+    my $tag;
+    if ( $name =~ s/ (.*)// ) {
+        $tag = $1;
+    }
+
+    my $awr = Irssi::active_win()->{refnum};
+    for (@wins) {
+        # Only add each window once, and prefer item, name, number, then tag
+        my @c;
+
+        # items
+        if (
+                length $_->{active}->{name}
+                and (
+                    (
+                        @c = $_->{active}->{name} =~ /(^(#)?)?\Q$name\E($)?/i
+                        and (
+                            # Match the network token if one was entered
+                            !$tag
+                            or (
+                                defined $_->{active_server}->{tag}
+                                and $_->{active_server}->{tag} =~ /^\Q$tag\E/i
+                            )
+                        )
+                    )
+                    # If we have an item name but no input, use the item name as the match string
+                    or !length($name)
+                )
+        ) {
+            push @matches, {
+                string        => $_->{active}->{name},
+                window        => $_,
+                match_obj     => 'item',
+                anchored      => ( defined $c[0] and !defined $c[1] ),
+                near_anchored => ( defined $c[0] and defined $c[1] ),
+                exact         => ( defined $c[0] and !defined $c[1] and defined $c[2] ),
+                active_win    => ( $awr == $_->{refnum} ),
+                # ignore non-chat activity
+                activity      => ( $_->{data_level} > 1 ? $_->{data_level} : 0 ),
+            };
+            next;
+        }
+
+        # window names
+        if (
+                length $_->{name}
+                and (
+                    (
+                        @c = $_->{name} =~ /(^(#)?)?\Q$name\E($)?/i
+                        and (
+                            # Match the network token if one was entered
+                            !$tag
+                            or (
+                                defined $_->{active_server}->{tag}
+                                and $_->{active_server}->{tag} =~ /^\Q$tag\E/i
+                            )
+                        )
+                    )
+                    # If we have an window name but no input, use the window name as the match string
+                    or !length($name)
+                )
+        ) {
+            push @matches, {
+                string        => $_->{name},
+                window        => $_,
+                match_obj     => 'name',
+                anchored      => ( defined $c[0] and !defined $c[1] ),
+                # this is not really so useful for names, but it doesn't really hurt either
+                near_anchored => ( defined $c[0] and defined $c[1] ),
+                exact         => ( defined $c[0] and !defined $c[1] and defined $c[2] ),
+                active_win    => ( $awr == $_->{refnum} ),
+                # ignore non-chat activity
+                activity      => ( $_->{data_level} > 1 ? $_->{data_level} : 0 ),
+            };
+            next;
+        }
+
+        # window numbers
+        if (
+                defined $_->{refnum}
+                and @c = $_->{refnum} =~ /(^)?\Q$name\E($)?/i
+                and (
+                    # Match the network token if one was entered
+                    !$tag
+                    or (
+                        defined $_->{active_server}->{tag}
+                        and $_->{active_server}->{tag} =~ /^\Q$tag\E/i
+                    )
+                )
+        ) {
+            push @matches, {
+                string     => $_->{refnum},
+                window     => $_,
+                match_obj  => 'number',
+                anchored   => defined $c[0],
+                exact      => ( defined $c[0] and defined $c[1] ),
+                active_win => ( $awr == $_->{refnum} ),
+                # ignore non-chat activity
+                activity   => ( $_->{data_level} > 1 ? $_->{data_level} : 0 ),
+            };
+            next;
+        }
+
+        # network names
+        if (
+                defined $_->{active_server}->{tag}
+                and @c = $_->{active_server}->{tag} =~ /(^)?\Q$name\E($)?/i
+
+                # This doesn't seem to make a lot of sense but it makes for a
+                # weird user experience without it, particularly on tab
+                # cycling
+                and (
+                    !$tag
+                    or $_->{active_server}->{tag} =~ /^\Q$tag\E/i
+                )
+        ) {
+            # don't add by tag if we've already got
+            push @matches, {
+                string     => $_->{active_server}->{tag},
+                window     => $_,
+                match_obj  => 'tag',
+                anchored   => defined $c[0],
+                exact      => ( defined $c[0] and defined $c[1] ),
+                active_win => ( $awr == $_->{refnum} ),
+                # ignore non-chat activity
+                activity   => ( $_->{data_level} > 1 ? $_->{data_level} : 0 ),
+            };
+            next;
+        }
+    }
+
+    # Try to sort intelligently.  Without input, order by window number.  Otherwise,
+    # put exact matches in front, then anchored matches, then alpha sort.  However,
+    # try not to suggest the currently selected window as the first choice.  In addition,
+    # we'll give preference to active windows.
+    #
+    # Here is a chart of the currently implemented sorting behavior:
+    #
+    #  * exact match (items, names, and numbers)
+    #    - activity level
+    #       - items, then names, then numbers
+    #
+    #  * anchored (items, names, and numbers)
+    #    - activity level
+    #       - items, then names, then numbers
+    #
+    #  * near-anchored (without leading #) (items and names)
+    #    - activity level
+    #       - items, then names
+    #
+    #  * exact for networks
+    #    - activity level
+    #
+    #  * anchored for networks
+    #    - activity level
+    #
+    #  * activity level
+    #
+    #  * alphabetical
+    #
+    @matches = sort {
+        my $which;
+        if ( !length($name) ) {
+            # no input, sort by number with preference to active windows
+            $which =
+                $b->{activity} <=> $a->{activity} ||
+                $a->{window}->{refnum} <=> $b->{window}->{refnum};
+        } else {
+            COMPARE: for my $objects ( [ 'item', 'name', 'number' ], [ 'tag' ] ) {
+                my $i;
+                my %object_rank = map { $_ => ++$i } @$objects;
+                for my $match ( 'exact', 'anchored', 'near_anchored' ) {
+
+                    # Make sure at least one is one of the desired match objects
+                    my $a_mo = grep { $_ eq $a->{match_obj} } @$objects;
+                    my $b_mo = grep { $_ eq $b->{match_obj} } @$objects;
+                    next unless $a_mo || $b_mo;
+
+                    # Make sure at least one is the current match type
+                    next unless $a->{$match} || $b->{$match};
+
+                    last COMPARE if $which =
+                        # if only one is a preferred match object
+                        $b_mo <=> $a_mo ||
+
+                        # if only one is the current match type
+                        $b->{$match} <=> $a->{$match} ||
+
+                        # Since both are the same level of match, bump up more active windows
+                        $b->{activity} <=> $a->{activity} ||
+
+                        # Same activity, order by object ranking (lower is better)
+                        $object_rank{$a->{match_obj}} <=> $object_rank{$b->{match_obj}};
+                }
+            }
+            # If we couldn't differentiate by now, bump current window to the bottom,
+            # sort by activity, and then alphabetically
+            $which =
+                $a->{active_win} <=> $b->{active_win} ||
+                $b->{activity} <=> $a->{activity} ||
+                $a->{string} cmp $b->{string}
+                unless $which;
+
+        }
+        $which;
+    } @matches;
+
+    return @matches;
+}
+
+sub _help {
+    print<<HELP;
+Go - jump directly to the correct destination
+
+Usage:
+    /go [destination]
+
+    The argument is optional, and if it is not provided or is ambiguous, you will be
+    sent to a prompt where you type in a few numbers or letters of the window name,
+    item (channel, nickname), window number, or connected network.  Once you have input
+    that matches one or more possible destinations, Go will print in inverse text what
+    it thinks you are looking for.  If there are multiple, the tab key will cycle through
+    them.  Press enter when you see the correct window to switch to it.
+
+    If you are using irssi 0.8.12 or better, you can tab complete from the input line
+    without having to press enter first.
+
+    If your destination has a second word (/go foo bar), then the second word (eg 'bar')
+    is assumed to be the network name, which is useful for disambiguation.  This works
+    both with input to /go and for text typed at the Goto: prompt.
+
+    You may find it useful to bind this action to a keystroke to expedite movement, which
+    will forego any argument and take you directly to the prompt:
+
+        /bind meta-w /go
+HELP
+}
diff --git a/scripts/google.pl b/scripts/google.pl
new file mode 100644
index 0000000..4011e53
--- /dev/null
+++ b/scripts/google.pl
@@ -0,0 +1,108 @@
+# - Google.pl
+
+# - You have to modify this line to the path
+# - of your LWP-dir
+
+use lib '/usr/lib/perl5/vendor_perl/5.6.1';
+
+use Irssi;
+use LWP::UserAgent;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.00';
+%IRSSI = (
+    authors     => 'Oddbjørn Kvalsund',
+    contact     => 'oddbjorn.kvalsund@hiof.no',
+    name        => 'Google',
+    description => 'This script queries google.com and returns the results.',
+    license     => 'Public Domain',
+);
+
+## Usage:
+## /google [-p, prints to current window] [-<number>, number of searchresults returned] search-criteria1 search-criteria2 ...
+##
+## History:
+## - Sun May 19 2002
+##   Version 0.1 - Initial release
+## -------------------------------
+
+#-------------------------------------------------
+my $nr_sites = 3; # Search-results returned
+my $prefix = ""; # Message printed before results
+#-------------------------------------------------
+
+sub cmd_google {
+
+        my ($data, $server, $witem) = @_;
+        my $url = "";
+	my $nr_sites = 3;
+	my $i = 0;
+	my (@lines, @pages);
+	my $mode = "quiet";
+
+	# If user supplied nr_sites, activate his setting
+	if ( $data =~ /-(\d\s)/ ) { $nr_sites = $1 };
+	if ($data =~ /-10/) { $nr_sites = 10 };
+	$data =~ s/-\d+//g; # remove nr_sites from $data
+
+	# Switch to public mode
+	# and return error msg if invalid window
+	if ( $data =~ /-p/ ) {
+		$mode = "public";
+		if ( ! $witem ) {
+		  Irssi::active_win()->print("Must be run run in a valid window (CHANNEL|QUERY)");
+		  return;
+		}
+	}
+	$data =~ s/-p//g; # remove -p from $data
+
+	# Format the query-string
+	$data =~ s/\s/+/g;
+	my $query = $data;
+
+	# Initialize LWP
+	my $ua = new LWP::UserAgent;
+	$ua->agent("AgentName/0.1 " . $ua->agent);
+
+	# Do the actual seach
+        my $req = new HTTP::Request GET => "http://www.google.com/search?hl=en&q=$query";
+        my $res = $ua->request($req);
+        my $content = $res->content;
+
+	# Replace <br> with newlines
+	# and remove tags
+        $content =~ s/\<br\>/\n/g;
+        $content =~ s/\<.+?\>//sg;
+
+	# Make array @pages of all search-results
+        @lines = split("\n", $content);
+        @pages = grep (/pages$/, @lines);
+
+	# Remove empty entries in @pages
+	for ($i=0;$i<=$#pages;$i++) {
+		$pages[$i] =~ s/\s+.*//g;
+		if ($pages[$i] =~ /(^\n|\s+\n)/){ splice(@pages, $i, 1) };
+		if ($pages[$i] !~ /\./){ splice(@pages, $i, 1) };
+	}
+
+	if($nr_sites > $#pages) { $nr_sites = $#pages + 1};
+
+	# Print pages to current window if public-mode specified
+	# else display a private notice of returned pages
+	if ( $mode eq "public") {
+	  if ($prefix ne "") { $witem->command("/SAY $prefix") } ;
+          for ($i=0; $i<$nr_sites; $i++) {
+                $pages[$i] =~ s/\s+.*//g;
+		$witem->command("/SAY http://$pages[$i]");
+          }
+	}
+	else {
+	  for ($i=0; $i<$nr_sites; $i++) {
+		$pages[$i] =~ s/\s+.*//g;
+		Irssi::active_win()->print("http://$pages[$i]");
+	  }
+	}
+}
+
+Irssi::command_bind('google', 'cmd_google');
diff --git a/scripts/gpgvalidator.pl b/scripts/gpgvalidator.pl
new file mode 100644
index 0000000..eb4c5c7
--- /dev/null
+++ b/scripts/gpgvalidator.pl
@@ -0,0 +1,224 @@
+#                              _ _     _       _             
+#   __ _ _ __   __ ___   ____ _| (_) __| | __ _| |_ ___  _ __ 
+#  / _` | '_ \ / _` \ \ / / _` | | |/ _` |/ _` | __/ _ \| '__|
+# | (_| | |_) | (_| |\ V / (_| | | | (_| | (_| | || (_) | |   
+#  \__, | .__/ \__, | \_/ \__,_|_|_|\__,_|\__,_|\__\___/|_|   
+#  |___/|_|    |___/ 
+#
+#				for irssi - VERSION 0.1.2
+#
+# this is a nice irssi's script coded by pallotron
+# based on a lovely implementation writed by valvoline for xchat client
+# 
+# valv`0 (valvoline@vrlteam.org / valvoline@freaknet.org)
+# pallotron (pallotron@freaknet.org)
+# 
+# original idea & implementation  by: valv'0
+#
+# valv`0 thanx goes to:
+# asbesto, pallotron, quest, iron - for the development support
+# hellbreak, cmcsynth, hio, mircalla - for the moral support
+# 
+# it allows you to do gpg trusting of your friends using gnupg and irc
+# capabilities. in order to use it, you have to load the script into irssi
+# (read man pages or go to irssi.org do know how do this). others users must
+# have loaded this script or another compatible script.
+#
+# FAKE--
+# PARANOIA!++ o/
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# USAGE:
+# If you want to trust a your friend you must do this:
+# 1) simply type /validate <your_friend_nick>
+# 2) accept DCC Send (a chunck file containing gpg sign)
+# 3) type /verify <your_friend_nick>:)
+#
+# To permit your trusting by other users you must do:
+# 1) type /setpass <your_gpg_passphrase>
+# 2) enjoy!
+# Now your irssi is listening for ctcp messages
+#
+# WARING!!!!!!!
+# this isn't a *FULL SECURE* script, better improvements must follow *SOON*!
+#
+# pallotron 23/09/2002 - pallotron@freaknet.org - www.freaknet.org
+ 
+use Irssi;
+use Irssi qw(command_bind active_server);
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+my $PASS = "NULL";
+my $VALIDATEDIR = "~/";
+
+$VERSION = "0.1.2";
+%IRSSI = (
+	authors=> 'original idea by valvoline, irssi porting by pallotron',
+	contact=> 'pallotron@freaknet.org',
+	name=> 'gpgvalidator v. 0.1.2',
+	description=> 'Have gpg-based trusting features in your irssi client!',
+	license=> 'GPL v2',
+	url=> 'http://www.freaknet.org/~pallotron',
+);
+
+Irssi::print("Loading irssi pallotron's porting of valvoline gpgvalidator 0.1.2");
+
+# create a new irssi command called /PASSPHRASE
+# USAGE:
+# /PASSPHRASE <your_GPG_pass>
+Irssi::command_bind('setpass','setpass');
+
+# create a new irssi command called /VERIFY
+# no particolare USAGE FORMAT
+# just call it with /VERIFY
+# it will verify the last <NICK>.asc file
+# download by the latest ctcp VALIDATE request
+Irssi::command_bind('verify','sub_verify');
+
+# send a ctcp VALIDATE request to a friend we want to trust
+#
+# USAGE: /validate <nick>
+Irssi::command_bind('validate','send_ctcp_request');
+
+# hook sub_validate function to signal 'ctcp msg'.
+# when your client receives /ctcp msg <your_nick> VALIDATE
+# it will performs some controls and then send, via DCC, a randomic 
+# generated chunck file (yournick.asc) containing your gpg signature
+# to $nick (the user who had request validating)
+Irssi::signal_add('ctcp msg','ctcp_send_chunck_file');
+
+Irssi::command_bind('about','about');
+Irssi::command_bind('greets','greets');
+Irssi::command_bind('manual','manual');
+Irssi::command_bind('erasepass','erasepass');
+
+sub send_ctcp_request {
+    my $line = shift;
+    if(!($line)) {
+    	Irssi::print("validate - wrong parameters:\nusage:    validate <nick>");
+	return 0;
+    }
+    active_server->command("/ctcp $line VALIDATE");
+    return 0;
+}
+
+sub erasepass {
+    $PASS="";
+    Irssi::print("gpgvalidator - pass forgotten");
+    return 0;
+}
+
+sub ctcp_send_chunck_file {
+    my ( $infos, $cmd, $nick, $host, $target) = @_;
+
+    my $test = $target;
+
+    $test =~ tr/\W/_/;
+    $test =~ tr/`/_/;
+    $test =~ tr/{/_/;
+    $test =~ tr/}/_/;
+    $test =~ tr/|/_/;
+    $test =~ tr/\\/_/;
+    
+    if ( $cmd =~ /^VALIDATE/) {
+        if ( $PASS =~ /NULL/i ) {
+	    Irssi::print("requested GPG-VALIDATE from $nick, but no passphrase in cache!\nplz, set a passphrase with /passphrase <your_gpg_pass>");
+	    return 1;
+	} else {
+	    Irssi::print("requested GPG-VALIDATE from $nick\n");
+            my $result = `openssl rand -out $VALIDATEDIR/$test 1024`;
+            $result = `echo "$PASS" | gpg --batch --yes --status-fd 1 --passphrase-fd 0 --output $VALIDATEDIR/$test.asc --clearsign $VALIDATEDIR/$test | grep "[GNUPG:]"`;
+    	    if (( my $i = index($result,"GOOD_PASSPHRASE")) > -1) {
+                active_server->command("/DCC send $nick $VALIDATEDIR/$test.asc");
+                $result = `echo "$result" | grep "SIG_CREATED"`;
+                Irssi::print("\n$result\n");
+	    }
+	    if (( my $i = index($result,"BAD_PASSPHRASE")) > -1) {
+                $result = `echo "$result" | grep "BAS_PASSPHRASE"`;
+                Irssi::print("$result\nBAD passphrase - cannot unlock your secret keyring - please set a passprase with /passphrase <yourpass>\n");
+            }   
+	}
+	return 0;
+    }
+}	    
+
+# this take the passphrase
+# OH MY GOD! THESE ARE VERY STUPID ROWS...
+# expecially from security side... :)
+sub setpass {
+    my $line = shift;
+    if(!($line)) {
+    	Irssi::print("setpass - wrong paramaters:\nusage:   setpass <yourpass>");
+	return 0;
+    }
+    $PASS = $line;
+    # can i do better of this? ;p
+    Irssi::print("gpgvalidator - pass set correctly");
+    return 0;
+}
+
+# this verify che <nick>.asc signed file trusting if the user
+# is in your keyring
+#
+# usage /verify <nick>
+# 
+sub sub_verify {
+
+    my $result = "";
+    my $test = shift;
+
+    if(!($test)) {
+    	Irssi::print("verify wrong parameters:\nusage:   verifi <nick>");
+	return 0;
+    }
+    
+    $test =~ tr/\W/_/;
+    $test =~ tr/`/_/;
+    $test =~ tr/{/_/;
+    $test =~ tr/}/_/;
+    $test =~ tr/|/_/;
+    $test =~ tr/\\/_/;
+    
+    $result = `gpg --batch --status-fd 1 --verify $VALIDATEDIR/$test.asc  2>/dev/null | grep "[GNUPG:]"`;
+    if (( my $i = index($result,"GOODSIG")) > -1) {
+        $result = `echo "$result" | grep "GOODSIG"`;
+        Irssi::print("good signature! - user trusted - $result\n");
+    }
+    else {
+        Irssi::print("bad signature! - user UNtrusted\n$result\n");
+    }
+    return 0;
+}
+
+sub about {
+        Irssi::print("\n-------------------------------------------------------\nGPG validator v0.1.2 for irssi coded in perl by pallotron\n-------------------------------------------------------\n(c) 2002 - valvoline / VRL Team - valvoline\@vrlteam.org\nported to irssi by pallotron\@freaknet.org\n-------------------------------------------------------\nthis's a simple script to validate users under irc, \nusing gpg. there're NO optimization, and the code was\nwritten in 10mins!. i'm not a perl-programmer, so...\n...fill free to make mods to the code, but, leave the\noriginal credits at the same place (=\n\ntype /greets to see greets!\n\ntype /manual to see user-manual\n");
+    return 1;
+}
+
+sub greets {
+        Irssi::print("\n-------------------------------------------------------\ngreets fly out to the following:\nasbesto, pallotron, iron, quest - for beta testing support.\nhellbreak, cmcsynth, hio, mirc4ll4 - for moral and economic support (ehehe).\ns0ftpj staff - for the besta coding support ever made.\n\nall the other, that i've forgotten...sorry! :(\n\n-------------------------------------------------------\n");
+        return 1;
+}
+
+sub manual {
+        Irssi::print("\n-------------------------------------------------------\n\nmanual\n\nsetpass <pass> - to cache your password for the current session.\nerasepass - to forgot current password.\nvalidate <nick> - to request a validator-chunck to nick.\nverify <nick> - to verify the received validator-chunck of nick.\n\nbe sure, to have the DCC workin' correctly\n\n-------------------------------------------------------\n");
+        return 1;
+}
+
+
diff --git a/scripts/grep.pl b/scripts/grep.pl
new file mode 100644
index 0000000..976d867
--- /dev/null
+++ b/scripts/grep.pl
@@ -0,0 +1,82 @@
+# /GREP [-i] [-w] [-v] [-F] <perl-regexp> <command to run>
+#
+# -i: match case insensitive
+# -w: only print matches that form whole words
+# -v: Invert the sense of matching, to print non-matching lines.
+# -F: match as a fixed string, not a regexp
+#
+# if you want /FGREP, do: /alias FGREP GREP -F
+
+use Irssi;
+use strict;
+use Text::ParseWords;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "2.1";
+%IRSSI = (
+	authors	    => "Timo \'cras\' Sirainen, Wouter Coekaerts",
+	contact	    => "tss\@iki.fi, wouter\@coekaerts.be", 
+	name        => "grep",
+	description => "/GREP [-i] [-w] [-v] [-F] <perl-regexp> <command to run>",
+	license     => "Public Domain",
+	url         => "http://wouter.coekaerts.be/irssi/",
+	changed	    => "2008-01-13"
+);
+
+my ($match, $v);
+
+sub sig_text {
+	my ($dest, $text, $stripped_text) = @_;
+	Irssi::signal_stop() if (($stripped_text =~ /$match/) == $v);	
+}
+
+sub cmd_grep {
+	my ($data,$server,$item) = @_;
+	my ($option,$cmd,$i,$w,$F);
+	$v = 0;
+	$F = 0;
+  
+	# split the arguments, keep quotes
+	my (@args)  = &quotewords(' ', 1, $data);
+
+	# search for options
+	while ($args[0] =~ /^-/) {
+		$option = shift(@args);
+		if ($option eq '-i') {$i = 1;}
+		elsif ($option eq '-v') {$v = 1;}
+		elsif ($option eq '-w') {$w = 1;}
+		elsif ($option eq '-F') {$F = 1;}	
+		else {
+			Irssi::print("Unknown option: $option",MSGLEVEL_CLIENTERROR);
+			return;
+		}
+	}
+
+	# match = first argument, but remove quotes
+	($match) = &quotewords(' ', 0, shift(@args));
+	# cmd = the rest (with quotes)
+	$cmd = join(' ',@args);
+
+	# check if the regexp is valid
+	eval("'' =~ /$match/");
+	if($@) { # there was an error
+		chomp $@;
+		Irssi::print($@,MSGLEVEL_CLIENTERROR);
+		return;
+	}
+	
+	if ($F) {
+		$match =~ s/(\(|\)|\[|\]|\{|\}|\\|\*|\.|\?|\|)/\\$1/g;
+	}
+	if ($w) {
+		$match = '\b' . $match . '\b';
+	}
+	if ($i) {
+		$match = '(?i)' . $match;
+	}
+
+	Irssi::signal_add_first('print text', 'sig_text');
+	Irssi::signal_emit('send command', $cmd, $server, $item);
+	Irssi::signal_remove('print text', 'sig_text');
+}
+
+Irssi::command_bind('grep', 'cmd_grep');
diff --git a/scripts/gsi.pl b/scripts/gsi.pl
new file mode 100644
index 0000000..d874bd7
--- /dev/null
+++ b/scripts/gsi.pl
@@ -0,0 +1,154 @@
+#!/usr/bin/perl -w
+# <<< MISSION STATEMENT >>>
+#
+#  gsi.pl
+# Looks up an 8 digit number in the Norwegian yellowpages...
+# ( http://www.gulesider.no/ )
+#
+# Prints information after removing identical entries.
+# Written by <mistr@sensewave.com> for irssi 0.8.9
+#
+# TODO:
+#  - enhance the regexes (less stripping, better matching)
+#  - shrink code (more generalized subs)
+#  - add functionality for name and address lookups
+#
+# <<< BEGING CODE >>>
+use strict;
+use LWP::UserAgent;
+use URI::Heuristic;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "220904-04:30:00";
+
+my %IRSSI = (
+    authors     => "mistr",
+    contact     => "mistr\@sensewave.com",
+    name        => "gsi",
+    modules     => 'LWP::UserAgent, URI::Heuristic',
+    description => "/gsi <phone nr> checks number via http://gulesider.no. Norwegian 8-digit numbers only. Nice if you have caller-ID and are as paranoid as me.",
+    license     => "Public Domain",
+    url         => "http://irssi.org/scripts",
+    changed     => "$VERSION"
+);
+# No need to change
+my $owner = "mistr.atat.sensewave.dotdot.com";
+my $banner = "[http://gulesider.no]";
+# Don't touch
+Irssi::settings_add_bool('gsi', 'gsi_debug', 0);
+Irssi::print("Set gsi_debug ON for debugging output");
+Irssi::command_bind('gsi', 'cmd_gsi');
+Irssi::print("Added command /gsi");
+
+# Subs
+sub cmd_gsi {
+	my $debug = Irssi::settings_get_bool('gsi_debug');
+	undef $debug unless ( $debug == 1 ) ;
+  	my ($lookup,$server,$witem) = @_;
+	$lookup =~ s/\s+//g;
+        if ( $lookup =~ m/^([0-9]{8}?)$/ ) {
+	  	$lookup = $1;
+	} else {
+		print CLIENTCRAP "%R>>%n Syntax error. Use /gsi <8digitnumber>";
+	  	return;
+	}
+	print CLIENTCRAP "%R>>%n Looking up $lookup";
+	my $address = "http://www.gulesider.no/gsi/numberSearch.do?tel=";
+	$address .= $lookup;
+	chomp(my $raw_url = $address);
+	my $url = URI::Heuristic::uf_urlstr($raw_url);
+	my $ua = LWP::UserAgent->new();
+	$ua->agent("$owner");
+	my $req = HTTP::Request->new(GET => $url);
+	$req->referer("$owner");
+	my $response = $ua->request($req);
+	if ($response->is_error()) {
+		print CLIENTCRAP "%R>>%n Something went wrong fetching by HTTP";
+		return;
+	} else {
+       		my $rawdata = $response->content(); # get the data
+		$_ = $rawdata;
+		if ( m/0 treff\./s ) {
+			print CLIENTCRAP "%R>>%n $banner No hits.";
+			undef $lookup;
+			return;
+		} elsif ( /S\&oslash\;ket\ ga\ treff\ i(.*)Gule Sider(.*)og(.*)Telefonkatalogen(.*)/ms ) {
+			print CLIENTCRAP "%R>>%n $banner Multiple listings. Manual search needed.";
+			print CLIENTCRAP "%R>>%n \($address\)";
+			undef $lookup;
+			return;
+		}
+		my $result = codezap( $rawdata );
+		( $debug ) && Irssi::print("debug - $result");
+		$_ = $result;
+		if ( /\([0-9]+ treff\)(.*)function\ submitDrill\(select\)/ ) { # multiple hits
+			my $rest = $1;
+			( $debug ) && Irssi::print("debug - MULTIPLE HITS");
+			$rest =~ s/[vV]is.treffene.i.kart//g;
+			$rest =~ s/[Tt]reff.i.+\(\d+.treff\)//g;
+			my ($result, %sorted);
+			while ($_ = $rest) {
+				m/^[ ]*(.+?)\ (\d{2,}[\d ]+\d{2,3})[ ]+/;
+				my $info = $1;
+				my $number = $2;
+				$rest = $';
+				( $debug ) && Irssi::print("debug - $info - $number");
+				$result = $info . " " . $number;
+				$sorted{$result}++;
+			}
+			foreach $result (sort keys %sorted) {
+				print CLIENTCRAP "%R>>%n $banner $result";
+			}
+			undef $lookup;
+			return;
+		} elsif ( m/.*totalt 1 treff\. (.+) ([\d ]+) (.*[a-z-_.+=]+\@[a-z-_.+=]+\..+? )?Send.*/ ) {
+			( $debug ) && Irssi::print("debug - 1 HIT STANDARD");
+			my $info = $1;
+			my $number = $2;
+			my $other = $3;
+			if ( $other =~ m/\w{3,}/ ) { $number .= " " . $other; }
+			$info =~ s/[Ss]e ogs.+? [A-Z ]+[A-Z]{2,} //;
+			$result = splitwords( $info ); 
+			$result .= " $number"
+		} elsif ( /.*treffene i kart (.*) ([\d ]+) (.*[a-z-_.+=]+\@[a-z-_.+=]+\..+? )?\'\)\;/) {
+			( $debug ) && Irssi::print("debug - 1 HIT OTHER");
+			my $info = $1;
+			my $number = $2;
+			my $other = $3;
+			if ( $other =~ m/\w{3,}/ ) { $number .= " " . $other; }
+			$result = splitwords( $info ); 
+			$result .= " $number"
+		} else {
+			( $debug ) && Irssi::print("debug - FAILED REGEX");
+			$result = "Unrecognized reply from server";
+		}
+		print CLIENTCRAP "%R>>%n $banner $result";
+		undef $lookup;
+		return;
+	}
+}	
+
+sub codezap {
+        my $zap = join('', @_);
+	$zap =~ s/\&nbsp\;?//g;
+	$zap =~ s/\&amp\;?/\&/g;
+	$zap =~ s/\<.+?\>/ /msg;
+	$zap =~ s/\s+/ /mg;
+	$zap =~ s/ +/ /mg;
+	$zap =~ s/^ +$//mg;
+	return "$zap";
+}
+
+sub splitwords {
+        my $workload = join('', @_);
+	my @result;
+	foreach ( split(' ', $workload) ) {
+		if (m/([A-Z][^A-Z ]+)([A-Z][^A-Z ]+)/) {
+			push(@result, $1 . " " . $2);
+		} else {
+			push(@result, $_);
+		}
+	}
+	return join(' ', @result);
+}
+
diff --git a/scripts/gtrans.pl b/scripts/gtrans.pl
new file mode 100644
index 0000000..33b7e8a
--- /dev/null
+++ b/scripts/gtrans.pl
@@ -0,0 +1,681 @@
+#!/usr/bin/env perl -w
+# vim: set sw=2 ts=2 sta et:
+
+# GTrans: Automatic translation in Irssi using the Google Language API
+# by Sven Ulland <svensven@gmail.com>. License: GPLv2
+#
+# DOCUMENTATION
+# -------------
+# Introduction:
+#   This script brings the power of the Google Language API to Irssi.
+#   In short, it provides a quick way to translate incoming and
+#   outgoing IRC messages with minimal effort. While the result is
+#   far from professional quality, it is vastly superior to most other
+#   automatic translation engines.
+#
+# Prerequisites:
+#   Better results are achieved if you write properly.
+#
+#   Only UTF-8 text is supported. Make sure your terminal handles it.
+#
+#   The WebService::Google::Language Perl module is required for the
+#   script to work. It is unlikely that your system provides binary
+#   packages for this module, so you probably have to install it
+#   manually or through the CPAN shell:
+#
+#     $ perl -MCPAN -e "install WebService::Google::Language"
+#
+# Quick testing:
+#   To quickly test the script to see what it can do, you can run the
+#   following command after starting Irssi and loading the script. It
+#   will translate the text and display the result in the current
+#   window. No text will be sent to IRC.
+#
+#     /gtrans --test fi:this is a small test
+#
+#   Another example to translate text and send it to the target
+#   (channel or query) in the currently active window:
+#
+#     /gtrans fi:hello! this is a small test
+#
+# Normal operation:
+#   When loaded with default settings, the script does nothing. The
+#   reason for this is to maintain privacy: It is not a good idea to
+#   submit potentially sensitive information directly to Google.
+#
+#   Automatic translation requires that the channel or nick that sends
+#   or receives the message, is in a whitelist. The following scenario
+#   will enable automatic translation for the channel #mychan and nick
+#   'james':
+#
+#     /set gtrans_my_lang en
+#     /set gtrans_input_auto ON
+#     /set gtrans_output_auto 2
+#     /set gtrans_output_auto_lang fi
+#     /set gtrans_whitelist #mychan james
+#
+#   Incoming or outgoing messages on the #mychan channel and queries
+#   from/to james will now be automatically translated: Incoming
+#   messages will be translated from any language to English; outgoing
+#   messages will be translated from any language to Finnish.
+#
+# Settings:
+#   The available settings are described below. The default value is
+#   shown in parentheses.
+#
+#   gtrans_input_auto (ON)
+#     ON:  Translate incoming messages that match gtrans_whitelist.
+#          Translate to the language specified by gtrans_my_lang.
+#     OFF: Don't translate incoming messages.
+#
+#   gtrans_show_orig (ON)
+#     ON:  Show the original, untranslated message, and display the
+#          translation on the next line. Applies to both incoming and
+#          outgoing messages.
+#     OFF: Translate messages transparently, hide original text.
+#
+#   gtrans_output_auto (1)
+#     0:   Don't translate outgoing messages.
+#     1:   Translate outgoing messages only when the text is prefixed
+#          by "<lang>:". Example:  fi:this is a small test. This will
+#          override the whitelist.
+#     2:   Translate outgoing messages automatically to the language
+#          specified by gtrans_output_auto_lang. Target has to match
+#          the whitelist.
+#
+#   gtrans_output_auto_lang ("fi")
+#     xx:  Set automatic output language to "xx". This applies to
+#          automatically translated outgoing messages when
+#          gtrans_output_auto is set to 2.
+#
+#   gtrans_my_lang ("en")
+#     xx:  Space-separated list of languages that should not be
+#          translated. Incoming messages will be translated to the
+#          first language in this list. Note: The language will be
+#          detected by sending the message to the Google API.
+#
+#   gtrans_debug (0)
+#     0:   No debugging.
+#     1:   Light debugging. Useful to see what's going on.
+#     2:   Normal debugging. Slightly more verbose.
+#     3:   Medium debugging. Useful for troubleshooting.
+#     4:   Verbose debugging. Significant output.
+#     5:   Very verbose debugging. Lots of output.
+#
+#   gtrans_whitelist ("")
+#     xx:  Space-separated list of channels and nicks that can be
+#          translated. This applies to both incoming and outgoing
+#          messages. Specify "*" to whitelist everything.
+#
+# Links / more info:
+#   List of supported languages in the Google Language API:
+#     <URL:http://code.google.com/apis/ajaxlanguage/documentation/reference.html#LangNameArray>
+#
+#   WebService::Google::Language Perl module at CPAN:
+#     <URL:http://search.cpan.org/~hma/WebService-Google-Language-0.02/lib/WebService/Google/Language.pm>
+#
+# TODO list:
+#   * What determines the value of isreliable? The API doesn't say.
+#   * Translate incoming/outgoing notices.
+#   * Translate incoming/outgoing topics.
+#     + Keep un-/translated topic in topic bar with a toggle.
+#   * Make debugging levels and messages more consistent.
+#   * Make whitelist work with servers/connections too.
+#   * Interact better with logging.
+#   * Better code reuse. Lots of duplication now.
+#   * Verify compatibility with other scripts/themes/configurations.
+#
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+use Irssi;
+$VERSION = "0.0.1";
+%IRSSI = (
+    authors     => "Sven Ulland",
+    contact     => "svensven\@gmail.com",
+    name        => "GTrans",
+    description => "Translation via the Google Language API",
+    license     => "GPLv2",
+    url         => "http://scripts.irssi.org/",
+    changed     => $VERSION,
+    modules     => "WebService::Google::Language",
+    commands    => "gtrans"
+);
+
+use Data::Dumper qw(Dumper);
+use WebService::Google::Language;
+
+my $service = WebService::Google::Language->new(
+  "referer" => "http://scripts.irssi.org/",
+  "agent"   => "$IRSSI{name} $VERSION for Irssi",
+  "timeout" => 5,
+  "src"     => "",
+  "dest"    => "",
+);
+
+# Urgh. $glob_cmdpass is set to 1 when using gtrans_cmd() and later
+# checked in event_output_msg(). The reason is that event_output_msg()
+# is called twice: first by cmd_gtrans(), then by the event "send
+# text".
+my $glob_cmdpass = 0;
+
+sub dbg {
+  my ($level, $msg) = @_;
+  return unless ($level <= Irssi::settings_get_int("gtrans_debug"));
+
+  my %dbgcol = (
+    1 => "%G",
+    2 => "%Y",
+    3 => "%C",
+    4 => "%M",
+    5 => "%R",
+  );
+
+  print CLIENTCRAP "%W$IRSSI{name} " .
+                   "%Bdebug%W($dbgcol{$level}$level%W)>%n $msg";
+}
+
+sub err {
+  my $msg = shift;
+  print CLIENTCRAP "%W$IRSSI{name} %Rerror%W>%n $msg";
+}
+
+sub inf {
+  my $msg = shift;
+  print CLIENTCRAP "%W$IRSSI{name} %Ginfo%W>%n $msg";
+}
+
+sub usage {
+  print CLIENTCRAP "%W$IRSSI{name} %Yusage%W>%n " .
+                   "/$IRSSI{commands} [-t|--test] <lang>:<message>";
+  print CLIENTCRAP "%W$IRSSI{name} %Yusage%W>%n " .
+                   "Example: %W/$IRSSI{commands} fr:this message " .
+                   "will be translated to french and sent to the " .
+                   "currently active window.%n";
+  print CLIENTCRAP "%W$IRSSI{name} %Yusage%W>%n " .
+                   "Example: %W/$IRSSI{commands} -t fi:this " .
+                   "message will be translated to finnish, but " .
+                   "*won't* be sent out. use this to test " .
+                   "translations.%n";
+  print CLIENTCRAP "%W$IRSSI{name} %Yusage%W>%n " .
+                   "There are several settings to modify " .
+                   "translation behaviour. Type %W/set gtrans%n to " .
+                   "see the available settings. See the script " .
+                   "source for documentation.";
+}
+
+sub dehtml {
+  # FIXME: The only HTML entity seen so far is &#39;
+  $_[0] =~ s/&#39;/'/g;
+}
+
+sub wgl_process {
+  my %args = @_;
+  dbg(5, "wgl_process(): input %args: " . Dumper(\%args));
+
+  my $result = $args{func}(%args);
+  dbg(4, "wgl_process() wgl_func() output: " . Dumper(\$result));
+
+  my $ok = 1;
+  if ($result->error) {
+    err(sprintf "wgl_process() wgl_func() code %s: %s",
+        $result->code,
+        $result->message);
+    $ok = 0;
+  }
+
+  return $result;
+}
+
+sub event_input_msg {
+  my $subname = "event_input_msg";
+  my ($server, $msg, $nick, $address, $target) = @_;
+
+  return unless Irssi::settings_get_bool("gtrans_input_auto");
+
+  my $sig = Irssi::signal_get_emitted();
+  my $witem;
+
+  dbg(5, "$subname() args: " . Dumper(\@_));
+
+  my $do_translation = 0;
+
+  if ($sig eq "message private") {
+    # Private message.
+    $witem = Irssi::window_item_find($nick);
+
+    # Check whether the source $nick is in the whitelist.
+    dbg(3, "$subname() Looking for nick \"$nick\" in whitelist");
+    foreach (split(/ /,
+        Irssi::settings_get_str("gtrans_whitelist"))) {
+      $do_translation = 1 if ($nick eq $_ or $_ eq "*");
+    }
+  } else { # $sig eq "message public"
+    # Public message.
+    $witem = Irssi::window_item_find($target);
+
+    # Check whether $target is in the whitelist.
+    dbg(3, "$subname() Looking for channel \"$target\" " .
+           "in whitelist");
+    foreach (split(/ /,
+        Irssi::settings_get_str("gtrans_whitelist"))) {
+      $do_translation = 1 if ($target eq $_ or $_ eq "*");
+    }
+  }
+
+  unless ($do_translation) {
+    dbg(1, sprintf "Channel (\"$target\") or nick (\"$nick\") is " .
+                   "not whitelisted");
+    return;
+  }
+
+  dbg(2, sprintf "$subname() Channel (\"$target\") or nick " .
+                 "(\"$nick\") is whitelisted");
+
+  # Prepare arguments for language detection.
+  utf8::decode($msg);
+  my %args = (
+    "func" => sub { $service->detect(@_) },
+    "text" => $msg,
+  );
+
+  # Run language detection.
+  my $result = wgl_process(%args);
+
+  dbg(4, "$subname() wgl_process() detect returned: " .
+         Dumper(\$result));
+
+  if ($result->error) {
+    dbg(1, "$subname(): Language detection failed");
+    err(sprintf "Language detection failed with code %s: %s",
+        $result->code, $result->message);
+    return;
+  }
+
+  # Don't translate my languages.
+  foreach (split(/ /, Irssi::settings_get_str("gtrans_my_lang"))) {
+    $do_translation = 0 if($result->language eq $_);
+  }
+
+  unless ($do_translation) {
+    dbg(2, "$subname() Incoming language " .
+           "\"$result->language\" matches my lang(s). " .
+           "Not translating.");
+    return;
+  }
+
+  dbg(1, sprintf "Detected language \"%s\", confidence %.3f",
+                 $result->language, $result->confidence);
+
+  my $confidence = $result->confidence;
+  my $reliable = $result->is_reliable;
+
+  # Prepare arguments for translation.
+  my %args = (
+    "func" => sub { $service->translate(@_) },
+    "text" => $msg,
+    "dest" => (split(/ /,
+        Irssi::settings_get_str("gtrans_my_lang")))[0]
+  );
+
+  # Run translation.
+  my $result = wgl_process(%args);
+
+  dbg(4, "$subname() wgl_process() translate returned: " .
+         Dumper(\$result));
+
+  if ($result->error) {
+    dbg(1, "Translation failed");
+    err(sprintf "Translation failed with code %s: %s",
+        $result->code, $result->message);
+    return;
+  }
+
+  if (Irssi::settings_get_bool("gtrans_show_orig")) {
+    my $trmsg = sprintf "[%%B%s%%n:%s%.2f%%n] %s",
+        $result->language,
+        $reliable ? "%g" : "%r",
+        $confidence,
+        $result->translation;
+    utf8::decode($trmsg);
+    dehtml($trmsg);
+
+    Irssi::signal_continue($server, $msg, $nick, $address, $target);
+    $witem->print($trmsg, MSGLEVEL_CLIENTCRAP);
+  }
+  else {
+    $msg = sprintf "[%s:%.2f] %s",
+        $result->language,
+        $confidence,
+        $result->translation;
+    utf8::decode($msg);
+    dehtml($msg);
+
+    Irssi::signal_continue($server, $msg, $nick, $address, $target);
+  }
+
+  dbg(1, "Incoming translation successful");
+}
+
+sub event_output_msg {
+  my $subname = "event_output_msg";
+  my ($msg, $server, $witem, $force_lang) = @_;
+
+  dbg(5, "$subname() args: " . Dumper(\@_));
+
+  # Safeguard to stop double translations when using /gtrans.
+  if ($glob_cmdpass) {
+    $glob_cmdpass = 0;
+    Irssi::signal_continue($msg, $server, $witem);
+    return;
+  }
+
+  return unless (
+      (Irssi::settings_get_int("gtrans_output_auto") > 0 and
+       Irssi::settings_get_int("gtrans_output_auto") <= 2)
+         or $force_lang);
+
+  # Determine destination language before doing translation.
+  my $dest_lang;
+  if($force_lang) {
+    $dest_lang = $force_lang;
+  }
+  elsif (Irssi::settings_get_int("gtrans_output_auto") eq 1) {
+    # Semiauto translation. Here we preprocess the msg to determine
+    # destination language. The WGL API cannot fetch the list of valid
+    # languages, so we simply try to see if the language is valid.
+    if ( $msg =~ /^([a-z]{2}(-[a-z]{2})?):(.*)/i) {
+      dbg(2, "$subname() dest_lang \"$1\", msg \"$3\"");
+      $dest_lang = $1;
+      $msg = $3;
+    }
+  }
+  elsif (Irssi::settings_get_int("gtrans_output_auto") eq 2) {
+    # Fully automated translation.
+    # To avoid accidents, verify that $witem->{name} is whitelisted.
+    dbg(3, "$subname() Looking for target \"" .
+           $witem->{name} . "\" in whitelist");
+
+    my $do_translation = 0;
+    foreach (split(/ /,
+        Irssi::settings_get_str("gtrans_whitelist"))) {
+      $do_translation = 1 if ($witem->{name} eq $_);
+      $do_translation = 1 if ($_ eq "*");
+    }
+
+    unless ($do_translation) {
+      dbg(1, sprintf "Target \"" . $witem->{name} . "\" is " .
+                     "not whitelisted");
+      return;
+    }
+
+    dbg(2, sprintf "$subname() Target \"" . $witem->{name} .
+                   "\" is whitelisted");
+    $dest_lang = Irssi::settings_get_str("gtrans_output_auto_lang");
+  }
+
+  unless ($dest_lang and $msg) {
+    dbg(1, "Empty destination language or message");
+    return;
+  }
+
+  # Prepare arguments for translation.
+  utf8::decode($msg);
+  my %args = (
+    "func" => sub { $service->translate(@_) },
+    "text" => $msg,
+    "dest" => $dest_lang
+  );
+
+  # Run translation.
+  my $result = wgl_process(%args);
+
+  dbg(4, "$subname() wgl_process() output: " .
+         Dumper(\$result));
+
+  if ($result->error) {
+    dbg(1, "$subname() Translation failed");
+    err(sprintf "Translation failed with code %s: %s",
+        $result->code, $result->message);
+    return;
+  }
+
+  my $trmsg;
+  if ($result->language ne $dest_lang) {
+    $trmsg = $result->translation;
+    utf8::decode($trmsg);
+    dehtml($trmsg);
+  }
+
+  if($force_lang) {
+    # Emit new signal, since we came from cmd_gtrans().
+    $glob_cmdpass = 1; # Don't translate in event_output_msg()
+    dbg(3, "$subname():" . __LINE__ .
+           " Emitting \"send text\" signal");
+    Irssi::signal_emit("send text", $trmsg, $server, $witem);
+    return;
+  }
+
+  Irssi::signal_continue($trmsg, $server, $witem);
+
+  if (Irssi::settings_get_bool("gtrans_show_orig")) {
+    my $origmsg = sprintf "[orig:%%B%s%%n] %s",
+        $result->language,
+        $msg;
+    $witem->print($origmsg, MSGLEVEL_CLIENTCRAP);
+  }
+
+  dbg(1, "Outbound auto-translation successful");
+}
+
+# FIXME: While topic translation is implemented, it needs more work to
+# be useful. Until it is, the code is not active.
+#sub event_topic {
+#  # signal "message own_public" parameters:
+#  # my ($server, $channel, $topic, $nick, $target) = @_;
+#
+#  return unless Irssi::settings_get_bool("gtrans_topic_auto");
+#
+#  dbg(5, "event_topic() args: " . Dumper(\@_));
+#
+#  my ($server, $channel, $msg, $nick, $target) = @_;
+#
+#  my $do_translation = 0;
+#
+#  # Check whether $channel is in the whitelist.
+#  dbg(3, "event_topic() Looking for channel \"$channel\" in " .
+#         "whitelist");
+#  foreach (split(/ /,
+#      Irssi::settings_get_str("gtrans_whitelist"))) {
+#    $do_translation = 1 if ($channel eq $_);
+#    $do_translation = 1 if ($_ eq "*");
+#  }
+#
+#  unless ($do_translation) {
+#    dbg(1, sprintf "Channel $channel is not whitelisted. " .
+#                   "Not translating topic");
+#    return;
+#  }
+#
+#  dbg(2, sprintf "event_topic() Channel $channel is whitelisted");
+#
+#  # Prepare arguments for language detection.
+#  utf8::decode($msg);
+#  my %args = (
+#    "func" => sub { $service->detect(@_) },
+#    "text" => $msg,
+#  );
+#
+#  # Run language detection.
+#  my $result = wgl_process(%args);
+#
+#  dbg(4, "event_topic() wgl_process() detect returned: " .
+#         Dumper(\$result));
+#
+#  if ($result->error) {
+#    dbg(1, "event_topic(): Language detection failed");
+#    err(sprintf "Language detection failed with code %s: %s",
+#        $result->code, $result->message);
+#    return;
+#  }
+#
+#  # Don't translate my languages.
+#  foreach (split(/ /, Irssi::settings_get_str("gtrans_my_lang"))) {
+#    $do_translation = 0 if($result->language eq $_);
+#  }
+#
+#  unless ($do_translation) {
+#    dbg(2, "event_topic() Incoming language " .
+#           "\"$result->language\" matches my lang(s). " .
+#           "Not translating.");
+#    return;
+#  }
+#
+#  dbg(1, sprintf "Detected language \"%s\", confidence %.3f",
+#                 $result->language, $result->confidence);
+#
+#  my $confidence = $result->confidence;
+#
+#  # Prepare arguments for translation.
+#  my %args = (
+#    "func" => sub { $service->translate(@_) },
+#    "text" => $msg,
+#    "dest" => (split(/ /,
+#        Irssi::settings_get_str("gtrans_my_lang")))[0]
+#  );
+#
+#  # Run translation.
+#  my $result = wgl_process(%args);
+#
+#  dbg(4, "event_topic() wgl_process() translate returned: " .
+#         Dumper(\$result));
+#
+#  if ($result->error) {
+#    dbg(1, "Topic translation failed");
+#    err(sprintf "Topic translation failed with code %s: %s",
+#        $result->code, $result->message);
+#    return;
+#  }
+#
+#  # FIXME: Don't alter messages!
+#  $msg = sprintf "[%s:%.2f] %s",
+#      $result->language, $confidence, $result->translation;
+#
+#  utf8::decode($msg);
+#  dehtml($msg);
+#
+#  # FIXME: More info about result?
+#  dbg(1, "Incoming topic translation successful");
+#
+#  Irssi::signal_continue($server, $channel, $msg, $nick, $target);
+#}
+
+sub cmd_gtrans {
+  my $subname = "cmd_gtrans";
+  my ($msg, $server, $witem) = @_;
+
+  dbg(5, "$subname() input: " . Dumper(\@_));
+
+  if ($msg =~ /^(|help|-h|--help|-t|--test)$/) {
+    usage();
+    return;
+  }
+
+  my $testing_mode = 0;
+  if ($msg =~ /^(-t|--test) /) {
+    $testing_mode = 1;
+    $msg =~ s/^(-t|--test) //;
+  }
+
+  return unless ($testing_mode or
+                    ($witem and
+                        ($witem->{type} eq "CHANNEL" or
+                         $witem->{type} eq "QUERY")));
+
+  # Determine destination language before doing translation.
+  my $dest_lang;
+
+  # FIXME: What about languages on the form "xx-yy"?
+  if ( $msg =~ /^([a-z]{2}):(.*)/i) {
+    dbg(2, "$subname() dest_lang \"$1\", msg \"$2\"");
+    $dest_lang = $1;
+    $msg = $2;
+  } else {
+    dbg(2, "$subname() syntax error");
+  }
+
+  unless ($dest_lang and $msg) {
+    err("Empty destination language or message");
+    usage();
+    return;
+  }
+
+  if ($testing_mode) {
+    # Prepare arguments for translation.
+    utf8::decode($msg);
+    my %args = (
+      "func" => sub { $service->translate(@_) },
+      "text" => $msg,
+      "dest" => $dest_lang
+    );
+
+    # Run translation.
+    my $result = wgl_process(%args);
+
+    dbg(4, "$subname() wgl_process() output: " . Dumper(\$result));
+
+    if ($result->error) {
+      dbg(1, "$subname(): Translation failed");
+      err(sprintf "Translation failed with code %s: %s",
+          $result->code, $result->message);
+      return;
+    }
+
+    $msg = $result->translation;
+    utf8::decode($msg);
+    dehtml($msg);
+
+    dbg(1, "Outbound translation successful");
+
+    $witem = Irssi::active_win();
+    $witem->print(sprintf
+        ("%%GGTrans test (%%B%s%%n->%%B%s%%G):%%n %s",
+        $result->language,
+        $dest_lang,
+        $msg), MSGLEVEL_CLIENTCRAP);
+  }
+  else {
+    event_output_msg($msg, $server, $witem, $dest_lang);
+  }
+}
+
+print CLIENTCRAP "%W$IRSSI{name} loaded. " .
+                 "Hints: %n/$IRSSI{commands} help";
+
+# Register gtrans settings.
+Irssi::settings_add_bool("gtrans", "gtrans_input_auto",          1);
+#Irssi::settings_add_bool("gtrans", "gtrans_topic_auto",          0);
+Irssi::settings_add_bool("gtrans", "gtrans_show_orig",           1);
+Irssi::settings_add_int ("gtrans", "gtrans_output_auto",         1);
+Irssi::settings_add_str ("gtrans", "gtrans_output_auto_lang", "fi");
+Irssi::settings_add_str ("gtrans", "gtrans_my_lang",          "en");
+Irssi::settings_add_int ("gtrans", "gtrans_debug",               0);
+Irssi::settings_add_str ("gtrans", "gtrans_whitelist",          "");
+
+# Register /gtrans command.
+Irssi::command_bind("gtrans",                         "cmd_gtrans");
+
+# Register events for incoming messages/actions.
+Irssi::signal_add_last("message public",         "event_input_msg");
+Irssi::signal_add_last("message private",        "event_input_msg");
+
+# Register events for outgoing messages/actions.
+Irssi::signal_add("send text",                  "event_output_msg");
+
+#TODO: Register events that need special handling.
+#Irssi::signal_add("message irc action",          "event_input_msg");
+#Irssi::signal_add("message irc notice",          "event_input_msg");
+#Irssi::signal_add("message irc own_action",     "event_output_msg");
+#Irssi::signal_add("message irc own_notice",     "event_output_msg");
+#Irssi::signal_add("event topic",                     "event_topic");
diff --git a/scripts/guts.pl b/scripts/guts.pl
new file mode 100644
index 0000000..a1288c0
--- /dev/null
+++ b/scripts/guts.pl
@@ -0,0 +1,21 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(signal_add_last settings_add_bool settings_add_str
+                             settings_get_bool settings_get_str);
+$VERSION = '1.00';
+%IRSSI = (
+    authors     => 'Juerd',
+    contact     => 'juerd@juerd.nl',
+    name        => 'German Uppercased Tab Stuff',
+    description => 'Adds the uppercased version of the tab completes',
+    license     => 'Public Domain',
+    url         => 'http://juerd.nl/irssi/',
+    changed     => 'Sat May 18 21:40 CET 2002',
+);
+
+signal_add_last 'complete word' => sub {
+    my ($complist, $window, $word, $linestart, $want_space) = @_;
+    push @$complist, ucfirst $word;
+}
+
diff --git a/scripts/hddtemp.pl b/scripts/hddtemp.pl
new file mode 100644
index 0000000..2690ba4
--- /dev/null
+++ b/scripts/hddtemp.pl
@@ -0,0 +1,182 @@
+########
+# INFO
+#
+# Type this to add the item:
+#
+# /statusbar window add hddtemp
+#  
+# See
+# 
+# /help statusbar
+#
+#
+# If you want to use this script install the hddtemp daemon on the host
+# you like to monitor and set it up, You can use multiple hosts aswell.
+#
+# Example:
+# /set hddtemp_hosts host1 host2 host3
+# /set hddtemp_ports 7634 7635 7553
+# 
+# If all the daemons run all on the same port you can set a single port, 
+# It will be used for all hosts.
+#
+# Example:
+# /set hddtemp_ports 7634
+#
+# There are 2 coloring threshold settings hddtemp_threshold_green
+# and hddtemp_threshold_red. If the temperature is higher than 
+# green and lower then red the color will be yellow.
+#
+# Example:
+# /set hddtemp_threshold_green 35
+# /set hddtemp_threshold_red 45
+# 
+# (I don't know if the unit retured by the daemon depends on the 
+#  locale. I've Celsius values here.)
+# 
+# 
+# There is a setting for the degree sign.
+# Since there is a difference between 8bit and utf-8 
+# you can set it to what you prefer
+#
+########
+# CHANGES:
+# 0.13 - added forking (not blocking irrsi while fetching the temperatures)
+#######
+# TODO: themeing support
+#
+
+use strict;
+use Irssi;
+use IO::Socket::INET;
+use POSIX;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.14";
+%IRSSI = (
+    authors     => "Valentin Batz",
+    contact     => "vb\@g-23.org",
+    name        => "hddtemp",
+    description => "adds a statusbar item which shows temperatures of harddisks (with multiple hddtemp-hosts support)",
+    license     => "GPLv2",
+    changed     => "2004-06-21",
+    url         => "http://hurzelgnom.bei.t-online.de/irssi/scripts/hddtemp.pl",
+    sbitems     => "hddtemp"
+);
+
+my $forked;
+my $pipe_tag;
+my $outstring = 'hddtemp...';
+
+sub get_data {
+	my $lines;
+	my @hosts = split(/ /, Irssi::settings_get_str("hddtemp_hosts"));
+	my @ports = split(/ /, Irssi::settings_get_str("hddtemp_ports"));
+	print "hi";
+	while(scalar(@hosts) > scalar(@ports)){
+		push @ports, @ports[0];
+	}
+	my $i=0;
+	for ($i;$i<scalar(@hosts);$i++) {
+		my $sock = IO::Socket::INET->new(PeerAddr => @hosts[$i],  
+						 PeerPort => @ports[$i], 
+						 Proto => 'tcp',
+						 Timeout => 10);
+		#skip dead hosts
+		next unless $sock;
+		while( $_ = $sock->getline()) {
+			$lines .= $_.';';
+		}
+	}
+	return $lines;
+}
+
+sub get_temp {
+	my ($rh, $wh);
+	pipe($rh, $wh);
+	return if $forked;
+	my $pid = fork();
+	if (!defined($pid)) {
+	    Irssi::print("Can't fork() - aborting");
+	    close($rh); close($wh);
+	    return;
+	}
+  	$forked = 1;
+	if ($pid > 0) {
+		#parent 
+		close($wh);
+		Irssi::pidwait_add($pid);
+		$pipe_tag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, $rh);
+		return;
+	}
+	
+	my $lines;
+	eval {
+		#child
+		$lines = get_data();
+		#write the reply
+		print ($wh $lines);
+		close($wh);
+	};
+	POSIX::_exit(1);
+}
+
+sub pipe_input {
+	my $rh=shift;
+	my $linesx=<$rh>;
+	close($rh);
+	Irssi::input_remove($pipe_tag);
+	$forked = 0;
+	my %temps;
+	my $green = Irssi::settings_get_int("hddtemp_threshold_green");
+	my $red = Irssi::settings_get_int("hddtemp_threshold_red");
+	my $degree = Irssi::settings_get_str("hddtemp_degree_sign");
+	unless ($linesx) {
+		return(0);
+	}
+	my ($hdd, $model, $temp, $unit);
+	my $i=0;
+	foreach my $lines (split(';', $linesx)) {
+		foreach my $line (split(/\|\|/, $lines)) {
+			#remove heading/traling | 
+			$line =~ s/^\|//;
+			$line =~ s/\|$//;
+			
+			($hdd, $model, $temp, $unit) = split(/\|/,$line,4);
+			
+			$hdd =~ s/(.*)\/(.*)$/$2/;
+			#different colors for different termperatures
+			if ($temp <= $green) {
+				$temps{$i.':'.$hdd} = '%g'.$temp.'%n'.$degree.$unit;
+			} elsif ($temp > $green && $temp < $red) {
+				$temps{$i.':'.$hdd} = '%y'.$temp.'%n'.$degree.$unit;
+			} elsif ($temp >= $red) {
+				$temps{$i.':'.$hdd} = '%r'.$temp.'%n'.$degree.$unit;
+			}
+		}
+		$i++;
+	}
+	my $out='';
+	foreach (sort keys %temps) {
+		$out .= "$_: $temps{$_} ";
+	}
+	$out=~s/\s+$//;
+	# temporal use of $out to prevent statusbar drawing errors
+	$outstring=$out;
+	Irssi::statusbar_items_redraw('hddtemp');
+}
+
+sub sb_hddtemp() {
+	my ($item, $get_size_only) = @_;
+	$item->default_handler($get_size_only, "{sb $outstring}", undef, 1); 
+} 
+
+Irssi::timeout_add(15000, \&get_temp, undef);
+Irssi::statusbar_item_register('hddtemp', undef, 'sb_hddtemp');
+Irssi::settings_add_str("hddtemp", "hddtemp_hosts","localhost");
+Irssi::settings_add_str("hddtemp", "hddtemp_ports","7634");
+Irssi::settings_add_int("hddtemp", "hddtemp_threshold_green", 35);
+Irssi::settings_add_int("hddtemp", "hddtemp_threshold_red", 45);
+Irssi::settings_add_str("hddtemp", "hddtemp_degree_sign","°");
+Irssi::signal_add("setup changed", \&get_temp);
+get_temp();
diff --git a/scripts/hello.pl b/scripts/hello.pl
new file mode 100644
index 0000000..e1dcd19
--- /dev/null
+++ b/scripts/hello.pl
@@ -0,0 +1,55 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+
+$VERSION = '1.00';
+%IRSSI = (
+	authors		=> 'Cybertinus',
+	contact		=> 'cybertinus@cybertinus.nl',
+	name		=> 'Greeter',
+	description	=> 'This script allows ' .
+			   'you to greet the channel ' .
+			   'You\'re joining with the ' .
+			   'command /hello. The text ' .
+			   'it shows depends on the time ' .
+			   'you\'re living.',
+	license		=> 'GPL2',
+	changed		=> "2005-05-25 13:42:00 GMT+1+DST"
+);
+
+sub hello
+{
+	my($data, $server, $witem, $time, $text) = @_;
+	return unless $witem;
+	# $witem (window item) may be undef.
+	
+	# getting the current hour off the day
+	$time = (localtime(time))[2];
+	
+	if($time >= 18)
+	{
+		$text = Irssi::settings_get_str("evening_message");
+	}
+	elsif($time >= 12)
+	{
+		$text = Irssi::settings_get_str("afternoon_message");
+	}
+	elsif($time >= 6)
+	{
+		$text = Irssi::settings_get_str("morning_message");
+	}
+	elsif($time >= 0)
+	{
+		$text = Irssi::settings_get_str("night_message")
+	}
+	$server->command("MSG $witem->{name} $text $data");
+	
+}
+
+Irssi::command_bind hello => \&hello;
+
+Irssi::settings_add_str("greeter", "evening_message", "good evenening");
+Irssi::settings_add_str("greeter", "afternoon_message", "good afternoon");
+Irssi::settings_add_str("greeter", "morning_message", "good morning");
+Irssi::settings_add_str("greeter", "night_message", "good night");
diff --git a/scripts/hide.pl b/scripts/hide.pl
new file mode 100644
index 0000000..9697df1
--- /dev/null
+++ b/scripts/hide.pl
@@ -0,0 +1,177 @@
+use strict;
+use vars  qw ($VERSION %IRSSI);
+use Irssi qw (settings_add_str settings_get_str settings_set_str command_bind command_runsub signal_emit );
+
+$VERSION = '0.0.7';
+%IRSSI = (
+    authors     => 'Marcus Rueckert',
+    contact     => 'darix@irssi.de',
+    name        => 'hide tools',
+    description => 'a little interface to irssi\'s activity_hide_* settings',
+    license     => 'Public Domain',
+    url         => 'http://scripts.irssi.de/',
+    changed     => '2002-07-21 06:53:21+0200'
+);
+
+
+#
+# functions
+#
+
+sub add_item {
+    my ($target_type, $data) = @_;
+    my $target = target_check ($target_type);
+    return 0 unless $target;
+    if ($data =~ /^\s*$/ ) {
+        print (CRAP "\cBNo target specified!\cB");
+        print (CRAP "\cBUsage:\cB hide $target_type add [$target_type]+");
+    }
+    else {
+        my $set = settings_get_str($target);
+        for my $item ( split (/\s+/, $data) ) {
+            if ($set =~ m/^\Q$item\E$/i) {
+                print (CRAP "\cBWarning:\cB $item is already in in $target_type hide list.")
+            }
+            else {
+                print (CRAP "$item added to $target_type hide list.");
+                $set = join (' ', $set, $item);
+            }
+        };
+        settings_set_str ($target, $set);
+        signal_emit('setup changed');
+    }
+    return 1;
+}
+
+sub remove_item {
+    my ($target_type, $data) = @_;
+    my $target = target_check ($target_type);
+    if ( not ( $target )) { return 0 };
+    if ($data =~ /^\s*$/ ) {
+        print (CRAP "\cBNo target specified!\cB");
+        print (CRAP "\cBUsage:\cB hide $target_type remove [$target_type]+");
+    }
+    else {
+        my $set = settings_get_str($target);
+        for my $item ( split (/\s+/, $data) ) {
+            if ($set =~ s/$item//i) {
+                print (CRAP "$item removed from $target_type hide list.")
+            }
+            else {
+                print (CRAP "\cBWarning:\cB $item was not in $target_type hide list.")
+            }
+        };
+        settings_set_str ($target, $set);
+        signal_emit('setup changed');
+    }
+    return 1;
+}
+
+sub target_check {
+    my ($target_type) = @_;
+    my $target = '';
+    if ($target_type eq 'level') {
+        $target = 'activity_hide_level';
+    }
+    elsif ($target_type eq 'target') {
+        $target = 'activity_hide_targets';
+    }
+    else {
+        print (CLIENTERROR "\cBadd_item: no such target_type $target_type\cB");
+    }
+    return $target;
+}
+
+sub print_usage {
+    print (CRAP "\cBUsage:\cB");
+    print (CRAP "  hide target [add|remove] [targets]+");
+    print (CRAP "  hide level [add|remove] [levels]+");
+    print (CRAP "  hide usage");
+    print (CRAP "  hide print");
+    print (CRAP "See also: levels");
+};
+
+sub print_items {
+    my ($target_type) = @_;
+    my $delimiter = settings_get_str('hide_print_delimiter');
+    my $target = target_check ($target_type);
+    if ( not ( $target )) { return 0 };
+    print ( CRAP "\cB$target_type hide list:\cB$delimiter", join ( $delimiter, sort ( split ( " ", settings_get_str($target) ) ) ) );
+    return 1;
+}
+
+#
+# targets
+#
+
+command_bind 'hide target' => sub {
+    my ($data, $server, $item) = @_;
+    if ($data =~ m/^[(add)|(remove)]/i ) {
+        command_runsub ('hide target', $data, $server, $item);
+    }
+    else {
+        print (CRAP "\cBUsage:\cB hide target [add|remove] [targets]+");
+    }
+};
+
+command_bind 'hide target add' => sub {
+    my ($data, $server, $item) = @_;
+    add_item ('target', $data);
+};
+
+command_bind 'hide target remove' => sub {
+    my ($data, $server, $item) = @_;
+    remove_item ('target', $data);
+};
+
+#
+# levels
+#
+command_bind 'hide level' => sub {
+    my ($data, $server, $item) = @_;
+    if ($data =~ m/^[(add)|(remove)]/i ) {
+        command_runsub ('hide level', $data, $server, $item);
+    }
+    else {
+        print (CRAP "\cBUsage:\cB hide level [add|remove] [levels]+");
+        print (CRAP "See also: levels");
+    }
+};
+
+command_bind 'hide level add' => sub {
+    my ($data, $server, $item) = @_;
+    add_item ('level', $data);
+};
+
+command_bind 'hide level remove' => sub {
+    my ($data, $server, $item) = @_;
+    remove_item ('level', $data);
+};
+
+#
+# general
+#
+
+command_bind 'hide' => sub {
+    my ($data, $server, $item) = @_;
+    if ($data =~ m/^[(target)|(level)|(help)|(usage)|(print)]/i ) {
+        command_runsub ('hide', $data, $server, $item);
+    }
+    else {
+        print_usage();
+    }
+};
+
+command_bind 'hide print' => sub {
+    print_items ('level');
+    print_items ('target');
+};
+
+command_bind  'hide usage' => sub {  print_usage (); };
+command_bind  'hide help' => sub {  print_usage (); };
+
+#
+# settings
+#
+
+settings_add_str ( 'script', 'hide_print_delimiter',  "\n - ");
diff --git a/scripts/hideauth.pl b/scripts/hideauth.pl
new file mode 100644
index 0000000..8e8a60f
--- /dev/null
+++ b/scripts/hideauth.pl
@@ -0,0 +1,63 @@
+# hideauth.pl
+#
+# Stops eggdrop passwords from showing up in e.g. /msg botnick op password [#channel]
+#
+# Settings:
+#		hideauth_commands: space-delimited case-insensitive list of eggdrop commands to filter (e.g. "op voice ident") (can be regexps)
+#		hideauth_botsonly: if 1/ON, only hideauth for nicks in the bots list (because "op" is common Dutch word :)
+#		hideauth_bots: space-delimited case-insensitive list of botnicks (can be regexps) (e.g. "notopic monicaoff")
+#
+#		You can also change the "bot_command" format item:
+#			$0 = command (op, ident, etc)
+#			$1 = (optional) channel (from "op password #channel")
+#			$2 = nick command is sent to
+#			My default format is (in case you break it): 'eggdrop command {reason $0 %K****%n$1} sent to {channick_hilight $2}'
+#
+# Thanks to Joost "Garion" Vunderink for advice and testing ^_^
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(signal_add_first settings_get_str settings_get_bool settings_add_str settings_add_bool signal_stop theme_register);
+
+$VERSION = '1.01';
+%IRSSI = (
+    authors	=> 'JamesOff',
+    contact	=> 'james@jamesoff.net',
+    name	=> 'hideauth',
+    description	=> 'Stops eggdrop passwords showing up',
+    license	=> 'Public Domain',
+    url		=> 'http://www.jamesoff.net',
+    changed	=> '04 June 2002 20:56:00',
+);
+
+theme_register([
+  'bot_command', 'eggdrop command {reason $0 %K****%n$1} sent to {channick_hilight $2}'
+]);
+
+
+sub intercept_message {
+	my ($server, $message, $target, $orig_target) = @_;
+	my $commands = settings_get_str('hideauth_commands');
+	my $botsOnly = settings_get_bool('hideauth_botsonly');
+	my $bots = settings_get_str('hideauth_bots');
+	$bots =~ tr/ /|/;
+
+	#check for bots only and compare target nick
+	return if (($botsOnly == 1) && ($target !~ /($bots)/i));
+
+	#check the first word to see if it's a command
+	$commands =~ tr/ /|/;
+	if ($message =~ /^($commands) \w+( .+)?/i) {
+		#it's a match, it's handle it :)
+		my ($command, $dest) = ($1, $2);
+		$server->printformat($target, MSGLEVEL_CRAP, 'bot_command', $command, $dest, $target);
+		signal_stop();
+	}	
+}
+
+signal_add_first('message own_private', 'intercept_message');
+settings_add_str('misc','hideauth_commands','op voice auth ident pass newpass rehash');
+settings_add_bool('misc','hideauth_botsonly',0);
+settings_add_str('misc','hideauth_bots','');
diff --git a/scripts/highlite.pl b/scripts/highlite.pl
new file mode 100644
index 0000000..515d0dd
--- /dev/null
+++ b/scripts/highlite.pl
@@ -0,0 +1,113 @@
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+	"authors"       => "Mantis",
+	"contact"       => "mantis\@inta-link.com",
+	"name"          => "highlite",
+	"description"   => "shows events happening in all channels you are in that may concern you",
+	"url"           => "http://www.inta-link.com/",
+	"license"       => "GNU GPL v2",
+	"changed"       => "2003-01-03"
+);
+
+sub msg_join
+{
+  my ($server, $channame, $nick, $host) = @_;
+  $channame =~ s/^://;
+
+  my $windowname = Irssi::window_find_name('highlite');
+  $windowname->print("%B%0JOIN : " . $nick . " : " . $channame . " : " . $host, MSGLEVEL_CLIENTCRAP) if ($windowname);
+}
+
+sub msg_part
+{
+  my ($server, $channame, $nick, $host) = @_;
+  $channame =~ s/^://;
+
+  my $windowname = Irssi::window_find_name('highlite');
+  $windowname->print("%b%0PART : " . $nick . " : " . $channame . " : " . $host, MSGLEVEL_CLIENTCRAP) if ($windowname);
+}
+
+sub msg_quit
+{
+  my ($server, $nick, $host, $quitmsg) = @_;
+
+  if (substr($quitmsg, 0, 14) eq "Read error to ")
+  {
+    $quitmsg = "[ General Read Error ]";
+  }
+  if (substr($quitmsg, 0, 17) eq "Ping timeout for ")
+  {
+    $quitmsg = "[ General Ping Timeout Error ]";
+  }
+
+  my $windowname = Irssi::window_find_name('highlite');
+  $windowname->print("%R%0QUIT : " . $nick . " : " . $host . " : " . $quitmsg, MSGLEVEL_CLIENTCRAP) if ($windowname);
+
+  $quitmsg = "";
+}
+
+sub msg_topic
+{
+  my ($server, $channame, $topicmsg, $nick, $host) = @_;
+  $channame =~ s/^://;
+
+  my $windowname = Irssi::window_find_name('highlite');
+  $windowname->print("%G%0TOPIC : " . $nick . " : " . $channame . " : " . $topicmsg, MSGLEVEL_CLIENTCRAP) if ($windowname);
+}
+
+sub msg_nick
+{
+  my ($server, $nick, $old_nick, $host) = @_;
+
+  my $windowname = Irssi::window_find_name('highlite');
+  $windowname->print("%m%0NICK : " . $old_nick . " : " . $nick . " : " . $host, MSGLEVEL_CLIENTCRAP) if ($windowname);
+}
+
+sub msg_kick
+{
+  my ($server, $channame, $kicked, $nick, $host, $reason) = @_;
+  $channame =~ s/^://;
+
+  my $windowname = Irssi::window_find_name('highlite');
+  $windowname->print("%Y%0KICK : " . $kicked . " : " . $channame . " : " . $nick . " : " . $reason, MSGLEVEL_CLIENTCRAP) if ($windowname);
+}
+
+sub sig_printtext {
+  my ($dest, $text, $stripped) = @_;
+
+  if (($dest->{level} & (MSGLEVEL_HILIGHT|MSGLEVEL_MSGS)) && ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0)
+  {
+    if ($dest->{level} & MSGLEVEL_PUBLIC)
+    {
+      my $windowname = Irssi::window_find_name('highlite');
+
+      $windowname->print("%W%0HIGHLITE : " . $dest->{target} . " : " . $text, MSGLEVEL_CLIENTCRAP) if ($windowname);
+    }
+  }
+}
+
+my $windowname = Irssi::window_find_name('highlite');
+if (!$windowname)
+{
+  Irssi::command("window new hidden");
+  Irssi::command("window name highlite");
+}
+
+Irssi::signal_add(
+{
+  'message join' => \&msg_join,
+  'message part' => \&msg_part,
+  'message quit' => \&msg_quit,
+  'message topic' => \&msg_topic,
+  'print text', 'sig_printtext',
+  'message nick' => \&msg_nick,
+  'message kick' => \&msg_kick
+}
+);
+
diff --git a/scripts/hignore.pl b/scripts/hignore.pl
new file mode 100644
index 0000000..ffa375c
--- /dev/null
+++ b/scripts/hignore.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.02";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'hignore.pl',
+    description => 'This script will add the HIGNORE command, if you use this command in a query it will ignore the host.',
+    license     => 'Public Domain',
+    url         => 'http://irssi.hauwaerts.be/hignore.pl',
+    changed     => 'Wed Sep 17 23:51:38 CEST 2003',
+);
+
+## Comments and remarks.
+#
+# A little tip for this script.
+#
+#    Tip:     This script if verry usefull if you bind this to an F-key. For example if you get flooded
+#             (by the little bastard dj_poison on Undernet) you'll just need to press F1 and it will 
+#             ignore the hostmask and close the query.
+#    Command: /BIND meta2-P key F1
+#             /BIND F1 command eval hignore ; unquery
+#
+##
+
+Irssi::theme_register([
+    'loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
+    'no_query', '%R>>%n %_HIGNORE:%_ The specified window isn\'t a query.',
+    'no_host', '%R>>%n %_HIGNORE:%_ The specified query doesn\'t contain host information.'
+]);
+
+sub hignore {
+
+    my $wintype = Irssi::active_win->{active}->{type};
+    my $winaddr = Irssi::active_win->{active}->{address};
+
+    if ($wintype ne "QUERY") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'no_query');
+    } else {
+        if ($winaddr =~ /\b~?(.{1,10})@([a-zA-Z0-9_.-]+)\b/) {
+            my ($user, $host) = ($1, $2);
+            
+            Irssi::command("IGNORE *!*\@$host");
+        
+        } else {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'no_host');
+        }
+    }
+}
+
+Irssi::command_bind('hignore', 'hignore');
+
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/hilightwin.pl b/scripts/hilightwin.pl
new file mode 100644
index 0000000..f7af8a7
--- /dev/null
+++ b/scripts/hilightwin.pl
@@ -0,0 +1,57 @@
+#
+# Print hilighted messages & private messages to window named "hilight" for
+# irssi 0.7.99 by Timo Sirainen
+#
+# Modded a tiny bit by znx to stop private messages entering the hilighted
+# window (can be toggled) and to put up a timestamp.
+#
+
+use Irssi;
+use POSIX;
+use vars qw($VERSION %IRSSI); 
+
+$VERSION = "0.02";
+%IRSSI = (
+    authors     => "Timo \'cras\' Sirainen, Mark \'znx\' Sangster",
+    contact     => "tss\@iki.fi, znxster\@gmail.com", 
+    name        => "hilightwin",
+    description => "Print hilighted messages to window named \"hilight\"",
+    license     => "Public Domain",
+    url         => "http://irssi.org/",
+    changed     => "Sun May 25 18:59:57 BST 2008"
+);
+
+sub sig_printtext {
+    my ($dest, $text, $stripped) = @_;
+
+    my $opt = MSGLEVEL_HILIGHT;
+
+    if(Irssi::settings_get_bool('hilightwin_showprivmsg')) {
+        $opt = MSGLEVEL_HILIGHT|MSGLEVEL_MSGS;
+    }
+    
+    if(
+        ($dest->{level} & ($opt)) &&
+        ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0
+    ) {
+        $window = Irssi::window_find_name('hilight');
+        
+        if ($dest->{level} & MSGLEVEL_PUBLIC) {
+            $text = $dest->{target}.": ".$text;
+        }
+        $text = strftime(
+            Irssi::settings_get_str('timestamp_format')." ",
+            localtime
+        ).$text;
+        $window->print($text, MSGLEVEL_NEVER) if ($window);
+    }
+}
+
+$window = Irssi::window_find_name('hilight');
+Irssi::print("Create a window named 'hilight'") if (!$window);
+
+Irssi::settings_add_bool('hilightwin','hilightwin_showprivmsg',1);
+
+Irssi::signal_add('print text', 'sig_printtext');
+
+# vim:set ts=4 sw=4 et:
diff --git a/scripts/hipchat_complete.pl b/scripts/hipchat_complete.pl
new file mode 100644
index 0000000..a8711c6
--- /dev/null
+++ b/scripts/hipchat_complete.pl
@@ -0,0 +1,142 @@
+# hipchat_complete.pl - (c) 2013 John Morrissey <jwm@horde.net>
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+#    * Redistributions of source code must retain the above copyright
+#      notice, this list of conditions and the following disclaimer.
+#    * Redistributions in binary form must reproduce the above copyright
+#      notice, this list of conditions and the following disclaimer in the
+#      documentation and/or other materials provided with the distribution.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+# About
+# =====
+#
+# Adds Hipchat tab completion support.
+# 
+# By default, Hipchat's XMPP interface sets user nicks to their full names,
+# not their "mention names," so you always have to recall and manually type
+# a user's mention name so Hipchat highlights the message, sends them e-mail
+# if they're away, etc.
+#
+# This plugin tab-completes mention names and tab-translates name-based
+# nicks to their corresponding "mention names."
+#
+# For example, if JohnMorrissey has a mention name of @jwm, all of these
+# tab complete to @jwm:
+#
+#   John<tab>
+#   @John<tab>
+#   @jw<tab>
+#
+#
+# To use
+# ======
+#
+# 1. Install the HTTP::Message, JSON, and LWP Perl modules.
+#
+# 2. /script load hipchat_completion.pl
+#
+# 3. Get a Hipchat auth token (hipchat.com -> Account settings -> API
+#    access). In irssi:
+#
+#    /set hipchat_auth_token some-hex-value
+#
+# 4. If your Hipchat server isn't in the "bitlbee" chatnet (the 'chatnet'
+#    parameter in your irssi server list for the IRC server you use to
+#    connect to Hipchat), specify the name of the chatnet:
+#
+#    /set hipchat_chatnet some-chatnet-name
+
+use strict;
+
+use HTTP::Request;
+use Irssi;
+use JSON;
+use LWP::UserAgent;
+
+my $VERSION = '1.0';
+my %IRSSI = (
+	author => 'John Morrissey',
+	contact => 'jwm@horde.net',
+	name => 'hipchat_complete',
+	description => 'Translate nicks to HipChat "mention names"',
+	licence => 'BSD',
+);
+
+my %NICK_TO_MENTION;
+my $LAST_MAP_UPDATED = 0;
+
+sub get_hipchat_people {
+	my $ua = LWP::UserAgent->new;
+	$ua->timeout(5);
+
+	my $auth_token = Irssi::settings_get_str('hipchat_auth_token');
+	if (!$auth_token) {
+		return;
+	}
+	my $r = HTTP::Request->new('GET',
+		"https://api.hipchat.com/v1/users/list?auth_token=$auth_token");
+	my $response = $ua->request($r);
+
+	my $hipchat_users = from_json($response->decoded_content)->{users};
+	foreach my $user (@{$hipchat_users}) {
+		my $name = $user->{name};
+		$name =~ s/[^A-Za-z]//g;
+		$NICK_TO_MENTION{$name} = $user->{mention_name};
+	}
+	$LAST_MAP_UPDATED = time();
+}
+
+sub sig_complete_hipchat_nick {
+	my ($complist, $window, $word, $linestart, $want_space) = @_;
+
+	my $wi = Irssi::active_win()->{active};
+	return unless ref $wi and $wi->{type} eq 'CHANNEL';
+	return unless $wi->{server}->{chatnet} eq
+		Irssi::settings_get_str('hipchat_chatnet');
+
+	# Reload the nick -> mention name map periodically,
+	# so we pick up new users.
+	if (($LAST_MAP_UPDATED + 4 * 60 * 60) < time()) {
+		get_hipchat_people();
+	}
+
+	if ($word =~ /^@/) {
+		$word =~ s/^@//;
+	}
+	foreach my $nick ($wi->nicks()) {
+		if ($nick->{nick} =~ /^\Q$word\E/i) {
+			push(@$complist, "\@$NICK_TO_MENTION{$nick->{nick}}");
+		}
+	}
+	foreach my $mention (values %NICK_TO_MENTION) {
+		if ($mention =~ /^\Q$word\E/i) {
+			push(@$complist, "\@$mention");
+		}
+	}
+
+	# If there's a mention name completion that begins with $word,
+	# prefer that over a channel nick/fullname.
+	@$complist = sort {
+		return $a =~ /^\@\Q$word\E(.*)$/i ? 0 : 1;
+	} @$complist;
+}
+
+Irssi::settings_add_str('hipchat_complete', 'hipchat_auth_token', '');
+Irssi::settings_add_str('hipchat_complete', 'hipchat_chatnet', 'bitlbee');
+get_hipchat_people();
+Irssi::signal_add('complete word', \&sig_complete_hipchat_nick);
diff --git a/scripts/history_search.pl b/scripts/history_search.pl
new file mode 100644
index 0000000..9a2c066
--- /dev/null
+++ b/scripts/history_search.pl
@@ -0,0 +1,147 @@
+# Search within your typed history as you type (like ctrl-R in bash)
+# Usage:
+# * First do: /bind ^R /history_search
+# * Then type ctrl-R and type what you're searching for
+# * Optionally, you can bind something to "/history_search -forward" to go forward in the results
+
+# Copyright 2007-2009  Wouter Coekaerts <coekie@irssi.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+use strict;
+use Irssi 20070804;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2.0';
+%IRSSI = (
+    authors     => 'Wouter Coekaerts',
+    contact     => 'coekie@irssi.org',
+    name        => 'history_search',
+    description => 'Search within your typed history as you type (like ctrl-R in bash)',
+    license     => 'GPLv2 or later',
+    url         => 'http://wouter.coekaerts.be/irssi/',
+    changed     => '17/01/09'
+);
+
+# is the searching enabled?
+my $enabled = 0;
+# the typed text (the query) last time a key was pressed
+my $prev_typed;
+# the position in the input of where the typed text started.
+# everything before it is not typed by the user but added by this script as part of the result
+my $prev_startpos;
+# the current list of matches
+my @matches;
+# at what place are we in @matches?
+my $current_match_index;
+
+Irssi::command_bind('history_search', sub {
+	my ($data, $server, $item) = @_;
+	if ($data !~ /^ *(-forward)? *$/) {
+		Irssi::print("history_search: Unknown arguments: $data");
+		return;
+	}
+	my $forward = $1 eq '-forward';
+	
+	if (! $enabled) {
+		$enabled = 1;
+		$prev_typed = '';
+		$prev_startpos = 0;
+		@matches = ();
+		$current_match_index = -1;
+	} else {
+		if ($forward) {
+			if ($current_match_index + 1 < scalar(@matches)) {
+				$current_match_index++;
+			}
+		} else { # backwards
+			if ($current_match_index > 0) {
+				$current_match_index--;
+			}
+		}
+	}
+});
+
+Irssi::signal_add_last 'gui key pressed' => sub {
+	my ($key) = @_;
+	
+	if ($key == 10 || $key == 27) { # enter or escape
+		$enabled = 0;
+	}
+
+	return unless $enabled;
+	
+	# get the content of the input line
+	my $prompt = Irssi::parse_special('$L');
+	my $pos = Irssi::gui_input_get_pos();
+	
+	# stop if the cursor is before the position where the typing started (e.g. if user pressed backspace more than he typed characters)
+	if ($pos < $prev_startpos) {
+		$enabled = 0;
+		return;
+	}
+	
+	# get the part of the input line that the user typed (strip the part before and after which this script added)
+	my $typed = substr($prompt, $prev_startpos, ($pos-$prev_startpos));
+	
+	if ($typed ne $prev_typed) { # something changed
+		# find matches
+		find_matches($typed);
+		
+		# start searching from the end again
+		$current_match_index = scalar(@matches) - 1;
+	}
+	
+	# if nothing was found, just show what the user typed
+	# else, show the current match
+	my $result = ($current_match_index == -1) ? $typed : $matches[$current_match_index];
+		
+	# update the input line
+	my $startpos = index(lc($result), lc($typed));
+	Irssi::gui_input_set($result);
+	Irssi::gui_input_set_pos($startpos + length($typed));
+
+	# remember for next time
+	$prev_typed = $typed;
+	$prev_startpos = $startpos;
+};
+
+# find matches for the given user-typed text, and put it in @matches
+sub find_matches($) {
+	my ($typed) = @_;
+	if (Irssi::version() > 20090117) {
+		$typed = lc($typed);
+		my @history;
+		if ($prev_typed ne '' && index($typed, lc($prev_typed)) != -1) { # previous typed plus more
+			@history = @matches; # only search in previous results
+		} else {
+			@history = Irssi::active_win->get_history_lines();
+		}
+		@matches = ();
+		for my $history_line (@history) {
+			my $startpos = index(lc($history_line), $typed);
+			if ($startpos != -1) {
+				push @matches, $history_line;
+			}
+		}
+	} else { # older irssi version, can only get the last match
+		@matches = ();
+		my $last_match = Irssi::parse_special('$!' . $typed . '!');
+		if ($last_match ne '') {
+			push @matches, $last_match;
+		}
+	}
+}
diff --git a/scripts/hitcount.pl b/scripts/hitcount.pl
new file mode 100644
index 0000000..3af36e1
--- /dev/null
+++ b/scripts/hitcount.pl
@@ -0,0 +1,155 @@
+# $Id: hitcount.pl,v 1.3.2.2 2002/03/05 18:19:28 shrike Exp shrike $
+
+use vars qw($VERSION %IRSSI);
+my @rev = split(/ /, "$Revision: 1.3.2.2 $n");
+$VERSION = "1.3";
+%IRSSI = (
+	    authors     => 'Riku "Shrike" Lindblad',
+	    contact     => 'shrike\@addiktit.net, Shrike on IRCNet/QNet/EFNet/DALNet',
+	    name        => 'hitcount',
+	    description => 'Add a apache page hitcounter to statusbar',
+	    license     => 'Free',
+	    changed     => '$Date: 2002/03/05 18:19:28 $ ',
+	  );
+
+# Changelog:
+#
+# $Log: hitcount.pl,v $
+# Revision 1.3.2.2  2002/03/05 18:19:28  shrike
+# Added use vars qw($VERSION %IRSSI);
+#
+# Revision 1.3.2.1  2002/03/05 18:04:01  shrike
+# Damnit, left default refresh to a debug value...
+#
+# Revision 1.3.1.1  2002/03/05 17:59:47  shrike
+# Forgot to turn off debugging...
+#
+# Revision 1.3  2002/03/05 17:57:04  shrike
+# Added use strict
+# .. which finally cleared up last of the bugs from the code (hopefully)
+# Next on TODO: get the item colors from theme and more configuration options.
+#
+# Revision 1.2  2002/03/05 17:27:15  shrike
+# Added standard script headers (http://juerd.nl/irssi/headers.html)
+# Removed call to Irssi::statusbars_recreate_items();
+# And a bit of polishing here and there..
+# The first two updates bug, need to fix that.
+#
+
+#  To install, you also need to put 
+#  hitcount = { };
+#  into your statusbar code in irssi config
+#
+# sets:
+#  /SET hitcount_regexp - A regexp that identifies your homepage
+#  /SET hitcount_refresh - Refresh rate
+#  /SET hitcount_access_log - webserver access log
+
+# TODO:
+# Add ignore regexp, to prevent f.ex. css-files from increasing counter
+
+use Irssi::TextUI;
+use strict;
+
+# Debug level - higher levels print out more crap
+my $debug_level = 0;
+# current hitcount
+my ($total_hitcount, $my_hitcount) = (0);
+# change prefixes
+my ($my_prefix, $total_prefix) = ("");
+# change from last update
+my ($my_change, $total_change) = (0);
+# hitcount on last update
+my ($last_total_hitcount, $last_my_hitcount, $last_refresh) = (0);
+# set default variables
+my ($filename, $regexp, $refresh) = ("/var/log/apache/access.log", "/", 60);
+
+sub get_hitcount {
+    my $filename = Irssi::settings_get_str('hitcount_access_log');
+    my $regexp = Irssi::settings_get_str('hitcount_regexp');
+    
+    Irssi::print("Finding match for \"".my $regexp."\"", MSGLEVEL_CLIENTERROR) if($debug_level > 2);
+    
+    ($total_hitcount, $my_hitcount) = (0);
+    
+    # Go through the access log and count matches to the given regexp
+    if(open STUFF, "$filename")
+    {
+   	while (<STUFF>) 
+	{
+	    $total_hitcount++;
+	    if(/$regexp/ois)
+	    {
+		# DEBUG
+		Irssi::print("Matched $_", MSGLEVEL_CLIENTERROR) if($debug_level > 3);
+		$my_hitcount++;
+	    }
+	}
+	close STUFF;
+    }
+    else
+    {
+	Irssi::print("Failed to open <$filename: $!", MSGLEVEL_CLIENTERROR);
+    }
+    return($my_hitcount,$total_hitcount);
+}
+
+sub hitcount {
+    my ($item, $get_size_only) = @_;
+    
+    # DEBUG
+    Irssi::print("$get_size_only | $last_my_hitcount/$last_total_hitcount | $my_hitcount/$total_hitcount | $my_prefix$my_change $total_prefix$total_change", MSGLEVEL_CLIENTERROR) if($debug_level > 0);
+    
+    my ($my_hitcount, $my_total_hitcount) = get_hitcount();
+    
+    if($my_hitcount eq '') { $my_hitcount = 0; }
+    
+    # Calculate change since last update
+    $my_change = $my_hitcount - $last_my_hitcount;
+    $total_change = $total_hitcount - $last_total_hitcount;
+    
+    # Get correct prefix for change
+    $my_prefix = "+" if($my_change > 0);
+    $my_prefix = "-" if($my_change < 0);
+    $my_prefix = ""  if($my_change == 0);
+    $total_prefix = "+" if($total_change > 0);
+    $total_prefix = "-" if($total_change < 0);
+    $total_prefix = "" if($total_change == 0);
+    
+    $item->default_handler($get_size_only, undef, "$last_my_hitcount $last_total_hitcount $my_prefix$my_change $total_prefix$total_change", 1);
+    
+    # last hitcount = current hitcount
+    $last_my_hitcount = $my_hitcount;
+    $last_total_hitcount = $total_hitcount;
+    
+    # reset hitcounts
+    $my_hitcount = 0;
+    $total_hitcount = 0;
+    $my_total_hitcount = 0;
+}
+
+sub refresh_hitcount {
+    get_hitcount();
+    Irssi::statusbar_items_redraw('hitcount');
+}
+
+sub read_settings {
+    my $time = Irssi::settings_get_int('hitcount_refresh');
+    return if ($time == $last_refresh);
+
+    $last_refresh = $time;
+    Irssi::timeout_remove(my $refresh_tag) if (my $refresh_tag);
+    $refresh_tag = Irssi::timeout_add($time*1000, 'refresh_hitcount', undef);
+}
+
+# default values
+Irssi::settings_add_str('misc', 'hitcount_regexp', $regexp);
+Irssi::settings_add_int('misc', 'hitcount_refresh', $refresh);
+Irssi::settings_add_str('misc', 'hitcount_access_log', $filename);
+# sub to call, string on statusbar, func on statusbar
+Irssi::statusbar_item_register('hitcount', '{sb Hits: $0%K/%N$1 $2%K/%N$3}', 'hitcount');
+
+read_settings();
+Irssi::signal_add('setup changed', 'read_settings');
+
+Irssi::print("Hitcounter version ".$rev[1]." loaded");
diff --git a/scripts/hl.pl b/scripts/hl.pl
new file mode 100644
index 0000000..3c28cd9
--- /dev/null
+++ b/scripts/hl.pl
@@ -0,0 +1,54 @@
+# CopyLeft Riku Voipio 2001
+# half-life bot script
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+# header begins here
+
+$VERSION = "1.2";
+%IRSSI = (
+        authors     => "Riku Voipio",
+        contact     => "riku.voipio\@iki.fi",
+        name        => "half-life",
+        description => "responds to \"!hl counterstrike.server \" command on channels/msg's to query counter-strike servers",
+        license     => "GPLv2",
+        url         => "http://nchip.ukkosenjyly.mine.nu/irssiscripts/",
+    );
+
+
+$qdir="/home/nchip/qstat/";
+
+sub cmd_hl {
+        my ($server, $data, $nick, $mask, $target) =@_;
+	if ($data=~/^!hl/){
+		@foo=split(/\s+/,$data);
+		$len=@foo;
+		if ($len==1){
+		    $foo[1]="turpasauna.taikatech.com";
+		}
+		#fixme, haxxor protection
+		$word=$foo[1];
+		$_=$word;
+		$word=~s/[^a-zA-ZäöÄÖ0-9\.]/ /g;
+		open(DAT, "$qdir"."qstat -hls ".$word."|");
+		$count=0;
+		foreach $line (<DAT>)
+		{
+			if ($count==1)
+			{
+				$_=$line;
+				$line=~s/\s+/ /g;
+				#print($line);
+				$server->command("/notice ".$target." ".$line);
+			}
+			$count++;
+		}
+		close(DAT);
+	}
+}
+
+Irssi::signal_add_last('message public', 'cmd_hl');
+Irssi::print("Half-life info bot by nchip loaded.");
+
+
diff --git a/scripts/hlbot.pl b/scripts/hlbot.pl
new file mode 100644
index 0000000..a51e34c
--- /dev/null
+++ b/scripts/hlbot.pl
@@ -0,0 +1,217 @@
+###########################################################################
+#
+# CopyLeft Veli Mankinen 2002
+# HL-log/rcon bot irssi script.
+#
+#####################
+#
+# USAGE:
+#
+# 1. copy the script to ~/.irssi/scripts/
+# 2. Edit the variables below.
+# 3. load the script: /script load hlbot
+# 4. Join to the channel you want this script to work on.
+# 5. Make sure all the users have ops in the channel (security reasons)
+# 6. say in channel: .rcon logadress <ip> <port>
+#    Where ip is the ip of the machine where this script is running and
+#    the port is the $listen_port you have set below
+# 7. say in channel: .rcon log on
+# 
+# The script should now start flooding the channel about things hapening in
+# the channel. Ofcourse you can and I think you should add those
+# log -commands to your hl server.cfg.
+#
+# You can turn the flooding of by saying: ".log off" and turn it back on
+# with: ".log off". ".status" tells you whether the log is on or off.
+# Please note that the logfile is allways on. If you don't want to gather
+# the log in a file then you should put "/dev/null" to the $logfile below.
+# 
+#
+# NOTE: There probably are few stupid things in this script and that is
+#       just because I don't have a clue about making irssi script.
+#
+##
+
+
+use Socket;
+use Sys::Hostname;
+use IO::Handle;
+
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+##########################[ USER VARIABLES ]########################### 
+
+my $listen_port  = 10001;              # Port to listen to
+my $logfile      = "logi";             # Logfile
+
+my $hlserver     = "123.123.123.123";  # Ip of your half life server
+my $hlport       = "28000";            # Port of your half life server
+my $rcon_pass    = "password";         # Rcon password of your half life server
+
+my $channel      = "#mychan";          # Channel where you want this to work
+
+#######################################################################
+##############[ YOU DON'T NEED TO TOUCH BELOW THIS LINE ]##############
+#######################################################################
+
+$VERSION = "1.0";
+%IRSSI = (
+	authors => "Veli Mankinen",
+	contact => "veli\@piipiip.net",
+	name => "HL-log/rcon -bot",
+	description => "Floods the channel about things that are hapening in your hl -server. Also enables you to send rcon commands to the server from channel.",
+	license => "GPLv2",
+	url => "http://piipiip.net/",
+);
+
+#####################
+
+my $serv_iaddr = inet_aton($hlserver)    || die "unknown host: $hlserver\n";
+my $serv_paddr = sockaddr_in($hlport, $serv_iaddr); 
+my $challenge = "";
+my $rcon_msg = "";
+my $log_on = 1;
+
+#####################
+
+sub run_bot {	
+	my $server = Irssi::active_server();
+	
+	($hispaddr = recv(S, $msg, 1000, 0)) or print "$!\n";
+	($port, $hisiaddr) = sockaddr_in($hispaddr);
+	$host = inet_ntoa($hisiaddr); 
+
+	$msg =~ s/\n.$//s;
+	$msg =~ s/\n..$//s;
+	
+	print LOG "$host : $msg\n";
+
+	# Received logline
+	if ($msg =~ s/^ÿÿÿÿlog L \d\d\/\d\d\/\d{4} - \d\d:\d\d:\d\d: //) {
+		# We don't want to see these
+		if ($log_on eq 0 ||
+			$msg =~ /^Server cvar/ || 
+			$msg =~ /^\[META\]/ ||
+			$msg =~ /^Log file/ || 
+			$msg =~ /^\[ADMIN\]/) 
+			{ return; }
+		
+		# FORMAT THE LINE
+		# Don't show the rcon password.
+		$msg =~ s/^(Rcon: "rcon \d* )[^ ]*( .*)/$1*****$2/;
+		
+		# Print the logline
+		if ($msg =~ /^"/) {
+			$server->command("/action $channel $msg");
+		} else {
+			$server->send_raw("PRIVMSG $channel :*log* $msg");
+		}
+	} 
+
+	# Received challenge rcon reply..
+	elsif ($msg =~ /^ÿÿÿÿchallenge rcon (\d+)$/ && $rcon_msg) {
+		$challenge = $1;
+		$data = "ÿÿÿÿrcon $challenge $rcon_pass $rcon_msg";
+		defined(send(S, $data, 0, $serv_paddr)) or
+			$server->command("/notice $channel Error sending rcon: $!");
+	}
+
+	# Received rcon reply
+	elsif ($msg =~ s/ÿÿÿÿl//) {
+		# Some rcon replies have this annoying log entry in the beginning.
+		$msg =~ s/L \d\d\/\d\d\/\d{4} - \d\d:\d\d:\d\d: //g;
+		
+		# FORMAT THE LINE
+		
+		# Multiline rcon responses
+		if ($msg =~ /\n/s) {
+			@rows = split /\n/, $msg;
+			foreach $row (@rows) {
+				# We don't want to see these
+				if ($row =~ /^[\t \n]*$/ ||
+					$row =~ /^[ADMIN] Load/ ||
+					$row =~ /^[ADMIN] WARNING/ ||
+					$row =~ /^[ADMIN] Plugins loaded/) 
+					{ next; }
+
+				$server->command("/notice $channel $row");
+			}
+			
+		# Single line rcon responses
+		} else {
+			$server->command("/notice $channel $msg");
+		}
+	}
+	
+}
+
+############################
+
+sub msg_command {
+	my ($server, $data, $nick, $mask, $target) = @_;
+	
+	# Is this the right channel?
+	unless ($target =~ /$channel/i) { return; }
+	
+	# Does the user have ops?
+	my $CHAN = $server->channel_find($channel);
+	my $NICK = $CHAN->nick_find($nick);
+	if (! $NICK->{op}) { return; }
+		
+	# Rcon command.
+	if ($data =~ /^\.rcon (.+)/) {
+		$rcon_msg = $1;
+		
+        defined(send(S, "ÿÿÿÿchallenge rcon", 0, $serv_paddr)) or
+			$server->command("/notice $channel Error asking challenge: $!");
+	} 
+
+	# log on
+	elsif ($data =~ /^\.log on$/) {
+		$log_on = 1;
+		$server->command("/notice $channel Logging now ON");
+	}
+	
+	# log off
+	elsif ($data =~ /^\.log off$/) {
+		$log_on = 0;
+		$server->command("/notice $channel Logging now OFF");
+	}
+	
+	# help
+	elsif ($data =~ /^\.help$/) {
+		$server->command("/notice $channel Commands: .rcon <rcon command>, " .
+			".log <on/off>, .status");
+	}
+
+	# status
+	elsif ($data =~ /^\.status$/) {
+		my $log_status = "";
+		if ($log_on eq 1) { $log_status = "on"; }
+		else { $log_status = "off"; }
+		$server->command("/notice $channel Log: $log_status");
+	}
+	
+}
+
+#########[ MAIN ]###########
+
+# Open the logfile.
+open LOG, ">>$logfile" or die "Cannot open logfile!\n";
+LOG->autoflush(1);
+
+# Start listening the socket for udp messages.
+my $iaddr = gethostbyname(hostname());
+my $proto = getprotobyname('udp');
+my $paddr = sockaddr_in($listen_port, $iaddr);
+socket(S, PF_INET, SOCK_DGRAM, $proto)   || die "socket: $!\n";
+bind(S, $paddr)                          || die "bind: $!\n";
+$| = 1;
+
+# Set input and signals etc. irssi related stuff.
+Irssi::input_add(fileno(S), INPUT_READ, "run_bot", "");
+Irssi::signal_add_last('message public', 'msg_command');
+
+
diff --git a/scripts/hostname.pl b/scripts/hostname.pl
new file mode 100644
index 0000000..8871aea
--- /dev/null
+++ b/scripts/hostname.pl
@@ -0,0 +1,156 @@
+# $Id: hostname.pl,v 1.8 2002/07/04 13:18:02 jylefort Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "1.01";
+%IRSSI = (
+	  authors     => 'Jean-Yves Lefort',
+	  contact     => 'jylefort\@brutele.be, decadix on IRCNet',
+	  name        => 'hostname',
+	  description => 'Adds a /HOSTNAME command; it will list all IP addresses on all interfaces found on your machine, resolve them, and allow you to choose one easily',
+	  license     => 'BSD',
+	  url         => 'http://void.adminz.be/irssi.shtml',
+	  changed     => '$Date: 2002/07/04 13:18:02 $ ',
+);
+
+# description:
+#
+#	hostname.pl will add a /HOSTNAME command similar to the one that can
+#	be found in BitchX.
+#
+#	/HOSTNAME will list all IP addresses of your system, and resolve them.
+#	/HOSTNAME <index> will switch to the selected IP address.
+#
+#	The IP addresses are collected by running ifconfig and parsing
+#	the output. It has been tested on the following systems:
+#
+#		FreeBSD 4.4-RELEASE
+#		FreeBSD 4.5-RELEASE
+#		NetBSD 1.5.2
+#		Linux 2.4.16
+#		IRIX 6.5
+#		OSF/1 4.0
+#		SunOS 5.8
+#
+#	It will probably work on any recent version of the following systems:
+#
+#		FreeBSD
+#		NetBSD
+#		OpenBSD
+#		Linux
+#		IRIX
+#		OSF/1 / Tru64
+#		SunOS / Solaris
+#
+#	It may or may not work on other systems / versions, but it will not
+#	work on the following pieces of crap:
+#
+#		M$-DO$ all versions
+#		Windoze all versions
+#			
+#	You'll also need to have the module Socket6.pm installed, the address
+#	resolution needs it; on FreeBSD it can be installed easily by typing
+#	cd /usr/ports/net/p5-Socket6 && make install
+#
+# /format's:
+#
+#	hostname
+#
+#		$0	index number
+#		$1	IP address
+#		$2	hostname
+#
+# new theme abstracts:
+#
+#	Insert the following in the abstracts section of your theme file:
+#
+#		index = "[$*]";
+#		ip = "%g$*%n";
+#		hostname = "{comment $*}";
+#
+# usage:
+#
+#	/HOSTNAME [<index>]
+#
+#	Without arguments, display the list of IP addresses and resolve them.
+#
+#	With a numerical argument, set the hostname setting to the IP
+#	address matching that index in the list.
+#
+# acknowledgements:
+#
+#	The following people have sent the ifconfig output of their system:
+#	darix, plett, zur
+#
+# changes:
+#
+#	2002-07-04	release 1.01
+#			* command_bind uses a reference instead of a string
+#
+#	2002-04-25	release 1.00
+#			* increased version number
+#
+#	2002-02-02	release 0.02
+#			* reads ifconfig output one line at a time
+#			* excluded too many IP addresses in result: fixed
+#			* much '2' today ;)
+#
+#	2002-02-01	initial release
+
+use strict;
+use Socket;
+use Socket6;
+
+my %addresses;
+
+sub hostname {
+  my ($args, $server, $item) = @_;
+
+  get_addresses();
+  if ($args) {
+    set_address($args);
+  } else {
+    print_addresses();
+  }
+}
+
+sub get_addresses {
+  Irssi::print("Resolving IP addresses...");
+  %addresses = ();
+  open(IFCONFIG, "ifconfig|");
+  while (<IFCONFIG>) {
+    $addresses{$2} = resolve($2)
+      if (/(inet addr:|inet6 addr: |inet |inet6 )([0-9a-f.:]*)/
+	  && ! ($2 =~ /^(127\.0\.0\.1|::1|fe80:.*)$/));
+  }
+  close(IFCONFIG);
+}
+
+sub print_addresses {
+  my $i = 0;
+  Irssi::printformat(MSGLEVEL_CRAP, "hostname", ++$i, $_, $addresses{$_})
+      foreach (keys %addresses);
+}
+
+sub set_address {
+  my ($index, $i) = (shift, 0);
+  foreach (keys %addresses) {
+    if (++$i == $index) {
+      Irssi::print("Hostname set to $_");
+      Irssi::command("^SET HOSTNAME $_");
+      return;
+    }
+  }
+  Irssi::print("Hostname #$index not found", MSGLEVEL_CLIENTERROR);
+}
+
+sub resolve {
+  my $ip = shift;
+  my @res = getaddrinfo($ip, 0, AF_UNSPEC, SOCK_STREAM);
+  my ($name, $port) = getnameinfo($res[3]);
+  return $name;
+}
+
+Irssi::theme_register(['hostname',
+		       '{index $0} {ip $[20]1} {hostname $[39]2}']);
+
+Irssi::command_bind("hostname", \&hostname);
diff --git a/scripts/iMPD.pl b/scripts/iMPD.pl
new file mode 100644
index 0000000..945a1bf
--- /dev/null
+++ b/scripts/iMPD.pl
@@ -0,0 +1,1178 @@
+#/usr/bin/perl -w
+########################################################################
+#
+# iMPD - irssi MPD controller
+# Copyright (C) 2004 Shawn Fogle (starz@antisocial.com)
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+########################################################################
+#
+# iMPD - irssi MPD
+#
+# Requirements: mpc, mpd (http://musicpd.org) 
+#
+# Please report b00gs to http://www.musicpd.org/forum/viewtopic.php?t=19
+# Get the latest and greatest from pulling the module at musicpd's 
+# SVN (module iMPD).
+#
+# OK, This is the a script for irssi/mpc/mpd for people who want to 
+# control mpd from irssi. It's very bloated, and featureful, but this
+# is a good thing because it's just a perl script and you really don't 
+# ever need to use anything that's in here that doesn't pertain to you.
+# If you need it (or want it) it's most likely in here. 
+#
+# I am up for suggestions, alot of this may not work for you, and
+# I will not fix it unless you tell me about it.
+#
+# I do not believe in backwards compatibility if that means it gets in 
+# the way of development, so this is probably needs the latest and 
+# greatest due to changes in mpc/mpd.
+#
+########################################################################
+#                           Changes
+########################################################################
+#          
+#  0.0.0m->0.0.0n
+#
+#  - Added Move / Crossfade
+#
+#  - Fixed problems with finding mpc if it's in your path.
+#
+#  - Began work on AddNext (Adding next in the queue, unless it's on
+#    random or shuffle, don't know if it will ever be added but this
+#    release needs to make it out soon to fix path b00g.
+#
+#  - Finally attached the GPL to make this fully GPLv2 compatible
+#
+########################################################################
+#           Buglist / Wishlist / Todo (In no particular order)
+########################################################################
+#
+# - Have to be able to tell if MPD goes down, so it can gracefully 
+#   shutdown the statusbar, so it doesn't try and access mpc every
+#   5 seconds (gets even worse if mpdbar_refresh is faster than 
+#   default). This will more than likely be fixed by the MPD module.
+#   Note to self: Script unloading self leads to _bad_problems ;p
+#
+# - Update issues will go away in 0.11.0 (see musicpd.org) due to 
+#   update being non-blocking from there on out (hopefully ;p)
+#
+########################################################################
+# You don't need to edit below this unless you know what you're doing :)
+########################################################################
+
+use File::Basename;
+use Irssi;
+use Irssi::TextUI;
+use strict;
+use vars qw($VERSION %ENABLED %SAVE_VARS %IRSSI %COUNT %SET);
+
+$VERSION = '0.0.0n';
+%IRSSI = (
+	  authors     => 'Santabutthead',
+	  contact     => 'starz@antisocial.com',
+	  name        => 'iMPD',
+	  description => 'This controls Music Player Daemon from the familiar irssi interface',
+	  license     => 'GPL v2',
+	  url         => 'http://www.musicpd.org'
+	  );
+
+# Create $SET{'mpc_override'}="/outside/path" if mpc's not in your path
+
+### DO NOT EDIT THESE! Use /set mpd_host /set mpd_port ### 
+
+$SET{'port'} = "2100";
+$SET{'host'} = "127.0.0.1";
+
+### Let's go ahead and set this up, so irssi doesn't have a tantrum ###
+
+Irssi::signal_add('setup changed' => \&read_settings);
+Irssi::settings_add_bool('misc', 'mpdbar_bottom', 0);
+Irssi::settings_add_bool('misc', 'mpdbar_top', 0);
+Irssi::settings_add_bool('misc', 'mpdbar_window', 0);
+Irssi::settings_add_bool('misc', 'current_window', '0');
+Irssi::settings_add_int('misc', 'output_window', '1');
+Irssi::settings_add_int('misc', 'mpd_port', '2100');
+Irssi::settings_add_str('misc', 'mpd_host', '127.0.0.1');
+Irssi::signal_add_first('command script unload', \&cleanup);
+Irssi::signal_add_first('command script load', \&cleanup);
+Irssi::signal_add('setup changed' => \&mpdbar_refresh);
+# Keep the $2- to treat spaces right
+Irssi::statusbar_item_register('mpdbar', '{sb $0 $1 $2-}', 'mpdbar_setup');
+Irssi::statusbars_recreate_items();
+
+#######################################################################
+
+print "For usage information on iMPD type /mhelp";
+
+sub add { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add" );    
+	&set_active;
+    } else {
+	print "%W/madd (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+sub addall {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} add \"\"" );
+    &set_active;
+}
+
+sub addallPlay {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} add \"\" && $SET{'intrashell'} play" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub addallShufflePlay {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} add \"\" && $SET{'intrashell'} shuffle && $SET{'intrashell'} play" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub addNext {  # This does not work yet, but doesn't hurt being here until it does :)
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	&song_count;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add" );    
+	my $new_pos =~ $COUNT{'song'}++;
+	my $playcount =~ $COUNT{'playlist'}++;
+	Irssi::command( "$SET{'intrairssi'} mpc $playcount $new_pos");
+	#random detect stuff here;
+	&set_active;
+    } else {
+	print "%W/maddnext (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the next position in";
+        print " - the queue. This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+sub addPlay { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0]=~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} play" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/map (add play) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+sub addShuffle { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} shuffle" );
+	&set_active;
+    } else {
+	print "%W/mas (add shuffle) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+sub addShufflePlay { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} shuffle && $SET{'intrashell'} play" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/masp (add shuffle play) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+
+sub cleanup {
+    my ($file) = Irssi::get_irssi_dir."/iMPD.conf";
+
+    open CONF, "> $file";
+    for my $net (sort keys %SAVE_VARS) {
+	print CONF "$net\t$SAVE_VARS{$net}\n";
+	close CONF;
+    }
+    Irssi::command( "statusbar mpdbar disable" );
+  }
+ 
+sub clear {
+    &read_settings;
+    &current_window;    
+    Irssi::command( "$SET{'intrairssi'} clear" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub clearAddAllPlay {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} clear && $SET{'intrashell'} add \"\" && $SET{'intrashell'} play" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub clearAddAllShufflePlay {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} clear && $SET{'intrashell'} add \"\" && $SET{'intrashell'} shuffle && $SET{'intrashell'} play" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub clearAddPlay { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} clear && $SET{'intrashell'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} play" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/mcap (clear add play) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+sub clearAddShufflePlay { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} clear && $SET{'intrashell'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} shuffle && $SET{'intrashell'} play" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/mcasp (clear add shuffle play) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+    }
+}
+
+sub clearback {
+    &read_settings;
+    &song_count;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} del $COUNT{'sr1'}" );
+    &set_active;
+}
+
+sub crossfade {
+    &read_settings;
+    if ($_[0] =~ m/\d{1-4}/) {
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} crossfade $_[0]" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/mcrossfade <num> %w- Number of seconds to crossfade between songs";
+    }
+}
+
+sub current_status{
+    &read_settings;
+    &current_window;
+    my $i = `$SET{'intrashell'}`;
+    chomp($i);
+    $SET{'active'}->print( $i );
+    &set_active;
+    return;
+}
+
+sub current_window {
+    $SET{'active'} = Irssi::active_win();
+    if (! $SET{'current'}) {
+	Irssi::window_find_refnum($SET{'output'})->set_active;
+      }
+}
+
+sub delete {
+    if($_[0]) {
+	my (@i,$j,$k);
+	@i = split / /, $_[0]; 
+	$j = shift(@i);
+
+	&read_settings;
+	&current_window;
+	# You may ask why? This is for the future when del (hopefully) has useful output
+	$k = "$SET{'intrairssi'} playlist | grep \"$j\" | $SET{'intrashell'} del";
+	$_[0] =~ s/^(\w+)\s//; 
+	$k = "$k && $SET{'intrashell'} playlist | grep \"$_[0]\" | $SET{'intrashell'} del";
+	Irssi::command( "$k" );
+	&set_active;
+    } else {
+	print"%W/mdel {search term} {search term}..%w";
+        print" - Search for {search term} and automagically";
+	print" - delete it from the queue";
+    }
+}
+
+sub iMPD_help {
+my $mpd_help = <<MPD_HELP;
+    %r---=[ %WMusic Control Commands %r]=---%w
+    %W/mmute                      %w- Mutes/Unmutes the volume
+    %W/mnext                      %w- Starts playing next song on playlist
+    %W/mpause                     %w- Pauses playing
+    %W/mplay <number>             %w- Starts MPD (with optional number of song 
+                                              to start on)
+    %W/mprev                      %w- Previous Song
+    %W/mstop <minutes> <m|h|d>    %w- Stops the current playlist, 
+                                  options are minutes, hours and days, seconds 
+                                  are the default
+    %W/mupdate                    %w- Update MPD Database
+    %W/mvolume <value> (0-100)    %w- Sets the volume on the OSS mixer
+                                  to <value> (0-100)
+
+    %r---=[ %WSearch Commands %r]=---%w
+    %W/madd (album|artist|filename|title) {search term} {search term} ..%w
+                                %w- Search for {search term} and automagically 
+                                    add it to the end of the queue, upto 5 search terms
+                                - If not specified it will use filename by default
+    %W/mdel {search term} {search term} ..%w
+                                %w- Search for {search term} and automagically 
+                                    delete it from the queue
+    %W/msearch (album|artist|filename|title) {search term} {search term}..%w
+                                %w- Search for {search term}
+                                - If not specified it will use filename by default
+
+    %r---=[ %WNavigation/Playlist Commands %r]=---%w
+    %W/maddall                    %w- Add all known music to the playlist
+    %W/mclear                     %w- Clear the current playlist
+    %W/mclearback                 %w- Clears all songs before the current playing song
+    %W/mcrossfade <num>           %w- Number of seconds to crossfade between songs
+    %W/mls [<directory>]          %w- Lists all files/folders in <directory>
+    %W/mmove <num> <num>          %w- Move song on playlist
+    %W/mplaylist <range>          %w- Print entire playlist if there's no range
+                                - Otherwise will print the range (i.e. 1-10)
+    %W/mplaylistls                %w- List available playlists
+    %W/mplaylistload <file>       %w- Load playlist <file>
+    %W/mplaylistrm <file>         %w- Remove (delete) playlist <file>
+    %W/mplaylistsave <file>       %w- Save playlist <file>
+    %W/mpls {search term} {search term}...%w
+                                %w- Playlist search {search term}
+    %W/mseek <num>                %w- Seeks to the spot specified for the current file, in terms of percent time (0-100)
+    %W/mshuffle                   %w- Shuffle the MPD playlist
+    %W/mrandom                    %w- Play the playlist randomly 
+    %W/mwipe                      %w- Remove all songs but the one currently playing
+
+    %r---=[ %WMiscellaneous Commands %r]=---%w
+    %W/mhelp                      %w- This screen
+    %W/mloud                      %w- Show everyone in the current window the MPD stats
+    %W/mlouder                    %w- Show everyone in the current window the MPD stats
+                                      *use with caution*
+    %W/minfo                      %w- Show MPD Status in the status window
+    %W/mrm <num> <num>..          %w- Remove song from the current playlist (by number 
+                                %w- or number range)
+ See Also: /mhelpadv
+           /mhelpmpdbar
+           /set mpd_host mpd_port
+           /set mpd_current_window mpd_output_window (EXPERIMENTAL)
+MPD_HELP
+print $mpd_help;
+}
+
+sub iMPD_helpAdv{
+my $mpd_help_advanced = <<MPD_HELP_ADVANCED;
+    %r---=[ %WCombination Commands %r]=---%w
+    These do not take play arguments.
+    %W/map {search term} {search term} ..     %w- Add, Play
+    %W/maap                                   %w- Addall, Play
+    %W/maasp                                  %w- Addall, Shuffle, Play
+    %W/mas {search term} {search term} ..     %w- Add, Shuffle
+    %W/masp {search term} {search term} ..    %w- Add, Shuffle, Play
+    %W/mcap {search term} {search term} ..    %w- Clear, Add, Play
+    %W/mcaap                                  %w- Clear, Addall, Play
+    %W/mcaasp                                 %w- Clear, Addall, Shuffle, Play
+    %W/mcasp {search term} {search term} ..   %w- Clear, Add, Shuffle, Play 
+    %W/mwa {search term} {search term} ..     %w- Wipe, Add, 
+    %W/mwaa                                   %w- Wipe, Addall
+    %W/mwaas                                  %w- Wipe, Addall, Shuffle
+    %W/mwas {search term} {search term} ..    %w- Wipe, Add, Shuffle
+
+ See Also: /set mpd_port mpd_host
+           /set mpd_current_window mpd_output_window (EXPERIMENTAL)
+MPD_HELP_ADVANCED
+print $mpd_help_advanced;
+}
+
+sub load_settings {
+    my ($file) = Irssi::get_irssi_dir."/iMPD.conf";
+    
+    open CONF, "< $file";
+    while (<CONF>) {
+	my($net,$val) = split;
+	if ($net && $val) {
+	    $SAVE_VARS{$net} = $val;
+	}
+	close CONF;
+    }
+}
+
+# For those who want to be loud/annoying :)
+sub loud {
+    &read_settings;
+    my ($i,$j);
+    my @split = `$SET{'intrashell'}`;
+
+    if (! $split[1]) {
+	Irssi::print( "iMPD is not currently playing" );
+	  return;
+      }
+    
+    $i = basename $split[0]; 
+    $i =~ s/[_]/ /g;
+# Feel free to put your personal PERL regexps here ;p
+# Experiment with these to do some wicked stuff to your loud output.
+#    $i =~ s/.mp3//ig;
+#    $i =~ s/.flac//ig;
+#    $i =~ s/.flc//ig;
+#    $i =~ s/.ogg//ig;
+#    $i =~ s/^\p{0,2}//;
+#    $i =~ s/[.]//g;
+    $i = substr($i,0,-1);
+    
+    Irssi::active_win->command( "/me is listening to $i" );
+    close Reader;
+}
+
+sub louder {
+    &read_settings;
+    my @split=`$SET{'intrashell'}`;
+    chomp(@split);
+    Irssi::active_win->command( "/say $split[0]" );
+    Irssi::active_win->command( "/say $split[1]" );
+    Irssi::active_win->command( "/say $split[2]" );
+    close Reader;
+}
+
+sub ls {
+    if ($_[0]) {
+	&read_settings;
+	&current_window;
+	$_[0] =~ "\Q$_[0]\E";
+	$_[0] =~ s/^\\//; # Rid of beginning / it doesn't delimit correctly.
+	$_[0] =~ s/\///; # Help out the degenerates.
+	Irssi::command( "$SET{'intrairssi'} ls " . "\Q$_[0]\E" );
+	&set_active;
+    } else {
+	print "%W/mls [<directory>] %w- Lists all files/folders in <directory>.";
+    }
+}
+
+sub lsplaylists {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} lsplaylists" );
+    &set_active;
+}
+
+sub move {
+    &read_settings;
+    if ($_[0] =~ m/\d{1,2}\s{1,2}/) {
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} move $_[0]" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/mmove <num> <num>          %w- Move song on playlist";
+    }
+}
+
+sub mpdbar_help {
+my $mpdbarhelp = <<MPDBAR_HELP;
+ mpdbar was made to be a simple way to get your statusbar up and 
+ to hide it when it's not playing. If you feel that I'm not being
+ flexable enough in my choices you're free to setup a statusbar
+ without these commands or present me with an idea for a new
+ mpdbar command. But the current ones are:
+
+ /set mpdbar_bottom on -
+     This command will (obviously) display a mpdbar on the bottom.
+
+ /set mpdbar_refresh <num> -
+     This command will set the refresh in seconds, it defaults to 
+     5 seconds, you might be able to set it higher although I don't
+     recommend setting it higher if your mpd server is across a 
+     network (of any kind ;p).
+
+ /set mpdbar_top on
+     This command will (obviously) display a mpdbar on the top.
+
+ /set mpdbar_window on
+     This command will (not-so-obviously) display a mpdbar next to your
+     current window statusbar.
+MPDBAR_HELP
+print $mpdbarhelp;
+}
+
+sub mpdbar_get_stats {
+### Variable map  ###
+# $SET{'stat_time'}-Time/Percent(change)
+# $SET{'stat_current'}-Status(change)
+# $SET{'songbase'}-basename filename
+    if(Irssi::settings_get_bool('mpdbar_bottom') or 
+       Irssi::settings_get_bool('mpdbar_top') or
+       Irssi::settings_get_bool('mpdbar_window')) {
+	&read_settings;
+		
+	($SET{'stat1'},$SET{'stat2'},$SET{'stat3'}) = undef;
+	($SET{'stat1'},$SET{'stat2'},$SET{'stat3'}) = `$SET{'intrashell'}`;
+	chomp($SET{'stat1'},$SET{'stat2'},$SET{'stat3'});
+
+	if ($SET{'stat2'} =~ m/(\d{1,5}\:\d{1,2}\s\(\d{1,3}\%\))/) {
+	    $SET{'stat_time'} = $1;	
+	}
+	if ($SET{'stat2'} =~ m/\[(\w+)\]/) {
+	    $SET{'stat_current'} = $1;
+	}
+	if($SET{'stat2'} and $SET{'stat1'} =~ m/\//g) { # Not sure if this will have an effect :/
+	    $SET{'songbase'} = basename $SET{'stat1'};
+	} else {
+	    $SET{'songbase'} = $SET{'stat1'};
+	}
+    }
+}
+    
+sub mpdbar_refresh {    
+    if(Irssi::settings_get_bool('mpdbar_bottom') or 
+       Irssi::settings_get_bool('mpdbar_top') or
+       Irssi::settings_get_bool('mpdbar_window')) {
+	&mpdbar_get_stats;
+	if (Irssi::settings_get_bool('mpdbar_bottom') and Irssi::settings_get_bool('mpdbar_top')) {
+	    Irssi::print( "Have not implemented ability to mpdbar top and bottom at the same time" );
+	      Irssi::print( "That's fine though, I'll just set it to the bottom for you for now" );
+	      Irssi::settings_set_bool('mpdbar_bottom',1);
+	      Irssi::settings_set_bool('mpdbar_top',0);
+	  }
+	if (Irssi::settings_get_bool('mpdbar_window') and $SET{'stat2'}) {
+	    $ENABLED{'window'} = "1";
+	    Irssi::command( "statusbar window add mpdbar" );
+	    Irssi::command( "statusbar window enable mpdbar" );
+	} else {
+	    if($ENABLED{'window'} == 1) {
+		Irssi::command( "statusbar window remove mpdbar" );
+		  $ENABLED{'window'} = 0;
+	      }
+	}
+	if (Irssi::settings_get_bool('mpdbar_bottom') and $SET{'stat2'} and ! $ENABLED{'top'}) {
+	    $ENABLED{'bottom'} = "1";
+	    Irssi::command( "statusbar mpdbar placement bottom" );
+	    Irssi::command( "statusbar mpdbar position 2" );
+	    Irssi::command( "statusbar mpdbar enable" );
+	    Irssi::command( "statusbar mpdbar add mpdbar" );
+	    Irssi::command( "statusbar mpdbar visible active" );
+	} else {
+	    if($ENABLED{'bottom'} == 1){
+		Irssi::command( "statusbar mpdbar remove mpdbar" );
+		  Irssi::command( "statusbar mpdbar disable" );
+		  $ENABLED{'bottom'} = 0;
+	      }
+	}
+	if (Irssi::settings_get_bool('mpdbar_top') and $SET{'stat2'} and ! $ENABLED{'bottom'}) {
+	    $ENABLED{'top'} = "1";
+	    Irssi::command( "statusbar mpdbar placement top" );
+	    Irssi::command( "statusbar mpdbar position 2" );
+	    Irssi::command( "statusbar mpdbar enable" );
+	    Irssi::command( "statusbar mpdbar add mpdbar" );
+	    Irssi::command( "statusbar mpdbar visible active" );
+	} else {
+	    if($ENABLED{'top'} == 1){
+		Irssi::command( "statusbar mpdbar remove mpdbar" );
+		  Irssi::command( "statusbar mpdbar disable" );
+		  $ENABLED{'top'} = 0;
+	      }     
+	}
+    }
+}
+
+sub mpdbar_setup {	
+    my ($item, $get_size_only) = @_;
+    if (! $SET{'stat2'}) { # If it's not on
+	$item->default_handler($get_size_only, undef, "$SET{'stat2'}", 1);
+    } else {
+	$SET{'stat_current'} =~ s/$SET{'stat_current'}/\u\L$SET{'stat_current'}/;
+	$item->default_handler($get_size_only, undef, "$SET{'stat_current'} $SET{'songbase'} $SET{'stat_time'}", 1);
+    }
+}
+
+sub mute {
+    &read_settings;
+    &current_window;
+
+    my @i = `$SET{'intrashell'}`;
+    my $j;
+    # This next conditional is for when the music is not playing
+    if (exists $i[2]) {
+	$j = $i[2]; 
+    } else {
+	$j = $i[0];
+    }
+    if ($j =~ m/volume\:\s{0,2}(\d{1,3})\%/) {
+	$j = $1;
+    }
+
+    if ($j != 0 and ! $SAVE_VARS{'muted'} == 0) {
+	print "Warning: Not currently muted, although it said it was";
+	delete $SAVE_VARS{'muted'}
+    }
+    if ($j == 0 and ! $SAVE_VARS{'muted'}) {
+	print "Error: Volume is currently muted, but I don't know how it got there. Manually set the volume please.";
+	delete $SAVE_VARS{'muted'};
+    }
+    if (!$SAVE_VARS{'muted'}) {
+	$SAVE_VARS{'muted'} = $j;
+	`$SET{'intrashell'} volume 0`;
+	print "Sound is muted, to unmute just hit /mmute again";
+    } else {
+	`$SET{'intrashell'} volume $SAVE_VARS{'muted'}`;
+	print "Reset the volume back to it's originial position ($SAVE_VARS{'muted'}%)";
+	delete $SAVE_VARS{'muted'};
+    }
+}
+
+sub next {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} next" );
+    &set_active;
+    &mpdbar_refresh; # Impatience
+}
+
+sub pause {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} pause" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub play {
+    &read_settings;
+    my $i;
+    &current_window;
+    if ($_[0] =~ m/\d{1,6}/) {
+	$i = $_[0];
+    }
+    Irssi::command( "$SET{'intrairssi'} play $i" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub playlist {
+    &read_settings;
+    my @playlist;
+    if ($_[0] =~ m/\d{1,6}\-\d{1,6}/) {
+	my ($head,$tail);
+	my @playlist = `$SET{'intrashell'} playlist`;
+	($head, $tail) = split /-/, $_[0]; 
+
+	# OK, just understand I'm here for you if you're 
+	# tired enough to let this happen to you.
+	if($head > $tail) {
+	    my $i;
+	    $i = $head;
+	    $head = $tail;
+	    $tail = $i;
+	}
+
+	$head =~ $head--;
+	$tail = $tail - $head;
+	chomp $head;
+	chomp $tail;
+	
+	@playlist = splice(@playlist,$head,$tail);
+	my $i = pop(@playlist);
+	chomp $i;
+	push (@playlist,$i);
+	print @playlist;
+    } else {
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} playlist" );
+	&set_active;
+    }
+}
+
+sub playlist_load {
+    if ($_[0]) {
+	&read_settings;
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} load \Q$_[0]\E" );
+	&set_active;
+    } else {
+	print "%W/mplaylistload <file> %w- Load playlist <file>";
+    }
+}
+
+sub playlist_remove {
+    if ($_[0]) {
+	&read_settings;
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} rm \Q$_[0]\E" );
+	&set_active;
+    }
+}
+
+sub playlist_save {
+    if ($_[0]) {
+	&read_settings;
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} save \Q$_[0]\E" );
+	&set_active;
+    } else {
+	print "%W/mplaylistsave <file> %w- Save playlist <file>";
+    }
+}
+
+sub playlistsearch {
+    if ($_[0]) {
+	&read_settings;
+	my @i = split / /, $_[0];
+	&current_window;
+	foreach(@i) {
+	    Irssi::command( "$SET{'intrairssi'} playlist | grep $_" );
+	  }
+	&set_active;
+    } else {
+	print "%W/pls {search term} {search term}..%w";
+	print " - Search for {search term} and automagically and show the playlist entry";
+    }    
+}
+
+sub previous {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} prev" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub random{
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} random" );
+    &set_active;
+}
+
+sub read_settings {    
+    ($SET{'mbar_time'}) && Irssi::timeout_remove($SET{'mbar_time'});
+    $SET{'mbar_time'}=Irssi::timeout_add(Irssi::settings_get_int('mpdbar_refresh') * 1000, 'mpdbar_refresh', undef);
+
+    $SET{'current'} = Irssi::settings_get_bool('current_window');
+    $SET{'output'} = Irssi::settings_get_int('output_window');
+    
+    if (Irssi::settings_get_int( "mpd_port" )) {
+	$SET{'port'} = Irssi::settings_get_int( "mpd_port" );
+	$SET{'port'} = "MPD_PORT=$SET{'port'}"
+	}
+    if (Irssi::settings_get_str( "mpd_host" )) {
+	$SET{'host'} = Irssi::settings_get_str( "mpd_host" );
+	$SET{'host'} = "MPD_HOST=$SET{'host'}"
+    }
+    my $MPC_BIN;
+    if ( ! -x $SET{'mpc_override'} ) {
+	my @paths = split/:/,$ENV{'PATH'};
+	
+	foreach(@paths) {
+	    my $path = $_;
+	    if( -x "$path" . "/" . "mpc" ) {
+		$MPC_BIN = "$path/mpc";
+	    }
+	}
+    } else {
+	$MPC_BIN = $SET{'mpc_override'};
+    }
+
+    if (! $MPC_BIN) {
+	print "mpc was not found in any of the known paths";
+	print "mpc is required to use this script, please download it from http://musicpd.org/files.php";
+    }   
+
+    $SET{'intrashell'} = "$SET{'port'} $SET{'host'} $MPC_BIN";
+    $SET{'intrairssi'} = "exec - $SET{'intrashell'}";
+}
+
+sub repeat {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} repeat" );
+    &set_active;
+}
+
+sub remove_song {
+    &read_settings;
+    if ($_[0] =~ m/\d{1,6}/ or $_[0] =~ m/\d{1,6}\-\d{1,6}/) {
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} del $_[0]" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/mrm <num> <num>.. %w- Remove song from the current playlist (by number)";
+	print "%w                   - Note that <num> can be a range also";
+    }
+}
+
+sub search { 
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	&current_window;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E" );
+	&set_active;
+    } else {
+	print "%W/search (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+        print " - If not specified it will use filename by default";
+    }
+}
+
+sub seek {
+    &read_settings;
+    if ($_[0] =~ m/\d{1-3}/) {
+	&current_window;
+	Irssi::command( "$SET{'intrairssi'} seek $_[0]" );
+	&mpdbar_refresh; # Impatience
+	&set_active;
+    } else {
+	print "%W/mseek <num> %w- Seeks to the spot specified for the current file, in terms of percent time (0-100)";
+    }
+}
+
+sub set_active { 
+    if (! $SET{'current'}) { 
+	$SET{'active'}->set_active; 
+    }
+}    
+
+sub shuffle{
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} shuffle" );
+    &set_active;
+}
+
+sub song_count {
+    %COUNT = undef;
+    
+    my @counts = `$SET{'intrashell'}`;
+    chomp(@counts);
+
+    if ($counts[1] =~ m/\#(\d{1,6})\//) {
+	$COUNT{'song'} = $1;
+    }
+    if ($counts[1] =~ m/\/(\d{1,6})\s/) { 
+	$COUNT{'playlist'} = $1;
+    } 
+    if ($COUNT{'song'} > 1) {
+	my $i = $COUNT{'song'} - 1;
+	$COUNT{'sr1'} = "1-$i";
+    }
+    if ($COUNT{'song'} < $COUNT{'playlist'}){# and $COUNT{'song'} != $COUNT{'playlist'}) {
+	my $i = $COUNT{'song'} + 1;
+	$COUNT{'sr2'} = "$i-$COUNT{'playlist'}";
+    }
+}
+
+sub stop {
+    &read_settings;
+    my ($i,$time);
+    if ($_[0]) {
+	my $unit;
+	($time, $unit) = split / /, $_[0]; 
+	if ($unit =~ /minute/i or $unit =~ /minutes/i) {
+	    $time = ($time * 60);
+	}
+	if ($unit =~ /hour/i or $unit =~ /hours/i) {
+	    $time = ($time * 86400);
+	}
+	#ok. it's ridiculous to use this script for days, but in any case here ya go.
+	if ($unit =~ /day/i or $unit =~ /days/i) {
+	    $time = ($time * 2073600);
+	}
+	$time = $time . "s";
+	$i = "exec - /bin/sleep $time && $SET{'intrashell'} stop";
+    } else {
+	$i = "$SET{'intrairssi'} stop";
+    }
+    &current_window;
+    Irssi::command( "$i" );
+    &mpdbar_refresh; # Impatience
+    &set_active;
+}
+
+sub update {
+    &read_settings;
+    &current_window;
+    Irssi::command( "$SET{'intrairssi'} update" );
+    Irssi::print( "Irssi will not be accepting commands while updating" );
+    &set_active;
+}
+
+sub volume {
+    &read_settings;
+    &current_window;
+    my (@i,$j);
+    if ($_[0] =~ m/\d{1,3}/) {
+	@i = `$SET{'intrashell'} volume $_[0]`;
+    } else {
+	@i = `$SET{'intrashell'}`;
+    }
+    # This next conditional is for when the music is not playing
+    if (exists $i[2]) {
+	$j = $i[2]; 
+    } else {
+	$j = $i[0];
+    }
+    if ($j =~ m/volume\:\s{0,2}(\d{1,3})\%/) {
+	$j = $1;
+    }
+    # OK, if anyone wants to tell me _why_ this seems to be the only way
+    # to get a "%" on the end please feel free (suspected to be due to
+    # color codes
+    if ($_[0]) {
+	Irssi::print( "The volume is at $j%" . "%" );
+    } else {
+	$SET{'active'}->print( "The volume is at $j%" . "%" );  
+      }
+    &set_active;
+}
+
+sub wipe {
+    &read_settings;
+    &current_window;
+    &song_count;
+    if($COUNT{'sr1'} or $COUNT{'sr2'}) {
+	Irssi::command( "$SET{'intrairssi'} del $COUNT{'sr1'} $COUNT{'sr2'}" );
+      } else {
+	  Irssi::print( "Can't wipe when there's only one song in the playlist" );
+	}
+    &set_active;
+}
+
+sub wipeAdd{
+    if ($_[0]) {
+	&read_settings;
+	&song_count;
+	my $j;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	&current_window;
+	if($COUNT{'sr1'} or $COUNT{'sr2'}) {
+	    Irssi::command( "$SET{'intrairssi'} del $COUNT{'sr1'} $COUNT{'sr2'} && $SET{'intrashell'} search $j \Q$_[0]\E | $SET{'intrashell'} add" );
+	  } else { # Do the thinking for the person
+	      Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add" );    
+	    }
+	&set_active;
+    } else {
+	print "%W/mwa (wipe add) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default"
+	}
+}
+
+sub wipeAddall{
+    &read_settings;
+    &song_count;
+    &current_window;
+    if($COUNT{'sr1'} or $COUNT{'sr2'}) {
+	Irssi::command( "$SET{'intrairssi'} del $COUNT{'sr1'} $COUNT{'sr2'} && $SET{'intrashell'} add \"\"" );
+      } else {
+	  Irssi::command( "$SET{'intrairssi'} add \"\"" );
+	}	  
+    &set_active;
+}
+
+sub wipeAddallShuffle{
+    &read_settings;
+    &song_count;
+    &current_window;
+    if($COUNT{'sr1'} or $COUNT{'sr2'}) {
+	Irssi::command( "$SET{'intrairssi'} del $COUNT{'sr1'} $COUNT{'sr2'} && $SET{'intrashell'} add \"\" && $SET{'intrashell'} shuffle" );
+      } else {
+	Irssi::command( "$SET{'intrairssi'} add \"\" && $SET{'intrashell'} shuffle" );
+      }
+    &set_active;
+}
+
+sub wipeAddShuffle{
+    if ($_[0]) {
+	&read_settings;
+	my $j;
+	if ($_[0] =~ /^album\s/ or $_[0]=~ /^filename\s/ or $_[0]=~ /^title\s/ or $_[0]=~ /^artist\s/ ) {
+	    my @i = split / /, $_[0];
+	    $j = $i[0];
+	    $_[0] =~ s/^(\w+)\s//;
+	} else { 
+	    $j = "filename";
+	}
+	&song_count;
+	&current_window;
+	if($COUNT{'sr1'} or $COUNT{'sr2'}) {
+	    Irssi::command( "$SET{'intrairssi'} del $COUNT{'sr1'} $COUNT{'sr2'} && $SET{'intrashell'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} shuffle" );
+	  } else {
+	      Irssi::command( "$SET{'intrairssi'} search $j \Q$_[0]\E | $SET{'intrashell'} add && $SET{'intrashell'} shuffle" );
+	    }
+	&set_active;
+    } else {
+	print "%W/mwas (wipe add shuffle) (album|artist|filename|title) {search term} {search term}..%w";
+	print " - Search for {search term} and automagically add it to the end of the queue";
+	print " - This command does not support play number. (it doesn't make sense)";
+	print " - If not specified it will use filename by default";
+	}
+}
+Irssi::settings_add_int('misc', 'mpdbar_refresh', '5');
+
+&load_settings;
+&mpdbar_refresh;
+
+Irssi::command_bind madd => \&add;
+Irssi::command_bind maddall => \&addall;
+# Irssi::command_bind maddnext => \&addNext;
+Irssi::command_bind maap => \&addallPlay;
+Irssi::command_bind maasp => \&addallShufflePlay;
+Irssi::command_bind mas => \&addShuffle;
+Irssi::command_bind masp => \&addShufflePlay;
+Irssi::command_bind map => \&addPlay;
+Irssi::command_bind mclear => \&clear;
+Irssi::command_bind mclearback => \&clearback;
+Irssi::command_bind mcaap => \&clearAddAllPlay;
+Irssi::command_bind mcaasp => \&clearAddAllShufflePlay;
+Irssi::command_bind mcap => \&clearAddPlay;
+Irssi::command_bind mcasp => \&clearAddShufflePlay;
+Irssi::command_bind mdel => \&delete;
+Irssi::command_bind mls => \&ls;
+Irssi::command_bind mhelp => \&iMPD_help;
+Irssi::command_bind mhelpadv => \&iMPD_helpAdv;
+Irssi::command_bind minfo => \&current_status;
+Irssi::command_bind mloud => \&loud;
+Irssi::command_bind mlouder => \&louder;
+Irssi::command_bind mmute => \&mute;
+Irssi::command_bind mnext => \&next;
+Irssi::command_bind mpause => \&pause;
+Irssi::command_bind mhelpmpdbar => \&mpdbar_help;
+Irssi::command_bind mmove => \&move;
+Irssi::command_bind mplay => \&play;
+Irssi::command_bind mplaylist => \&playlist;
+Irssi::command_bind mpls => \&playlistsearch;
+Irssi::command_bind mplaylistls => \&lsplaylists;
+Irssi::command_bind mplaylistload => \&playlist_load;
+Irssi::command_bind mplaylistrm => \&playlist_remove;
+Irssi::command_bind mplaylistsave => \&playlist_save;
+Irssi::command_bind mprev => \&previous;
+Irssi::command_bind mrandom => \&random;
+Irssi::command_bind mrepeat => \&repeat;
+Irssi::command_bind mrm => \&remove_song;
+Irssi::command_bind mseek => \&seek;
+Irssi::command_bind msearch => \&search;
+Irssi::command_bind mshuffle => \&shuffle;
+Irssi::command_bind mstop => \&stop;
+Irssi::command_bind mupdate => \&update;
+Irssi::command_bind mvolume => \&volume;
+Irssi::command_bind mwa => \&wipeAdd;
+Irssi::command_bind mwaa => \&wipeAddall;
+Irssi::command_bind mwaas => \&wipeAddallShuffle;
+Irssi::command_bind mwas => \&wipeAddShuffle;
+Irssi::command_bind mwipe => \&wipe;
diff --git a/scripts/identify-md5.pl b/scripts/identify-md5.pl
new file mode 100644
index 0000000..f6680fd
--- /dev/null
+++ b/scripts/identify-md5.pl
@@ -0,0 +1,168 @@
+use Irssi;
+use Digest::MD5 qw(md5_hex);
+use strict;
+use vars qw($VERSION %IRSSI @identify @reop);
+
+$VERSION = '1.05';
+%IRSSI = (
+    authors 	=> 'Eric Jansen',
+    contact 	=> 'chaos@sorcery.net',
+    name 	=> 'identify-md5',
+    description => 'MD5 NickServ identification script for SorceryNet',
+    license 	=> 'GPL',
+    modules	=> 'Digest::MD5',
+    url		=> 'http://xyrion.org/irssi/',
+    changed 	=> 'Sat Mar  1 13:32:30 CET 2003'
+);
+
+################################################################################
+#
+#  MD5 NickServ identification script for SorceryNet (irc.sorcery.net)
+#
+#  The script will do several things:
+#  - It adds the command /identify-md5 to Irssi, which can be used to identify
+#    to your current nickname or a list of nicknames given as arguments using 
+#    the passwords provided below
+#  - It will automatically issue this command whenever NickServ notices you 
+#    that you need to identify (e.g. after a services outage)
+#  - It will remember any channels ChanServ deopped you in and try to regain 
+#    ops after authentication is accepted by NickServ
+#
+#  For more information on SorceryNets MD5 identification see:
+#  http://www.sorcery.net/help/howto/MD5_identify
+#
+#  Put your nicknames and MD5-hashed passwords here:
+#
+
+my %nicknames = (
+    lc('nick1')		=> md5_hex('password1'), 		# Plain text password 'password1'
+    lc('nick2')		=> '6cb75f652a9b52798eb6cf2201057c73',	# MD5-hash of password 'password2'
+    lc('nick3')		=> md5_hex('password3')
+);
+
+#
+#  Please note: This file should NOT be world-readable. Although it's (quite) 
+#               impossible to get the original passwords from the hashes, a
+#               malicious person can identify using the hash and then change
+#               your password without knowing the old password.
+#
+################################################################################
+
+sub cmd_identify {
+
+    my ($data, $server, $witem) = @_;
+
+    # Are we connected?
+    if(!$server || !$server->{'connected'}) {
+
+	Irssi::print("Not connected to a server.");
+	return;
+    }
+
+    # Did the user specify what nick(s) to identify to?
+    if($data ne '') {
+
+	# Store the list of nicknames to identify to then
+	@identify = split /\s+/, $data;
+    }
+    else {
+
+	# Or put our current nick on the list
+	push @identify, $server->{'nick'};
+    }
+
+    # Start with some checks
+    for(my $i = $#identify; $i >= 0; $i--) {
+
+	# If we don't know the password
+	if(!defined $nicknames{lc $identify[$i]}) {
+
+	    # Send an error
+	    Irssi::print("I do not know the password for ${identify[$i]}. Please add it to identify-md5.pl.");
+
+	    # And remove the nick from the list
+	    splice @identify, $i, 1;
+	}
+    }
+
+    # Let's ask NickServ for a cookie if there are nicks left
+    $server->command("QUOTE NickServ identify-md5") if $#identify >= 0;
+}
+
+sub event_notice {
+
+    my ($server, $text, $nick, $address) = @_;
+
+    # Just ignore it if we are not on SorceryNet
+    return unless $server->{'real_address'} =~ /\.sorcery\.net$/;
+
+    # Is it a notice from NickServ?
+    if($nick eq 'NickServ') {
+
+	# Is it a cookie and do we need one?
+	if($text =~ /^205 S\/MD5 1\.0 (.+)$/ && $#identify >= 0) {
+
+	    my $cookie = $1;
+
+	    my $nickname = lc shift @identify;
+	    my $password = $nicknames{$nickname};
+
+	    # Create the hash and send it
+	    my $hash = md5_hex("$nickname:$cookie:$password");
+	    $server->command("QUOTE NickServ identify-md5 $nickname $hash");
+
+	    # Suppress the notice from NickServ
+	    Irssi::signal_stop();
+
+	    # And get a new cookie if there are still nicks left to identify to
+	    $server->command("QUOTE NickServ identify-md5") if $#identify >= 0;
+	}
+
+	# Is it a response?
+	elsif($text =~ /^\d{3} \- (.+)$/) {
+
+	    my $response = $1;
+
+	    # Just print the text-part and suppress the notice
+	    Irssi::print($response);
+
+	    if($response eq 'Authentication accepted -- you are now identified.') {
+
+		foreach my $channel (@reop) {
+		    $server->command("QUOTE ChanServ $channel op $server->{nick}");
+		}
+		undef @reop;
+	    }
+
+	    Irssi::signal_stop();
+	}
+
+	# Do we know the password? Let's see what NickServ has to tell us then
+	elsif(defined $nicknames{lc $server->{'nick'}}) {
+	
+	    # Identify when NickServ asks us to
+	    if($text =~ /^This nick belongs to another user\./) {
+
+		$server->command("identify-md5");
+		Irssi::signal_stop();
+	    }
+
+	    # Just ignore this notice, we already identify when receiving the other one
+	    elsif($text eq 'If this is your nick please try: /msg NickServ ID password') {
+
+		Irssi::signal_stop();
+	    }
+	}
+    }
+
+    # If it's ChanServ saying it just deopped us, remember the channel so we can reop
+    elsif($nick eq 'ChanServ' && $text =~ /^You are not allowed ops in ([^\s]+)$/) {
+
+	push @reop, $1;
+
+	Irssi::signal_stop();
+    }
+}
+
+Irssi::command_bind('identify-md5', 'cmd_identify');
+Irssi::signal_add('message irc notice', 'event_notice');
diff --git a/scripts/idletime.pl b/scripts/idletime.pl
new file mode 100644
index 0000000..34c5085
--- /dev/null
+++ b/scripts/idletime.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+#
+# Do you feel tired of typing /wii ick nick?
+# Just try idletime.pl :)
+# By Stefan "tommie" Tomanek (stefan@kann-nix.org)
+
+use strict;
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "20030208";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "idletime",
+    description => "Retrieves the idletime of any nick",
+    license     => "GPLv2",
+    url         => "",
+    changed     => "$VERSION",
+    commands    => "idle"
+);
+
+
+
+my %nicks;
+
+sub cmd_idle {
+    my ($nicks, $server) = @_;
+    foreach (split(/\s+/, $nicks)) {
+	push @{$nicks{$server->{chatnet}}}, $_;
+	$server->command("whois ".$_." ".$_);
+    }
+}
+
+sub event_server_event {
+    my ($server, $text, $nick, $user) = @_;
+    my @items = split(/ /,$text);
+    my $type = $items[0];
+    
+    if ( ($type eq 301) or ($type eq "311") or ($type eq "312") or ($type eq "317") or ($type eq "318") or ($type eq "319") ) {
+	my $name = $items[2];
+	my $i = 0;
+	if ( has_item($name,@{$nicks{$server->{chatnet}}}) ) {
+	    Irssi::signal_stop();
+	    print_idletime($name, $server, $items[3]) if ($type eq "317");
+	    splice(@{$nicks{$server->{chatnet}}},$i,1) if ($type eq "318");
+	    $i++;
+	}
+    }
+}
+
+sub has_item {
+    my ($item, @list) = @_;
+    foreach (@list) {
+	$item == $_ && return(1);
+    }
+    return(0)
+}
+
+sub print_idletime {
+    my ($name, $ircnet, $time) = @_;
+    my $hours = int($time / 3600);
+    my $minutes = int(($time % 3600)/60);
+    my $seconds = int(($time % 3600)%60);
+    $ircnet->print(undef,$name." is idle for ".$hours." hours, ".$minutes." minutes and ".$seconds." seconds.", MSGLEVEL_CRAP);
+}
+
+Irssi::command_bind('idle', 'cmd_idle');
+Irssi::signal_add('server event', 'event_server_event');
diff --git a/scripts/idonkey.pl b/scripts/idonkey.pl
new file mode 100644
index 0000000..39e3b4f
--- /dev/null
+++ b/scripts/idonkey.pl
@@ -0,0 +1,1408 @@
+# iDonkey for mldonkey
+#
+## by Stefan Tomanek
+#
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2004051601";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "iDonkey",
+    description => "equips Irssi with an interface to mldonkey",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    modules     => "IO::Socket::INET Data::Dumper LWP::UserAgent HTML::Entities",
+    sbitems     => "idonkey",
+    commands	=> "idonkey"
+);
+
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use IO::Socket::INET;
+use LWP::UserAgent;
+use HTML::Entities;
+use Data::Dumper;
+use POSIX;
+use vars qw($forked $timer $timer2 $index %downloads $nresults $seen $credits $noul %edlinks $expected);
+
+sub show_help() {
+    my $help = $IRSSI{name}." $VERSION
+/idonkey (downloads)
+    List your current downloads
+/idonkey launch
+    Start a new mldonkey process
+/idonkey quit
+    Quit the mldonkey
+/idonkey servers (connected)
+    List connected servers
+/idonkey servers all
+    List all servers
+/idonkey servers connect <num>
+    Connect to server with id <num>
+    or connect more servers
+/idonkey servers disconnect <num>
+    Disconnnect from server with id <num>
+/idonkey overnet (stats)
+    Print OverNet statistics
+/idonkey dllink (force) <link>
+    Download an ed2k-link
+/idonkey search <query>
+    Query the donkey network for a file
+/idonkey results
+    Display the results of the last query
+/idonkey get (force) <num1> <num2>
+    Download the named files
+/idonkey pause <filename>
+    Pause a download
+/idonkey resume <filename>
+    Resume a download
+/idonkey cancel <filename>
+    Cancel a download
+/idonkey commit
+    Move downloaded files to the incoming directory
+/idonkey settings show
+    Display the current mldonkey settings
+/idonkey settings change <key> <value>
+    Change settings of mldonkey
+/idonkey shares reshare
+    Check all shared files
+/idonkey shares close
+    Close all open file descriptors
+/idonkey sharereactor (latest)
+    Display the latest releases
+/idonkey sharereactor search <query>
+    Search www.sharereactor.com
+/idonkey sharereactor download <release>
+    Download all files of a release
+/idonkey bittorrent search <quer>
+    Search torrents
+/idonkey noupload <min>
+    Disable uploading for <min> minutes
+/idonkey client-stats
+    Display detailed client statistics
+/idonkey forget
+    Clear all searches
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box($IRSSI{name}, $text, "help", 1);
+}
+
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+    	$box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    unless ($colour) {
+	$box =~ s/%(.)/$1 eq '%'?$1:''/eg;
+    }
+    return $box;
+}   
+
+sub array2table {
+    my (@array) = @_;
+    my @width;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)-1) {
+	    my $l = $line->[$_];
+	    $l =~ s/%[^%]//g;
+	    $l =~ s/%%/%/g;
+            $width[$_] = length($l) if $width[$_]<length($l);
+        }
+    }   
+    my $text;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)-1) {
+	    my $l = $line->[$_];
+            $text .= $line->[$_];
+	    $l =~ s/%[^%]//g;
+	    $l =~ s/%%/%/g;
+            $text .= " "x($width[$_]-length($l)+1) unless ($_ == scalar(@$line)-1);
+        }
+        $text .= "\n";
+    }
+    return $text;
+}
+
+sub donkey_connect {
+    my $host = Irssi::settings_get_str('idonkey_host');
+    my $port = Irssi::settings_get_int('idonkey_port');
+    my $password = Irssi::settings_get_str('idonkey_password');
+    my $sock = IO::Socket::INET->new(PeerAddr => $host,
+                                     PeerPort => $port,
+                                     Proto    => 'tcp');
+    return 0 unless $sock;
+    my $password = Irssi::settings_get_str('idonkey_password');
+    while ($_ = $sock->getline()) {
+	s/\e.*?m//g;
+	if (/Use \? for help/) {
+	    $sock->print("auth ".$password."\n");
+	} elsif (/Full access enabled/) {
+	    $sock->print("ansi false\n");
+	    foreach (1..3) {
+		$sock->getline();
+	    }
+	    return $sock;
+	} elsif (/Bad login\/password/) {
+	    $sock->close();
+	    return 0;
+	}
+    }
+}
+
+sub bg_do ($) {
+    my ($cmd) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    return if $forked > 1;
+    $forked++;
+    my $pid = fork();
+    if ($pid > 0) {
+        close $wh;
+        Irssi::pidwait_add($pid);
+        my $pipetag;
+        my @args = ($rh, \$pipetag);                                                    $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args); 
+    } else {
+	eval {
+	    my $result;
+	    if ($cmd eq 'downloads') {
+		$result->{downloads} = get_downloads();
+	    } elsif ($cmd =~ /^(pause|cancel|resume) (.*)/) {
+		transfer_command($1, $2);
+	    } elsif ($cmd =~ /^results *(.*)/) {
+		$result->{results} = get_results($1);
+	    } elsif ($cmd eq 'servers') {
+		$result->{servers} = get_servers(0);
+	    } elsif ($cmd eq 'allservers') {
+		$result->{servers} = get_servers(1);
+	    } elsif ($cmd eq 'status') {
+		if (Irssi::settings_get_bool('idonkey_update_results')) {
+		    #$result->{nresults} = scalar @{ get_results('/.*/')->{results} };
+		}
+		$result->{status} = get_status_info();
+	    } elsif ($cmd eq 'ovstats') {
+		$result->{ovstats} = get_ovstats();
+	    } elsif ($cmd =~ /^settings (.*?)$/) {
+		my $regexp = $1;
+		$regexp = '.*' unless $regexp;
+		$result->{settings} = get_settings($regexp);
+	    } elsif ($cmd =~ /^set (.*?) (.*)$/) {
+		my ($key, $val) = ($1, $2);
+		$result->{change} = change_setting($key, $val);
+	    } elsif ($cmd eq 'reshare') {
+		$result->{reshare} = reshare();
+	    } elsif ($cmd eq 'close_fds') {
+		$result->{close_fds} = close_fds();
+	    } elsif ($cmd =~ /^sr-search (.*)$/) {
+		$result->{sr_search} = sharereactor_search($1);
+	    } elsif ($cmd eq "sr-latest") {
+		$result->{sr_latest} = sharereactor_latest();
+	    } elsif ($cmd =~ /^bt-search (.*)$/) {
+		$result->{bt_search} = bittorrent_search($1);
+	    } elsif ($cmd =~ /^noupload (.*)$/) {
+		$result->{noupload} = no_upload($1);
+	    } elsif ($cmd eq 'client-stats') {
+		$result->{client_stats} = get_client_stats();
+	    } elsif ($cmd eq 'forget') {
+		$result->{forget} = forget_searches();
+	    } elsif ($cmd =~ /^fake (.*)/) {
+		$result->{fake} = check_fake($1);
+	    }
+	    my $dumper = Data::Dumper->new([$result]);
+	    $dumper->Purity(1)->Deepcopy(1);
+	    my $text = $dumper->Dump;
+	    print($wh $text);
+	    #store_fd $result, $wh;
+	    close($wh);
+	};
+	POSIX::_exit(1);
+    }
+    
+}
+
+sub pipe_input {
+    my ($rh, $pipetag) = @{$_[0]};
+    $forked--;
+    Irssi::input_remove($$pipetag);
+    my $text;
+    $text .= $_ foreach <$rh>;
+    #print "RETURN";
+    #print $text;
+    no strict 'vars';
+    my $result = eval "$text";
+    return unless ref $result;
+    %downloads = %{ $result->{downloads} } if ref $result->{downloads};
+    $expected = $result->{results}->{waiting} if defined  $result->{results} && $result->{results}->{waiting};
+    show_client_stats($result->{client_stats}) if ref $result->{client_stats};
+    list_downloads($result->{downloads}) if ref $result->{downloads};
+    list_results($result->{results}) if ref $result->{results};
+    list_servers($result->{servers}) if ref $result->{servers};
+    show_ovstats($result->{ovstats},0) if ref $result->{ovstats};
+    show_settings($result->{settings}) if ref $result->{settings};
+    show_change($result->{change}) if ref $result->{change};
+    update_status($result->{status}) if ref $result->{status};
+    show_sr_search($result->{sr_search}) if ref $result->{sr_search};
+    show_sr_latest($result->{sr_latest}) if ref $result->{sr_latest};
+    show_bt_search($result->{bt_search}) if ref $result->{bt_search};
+    store_links($result->{sr_search}) if ref $result->{sr_search};
+    store_links_bt($result->{bt_search}) if ref $result->{bt_search};
+    $nresults = $result->{nresults} if $result->{nresults};
+    
+    show_fake($result->{fake}) if $result->{fake};
+    print CLIENTCRAP "%B>>%n Forgot ".$result->{forget}." searche(s)" if exists $result->{forget};
+    print CLIENTCRAP "%B>>%n Upload disabled for ".$result->{noupload}->[0]." minutes" if exists $result->{noupload};
+    print CLIENTCRAP "%B>>%n Shares have been checked" if $result->{reshare};
+    print CLIENTCRAP "%B>>%n Files have been closed" if $result->{close_fds};
+}
+
+sub show_fake ($) {
+    my ($data) = @_;
+    my $name = $data->{filename};
+    my $hash = $data->{hash};
+    my $text = "%B>>%n '".$name."' [".$hash."] is ";
+    $text .= 'not ' unless $data->{fake};
+    $text .= 'a fake';
+    print CLIENTCRAP $text;
+}
+
+sub store_links ($) {
+    my ($results) = @_;
+    %edlinks = ();
+    foreach (@$results) {
+	$edlinks{$_->{name}} = $_->{files};
+    }
+}
+
+sub store_links_bt ($) {
+    my ($results) = @_;
+    %edlinks = ();
+    foreach (@$results) {
+        $edlinks{$_->{name}} = [ $_->{torrent} ];
+    }
+}
+
+
+sub check_fake ($) {
+    my ($num) = @_;
+    my $results = get_results('/.*/');
+    my $res;
+    foreach (@{$results->{results}}) {
+	#print $num."  ".$_->{id};
+	$res = $_ if $_->{id} eq $num;
+    }
+    return undef unless $res;
+    $res->{fake} = is_fake($res->{hash});
+    return $res;
+}
+
+sub forget_searches {
+    my $sock = donkey_connect();
+    return undef unless $sock;
+    my $i = 0;
+    foreach (keys %{ get_queries() }) {
+	$sock->print('forget '.$_."\n");
+	$i++;
+    }
+    $sock->print("q\n");
+    $sock->close();
+    return $i;
+}
+
+sub show_client_stats ($) {
+    my ($data) = @_;
+    my @table;
+    foreach (sort keys %$data) {
+	my $first = 1;
+	foreach my $item (sort keys %{ $data->{$_} }) {
+	    next if $item eq 'banned';
+	    next if $item eq 'seen';
+	    next if $data->{$_}{$item}{num} == 0;
+	    my @line;
+	    push @line, $first ? "%9".$_."%9" : '';
+	    $first = 0;
+	    push @line, uc substr($item, 0, 1);
+	    push @line, $data->{$_}{$item}{percent}."%";
+	    push @line, '#'x(80/100 * $data->{$_}{$item}{percent});
+	    push @table, \@line;
+	}
+    }
+    my $text = array2table(@table);
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'Client Stats', 1);
+}
+
+sub show_sr_latest ($) {
+    my ($results) = @_;
+    my @table;
+    foreach (@$results) {
+	push @table, [$_->{date}, $_->{category}, "%9".$_->{title}."%9"];
+	#$text .= $_->{date}." %9".$_->{title}."%9 [".$_->{category}."]\n";
+    }
+    my $text = array2table(@table);
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'Sharereactor latest releases', 1);
+}
+
+sub show_sr_search ($) {
+    my ($results) = @_;
+    my $text;
+    foreach (@$results) {
+	$text .= "%9".$_->{name}."%9 [".$_->{category}."]\n";
+	foreach (@{ $_->{files} }) {
+	    $text .= '-> '.$_."\n";
+	}
+    }
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'ShareReactor', 1);
+}
+
+sub show_bt_search ($) {
+    my ($results) = @_;
+    my $text;
+    foreach (@$results) {
+	$text .= "%9".$_->{name}."%9\n";
+	my $url = $_->{torrent};
+	$url =~ s/%/%%/g;
+	$text .= "-> $url\n";
+    }
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'BitTorrent results', 1);
+}
+
+sub show_change (\%) {
+    my ($change) = @_;
+    print CLIENTCRAP "%B>>%n [iDonkey] Setting %9".$change->{key}."%9 changed from '".$change->{old}."' to '".$change->{new}."'";
+}
+
+sub show_settings (\%) {
+    my ($settings) = @_;
+    my @table;
+    foreach (sort keys %$settings) {
+	push @table, ["%9".$_."%9", $settings->{$_}];
+    }
+    my $text = array2table(@table);
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'settings', 1);
+}
+
+sub show_ovstats (\%$) {
+    my ($stats, $nodes) = @_;
+    my $text;
+    
+    if ($nodes) {
+	$text .= "%9Connected nodes:%9\n";
+	$text .= '  '.$_."\n" foreach @{ $stats->{nodes} };
+	$text .= "\n";
+    }
+    #$text .= @{ $stats->{nodes} }." connected nodes\n\n";
+    $text .= "%9Search hits:%9 ".$stats->{search_hits}."\n";
+    $text .= "%9Source hits:%9 ".$stats->{source_hits};
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'OverNet stats', 1);
+}
+
+sub update_status (\%) {
+    my ($data) = @_;
+    return unless ref $data;
+    $expected = $data->{waiting};
+    $noul = $data->{noupload};
+    $credits = $data->{credit};
+    %downloads = %{ $data->{downloads} };
+    Irssi::statusbar_items_redraw('idonkey');
+}
+
+sub no_upload ($) {
+    my ($min) = @_;
+    my $sock = donkey_connect();
+    return undef unless $sock;
+    my $noup;
+    my $credit;
+    $sock->print('nu '.$min."\n");
+    $sock->flush();
+    $sock->print("vu\n");
+    while ($_ = $sock->getline()) {
+	if (/^Upload credits : (\d+) minutes$/) {
+	    $credit = $1;
+	} elsif (/^Upload disabled for (\d+)/) {
+	    $noup = $1;
+	    $sock->close();
+	}
+    }
+    return [$noup, $credit];
+}
+
+sub get_client_stats {
+    my %stats;
+    my $sock = donkey_connect();
+    return \%stats unless $sock;
+    $sock->print("client_stats\n");
+    my $op;
+    while ($_ = $sock->getline()) {
+	if (/Total seens:/) {
+	    $op = "seen";
+	} elsif (/Total filerequests received:/) {
+	    $op = "requests";
+	} elsif (/Total downloads:/) {
+	    $op = "downloads";
+	} elsif (/Total uploads:/) {
+	    $op = "uploads";
+	} elsif (/Total banneds:/) {
+	    $op = "banned";
+	} elsif (/^ *(.*?): *(\d+) \((\d+\.\d+) %\)/) {
+	    $stats{$1}{$op}{num} = $2;
+	    $stats{$1}{$op}{percent} = $3;
+	} elsif (/^$/) {
+	    $sock->close();
+	    last;
+	}
+    }
+    return \%stats;
+}
+
+sub get_downloads {
+    my %downloads;
+    my $sock = donkey_connect();
+    return \%downloads unless $sock;
+    $sock->print("vd\n");
+    my $ready;
+    my $nfiles;
+    my @files;
+    my $sent;
+    while ($_ = $sock->getline()) {
+	my $line = $_;
+	#print $line foreach (1..100);
+	if (/^Downloaded (\d+)\/(\d+) files/) {
+	    $nfiles = $1+$2;
+	#} elsif (/^\[(.*?) *(\d+) *?\] +(?:.*?) +([-0-9.]+) +(?:-?\d+) +(?:\d+) +[\d-]+:([\d-]+) +([0-9.-]+|Paused|Queued)/) {
+	} elsif (/^\[(.*?) *(\d+) *?\] +(?:.*?) +([-0-9.]+) +(?:-?\d+) +(?:\d+) +(?:\d+) +[\d-]+:([\d-]+) +\d+\/\d+ +([0-9.-]+|Paused|Queued)/) {
+	    #print $_;
+	    my $id = $2;
+	    $downloads{$id}{percent} = $3;
+	    $downloads{$id}{available} = ($4 == 0) ? 1 : 0;
+	    $downloads{$id}{rate} = $5;
+	    push @files, $id;
+	} elsif (/^ *\[(.*?) *(\d+) *?\] +(.*?) +(\d+) +[0-9A-Z]{32}/) {
+	    my $id = $2;
+	    $downloads{$id}{net} = $1;
+	    $downloads{$id}{percent} = 100;
+	    $downloads{$id}{rate} = "Completed";
+	    $downloads{$id}{size} = $4;
+	    $downloads{$id}{downloaded} = $4;
+	    push @{ $downloads{$id}{names} }, $3;
+	    #$sock->print("vd ".$id."\n");
+	    push @files, $id;
+	} elsif (/\[(.*?) *(\d+) *?\] +(.*?) +(\d+) +(\d+)$/) {
+	    $downloads{$sent}{net} = $1;
+	    $downloads{$sent}{size} = $4;
+	    $downloads{$sent}{downloaded} = $5;
+	    push @{ $downloads{$sent}{names} }, $3;
+	} elsif (/^    \((.*?)\)$/) {
+	    push @{ $downloads{$sent}{names} }, $1;
+	} elsif (/^(\d+) sources:/) {
+	    $downloads{$sent}{sources} = $1;
+	    $sent = undef;
+	    #$downloads{$processing}{onlist} = 0;
+	} elsif (/^Chunks: \[(\d+)\]/ && not $downloads{$sent}{net} eq 'BitTorrent') {
+	    foreach (split(//, $1)) {
+		push @{ $downloads{$sent}{chunks} }, $_;
+		#print $processing if $processing eq '3';
+	    }
+	}
+	$ready = 1 if (@files == $nfiles);
+	#} elsif (/^ *(?:.*?) \(last_ok <(?:.*?)> lasttry <(?:.*?)> nexttry <(?:.*?)> onlist (true|false)\)$/) {
+	#    $downloads{$processing}{onlist}++ if $1 eq 'true';
+	#}
+	if (($nfiles == 0) || defined @files && @files == 0 && not defined $sent) {
+	    $sock->close();
+	    return \%downloads;
+	} else {
+	    if ($ready && not defined $sent) {
+		$sent = pop @files;
+		if (1) {
+		    $sock->close();
+		    $sock = donkey_connect();
+		    #$sock->print("id\n");
+		    $sock->print('vd '.$sent."\n");
+		    # What a hack :) FIXME in mldonkey
+		} else {
+		    $sent = undef;
+		}
+	    }
+	}
+    }
+}
+
+sub transfer_command ($$) {
+    my ($cmd, $transfer) = @_;
+    my $sock = donkey_connect();
+    return undef unless $sock;
+    my $downloads = get_downloads();
+    if ($downloads->{$transfer}) {
+	$sock->print($cmd." ".$transfer."\n");
+    } else {
+	foreach (keys %$downloads) {
+	    foreach my $name (@{$downloads->{$_}{names}}) {
+		next unless $name eq $transfer;
+		$sock->print($cmd." ".$_."\n");
+	    }
+	}
+    }
+    $sock->close();
+}
+
+sub sharereactor_latest {
+    my $ua = LWP::UserAgent->new(env_proxy => 1,
+ 				 keep_alive => 1,
+                                 timeout => 30);
+    my $response = $ua->get('http://www.sharereactor.com/');
+    my @releases;
+    foreach (split /\n/, $response->content() ) {
+	if (/^<a href="release\.php\?id=(\d+)">(\d+\.\d+\.\d+) - (.*?)<\/a> <a href="category\.php\?id=\d+">\((.*?)\)<\/a><br>/) {
+	    #print "FOO";
+	    my $new = { date => $2, id => $1, title => $3, category => $4 };
+	    push @releases, $new;
+	}
+    }
+    return \@releases;
+}
+
+sub sharereactor_search ($) {
+    my ($query) = @_;
+    my $enc_query = HTML::Entities::encode($query);
+    my $ua = LWP::UserAgent->new(env_proxy => 1,
+ 				 keep_alive => 1,
+                                 timeout => 30);
+    my $response = $ua->get('http://www.sharereactor.com/search.php?search='.$enc_query.'&category=0');
+    return unless $response->is_success();
+    my @results;
+    foreach (split /\n/, $response->content()) {
+        if (/<a href="release\.php\?id=(\d+)">(.*?)<\/a>/) {
+            push @results, { name => $2, id => $1 };
+
+	    my $ua2 = LWP::UserAgent->new(env_proxy => 1,
+			   		  keep_alive => 1,
+					  timeout => 30);
+            my $response2 = $ua2->get('http://www.sharereactor.com/downloadrelease.php?id='.$1);
+            foreach (split /\n/, $response2->content()) {
+                if (/"(ed2k:\/\/\|file\|.*?\|\d+\|.*?\|)";/) {
+                    push @{ $results[-1]->{files} }, $1;
+                }
+            }
+        } elsif (/<a href="category\.php\?id=\d+">(.*?)<\/a>/) {
+            $results[-1]->{category} = $1;
+        }
+    }
+    #print $_->{name}." ".$_->{id}."\n" foreach @results;
+    return \@results;
+}
+
+sub bittorrent_search ($) {
+    my ($query) = @_;
+    my $enc_query = HTML::Entities::encode($query);
+    my $ua = LWP::UserAgent->new(env_proxy => 1,
+                                 keep_alive => 1,
+                                 timeout => 30);
+    my $response = $ua->get('http://www.bytemonsoon.com/?search='.$enc_query.'&cat=0&incldead=0');
+    return unless $response->is_success();
+    my @results;
+    foreach (split /\n/, $response->content()) {
+	if (/^<td><a href="details\.php\?id=(\d+)&amp;hit=1"><b>(.*?)<\/b><\/a><\/td>$/) {
+	    push @results, { name => $2, id => $1 };
+	} elsif (/^<td align="center"><a href="(.*?)">torrent<\/a><\/td>$/) {
+	    $results[-1]->{torrent} = "http://www.bytemonsoon.com/$1";
+	}
+    }
+    return \@results
+}
+
+sub get_ovstats {
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("ovstats\n");
+    my $result; 
+    $result->{nodes} = [];
+    while ($_ = $sock->getline()) {
+	if (/^ +(\d+\.\d+\.\d+.\d+:\d+)$/) {
+	    push @{ $result->{nodes} }, $1;
+	} elsif (/^  Search hits: (\d+)$/) {
+	    $result->{search_hits} = $1;
+	} elsif (/^  Source hits: (\d+)$/) {
+	    $result->{source_hits} = $1;
+	} elsif (/^$/) {
+	    last;
+	}
+    }
+    return $result;
+}
+
+sub is_fake ($) {
+    my ($hash) = @_;
+    my $ua = LWP::UserAgent->new(env_proxy => 1,
+ 				 keep_alive => 1,
+                                 timeout => 30);
+    my $url = 'http://edonkeyfakes.ath.cx/fakecheck/update/fakecheck.php';
+    my %form = ( hash => $hash );
+    my $response = $ua->post($url, \%form);
+    return unless $response->is_success();
+    return not ($response->content() =~ /Your query didn't match anything in our fakedatabase\!/);
+}
+
+sub get_settings ($) {
+    my ($regexp) = @_;
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("voo\n");
+    my $result = {};
+    while ($_ = $sock->getline()) {
+	if (/^(.*?) = (.*?)$/) {
+	    my ($key, $val) = ($1, $2);
+	    #print "<".$regexp.">";
+	    next unless ($key =~ /$regexp/i);
+	    $result->{$key} = $val;
+	} else {
+	    $sock->close();
+	    return $result;
+	}
+    }
+}
+
+sub reshare {
+    my $sock = donkey_connect();
+    return 0 unless $sock;
+    $sock->print("reshare\n");
+    $sock->close();
+    return 1;
+}
+
+sub close_fds {
+    my $sock = donkey_connect();
+    return 0 unless $sock;
+    $sock->print("close_fds\n");
+    $sock->close();
+    return 1;
+}
+
+sub change_setting ($$) {
+    my ($key, $val) = @_;
+    my $result;
+    $result->{key} = $key;
+    $result->{old} = get_settings($key)->{$key};
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("set ".$key." ".$val."\n");
+    $sock->close();
+    #$result->{new} = $val;
+    $result->{new} = get_settings($key)->{$key};
+    return $result;
+}
+
+sub get_servers ($) {
+    my ($all) = @_;
+    my $sock = donkey_connect();
+    return unless $sock;
+    if ($all) {
+	$sock->print("vma\n");
+    } else {
+	$sock->print("vm\n");
+    }
+    my $result;
+    while ($_ = $sock->getline()) {
+	#if (/^\[(.*?) (\d+) *\] ([0-9.]+):(\d+) + (.*?) + (\d+) +(\d+) (Connected)?$/) {
+	if (/^\[(.*?) (\d+) *\] (.+):(\d+) + (.*?) + (\d+) +(\d+) (Connected)?$/) {
+	    my $server = { net     => $1,
+		           id      => $2,
+	                   ip      => $3,
+			   port    => $4,
+			   comment => $5,
+			   users   => $6,
+			   files   => $7
+			  };
+	    $result->{$2} = $server;
+	} elsif (/^ *$/) {
+	    $sock->close();
+	    return $result;
+	}
+    }
+}
+
+sub search_file ($) {
+    my ($query) = @_;
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("s ".$query."\n");
+    while ($_ = $sock->getline()) {
+	if (/Query \d+ Sent to \d+/) {
+	    $sock->close;
+	    return 1;
+	} elsif (/exception/) {
+	    $sock->close;
+	    return 0;
+	}
+    }
+}
+
+sub list_downloads ($) {
+    my ($data) = @_;
+    my $text = downloads2text($data, '/.*/'); #downloads_list($data, '/.*/');
+    print CLIENTCRAP &draw_box('iDonkey', $text, 'Downloads', 1);
+}
+
+sub get_best_name ($) {
+    my ($names) = @_;
+    my $result;
+    foreach (@$names) {
+	# It's a hash
+	$result = $_;
+	last unless /[A-Z0-9]{32}/;
+    }
+    return $result;
+}
+
+sub downloads2text ($$) {
+    my ($downloads, $regexp) = @_;
+    my $length = Irssi::settings_get_int('idonkey_max_filename_length');
+    my $text;
+    my @table;
+    my @chunks;
+    my @names;
+    my ($speed, $downloaded, $size) = (0,0,0);
+    foreach (sort {get_best_name($downloads->{$a}{names}) cmp get_best_name($downloads->{$b}{names})} keys %$downloads) {
+	my @line;
+	my $filename = get_best_name($downloads->{$_}{names});
+	my $name = shorten_filename($filename, $length);
+	$name =~ s/%/%%/g;
+	my $download;
+	# Color codes:
+	#  Yellow	Paused
+	#  Bold green	Completed
+	#  Green	Downloading & 100% available
+	#  Blue		Downloading, but not completly on network
+	if ($downloads->{$_}{rate} =~ /Paused|Queued/) {
+	    $download .= '%yo%n';
+	} elsif ($downloads->{$_}{rate} eq 'Completed') {
+	    $download .= '%Go%n';
+	} else {
+	    if ($downloads->{$_}{available}) {
+		$download .= '%go%n';
+	    } else {
+		$download .= '%bo%n';
+	    }
+	    $speed += $downloads->{$_}{rate};
+	}
+	$size += $downloads->{$_}{size};
+	$downloaded += $downloads->{$_}{downloaded};
+	$download .= ' %9'.$name.'%9 ('.$_.')';
+	push @names, $download;
+	#$text .= "\n" if 1;
+	push @line, round($downloads->{$_}{downloaded}, $downloads->{$_}{size});
+	#$text .= '     '.round($downloads->{$_}{downloaded}, $downloads->{$_}{size})."/";
+	push @line, round($downloads->{$_}{size},$downloads->{$_}{size});
+	push @line, '('.$downloads->{$_}{percent}.'%%)';
+	#$text .= round($downloads->{$_}{size},$downloads->{$_}{size})." (".$downloads->{$_}{percent}."%%)";
+	if ($downloads->{$_}{rate} =~ /^[0-9.]+$/) {
+	    push @line, $downloads->{$_}{rate}." kb/s";
+	} elsif ($downloads->{$_}{rate} eq '-') {
+	    push @line, "0 kb/s";
+	} else {
+	    push @line, $downloads->{$_}{rate};
+	}
+	#push @line, ' ['.$downloads->{$_}{sources}.'/'.$downloads->{$_}{onlist}.' @'.$downloads->{$_}{net}.']' if (defined $downloads->{$_}{sources});
+	my $netload = '[';
+	$netload .= $downloads->{$_}{sources}."@";
+	$netload .= $downloads->{$_}{net}.']';
+	push @line, $netload;
+	push @line, .$downloads->{$_}{tag};
+	#$text .= "\n";
+	if (1 || $downloads->{$_}{chunks}) {
+	    if (ref $downloads->{$_}{chunks} && @{$downloads->{$_}{chunks}} > 1) {
+		my $chunk;
+		$chunk .= '[';
+		foreach (@{$downloads->{$_}{chunks}}) {
+		    if ($_ > 1) {
+			$chunk .= '%g|%n';
+		    } elsif ($_ == 1) {
+			$chunk .= '%b:%n';
+		    } else {
+			$chunk .= '%r.%n';
+		    }
+		}
+		$chunk .= "]";
+		push @chunks, $chunk;
+	    } else {
+		push @chunks, "";
+	    }
+	}
+	push @table, \@line;
+    }
+    foreach (split /\n/, array2table(@table)) {
+	$text .= (shift @names)."\n";
+	$text .= "     ".$_."\n";
+	if (Irssi::settings_get_bool('idonkey_show_chunks')) {
+	    my $chunk = shift @chunks;
+	    $text .= "   ".$chunk."\n" if $chunk;
+	}
+    }
+    my $percent = $size > 0 ? ($downloaded / $size)*100 : 0; 
+    $percent = $1 if ($percent =~ /(\d+\.\d{1}).*?/);
+    if (keys %$downloads > 1) {
+	$text .= "".'%9Total:%9 ';
+	$text .= round($downloaded, $size).'/';
+	$text .= round($size, $size);
+	$text .= ' ('.$percent.'%%), '.$speed.' kb/s';
+    }
+    return $text;
+}
+
+sub round ($$) {
+    return $_[0] unless Irssi::settings_get_bool('idonkey_round_filesize');
+    if ($_[1] > 100000) {
+	return sprintf "%.2fMB", $_[0]/1024/1024;
+    } else {
+	return sprintf "%.2fKB", $_[0]/1024;
+    }
+}
+
+sub get_queries {
+    my $sock = donkey_connect();
+    # FIXME A real parser here?
+    return undef unless $sock;
+    $sock->print("vs\n");
+    my %result;
+    my $num;
+    while ($_ = readline($sock)) {
+	chop;
+	if (/^Searching (\d+) queries$/) {
+	    $num = $1;
+	} elsif (/^\[(\d+) *\](.*) .*?$/) {
+	    my $id = $1;
+	    my $regexp = $2;
+	    my @token = $regexp =~ /CONTAINS\[(.*?)\]/g;
+	    $result{$id} = \@token;
+	    $num--;
+	}
+	last if (defined $num && $num == 0);
+    }
+    return \%result;
+}
+
+sub get_results ($) {
+    my ($filter) = @_;
+    my $sock = donkey_connect();
+    my $net = '.*';
+    if ($filter =~ /-net (.*?)(?: |$)/) {
+	$net = $1;
+    }
+    #my $regexp = '.*';
+    my @filters;
+    while  ($filter =~ /(\!?)\/(.*?)\//g) {
+	my %entry = ( "reverse" => $1 ? 1 : 0,
+	              "regexp"  => $2
+		      );
+	push @filters, \%entry;
+    }
+    my $result;
+    my @results;
+    my $waiting = 0;
+    my $filtered = 0;
+    return undef unless $sock;
+    my $num = 0;
+    $sock->print("vr\n");
+    my @token;
+    while ($_ = readline($sock)) {
+	chop;
+	if (/^Result of search (\d+)$/) {
+	    my $searches = get_queries();
+	    @token = @{ $searches->{$1} } if ref $searches->{$1};
+	} elsif (/^(\d+) results \((?:done|(-?\d+) waiting)\)$/) {
+	    $num = $1;
+	    $waiting = $2 if $2;
+	    unless ($num) {
+		$sock->close();
+		last();
+	    }
+        } elsif (/^\[ *(\d+)\] (.*?(?: Napster)?) (.*)/) {
+	    # FIXME Find a better Solution for open Napster
+	    my %data = ( id=> $1, filename => $3, visible => 1, net => $2);
+	    
+	    $data{visible} = 1 unless @filters;
+	    foreach my $entry (@filters) {
+		next unless $data{visible};
+		my $regexp = $entry->{regexp};
+		my $reverse = $entry->{reverse};
+		if (not $reverse) {
+		    $data{visible} = 0 if not ($data{filename} =~ /$regexp/i);
+		} else {
+		    $data{visible} = 0 if ($data{filename} =~ /$regexp/i);
+		}
+	    }
+	    if (Irssi::settings_get_bool('idonkey_filter_search_results') && @token) {
+		foreach (@token) {
+	    	    $data{visible} = 0 unless $data{filename} =~ /$_/i;
+		    last unless $data{visible};
+		}
+		$data{visible} = 0 unless $data{net} =~ /$net/i;
+	    }
+            if (Irssi::settings_get_bool('idonkey_filter_nameless_results')) {
+		    $data{visible} = 0 unless $data{filename};
+            }
+	    push @results, \%data;
+	} elsif (/^ ALREADY DOWNLOADED$/) {
+	    $results[-1]->{downloaded} = 1;
+        } elsif (/^ +(-?\d+) ([0-9A-Z]{32}) (\d+)?/) {
+	    $results[-1]->{size} = $1;
+	    $results[-1]->{hash} = $2;
+	    $results[-1]->{sources} = $3;
+	    unless ($results[-1]->{visible}) {
+		pop @results;
+		$filtered++;
+	    } else {
+		#$results[-1]->{fake} = is_fake($results[-1]->{hash});
+	    }
+	} elsif (/No search to print/ || /^$/ || /^exception/) {
+	    $sock->close();
+	    last();
+	}
+    }
+    my $sortby = Irssi::settings_get_str('idonkey_sort_results_by');
+    @results = sort {uc($a->{$sortby}) <=> uc($b->{$sortby})} @results; 
+    $result->{results} = \@results;
+    $result->{waiting} = $waiting;
+    $result->{filtered} = $filtered;
+    return $result;
+}
+
+sub list_servers ($) {
+    my ($data) = @_;
+    my @text;
+    foreach (sort { $data->{$a}{id} <=> $data->{$b}{id} } keys %$data) {
+	push @text, ["%9".$data->{$_}{id}."%9", $data->{$_}{net}, $data->{$_}{ip}.':'.$data->{$_}{port}, $data->{$_}{users}, $data->{$_}{files}, $data->{$_}{comment}];
+    }
+    unshift @text, ["%9ID%9", "%9net%9", "%9address%9", "%9users%9", "%9files%9", "%9comment%9"] if @text;
+    print CLIENTCRAP &draw_box('iDonkey', array2table(@text), 'servers', 1);
+}
+
+sub list_results ($) {
+    my ($data) = @_;
+    my $results = $data->{results};
+    my @text;
+    $seen = $nresults;
+    my $length = Irssi::settings_get_int('idonkey_max_filename_length');
+    foreach (@$results) {
+	my @line;
+	next unless $_->{visible};
+	my $file = shorten_filename($_->{filename}, $length);
+	$file =~ s/%/%%/g;
+	push @line, '%9'.$_->{id}.'%9';
+	push @line, '%9'.$file.'%9';
+	push @line, $_->{fake} ? '%RF%n' : ''; 
+	push @line, $_->{downloaded} ? '%GD%n' : ''; 
+	push @line, $_->{net} if defined $_->{net};
+	push @line, '['.$_->{sources}.']';
+	push @line, round($_->{size}, $_->{size});
+	
+	push @text, \@line;
+    }
+    my $footer = 'Results';
+    $footer .= ' ('.$data->{filtered}.' filtered)' if $data->{filtered} > 0;
+    $footer .= ' ('.$data->{waiting}.' waiting)' if $data->{waiting} > 0;
+    print CLIENTCRAP &draw_box('iDonkey', array2table(@text), $footer, 1);
+}
+
+sub get_file ($$) {
+    my ($file, $force) = @_;
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("d ".$file."\n");
+    while ($_ = $sock->getline()) {
+	if (/download started/) {
+	    $sock->close();
+	    return 1;
+	} elsif (/(File already downloaded|could not start download)/) {
+	    if ($force) {
+		$sock->print("force_download\n");
+		$sock->close();
+		return 1
+	    } else {
+		$sock->close();
+		return 0;
+	    }
+	}
+    }
+}
+
+sub download_link ($$) {
+    my ($url, $force) = @_;
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("dllink ".$url."\n");
+    $sock->print("force_download\n") if $force;
+    while ($_ = $sock->getline()) {
+	if (/download (started|forced)|Done/) {
+	    $sock->close();
+	    return 1;
+	} elsif (/Unable|bad syntax|exception/ && not $force) {
+	    $sock->close();
+	    return 0;
+	}
+    }
+}
+
+sub connect_servers ($$) {
+    my ($ids, $disconnect) = @_;
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("c\n") unless (@$ids);
+    foreach (@$ids) {
+	if ($disconnect) {
+	    $sock->print("x ".$_."\n");
+	} else {
+	    $sock->print("c ".$_."\n");
+	}
+    }
+    $sock->close();
+}
+
+sub quit_donkey {
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("kill\n");
+    $sock->close();
+    return 1;
+}
+
+sub commit_downloads {
+    my $sock = donkey_connect();
+    return unless $sock;
+    $sock->print("commit\n");
+    $sock->close();
+    until ($_ = $sock->getline()) {
+	#if (/commited/) {
+	    return 1;
+	#} else {
+	#    return 0;
+	#}
+    }
+}
+
+sub get_status_info {
+    my $result;
+    $result->{downloads} = get_downloads();
+    $result->{waiting} = get_results('/.*/')->{waiting};
+    my $upload = no_upload(0);
+    $result->{credit} = $upload->[1];
+    $result->{noupload} = $upload->[0];
+    return $result;
+}
+
+sub cmd_idonkey ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    if (@arg == 0 || $arg[0] eq 'downloads') {
+	#list_downloads();
+	bg_do('downloads');
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    } elsif ($arg[0] =~ /pause|resume|cancel/ && defined $arg[1]) {
+	bg_do(join(' ', @arg));
+    } elsif ($arg[0] =~ /results/) {
+	bg_do(join(' ', @arg));
+    } elsif ($arg[0] eq 'search') {
+	shift @arg;
+	if (search_file(join(' ', @arg))) {
+	    $seen = 0;
+	    $nresults = 0;
+	    print CLIENTCRAP "%R>>%n Query '".join(' ', @arg)."' sent to network...";
+	}
+    } elsif ($arg[0] eq 'get' && defined $arg[1]) {
+	shift @arg;
+	my $force = 0;
+	foreach my $id (@arg) {
+	    if ($id eq 'force') {
+		$force = 1;
+	    } elsif (get_file($id, $force)) {
+		print CLIENTCRAP "%R>>%n Download of file ".$id." started";
+	    } else {
+		print CLIENTCRAP "%R>>%n Download of file ".$id." failed";
+	    }
+	}
+    } elsif ($arg[0] eq 'dllink' && defined $arg[1]) {
+	shift @arg;
+	join(' ', @arg) =~ /(force )?(.*)/;
+	my $force = defined $1 ? 1 : 0;
+	if (download_link($2, $1)) {
+	    print CLIENTCRAP "%R>>%n Download of ".$2." started";
+	} else {
+	    print CLIENTCRAP "%R>>%n Download of ".$2." failed";
+	}
+    } elsif ($arg[0] eq 'commit') {
+	if (commit_downloads()) {
+	    print CLIENTCRAP "%R>>%n Completed downloads saved";
+	} else {
+	    print CLIENTCRAP "%R>>%n Saving completed downloads failed";
+	}
+    } elsif ($arg[0] eq 'launch') {
+	my $cmd = Irssi::settings_get_str('idonkey_mldonkey_cmd');
+	system($cmd);
+	print CLIENTCRAP "%R>>%n MLDonkey launched";
+    } elsif ($arg[0] eq 'quit') {
+	if ( quit_donkey() ) {
+	    print CLIENTCRAP "%R>>%n MLDonkey killed";
+	} else {
+	    print CLIENTCRAP "%R>>%n Unable to kill MLDonkey";
+	}
+    } elsif ($arg[0] eq 'servers') {
+	shift @arg;
+	if ( (not @arg) || ($arg[0] eq 'connected') ) {
+	    bg_do('servers');
+	} elsif ($arg[0] eq 'disconnect') {
+	    shift @arg;
+	    connect_servers(\@arg, 1);
+	} elsif ($arg[0] eq 'connect') {
+	    shift @arg;
+	    connect_servers(\@arg, 0);
+	} elsif ($arg[0] eq 'all') {
+	    bg_do('allservers');
+	}
+    } elsif ($arg[0] eq 'overnet') {
+	shift @arg;
+	if ( (not @arg) || ($arg[0] eq 'stats') ) {
+	    bg_do('ovstats');
+	} elsif ($arg[0] eq 'nodes') {
+	    bg_do('ovnodes');
+	}
+    } elsif ($arg[0] eq 'settings') {
+	shift @arg;
+	if ( (not @arg) ) {
+	    # Do something
+	} elsif ($arg[0] eq 'show') {
+	    shift @arg;
+	    bg_do('settings '.join(' ',@arg));
+	} elsif ($arg[0] eq 'change') {
+	    shift @arg;
+	    return unless (defined $arg[0] && defined $arg[1]);
+	    my $key = shift @arg;
+	    my $val = join(' ', @arg);
+	    bg_do('set '.$key.' '.$val)
+	}
+    } elsif ($arg[0] eq 'shares') {
+	shift @arg;
+	if ( (not @arg) ) {
+	    ## list shares?
+	} elsif ($arg[0] eq 'reshare') {
+	    bg_do('reshare');
+	} elsif ($arg[0] eq 'close') {
+	    bg_do('close_fds');
+	}
+    } elsif ($arg[0] eq 'sharereactor') {
+	shift @arg;
+	if ( (not @arg) || $arg[0] eq 'latest') {
+	    print CLIENTCRAP "%B>>%n Retrieving latest releases...";
+	    bg_do('sr-latest');
+	} elsif ($arg[0] eq 'search') {
+	    shift @arg;
+	    bg_do('sr-search '.join(" ", @arg));
+	    print CLIENTCRAP "%B>>%n Searching ShareReactor for '".join(" ", @arg)."'";
+	} elsif ($arg[0] eq 'download' && defined $arg[1]) {
+	    shift @arg;
+	    download_sr(join(" ", @arg));
+	}
+    } elsif ($arg[0] eq 'bittorrent') {
+	shift @arg;
+	if ($arg[0] eq 'search') {
+	    shift @arg;
+	    bg_do('bt-search '.join(" ", @arg));
+	    print CLIENTCRAP "%B>>%n Searching BitTorrent for '".join(" ", @arg)."'";
+	}
+    } elsif ($arg[0] eq 'noupload') {
+	shift @arg;
+	if (@arg && $arg[0] =~ /-?\d+/) {
+	    bg_do('noupload '.$arg[0]);
+	}
+    } elsif ($arg[0] eq 'client-stats') {
+	bg_do('client-stats');
+    } elsif ($arg[0] eq 'forget') {
+	bg_do('forget');
+    } elsif ($arg[0] eq 'fake' && defined $arg[1]) {
+	shift @arg;
+	foreach (@arg) {
+	    next unless /\d+/;
+	    bg_do('fake '.$_);
+	}
+    }
+}
+
+sub download_sr ($) {
+    my ($download) = @_;
+    if (defined $edlinks{$download}) {
+	foreach my $link (@{ $edlinks{$download} }) {
+	    if (download_link($link,0)) {
+		print CLIENTCRAP "%R>>%n Download of ".$link." started";
+	    } else {
+		print CLIENTCRAP "%R>>%n Download of ".$link." failed";
+	    }
+	}
+    } else {
+	print CLIENTCRAP "%B>>%n Unknown release, try searching for it.";
+    }
+}
+
+
+sub shorten_filename ($$) {
+    my ($file, $length) = @_;
+    unless ($length == 0) {
+	my $post = 4;
+	my $pre = $length-5-$post;
+	$file =~ s/^(.{$pre}).*(.{$post})/$1\[\.\.\.\]$2/;
+    }
+    return $file;
+}
+
+sub filename_percent ($$) {
+    my ($name, $percent) = @_;
+    my $length = length($name);
+    my $done = $length * ($percent/100);
+    my $string = '%g%U'.substr($name, 0, $done).'%U%n%y'.substr($name, $done, $length).'%n';
+    return $string;
+}
+
+sub sb_idonkey ($$) {
+    my ($item, $get_size_only) = @_;
+    my $line;
+    $line .= $nresults."|" if ($seen != $nresults && defined $seen);
+    $line .= '%F'.$expected."%F|" if $expected > 0;
+    $line .= $noul."min|" if $noul > 0;
+    #my $length = Irssi::settings_get_int('idonkey_max_filename_length');
+    my $length = Irssi::settings_get_int('idonkey_statusbar_max_filename_length');
+    my $i = 0;
+    foreach (sort keys %downloads) {
+	$index = 0 if $index > (scalar keys %downloads)-1;
+	unless ($i == $index) {
+	    $i++;
+	    next;
+	}
+	unless (Irssi::settings_get_bool('idonkey_statusbar_show_paused')) {
+	    if ($downloads{$_}{rate} eq 'Paused') {
+		$index++;
+		next;
+	    }
+	}
+	my $filename = get_best_name($downloads{$_}{names});
+	my $file = shorten_filename($filename, $length);
+	$line .= filename_percent($file, $downloads{$_}{percent});
+	$line .= ' '.$downloads{$_}{percent}.'%% ';
+	unless ($downloads{$_}{rate} eq '-') {
+	    $line .= $downloads{$_}{rate};
+	    $line .= ' kb/s' if $downloads{$_}{rate} =~ /^[0-9.]+$/;
+	}
+	$line .= ' ';
+	$i++;
+    }
+    $line =~ s/ $//;
+    my $format = "{sb ".$line."}";
+    $item->{min_size} = $item->{max_size} = length($line);
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub call_for_status {
+    bg_do('status');
+}
+
+sub sig_complete_word ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    if ($linestart =~ /^.idonkey (pause|resume|cancel)/) {
+	foreach (sort {get_best_name($downloads{$a}{names}) cmp get_best_name($downloads{$b}{names})} keys %downloads) {
+	    my $name = get_best_name($downloads{$_}{names});
+	    if ( ($1 eq 'resume' && $downloads{$_}{rate} eq 'Paused') ||
+		($1 eq 'pause'  && not $downloads{$_}{rate} eq 'Paused') ||
+		($1 eq 'cancel') ) {
+		push @$list, $name if $name =~ /^(\Q$word\E.*)?$/i;
+	    }
+	}
+	Irssi::signal_stop();
+    } elsif ($linestart =~ /^.idonkey search/) {
+	my @opts = ('minsize', 'maxsize', 'media', 'Video', 'Audio', 'format', 'title', 'album', 'artist', 'field', 'not', 'and', 'or');
+	foreach (@opts) {
+	    $_ = '-'.$_;
+	    push @$list, $_ if /^(\Q$word\E.*)?$/i;
+	}
+	Irssi::signal_stop();
+    } elsif ($linestart =~ /^.idonkey sharereactor download/) {
+	foreach (sort keys %edlinks) {
+	    push @$list, $_ if /^(\Q$word\E.*)?$/i;
+	}
+	Irssi::signal_stop();
+    } elsif ($linestart =~ /^.idonkey dllink/) {
+	foreach (sort keys %edlinks) {
+	    foreach my $link (@{ $edlinks{$_} }) {
+		push @$list, $link if $link =~ /^(\Q$word\E.*)?$/i;
+	    }
+	}
+	Irssi::signal_stop();
+    } elsif ($linestart =~ /^.idonkey results/) {
+	my @opts = ('net');
+	foreach (@opts) {
+	    $_ = '-'.$_;
+	    push @$list, $_ if /^(\Q$word\E.*)?$/i;
+	}
+    }
+}
+
+sub next_status {
+    $index++;
+    $index = 0 if $index > (scalar keys %downloads)-1;
+    Irssi::statusbar_items_redraw('idonkey');
+}
+
+sub install_timer {
+    return if defined $timer;
+    my $timeout = Irssi::settings_get_int('idonkey_statusbar_interval');
+    my $timeout2 = Irssi::settings_get_int('idonkey_update_interval');
+    return unless $timeout && $timeout2;
+    $timer = Irssi::timeout_add($timeout*1000, \&next_status, undef);
+    $timer2 = Irssi::timeout_add($timeout2*1000, \&call_for_status, undef);
+}
+
+sub uninstall_timer {
+    return unless defined $timer;
+    Irssi::timeout_remove($timer);
+    Irssi::timeout_remove($timer2);
+    $timer = undef;
+}
+
+Irssi::command_bind('idonkey', \&cmd_idonkey);
+foreach my $cmd ('downloads', 'pause', 'resume', 'results', 'search', 'get', 'get force', 'cancel', 'help', 'commit', 'dllink', 'dllink force', 'launch', 'quit', 'servers', 'servers disconnect', 'servers connected', 'servers all', 'servers connect', 'overnet', 'overnet stats', 'overnet nodes', 'settings', 'settings show', 'settings change', 'shares', 'shares reshare', 'shares close', 'sharereactor', 'sharereactor search', 'sharereactor download', 'sharereactor latest', 'noupload', 'client-stats', 'forget', 'fake', 'bittorrent', 'bittorrent search') {
+    Irssi::command_bind('idonkey '.$cmd => sub {
+        cmd_idonkey("$cmd ".$_[0], $_[1], $_[2]); });
+}
+Irssi::signal_add_first('complete word', \&sig_complete_word);
+
+Irssi::settings_add_str($IRSSI{name}, 'idonkey_password', '');
+Irssi::settings_add_str($IRSSI{name}, 'idonkey_host', 'localhost');
+Irssi::settings_add_int($IRSSI{name}, 'idonkey_port', 4000);
+Irssi::settings_add_int($IRSSI{name}, 'idonkey_max_filename_length', 65);
+# sources, filename, id, size
+Irssi::settings_add_str($IRSSI{name}, 'idonkey_sort_results_by', "id");
+Irssi::settings_add_bool($IRSSI{name}, 'idonkey_round_filesize', 1);
+
+
+Irssi::settings_add_bool($IRSSI{name}, 'idonkey_filter_nameless_results', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'idonkey_filter_search_results', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'idonkey_show_chunks', 1);
+
+Irssi::settings_add_str($IRSSI{name}, 'idonkey_mldonkey_cmd', 'screen mldonkey');
+Irssi::settings_add_int($IRSSI{name}, 'idonkey_statusbar_interval', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'idonkey_statusbar_show_paused', 1);
+Irssi::settings_add_int($IRSSI{name}, 'idonkey_update_interval', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'idonkey_update_results', 1);
+Irssi::settings_add_int($IRSSI{name}, 'idonkey_statusbar_max_filename_length', 25);
+
+Irssi::statusbar_item_register('idonkey', 0, "sb_idonkey");
+
+install_timer();
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded, /idonkey help';
diff --git a/scripts/ignore_log.pl b/scripts/ignore_log.pl
new file mode 100644
index 0000000..77f3c0f
--- /dev/null
+++ b/scripts/ignore_log.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+
+# ignore_log.pl (ignore_log -- send [some] ignored events to log), Version 0.1
+# this script is dedicated to bormann@IRCNET.
+#
+# Copyleft (>) 2004 jsn <jason@nichego.net>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# The complete text of the GNU General Public License can be found
+# on the World Wide Web: <URL:http://www.gnu.org/licenses/gpl.html>
+
+use strict;
+use Irssi;
+
+use	POSIX qw/strftime/ ;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.1";
+%IRSSI = (
+	authors		=> 'Dmitry "jsn" Kim',
+	contact		=> 'jason@nichego.net',
+	name		=> 'ignore_log',
+	description	=> 'script to log ignored messages',
+	license		=> 'GPL',
+	url		=> 'http://',
+	changed		=> '2004-09-10',
+	changes		=> 'initial version'
+);
+
+Irssi::print("*****\n* $IRSSI{name} $VERSION loaded.");
+Irssi::print("*  use `/set ignore_log <filename>' to configure") ;
+Irssi::print("*  use `/set ignore_log none' to disable ignore logging") ;
+
+sub	handle_public {
+	my	($srv, $msg, $nick, $addr, $tgt) = @_;
+	return if lc(Irssi::settings_get_str("ignore_log")) eq "none" ;
+	write_log($nick, $msg, $tgt)
+	    if $srv->ignore_check($nick, $addr, $tgt, $msg, MSGLEVEL_PUBLIC) ;
+}
+
+sub	handle_private {
+	my	($srv, $msg, $nick, $addr) = @_;
+	return if lc(Irssi::settings_get_str("ignore_log")) eq "none" ;
+	write_log($nick, $msg)
+	    if $srv->ignore_check($nick, $addr, "", $msg, MSGLEVEL_MSGS) ;
+}
+
+sub	write_log {
+    	my	($nick, $msg, $tgt) = @_ ;
+	$tgt ||= "->" ;
+	my	($lfile) = glob Irssi::settings_get_str("ignore_log");
+	if (open(LF, ">>$lfile")) {
+	    my	$ts = strftime("%D %H:%M", localtime()) ;
+	    print LF "[$ts] $tgt $nick $msg\n" ;
+	    close LF ;
+	} else {
+	    Irssi::active_win()->print("can't open file `$lfile': $!") ;
+	}
+}
+
+Irssi::settings_add_str("ignore_log", "ignore_log", "~/.irssi/ignore.log");
+
+Irssi::print("*  logging ignored users to `" .
+	Irssi::settings_get_str("ignore_log") . "'") ;
+
+Irssi::signal_add_first("message public", "handle_public") ;
+Irssi::signal_add_first("message private", "handle_private") ;
+
diff --git a/scripts/ignoreoc.pl b/scripts/ignoreoc.pl
new file mode 100644
index 0000000..de5d86c
--- /dev/null
+++ b/scripts/ignoreoc.pl
@@ -0,0 +1,64 @@
+#!/usr/bin/perl -w
+use Irssi;
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.6";
+%IRSSI = (
+    authors     => "Erkki Seppälä",
+    contact     => "flux\@inside.org",
+    name        => "Ignore-OC",
+    description => "Ignore messages from people not on your channels." .
+		   "Now people you msg are added to bypass-list.",
+    license     => "Public Domain",
+    url         => "http://www.inside.org/~flux/software/irssi/",
+    changed     => "Mon Jun 16 08:10:45 EEST 2008"
+);
+
+my %bypass = ();
+
+my $ignoredMessages = 0;
+
+sub cmd_message_private {
+  my ($server, $message, $nick, $address) = @_;
+  my $channel;
+
+=cut
+  my ($addressNick) = $address =~ /^([^@]*)/;
+
+  if ($addressNick ne $server->{nick}) {
+    Irssi::print "Irssi bug? Received a message sent to $address";
+    return 1;                                                     
+  }
+=cut
+   
+  if ($message =~ m/oc:/i ||
+      exists $bypass{$nick}) {
+    return 1;
+  }
+
+  foreach $channel ($server->channels()) {
+    foreach my $other ($channel->nicks()) {
+      if ($other->{nick} eq $nick) {
+        return 1;
+      }
+    }
+  }
+
+  ++$ignoredMessages;
+  $server->command("^NOTICE $nick You're not on any channel I'm on, thus, due to spambots, your message was ignored. Prefix your message with 'OC:' to bypass the ignore.");
+  Irssi::signal_stop();
+}
+
+sub cmd_message_own_private {
+  my ($server, $message, $nick, $address) = @_;
+  $bypass{$nick} = 1;
+}
+
+sub cmd_ignoreoc {
+  Irssi::print("You've ignored $ignoredMessages messages since startup.");
+}
+
+Irssi::signal_add_first("message private", "cmd_message_private");
+Irssi::signal_add("message own_private", "cmd_message_own_private");
+Irssi::command_bind("ignoreoc", "cmd_ignoreoc");
+
+Irssi::print "IgnoreOC version $VERSION by flux with patches from Exstatica. Try /ignoreoc"
diff --git a/scripts/ignorsula.pl b/scripts/ignorsula.pl
new file mode 100644
index 0000000..0dfe938
--- /dev/null
+++ b/scripts/ignorsula.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.999999999543675475473856-FDIV-final";
+%IRSSI = (
+	authors		=> 'apic',
+	contact		=> 'apic@IRCnet',
+	name		=> 'ignorsula',
+	description	=> 'script to show ignored message in censored form',
+	license		=> 'public domina', #no typo
+	url		=> 'http://irssi.apic.name/ignorsula.pl',
+);
+
+Irssi::theme_register(['stopp', "\02\03" . "0,4STOPP\03\02 {msgnick \$0}"]);
+
+sub handle_msg {
+	my ($srv, $msg, $nick, $addr, $dst) = @_;
+	if($srv->ignore_check($nick, $addr, $dst, $msg, MSGLEVEL_PUBLIC)) {
+	        $srv->printformat($dst, MSGLEVEL_PUBLIC, "stopp", $nick);
+        }
+}
+
+Irssi::signal_add_first("message public", "handle_msg");
+Irssi::signal_add_first("message private", "handle_msg");
+Irssi::signal_add_first("ctcp action", "handle_msg");
diff --git a/scripts/il.pl b/scripts/il.pl
new file mode 100644
index 0000000..b947c4a
--- /dev/null
+++ b/scripts/il.pl
@@ -0,0 +1,104 @@
+#
+# for all who dont like perl:
+#   inputlength = "{sb length: $@L}";
+#
+#  with leading spaces: (3 spaces in example)
+#    inputlength = "{sb $[-!3]@L}"; 
+#
+#  with leading char "-"
+#
+#    inputlength = "{sb $[-!3-]@L}"; 
+#
+#   you cant use numbers here. if you want to use the numbers use the 
+#   perl script
+#
+#
+# thanks to: Wouter Coekaerts <wouter@coekaerts.be> aka coekie
+#
+# add one of these 2 lines to your config in statusbar items section
+# 
+# the perl scripts  reacts on every keypress and updates the counter. 
+# if you dont need/want this the settings are maybe enough for you.
+# with the settings the item is update with a small delay.
+#
+
+use strict;
+use Irssi 20021105; 
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.0.5';
+%IRSSI = (
+    authors     => 'Marcus Rueckert',
+    contact     => 'darix@irssi.org',
+    name        => 'inputlength',
+    description => 'adds a statusbar item which show length of the inputline',
+    license     => 'BSD License or something more liberal',
+    url         => 'http://www.irssi.de./',
+    changed     => '2003-01-13T13:17:44Z'
+);
+
+sub beancounter {
+    my ( $sbItem, $get_size_only ) = @_;
+
+    my ( $width, $padChar, $padNum, $length ); 
+
+	#
+	# getting settings
+	#
+    $width = Irssi::settings_get_int ( 'inputlength_width' );
+	$padChar = Irssi::settings_get_str ( 'inputlength_padding_char' );
+
+	#
+	# only one char allowed
+	#
+    $padChar =~ s/^(.).*?$/$1/;
+
+	#
+	# do we have to deal wit numbers for padding?
+    #  
+    if ( $padChar =~ m/\d/ ) {
+		$padNum = $padChar;
+		$padChar = '-';
+	};
+
+	#
+	# getting formatted lengh
+	#
+	$length = Irssi::parse_special ( "\$[-!$width$padChar]\@L" );
+
+	#
+	# did we have a number?
+	#
+    $length =~ s/$padChar/$padNum/g if ( $padNum ne '' );
+
+    $sbItem->default_handler ( $get_size_only, "{sb $length}", undef, 1 );
+}
+
+Irssi::statusbar_item_register ( 'inputlength', 0, 'beancounter' );
+#
+# ToDo:
+#  - statusbar item register doesnt support function references. 
+#    so we have to stuck to the string and wait for cras.
+#
+
+Irssi::signal_add_last 'gui key pressed' => sub {
+    Irssi::statusbar_items_redraw ( 'inputlength' );
+};
+
+Irssi::settings_add_int ( 'inputlength', 'inputlength_width', 0 );
+#
+# setting:
+# 
+# 0 means it resizes automatically
+# greater means it has at least a size of n chars.
+# it will grow if the space is to space is too small
+#
+ 
+Irssi::settings_add_str ( 'inputlength', 'inputlength_padding_char', " " );
+#
+# char to pad with
+#
+#  you can use any char you like here. :) even numbers should work
+#
+
diff --git a/scripts/imdb.pl b/scripts/imdb.pl
new file mode 100644
index 0000000..b23d65c
--- /dev/null
+++ b/scripts/imdb.pl
@@ -0,0 +1,71 @@
+use Irssi;
+use LWP::UserAgent;
+use strict;
+use vars qw($VERSION %IRSSI $cache);
+
+$VERSION = '1.01';
+%IRSSI = (
+    authors 	=> 'Eric Jansen',
+    contact 	=> 'chaos@sorcery.net',
+    name 	=> 'imdb',
+    description => 'Automatically lookup IMDB-numbers in nicknames',
+    license 	=> 'GPL',
+    modules	=> 'LWP::UserAgent',
+    url		=> 'http://xyrion.org/irssi/',
+    changed 	=> 'Sat Mar  1 12:39:49 CET 2003'
+);
+
+my $ua = new LWP::UserAgent;
+$ua->agent('Irssi; ' . $ua->agent);
+
+# Set the timeout to one second, so it won't freeze the client too long on laggy connections
+$ua->timeout(1);
+
+sub event_nickchange {
+
+    my ($channel, $nick, $old_nick) = @_;
+
+    # Lookup any 7-digit number in someone elses nick
+    if($nick->{'nick'} ne $channel->{'ownnick'}->{'nick'} && $nick->{'nick'} =~ /\D(\d{7})(?:\D|$)/) {
+
+	my $id = $1;
+
+	# See if we know the title already
+	if(defined $cache->{$id}) {
+
+	    # Print it
+	    $channel->printformat(MSGLEVEL_CRAP, 'imdb_lookup', $old_nick, $cache->{$id}->{'title'}, $cache->{$id}->{'year'});
+	}
+
+	# Otherwise, contact IMDB
+	else {
+
+	    # Fetch the movie detail page
+    	    my $req = new HTTP::Request(GET => "http://us.imdb.com/Title?$id");
+	    my $res = $ua->request($req);
+
+	    # Get the title and year from the fetched page
+    	    if($res->is_success && $res->content =~ /<title>(.+?) \((\d+)\)<\/title>/) {
+
+		my ($title, $year) = ($1, $2);
+
+		# Decode special characters in the title
+		$title =~ s/&#(\d+);/pack('U*', $1)/eg;
+
+		# Print it
+		$channel->printformat(MSGLEVEL_CRAP, 'imdb_lookup', $old_nick, $title, $year);
+
+		# And cache it
+		$cache->{$id} = {
+		    'title'	=> $title,
+		    'year'	=> $year
+		};
+	    }
+	}
+    }
+}
+
+Irssi::theme_register([
+    'imdb_lookup', '{nick $0} is watching {hilight $1} ($2)'
+]);
+Irssi::signal_add('nicklist changed', 'event_nickchange');
diff --git a/scripts/intjoin.pl b/scripts/intjoin.pl
new file mode 100644
index 0000000..c9660e0
--- /dev/null
+++ b/scripts/intjoin.pl
@@ -0,0 +1,118 @@
+#!/usr/bin/perl -w
+# joins channel with non-utf8 non-ascii names
+#   by c0ffee
+#     - http://penguin-breeder.org/irssi/
+
+#<scriptinfo>
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION="0.2";
+%IRSSI = (
+     authors	=> "c0ffee",
+     contact	=> "c0ffee\@penguin-breeder.org",
+     name	=> "i18n /join",
+     description=> "Joins channels with non-utf8 non-ascii names.",
+     license	=> "Public Domain",
+     url	=> "http://www.penguin-breeder.org/irssi/",
+     changed	=> "Sun Sep 21 12:22:24 CEST 2008",
+);
+#</scriptinfo>
+
+
+use Text::Iconv;
+
+sub cmd_join18n {
+	my ($data, $server, $channel) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to a server");
+		return;
+	}
+
+	if (!$data) {
+		Irssi::print("No channel given");
+		return;
+	}
+
+	$enc = Irssi::settings_get_str("join18n_encoding");
+
+	$enc = $1 if $data =~ /^\s*-enc\s+(\S+)/;
+	$data =~ s/^\s*-enc\s+(\S+)//;
+
+	$converter = Text::Iconv->new("UTF-8", $enc);
+	
+	if (!$converter) {
+		Irssi::print("Invalid encoding specified: $enc");
+		return;
+	}
+
+	$server->send_raw("JOIN " . $converter->convert($data));
+}
+
+sub cmd_msg18n {
+	my ($data, $server, $channel) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to a server");
+		return;
+	}
+
+	if (!$channel) {
+		Irssi::print("Not in a channel");
+		return;
+	}
+
+	$name = $channel->{name};
+
+	$enc = Irssi::settings_get_str("join18n_encoding");
+
+	$enc = $1 if $data =~ /^\s*-enc\s+(\S+)/;
+	$data =~ s/^\s*-enc\s+(\S+)//;
+
+	$converter = Text::Iconv->new("UTF-8", $enc);
+	
+	if (!$converter) {
+		Irssi::print("Invalid encoding specified: $enc");
+		return;
+	}
+
+	Irssi::signal_emit("message own_public", $server, $data, $name);
+	$server->send_raw("PRIVMSG " . $converter->convert($name) . " :" . $converter->convert($data));
+}
+
+sub cmd_part18n {
+	my ($data, $server, $channel) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to a server");
+		return;
+	}
+
+	if (!$channel) {
+		Irssi::print("Not in a channel");
+		return;
+	}
+
+	$name = $channel->{name};
+
+	$enc = Irssi::settings_get_str("join18n_encoding");
+
+	$enc = $1 if $data =~ /^\s*-enc\s+(\S+)/;
+	$data =~ s/^\s*-enc\s+(\S+)//;
+
+	$converter = Text::Iconv->new("UTF-8", $enc);
+	
+	if (!$converter) {
+		Irssi::print("Invalid encoding specified: $enc");
+		return;
+	}
+
+	$server->send_raw("PART " . $converter->convert($name) . ($data ? " :" . $converter->convert($data) : ""));
+}
+
+Irssi::settings_add_str("misc", "join18n_encoding", "latin1");
+Irssi::command_bind("join18n", "cmd_join18n");
+Irssi::command_bind("msg18n", "cmd_msg18n");
+Irssi::command_bind("part18n", "cmd_part18n");
+
diff --git a/scripts/invitejoin.pl b/scripts/invitejoin.pl
new file mode 100644
index 0000000..c69ed01
--- /dev/null
+++ b/scripts/invitejoin.pl
@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.01";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'invitejoin.pl',
+    description => 'This script will join a channel if somebody invites you to it.',
+    license     => 'Public Domain',
+    url         => 'http://irssi.hauwaerts.be/invitejoin.pl',
+    changed     => 'Sun Apr 11 12:38:18 2004',
+);
+
+## Comments and remarks.
+#
+# This script uses settings.
+# Use /SET to change the value or /TOGGLE to switch it on or off.
+#
+#    Setting:     invitejoin
+#    Description: If this setting is turned on, you will join the channel
+#                 when invite to.
+#
+##
+
+
+Irssi::theme_register([
+    'invitejoin_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
+    'invitejoin_invited', '%R>>%n %_Invitejoin:%_ Joined $1 (Invited by $0).'
+]);
+
+sub invitejoin {
+    
+    my ($server, $channel, $nick, $address) = @_;
+    my $invitejoin = Irssi::settings_get_bool('invitejoin');
+
+    if ($invitejoin) {
+        $server->command("join $channel");
+        
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'invitejoin_invited', $nick, $channel);
+        Irssi::signal_stop();
+    }
+}
+
+Irssi::signal_add('message invite', 'invitejoin');
+
+Irssi::settings_add_bool('invitejoin', 'invitejoin' => 1);
+
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'invitejoin_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/ipupdate.pl b/scripts/ipupdate.pl
new file mode 100644
index 0000000..42fa31b
--- /dev/null
+++ b/scripts/ipupdate.pl
@@ -0,0 +1,37 @@
+# IPupdate 1.2
+# 
+# automatically update your IP on server connections
+# 
+# original create by legion (a.lepore@email.it)
+#
+# thanks xergio for IP show php script :>
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+require LWP::UserAgent;
+use HTTP::Request::Common;
+
+$VERSION = '1.2';
+%IRSSI = (
+		authors         => 'xlony',
+		contact         => 'anderfdez@yahoo.es',
+		name            => 'IPupdate',
+		description     => 'Auto "/set dcc_own_ip IP" on connect.',
+		license         => 'GPL',
+		changed         => 'Tue Jan  3 18:33:56 CET 2006',
+);
+
+sub ipset {
+	my $user = LWP::UserAgent->new(timeout => 30);
+	my $get = GET "http://stuff.xergio.net/ip.php";
+	my $req = $user->request($get);
+	my $out = $req->content();
+	$out =~ s/.*IP real: ([0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?).*/$1/s;
+
+	Irssi::print("%9IP update%_:", MSGLEVEL_CRAP);
+	Irssi::command("set dcc_own_ip $out");
+}
+
+Irssi::signal_add('server connected', 'ipset');
+Irssi::command_bind('ipupdate', 'ipset');
diff --git a/scripts/iraident.pl b/scripts/iraident.pl
new file mode 100644
index 0000000..a22d4be
--- /dev/null
+++ b/scripts/iraident.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+
+# This is for NickServ Russian Ircnet services
+# just edit $ident_name and $password
+# 
+# tested on irc.nov.ru
+# todo:
+# - before quote codepage will be great to check current
+# - notify from nickserv may has a different text
+
+
+use strict;
+use Irssi;
+
+use vars qw($VERSION %IRSSI);                                                                                 
+                                                                                                              
+$VERSION = "0.6.1";                                                                                        
+%IRSSI = (                                                                                                    
+    authors     => "DonRumata",                                                                 
+    contact     => "rumata\@dragons.ru",                                                                    
+    name        => "iraident",                                                                                
+    description => "IrcNet.ru Auto Identify - changes nick and send identify command, then sets codepage",                                                      
+    license     => "GPLv2",                                                                                   
+    url         => "http://rumata.dragons.ru",                                                                                        
+    changed     => "$VERSION",                                                                                
+    commands    => "none"                                                                                     
+);
+
+
+my $ident_name = "DonRumata_for_example";
+my $password   = "some_identify_string";
+#my $fmt = MSGLEVEL_CLIENTNOTICES;
+
+sub server_event_catch {
+    # $server = server record where the message came                                                      
+    # $data = the raw data received from server, with PRIVMSGs it is:                                     
+    #         "target :text" where target is either your nick or #channel                                 
+    # $nick = the nick who sent the message                                                               
+    # $host = host of the nick who sent the message
+
+    my ($server, $text, $nick, $user) = @_;
+
+    if (($nick == 'NickServ') and ($user == 'Services@ircnet.ru')){
+	# events:
+	# Nick is registered or protected or not registered
+
+	if ( $text =~ /your nick will be changed/){
+	    
+	    if ($server->{'nick'} ne $ident_name){
+		$server->command("NICK $ident_name");
+#		Irssi::print("ident string sent...",$fmt);
+		return;
+	    }
+
+	    return if ($server->{'usermode'} =~ /(r)/);
+	    $server->command("MSG NickServ identify $password");
+#	    Irssi::print("password sent",$fmt);
+
+	    $server->command("QUOTE codepage koi8");
+#	    Irssi::print("codepage sent",$fmt);
+	}
+    }    
+}
+
+Irssi::signal_add('server event', 'server_event_catch');
\ No newline at end of file
diff --git a/scripts/irc_chess.pl b/scripts/irc_chess.pl
new file mode 100644
index 0000000..3c46e8a
--- /dev/null
+++ b/scripts/irc_chess.pl
@@ -0,0 +1,212 @@
+#
+#Irssi script to complement chess backend server
+#
+use Irssi;
+use Irssi::Irc;
+use IO::Socket;
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.1";
+%IRSSI =
+(
+	authors     => "kodgehopper (kodgehopper\@netscape.net)",
+	contact     => "kodgehopper\@netscape.net",
+	name        => "IRC-Chess",
+	description => "Chess server for IRC. Allows for multiple 2-player games to be played simultaneously",
+	license     => "GNU GPL",
+	url         => "none as yet",
+);
+
+sub processColors
+{
+	$_=$_[0];
+
+	#replace foreground/background colors
+	my @fgbg;
+	my $numFgBg=(@fgbg=/(<B\w+?><b\w+?>)/g);
+
+	for (my $j=0; $j < $numFgBg; $j++)
+	{
+		my $t=$fgbg[$j];
+		my ($background, $foreground)=($t=~/(<B\w+?>)(<b\w+?>)/);
+		my $orig=$background.$foreground;
+
+		$foreground=~s/<bBLACK>/\\cc1/g;
+		$foreground=~s/<bWHITE>/\\cc0/g;
+
+		$background=~s/<BBLUE>/,2/g;
+		$background=~s/<BYELLOW>/,7/g;
+
+		my $result=$foreground.$background;
+
+		s/$orig/$result/;
+
+	}
+
+	#replace background-only colors
+	s/<BBLUE>/\\cc0,2/g;
+	s/<BYELLOW>/\\cc0,7/g;
+
+	#replace rest of colors
+	s/<NORMAL>/\\co/g;
+
+	return $_;
+}#processColors
+
+#
+#message formats:
+#1. simple format:
+#[username]Message
+#
+#2. complex format:
+#[user1]msg1<:=:>[user2]msg2<:=:>commonMessage
+#
+sub processMsgFromServer 
+{
+	($server, $msg, $nick)=@_;
+	$delimiter="<:=:>";
+	$_=$msg;
+
+	#determine the type of message from the number of delimiters
+	$numDelims=(@list=/$delimiter/g);
+
+	if ($numDelims==0)
+	{
+		#simple message
+		my ($username, $message)=/^\s*\[(.+?)\](.*?)$/;
+
+		$message=processColors($message);
+
+		#send message to player
+		$server->command("eval msg $nick $message");
+	}
+	else
+	{
+		#complex message
+		my ($user1, $msg1, $user2, $msg2, $commonMessage)=/^\s*\[(.+?)\](.*?)$delimiter\[(.+?)\](.*?)$delimiter(.*)$/s;
+
+		#split message into seperate lines
+		my @commonMessageList=split(/\n/, $commonMessage);
+
+		#send common message to both users
+		Irssi::print("Sending common message to both users");
+		my $numStrings;
+		my @list;
+
+		#print out blank lines since the string was split on newlines so
+		#now they're lost. an extra space == blank line
+		$server->command("eval msg $user1  \\co"); 
+		$server->command("eval msg $user2  \\co"); 
+
+		my $commonListSize=@commonMessageList;
+		for (my $j=0; $j<$commonListSize; $j++)
+		{
+			$commonMessageList[$j]=processColors($commonMessageList[$j]);
+
+			$server->command("eval msg $user1 $commonMessageList[$j]"); 
+			$server->command("eval msg $user2 $commonMessageList[$j]"); 
+		}
+		$server->command("eval msg $user1  \\co"); 
+		$server->command("eval msg $user2  \\co"); 
+
+		#send messages for each user
+		my @msg1List=split(/\n/, $msg1);
+		my $msg1ListSize=@msg1List;
+
+		for ($j=0; $j<$msg1ListSize; $j++)
+		{
+			$server->command("eval msg $user1 \\cb$msg1List[$j]\\co");
+		}
+
+		my @msg2List=split(/\n/, $msg2);
+		my $msg2ListSize=@msg2List;
+
+		for ($j=0; $j<$msg2ListSize; $j++)
+		{
+			$server->command("eval msg $user2 \\cb$msg2List[$j]\\co");
+		}
+	} #else
+}#processOutput
+
+#
+#process a message received from the user.
+#this will be something like "game start k"
+#this will have to be changed to something like
+#"game start k k1", where k1 is the user.
+#if the format of the message is not correct,
+#return INVALID. format checking is minimal.
+#basically, if the first word is "game", then
+#slap on the nickname and send it to the server.
+#
+
+sub processMsgFromClient
+{
+	($server, $msg, $nick)=@_; 
+
+	#Irssi::print("msg from client:\n$msg\n");
+	$msg=lc($msg);	
+
+	if ($msg=~/^game\b/)
+	{
+		$msg = $msg." $nick";
+		return $msg;
+	}
+	else
+	{
+		Irssi::print("sending: msg $nick Error: Invalid Message");
+		$server->command("msg $nick Error: Invalid Message");
+		return "INVALID";	
+	}
+}#processMsgFromClient
+
+#
+#private messages received from other users eg. if they want to
+#register a new game
+sub sig_processPvt
+{
+	my($server, $msg, $nick, $address)=@_;
+
+	$msgToSend=processMsgFromClient($server, $msg, $nick);
+
+	if ($msgToSend !~ /^INVALID$/)
+	{
+		Irssi::print("Sending message now");
+		send(SOCKET,$msgToSend,0);
+		Irssi::print("Waiting for message from server\n");
+		recv(SOCKET,$buffer,32678,0); #read a max of 32k. 
+		processMsgFromServer($server, $buffer, $nick);
+	}
+}#sig_processPvt
+
+#
+#function to terminate game. it basically just closes 
+#the connection to the server
+#
+sub cmd_endGame
+{
+	shutdown(SOCKET,2);
+	close(SOCKET);
+	Irssi::print("Game ended. Socket shut down");
+	$gameRunning=0;
+}#cmd_endGame
+
+BEGIN
+{
+	$PORT=1234;
+	
+	Irssi::print("connecting to server\n");
+	$tcpProtocolNumber = getprotobyname('tcp') || 6; 
+
+	socket(SOCKET, PF_INET(), SOCK_STREAM(), $tcpProtocolNumber)
+		or die("socket: $!");
+
+	$internetPackedAddress = pack('S na4 x8', AF_INET(), $PORT, 127.0.0.1); 
+	connect(SOCKET, $internetPackedAddress) or die("connect: $!");
+
+	Irssi::print("Game is now running");
+	$gameRunning=1;
+}
+
+
+Irssi::signal_add("message private","sig_processPvt");
+Irssi::command_bind("end_game", "cmd_endGame");
diff --git a/scripts/irccomplete.pl b/scripts/irccomplete.pl
new file mode 100644
index 0000000..bac2de1
--- /dev/null
+++ b/scripts/irccomplete.pl
@@ -0,0 +1,210 @@
+# TAB complete words from dictionary
+# for irssi 0.7.99 by Timo Sirainen
+# Greatly modified by Erkki Seppälä to build dictionary of said words
+
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => "Erkki Seppälä",
+    contact     => "flux\@inside.org",
+    name        => "IRC Completion",
+    description => "Adds words from IRC to your tab-completion list, plus fixes typos",
+    license     => "Public Domain",
+    url         => "http://xulfad.inside.org/~flux/software/irssi/",
+    changed     => "Thu Feb  7 22:45:55 EET 2002"
+);
+
+
+my @wordHistory;
+my %words;
+my %permanent;
+
+my $wordChars = join("", ('a'..'z', '0'..'9', 'öä'));
+my $maxWords = 5000;
+my $minWordLength = 4;
+my $maxWordLength = 80;
+my $maxTypoLength = 10;
+my $permanentThreshold = 1;
+
+my %typoWords;
+my $correctWordCounter = 1;
+my %correctWordsByIndex;
+my %correctWordsByWord;
+
+# by word
+sub addCorrectWord {
+  my $index = $correctWordsByWord{$_[0]} or 0;
+  if ($index > 0) {
+    ++$correctWordsByIndex{$index}->[1];
+    return $index;
+  } else {
+    $correctWordsByIndex{$correctWordCounter} = [$_[0], 1];
+    $correctWordsByWord{$_[0]} = $correctWordCounter;
+    ++$correctWordCounter;
+    return $correctWordCounter - 1;
+  }
+};
+
+# by word
+sub delCorrectWord {
+  my ($word) = @_;
+  my $index = $correctWordsByWord{$word};
+  if (--$correctWordsByIndex{$index}->[1] == 0) {
+    delete $correctWordsByWord{$correctWordsByIndex{$index}->[0]};
+    delete $correctWordsByIndex{$index};
+  }
+}
+
+sub sig_complete {
+  my ($complist, $window, $word, $linestart, $want_space) = @_;
+
+  $word =~ s/([^a-zA-Z0-9])/\\\1/g;
+
+  @$complist = reverse (@$complist, grep(/^$word/, (keys %permanent, keys %words)));
+
+  if (exists $typoWords{$word}) {
+    my $correctWord = $correctWordsByIndex{$typoWords{$word}->[0]}->[0];
+    @$complist = (@complist, $correctWord);
+  }
+
+  my %m = map { ($_ => $n++); } @$complist; 
+  @$complist = ();
+  foreach my $key (sort keys %m) { 
+    $m2{$m{$key}}=$key; 
+  } 
+  foreach my $key (reverse sort keys %m2) { 
+    push @$complist, $m2{$key};
+  }
+}
+
+# $word, $removes
+sub generate_drops {
+  my ($word, $changes) = @_;
+  my @list;
+  for (my $c = 0; $c < length($word) - 1; ++$c) {
+    my $misWord = substr($word, 0, $c) . substr($word, $c + 1);
+    if ($changes > 1) {
+      push @list, generate_drops($misWord, $changes - 1);
+    } else {
+      push @list, $misWord;
+    }
+  }
+  return @list;
+}
+
+sub generate_translations {
+  my ($word, $changes) = @_;
+  my @list;
+  for (my $c = 1; $c < length($word); ++$c) {
+    my $misWord = substr($word, 0, $c - 1) . substr($word, $c, 1) . substr($word, $c - 1, 1) . substr($word, $c + 1);
+    if ($changes > 1) {
+      push @list, generate_drops($misWord, $changes - 1);
+    } else {
+      push @list, $misWord;
+    }
+  }
+  return @list;
+}
+
+# $word
+sub generate_typos {
+  my $maxTypoLength = Irssi::settings_get_int('irccomplete_maximum_typo_length');
+  my ($word) = @_;
+
+  if (length($word) > $maxTypoLength) {
+    return ();
+  } else {
+    return (generate_drops($word, 1), generate_translations($word));
+  }
+}
+
+sub sig_message {
+  my ($server, $message) = @_;
+  my $maxWords = Irssi::settings_get_int('irccomplete_words');
+  my $minWordLength = Irssi::settings_get_int('irccomplete_minimum_length');
+  my $maxWordLength = Irssi::settings_get_int('irccomplete_maximum_length');
+  my $wordChars = Irssi::settings_get_str("irccomplete_word_characters");
+  my $permanentThreshold = Irssi::settings_get_int('irccomplete_permanent_percent');
+  foreach my $word (split(/[^$wordChars]/, $message)) {
+    if (length($word) >= $minWordLength && length($word) <= $maxWordLength) {
+      if (++$words{$word} > $permanentThreshold / 100.0 * $maxWords) {
+	if (++$permanent{$word} == 1) {
+	  #Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'irccomplete_permanent', $word);
+	  Irssi::print "Added $word to the list of permanent words";
+	}
+      }
+      push @wordHistory, $word;
+      my $wordIndex = addCorrectWord($word);
+      foreach my $misword (generate_typos($word, 1)) {
+	if (!exists $typoWords{$misword}) {
+	  $typoWords{$misword} = [$wordIndex, 1];
+	} else {
+	  ++$typoWords{$misword}->[1];
+	}
+      }
+      while (@wordHistory > $maxWords) {
+	my $word = shift @wordHistory;
+	if (--$words{$word} == 0) {
+	  delete $words{$word};
+	}
+	foreach my $misword (generate_typos($word, 1)) {
+	  if (--$typoWords{$misword}->[1] == 0) {
+	    delete $typoWords{$misword};
+	  }
+	}
+	delCorrectWord($word);
+      }
+    }
+  }
+
+
+  return 1;
+}
+
+sub cmd_typowords {
+  Irssi::print (scalar(@wordHistory) . " words, " . 
+		scalar(keys %typoWords) . " typowords, " .
+		scalar(keys %correctWordsByWord) . "x" . scalar(keys %correctWordsByIndex) . " correct words");
+  my $line = "";
+
+  foreach my $word (keys %typoWords) {
+    $line .= $word . "|" . $typoWords{$word}->[0] . " ";
+  }
+  Irssi::print "$line";
+  $line = "";
+
+  foreach my $index (keys %correctWordsByIndex) {
+    $line .= $index . ":[" . join("|", @{$correctWordsByIndex{$index}}) . "] ";
+  }
+  Irssi::print "$line";
+  $line = "";
+  
+  foreach my $word (keys %correctWordsByWord) {
+    $line .= $word . ":" . $correctWordsByWord{$word} . " ";
+  }
+  Irssi::print "$line";
+  $line = "";
+  
+  return 1;
+};
+
+Irssi::theme_register(['irccomplete_permanent', 'Added $1 to the list of permanent words']);
+
+Irssi::settings_add_str("misc", "irccomplete_word_characters", $wordChars);
+Irssi::settings_add_int("misc", "irccomplete_words", $maxWords);
+Irssi::settings_add_int("misc", "irccomplete_minimum_length", $minWordLength);
+Irssi::settings_add_int("misc", "irccomplete_maximum_length", $maxWordLength);
+Irssi::settings_add_int("misc", "irccomplete_maximum_typo_length", $maxTypoLength);
+Irssi::settings_add_int("misc", "irccomplete_permanent_percent", $permanentThreshold);
+
+foreach my $sig ("message public", "message private", 
+		 "message own_public", "message own_private", 
+		 "message topic") {
+#foreach my $sig ("message own_public", "message own_private") {
+  Irssi::signal_add($sig, "sig_message");
+}
+Irssi::signal_add_last('complete word', 'sig_complete');
+
+Irssi::command_bind("irccomplete_typowords", "cmd_typowords");
diff --git a/scripts/ircgallery.pl b/scripts/ircgallery.pl
new file mode 100644
index 0000000..38b48ff
--- /dev/null
+++ b/scripts/ircgallery.pl
@@ -0,0 +1,255 @@
+# Show IRC gallery (http://irc-galleria.net, finnish only) information
+# on /WHOIS or /GALLERY
+
+# version 1.13
+# for irssi 0.8.0 by Timo Sirainen
+use Symbol;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "1.13";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi", 
+    name	=> "ircgallery",
+    description	=> "Show IRC gallery (http://irc-galleria.net, finnish only) information on /WHOIS or /GALLERY",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+
+Irssi::theme_register([
+  'whois_gallery', '{whois gallery $1}',
+  'gallery_header', '{hilight $0} - IRC gallery information',
+  'gallery_line', ' $[8]0 : $1',
+  'gallery_footer', 'End of info',
+  'gallery_notfound', '$0 is not in IRC gallery',
+  'gallery_nolist', 'Nick list of IRC gallery not downloaded yet - please wait'
+]);
+
+
+my $cache_path = glob "~/.irssi/ircgallery";
+my @print_queue;
+
+my $nicklist_path = "$cache_path/nicks.list";
+my $gallery_nicks_time = 0;
+my %gallery_nicks = {};
+
+my $last_whois_nick;
+
+sub get_view_url {
+  return 'http://irc-galleria.net/view.php?nick='.$_[0];
+}
+
+# print the gallery information - assumes the file is in cache directory
+sub print_gallery {
+  my $nick = shift;
+
+  my $found = 0;
+  my $next_channels = 0;
+  my $channels;
+
+  $. = "\n";
+  my $f = gensym;
+  if (!open($f, "$cache_path/$nick")) {
+    Irssi::print("Couldn't open file $cache_path/$nick: $!", MSGLEVEL_CLIENTERROR);
+    return;
+  }
+  while (<$f>) {
+    last if (/\<title\>.*Etsi nick/); # unknown nick
+
+    if ($next_channels) {
+      if (m,\<a .*\>(#.*)\</a>,) {
+        $channels .= "$1 ";
+        next;
+      } else {
+        $next_channels = 0;
+        if ($channels) {
+          Irssi::printformat(MSGLEVEL_CRAP, 'gallery_line',
+		"channels", $channels);
+	  $channels = "";
+	}
+      }
+    }
+
+    if (/\<h1\>[^\(]*\(([^\)]*)/) {
+      my $realname = $1;
+      Irssi::printformat(MSGLEVEL_CRAP, 'gallery_header', $nick);
+      Irssi::printformat(MSGLEVEL_CRAP, 'gallery_line',
+                "ircname", $realname);
+      Irssi::printformat(MSGLEVEL_CRAP, 'gallery_line',
+		"url", get_view_url($nick));
+      $found = 1;
+      next;
+    }
+
+    if (/\<img.*src="([^"]*)".*alt="$nick"/) {
+      Irssi::printformat(MSGLEVEL_CRAP, 'gallery_line',
+		"image", "http://irc-galleria.net/$1");
+      next;
+    }
+
+    my ($title, $value) = $_ =~ m,\<span class="otsikko"\>([^:]+):\</span\> (.*)\<br /\>,;
+    if ($value =~ m,\<a .*\>(.*)\</a\>,) {
+      $value = $1;
+    }
+    $next_channels = 1 if (m,\<span class="otsikko"\>Kanavat,);
+    
+    if ($title && $value) {
+      if ($title eq "Maili") {
+        $title = "e-mail";
+      } elsif ($title =~ /Kaupunki/) {
+        $title = "city";
+      } elsif ($title eq "Syntynyt") {
+        $title = "birthday";
+      } elsif ($title eq "Muutettu") {
+        $title = "last modified";
+      }
+      Irssi::printformat(MSGLEVEL_CRAP, 'gallery_line', $title, $value);
+    }
+  }
+  close($f);
+
+  if ($found) {
+    Irssi::printformat(MSGLEVEL_CRAP, 'gallery_footer', $nick);
+  } elsif ($print_notfound{$nick}) {
+    Irssi::printformat(MSGLEVEL_CRAP, 'gallery_notfound', $nick);
+  }
+  
+  delete $print_notfound{$nick};
+}
+
+# download the info from gallery to cache dir,
+# if the files aren't there already.
+sub download_nicks_info {
+  foreach my $nick (@_) {
+    my $filename = "$cache_path/$nick";
+    if (! -f $filename) {
+      # FIXME: we could do this ourself with sockets...
+      Irssi::command("exec - wget -O$filename.tmp -q -UMozilla ".get_view_url($nick)."; mv $filename.tmp $filename");
+    }
+  }
+}
+
+# print info from all given nicks that have file in cache dir
+sub gallery_show {
+  foreach my $nick (@_) {
+    if (-f "$cache_path/$nick") {
+      print_gallery($nick);
+    } else {
+      push @print_queue, $nick;
+    }
+  }
+}
+
+sub print_whois_gallery {
+  my ($server, $nick) = @_;
+
+  if ($gallery_nicks{lc $nick}) {
+    $server->printformat($nick, MSGLEVEL_CRAP, 'whois_gallery',
+			 $nick, get_view_url($nick));
+  }
+}
+
+# /WHOIS - print the gallery URL after realname
+sub event_whois {
+  my ($server, $data) = @_;
+  my ($temp, $nick) = split(" ", $data);
+
+  print_whois_gallery($server, $last_whois_nick) if ($last_whois_nick);
+  $last_whois_nick = $nick;
+}
+
+sub event_end_of_whois {
+  my ($server) = @_;
+
+  if ($last_whois_nick) {
+    print_whois_gallery($server, $last_whois_nick);
+    $last_whois_nick = undef;
+  }
+}
+
+# /GALLERY <nicks>
+sub cmd_gallery {
+  my @nicks = split(/[, ]/, $_[0]);
+  
+  if (!$gallery_nicks_time) {
+    Irssi::printformat(MSGLEVEL_CLIENTERROR, 'gallery_nolist');
+    return;
+  }
+
+  my @new_list;
+  foreach my $nick (@nicks) {
+    my $gallery_nick = $gallery_nicks{lc $nick};
+    if (!$gallery_nick) {
+      Irssi::printformat(MSGLEVEL_CRAP, 'gallery_notfound', $nick);
+    } else {
+      push @new_list, $gallery_nick;
+    }
+  }
+  
+  download_nicks_info(@new_list);
+  gallery_show(@new_list);
+
+  if ($gallery_nicks_time < time()-(3600*8)) {
+    # nicklist hasn't been updated for a while, refresh it
+    download_nicklist();
+  }
+}
+
+# parse all known nicks from nick index file 
+sub parse_nicks {
+  my $filename = shift;
+
+  %gallery_nicks = {};
+  $gallery_nicks_time = time();
+
+  my $f = gensym;
+  if (!open($f, $filename)) {
+    Irssi::print("Couldn't open file $filename: $!", MSGLEVEL_CLIENTERROR);
+    return;
+  }
+  while (<$f>) {
+    if (m,\<a href="view.php.*\>(.*)\</a\>,) {
+      $gallery_nicks{lc $1} = $1;
+    }
+  }
+  close($f);
+}
+
+# /EXEC finished - maybe there's new files downloaded in cache dir?
+sub sig_exec_remove {
+  my @new_queue;
+
+  if (-f $nicklist_path) {
+    parse_nicks($nicklist_path);
+    unlink($nicklist_path);
+  }
+
+  foreach my $nick (@print_queue) {
+    if (-f "$cache_path/$nick") {
+      print_gallery($nick);
+    } else {
+      push @new_queue, $nick;
+    }
+  }
+  @print_queue = @new_queue;
+}
+
+sub download_nicklist {
+  Irssi::command("exec - wget -O$nicklist_path -q -UMozilla http://irc-galleria.net/list.php?letter=_");
+}
+
+# clear cache dir
+if (-d $cache_path) {
+  unlink(<$cache_path/*>);
+} else {
+  mkdir($cache_path, 0700) || die "Can't create cache directory $cache_dir";
+}
+
+# we need the nick list, get it once per hour
+download_nicklist();
+
+Irssi::signal_add_first('event 311', 'event_whois');
+Irssi::signal_add_first('event 318', 'event_end_of_whois');
+Irssi::signal_add('exec remove', 'sig_exec_remove');
+Irssi::command_bind('gallery', 'cmd_gallery');
diff --git a/scripts/ircgmessagenotify.pl b/scripts/ircgmessagenotify.pl
new file mode 100644
index 0000000..a614282
--- /dev/null
+++ b/scripts/ircgmessagenotify.pl
@@ -0,0 +1,216 @@
+#!/usr/bin/perl -T -w
+
+# Harjoitustyönä tehty skripta.
+
+# Käyttö:
+# 1) kopioi .irssi/scripts hakemistoon
+# 2) /run ircgmessagenotify.pl
+# 3) /set ircgusername yournick
+# 4) /set ircgpassword yourpassword
+# 5) Voit myös optionaalisesti säätää ircgcheck_interval arvoa joka sekunneissa määärää kyselyjen välisen ajan sekunteina
+# 6) ircgdo_polling asetus voi olla joko 1 tai 0 ja se määrää pollataanko serveriä ylipäänsä
+# 7) /statusbar window add ircgcomments         komento lisää statusbariin kohdan IRCG: n jossa n kuvaa uusien viestien lukumäärää. =)
+# 8) /ircgcomments komento kyselee käsin pakotettuna tilanteen
+
+# jos polling on asetettu 0 ei edes käsipelin kysely toimi.
+
+# Kiitokset statusbar ideasta Whiz:ille.. kiitos pällistä ideasta pälliin skriptaan jne.
+# Kiitoksia ei heru Whizille kylläkään toimimattomista regexpeistä... joutu ihan itse opetteleen keletanatu.
+
+use LWP::UserAgent;
+use HTTP::Cookies;
+use Irssi;
+use Irssi::TextUI;
+
+# ------------------------------------
+# Ircgalleria skriptin poikanen
+#
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.1b";
+%IRSSI = (
+ authors => "BCOW",
+ contact => "bcow\@iki.fi",
+ name => "ircgmessagenotify",
+ description => "Tarkistelee irc-galleria.net:iä ja sanoo kun sinulle on uusia viestejä.",
+ license => "GPLv2",
+ url => "http://www.verkonpaino.net/",
+ changed => "21.01.2004 23:55:00 EET"
+);
+
+# alustetaan asetukset
+Irssi::settings_add_str('ircgmessagenotify', 'ircgusername', '');
+Irssi::settings_add_str('ircgmessagenotify', 'ircgpassword', '');
+Irssi::settings_add_int('ircgmessagenotify', 'ircgcheck_interval', '120');
+Irssi::settings_add_int('ircgmessagenotify', 'ircgdo_polling', '1');
+
+# alustetaan keksisäilö :P
+my $cookie_jar = HTTP::Cookies->new(file => $ENV{'HOME'}. "/.irssi/ircgmessagenotify_cookie_jar.dat", autosave => 1,);
+# alustetaan viestilaskuri
+my $lastcount = 0;
+# alustetaan timeria
+my $timeout;
+my $timeouttag;
+
+# -- aseta timeri
+sub setup_timer
+{
+	# aseta uusi timeri
+	$timeout = Irssi::settings_get_int("ircgcheck_interval");
+	if ($timeout < 60)
+	{
+		$timeout == 60;
+		Irssi::print("ircgcheck_interval ei voi olla pienempi kuin 60. Asetin sen 60:een.");
+	}
+	$timeouttag = Irssi::timeout_add($timeout * 1000, 'check_for_new_messages', '');
+}
+
+# -- varmistetaan että timeri muuttuu ja sen mukaan myös skriptan ajo.
+sub setup_changed
+{
+	# määritykset muuttui. aseta timeri uudestan =)
+	Irssi::timeout_remove($timeouttag);
+	&setup_timer;
+	# jokatapauksessa piirrä statusbar uudestaan
+	Irssi::statusbar_items_redraw("ircgcomments");
+}
+
+# -- varsinainen funktio jolla tsekataan viestit
+sub check_messages
+{
+	my $forced = $_[0];
+
+	my $ua = LWP::UserAgent->new;
+	$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
+	$ua->timeout(10);
+	$ua->cookie_jar($cookie_jar);
+
+	my $irclogin = Irssi::settings_get_str('ircgusername');
+	my $passwd = Irssi::settings_get_str('ircgpassword');
+
+	my $req = HTTP::Request->new(POST => "http://irc-galleria.net/login.php");
+	$req->content_type("application/x-www-form-urlencoded");
+	$req->content("login=$irclogin&passwd=$passwd");
+
+	my $res = $ua->request($req);
+
+	# Oliko palautus ok vai virhe
+	if ($res->is_success) {
+		#print $res->content;
+		# okei saatiin tehtyä kirjautuminen.. ööm ja saatiin se mitä pitäisikin. tämä ei ole kuitenkaan se mitä halutaan ;)
+		Irssi::print("ircgmessagenotify.pl sanoo: ööömm.. tätä ei pitänyt tapahtua: ". $res->as_string);
+	} elsif ($res->is_redirect) {
+		# okei uudelleenohjaus niinkuin pitäisikin(?) olla´
+		if ($res->header("Location") =~ /error/)
+		{
+			# gallerian virhe
+			Irssi::print("ircgmessagenotify.pl sanoo VIRHE kirjauduttaessa: gallerian virhekoodi!");
+		} else {
+			# homma ok. Haetaanpas sitten uudella requestilla viestit
+			my $req2 = HTTP::Request->new(GET => "http://irc-galleria.net/". $res->header("Location"));
+
+			# useragent toivottavasti muistaa keksit
+			my $res2 = $ua->request($req2);
+
+			if ($res2->is_success)
+			{
+				# ookii ;) saatiin content!
+				if ($res2->content =~ /Sinulle on uusia kommentteja/)
+				{
+					#Irssi::print("Sinulle on uusia kommentteja irc-galleriassa!!!");
+					my $newcount = $res2->content;
+					#$newcount =~ s/.*commentcount\"\>\(//i;
+					#$newcount =~ s/\)\<.*//i;
+
+					# irroita arvo :)
+					$newcount =~ /.*commentcount\"\>\((\d)\)\<.*/;
+					$newcount = $1;
+
+					my $uusia = $newcount - $lastcount;
+
+					#Irssi::print("Uusia: $uusia, newcount: $newcount, lastcount: $lastcount");
+
+					# sitten viimeinen tarkistus ;)
+					if ($lastcount < $newcount)
+					{
+						# uusia viestejä! jeee!
+						Irssi::print("Sinulle on irc-galleriassa $uusia kpl uusia kommentteja. Yhteensä $newcount kpl.");
+					} elsif ($lastcount > $newcount) {
+						# viestejä on luettu sitten viimekerran tai jotain muuta hassua, mutta niitä on kuitenkin
+						Irssi::print("Sinulle on irc-galleriassa $newcount kpl viestejä odottamassa lukemista.");
+					} # nolla tekee jotakin omituista :)
+
+					# aseta arvo
+					$lastcount = $newcount;
+				} else {
+					# aseta arvo nollille koska ei ole uusia viestejä
+					$lastcount = 0;
+					if ($forced == 1)
+					{
+						# hassuja epäloogisuuksia tuossa ylempänä ja siinä mitä tässä tapahtuu ;)
+						Irssi::print("Sinulle ei ole uusia kommentteja irc-galleriassa.");
+					}
+				}
+			} else {
+				# virhe :(((
+				Irssi::print("ircgmessagenotify.pl sanoo VIRHE viestien lukumäärää selvitettäessä: ". $res2->status_line);
+			}
+		}
+	} else {
+		#print $res->status_line, "\n";
+		# virhe :(((
+		Irssi::print("ircgmessagenotify.pl sanoo VIRHE kirjauduttaessa: ". $res->status_line);
+	}
+}
+
+# -- tarkista pakotetusti
+sub check_messages_forced
+{
+	&check_messages(1);
+	# jokatapauksessa piirrä statusbar uudestaan
+	Irssi::statusbar_items_redraw("ircgcomments");
+}
+
+# -- tarkista onko uusia viestejä eli yhdy palvelimeen ja tsekkaa lukema
+sub check_for_new_messages
+{
+	# tarkista tarvitseeko tehdä mitään?
+	if (Irssi::settings_get_int("ircgdo_polling") > 0)
+	{
+		#Irssi::print("Tick");
+		&check_messages(0);
+	} # do_polling
+	# jokatapauksessa piirrä statusbar uudestaan
+	Irssi::statusbar_items_redraw("ircgcomments");
+}
+
+# -- näytä tieto tän hetkisestä laskurista statusbarissa -)
+sub statusbar
+{
+	my ($item, $get_size_only) = @_;
+
+	my $state;
+
+	if (Irssi::settings_get_int("ircgdo_polling") > 0)
+	{
+		# jos pollataan näytäkkin jotain
+		$state = $lastcount;
+	} else {
+		# ei pollata joten näytä -
+		$state = "-";
+	}
+
+	$item->default_handler($get_size_only, undef, "IRCG: $state", 1);
+}
+
+# Kiinnitetään timeri
+&setup_timer;
+
+# sitten signaali liitoksia
+Irssi::signal_add("setup changed", "setup_changed");
+
+# ja komento liitoksia
+Irssi::command_bind('ircgcomments', 'check_messages_forced');
+
+# viimeiseksi jää statusbar liitos
+Irssi::statusbar_item_register('ircgcomments','{sb $0-}', 'statusbar');
\ No newline at end of file
diff --git a/scripts/ircops.pl b/scripts/ircops.pl
new file mode 100644
index 0000000..96e25be
--- /dev/null
+++ b/scripts/ircops.pl
@@ -0,0 +1,44 @@
+use Irssi;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => 'BC-bd',
+    contact     => 'bd@bc-bd.org',
+    name        => 'ircops',
+    description => '/IRCOPS - Display IrcOps in current channel',
+    license     => 'GPL v2',
+    url         => 'https://bc-bd.org/svn/repos/irssi/trunk/',
+);
+
+sub cmd_ircops {
+	my ($data, $server, $channel) = @_;
+
+	my (@list,$text,$num);
+
+	if (!$channel || $channel->{type} ne 'CHANNEL') {
+		Irssi::print('No active channel in window');
+		return;
+	}
+
+	foreach my $nick ($channel->nicks()) {
+		if ($nick->{serverop}) {
+			push(@list,$nick->{nick});
+		}
+	}
+
+	$num = scalar @list;
+
+	if ($num == 0) {
+		$text = "no IrcOps on this channel";
+	} else {
+		$text = "IrcOps (".$num."): ".join(" ",@list);
+	}
+
+	$channel->print($text);
+}
+
+Irssi::command_bind('ircops', 'cmd_ircops');
+
diff --git a/scripts/ircsec.pl b/scripts/ircsec.pl
new file mode 100644
index 0000000..ccbf725
--- /dev/null
+++ b/scripts/ircsec.pl
@@ -0,0 +1,209 @@
+# by Stefan 'tommie' Tomanek
+
+use strict;
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use Crypt::CBC;
+use Digest::MD5 qw(md5 md5_hex md5_base64);;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2008051101';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'IRCSec',
+    description => 'secures your conversation',
+    license     => 'GPLv2',
+    changed     => $VERSION,
+    modules     => 'Crypt::CBC Digest::MD5',
+    sbitems     => 'ircsec',
+    commands	=> "ircsec",
+    
+);
+
+use vars qw(%channels);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help=$IRSSI{name}." ".$VERSION."
+/ircsec secure <key>
+    Encrypt and decrypt conversation in current channel/query with <key>
+/ircsec unlock
+    Disable de/encryption
+/ircsec toggle
+    Temporary dis- or enable security
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box($IRSSI{name}." help", $text, "help", 1) ;
+}
+
+
+sub encrypt ($$$) {
+    my ($text, $key, $algo) = @_;
+    my $cipher;
+    eval {
+       $cipher = Crypt::CBC->new( -key             => $key,
+                                  -cipher          => $algo,
+                                  -iv              => '$KJh#(}q',
+                                  -literal_key     => 0,
+                                  -padding         => 'space',
+                                  -header          => 'randomiv'
+                                );
+
+    };
+    return unless $cipher;
+    my $checksum = md5_base64($text);
+    my $ciphertext = $cipher->encrypt_hex($text." ".$checksum);
+    return $ciphertext;
+}
+
+sub decrypt ($$$) {
+    my ($data, $key, $algo) = @_;
+    my $cipher;
+    eval {
+       $cipher = Crypt::CBC->new( -key             => $key,
+                                  -cipher          => $algo,
+                                  -iv              => '$KJh#(}q',
+                                  -literal_key     => 0,
+                                  -padding         => 'space',
+                                  -header          => 'randomiv'
+				);
+
+    };
+    return unless $cipher;
+    my $plaintext = $cipher->decrypt_hex($data);
+    my ($text, $checksum) = $plaintext =~ /^(.*) (.*?)$/;
+    if ($checksum eq md5_base64($text)) {
+	return $text;
+    } else {
+	return undef;
+    }
+}
+
+sub sig_send_text ($$$) {
+    my ($line, $server, $witem) = @_;
+    return unless ref $witem;
+    my $tag = $witem->{server}->{tag};
+    if (defined $channels{$tag}{$witem->{name}} && $channels{$tag}{$witem->{name}}{active}) {
+	my $key = $channels{$tag}{$witem->{name}}{key};
+	Irssi::signal_stop();
+	my $cipher = Irssi::settings_get_str('ircsec_default_cipher');
+	my $crypt = encrypt($line, $key, $cipher);
+#	if (defined $crypt) {
+	    Irssi::signal_continue("[IRCSec:".$cipher."] ".$crypt, $server, $witem);
+#	} else {
+#	    $witem->print("%R[IRCSec]>%n Unknown cipher method '".$cipher."'", MSGLEVEL_CLIENTCRAP);
+#	}
+    }
+}
+
+sub decode ($$$) {
+    my ($server, $text, $target) = @_;
+    return unless ($text =~ /^\[IRCSec(:(.*?))?\] ([\d\w]+)/);
+    my $string = $3;
+    my $cipher = $2;
+    $cipher = Irssi::settings_get_str('ircsec_default_cipher') unless $cipher;
+    my $witem = $server->window_item_find($target);
+    return unless ref $witem;
+    return unless defined $channels{$server->{tag}}{$target};
+    my $key = $channels{$server->{tag}}{$target}{key};
+    my $plain = decrypt($string, $key, $cipher);
+    if (defined $plain) {
+	$witem->print("%B[IRCSec:".$cipher."]>%n $plain", MSGLEVEL_CLIENTCRAP);
+    } else {
+	$witem->print("%R[IRCSec]>%n Unknown cipher method '".$cipher."' or wrong key", MSGLEVEL_CLIENTCRAP);
+    }
+}
+
+sub sb_ircsec ($$) {
+    my ($item, $get_size_only) = @_;
+    my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+    my $line;
+    if (ref $win && ($win->{type} eq "CHANNEL" || $win->{type} eq "QUERY")){
+	my $name = $win->{name};
+	my $tag = $win->{server}->{tag};
+	if ($channels{$tag}{$name} && $channels{$tag}{$name}{active}) {
+	    $line = "%G%Uo-m%U%n";
+	} elsif ($channels{$tag}{$name}){
+	    $line = "%Ro-m%n";
+	}
+    }
+    my $format = "{sb ".$line."}";
+    $item->{min_size} = $item->{max_size} = length($line);
+    $item->default_handler($get_size_only, $format, 0, 1);
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub cmd_ircsec ($$$) { 
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    if (@arg == 0 || $arg[0] eq 'help') {
+	# do some stuff
+	show_help();
+    } elsif ($arg[0] eq 'secure') {
+	shift @arg;
+	return unless ref $witem;
+	if (@arg) {
+	    my $key = join(' ', @arg);
+	    if (length($key) < 8) {
+		$witem->print("%R>>%n Key must be a minimum of 8 characters", MSGLEVEL_CLIENTCRAP);
+	    } else {
+		$channels{$server->{tag}}{$witem->{name}}{key} = join(' ', @arg);
+		$channels{$server->{tag}}{$witem->{name}}{active} = 1;
+		$witem->print("%B>>%n %Go-m%n Conversation secured", MSGLEVEL_CLIENTCRAP);
+	    }
+	} else {
+	    $witem->print("%R>>%n Please specify a key", MSGLEVEL_CLIENTCRAP);
+	}
+	Irssi::statusbar_items_redraw('ircsec');
+    } elsif ($arg[0] eq 'unlock') {
+	delete $channels{$server->{tag}}{$witem->{name}};
+	$witem->print("%B>>%n %Ro-m%n Security disabled", MSGLEVEL_CLIENTCRAP);
+	Irssi::statusbar_items_redraw('ircsec');
+    } elsif ($arg[0] eq 'toggle') {
+	return unless ref $witem;
+	if ($channels{$server->{tag}}{$witem->{name}}) {
+	    $channels{$server->{tag}}{$witem->{name}}{active} = not $channels{$server->{tag}}{$witem->{name}}{active};
+	    Irssi::statusbar_items_redraw('ircsec');
+	}
+    }
+}
+
+Irssi::signal_add('message private', sub { decode($_[0], $_[1], $_[2]); });
+Irssi::signal_add('message public', sub { decode($_[0], $_[1], $_[4]); });
+Irssi::signal_add('message own_private', sub { decode($_[0], $_[1], $_[2]); });
+Irssi::signal_add('message own_public', sub { decode($_[0], $_[1], $_[2]); });
+
+Irssi::signal_add_first('send text', "sig_send_text");
+Irssi::signal_add('window changed', sub { Irssi::statusbar_items_redraw('ircsec'); });
+Irssi::signal_add('window item changed', sub { Irssi::statusbar_items_redraw('ircsec'); });
+
+Irssi::statusbar_item_register('ircsec', 0, 'sb_ircsec');
+
+Irssi::settings_add_str($IRSSI{name}, 'ircsec_default_cipher', 'Blowfish');
+
+Irssi::command_bind('ircsec', \&cmd_ircsec);
+
+foreach my $cmd ('unlock', 'secure', 'toggle') {
+    Irssi::command_bind('ircsec '.$cmd => sub {
+        cmd_ircsec("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+print CLIENTCRAP "%B>>%n ".$IRSSI{name}." ".$VERSION." loaded: /ircsec help for help";
+
diff --git a/scripts/irssi-feed.pl b/scripts/irssi-feed.pl
new file mode 100644
index 0000000..2cc6b17
--- /dev/null
+++ b/scripts/irssi-feed.pl
@@ -0,0 +1,445 @@
+# uses XML::Feed (yep, debian's libxml-feed-perl has huge dependencies...)
+#
+# Displays messages in status window, unless a window irssi-feed exists
+# Add one with /window new hidden /window name irssi-feed
+#
+# Command format:
+# /feed {add|set|list|rm} [--uri <address>] [--id <short name>] [--color %<color>] [--newid <new short name>] [--interval <seconds>]
+#
+# Note: Since XML::Feed's HTTP doesn't support async usage, I implemented an
+# an own HTTP client. It won't do anything sensible when redirected and does
+# not support https.
+
+use strict;
+use warnings;
+use feature 'state';
+use XML::Feed;
+use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
+use List::Util qw(min);
+use IO::Socket::INET;
+use Errno;
+use Getopt::Long qw(GetOptionsFromString);
+our $VERSION = "20130209";
+our %IRSSI = (
+	authors     => 'Julius Michaelis',
+	contact     => 'iRRSi@cserv.dyndns.org', # see also: JCaesar on freenode, probably idling in #irssi
+	name        => 'iRSSi feed reader',
+	description => 'Parses and announces XML/Atom feeds',
+	license     => 'GPLv3',
+	url         => 'https://github.com/jcaesar/irssi-feed',
+	changed     => '$VERSION',
+);
+use Irssi qw(command_bind timeout_add INPUT_READ INPUT_WRITE);
+
+sub save_config {
+	our @feeds;
+	my $str = '';
+	foreach my $feed (@feeds) {
+		if(defined $feed) {
+			$str .= " --id $feed->{id}" if($feed->{id});
+			$str .= " --uri $feed->{uri}";
+			$str .= " --interval $feed->{configtimeout} " if($feed->{configtimeout});
+			$str .= " --color $feed->{color} " if($feed->{color});
+			$str .= "\n";
+		}
+	}
+	Irssi::settings_set_str('feedlist', $str);
+}
+
+sub initialize {
+	our @feeds;
+	feedreader_cmd("add$_") foreach(split(/\n/,Irssi::settings_get_str('feedlist')));
+	feedprint("Loaded ".($#feeds+1)." feeds");
+	check_feeds();
+}
+
+sub feedreader_cmd {
+	my ($data, $server, $window_item) = @_;
+	my ($cmd, $args) = split(/ /, $data, 2);
+	my $feed_id;
+	my $feed_uri;
+	my $feed_timeout = 0;
+	my $feed_color = 'NOMODIFY';
+	my $feed_newid;
+	if(!GetOptionsFromString($args, 
+		'uri=s' => \$feed_uri,
+		'id=s' => \$feed_id,
+		'interval=i' => \$feed_timeout,
+		'color=s' => \$feed_color,
+		'newid=s' => \$feed_newid)
+	) {
+		feedprint("Could not parse options of $data");
+		return;
+	}
+	my $feed = find_feed_by('id', $feed_id) // find_feed_by('url', $feed_uri);
+	$feed_timeout = valid_timeout($feed_timeout) if($feed_timeout);
+	if($feed_color ne 'NOMODIFY' && $feed_color !~ m/^%[0-9krbygmpcwKRBYGMPCWFU#]$/ && $feed_color) {
+		feedprint("Invalid color.");
+		$feed_color = 'NOMODIFY';
+	}
+	if($cmd eq "add") {
+		if($feed) {
+			feedprint("Failed to add feed " . feed_stringrepr($feed) . ": Already exists");
+		} elsif(!$feed_uri) {
+			feedprint("Failed to add feed. No uri given.");
+		} else {
+			$feed_color = '' if($feed_color eq 'NOMODIFY');
+			$feed = feed_new($feed_uri, $feed_timeout, $feed_id, $feed_color);
+			feedprint("Added feed " . feed_stringrepr($feed, 'long')) if($window_item);
+			save_config();
+			check_feeds();
+		}
+	} elsif ($cmd eq "set") {
+		if(!$feed) {
+			feedprint("No feed found.");
+		} else {
+			$feed->{active} = 1;
+			$feed->{io}->{failed} = 0;
+			$feed->{timeout} = valid_timeout($feed->{configtimeout});
+			$feed->{uri} = $feed_uri if($feed_uri && $feed_id);
+			$feed->{color} = $feed_color unless($feed_color eq 'NOMODIFY');
+			$feed->{timeout} = $feed_timeout if($feed_timeout);
+			$feed->{id} = $feed_newid if($feed_newid);
+			save_config();
+			feedprint("Modified feed: ". feed_stringrepr($feed, 'long'));
+			check_feeds();
+		}
+	} elsif ($cmd eq "list") {
+		our @feeds;
+		if($#feeds < 0) {
+			feedprint("Feed list: empty");
+		} else {
+			feedprint("Feed list:");
+			foreach my $feed (sort { $a->{color} cmp $b->{color} } @feeds) {
+				feedprint("   " . feed_stringrepr($feed, 'long'));
+			}
+		}
+		check_feeds(); # for the lulz
+	} elsif ($cmd eq "rem" || $cmd eq "rm") {
+		if($feed) {
+			feed_delete($feed);
+			feedprint("Feed deleted: " . feed_stringrepr($feed));
+		} elsif(!defined $args) {
+			my $foundone = 0;
+			our @feeds;
+			foreach(@feeds) {
+				if(not $_->{active}) {
+					$foundone = 1;
+					feed_delete($_);
+					feedprint("Feed deleted: " . feed_stringrepr($_));
+				}
+			}
+			feedprint("No inactive feeds.") if(!$foundone);
+		} else {
+			feedprint("No feed to remove.");
+		}
+		save_config;
+	} else {
+		feedprint("Unknown command: /feed $cmd");
+	}
+}
+
+sub all_feeds_gen1 { our @feeds; $_->{generation} or return 0 for @feeds; 1 }
+
+sub check_feeds {
+	state $timeoutcntr = 0;
+	my $thistimeout = shift // $timeoutcntr;
+	our @feeds;
+	my $nextcheck = ((min(map { feed_check($_) } @feeds)) // 0) + 1;
+	if($thistimeout == $timeoutcntr) {
+		my $fivemin = clock_gettime(CLOCK_MONOTONIC) + 301;
+		$nextcheck = $fivemin if $nextcheck > $fivemin;
+		my $timeout = $nextcheck - clock_gettime(CLOCK_MONOTONIC);
+		$timeout = 5 if $timeout < 5;
+		$timeoutcntr += 1;
+		my $hackcopy = $timeoutcntr; # to avoid passing a reference. I don't understand why it happens
+		Irssi::timeout_add_once(1000 * $timeout, \&check_feeds, $hackcopy) if((scalar(grep { $_->{active} } @feeds)) > 0);
+	}
+}
+
+sub find_feed_by {
+	my ($by, $hint) = @_;
+	return unless $hint;
+	our @feeds;
+	foreach(@feeds) {
+		return $_ if(lc($_->{$by}) eq lc($hint));
+	}
+	return 0;
+}
+
+sub valid_timeout {
+	my ($to) = @_;
+	our $default_timeout;
+	$to = $default_timeout unless($to);
+	$to = 3600 if $to > 86400;
+	$to = 10 if $to < 10;
+	return $to;
+}
+
+sub feed_new {
+	my $uri = shift;
+	my $timeout = shift;
+	my $id = shift;
+	my $color = shift;
+	state $nextfid = 1;
+	my $feed = {
+		id => $id // "$nextfid",
+		uri => URI->new($uri),
+		name => $uri,
+		color => $color,
+		lastcheck => clock_gettime(CLOCK_MONOTONIC) - 86400,
+		timeout => valid_timeout($timeout), # next actual timeout. Doubled on error
+		configtimeout => $timeout,
+		active => 1, # use to deactivate when an error has been encountered.
+		itemids => {"dummy" => -1},
+		generation => 0,
+		io => {
+			readtag => 0,
+			writetag => 0,
+			conn => 0,
+			failed => 0,
+			state => 0,
+			buffer => '',
+			xml => 0,
+		},
+	};
+	$nextfid += 1;
+	our @feeds;
+	push(@feeds, $feed);
+	if($feed->{uri}->scheme ne 'http') {
+		$feed->{active} = 0;
+		if($feed->{uri}->scheme eq 'https') {
+			$feed->{uri}->scheme('http');
+			feedprint(feed_stringrepr($feed) . " has https uri, https is not supported. Do /feed set " . $feed->{id} . " to reactivate with http.");
+		} else {
+			feedprint("Unsupported uri scheme ".$feed->{uri}->scheme." in feed " . feed_stringrepr($feed));
+		}
+	}
+	return $feed;
+}
+
+sub feed_check {
+	my $feed = shift;
+	return if(not $feed->{active});
+	my $now = clock_gettime(CLOCK_MONOTONIC);
+	if(($now - $feed->{lastcheck}) > $feed->{timeout}) {
+		if($feed->{io}->{failed} >= 3) {
+			$feed->{timeout} = valid_timeout($feed->{timeout} * 2);
+			$feed->{generation} += 1; # so the "Skipped n feed entries" message won't hang forever
+			return 0;
+		}
+		feedprint("Warning, stall feed " . feed_stringrepr($feed)) if($feed->{io}->{conn});
+		feed_cleanup_conn($feed, 1);
+		my $conn = $feed->{io}->{conn} = IO::Socket::INET->new(
+			Blocking => 0,
+			Proto => 'tcp',
+			PeerHost => $feed->{uri}->host,
+			PeerPort => $feed->{uri}->port,
+			#Timeout => DO NOT SET TIMEOUT. It will activate blocking io...
+		);
+		if($conn) {
+			$feed->{io}->{readtag}  = Irssi::input_add(fileno($conn), INPUT_READ,  \&feed_io_event_read, $feed);
+			$feed->{io}->{writetag} = Irssi::input_add(fileno($conn), INPUT_WRITE, \&feed_io_event_write, $feed);
+		}
+		$feed->{io}->{failed} += 1;
+		$feed->{lastcheck} = $now;
+	}
+	return $feed->{lastcheck} + $feed->{timeout};
+}
+
+sub feed_io_event_read {
+	my $self = shift;
+#	feedprint($self->{id} . " rdev " . (length $self->{io}->{buffer}));
+	if($self->{io}->{state} == 1) {
+		my $buf = '';
+		my $readcnt = 8192;
+		my $ret = $self->{io}->{conn}->read($buf, $readcnt) // 0;
+		$self->{io}->{buffer} .= $buf;
+		if($ret < $readcnt and $! != Errno::EAGAIN) {
+			$self->{io}->{conn}->shutdown(SHUT_RD);
+			feed_cleanup_conn($self);
+			$self->{io}->{state} = 2;
+			feed_parse_buffer($self);
+		}
+	}
+	if($self->{io}->{conn} and not $self->{io}->{conn}->connected) {
+		feed_cleanup_conn($self, 0);
+		return;
+	}
+}
+
+sub feed_io_event_write {
+	my $self = shift;
+	if(not $self->{io}->{conn}->connected) {
+		feed_cleanup_conn();
+		return;
+	}
+	if($self->{io}->{state} == 0) {
+		my $query = $self->{uri}->path // '/';
+		$query .= '?' . $self->{uri}->query if $self->{uri}->query;
+		my $req = "GET " . $query . " HTTP/1.0\r\n" .
+				"Host: " . $self->{uri}->host . "\r\n" .
+				"User-Agent: Irssi feed reader " . $VERSION . "\r\n" .
+				"Accept-Encoding: gzip\r\n" .
+				"Connection: close\r\n\r\n";
+		$self->{io}->{conn}->send($req);
+		Irssi::input_remove($self->{io}->{writetag}) if $self->{io}->{writetag};
+		$self->{io}->{writetag} = 0;
+		$self->{io}->{state} = 1;
+		# $self->{io}->{conn}->shutdown(SHUT_WR); Appearantly sends a FIN,ACK, and e.g. Wikipedia interprets that as: Don't return the data...
+	}
+}
+
+sub feed_cleanup_conn {
+	my $feed = shift;
+	my $delbuffer = shift;
+	Irssi::input_remove($feed->{io}->{readtag}) if $feed->{io}->{readtag};
+	$feed->{io}->{readtag} = 0;
+	Irssi::input_remove($feed->{io}->{writetag}) if $feed->{io}->{writetag};
+	$feed->{io}->{writetag} = 0;
+	if($feed->{io}->{conn}) {
+		$feed->{io}->{conn}->shutdown(SHUT_RDWR);
+		if($feed->{io}->{conn}->connected) {
+			$feed->{io}->{conn}->close;
+		}
+	}
+	$feed->{io}->{conn} = 0;
+	$feed->{io}->{buffer} = '' if $delbuffer;
+	$feed->{io}->{state} = 0;
+}
+
+sub feed_parse_buffer {
+	my $feed = shift;
+	return unless($feed->{io}->{state} == 2);
+	my $http = HTTP::Response->parse($feed->{io}->{buffer});
+	if($http->is_redirect) {
+		my $location = $http->header('Location');
+		my $uri = URI->new($location);
+		if($location) {
+			feedprint('Feed ' . feed_stringrepr($feed) . ' got redirected to ' . $location);
+			$feed->{uri} = $uri;
+			# fake soonish needed recheck:
+			$feed->{lastcheck} = clock_gettime(CLOCK_MONOTONIC) - $feed->{timeout} + 1;
+			check_feeds();
+		} else {
+			feedprint('Feed ' . feed_stringrepr($feed) . ' got redirected, but the destination was not determinable');
+			$feed->{active} = 0;
+		}
+	}
+	return if not $http->is_success;
+	my $httpcontent = $http->decoded_content;
+	my $data = eval { $feed->{io}->{xml} = XML::Feed->parse(\$httpcontent) };
+	if($data) {
+		$feed->{name} = $data->title;
+		$feed->{io}->{failed} = 0;
+		$feed->{timeout} = valid_timeout($feed->{configtimeout});
+	} else {
+		$feed->{timeout} = valid_timeout($feed->{timeout} * 2);
+	}
+	feed_cleanup_conn($feed, 1);
+	feed_announce($feed);
+}
+
+sub feed_announce {
+	my $feed = shift;
+	my $nulldate = DateTime->new(year => 0);
+	feed_announce_item($feed, $_)
+		foreach
+		sort { DateTime->compare_ignore_floating($a->issued // $nulldate, $b->issued // $nulldate) }
+		grep {defined $_} feed_get_news($feed);
+	finished_load_message();
+}
+
+sub feed_get_news {
+	my $self = shift;
+	my $data = $self->{io}->{xml};
+	return if(!$data);
+	my @news = ();
+	my $itemids = $self->{itemids};
+	for my $item ($data->entries) {
+		push(@news, $item) if(not exists $itemids->{$item->id});
+		$itemids->{$item->id} = $self->{generation};
+	}
+	# forget about old entries
+	foreach (keys %$itemids) {
+		delete($itemids->{$_}) if($itemids->{$_} < $self->{generation});
+	}
+	if($self->{generation} == 0) {
+		our $initial_skips;
+		$initial_skips += $#news; # no +1 missing
+		@news = ($news[ 0 ])
+	}
+	$self->{generation} += 1;
+	$self->{io}->{xml} = 0;
+	return @news;
+}
+
+sub feed_announce_item {
+	my ($feed, $news) = @_;
+	my $space = "";
+	$space =~ s//' ' x ((length $feed->{id}) + 3)/e;
+	my $titleline = $news->title;
+	$titleline =~ s/\s*\n\s*/ | /g;
+	feedprint('<' . feed_stringrepr($feed) . '> ' . $titleline . "\n" . $space . $news->link, Irssi::MSGLEVEL_PUBLIC);
+}
+
+sub finished_load_message {
+	our $initial_skips;
+	if($initial_skips && all_feeds_gen1()) {
+		feedprint("Skipped $initial_skips feed entries.");
+		$initial_skips = 0;
+	}
+}
+
+sub feed_delete {
+	my $self = shift;
+	feed_cleanup_conn($self);
+	our @feeds;
+	@feeds = grep { $_ != $self } @feeds;
+}
+
+sub feed_stringrepr {
+	my ($feed, $long) = @_;
+	return unless $feed;
+	if($long) {
+		return "#" .
+		($feed->{color} ? $feed->{color} : '') .
+		$feed->{id} .
+		($feed->{color} ? '%n' : '') .
+		": " .
+		$feed->{name} . 
+		(($feed->{name} ne $feed->{uri}) ? (" (" .$feed->{uri}. ")") : "") . 
+		($feed->{active} ? " ":" in")."active, " . 
+		$feed->{timeout} ."s";
+	} else {
+		return ($feed->{color} ? $feed->{color} : '') .
+		$feed->{id} .
+		($feed->{color} ? '%n' : '');
+	}
+}
+
+sub feedprint {
+	my ($msg) = @_;
+	state $feedwin = 0;
+	$feedwin = 0 if(not $feedwin or $feedwin->{name} ne 'irssi-feed');
+	if(not $feedwin) {
+		foreach my $w (Irssi::windows()) { #feeling a little bad here
+			if ($w->{name} eq 'irssi-feed') {
+				$feedwin = $w;
+				last;
+			}
+		}
+	}
+	if($feedwin) {
+		$feedwin->print($msg, Irssi::MSGLEVEL_PUBLIC);
+	} else {
+		Irssi::print($msg);
+	}
+}
+
+Irssi::command_bind('feed', \&feedreader_cmd);
+Irssi::settings_add_str('feedreader', 'feedlist', '');
+our $initial_skips = 0;
+our @feeds = ();
+Irssi::timeout_add_once(500, \&initialize, 0);
+our $default_timeout = 600;
diff --git a/scripts/irssiBlaster.pl b/scripts/irssiBlaster.pl
new file mode 100644
index 0000000..0897a87
--- /dev/null
+++ b/scripts/irssiBlaster.pl
@@ -0,0 +1,443 @@
+# irssiBlaster 1.6
+# Copyright (C) 2003 legion
+# 
+# "Now Playing" (mp3blaster) in Irssi and more.
+# 
+# - mp3blaster (http://www.stack.nl/~brama/mp3blaster.html)
+# - irssi (http://irssi.org)
+# for /npsend (EXPERIMENTAL):
+# - lsof (ftp://vic.cc.purdue.edu/pub/tools/unix/lsof/)
+#
+# NOTE: these applications are available in any linux distribution.
+# 
+# should work with any version (i'm using irssi 0.8.8 & mp3blaster 3.2.0)
+# bug reports,features requests or comments -> a.lepore@email.it
+#
+# License:
+# This program is free software; you can redistribute it and/or modify it under
+# the terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or any later version. www.gnu.org
+#
+#################################################################################
+# *** USAGE:
+# 
+# /np			: display the "Artist - Song" played in current window,
+# 			  any argument is printed after the song name (i.e. you own comment).
+#
+# /npa			: like /np, but prints "Artist - Album [Year]".
+# 			  If there isn't an appropriate album tag,print nothing.
+# 			  
+# /anp			: /np in all channels.
+#
+# /anpa			: /npa in all channels.
+#
+# /npinfo		: display all available info for the current file.
+#
+# /cleanbar		: clean the statubar item (until the next song).
+# 
+# /npsend NICK		: *EXPERIMENTAL* (irssi often CRASH)
+# 			  send the current played file to NICK user.
+# 			  maybe it will be usable in version 2.0.
+# 			  
+# 
+# *** SETTINGS:
+#
+# blaster_bar ON/OFF		: statusbar item activation.
+# 				  ATTENTION:
+# 				  you also have to add the item 'blaster' to your statusbar.
+# 				  see: http://irssi.org/?page=docs&doc=startup-HOWTO#c12
+# 				  example:
+# 				  /statusbar window add -priority "-10" -alignment right blaster
+#
+# blaster_infos_path FILE	: the file with infos (mp3blaster -f FILE).
+# 				  default is ~/.infoz
+# 				  
+# blaster_bar_prefix STRING	: the bar prefix to filename. default is "playing:"
+# 
+# blaster_prefix		: the /np prefix to filename. default is "np:"
+# 
+#################################################################################
+# Changelog:
+#
+# 1.6:
+# - /npinfo.
+# - /cleanbar.
+# - /anpa.
+# - /npa.
+# - help fixes. $infofile is now /tmp/irssiblaster.
+# - /npsend (EXPERIMENTAL).
+# - /np [comment].
+# - /anp.
+# - BUGFIX: no spaces at the end of the filenames.
+# - added code comments.
+# - prefixes can be changed.
+# - statusbar realtime print.
+# - 'mp3blaster_infos_path' is now 'blaster_infos_path'.
+# 
+# 1.0:
+# - initial release.
+#
+# TODO:
+# - working /npsend
+# - (automatic) /cleanbar
+# - support for others stuff (album,time..)
+# - /help
+# - use strict;
+#################################################################################
+
+#use strict;
+use Irssi;
+use Irssi::TextUI;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.6';
+%IRSSI = (
+	authors		=> 'legion',
+	contact		=> 'a.lepore@email.it',
+	name		=> 'irssiBlaster',
+	description	=> 'Display the song played by mp3blaster in channels and statusbar. See the top of the file for usage.',
+	license		=> 'GNU GPLv2 or later',
+	changed		=> 'Fri Oct 31 12:22:08 CET 2003',
+);
+
+
+
+sub get_info {
+
+	my $infofile = Irssi::settings_get_str('blaster_infos_path');
+	open (FILE, $infofile); # open and read file with infos
+	@all = <FILE>;
+	close (FILE);
+
+	@artist = grep (/^artist/, @all); # get the lines with tag infos
+	@title = grep (/^title/, @all);
+	@album = grep (/^album/, @all);
+	@year = grep (/^year/, @all);
+	@name = grep (/^path/, @all);     # get the line with filename
+
+} ##
+
+sub get_allinfo {
+
+	my $infofile = Irssi::settings_get_str('blaster_infos_path');
+	open (FILE, $infofile);
+	@all = <FILE>;
+	close (FILE);
+
+	@name = grep (/^path/, @all);
+	$name = $name[0];
+	$name =~ s/^path //;
+	chomp $name;
+	@status = grep (/^status/, @all);
+	$status = $status[0];
+	$status =~ s/^status //;
+	chomp $status;
+	@artist = grep (/^artist/, @all);
+	$artist = $artist[0];
+	$artist =~ s/^artist //;
+	chomp $artist;
+	@title = grep (/^title/, @all);
+	$title = $title[0];
+	$title =~ s/^title //;
+	chomp $title;
+	@album = grep (/^album/, @all);
+	$album = $album[0];
+	$album =~ s/^album //;
+	chomp $album;
+	@year = grep (/^year/, @all);
+	$year = $year[0];
+	$year =~ s/^year //;
+	chomp $year;
+	@comment = grep (/^comment/, @all);
+	$comment = $comment[0];
+	$comment =~ s/^comment //;
+	chomp $comment;
+	@mode = grep (/^mode/, @all);
+	$mode = $mode[0];
+	$mode =~ s/^mode //;
+	chomp $mode;
+	@format = grep (/^format/, @all);
+	$format = $format[0];
+	$format =~ s/^format //;
+	chomp $format;
+	@bitrate = grep (/^bitrate/, @all);
+	$bitrate = $bitrate[0];
+	$bitrate =~ s/^bitrate //;
+	chomp $bitrate;
+	@samplerate = grep (/^samplerate/, @all);
+	$samplerate = $samplerate[0];
+	$samplerate =~ s/^samplerate //;
+	chomp $samplerate;
+	@length = grep (/^length/, @all);
+	$length = $length[0];
+	$length =~ s/^length //;
+	chomp $length;
+	@next = grep (/^next/, @all);
+	$next = $next[0];
+	$next =~ s/^next //;
+	chomp $next;
+
+} ##
+
+sub get_status {
+
+	my $infofile = Irssi::settings_get_str('blaster_infos_path');
+	open (FILE, $infofile);
+	@all = <FILE>;
+	close (FILE);
+
+	@status = grep (/^status/, @all);
+} ##
+
+sub get_tag_info {
+
+	$artist = $artist[0]; # is an one-element array
+	$artist =~ s/^artist //; # remove prefixes
+	chomp $artist;           # remove last char (for correct printing)
+	$title = $title[0];
+	$title =~ s/^title //;
+	chomp $title;
+	$album = $album[0];
+	$album =~ s/^album //;
+	chomp $album;
+	$year = $year[0];
+	$year =~ s/^year //;
+	chomp $year;
+
+	$prefix = Irssi::settings_get_str('blaster_prefix');
+	$barprefix = Irssi::settings_get_str('blaster_bar_prefix');
+
+} ##
+
+sub get_name_info {
+
+	$name = $name[0];
+	$name =~ s/^path //;  # remove prefix
+	$name =~ s/\.mp3$//i; # remove extensions
+	$name =~ s/\.ogg$//i;
+	$name =~ s/_/ /g;     # change underscores to spaces
+	chomp $name;
+
+	$prefix = Irssi::settings_get_str('blaster_prefix');
+	$barprefix = Irssi::settings_get_str('blaster_bar_prefix');
+
+} ##
+
+sub noinfo_error {
+
+	my $infofile = Irssi::settings_get_str('blaster_infos_path');
+	# print help if the info file is not valid
+	Irssi::print(
+	"%9IrssiBlaster:%_ \"$infofile\" is not a valid info file. %9Make sure%_ %Rmp3blaster -f $infofile%n %9is running!!!%_\n".
+	"%9IrssiBlaster:%_ (Hint: put %9alias mp3blaster='mp3blaster -f $infofile'%_ in your ~/.bashrc )"
+	, MSGLEVEL_CRAP);
+
+} ##
+
+
+
+
+sub cmd_np { # /np stuff
+
+get_info;
+
+if (@artist && @title) { # if file has a an id3tag
+
+	get_tag_info;
+	
+	my ($comment, $server, $witem) = @_; # np: blabla in current window (copied from other scripts..)
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+		$witem->command("me $prefix $artist - $title $comment");
+	}
+	else {
+		Irssi::print("$prefix $artist - $title $comment", MSGLEVEL_CRAP); # or print in client level if no active channel/query
+	}
+}
+
+elsif (@name) { # if there isn't id3tag we use the filename
+
+	get_name_info;
+	
+	my ($comment, $server, $witem) = @_;
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+		$witem->command("me $prefix $name $comment");
+	}
+	else {
+		Irssi::print("$prefix $name $comment", MSGLEVEL_CRAP);
+	}
+}
+	
+else { noinfo_error; }
+
+} ##
+
+sub cmd_npall { # /anp stuff
+
+get_info;
+
+if (@artist && @title) {
+
+	get_tag_info;
+
+	my ($comment, $server, $witem) = @_;
+	Irssi::command("foreach channel /me $prefix $artist - $title $comment");
+}
+
+elsif (@name) {
+	
+	get_name_info;
+
+	my ($comment, $server, $witem) = @_;
+	Irssi::command("foreach channel /me $prefix $name $comment");
+}
+
+else { noinfo_error; }
+
+} ##
+
+sub cmd_npalbum { # /npa stuff
+
+if (@artist && @album) {
+		
+	get_tag_info;
+
+	if ($year) { $year = "[$year]"; }
+
+	my ($comment, $server, $witem) = @_;
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+		$witem->command("me $prefix $artist - $album $year $comment");
+	}
+	else {
+		Irssi::print("$prefix $artist - $album $year $comment", MSGLEVEL_CRAP);
+	}
+}
+else {
+	Irssi::print("%9IrssiBlaster:%_ filename has no album tag.", MSGLEVEL_CRAP);
+}
+} ##
+
+sub cmd_npalbumall { # /anpa stuff
+
+get_info;
+
+if (@artist && @album) {
+
+	get_tag_info;
+
+	if ($year) { $year = "[$year]"; }
+
+	my ($comment, $server, $witem) = @_;
+	Irssi::command("foreach channel /me $prefix $artist - $album $year $comment");
+}
+else {
+        Irssi::print("%9IrssiBlaster:%_ filename has no album tag.", MSGLEVEL_CRAP);
+}
+} ##
+
+sub cmd_info {
+
+get_allinfo;
+
+$tot = $length/60; # calculating minutes:seconds
+@tot = split(/\./, $tot);
+$min = $tot[0];
+$sec = $min*60;
+$secs = $length-$sec;
+
+Irssi::print("\n%9IrssiBlaster - File Info:%_", MSGLEVEL_CRAP);
+Irssi::print("%9F%_ile%9:%_ $name", MSGLEVEL_CRAP);
+Irssi::print("%9S%_tatus%9:%_ $status", MSGLEVEL_CRAP);
+if ($artist) { Irssi::print("%9A%_rtist%9:%_ $artist", MSGLEVEL_CRAP); }
+if ($title) { Irssi::print("%9T%_itle%9:%_ $title", MSGLEVEL_CRAP); }
+if ($album) { Irssi::print("%9A%_lbum%9:%_ $album", MSGLEVEL_CRAP); }
+if ($year) { Irssi::print("%9Y%_ear%9:%_ $year", MSGLEVEL_CRAP); }
+if ($comment) { Irssi::print("%9C%_omment%9:%_ $comment", MSGLEVEL_CRAP); }
+Irssi::print("%9-%_----------%9-%_", MSGLEVEL_CRAP);
+if ($secs =~ /^.{1}$/) { Irssi::print("%9L%_ength%9:%_ $min\:0$secs", MSGLEVEL_CRAP); }
+else { Irssi::print("%9L%_ength%9:%_ $min\:$secs", MSGLEVEL_CRAP); }
+if ($format =~ /0$/) { Irssi::print("%9F%_iletype%9:%_ $format (Ogg/Vorbis?)", MSGLEVEL_CRAP); }
+else { Irssi::print("%9F%_iletype%9:%_ $format", MSGLEVEL_CRAP); }
+Irssi::print("%9R%_ate%9:%_ $bitrate\kb/$samplerate\Khz", MSGLEVEL_CRAP);
+if ($mode) { Irssi::print("%9M%_ode%9:%_ $mode", MSGLEVEL_CRAP); }
+if ($next) { Irssi::print("%9N%_ext in playlist%9:%_ $next", MSGLEVEL_CRAP); }
+
+} ##
+
+#######################################################################################
+
+sub bar_np { # statusbar stuff
+
+my ($item, $get_size_only) = @_;
+
+my $bar_activation = Irssi::settings_get_str('blaster_bar');
+if ($bar_activation =~ /^on$/i) { # display in bar only if /set blaster_bar = ON
+
+get_info;
+
+if (@artist && @title) {
+
+	get_tag_info;
+	
+	# print in statusbar
+	$item->default_handler($get_size_only, "{sb $barprefix $artist - $title}", undef, 1);
+}
+
+elsif (@name) {
+
+	get_name_info;
+	
+	$item->default_handler($get_size_only, "{sb $barprefix $name}", undef, 1);
+}
+
+else { 
+	$item->default_handler($get_size_only, undef, undef, 1);
+}
+}
+} ##
+
+sub refresh {
+	Irssi::statusbar_items_redraw('blaster'); # refresh statusbar
+	Irssi::statusbars_recreate_items();
+} ##
+
+sub cmd_cleanbar { # /cleanbar stuff
+
+my $infofile = Irssi::settings_get_str('blaster_infos_path');
+unlink $infofile;
+
+} ##
+
+sub cmd_send { # /npsend stuff
+
+	get_info;
+
+	my @name = grep (/^path/, @all);
+	my $name = $name[0];
+	$name =~ s/path //;
+	chomp $name;
+
+	# get the full path of the file from 'lsof' (i have lsof 4.64)
+	my @open_files = grep (/$name$/, `lsof -c mp3blaste -F n`);
+	$open_files[0] =~ s/^n//;
+	my $filename = $open_files[0];
+	chomp $filename;
+
+	my ($target, $server, $witem) = @_;
+	$server->command("DCC SEND $target \"$filename\""); # /dcc send
+
+} ##
+
+
+Irssi::settings_add_str('irssiBlaster', 'blaster_infos_path', '/tmp/irssiblaster'); # register settings
+Irssi::settings_add_str('irssiBlaster', 'blaster_prefix', 'np:');
+Irssi::settings_add_str('irssiBlaster', 'blaster_bar_prefix', 'playing:');
+Irssi::settings_add_str('irssiBlaster', 'blaster_bar', 'OFF');
+Irssi::command_bind('np', 'cmd_np'); # register /commands
+Irssi::command_bind('anp', 'cmd_npall');
+Irssi::command_bind('npa', 'cmd_npalbum');
+Irssi::command_bind('anpa', 'cmd_npalbumall');
+Irssi::command_bind('npinfo', 'cmd_info');
+Irssi::command_bind('cleanbar', 'cmd_cleanbar');
+Irssi::command_bind('npsend', 'cmd_send');
+Irssi::statusbar_item_register('blaster', undef, 'bar_np'); # register statusbar item
+Irssi::timeout_add(1000, 'refresh', undef); # refresh every 1 second
diff --git a/scripts/irssiq.pl b/scripts/irssiq.pl
new file mode 100644
index 0000000..d29724c
--- /dev/null
+++ b/scripts/irssiq.pl
@@ -0,0 +1,831 @@
+#!/usr/bin/perl
+#
+# by Stefan "tommie" Tomanek
+#
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003231101";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "IrssiQ",
+    description => "integrates ICQ instant-messaging into irssi",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    modules     => "Net::vICQ Data::Dumper",
+    sbitems     => "irssiq",
+    commands	=> "irssiq"
+);
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use Net::vICQ;
+use Data::Dumper;
+use vars qw($icq $timer $old_status %contacts @requested $want_connect);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help="IrssiQ $VERSION
+/irssiq
+    List contact list
+/irssiq connect
+    Connect to the ICQ network
+/irssiq disconnect
+    Disconnect from ICQ network
+/irssiq add <uin>
+    Add uin to contact list
+/irssiq del <uin>
+    Delete uin from contact list
+/irssiq auth <uin>
+    Authorize user to add your UIN to his contact list
+/irssiq info <uin1> <uin2>....
+    Retrieve information about the uins
+/irssiq invisible <uin>
+    Add or remove the UIN from your invisible list
+/irssiq visible <uin>
+    Add or remove the UIN from your visible list
+/irssiq hidden <uin>
+    Hide (or show) a uin in the statusbar
+/irssiq msg <uin>
+    Send a message to uin
+/irssiq query <uin>
+    Create a new query window with uin
+/irssiq email
+    Send an email to uin
+/irssiq status (away|online|na|occupied|dnd|invisible)
+    Change to the selected status
+/irssiq save
+    Save contact list to file
+/irssiq load
+    (Re-)Load contact list (reconnect afterwards)
+";      
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box($IRSSI{name}, $text, "help", 1);
+}
+
+sub call_openurl ($) {
+    my ($url) = @_;
+    no strict "refs";
+    # check for a loaded openurl
+    if (defined %{ "Irssi::Script::openurl::" }) {
+        &{ "Irssi::Script::openurl::launch_url" }($url);
+    } else {
+        print CLIENTCRAP "%R>>%n Please install openurl.pl";
+    }
+}
+
+sub store_openurl ($$$) {
+    my ($uin, $text, $url) = @_;
+    $url =~ s/\n/ /g;
+    $text =~ s/\n/ /g;
+    no strict "refs";
+    if (defined %{ "Irssi::Script::openurl::" }) {
+	&{ "Irssi::Script::openurl::new_url" }(undef, "IrssiQ", $uin, $text, $url);
+    } else {
+	print CLIENTCRAP "%R>>%n Please install openurl.pl";
+    }
+}
+
+sub output ($) {
+    print CLIENTCRAP $_ foreach split(/\n/, $_[0]);
+}
+
+sub icq_connect {
+    my $uin = Irssi::settings_get_int('irssiq_uin');
+    my $password = Irssi::settings_get_str('irssiq_password');
+    $icq = Net::vICQ->new($uin, $password, 0);
+    #$icq->{_Hide_IP} = 0;
+    $icq->Add_Hook("Srv_Mes_Received", \&MessageHandler);
+    $icq->Add_Hook("Srv_Srv_Message", \&MessageHandler);
+    $icq->Add_Hook("Srv_BLM_Contact_Online", \&MessageHandler);
+    $icq->Add_Hook("Srv_BLM_Contact_Offline", \&MessageHandler);
+    $icq->{_Status} = 'Online';
+    my $err;
+    output "%R>>%n Trying to connect to ICQ server...";
+    {
+	$icq->{_Auto_Login} = 1;
+	open FOO, '>>/dev/null';
+	my $oldfh = select(FOO);
+	$icq->Connect();
+	if(!($err = $icq->GetError())) {
+	    while(!$icq->{_LoggedIn} && !($err = $icq->GetError())) {
+	    	$icq->Execute_Once();
+	    }
+    	}
+	select($oldfh);
+    }
+    if(!$err) {
+        output "%R<<%n ..connected!";
+	#my ($details);
+	#$details->{Status} = 'Online';
+	#$icq->Send_Command("Cmd_GSC_Set_Status", $details);
+	add_uin($uin) unless $contacts{$uin};
+	send_contacts();
+	$timer = Irssi::timeout_add(2000, 'icq_cycle', undef);
+        return 1;
+    } else {
+        output "%R<<%n ..failed!";
+	$want_connect = 0;
+        my $s = $err;
+        chomp($s);
+        print("%R>>%n ".$s);
+        return 0;
+    }
+}
+
+sub write_to_log ($$$$) {
+    my ($who, $direction, $type, $text) = @_;
+    my $dir = Irssi::get_irssi_dir();
+    mkdir $dir."/irssiq/" unless (-e $dir."/irssiq/");
+    
+    my $data = $type." ".$direction." ".$who.":\n";
+    $data .= scalar(localtime())."\n";
+    $data .= $text."\n\n";
+
+    local *F;
+    open(F, '>>'.$dir."/irssiq/".$who);
+    print F $data;
+    close(F);
+}
+
+sub MessageHandler ($$) {
+    my ($icq, $details) = @_;
+    if (Irssi::settings_get_bool('irssiq_debug')) {
+	my $text;
+	foreach (keys %$details) {
+	    my $content = $details->{$_};
+	    no warnings;
+	    #$content =~ s/\c.//g;
+	    #$content =~ s/\pC//g;
+	    $content =~ s/(?:(\n)|\pC)/$1/g;
+	    $content =~ s/%/%%/g;
+	    $text .=  $_." -> <".$content.">\n";
+	}
+	#print CLIENTCRAP $_." -> <".$details->{$_}.">" foreach keys %$details;
+	print CLIENTCRAP &draw_box('IrssiQ', $text, 'debug', 1);
+    }
+    my $type = $details->{MessageType};
+    if ($type eq 'text_message' || $type eq 'offline_text_message' ) {
+	my $text = $details->{text};
+	# FIXME unicode stuff?!
+	no warnings;
+	#$text =~ s/\c.//g;
+	#$text =~ s/\pC//g;
+	$text =~ s/(?:(\n)|\pC)/$1/g;
+	write_to_log($details->{Sender}, 'from', 'msg', $text);
+	$text =~ s/%/%%/g;
+	my $output = draw_box("IrssiQ", $text, "msg from ".get_nick($details->{Sender}), 1);
+	# autocancels if there is already a window
+	start_query($details->{Sender}) if Irssi::settings_get_bool('irssiq_auto_open_query');
+    	my $win = Irssi::window_find_name('<IrssiQ-'.$details->{Sender}.'>');
+ 	if (ref $win) {
+	    if (Irssi::settings_get_bool('irssiq_msg_border_in_query')) {
+		$win->print($output, MSGLEVEL_MSGS);
+	    } else {
+	     	$win->print("<".get_nick($details->{Sender})."> ".$text, MSGLEVEL_MSGS);
+	    }
+	} else {
+	    print MSGS $_ foreach split(/\n/, $output);
+	}
+    } elsif ($type eq 'URL') {
+	write_to_log($details->{Sender}, 'from', 'URL', $details->{URL});
+	my $output = draw_box("IrssiQ", "%U".$details->{URL}."%U", "URL from ".get_nick($details->{Sender}), 1);
+	my $win = Irssi::window_find_name('<IrssiQ-'.$details->{Sender}.'>');
+	unless (ref $win) {
+	    print MSGS $_ foreach split(/\n/, $output);
+	} else {
+	    $win->print("<".get_nick($details->{Sender})."> ".$details->{URL}, MSGLEVEL_MSGS);
+	}
+	store_openurl($details->{Sender}, $details->{URL}, $details->{URL});
+    } elsif ($type eq 'status_change') {
+	if ($details->{Sender} == Irssi::settings_get_int('irssiq_uin')) {
+	    unless ($contacts{$details->{Sender}}{status} eq $details->{Status}) {
+		output "%R<<%n Changed own status to '".$details->{Status}."'.";
+	    }
+	}
+	$contacts{$details->{Sender}}{status} = $details->{Status};
+	Irssi::statusbar_items_redraw('irssiq');
+    } elsif ($type eq 'user_info_main') {
+	my $uin = shift(@requested);
+	if ($contacts{$uin}) {
+	    foreach (keys %$details) {
+		next if (/Ref|Our_UIN|MessageType|SubMessageType/);
+		$contacts{$uin}{user_info_main}{$_} = $details->{$_};
+		$contacts{$uin}{user_info_main}{$_} =~ s/ /_/g if $_ eq 'Nickname';
+	    }
+	}
+	show_short_info($uin, $details);
+	Irssi::statusbar_items_redraw('irssiq');
+	next_info();
+    } elsif ($type eq 'user_info_not_found') {
+	my $uin = shift(@requested);
+	output "%R>>%n Information about UIN ".$uin." not found";
+	next_info();
+    } elsif ($type eq 'add_message') {
+	output draw_box("IrssiQ", $details->{Sender}." added you to his/her contact list", "added by ".$details->{Sender}, 1);
+    } elsif ($type eq 'auth_request') {
+	get_userinfo($details->{Sender});
+	output draw_box("IrssiQ", $details->{reason}, "auth-request from ".$details->{Sender}, 1);
+    } elsif ($type eq 'Invalid tagged message') {
+	# Webmessage
+	my $string = $details->{TaggedDataString};
+	$string =~ s/\pC//g;
+	$string =~ /\d+\.\d+\.\d+\.\d+(.*)/;
+	write_to_log("Webmessage", 'from', 'msg', $1);
+	print CLIENTCRAP &draw_box("IrssiQ", $1, "WebMessage", 1);
+    }
+}
+
+sub next_info {
+    return unless defined $requested[0];
+    my $uin = $requested[0];
+    output "%B>>%n Requesting user information for UIN #$uin";
+    my %details = (
+        MessageType => "Get_WP_Info",
+        TargetUIN => $uin,
+    );
+    $icq->Send_Command("Cmd_Srv_Message", \%details);
+}
+
+sub get_userinfo ($) {
+    my ($uin) = @_;
+    push @requested, $uin;
+    next_info if (scalar(@requested) == 1);
+}
+
+sub icq_cycle {
+    return unless ($icq);
+    $icq->Send_Keep_Alive();
+    $icq->Execute_Once();
+    unless ($icq->{_Connected}) {
+        Irssi::timeout_remove($timer);
+	output "%R>>%n IrssiQ disconnected";
+	$contacts{$_}{status} = 'Offline' foreach keys %contacts;
+	if (Irssi::settings_get_bool('irssiq_auto_reconnect') && $want_connect) {
+	    icq_connect();
+	}
+    }
+}
+
+sub send_message ($$$) {
+    my ($icq, $uin, $text) = @_;
+    my $details = { uin => $uin,
+                    MessageType => 'text',
+                    text =>  $text
+    };
+    write_to_log($uin, 'to', 'msg', $text);
+    $icq->Send_Command("Cmd_Send_Message", $details);
+    my $win = Irssi::window_find_name('<IrssiQ-'.$uin.'>');
+    my $output = draw_box("IrssiQ", $text, "msg to ".get_nick($uin), 1);
+    unless (ref $win) {
+	print CLIENTCRAP $_ foreach split(/\n/, $output);
+    } else {
+	my $my_uin = Irssi::settings_get_int('irssiq_uin');
+	$win->print("<".get_nick($my_uin)."> ".$text, MSGLEVEL_CLIENTCRAP);
+    }
+}
+
+sub array2table {
+    my (@array) = @_;
+    my @width;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)) {
+            my $l = $line->[$_];
+            $l =~ s/%[^%]//g;
+            $l =~ s/%%/%/g;
+            $width[$_] = length($l) if $width[$_]<length($l);
+        }
+    }   
+    my $text;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)) {
+            my $l = $line->[$_];
+            $text .= $line->[$_];
+            $l =~ s/%[^%]//g;
+            $l =~ s/%%/%/g;
+            $text .= " "x($width[$_]-length($l)+1);
+        }
+        $text .= "\n";
+    }
+    return $text;
+}
+
+
+sub list_contacts {
+    my $text;
+    my @array;
+    my $my_uin = Irssi::settings_get_int('irssiq_uin');
+    foreach (sort {$contacts{$a}{status} cmp $contacts{$b}{status}} keys %contacts) {
+	my @line;
+	next if $_ eq $my_uin;
+	my $status = $contacts{$_}{status};
+	next if ($status eq 'Offline' && not Irssi::settings_get_bool('irssiq_list_show_offline'));
+	if ($status eq "Online") {
+	    push @line, "%go%n";
+	} else {
+	    push @line, "%ro%n";
+	}
+	push @line, $status;
+	if ($contacts{$_}{user_info_main} && $contacts{$_}{user_info_main}{Nickname}) {
+	    push @line, '['.$contacts{$_}{user_info_main}{Nickname}.']';
+	} else {
+	    push @line, '';
+	}
+	push @line, $_;
+	if ($contacts{$_}{invisible}) {
+	    push @line, '%B<Inv>%n';
+	} else {
+	    push @line, "";
+	}
+	if ($contacts{$_}{visible}) {
+            push @line, '%G<Vis>%n';
+        } else {
+            push @line, "";
+        }
+	if ($contacts{$_}{hide_in_sb}) {
+	    push @line, '%B<Hidden>%n';
+	} else {
+	    push @line, "";
+	}
+	push @array, \@line;
+    }
+    my %table = (Online           => '%G==Online==%n',
+		 Away             => '%R===Away===%n',
+		 'Do Not Disturb' => '%B===DnD====%n',
+		 Occupied         => '%Y=Occupied=%n',
+		 Invisible        => '%C===Inv====%n',
+		 'N/A'            => '%Y===N/A====%n',
+		 Offline          => '%R=Offline==%n'
+		 );
+    $text = array2table(@array);
+    $text .= $table{$contacts{$my_uin}{status}}."\n";
+    output draw_box('IrssiQ', $text, 'contacts', 1);
+}
+
+sub add_uin ($) {
+    my ($uin) = @_;
+    $contacts{$uin} = { status => 'Offline' } unless defined $contacts{$uin};
+    Irssi::statusbar_items_redraw('irssiq');
+    get_userinfo($uin) if ($icq && $icq->{_Connected});
+}
+
+sub del_uin ($) {
+    my ($uin) = @_;
+    return unless defined $contacts{$uin};
+    delete $contacts{$uin};
+}
+
+sub send_contacts {
+    my ($details, $details2, $details3);
+    my @uins;
+    my @inv;
+    my @vis;
+    foreach (keys(%contacts)) {
+	push @uins, $_;
+	push @inv, $_ if $contacts{$_}{invisible}; 
+	push @vis, $_ if $contacts{$_}{visible}; 
+    }
+    $details->{ContactList} = \@uins;
+    $icq->Send_Command("Cmd_Add_ContactList", $details);
+    $icq->Send_Command("Cmd_CTL_UploadList", $details);
+    $details2->{InVisibleList} = \@inv;
+    $details3->{VisibleList} = \@vis;
+    $icq->Send_Command("Cmd_BOS_Add_InVisibleList", $details2) if @inv;
+    $icq->Send_Command("Cmd_BOS_Add_VisibleList", $details3) if @vis;
+}
+
+sub save_contacts {
+    my $dir = Irssi::get_irssi_dir();
+    my $dumper = Data::Dumper->new([\%contacts], ['contacts']);
+    $dumper->Purity(1)->Deepcopy(1);
+    my $data = $dumper->Dump;
+    local *F;
+    open(F, '>'.$dir.'/irssiq_contacts');
+    print F $data;
+    close(F);
+    output "%R>>%n IrssiQ contacts saved";
+}
+
+sub load_contacts {
+    my $text;
+    my $dir = Irssi::get_irssi_dir();
+    return unless (-e $dir.'/irssiq_contacts');
+    local *F;
+    open F, "<".$dir.'/irssiq_contacts';
+    $text .= $_ foreach (<F>);
+    close(F);
+    if ($text) {
+	no strict;
+	my %friends = %{ eval "$text" };
+	foreach (keys %friends) {
+	    next if defined $contacts{$_};
+	    $contacts{$_} = $friends{$_};
+	    $contacts{$_}{status} = 'Offline';
+	}
+    }
+}
+
+sub show_short_info ($$) {
+    my ($uin, $details) = @_;
+    my $text = "== ".$details->{Nickname}." ==\n";
+    $text .= "Name : ".$details->{Firstname}." ".$details->{Lastname}."\n";
+    $text .= "eMail: ".$details->{Email}."\n";
+    output draw_box('IrssiQ', $text, $uin, 1);
+}
+
+sub set_status ($) {
+    my ($status) = @_;
+    $status =~ s/ /_/g;
+    my %table = (online    => 'Online',
+                 away      => 'Away',
+		 na        => 'Not_Available',
+		 occupied  => 'Occupied',
+		 dnd       => 'Do_Not_Disturb',
+		 invisible => 'Invisible',
+		 ffc       => 'Free_For_Chat'
+		 );
+    my %options = %table;
+    $options{'N/A'} = 'Not_Available';
+    $options{ $table{$_}  } = $table{$_} foreach keys %table;
+    unless (defined $options{$status}) {
+	output "%R>>%n '".$status."' is an invalid status";
+	output "%R>>%n Valid options are: ".join(" ", keys(%table));
+	return;
+    }
+    my ($details);
+    $details->{Status} = $options{$status};
+    $icq->Send_Command("Cmd_GSC_Set_Status", $details);
+}
+
+sub sig_away ($) {
+    my ($server) = @_;
+    return unless ($icq && $icq->{_Connected});
+    my $away_status = Irssi::settings_get_str('irssiq_away_status');
+    if ($server->{usermode_away}) {
+        my $uin = Irssi::settings_get_str('irssiq_uin');
+        $old_status = $contacts{$uin}{status};
+	set_status($away_status);
+    } else {
+	set_status($old_status);
+    }
+}
+
+sub sb_show ($$) {
+    my ($item, $get_size_only) = @_;
+    my $line = "";
+    my %users;
+    my $more = 0;
+    foreach my $uin (sort {$contacts{$a}{status} cmp $contacts{$b}{status}} keys %contacts) {
+	next if $uin eq Irssi::settings_get_str('irssiq_uin');
+	my $status = $contacts{$uin}{status};
+	next if $status eq '';
+	next if ($status eq 'Online' && not Irssi::settings_get_bool('irssiq_statusbar_show_online'));
+	next if ($status eq 'Offline' && not Irssi::settings_get_bool('irssiq_statusbar_show_offline'));
+	next if ($status eq 'Away' && not Irssi::settings_get_bool('irssiq_statusbar_show_away'));
+	next if ($status eq 'Do Not Disturb' && not Irssi::settings_get_bool('irssiq_statusbar_show_dnd'));
+	next if ($status eq 'Occupied' && not Irssi::settings_get_bool('irssiq_statusbar_show_occupied'));
+	next if ($status eq 'Invisible' && not Irssi::settings_get_bool('irssiq_statusbar_show_invisible'));
+	next if ($status eq 'N/A' && not Irssi::settings_get_bool('irssiq_statusbar_show_not_available'));
+	if ($contacts{$uin}{hide_in_sb}) { $more = 1; next; }
+	# FIXME Irssi bug?!
+	my %table = (Online           => '%gO%n',
+		    Away             => '%rA%n',
+		    'Do Not Disturb' => '%bD%n',
+		    Occupied         => '%yOc%n',
+		    Invisible        => '%cI%n',
+		    'N/A'            => '%yN%n',
+		    'Offline'        => '%RO%n'
+		    );
+	unless (Irssi::settings_get_bool('irssiq_statusbar_compact')) {
+	    $line .= '<';
+	    if (defined $table{$status}) {
+		$line .= $table{$status};
+	    } else {
+		$line .= substr($status, 0, 1);
+	    }
+	    $line .= '%bI%n' if $contacts{$uin}{invisible};
+	    $line .= '%gV%n' if $contacts{$uin}{visible};
+	    $line .= '>';
+	    if ($contacts{$uin}{user_info_main} && $contacts{$uin}{user_info_main}{Nickname}) {
+		$line .= $contacts{$uin}{user_info_main}{Nickname}." ";
+	    } else {
+		$line .= $uin." ";
+	    }
+	} else {
+	    push @{ $users{$table{$status}} }, $uin;
+	}
+    }
+    if (Irssi::settings_get_bool('irssiq_statusbar_compact')) {
+	foreach (keys %users) {
+	    $line .= '<'.$_;
+	    foreach my $uin (@{ $users{$_} }) {
+		$line .= ' '.get_nick($uin);
+	    }
+	    $line .= '>';
+	}
+    }
+    my %table = (Online           => '%G==Online==%n',
+                 Away             => '%R===Away===%n',
+                 'Do Not Disturb' => '%B===DnD====%n',
+                 Occupied         => '%Y=Occupied=%n',
+                 Invisible        => '%C===Inv====%n',
+                 'N/A'            => '%Y===N/A====%n',
+		 Offline          => '%R=Offline==%n'
+                 );
+    if (Irssi::settings_get_bool('irssiq_statusbar_short_status')) {
+	%table = (Online           => '%G(On)%n',
+		  Away             => '%R(Aw)%n',
+		  'Do Not Disturb' => '%B(DnD)%n',
+		  Occupied         => '%Y(Inv)%n',
+		  'N/A'            => '%Y(NA)%n',
+		  Offline          => '%R(Off)%n'
+		 );
+    }
+    my $my_uin = Irssi::settings_get_int('irssiq_uin');
+    $line .= '...' if $more;
+    $line .= $table{$contacts{$my_uin}{status}};
+
+    my $format = "{sb ".$line."}";
+    $item->{min_size} = $item->{max_size} = length($line);
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub get_uin ($) {
+    my ($input) = @_;
+    return $input if $input =~ /^[0-9]+$/;
+    
+    foreach (keys %contacts) {
+	if ($contacts{$_}{user_info_main} && $contacts{$_}{user_info_main}{Nickname}) {
+	    return $_ if lc($contacts{$_}{user_info_main}{Nickname}) eq lc($input);
+	}
+    }
+    return undef;
+}
+
+sub get_nick ($) {
+    my ($uin) = @_;
+    if ($contacts{$uin} && $contacts{$uin}{user_info_main}) {
+	return $contacts{$uin}{user_info_main}{Nickname};
+    }
+    # Fallback
+    return $uin;
+}
+
+sub send_auth ($) {
+    my ($uin) = @_;
+    return unless $uin =~ /^[0-9]+$/;
+    my ($details);
+    $details->{uin} = $uin;
+    $icq->Send_Command("Cmd_Authorize", $details);
+    output "%R>>%n Authorization sent to ".$uin;
+}
+
+sub start_query ($) {
+    my ($uin) = @_;
+    return if ref Irssi::window_find_name('<IrssiQ-'.$uin.'>');
+    Irssi::command("window new hide");
+    my $win = Irssi::active_win;
+    $win->set_name('<IrssiQ-'.$uin.'>');
+    $win->set_history('<IrssiQ-'.$uin.'>');
+    $win->print('Starting IrssiQ query with '.get_nick($uin).' ('.$uin.')');
+}
+
+sub sig_send_text ($) {
+    my ($text, $foo1, $foo2) = @_;
+    my $win = Irssi::active_win;
+    return unless (ref $win && $win->{name} =~ /<IrssiQ-(\d+)>/);
+    my $uin = $1;
+    if ($icq && $icq->{_Connected}) {
+	send_message($icq, $uin, $text);
+    } else {
+	$win->print("%R>>%n You are not connected to ICQ", MSGLEVEL_CLIENTCRAP);
+    }
+}
+
+sub send_url ($$$) {
+    my ($uin, $url, $description) = @_;
+    return unless ($icq && $icq->{_Connected});
+    my %details = ( uin => $uin,
+		    MessageType => 'url',
+		    URL =>  $url,
+		    Description => $description
+	    	    );
+    write_to_log($uin, 'to', 'url', $url."\n".$description);
+    $icq->Send_Command("Cmd_Send_Message", \%details);
+    my $win = Irssi::window_find_name('<IrssiQ-'.$uin.'>');
+    my $output = draw_box("IrssiQ", $url, "url to ".get_nick($uin), 1);
+    unless (ref $win) {
+        output $output;
+    } else {
+	my $my_uin = Irssi::settings_get_int('irssiq_uin');
+	$win->print("<".get_nick($my_uin)."> ".$url, MSGLEVEL_CRAP);
+    }
+
+}
+# calles by scriptassist on reload
+sub pre_unload {
+    save_contacts();
+    return unless $icq->{_Connected};
+    $icq->Disconnect() if ($icq && $icq->{_Connected});
+    while ($icq->{_Connected}) {
+	$icq->Execute_Once();
+    }
+    $contacts{$_}{status} = 'Offline' foreach keys %contacts;
+    output "%R>>%n IrssiQ disconnected";
+}
+
+sub sig_complete_word ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    return unless $linestart =~ /^.irssiq (\w+)/;
+    my @newlist;
+    if ($1 eq 'status') {
+	foreach (('online', 'away', 'na', 'occupied', 'dnd', 'invisible', 'ffc')) {
+	    push @newlist, $_ if /^(\Q$word\E.*)?$/i;
+	}
+    } else {
+	foreach (keys %contacts) {
+	    push @newlist, $_ if /^(\Q$word\E.*)?$/;
+	    if ($contacts{$_}{user_info_main} && $contacts{$_}{user_info_main}{Nickname}) {
+		push @newlist, $contacts{$_}{user_info_main}{Nickname} if $contacts{$_}{user_info_main}{Nickname} =~ /^(\Q$word\E.*)?$/i;
+	    }
+	}
+    }
+    $want_space = 0;
+    push @$list, $_ foreach @newlist;
+
+}
+
+sub toggle_inv_list ($) {
+    my ($uin) = @_;
+    return unless defined $contacts{$uin};
+    $contacts{$uin}{invisible} = not $contacts{$uin}{invisible};
+    my ($details);
+    $details->{InVisibleList} = [$uin];
+    if ($contacts{$uin}{invisible}) {
+	$icq->Send_Command("Cmd_BOS_Add_InVisibleList", $details) if $icq->{_Connected};
+	output "%B>>%n You are now invisible for ".get_nick($uin)." (".$uin.")";
+    } else {
+	$icq->Send_Command("Cmd_BOS_Remove_InVisibleList", $details) if $icq->{_Connected};
+	output "%B>>%n You are no longer invisible for ".get_nick($uin)." (".$uin.")";
+    }
+}
+
+sub toggle_vis_list ($) {
+    my ($uin) = @_;
+    return unless defined $contacts{$uin};
+    $contacts{$uin}{visible} = not $contacts{$uin}{visible};
+    my ($details);
+    $details->{VisibleList} = [$uin];
+    if ($contacts{$uin}{visible}) {
+        $icq->Send_Command("Cmd_BOS_Add_VisibleList", $details) if $icq->{_Connected};
+        output "%B>>%n You are now visible for ".get_nick($uin)." (".$uin.")";
+    } else {
+        $icq->Send_Command("Cmd_BOS_Remove_VisibleList", $details) if $icq->{_Connected};
+        output "%B>>%n You are no longer visible for ".get_nick($uin)." (".$uin.")";
+    }
+}
+
+sub toggle_hidden ($) {
+    my ($uin) = @_;
+    return unless defined $contacts{$uin};
+    $contacts{$uin}{hide_in_sb} = not $contacts{$uin}{hide_in_sb};
+    if ($contacts{$uin}{hide_in_sb}) {
+        output "%B>>%n ".get_nick($uin)." (".$uin.") is now hidden";
+    } else {
+        output "%B>>%n ".get_nick($uin)." (".$uin.") is no longer hidden";
+    }
+    Irssi::statusbar_items_redraw('irssiq');
+}       
+
+sub cmd_irssiq ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split / +/, $args;
+    if (scalar(@arg) == 0) {
+	list_contacts();
+    } elsif ($arg[0] eq 'connect') {
+	$want_connect = 1;
+	icq_connect();
+    } elsif ($arg[0] eq 'disconnect') {
+	$want_connect = 0;
+	$icq->Disconnect() if ($icq && $icq->{_Connected});
+    } elsif ($arg[0] eq 'msg' && defined $arg[1] && defined $arg[2]) {
+	my $uin = get_uin($arg[1]);
+	return unless $uin;
+	shift @arg;
+	shift @arg;
+	send_message($icq, $uin, join(" ", @arg));
+    } elsif ($arg[0] eq 'url' && defined $arg[1] && defined $arg[2]) {
+	my $uin = get_uin($arg[1]);
+	return unless $uin;
+	my $url = $arg[2];
+	shift @arg;
+	shift @arg;
+	send_url($uin, $url, join(" ", @arg));
+    } elsif ($arg[0] eq 'auth' && defined $arg[1]) {
+	send_auth($arg[1]) if ($icq && $icq->{_Connected});
+    } elsif ($arg[0] eq 'email' && defined $arg[1]) {
+	my $uin = get_uin($arg[1]);
+	return unless $uin;
+	if ($contacts{$uin} && $contacts{$uin}{user_info_main}) {
+	    call_openurl($contacts{$uin}{user_info_main}{Email}) if $contacts{$uin}{user_info_main}{Email};
+	}
+    } elsif ($arg[0] eq 'add' && defined $arg[1]) {
+	shift @arg;
+	foreach (@arg) {
+	    next unless $_ =~ /^[0-9]+$/;
+	    add_uin($_);
+	    output "%B>>%n Added UIN ".$_." to contact list";
+	}
+	send_contacts() if ($icq && $icq->{_Connected});
+    } elsif ($arg[0] eq 'del' && defined $arg[1]) {
+	shift @arg;
+	foreach (@arg) {
+	    next unless $_ =~ /^[0-9]+$/;
+	    del_uin($_);
+	    output "%B>>%n Removed UIN ".$_." from contact list";
+	}
+	send_contacts() if ($icq && $icq->{_Connected});
+    } elsif ($arg[0] eq 'save') {
+	save_contacts();
+    } elsif ($arg[0] eq 'load') {
+	load_contacts();
+	send_contacts if ($icq && $icq->{_Connected});
+    } elsif ($arg[0] eq 'info') {
+	shift @arg;
+	foreach (@arg) {
+	    my $uin = get_uin($_);
+	    get_userinfo($uin) if $uin;
+	}
+    } elsif ($arg[0] eq 'status' && defined $arg[1]) {
+	set_status($arg[1]) if ($icq && $icq->{_Connected});
+    } elsif ($arg[0] eq 'query' && defined $arg[1]) {
+	my $uin = get_uin($arg[1]);
+	start_query($uin) if $uin;
+    } elsif ($arg[0] eq 'invisible') {
+	my $uin = get_uin($arg[1]);
+	toggle_inv_list($uin);
+    } elsif ($arg[0] eq 'visible') {
+        my $uin = get_uin($arg[1]);
+        toggle_vis_list($uin);
+    } elsif ($arg[0] eq 'hidden') {
+	my $uin = get_uin($arg[1]);
+	toggle_hidden($uin);
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::settings_add_int($IRSSI{name}, 'irssiq_uin', '');
+Irssi::settings_add_str($IRSSI{name}, 'irssiq_password', '');
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_debug', 0);
+
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_online', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_offline', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_away', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_dnd', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_occupied', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_invisible', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_show_not_available', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_short_status', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_list_show_offline', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_statusbar_compact', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_auto_open_query', 0);
+
+Irssi::settings_add_str($IRSSI{name}, 'irssiq_away_status', 'away');
+
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_msg_border_in_query', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'irssiq_auto_reconnect', 1);
+
+Irssi::signal_add_first('complete word', \&sig_complete_word);
+Irssi::signal_add('setup saved', \&save_contacts);
+Irssi::signal_add('away mode changed', \&sig_away);
+Irssi::signal_add('send text', \&sig_send_text);
+
+Irssi::statusbar_item_register('irssiq', 0, 'sb_show');
+
+Irssi::command_bind('irssiq', \&cmd_irssiq);
+
+foreach my $cmd ('help', 'connect', 'disconnect', 'msg', 'auth', 'email', 'save', 'load', 'add', 'del', 'info', 'status', 'query', 'url', 'invisible', 'visible', 'hidden' ) {
+Irssi::command_bind('irssiq '.$cmd => sub {
+		    cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+load_contacts();
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /irssiq help for help';
diff --git a/scripts/isdn.pl b/scripts/isdn.pl
new file mode 100644
index 0000000..b429ec7
--- /dev/null
+++ b/scripts/isdn.pl
@@ -0,0 +1,55 @@
+# DESCRIPTION
+# Displays incoming ISDN calls to active window
+# Looks even nicer with entries in 
+# /etc/isdn/callerid.conf - see callerid.conf(5)
+# 
+# CHANGELOG
+# 17.06.04
+# Script now runs for several days without any
+# problems. Added documentation.
+
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.3";
+%IRSSI = (
+        authors         => "Uli Baumann",
+	contact         => "f-zappa\@irc-muenster.de",
+	name            => "isdn",
+	description     => "Displays incoming ISDN calls",
+	license         => "GPL",
+	changed	        => "Thu Jun 17 12:49:55 CEST 2004",
+);
+
+sub incoming_call()	# triggered by a timer; use of input_add
+  {			# caused crash
+  while ($message = <ISDNLOG>)
+    {
+    chomp($message);
+    if ($message =~ / Call to tei .* RING/)	# just incoming calls
+      {
+      my $from = $message;			# extract caller
+      $from =~ s/.*Call to tei.*from (.*) on.*RING.*/$1/;
+      my $to = $message;			# extract callee
+      $to =~ s/.*Call to tei.*from .* on (.*)  RING.*/$1/;
+      my $window = Irssi::active_win();		# write message to active win
+      $window->print("%YISDN:%n call from $from");
+      $window->print("      to $to");
+      }     
+    }
+  }
+
+sub isdn_unload()	# for a clean unload
+  {
+  close $ISDNLOG;
+  Irssi::timeout_remove($timer);
+  }
+
+# when starting, open the isdnlog file and set pointer to eof
+open ISDNLOG, "< /var/log/isdn/isdnlog" or die "Can't open isdnlog";
+seek ISDNLOG,0,2;
+# install timeout for the incoming_call subroutine
+$timer=Irssi::timeout_add(1000, \&incoming_call, \&args);
+
+# disable timer and close file when script gets unloaded
+Irssi::signal_add_first('command script unload','isdn_unload');
+
diff --git a/scripts/itime.pl b/scripts/itime.pl
new file mode 100644
index 0000000..3f63f8c
--- /dev/null
+++ b/scripts/itime.pl
@@ -0,0 +1,46 @@
+# Internet Time statusbar item.
+# See http://www.timeanddate.com/time/internettime.html
+
+# /STATUSBAR window ADD itime
+
+use strict;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI $itime_ratio $current_itime);
+
+$VERSION = '0.9';
+%IRSSI = (
+    authors     => 'Johan "Ion" Kiviniemi',
+    contact     => 'ion at hassers.org',
+    name        => 'itime',
+    description =>
+'Internet Time statusbar item. See http://www.timeanddate.com/time/internettime.html',
+    license => 'Public Domain',
+    url     => 'http://ion.amigafin.org/scripts/',
+    changed => 'Tue Mar 12 22:20 EET 2002',
+);
+
+$itime_ratio   = 1000 / 86400;
+$current_itime = get_itime();
+
+sub get_itime {
+    my ($s, $m, $h) = gmtime time + 3600;
+    my $itime = $itime_ratio * (3600 * $h + 60 * $m + $s);
+    return sprintf '@%03d', int $itime;
+}
+
+sub itime {
+    my ($item, $get_size_only) = @_;
+    $item->default_handler($get_size_only, undef, $current_itime, 1);
+}
+
+sub refresh_itime {
+    my $itime = get_itime();
+    return if $itime eq $current_itime;
+    $current_itime = $itime;
+    Irssi::statusbar_items_redraw('itime');
+}
+
+Irssi::statusbar_item_register('itime', '{sb $0}', 'itime');
+Irssi::statusbars_recreate_items();
+Irssi::timeout_add(5000, 'refresh_itime', undef);
diff --git a/scripts/ixmmsa.pl b/scripts/ixmmsa.pl
new file mode 100644
index 0000000..7d4e8ec
--- /dev/null
+++ b/scripts/ixmmsa.pl
@@ -0,0 +1,63 @@
+#!/usr/bin/perl
+
+# ixmmsa.pl (iXMMSa - irssi XMMS announce), Version 0.3
+#
+# Copyleft (>) 2002 Kristof Korwisi <kk@manoli.im-dachgeschoss.de>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# The complete text of the GNU General Public License can be found
+# on the World Wide Web: <URL:http://www.gnu.org/licenses/gpl.html>
+
+use Xmms();
+use Xmms::Remote ();
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.2+1";
+%IRSSI = (
+	authors		=> 'Kristof Korwisi',
+	contact		=> 'kk@manoli.im-dachgeschoss.de',
+	name		=> 'iXMMSa',
+	description	=> '/xmms announces which _file_ is currently playing. E.g.  Currently playing: "Kieran Halpin & Band - Mirror Town.mp3"',
+	license		=> 'GPL',
+	url		=> 'http://manoli.im-dachgeschoss.de/~kk/',
+	changed		=> '2006-10-27',
+	changes		=> 'added some comments, added $announce_message:_*-stuff',
+);
+
+Irssi::print("*****\n* $IRSSI{name} $VERSION loaded.\n* Type /xmms to announce currently played file.\n*****");
+
+sub cmd_xmms {
+
+	my ($data, $server, $witem) = @_; 
+	my $xmms_remote = Xmms::Remote->new;
+
+        my $announce_message_front = "Currently playing:";      # announce message in front of the filename playing
+	my $announce_message_after = "";                        # announce message after the filename playing
+			
+
+	$filename= $xmms_remote->get_playlist_file($xmms_remote->get_playlist_pos);
+
+
+	$filename =~ s/.*\///g;					# removes path
+	$filename =~ s/^$/Nothing's playing/;			# in case there's nothing to listen to ;-)
+	$filename =~ s/[\r\n]/ /g;				# remove newline characters
+
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+		$witem->command("MSG ".$witem->{name}." $announce_message_front \"$filename\" $announce_message_after");
+	} else {
+		Irssi::print("Not on active channel/query");
+	}
+}
+
+Irssi::command_bind('xmms', 'cmd_xmms');
diff --git a/scripts/joininfo.pl b/scripts/joininfo.pl
new file mode 100644
index 0000000..492fbd3
--- /dev/null
+++ b/scripts/joininfo.pl
@@ -0,0 +1,1097 @@
+###############################################################################
+#
+# Shows WHOIS: info including realname and channel names on joins to 
+# channels.
+# 
+# This script is based on the autorealname script, and shares a little
+# code and many ideas with that script. I use the same globals as they do,
+# but with totally different fields because their structure was not really
+# easy to adapt to a situation where more info is used on one query.
+#
+# Rewrote all that code, except for parts of request_whois and some init code
+#
+# I would like to thank Timo 'cras' Sirainen and Bastian Blank for writing
+# the autorealname script. It was a good example.
+#
+# The script contains very simple flood protection in the form that it will
+# not allow for more then $max_queued_requests per server at one time to be
+# running. It tries to be smart about netsplits, so this should be okay.
+# We have a 5-second timeout to make sure we really don't flood, ans also to
+# make sure that we don't wait indefinitely for answers that won't come.
+#
+# Themes:
+#   You can change the way the WHOIS messages look using the /format command,
+#   For example:
+#   /FORMAT ji_whois_success %GWHOIS:%n {channick_hilight $0} \
+#           is "{hilight $1}"%n on {channel $2} 
+#
+#   Will add a green WHOIS: to the line to make it stand out, save your
+#   formatting in irssi using '/SAVE -formats'
+#
+#   Add 'server: "{hilight $3}"' to the format string to also print the
+#   server name (Thanks to Svein Skogen for suggesting this)
+#
+#   Add 'flags: "{hilight $4}"' to the format string to also print 
+#   some additional flags for the user. These flags are tailored for
+#   some unknown irc network but also work quite well on IRCNet and EFNet
+#   after the 'idle' modifications I added to them. Thanks to
+#   Francesco Rolando for providing me with the initial patch.
+#
+# Commands (/JOININFO ...)
+#   INFO  -  Show info on and contents of the current cache of this script
+#   GC    -  Manually run the garbage collector once
+#   FORCE -  Fake join of a nick to a chan (/JOININFO FORCE ichiban) use with
+#            care. Useful for testing theme changes, timeouts and the garbage
+#            collector on a quiet day or network. Will ignore your own nick.
+#   HELP  -  Shows help
+# 
+# Settings
+#   /SET whois_expire_time       # time to expire one saves record
+#                                # until this age has been reched no
+#                                # new WHOISs will be put on the server
+#
+#   /SET whois_max_requests      # max concurrent requests per server
+#                                # flood protection, keep low
+#
+#   /SET whois_timeout_ms        # timeout after which a whois is lost (ms)
+#                                # (default: 5000)
+#
+#   /SET whois_gc_interval_ms    # run gc ever x MS (default: 300000)
+#                                # Requires script reload when changed.
+#
+#   /SET whois_debug             # 0 = show no debug info, 1 = debug info
+#
+#   /SET whois_printing_level    # Level at which all non-debug output is
+#                                # printed, influences logging and IGNORE
+#                                # (default: JOINS)
+#
+# ChangeLog:
+# - Tue Jul 15 2003, pbijdens
+#   Initial release version 0.5.1
+# - Thu Jul 17 2003, pbijdens
+#   Version 0.5.2
+#   Added garbage collection for the stored info.
+#   Added /AWINFO and /AWGC commands to show info and to run the garbage
+#   collector manually respectively
+#   Added timeout for the putserv WHOIS making sure we do not record too many
+#   jobs as BUSY.
+# - Thu Jul 17 2003, pbijdens
+#   Version 0.5.3
+#   Added settings (whois_...) to the irssi config so there is no need to
+#   modify the script when changing them
+# - Thu Jul 17 2003, pbijdens
+#   Version 0.5.5
+#   Making sure the settings are reloaded when they are changed. Added a
+#   signal handler for that
+# - Thu Jul 17 2003, pbijdens
+#   Version 0.6.0
+#   Added setting for whois_debug
+#   Added theme support
+#   Bugfix for servers sending 401 without 318 no need to wait for
+#   timeout anymore on those
+#   Added configurable printing level for the realname+channel messages.
+#   use /SET whois_printing_level
+#   Added /AWFORCE command (see above)
+# - Mon Jul 28 2003, pbijdens
+#   Version 0.6.1
+#   Various updates and bug fixes
+#   Changed awforce command to strip spaces
+# - Wed Aug 13 2003, pbijdens
+#   Version 0.7.0
+#   Fixed typo in comment line
+#   Changed /AW* commands to be /JOININFO <subcommand> and added a
+#   /JOININFO HELP command. Renamed some subs to make their purpose
+#   more clear.
+# - Wed Feb 2 2004, pbijdens
+#   Added features for filtering channels from the list, and adding
+#   support for hilighting channels in colors.
+# - Mon Mar 8 2004, pbijdens
+#   Fixed bug where also on SILCNET the WHOIS queries would be run, now
+#   this service is restricted to IRC networks. Thanks to Tony den Haan
+#   for supplying this patch.
+# - Mon Mar 8 2004, pbijdens
+#   Added support for printing the servername also in the output for those
+#   who want to see it. Thanks to Svein Skogen for suggesting this and
+#   sending me a patch.
+#   NOTE: Requires you to add {hilight $3} to your format string manually.
+#   By default the information is not diplayed.
+# - Mon Mar 8 2004, pbijdens
+#   Added support for additional flags to the WHOIS output. This is stuff
+#   like IrcOP, Away, Idle and more. Thanks to Francesco Rolando for
+#   providing the additional patch, which I modified.
+#   NOTE: Requires you to add {hilight $4} to your format string manually.
+#   By default the information is not diplayed.
+# - Tue Mar 1 2005, pbijdens
+#   Updated the script for compliance with a wider range of servers,
+#   and removed some functionality that generally did not work, or break
+#   on some servers. Been runing on 4 networks now with these patches for
+#   many months, declaring stable and releasing 1.0.
+#
+################################################################################
+
+use Irssi 20011207;
+use strict;
+use vars qw($VERSION %IRSSI); 
+use integer;
+
+################################################################################
+
+$VERSION = "1.0.0";
+%IRSSI = (
+    authors => "Pieter-Bas IJdens",
+    contact => "irssi-scripts\@nospam.mi4.org.uk",
+    name    => "joininfo",
+    description => "Reports WHOIS information and channel list for those who join a channel",
+    license => "GPLv2 or later",
+    url     => "http://pieter-bas.ijdens.com/irssi/",
+    changed => "2005-03-10"
+);
+
+################################################################################
+
+# Note that all settings below can and should be changed with /SET, see
+# /joininfo help or /set whois
+
+# The maximum acceeptable age for a cached whois record is 60 seconds
+# after this amount of time the cache record is discareded
+my $whois_maxage = 60;
+
+# The maximum number of requests queued at a time, if the queue reaches
+# a lrger size, ignore new requets until we have space left. This could
+# happen in a netjoin preceded by a very long netsplit 
+my $max_queued_requests = 7;
+
+# Timeout after which a whois request is assumed not having been answered
+# by the server. In milliseconds
+my $whois_timeout = 5000;
+
+# Interval for the times at which GC takes place automatically. In milliseconds
+my $whois_gc_interval = 300000;
+
+# Debug poutput on or off
+my $whois_debug = 0;
+
+# Output level (the whois_printing_level_n is the numeric information for the
+# output level)
+my $whois_printing_level = "JOINS";
+my $whois_printing_level_n;
+
+################################################################################
+
+# Cached records per server, plus information about the amount of queued
+# reuests
+my %servers;
+
+################################################################################
+
+# Registers the theme messages with irssi so they can be changed later by the
+# user using the /FORMAT command
+sub register_messages
+{
+    Irssi::theme_register([
+        'ji_whois_success',
+            '{channick_hilight $0} is "{hilight $1}"%n on {channel $2}',
+        'ji_whois_list_header',
+            'Server: {hilight $0} ($1 pending)', 
+        'ji_whois_list_nick',
+            '{channick_hilight $0} is "{hilight $1}"%n on {channel $2}', 
+        'ji_whois_list_status',
+            'Status: $0; Record age: $1s; Server tag: $2'
+    ]);
+}
+
+################################################################################
+
+# Register the settings we use, and specify a DEFAULT for when Irssi
+# did not have them saved yet. Allows users to use /SET later.
+sub register_settings
+{
+    Irssi::settings_add_int(
+        "joininfo",
+        "whois_expire_time",
+        $whois_maxage
+    );
+    Irssi::settings_add_int(
+        "joininfo",
+        "whois_max_requests",
+        $max_queued_requests
+    );
+    Irssi::settings_add_int(
+        "joininfo",
+        "whois_timeout_ms",
+        $whois_timeout
+    );
+    Irssi::settings_add_int(
+        "joininfo",
+        "whois_gc_interval_ms",
+        $whois_gc_interval
+    );
+    Irssi::settings_add_int(
+        "joininfo",
+        "whois_debug",
+        $whois_debug
+    );
+    Irssi::settings_add_str(
+        "joininfo",
+        "whois_printing_level",
+        $whois_printing_level
+    );
+}
+
+################################################################################
+
+# Now (re-)read the settings, those saved in the config will be returned,
+# unless not present in which case the default will be returned
+# This function is called once on script start, and later is run as an
+# event handler when irssi notifies us of a change in settings.
+sub load_settings
+{
+    $whois_maxage = Irssi::settings_get_int("whois_expire_time");
+    $max_queued_requests = Irssi::settings_get_int("whois_max_requests");
+    $whois_timeout = Irssi::settings_get_int("whois_timeout_ms");
+    $whois_gc_interval = Irssi::settings_get_int("whois_gc_interval_ms");
+    $whois_debug = Irssi::settings_get_int("whois_debug");
+    $whois_printing_level = Irssi::settings_get_str("whois_printing_level");
+
+    $whois_printing_level = uc($whois_printing_level);
+    $whois_printing_level =~ s/[^A-Z]//gi;
+
+    my($definedlvl);
+    eval("\$definedlvl = defined(MSGLEVEL_" . $whois_printing_level. ");");
+
+    if (!$definedlvl)
+    {
+        Irssi::print(
+            "%RJOININFO:%n illegal /set whois_printing_level, see /help levels".
+            " for more informations. Assuming JOINS in stead of ".
+            "\"$whois_printing_level\"."
+        );
+        $whois_printing_level = "JOINS";
+        $whois_printing_level_n = MSGLEVEL_JOINS;
+        return;
+    }
+
+    eval("\$whois_printing_level_n = MSGLEVEL_" . $whois_printing_level . ";");
+
+    if ($whois_printing_level_n == 0)
+    {
+        Irssi::print(
+            "%RJOININFO:%n illegal /set whois_printing_level, see /help levels".
+            " for more informations. Assuming JOINS in stead of ".
+            "\"$whois_printing_level\"."
+        );
+        $whois_printing_level = "JOINS";
+        $whois_printing_level_n = MSGLEVEL_JOINS;
+        return;
+    }
+}
+
+################################################################################
+
+# We keep records of all nicks that ever joined a channel in our memory,
+# without ever freeing them up. This can get quite large over time, therefore
+# evere once in a while we go out and remove the garbage
+#
+# Now this function also corrects the pending counter in case strange things
+# happen on strange nets
+sub garbage_collector
+{
+    my($runtime) = time();
+
+    foreach my $tag (keys(%servers))
+    {
+        my($busy) = 0;
+        my($rec) = $servers{$tag};
+
+        foreach my $nick (keys %{$rec->{nicks}})
+        {
+            my($age) = $runtime - $rec->{nicks}->{$nick}->{record_time};
+
+            if ($rec->{nicks}->{$nick}->{busy})
+            {
+                # Re-calculate the number of pending requests
+                $busy = $busy + 1;
+
+                # we can safely delete it because 600 seconds should have
+                # caused a good oldfashioned ping timeout anyway
+                # if the server is not still going to respond after 10 
+                # minutes we can crash for all I care
+                if ($age > 600)
+                {
+                    Irssi::print(
+                        "%RWHOIS:%n Giving up on %c$nick%n, because 600 " .
+                        "seconds have passed since we first asked %c$tag%n.%N"
+                    ) if ($whois_debug);
+
+                    # We have one request less to process now
+                    $busy = $busy - 1;
+
+                    # Drop the request completely and forget all about this
+                    # nick
+                    delete $rec->{nicks}->{$nick};
+                }
+            }
+            elsif ($age >= 2 * $whois_maxage)
+            {
+                delete $rec->{nicks}->{$nick};
+            }
+
+            $rec->{processing} = $busy;
+        }
+    }
+}
+
+################################################################################
+
+# This is a very simple job to warp the call to the garbage collector. Used to
+# be self-scheduling, but irssi happily does that for us
+#
+# Pointless function, waste of memory, need one of those in every good
+# program, here is mine.
+sub aw_gc_scheduler
+{
+    garbage_collector();
+}
+
+################################################################################
+
+# Show information about the autowhois stuff and about who we still know
+# Basically displays the cache contents. Some stuff may still be in the cache
+# though it is already outdated, The barbage collector will take care of 
+# those entries
+sub cmd_joininfo_info
+{
+    my($runtime) = time();
+
+    foreach my $tag (keys(%servers))
+    {
+        my($rec) = $servers{$tag};
+
+        Irssi::printformat(
+            MSGLEVEL_CRAP,
+            'ji_whois_list_header',
+            $tag,
+            $rec->{processing}
+        );
+
+        foreach my $nick (keys %{$rec->{nicks}})
+        {
+            my($age) = $runtime - $rec->{nicks}->{$nick}->{record_time};
+            my($status) = "OK";
+
+            if ($rec->{nicks}->{$nick}->{busy})
+            {
+                $status = "BUSY";
+            }
+            elsif ($rec->{nicks}->{$nick}->{aborted})
+            {
+                $status = "ABORTED";
+
+                if ($rec->{nicks}->{$nick}->{known})
+                {
+                    $status = $status . " but KNOWN";
+                }
+            }
+            else
+            {
+                $status = "COMPLETE";
+            }
+
+            Irssi::printformat(
+                MSGLEVEL_CRAP,
+                'ji_whois_list_nick',
+                $nick,
+                $rec->{nicks}->{$nick}->{realname},
+                $rec->{nicks}->{$nick}->{channels},
+                $rec->{nicks}->{$nick}->{server},
+                $rec->{nicks}->{$nick}->{flags}
+            );
+            Irssi::printformat(
+                MSGLEVEL_CRAP,
+                'ji_whois_list_status',
+                $status,
+                $age,
+                $tag
+            );
+        }
+    }
+}
+
+################################################################################
+
+# A timeout is put for this function just after the WHOIS has been sent to
+# the server. When the server does not reply, then we will mark the action as
+# aborted. If a reply still ariives later (due to lag) that is not a problem
+# as it will simply be reported then. The only thing this function makes sure
+# of is that the system is not marked busy anymore so other WHOIS requests
+# can go through
+sub server_whois_timeout
+{
+    my ($server, $nick) = @{$_[0]};
+    my $rec = $servers{$server->{tag}};
+
+    if ((defined($rec->{nicks}->{$nick}))
+        && ($rec->{nicks}->{$nick}->{busy} == 1)
+    )
+    {
+        $rec->{nicks}->{$nick}->{aborted} = 1;
+        $rec->{nicks}->{$nick}->{busy} = 0;
+
+        $rec->{processing} = $rec->{processing} - 1;
+
+        Irssi::print(
+            "%RWHOIS:%n whois timeout for nick %C$nick%n ".
+            "(still running $rec->{processing} requests)"
+        ) if ($whois_debug);
+    }
+
+    # Run once, so we remove this job
+    Irssi::timeout_remove($rec->{nicks}->{$nick}->{timeout_job});
+}
+
+################################################################################
+
+# Put a whois request on the server (for one nick only) if and only if the
+# number of outstanding rrequests on that server is not too high
+#
+# Also installs an event handler for the next related SHOIS event that the
+# server throws at us
+sub request_whois
+{
+    my ($server, $nick) = @_;
+    my $rec = $servers{$server->{tag}};
+
+    return if $server->{chat_type} ne "IRC";
+
+    if ($rec->{processing} > $max_queued_requests)
+    {
+        Irssi::print(
+            "%RWHOIS:%n Ignoring WHOIS request for %C$nick%n (too busy)%N"
+        ) if ($whois_debug);
+        record_reset($server, $nick);
+        return;
+    }
+
+    $server->redirect_event(
+        "whois",
+        1,
+        $nick,
+        0, 
+        "redir autowhois_default",
+        {
+            "event 311" => "redir autowhois_realname",
+            "event 319" => "redir autowhois_channels",
+            "event 312" => "redir autowhois_server",
+            "event 301" => "redir autowhois_away",
+            "event 307" => "redir autowhois_identified",
+            "event 275" => "redir autowhois_ssl",
+            "event 310" => "redir autowhois_irchelp",
+            "event 313" => "redir autowhois_ircop",
+            "event 325" => "redir autowhois_ircbot",
+            "event 317" => "redir autowhois_idle",
+#           "event 263" => "redir autowhois_busy",
+            "event 318" => "redir autowhois_end",
+            "event 401" => "redir autowhois_unknown",
+            "" => "event empty"
+        }
+    );
+
+    $rec->{processing} = $rec->{processing} + 1;
+
+    # This format requests additional information on $nick
+    # used to be: $server->send_raw("WHOIS $nick :$nick");
+    $server->send_raw("WHOIS $nick");
+
+    $rec->{nicks}->{$nick}->{timeout_job} = Irssi::timeout_add(
+                                                $whois_timeout,
+                                                \&server_whois_timeout,
+                                                [$server, $nick]
+                                            );
+}
+
+################################################################################
+
+# A whois record is built as and when server messages with info for a specific
+# user arrive. After the WHOIS END message has arrived for that user, we can
+# report the stored whois information with this function.
+sub report_stored_whois_info
+{
+    my ($server, $nick) = @_;
+    my $rec = $servers{$server->{tag}};
+
+    if (!defined($rec->{nicks}->{$nick}))
+    {
+        Irssi::print(
+            "%RWHOIS:%n Report called for undefined hash %C$nick%N"
+        ) if ($whois_debug);
+        return;
+    }
+
+    foreach my $channame (@{$rec->{nicks}->{$nick}->{queued_channels}})
+    {
+        my $chanrec = $server->channel_find($channame);
+
+        if ($chanrec)
+        {
+            $rec->{nicks}->{$nick}->{flags} =~ s/[ ]{1,}$//;
+
+            $chanrec->printformat(
+                $whois_printing_level_n,
+                'ji_whois_success',
+                $nick,
+                $rec->{nicks}->{$nick}->{realname},
+                $rec->{nicks}->{$nick}->{channels},
+                $rec->{nicks}->{$nick}->{server},
+                $rec->{nicks}->{$nick}->{flags}
+            );
+        }
+        else
+        {
+            Irssi::print(
+                "%RWHOIS:%n chanrec not found for %W$channame%n :-(%N"
+            ) if ($whois_debug);
+        }
+    }
+
+    $rec->{nicks}->{$nick}->{queued_channels} = [];
+}
+
+################################################################################
+
+# Create an empty record for this nick on that server, we will gradually fill
+# out this record as and when we go along.
+sub record_reset
+{
+    my ($server, $nick) = @_;
+    my $rec = $servers{$server->{tag}};
+
+    if (defined($rec->{nicks}->{$nick}))
+    {
+        delete $rec->{nicks}->{$nick};
+    }
+
+    $rec->{nicks}->{$nick} =
+    {
+        record_time     => time(),
+        queued_channels => [],
+        realname        => "(unknown)",
+        channels        => "(unknown)",
+        server          => "(unknown)",
+        flags           => "",
+        aborted         => 0,
+        busy            => 0,
+        known           => 0,
+        timeout_job     => 0
+    };
+}
+
+################################################################################
+
+# Sent when a user joins a channel we are on, whic is where we check if we
+# have the user info cached, if it is still valid, and if not we put
+# a WHOIS request on the server for this user and are done.
+sub event_join
+{
+    my ($server, $channame, $nick, $host) = @_;
+
+    return if $server->{chat_type} ne "IRC";
+    
+    $channame =~ s/^://;
+    my $rec = $servers{$server->{tag}};
+
+    return if ($nick eq $server->{nick});
+
+    return if ($server->netsplit_find($nick, $host));
+
+    if (!defined($rec->{nicks}->{$nick}))
+    {
+        # If the nick has no requests joined yet, we will create a new
+        # empty record for the nick, so we can assume later it does
+        # exist
+        record_reset($server, $nick);
+    }
+
+    if (($rec->{nicks}->{$nick}->{known})
+        && ((time() - $rec->{nicks}->{$nick}->{record_time}) <= $whois_maxage)
+    )
+    {
+        # If we asked less than whois_maxage seconds ago for a WHOIS on this
+        # nick, we will not re-issue a request.
+        #
+        # NOTE: When a person (manually) joins multiple channels you are
+        #       on, this may cause you not seeing all channels in the
+        #       channel list, You can set this to something like 5
+        #       seconds to reduce the probability of this happening
+        push @{$rec->{nicks}->{$nick}->{queued_channels}}, $channame;
+
+        report_stored_whois_info($server, $nick);
+    }
+    elsif ($rec->{nicks}->{$nick}->{busy} == 1)
+    {
+        # If we already issued a WHOIS request for this nick but did not
+        # receive a result yet, we just push this channel name on the
+        # list of channels that want a report when the result is known
+        push @{$rec->{nicks}->{$nick}->{queued_channels}}, $channame;
+    }
+    else
+    {
+        # Finally, we are not already processing this nick, and either
+        # we have no information for it, or the information we have is
+        # too old, so we send a WHOIS request to the server.
+        push @{$rec->{nicks}->{$nick}->{queued_channels}}, $channame;
+
+        $rec->{nicks}->{$nick}->{busy} = 1;
+
+        request_whois($server, $nick);
+    }
+}
+
+################################################################################
+
+# Implementation of the WFORCE <nick> command. Useful for testing purposes
+# only, for example to see if the theme changes you made are correct, if the
+# timeouts are interpreted properly, and if the garbage collector works
+sub cmd_joininfo_force
+{
+    my ($data, $server, $window) = @_;
+    $data =~ s/^[ ]{1,}//g;
+    $data =~ s/[ ]{1,}$//g;
+
+    if (!$server || !$server->{connected})
+    {
+        Irssi::print("Not connected.");
+        return;
+    }
+
+    if ($window->{type} ne "CHANNEL")
+    {
+        Irssi::print("Not a channel window.");
+        return;
+    }
+
+    event_join($server, $window->{name}, $data, "testuser\@test.example.com");
+}
+
+################################################################################
+
+# Event handler for the whois realname line returned by the server. When we
+# issue a whois request, we bind an event handler for whois info for that
+# nick.
+#
+# Does nothing, except for updating the record for that nick.
+sub event_whois_realname
+{
+    my ($server, $data) = @_;
+    my ($num, $nick, $user, $host, $empty, $realname) = split(/ +/, $data, 6);
+    $realname =~ s/^://;
+    my $rec = $servers{$server->{tag}};
+
+    $rec->{nicks}->{$nick}->{realname} = $realname;
+}
+
+################################################################################
+
+# Event handler for the whois channels line returned by the server. When we
+# issue a whois request, we bind an event handler for whois info for that
+# nick.
+#
+# Does nothing, except for updating the record for that nick.
+sub event_whois_channels
+{
+    my ($server, $data) = @_;
+    my ($num, $nick, $channels) = split(/ +/, $data, 3);
+    $channels =~ s/^://;
+    my $rec = $servers{$server->{tag}};
+
+    $channels =~ s/[ ]{1,}$//;
+    $rec->{nicks}->{$nick}->{channels} = $channels;
+}
+
+################################################################################
+
+# Event handler for the whois server line returned by the server. When we
+# issue a whois request, we bind an event handler for whois info for that
+# nick.
+#
+# Does nothing, except for updating the record for that nick.
+#
+# NOTE: In the default report the server is not repported, it is however
+# stored in the record, so if you need it, you can simply update the
+# reporting function to show it.
+sub event_whois_server
+{
+    my ($server, $data) = @_;
+    my ($num, $nick, $serverstr) = split(/ +/, $data, 3);
+    $serverstr =~ s/^://;
+    my $rec = $servers{$server->{tag}};
+
+    $serverstr =~ s/ :.*$//;
+
+    $rec->{nicks}->{$nick}->{server} = $serverstr;
+}
+
+################################################################################
+
+# This is the end of the whois request, all info available we should have
+# now, so we mark the record as know, not bust, timestamp it so we can
+# expire it later and we report back to the user on those channels waiting
+# for whois info for nick
+#
+# Note that a No Such Nick error is not always followed by a WHOIS END.
+# hyb7-based servers interpret the RFC differently from for example hyb6
+# and the IRCNet servers and will not send the WHOIS END line, but just
+# the No Such Nick error (401).
+sub event_whois_end
+{
+    my($server, $data) = @_;
+    my ($num, $nick, $serverstr) = split(/ +/, $data, 3);
+    my $rec = $servers{$server->{tag}};
+
+    $rec->{nicks}->{$nick}->{record_time} = time();
+    $rec->{nicks}->{$nick}->{known} = 1;
+    $rec->{nicks}->{$nick}->{busy} = 0;
+
+    if (!$rec->{nicks}->{$nick}->{aborted})
+    {
+        $rec->{processing} = $rec->{processing} - 1;
+    }
+
+    report_stored_whois_info($server, $nick);
+}
+
+################################################################################
+
+# Some servers (hyb7) do not send an end of whois when the nick is
+# not known, they just send a 401 unknown message. Ircnet sends both, hyb6
+# sends both, but other servers seem to interpret the RFC differently. We
+# just treat this event_whois_unknown as a 318 tag, and mark the lookup
+# aborted (which it is in some way)
+sub event_whois_unknown
+{
+    my($server, $data) = @_;
+    my ($num, $nick, $serverstr) = split(/ +/, $data, 3);
+    my $rec = $servers{$server->{tag}};
+
+    # Fill out the record with some bogus information, so when we
+    # end up reporting it, we can at least see what is going on.
+    $rec->{nicks}->{$nick}->{record_time} = time();
+    $rec->{nicks}->{$nick}->{known} = 1;
+    $rec->{nicks}->{$nick}->{busy} = 0;
+    $rec->{nicks}->{$nick}->{realname} = "(unknown)";
+    $rec->{nicks}->{$nick}->{channels} = "(unknown)";
+    $rec->{nicks}->{$nick}->{server}   = "(unknown)";
+    $rec->{nicks}->{$nick}->{flags}    = "(unknown)";
+
+    if (!$rec->{nicks}->{$nick}->{aborted})
+    {
+        $rec->{processing} = $rec->{processing} - 1;
+        $rec->{nicks}->{$nick}->{aborted} = 1;
+    }
+
+    report_stored_whois_info($server, $nick);
+}
+
+################################################################################
+
+# If the server is busy
+sub event_whois_busy
+{
+    my($server, $data) = @_;
+    my($num, $nick, $serverstr) = split(/ +/, $data, 3);
+    my($rec) = $servers{$server->{tag}};
+
+    Irssi::print("******************* SERVER BUSY *******************************");
+}
+
+################################################################################
+
+# No clue what this is for, maybe I should read the irssi documentation
+# (if it existed....)
+#
+# Judging from the debug output this function is never called.
+sub event_whois_default
+{
+    my($server, $nick) = @_;
+    my $rec = $servers{$server->{tag}};
+
+    Irssi::print(
+        "%RWHOIS:%n Got event_whois_default, ignoring."
+    ) if ($whois_debug);
+}
+
+################################################################################
+
+# Some chat networks support extra falgs for their users and display those
+# in WHOIS results. The following fields allow this information to be
+# stored in the channel records and to be displayed as well.
+
+sub event_whois_away
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+    $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."Away ";
+}
+
+################################################################################
+
+sub event_whois_identified
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+    $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."NickREG ";
+}
+
+################################################################################
+
+sub event_whois_ssl
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+    $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."SSL ";
+}
+
+################################################################################
+
+sub event_whois_irchelp
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+    $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."IrcHELP ";
+}
+
+################################################################################
+
+sub event_whois_ircop
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+    $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."IrcOP ";
+}
+
+################################################################################
+
+sub event_whois_ircbot
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+    $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."IrcBOT ";
+}
+
+################################################################################
+
+sub number_to_timestr
+{
+    my($number) = @_;
+    my ($result) = "";
+
+    # Force integer
+    $number = 1 * $number;
+
+    my($days) = $number / 86400;
+    $number = $number % 86400;
+    my($hours) = $number / 3600;
+    $number = $number % 3600;
+    my($minutes) = $number / 60;
+    $number = $number % 60;
+    my($seconds) = $number;
+
+    if ($days) { $result = $result . "${days}d"; }
+    if ($hours || $result) { $result = $result . "${hours}h"; }
+    if ($minutes || $result) { $result = $result . "${minutes}m"; }
+    $result = $result . "${seconds}s";
+
+    return $result;
+}
+
+################################################################################
+
+sub event_whois_idle
+{
+    my ($server, $data) = @_;
+    my $rec = $servers{$server->{tag}};
+    my ($num, $nick, $msg) = split(/ +/, $data, 3);
+    $msg =~ s/^://;
+
+    if ($msg =~ /^([0-9]{1,}) ([0-9]{1,}) :.*$/)
+    {
+        my($idle) = 1 * $1;
+        my($signon) = 1 * $2;
+
+        $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}
+            . "Idle=" . number_to_timestr($idle). " ";
+    }
+    elsif ($msg =~ /^([0-9]{1,}) :.*$/)
+    {
+        my($idle) = 1 * $1;
+
+        $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}
+            . "Idle=" . number_to_timestr($idle). " ";
+    }
+    else
+    {
+        $rec->{nicks}->{$nick}->{flags} = $rec->{nicks}->{$nick}->{flags}."SameSRV ";
+    }
+}
+
+################################################################################
+
+# Initializes a server record for the autowhois. Either called when a server
+# does connect to the network, or on script load for all connected servers at
+# that time
+sub event_connected
+{
+    my($server) = @_;
+
+    $servers{$server->{tag}} = {
+        processing => 0,    # waiting reply for WHOIS request
+        nicks => {}         # nick => [ #chan1, #chan2, .. ]
+    };
+}
+
+################################################################################
+
+# Deletes a server record for the autowhois. We do this on disconnect
+sub event_disconnected
+{
+    my($server) = @_;
+
+    delete $servers{$server->{tag}};
+}
+
+################################################################################
+
+# Implementation of what I call the /JOININFO umbrella command. Below
+# we bind all subcommands for this command already, so all we need to
+# do is hand off the event to irssi again so it can call the right
+# implementation function for it.
+sub cmd_joininfo
+{
+    my ($data, $server, $item) = @_;
+    $data =~ s/\s+$//g;
+    Irssi::command_runsub ('joininfo', $data, $server, $item);
+}
+
+################################################################################
+
+# Shows help
+sub cmd_joininfo_help
+{
+    Irssi::print( <<EOF
+
+JOININFO FORCE <nick>
+JOININFO GC
+JOININFO INFO
+JOININFO HELP
+
+JOININFO FORCE <nick>
+  Fakes the join of a certain nick to the channel, and shows you
+  what the WHOIS line would look like.
+JOININFO GC
+  Forces running the garbage collector once
+JOININFO INFO
+  Shows the WHOIS cache as it exists. Note that records in the cache
+  may be outdated but not deleted yet by the garbage collector
+JOININFO HELP
+  This page
+
+Example:
+ JOININFO FORCE ichiban
+
+Settings:
+  Use /SET to change whois_expire_time, whois_max_requests,
+  whois_timeout_ms, whois_gc_interval_ms, whois_debug, or
+  whois_printing_level
+
+These settings:
+  Use /FORMAT to change ji_whois_success, ji_whois_list_header,
+  ji_whois_list_nick, or ji_whois_list_status
+
+Note: If you want to hilight certain channels in the output, just use
+/HILIGHT -level JOINS #channel
+
+See also: HILIGHT
+EOF
+    , MSGLEVEL_CLIENTCRAP);
+}
+
+################################################################################
+
+# Tegister messages for /FORMAT and theme support
+register_messages();
+
+# Register settings for /SET support
+register_settings();
+
+# Load the previously stored settings from the config file, will be called
+# again later each time the settings change
+load_settings();
+
+################################################################################
+
+# Mark all currently connected servers as connected
+foreach my $server (Irssi::servers()) 
+{
+    event_connected($server);
+}
+
+################################################################################
+
+# Add and register our signal handlers
+Irssi::signal_add(
+{   'server connected'              => \&event_connected,
+    'server disconnected'           => \&event_disconnected,
+    'message join'                  => \&event_join,
+    'redir autowhois_realname'      => \&event_whois_realname,
+    'redir autowhois_channels'      => \&event_whois_channels,
+    'redir autowhois_server'        => \&event_whois_server,
+    'redir autowhois_away'          => \&event_whois_away,
+    'redir autowhois_identified'    => \&event_whois_identified,
+    'redir autowhois_ssl'           => \&event_whois_ssl,
+    'redir autowhois_irchelp'       => \&event_whois_irchelp,
+    'redir autowhois_ircop'         => \&event_whois_ircop,
+    'redir autowhois_ircbot'        => \&event_whois_ircbot,
+    'redir autowhois_idle'          => \&event_whois_idle,
+    'redir autowhois_end'           => \&event_whois_end,
+    'redir autowhois_unknown'       => \&event_whois_unknown,
+    'redir autowhois_busy'          => \&event_whois_busy,
+    'setup changed'                 => \&load_settings }
+);
+
+################################################################################
+
+# Schedule the garbase collector to run every whois_gc_interval ms
+Irssi::timeout_add(
+    $whois_gc_interval,
+    \&aw_gc_scheduler,
+    0
+);
+
+################################################################################
+
+# OLD STYLE COMMANDS ARE DISABLED AND REPLACED BY /JOININFO WITH SUB-COMMANDS
+# Bind the /AWFORCE, /AWGC and /AWINFO commands. Uncomment the next three lines
+# if you would like to keep the old-style commands
+### Irssi::command_bind("awforce", "cmd_joininfo_force");
+### Irssi::command_bind("awgc", "garbage_collector");
+### Irssi::command_bind("awinfo", "cmd_joininfo_info");
+
+Irssi::command_bind("joininfo force", \&cmd_joininfo_force);
+Irssi::command_bind("joininfo gc", \&garbage_collector);
+Irssi::command_bind("joininfo info", \&cmd_joininfo_info);
+Irssi::command_bind("joininfo help", \&cmd_joininfo_help);
+Irssi::command_bind("joininfo", \&cmd_joininfo);
+
+################################################################################
+### EOF
diff --git a/scripts/kblamehost.pl b/scripts/kblamehost.pl
new file mode 100644
index 0000000..d53fe78
--- /dev/null
+++ b/scripts/kblamehost.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+use Irssi;
+use Irssi::Irc;
+
+$VERSION = "0.0.1";
+%IRSSI = (
+    authors     => 'Filippo \'godog\' Giunchedi',
+    contact     => 'filippo\@esaurito.net',
+    name        => 'kblamehost',
+    description => 'Kicks (and bans) people with >= 4 dots in theirs hostname',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://esaurito.net',
+);
+
+# TODO
+# add ban support
+
+# all settings are space-separated
+Irssi::settings_add_str('misc','kblamehost_channels',''); # channels with kicklamehost enabled
+Irssi::settings_add_str('misc','kblamehost_exclude',''); # regexps with hostnames excluded
+Irssi::settings_add_str('misc','kblamehost_dots','4'); # dots >= an host will be marked as lame
+Irssi::settings_add_str('misc','kblamehost_kickmsg','Lame host detected, change it please!'); # on-kick message
+Irssi::settings_add_str('misc','kblamehost_ban','0'); # should we ban that lame host?
+
+sub event_join
+{
+    my ($channel, $nicksList) = @_;
+    my @nicks = @{$nicksList};
+    my $server = $channel->{'server'};
+    my $channelName = $channel->{name};
+	my $channel_enabled = 0;
+	my @channels = split(/ /,Irssi::settings_get_str('kblamehost_channels'));
+	my @excludes = split(/ /,Irssi::settings_get_str('kblamehost_exclude'));
+	
+	foreach (@channels)
+	{
+		$channel_enabled = 1 if($_ eq $channelName);
+	}
+	
+	foreach (@nicks)
+	{
+		my $hostname = substr($_->{host},index($_->{host},'@')+1);
+		my @dots = split(/\./,$hostname); # yes i know, it's the number on fields in 
+										  # hostname, but array counts from 0 so element's count is number of dots
+		my $is_friend = 0;
+		
+		foreach $exclude (@excludes)
+		{
+			$is_friend = 1 if ($hostname =~ $exclude);
+		}
+
+		if( $#dots >= Irssi::settings_get_str('kblamehost_dots') && $channel_enabled == 1 && $is_friend == 0)
+		{
+			# Irssi::print("lamehost ($hostname) by $_->{nick} detected on $channelName, kicking...");
+			$server->command("kick $channelName $_->{nick} Irssi::settings_get_str('kblamehost_kickmsg')");
+			$server->command("ban $channelName $_->{nick}") if ( Irssi::settings_get_str('kblamehost_ban') );
+		}
+	}
+}
+
+Irssi::signal_add_last("massjoin", "event_join");
diff --git a/scripts/keepnick.pl b/scripts/keepnick.pl
new file mode 100644
index 0000000..181dc23
--- /dev/null
+++ b/scripts/keepnick.pl
@@ -0,0 +1,456 @@
+# keepnick - irssi 0.7.98.CVS 
+#
+#    $Id: keepnick.pl,v 1.17 2003/01/04 10:18:42 peder Exp $
+#
+# Copyright (C) 2001, 2002 by Peder Stray <peder@ninja.no>
+#
+
+use strict;
+use Irssi 20011118.1727;
+use Irssi::Irc;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.17 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'keepnick',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/keepnick.pl',
+          license     => 'GPL',
+          description => 'Try to get your nick back when it becomes available.',
+         );
+
+# ======[ Variables ]===================================================
+
+my(%keepnick);		# nicks we want to keep
+my(%getnick);		# nicks we are currently waiting for
+my(%inactive);		# inactive chatnets
+my(%manual);		# manual nickchanges
+
+# ======[ Helper functions ]============================================
+
+# --------[ change_nick ]-----------------------------------------------
+
+sub change_nick {
+    my($server,$nick) = @_;
+    $server->redirect_event('keepnick nick', 1, ":$nick", -1, undef,
+			    {
+			     "event nick" => "redir keepnick nick",
+			     "" => "event empty",
+			    });
+    $server->send_raw("NICK :$nick");
+}
+
+# --------[ check_nick ]------------------------------------------------
+
+sub check_nick {
+    my($server,$net,$nick);
+
+    %getnick = ();	# clear out any old entries
+    
+    for $net (keys %keepnick) {
+	next if $inactive{$net};
+	$server = Irssi::server_find_chatnet($net);
+	next unless $server;
+	next if lc $server->{nick} eq lc $keepnick{$net};
+	
+	$getnick{$net} = $keepnick{$net};
+    }
+    
+    for $net (keys %getnick) {
+	$server = Irssi::server_find_chatnet($net);
+	next unless $server;
+	$nick = $getnick{$net};
+	if (lc $server->{nick} eq lc $nick) {
+	    delete $getnick{$net};
+	    next;
+	}
+	$server->redirect_event('keepnick ison', 1, '', -1, undef,
+				{ "event 303" => "redir keepnick ison" });
+	$server->send_raw("ISON :$nick");
+    }
+}
+
+# --------[ load_nicks ]------------------------------------------------
+
+sub load_nicks {
+    my($file) = Irssi::get_irssi_dir."/keepnick";
+    my($count) = 0;
+    local(*CONF);
+    
+    %keepnick = ();
+    open CONF, "< $file";
+    while (<CONF>) {
+	my($net,$nick) = split;
+	if ($net && $nick) {
+	    $keepnick{lc $net} = $nick;
+	    $count++;
+	}
+    }
+    close CONF;
+    
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_crap',
+		       "Loaded $count nicks from $file");
+}
+
+# --------[ save_nicks ]------------------------------------------------
+
+sub save_nicks {
+    my($auto) = @_;
+    my($file) = Irssi::get_irssi_dir."/keepnick";
+    my($count) = 0;
+    local(*CONF);
+    
+    return if $auto && !Irssi::settings_get_bool('keepnick_autosave');
+    
+    open CONF, "> $file";
+    for my $net (sort keys %keepnick) {
+	print CONF "$net\t$keepnick{$net}\n";
+	$count++;
+    }
+    close CONF;
+    
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_crap',
+		       "Saved $count nicks to $file")
+	unless $auto;
+}
+
+# --------[ server_printformat ]----------------------------------------
+
+sub server_printformat {
+    my($server,$level,$format,@params) = @_;
+    my($emitted) = 0;
+    for my $win (Irssi::windows) {
+	for my $item ($win->items) {
+	    next unless ref $item;
+	    if ($item->{server}{chatnet} eq $server->{chatnet}) {
+		$item->printformat($level,$format,@params);
+		$emitted++;
+		last;
+	    }
+	}
+    }
+    $server->printformat(undef,$level,$format,@params)
+	unless $emitted;
+}
+
+# ======[ Signal Hooks ]================================================
+
+# --------[ sig_message_nick ]------------------------------------------
+
+# if anyone changes their nick, check if we want their old one.
+sub sig_message_nick {
+    my($server,$newnick,$oldnick) = @_;
+    my($chatnet) = lc $server->{chatnet};
+    if (lc $oldnick eq lc $getnick{$chatnet}) {
+	change_nick($server, $getnick{$chatnet});
+    }
+}
+
+# --------[ sig_message_own_nick ]--------------------------------------
+
+# if we change our nick, check it to see if we wanted it and if so
+# remove it from the list.
+sub sig_message_own_nick {
+    my($server,$newnick,$oldnick) = @_;
+    my($chatnet) = lc $server->{chatnet};
+    if (lc $newnick eq lc $keepnick{$chatnet}) {
+	delete $getnick{$chatnet};
+	if ($inactive{$chatnet}) {
+	    delete $inactive{$chatnet};
+	    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_unhold', 
+			       $newnick, $chatnet);
+	}
+    } elsif (lc $oldnick eq lc $keepnick{$chatnet} &&
+	     lc $newnick eq lc $manual{$chatnet}) {
+	$inactive{$chatnet} = 1;
+	delete $getnick{$chatnet};
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_hold',
+			   $oldnick, $chatnet);
+    }
+}
+
+# --------[ sig_message_own_nick_block ]--------------------------------
+
+sub sig_message_own_nick_block {
+    my($server,$new,$old,$addr) = @_;
+    Irssi::signal_stop();
+    if (Irssi::settings_get_bool('keepnick_quiet')) {
+	Irssi::printformat(MSGLEVEL_NICKS | MSGLEVEL_NO_ACT,
+			   'keepnick_got_nick', $new, $server->{chatnet});
+    } else {
+	server_printformat($server, MSGLEVEL_NICKS | MSGLEVEL_NO_ACT,
+			   'keepnick_got_nick', $new, $server->{chatnet});
+    }
+}
+
+# --------[ sig_message_quit ]------------------------------------------
+
+# if anyone quits, check if we want their nick.
+sub sig_message_quit {
+    my($server,$nick) = @_;
+    my($chatnet) = lc $server->{chatnet};
+    if (lc $nick eq lc $getnick{$chatnet}) {
+	change_nick($server, $getnick{$chatnet});
+    }
+}
+
+# --------[ sig_redir_keepnick_ison ]-----------------------------------
+
+sub sig_redir_keepnick_ison {
+    my($server,$text) = @_;
+    my $nick = $getnick{lc $server->{chatnet}};
+    change_nick($server, $nick)
+      unless $text =~ /:\Q$nick\E\s?$/i;
+}
+
+# --------[ sig_redir_keepnick_nick ]-----------------------------------
+
+sub sig_redir_keepnick_nick {
+    my($server,$args,$nick,$addr) = @_;
+    Irssi::signal_add_first('message own_nick', 'sig_message_own_nick_block');
+    Irssi::signal_emit('event nick', @_);
+    Irssi::signal_remove('message own_nick', 'sig_message_own_nick_block');
+}
+
+# --------[ sig_setup_reread ]------------------------------------------
+
+# main setup is reread, so let us do it too
+sub sig_setup_reread {
+    load_nicks;
+}
+
+# --------[ sig_setup_save ]--------------------------------------------
+
+# main config is saved, and so we should save too
+sub sig_setup_save {
+    my($mainconf,$auto) = @_;
+    save_nicks($auto);
+}
+
+# ======[ Commands ]====================================================
+
+# --------[ KEEPNICK ]--------------------------------------------------
+
+# Usage: /KEEPNICK [-net <chatnet>] [<nick>]
+sub cmd_keepnick {
+    my(@params) = split " ", shift;
+    my($server) = @_;
+    my($chatnet,$nick,@opts);
+
+    # parse named parameters from the parameterlist
+    while (@params) {
+	my($param) = shift @params;
+	if ($param =~ /^-(chat|irc)?net$/i) {
+	    $chatnet = shift @params;
+	} elsif ($param =~ /^-/) {
+	    Irssi::print("Unknown parameter $param");
+	} else {
+	    push @opts, $param;
+	}
+    }
+    $nick = shift @opts;
+
+    # check if the ircnet specified (if any) is valid, and if so get the
+    # server for it
+    if ($chatnet) {
+	my($cn) = Irssi::chatnet_find($chatnet);
+	unless ($cn) {
+	    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_crap', 
+			       "Unknown chat network: $chatnet");
+	    return;
+	}
+	$chatnet = $cn->{name};
+	$server = Irssi::server_find_chatnet($chatnet);
+    }
+
+    # if we need a server, check if the one we got is connected.
+    unless ($server || ($nick && $chatnet)) {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_crap', 
+			   "Not connected to server");
+	return;
+    }
+
+    # lets get the chatnet, and the nick we want
+    $chatnet ||= $server->{chatnet};
+    $nick    ||= $server->{nick};
+
+    # check that we really have a chatnet
+    unless ($chatnet) {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_crap',
+			   "Unable to find a chatnet");
+	return;
+    }
+	
+    if ($inactive{lc $chatnet}) {
+	delete $inactive{lc $chatnet};
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_unhold',
+			   $nick, $chatnet);
+    }
+
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_add', $nick,
+		       $chatnet);
+
+    $keepnick{lc $chatnet} = $nick;
+
+    save_nicks(1);
+    check_nick();
+}
+
+# --------[ UNKEEPNICK ]------------------------------------------------
+
+# Usage: /UNKEEPNICK [<chatnet>]
+sub cmd_unkeepnick {
+    my($chatnet,$server) = @_;
+    
+    # check if the ircnet specified (if any) is valid, and if so get the
+    # server for it
+    if ($chatnet) {
+	my($cn) = Irssi::chatnet_find($chatnet);
+	unless ($cn) {
+	    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_crap', 
+			       "Unknown chat network: $chatnet");
+	    return;
+	}
+	$chatnet = $cn->{name};
+    } else {
+	$chatnet = $server->{chatnet};
+    }
+
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_remove',
+		       $keepnick{lc $chatnet}, $chatnet);
+
+    delete $keepnick{lc $chatnet};
+    delete $getnick{lc $chatnet};
+
+    save_nicks(1);
+}
+
+# --------[ LISTNICK ]--------------------------------------------------
+
+# Usage: /LISTNICK
+sub cmd_listnick {
+    my(@nets) = sort keys %keepnick;
+    my $net;
+    if (@nets) {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_list_header');
+	for (@nets) {
+	    $net = Irssi::chatnet_find($_);
+	    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_list_line',
+			       $keepnick{$_},
+			       $net ? $net->{name} : ">$_<",
+			       $inactive{$_}?'inactive':'active');
+	}
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_list_footer');
+    } else {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'keepnick_list_empty');
+    }
+}
+
+# --------[ NICK ]------------------------------------------------------
+
+sub cmd_nick {
+    my($data,$server) = @_;
+    my($nick) = split " ", $data;
+    return unless $server;
+    $manual{lc $server->{chatnet}} = $nick;
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_bool('keepnick', 'keepnick_autosave', 1);
+Irssi::settings_add_bool('keepnick', 'keepnick_quiet', 0);
+
+# --------[ Register formats ]------------------------------------------
+
+Irssi::theme_register(
+[
+ 'keepnick_crap', 
+ '{line_start}{hilight Keepnick:} $0',
+
+ 'keepnick_add', 
+ '{line_start}{hilight Keepnick:} Now keeping {nick $0} on [$1]',
+
+ 'keepnick_remove',
+ '{line_start}{hilight Keepnick:} Stopped trying to keep {nick $0} on [$1]',
+
+ 'keepnick_hold',
+ '{line_start}{hilight Keepnick:} Nickkeeping deactivated on [$1]',
+
+ 'keepnick_unhold',
+ '{line_start}{hilight Keepnick:} Nickkeeping reactivated on [$1]',
+
+ 'keepnick_list_empty', 
+ '{line_start}{hilight Keepnick:} No nicks in keep list',
+
+ 'keepnick_list_header', 
+ '',
+
+ 'keepnick_list_line', 
+ '{line_start}{hilight Keepnick:} Keeping {nick $0} in [$1] ($2)',
+
+ 'keepnick_list_footer', 
+ '',
+
+ 'keepnick_got_nick',
+ '{hilight Keepnick:} Nickstealer left [$1], got {nick $0} back',
+ 
+]);
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add('message quit', 'sig_message_quit');
+Irssi::signal_add('message nick', 'sig_message_nick');
+Irssi::signal_add('message own_nick', 'sig_message_own_nick');
+
+Irssi::signal_add('redir keepnick ison', 'sig_redir_keepnick_ison');
+Irssi::signal_add('redir keepnick nick', 'sig_redir_keepnick_nick');
+
+Irssi::signal_add('setup saved', 'sig_setup_save');
+Irssi::signal_add('setup reread', 'sig_setup_reread');
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind("keepnick", "cmd_keepnick");
+Irssi::command_bind("unkeepnick", "cmd_unkeepnick");
+Irssi::command_bind("listnick", "cmd_listnick");
+Irssi::command_bind("nick", "cmd_nick");
+
+# --------[ Register timers ]-------------------------------------------
+
+Irssi::timeout_add(12000, 'check_nick', '');
+
+# --------[ Register redirects ]----------------------------------------
+
+Irssi::Irc::Server::redirect_register('keepnick ison', 0, 0,
+			 undef,
+			 {
+			  "event 303" => -1,
+			 },
+			 undef );
+
+Irssi::Irc::Server::redirect_register('keepnick nick', 0, 0,
+			 undef,
+			 {
+			  "event nick" => 0,
+			  "event 432" => -1,	# ERR_ERRONEUSNICKNAME
+			  "event 433" => -1,	# ERR_NICKNAMEINUSE
+			  "event 437" => -1,	# ERR_UNAVAILRESOURCE
+			  "event 484" => -1,	# ERR_RESTRICTED
+			 },
+			 undef );
+
+# --------[ Load config ]-----------------------------------------------
+
+load_nicks;
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
diff --git a/scripts/kenny.pl b/scripts/kenny.pl
new file mode 100644
index 0000000..0ad85d5
--- /dev/null
+++ b/scripts/kenny.pl
@@ -0,0 +1,92 @@
+# (c) 2002 by Gerfried Fuchs <alfie@channel.debian.de>
+
+use Irssi qw(command_bind command signal_add_last signal_stop settings_get_bool settings_add_bool);
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '2.3.1';
+
+%IRSSI = (
+  'authors'     => 'Gerfried Fuchs',
+  'contact'     => 'alfie@channel.debian.de',
+  'name'        => 'kenny speech',
+  'description' => 'autodekennyfies /kenny, adds /kenny, /dekenny. Based on Jan-Pieter Cornets signature version',
+  'license'     => 'BSD',
+  'url'         => 'http://alfie.ist.org/projects/irssi/scripts/kenny.pl',
+  'changed'     => '2002-06-13',
+);
+
+# Maintainer & original Author:  Gerfried Fuchs <alfie@channel.debian.de>
+# Based on signature kenny from: Jan-Pieter Cornet <johnpc@xs4all.nl>
+# Autodekenny-suggestion:        BC-bd <bd@bc-bd.org>
+
+# Sugguestions from darix: Add <$nick> to [kenny] line patch
+
+# This script offers you /kenny and /dekenny which both do the kenny-filter
+# magic on the argument you give it.  Despite it's name *both* do kenny/dekenny
+# the argument; the difference is that /kenny writes it to the channel/query
+# but /dekenny only to your screen.
+
+# Version-History:
+# ================
+# 2.3.1 -- fixed autodekenny in channels for people != yourself
+#
+# 2.3.0 -- fixed kenny in querys
+#          fixed dekenny in status window
+#
+# 2.2.3 -- fixed pattern matching for autokenny string ("\w" != "a-z" :/)
+#
+# 2.2.2 -- first version available to track history from...
+
+# TODO List
+# ... currently empty
+
+
+sub KennyIt {
+   ($_)=@_;my($p,$f);$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(
+   sub{$_[0]*9+$_[1]*3+$_[2] }->(map {/p|f/i+/f/i}split//,$&)+97):('m','p','f')
+   [map{((ord$&)%32-1)/$_%3}(9, 3,1)]),5,1)='`'lt$&;$f.eig;return ($_);
+};
+
+
+sub cmd_kenny {
+   my ($msg, undef, $channel) = @_;
+   $channel->command("msg $channel->{'name'} ".KennyIt($msg));
+}
+
+
+sub cmd_dekenny {
+   my ($msg, undef, $channel) = @_;
+
+   if ($channel) {
+      $channel->print('[kenny] '.KennyIt($msg), MSGLEVEL_CRAP);
+   } else {
+      Irssi::print('[kenny] '.KennyIt($msg), MSGLEVEL_CRAP);
+   }
+}
+
+
+sub sig_kenny {
+   my ($server, $msg, $nick, $address, $target) = @_;
+   if ($msg=~m/^[^a-z]*[mfp]{3}(?:[^a-z]|[mfp]{3})+$/i) {
+      $target=$nick if $target eq "";
+
+      # the address may _never_ be emtpy, if it is its own_public
+      $nick=$server->{'nick'} if $address eq "";
+
+      $server->window_item_find($target)->print("[kenny] <$nick> " .
+                                                KennyIt($msg), MSGLEVEL_CRAP);
+      signal_stop if not settings_get_bool('show_kenny_too');
+   }
+}
+
+
+command_bind('kenny',   'cmd_kenny');
+command_bind('dekenny', 'cmd_dekenny');
+
+signal_add_last('message own_public',  'sig_kenny');
+signal_add_last('message public',      'sig_kenny');
+signal_add_last('message own_private', 'sig_kenny');
+signal_add_last('message private',     'sig_kenny');
+
+settings_add_bool('lookandfeel', 'show_kenny_too', 0);
diff --git a/scripts/kernel.pl b/scripts/kernel.pl
new file mode 100644
index 0000000..048dd1d
--- /dev/null
+++ b/scripts/kernel.pl
@@ -0,0 +1,64 @@
+# Fetches the version(s) of the latest Linux kernel(s).
+
+# /kernel
+
+use strict;
+use Irssi;
+use IO::Socket;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.9';
+%IRSSI = (
+    authors     => 'Johan "Ion" Kiviniemi',
+    contact     => 'ion at hassers.org',
+    name        => 'Kernel',
+    description => 'Fetches the version(s) of the latest Linux kernel(s).',
+    license     => 'Public Domain',
+    url         => 'http://ion.amigafin.org/irssi/',
+    changed     => 'Tue Mar 12 22:20 EET 2002',
+);
+
+sub finger($$) {
+    # Yes, Net::Finger is already done and i'm reinventing the wheel.
+    my ($user, $host) = @_;
+    my $buffer;
+    if (my $socket = IO::Socket::INET->new(
+            PeerHost => $host,
+            PeerPort => 'finger(79)',
+            Proto    => 'tcp',
+        ))
+    {
+        if (syswrite $socket, "$user\n") {
+            unless (sysread $socket, $buffer, 1024) {
+                # Should i use $! here?
+                Irssi::print(
+                    "Unable to read from the socket: $!",
+                    Irssi::MSGLEVEL_CLIENTERROR
+                );
+            }
+        } else {
+            # ..and here?
+            Irssi::print(
+                "Unable to write to the socket: $!",
+                Irssi::MSGLEVEL_CLIENTERROR
+            );
+        }
+    } else {
+        Irssi::print("Connection to $host failed: $!",
+            Irssi::MSGLEVEL_CLIENTERROR);
+    }
+    return $buffer;
+}
+
+sub get_version {
+    my @version;
+    if (my $finger = finger("", "finger.kernel.org")) {
+        # The magic of the regexps :)
+        @version = $finger =~ /:\s*(\S+)\s*$/gm;
+        # Modify this to do whatever you want.
+        Irssi::print("@version");
+    }
+}
+
+Irssi::command_bind('kernel_version', 'get_version');
diff --git a/scripts/keybinds.pl b/scripts/keybinds.pl
new file mode 100644
index 0000000..36e3733
--- /dev/null
+++ b/scripts/keybinds.pl
@@ -0,0 +1,150 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.01";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'keybindings.pl',
+    description => 'This script will set the proper keybindings on /AZERTY and /QWERTY.',
+    license     => 'Public Domain',
+    url         => 'http://irssi.hauwaerts.be/keybindings.pl',
+    changed     => 'Tue Nov  4 16:49:20 CET 2003',
+);
+
+Irssi::theme_register([
+    'loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
+    'bound',  '%R>>%n %_Keybindings:%_ Loaded the $0 keybindings.'
+]);
+
+sub azerty {
+
+    Irssi::command("^BIND meta-a change_window 11");
+    Irssi::command("^BIND meta-p change_window 20");
+    Irssi::command("^BIND meta-m change_window 30");
+    Irssi::command("^BIND meta-Z change_window 31");
+    Irssi::command("^BIND meta-z change_window 12");
+    Irssi::command("^BIND meta-s change_window 22");
+    Irssi::command("^BIND meta-d change_window 23");
+    Irssi::command("^BIND meta-f change_window 24");
+    Irssi::command("^BIND meta-g change_window 25");
+    Irssi::command("^BIND meta-h change_window 26");
+    Irssi::command("^BIND meta-j change_window 27");
+    Irssi::command("^BIND meta-k change_window 28");
+    Irssi::command("^BIND meta-l change_window 29");
+    Irssi::command("^BIND meta-A change_window 32");
+    Irssi::command("^BIND meta-E change_window 33");
+    Irssi::command("^BIND meta-R change_window 34");
+    Irssi::command("^BIND meta-T change_window 35");
+    Irssi::command("^BIND meta-Y change_window 36");
+    Irssi::command("^BIND meta-U change_window 37");
+    Irssi::command("^BIND meta-I change_window 38");
+    Irssi::command("^BIND meta-O change_window 39");
+    Irssi::command("^BIND meta-P change_window 40");
+    Irssi::command("^BIND meta-Q change_window 41");
+    Irssi::command("^BIND meta-q change_window 21");
+    Irssi::command("^BIND meta-S change_window 42");
+    Irssi::command("^BIND meta-D change_window 43");
+    Irssi::command("^BIND meta-F change_window 44");
+    Irssi::command("^BIND meta-G change_window 45");
+    Irssi::command("^BIND meta-H change_window 46");
+    Irssi::command("^BIND meta-J change_window 47");
+    Irssi::command("^BIND meta-K change_window 48");
+    Irssi::command("^BIND meta-L change_window 49");
+    Irssi::command("^BIND meta-M change_window 50");
+    Irssi::command("^BIND meta-& change_window 1");
+    Irssi::command("^BIND meta-é change_window 2");
+    Irssi::command("^BIND meta-\" change_window 3");
+    Irssi::command("^BIND meta-' change_window 4");
+    Irssi::command("^BIND meta-( change_window 5");
+    Irssi::command("^BIND meta-§ change_window 6");
+    Irssi::command("^BIND meta-è change_window 7");
+    Irssi::command("^BIND meta-! change_window 8");
+    Irssi::command("^BIND meta-ç change_window 9");
+    Irssi::command("^BIND meta-à change_window 10");
+    Irssi::command("^BIND meta-x command window last");
+    Irssi::command("^BIND meta-N command /mark");
+
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'bound', 'azerty');
+}
+
+sub qwerty {
+
+    Irssi::command("^BIND meta-a change_window 21");
+    Irssi::command("^BIND meta-p change_window 20");
+    Irssi::command("^BIND meta-m change_window 30");
+    Irssi::command("^BIND meta-Z change_window 31");
+    Irssi::command("^BIND meta-w change_window 12");
+    Irssi::command("^BIND meta-s change_window 22");
+    Irssi::command("^BIND meta-d change_window 23");
+    Irssi::command("^BIND meta-f change_window 24");
+    Irssi::command("^BIND meta-g change_window 25");
+    Irssi::command("^BIND meta-h change_window 26");
+    Irssi::command("^BIND meta-j change_window 27");
+    Irssi::command("^BIND meta-k change_window 28");
+    Irssi::command("^BIND meta-l change_window 29");
+    Irssi::command("^BIND meta-A change_window 32");
+    Irssi::command("^BIND meta-E change_window 33");
+    Irssi::command("^BIND meta-R change_window 34");
+    Irssi::command("^BIND meta-T change_window 35");
+    Irssi::command("^BIND meta-Y change_window 36");
+    Irssi::command("^BIND meta-U change_window 37");
+    Irssi::command("^BIND meta-I change_window 38");
+    Irssi::command("^BIND meta-O change_window 39");
+    Irssi::command("^BIND meta-P change_window 40");
+    Irssi::command("^BIND meta-Q change_window 41");
+    Irssi::command("^BIND meta-q change_window 11");
+    Irssi::command("^BIND meta-S change_window 42");
+    Irssi::command("^BIND meta-D change_window 43");
+    Irssi::command("^BIND meta-F change_window 44");
+    Irssi::command("^BIND meta-G change_window 45");
+    Irssi::command("^BIND meta-H change_window 46");
+    Irssi::command("^BIND meta-J change_window 47");
+    Irssi::command("^BIND meta-K change_window 48");
+    Irssi::command("^BIND meta-L change_window 49");
+    Irssi::command("^BIND meta-M change_window 50");
+    Irssi::command("^BIND meta-& change_window 1");
+    Irssi::command("^BIND meta-é change_window 2");
+    Irssi::command("^BIND meta-\" change_window 3");
+    Irssi::command("^BIND meta-' change_window 4");
+    Irssi::command("^BIND meta-( change_window 5");
+    Irssi::command("^BIND meta-§ change_window 6");
+    Irssi::command("^BIND meta-è change_window 7");
+    Irssi::command("^BIND meta-! change_window 8");
+    Irssi::command("^BIND meta-ç change_window 9");
+    Irssi::command("^BIND meta-à change_window 10");
+    Irssi::command("^BIND meta-x command window last");
+    Irssi::command("^BIND meta-N command /mark");
+
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'bound', 'qwerty');
+}
+
+Irssi::command_bind('azerty', 'azerty');
+Irssi::command_bind('qwerty', 'qwerty');
+
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
+
diff --git a/scripts/kicks.pl b/scripts/kicks.pl
new file mode 100644
index 0000000..9df9314
--- /dev/null
+++ b/scripts/kicks.pl
@@ -0,0 +1,246 @@
+#!/usr/bin/perl -w
+# various kick and ban commands
+#  by c0ffee 
+#    - http://www.penguin-breeder.org/irssi/
+
+#<scriptinfo>
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION = "0.26";
+%IRSSI = (
+    authors	=> "c0ffee",
+    contact	=> "c0ffee\@penguin-breeder.org",
+    name	=> "Various kick and ban commands",
+    description	=> "Enhances /k /kb and /kn with some nice options.",
+    license	=> "Public Domain",
+    url		=> "http://www.penguin-breeder.org/irssi/",
+    changed	=> "Tue Nov 14 23:19:19 CET 2006",
+);
+#</scriptinfo>
+
+my %kickreasons  = (
+	default => ["random kick victim",
+		    "no",
+		    "are you stupid?",
+		    "i don't like you, go away!",
+		    "oh, fsck off",
+		    "waste other ppls time, elsewhere",
+		    "get out and STAY OUT",
+		    "don't come back",
+		    "no thanks",
+		    "on popular demand, you are now leaving the channel",
+		    "\$N",
+		    "*void*",
+		    "/part is the command you're looking for",
+		    "this is the irssi of borg. your mIRC will be assimilated. resistance is futile.",
+		    "Autokick! mwahahahah!"
+		   ],
+	none	=> [""],
+	topic	=> ["\$topic"],
+);
+
+
+# fine tune the script for different chatnets
+#    cmdline_k		regular expr that matches a correct cmdline for /k
+#    req_chan		0/1 whether the channel is always part of the cmdline
+#    num_nicks		number of nicks ... (-1 = inf)
+#    start_with_dash	0/1 whether the normal cmdline may start with a dash
+#    match_chn		matches channels
+#    match_n		match nicks
+#    match_reason	matches reasons
+#    default_reason	reason to give as "no reason"
+my %cfg = (
+	IRC	=> {
+			cmdline_k       => '\s*([!#+&][^\x0\a\n\r ]*)\s+[-\[\]\\\\\`{}\w_|^\'~]+(,[-\[\]\\\\\`{}\w_|^\'~]+)*\s+\S.*',
+			req_chan        => 0,
+			num_nicks       => 3, # actually, /k takes more, but
+			                      # normal irc servers only take
+					      # three in a row
+			start_with_dash => 1,
+			match_chn       => '([!#+&][^\x0\a\n\r ]*)\s',
+			match_n         => '(?:^|\s+)([-\[\]\\\\\`{}\w_|^\'~]+(?:,[-\[\]\\\\\`{}\w_|^\']+)*)',
+			match_reason    => '^\s*[!#+&][^\x0\a\n\r ]*\s+[-\[\]\\\\\`{}\w_|^\'~]+(?:,[-\[\]\\\\\`{}\w_|^\'~]+)*\s+(\S.*)$',
+			default_reason  => '$N'
+		},
+
+	SILC	=> {
+			cmdline_k	=> '\s*[^\x0-\x20\*\?,@!]+\s+[^\x0-\x20\*\?,@!]+\s+\S.*',
+			req_chan	=> 1,
+			num_nicks	=> 1,
+			start_with_dash => 0,
+			match_chn	=> '\s*([^\x0-\x20\*\?,@!]+)\s+[^\x0-\x20\*\?,@!]+(?:,[^\x0-\x20\*\?,@!]+)*',
+			match_n		=> '\s*(?:[^\x0-\x20\*\?,@!]+\s+)?([^\x0-\x20\*\?,@!]+(?:,[^\x0-\x20\*\?,@!]+)*)',
+			match_reason	=> '\s*[^\x0-\x20\*\?,@!]+\s+[^\x0-\x20\*\?,@!]+(?:,[^\x0-\x20\*\?,@!]+)*\s+(\S.*)',
+			default_reason	=> '$N'
+		}
+);
+
+sub initialize {
+
+    my $conf_file = Irssi::settings_get_str("kicks_configuration");
+    $conf_file =~ s/~/$ENV{HOME}/;
+    my ($basedir) = $conf_file =~ /^(.*\/).*?/;
+
+    if (-f $conf_file) {
+	open CONF, $conf_file;
+	
+	while (<CONF>) {
+	    $line++;
+
+	    next if /^\s*#/;
+
+	    chomp;
+	    ($key, $reasons) = /^(\S+)\s+(.+)\s*$/ or next;
+
+	    if ($reasons =~ /\`([^\s]+).*?\`/) {
+		$kickreasons{$key} = "$reasons";
+		Irssi::print("Added executable $1 as $key...");
+		next;
+	    }
+
+	    $reasons =~ s/^"(.*)"$/$1/;
+	    $reasons =~ s/~/$ENV{HOME}/;
+	    $reasons =~ s/^([^\/])/$basedir$1/;
+	    
+	    if (-f $reasons) {
+
+		$kickreasons{$key} = [];
+
+		open REASON, $reasons;
+
+		while (<REASON>) {
+		    chomp;
+		    push @{$kickreasons{$key}}, $_;
+		}
+
+		close REASON;
+		Irssi::print("Loaded $reasons as $key...");
+	    } else {
+		Irssi::print("can't parse config line $line...");
+	    }
+	}
+	close CONF;
+    } else {
+        Irssi::print("Could not find configuration file for kicks...");
+	Irssi::print("... use /set kicks_configuration <file>");
+    }
+}
+
+			
+sub get_a_reason {
+    my ($topic) = @_;
+
+
+    return "" if not defined $kickreasons{$topic};
+
+    $_ = eval $kickreasons{$topic}, chomp, s/[\n\t]+/ /mg, return $_
+        if ref($kickreasons{$topic}) ne "ARRAY";
+
+    return $kickreasons{$topic}[rand @{$kickreasons{$topic}}];
+    
+}
+
+sub cmd_realkick {
+    my ($data, $server, $channel, $cmd) = @_;
+    my $reasons = "default";
+
+    return if not $server
+              or not defined $cfg{$server->{chat_type}}
+	      or not $channel
+    	      or $data =~ /^$cfg{$server->{chat_type}}{cmdline_k}$/;
+
+    Irssi::signal_stop();
+
+    # let's see whether some options where supplied
+    $default = Irssi::settings_get_str("default_kick_options");
+    $data = "$default $data" if not $default =~ /^\s*$/;
+    @opts = split /\s+/, $data;
+
+    while (($opt) = (shift @opts) =~ /^\s*-(\S+)/) {
+      
+        $data =~ s/^\s*--\s+//, last if $opt eq "-";
+      
+        $data =~ s/^\s*-$opt\s+//, 
+            $reasons = lc $opt,
+	    next if defined $kickreasons{lc $opt};
+
+        last if $cfg{$server->{chat_type}}{start_with_dash};
+
+        Irssi::print("Unknown option -$opt");
+        $fail = true;
+
+    }
+
+    return if $fail;
+
+    $chn = "";
+    ($chn) = $data =~ /^$cfg{$server->{chat_type}}{match_chn}/;
+
+    if ($cfg{$server->{chat_type}}{req_chan} && ($chn eq "")) {
+      Irssi::print "Not joined to any channel";
+      return;
+    }
+
+    # do we need to add a channel?
+    if ($chn eq "") {
+	Irssi::print("Not joined to any channel"), return 
+	    if $channel->{type} ne "CHANNEL";
+        $chn = $channel->{name};
+
+	$data = "$chn $data";
+    }
+
+    # is a reason already supplied?
+    $reason = get_a_reason($reasons)
+        if not (($reason) = $data =~ /$cfg{$server->{chat_type}}{match_reason}/);
+
+    $reason = $cfg{$server->{chat_type}}{default_reason}
+        if $reason =~ /^\s*$/;
+    
+    @nicks = split /,/, ($data =~ /$cfg{$server->{chat_type}}{match_n}/)[0];
+    $num_nicks = $cfg{$server->{chat_type}}{num_nicks};
+    $num_nicks = @nicks if $num_nicks <= 0;
+
+    undef @commands;
+
+    while (@nicks) {
+        $tmp = ($chn ne "" ? "$chn " : "") .
+               join ",", (splice @nicks,0,$num_nicks);
+	$tmp =~ s/([;\\\$])/\\$1/g;
+	push @commands, "$tmp $reason";
+    }
+    
+    foreach (@commands) {
+      if ($_ =~ /^$cfg{$server->{chat_type}}{cmdline_k}$/) {
+        s/\s+$//;
+        $channel->command("EVAL $cmd $_") 
+      } else {
+        Irssi::print("BUG: generated invalid $cmd command: $_");
+      }
+    }
+}
+
+sub cmd_kick {
+    my ($data, $server, $channel) = @_;
+
+    cmd_realkick $data, $server, $channel, "KICK";
+
+}
+
+sub cmd_kickban {
+    my ($data, $server, $channel) = @_;
+
+    cmd_realkick $data, $server, $channel, "KICKBAN";
+
+}
+
+Irssi::settings_add_str("misc", "default_kick_options", "");
+Irssi::settings_add_str("misc", "kicks_configuration",
+				Irssi::get_irssi_dir() . "/kicks.conf");
+
+Irssi::command_bind("kick", "cmd_kick");
+Irssi::command_bind("kickban", "cmd_kickban");
+
+initialize();
+
diff --git a/scripts/kill_fake_gets.pl b/scripts/kill_fake_gets.pl
new file mode 100644
index 0000000..65be5b4
--- /dev/null
+++ b/scripts/kill_fake_gets.pl
@@ -0,0 +1,128 @@
+
+# 
+# Variables:
+# /set kill_fake_gets_timeout X - if there is no tranfer in X minutes the get 
+#	is closed
+#
+# Changes:
+# 1.1 (2003.02.11)
+#	Hmm. The previous official version didn't worket at all (forgot to 
+#	uncomment one line) and notbody told me that. Means nobody is using this
+#	script...
+#	Anyway, this should be fixed. And now it closes stalled gets as well.
+#
+
+$VERSION = "1.1";
+%IRSSI = (
+	authors     => "Piotr 'Cvbge' Krukowiecki",
+	name        => 'kill_fake_gets',
+	description => 'When new send arrives checks if there are old identical '.
+		'sends (ie from the same nick on the same server and with the same '.
+		'filename) and closes them',
+	license     => 'Public Domain',
+	changed     => '2003.02.11', 
+	url         => 'http://pingu.ii.uj.edu.pl/~piotr/irssi/'
+);
+
+my $debug = 0; # set this to 1 to enable A LOT OF debug messages
+
+sub pd {
+	return if (not $debug);
+	$dcc = @_[0];
+	Irssi::print("SDC '$dcc->{type}' from '$dcc->{nick}' on '$dcc->{servertag}' arg '$dcc->{arg}'");
+	Irssi::print("SDC created '$dcc->{created}' addr '$dcc->{addr}' port '$dcc->{port}'");
+	Irssi::print("SDC starttime '$dcc->{starttime}' transfd '$dcc->{transfd}'");
+	Irssi::print("SDC size '$dcc->{size}' skipped '$dcc->{skipped}'");
+}
+
+sub sig_dcc_connected {
+    my $dcc = @_[0];
+	return if ($dcc->{'type'} ne 'GET');
+	Irssi::print("SDC: dcc get connected") if ($debug); 
+	pd($dcc);
+	foreach (Irssi::Irc::dccs()) {
+		pd($_);
+		if ($_->{'type'} eq 'GET' and
+			$_->{'nick'} eq $dcc->{'nick'} and
+			$_->{'servertag'} eq $dcc->{'servertag'} and
+			$_->{'arg'} eq $dcc->{'arg'} and 
+			$_->{'created'} ne $dcc->{'created'} and
+			$_->{'starttime'} ne $dcc->{'starttime'} and
+			$_->{'port'} ne $dcc->{'port'}) {
+			Irssi::print("SDC: Destroying") if ($debug);
+			$_->destroy();
+		}
+	}
+}
+
+my %gets;
+
+sub sig_dcc_destroyed {
+	my $dcc = @_[0];
+	return if ($dcc->{'type'} ne 'GET');
+	
+	Irssi::print('SDC: the get was destroyed:') if ($debug); pd($dcc);
+	
+	# no record - the script must have been loaded less than 1 minute ago
+	if (not exists $gets{$dcc->{'servertag'}} or
+		not exists $gets{$dcc->{'servertag'}}{$dcc->{'nick'}} or
+		not exists $gets{$dcc->{'servertag'}}{$dcc->{'nick'}}{$dcc->{'arg'}}) {
+		Irssi::print('SDC: The record for this get does not exists') if ($debug); 
+		return;		
+	}
+
+	delete $gets{$dcc->{'servertag'}}{$dcc->{'nick'}}{$dcc->{'arg'}};
+	Irssi::print('SDC: record destroyed') if ($debug); 
+}
+
+
+
+sub check_speed {
+	my $time = time();
+	my $timeout = 60 * Irssi::settings_get_int('kill_fake_gets_timeout');
+	foreach (Irssi::Irc::dccs()) {
+		next if ($_->{'type'} ne 'GET');
+		next if (not $_->{'starttime'}); # transfer not yet started
+
+		Irssi::print('SDC: checking get:') if ($debug);	pd($_);
+		# no such record - just loaded the script
+		if (not exists $gets{$_->{'servertag'}} or
+			not exists $gets{$_->{'servertag'}}{$_->{'nick'}} or
+			not exists $gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}) {
+			$gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'time'} = $time;
+			$gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'transfd'} = $_->{'transfd'};
+			Irssi::print("Adding as new get: '$time', '$_->{transfd}'") if ($debug);
+			next;
+		}
+		
+		# the transfer is in progress
+		if ($_->{'transfd'} != $gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'transfd'}) {
+			Irssi::print('SDC: the transfer is in progress (change '. 
+			($_->{'transfd'} - $gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'transfd'})
+				.' bytes)') if ($debug);
+			$gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'time'} = $time;
+			$gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'transfd'} = $_->{'transfd'};
+			next;
+		}
+
+		Irssi::print('SDC: transfer stalled') if ($debug);
+		# transfer stalled
+		if ($time - $gets{$_->{'servertag'}}{$_->{'nick'}}{$_->{'arg'}}{'time'} 
+			> $timeout) {
+			Irssi::print('SDC: closing this GET') if ($debug);
+			my $server = Irssi::server_find_tag($_->{'servertag'});
+		    if (!$server) {
+				Irssi::print('SDC: error: could not find server $_->{servertag}') if ($debug);
+				next;
+			}
+			$server->command("DCC CLOSE GET $_->{nick} $_->{arg}");
+		}
+	}
+}
+
+# After this many minutes of no data the get is closed
+Irssi::settings_add_int('misc', 'kill_fake_gets_timeout', 2); 
+
+Irssi::signal_add_first('dcc connected', 'sig_dcc_connected');
+Irssi::signal_add_last('dcc destroyed', 'sig_dcc_destroyed');
+my $timeout_tag = Irssi::timeout_add(60*1000, 'check_speed', undef);
diff --git a/scripts/kills.pl b/scripts/kills.pl
new file mode 100644
index 0000000..7ed2d53
--- /dev/null
+++ b/scripts/kills.pl
@@ -0,0 +1,102 @@
+# Display kills with more understandable messages.
+# for irssi 0.7.98 by Timo Sirainen
+
+# There's one kind of nick collision this script doesn't handle - if the
+# collision is detected by the server you're connected to, it won't use
+# kill as quit reason, but "Nick collision(new)" or "..(old)". This is pretty
+# easy to understand already, happens hardly ever(?) and it can be faked
+# so I thought better not change it to kill message.
+
+# There's a pretty good explanation of (ircnet) ircd's server kills in
+# http://www.irc.org/tech_docs/ircnet/kills.html
+
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors	=> 'Timo Sirainen',
+    name	=> 'kills',
+    description	=> 'Displays kills with more understandable messages',
+    license	=> 'Public Domain',
+    changed	=> 'Sun Mar 10 23:18 EET 2002'
+);
+
+Irssi::theme_register([
+  'kill_public', '{channick $0} {chanhost $1} killed by {nick $2}$3 {reason $4}'
+]);
+
+sub msg_quit {
+  my ($server, $nick, $addr, $data) = @_;
+
+  my $localkill;
+  if ($data =~ /^Killed \(([^ ]*) \((.*)\)\)$/) {
+    # remote kill
+    $localkill = 0;
+  } elsif ($data =~ /^Local Kill by ([^ ]*) \((.*)\)/) {
+    # local kill
+    $localkill = 1;
+  } else {
+    return;
+  }
+
+  my $killer = $1;
+  my $killmsg = $2;
+  my $msg = "\002Nick collision\002: ";
+
+  my @printargs = ();
+  if ($killmsg =~ /([^ ]*) != (.*)/) {
+    # 1 != 2
+    my $server1 = $1, $server2 = $2;
+
+    $server1 =~ s/([^\[]*)\[([^\]]*)\]/\1/;
+    $msg .= "$2 != $server2";
+  } elsif ($killmsg =~ /([^ ]*) <- (.*)/) {
+    # 1 <- 2
+    my $server1 = $1, $server2 = $2;
+
+    if ($server1 =~ /^\(/) {
+      # (addr1)server1 <- (add2)server2
+      $server1 =~ s/^\(([^\)]*)\)//;
+      my $nick1 = $1;
+      $server2 =~ s/^\(([^\)]*)\)//;
+      my $nick2 = $1;
+
+      $msg .= "server $server1";
+      $msg .= " (nick from $nick1)" if $nick1;
+      $msg .= " <- ";
+      $msg .= "\002$server2\002";
+      $msg .= " (nick from \002$nick2\002)" if $nick2;
+    } elsif ($server1 =~ /\)$/ || $server2 =~ /\)$/) {
+      # server1(nick) <- server2
+      # server1 <- server2(nick)
+      $server1 =~ s/\(([^\)]*)\)$//;
+      my $oldnick = $1;
+      $server2 =~ s/\(([^\)]*)\)$//;
+      $oldnick = $1 if $1;
+      $msg = "\002Nick change collision\002: $server1 <- \002$server2\002 (old nick \002$oldnick\002)";
+    } else {
+      # server1 <- server2
+      $msg = "\002Nick/server collision\002: $server1 <- \002$server2\002";
+    }
+  } else {
+    # something else, just show it as-is
+    $msg = $killmsg;
+  }
+
+  @list = $server->nicks_get_same($nick);
+  while (@list) {
+    $channel = $list[0];
+    shift @list;
+    # skip nick record
+    shift @list;
+
+    $channel->printformat(MSGLEVEL_QUITS, 'kill_public',
+                          $nick, $addr, $killer,
+			  $localkill ? " (local)" : "", $msg);
+  }
+
+  Irssi::signal_stop();
+}
+
+Irssi::signal_add('message quit', 'msg_quit');
diff --git a/scripts/kline_warning.pl b/scripts/kline_warning.pl
new file mode 100644
index 0000000..4437581
--- /dev/null
+++ b/scripts/kline_warning.pl
@@ -0,0 +1,147 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.08";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'kline_warning.pl',
+    description => 'This script shows a warning in the statuswindow if somebody preforms a /KlINE or /UNKLINE.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/kline_warning.pl',
+    changed     => 'Wed Sep 17 23:00:11 CEST 2003',
+);
+
+## Comments and remarks.
+#
+# This script uses settings, by default the servernotice will be stripped out.
+# If you still want to be able to see the servernotice use /SET or /TOGGLE
+# to switch it on or off.
+#
+#    Setting: show_kline_snote
+#
+##
+
+Irssi::theme_register([
+    'kline_added', '%_Warning%_: %R>>%n %_$0%_ added a K-Line for %_$1%_ on $2',
+    'tkline_added', '%_Warning%_: %R>>%n %_$0%_ added a temporary K-Line ($1) for %_$2%_ on $3',
+    'expired', '%_Warning%_: %R>>%n Temporary K-Line for %_$0%_ expired on $1',
+    'remove', '%_Warning%_: %R>>%n %_$0%_ removed the K-Line for %_$1%_ on $2',
+    'kline_warning_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub kline_warning {
+
+    my ($dest, $text) = @_;
+
+    return if (($text !~ /^NOTICE/));
+    
+    # Type IRCd:   Hybrid7
+    # Homepage:    http://www.ircd-hybrid.com/
+    # Needed flags: +s
+    if ($text =~ /Notice -- (.*)!.*@.*{.*} added K-Line for \[(.*)\] \[.*\]/) {
+        print_warning_kline($1, $2, $dest->{tag});
+    } elsif ($text =~ /Notice -- \*\*\* Received K-Line for \[(.*)\] \[.*\], from (.*)!.*@.* on .*/) {
+        print_warning_kline($2, $1, $dest->{tag});
+    } elsif ($text =~ /Added K-Line \[.*@.*\]/) {
+        Irssi::signal_stop();
+    } elsif ($text =~ /Notice -- (.*)!.*@.*{.*} added temporary (.*). K-Line for \[(.*)\] \[.*\]/) {
+        print_warning_tkline($1, $2, $3, $dest->{tag});
+    } elsif ($text =~ /Added temporary .*. K-Line \[.*@.*\]/) {
+        Irssi::signal_stop();
+    } elsif ($text =~ /Notice -- Temporary K-line for \[(.*)\] expired/) {
+        print_warning_expired($1, $dest->{tag});
+    } elsif ($text =~ /Notice -- (.*)!.*@.*{.*} has removed the K-Line for: \[(.*)\]/) {
+        print_warning_unkline($1, $2, $dest->{tag});
+    } elsif ($text =~ /K-Line for \[(.*)\] is removed/) {
+        Irssi::signal_stop();
+    }
+}
+
+sub print_warning_kline {
+
+    my ($nick, $host, $network) = @_;
+    my $signalstop;
+    
+    $signalstop = Irssi::settings_get_bool('show_kline_snote');
+
+    if ($signalstop == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'kline_added', $nick, $host, $network);
+        Irssi::signal_stop();
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'kline_added', $nick, $host, $network);
+    }
+}
+
+sub print_warning_tkline {
+
+    my ($nick, $duration, $host, $network) = @_;
+    my $signalstop;
+    
+    $signalstop = Irssi::settings_get_bool('show_kline_snote');
+
+    if ($signalstop == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tkline_added', $nick, $duration, $host, $network);
+        Irssi::signal_stop();
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tkline_added', $nick, $duration, $host, $network);
+    }
+}
+
+sub print_warning_expired {
+
+    my ($host, $network) = @_;
+    my $signalstop;
+    
+    $signalstop = Irssi::settings_get_bool('show_kline_snote');
+
+    if ($signalstop == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'expired', $host, $network);
+        Irssi::signal_stop();
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'expired', $host, $network);
+    }
+}
+
+sub print_warning_unkline {
+    
+    my ($nick, $host , $network) = @_;
+    my $signalstop;
+    
+    $signalstop = Irssi::settings_get_bool('show_kline_snote');
+
+    if ($signalstop == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'remove', $nick, $host, $network);
+        Irssi::signal_stop();
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'remove', $nick, $host, $network);
+    }
+}
+
+Irssi::signal_add_first('server event', 'kline_warning');
+Irssi::settings_add_bool('warning', 'show_kline_snote' => 0);
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'kline_warning_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/l33tmusic.pl b/scripts/l33tmusic.pl
new file mode 100644
index 0000000..0595782
--- /dev/null
+++ b/scripts/l33tmusic.pl
@@ -0,0 +1,283 @@
+use strict;
+use Irssi;
+use Irssi::TextUI;
+use vars qw($VERSION %IRSSI);
+use Xmms;
+use Xmms::Remote ();
+
+#changed to recommended version system with onedigit.twodigits, sorry :)
+$VERSION = '2.01';
+%IRSSI = (
+	authors => 'Mikachu',
+	contact => 'Mikachu @ quakenet|freenode|arcnet|oftc',
+	description => 'A script to show playing xmms song in channel or in a statusbar, and also control xmms. Be sure to read through the script to see all features.',
+	name => 'l33t xmms music showing script',
+	license => 'GPL',
+	modules => 'Bundle::Xmms',
+	sbitems => 'l33tmusic'
+);
+
+#Stuff i've added recently that i can remember:
+#
+#fixed the -c parameter, now you can do stuff like
+#/l33tmusic -c / jump_to_timestr 1:24 to jump around
+#and /l33tmusic -c / pause to pause, and /l33tmusic
+#-c /echo get_playlist_pos to echo the position :)
+#
+#only answers to /ctcp music if xmms is actually on
+#(if someone /ctcp music nick 2 it will show your current+2
+#song in playlist as currently playing instead of saying
+#that it is the second next song, oh well :)
+#
+#some stuff now take a numerical argument as an offset
+#to the current position in the playlist
+#
+#Stuff i've added that i can't remember:
+#
+#if you expected to find something here you weren't thinking
+#look below for stuff
+
+#this function from nickcolor.pl
+my @colors = qw/2 3 4 5 6 7 9 10 11 12 13/;
+sub simple_hash {
+  my ($string) = @_;
+  chomp $string;
+  my @chars = split //, $string;
+  my $counter;
+
+  foreach my $char (@chars) {
+    $counter += ord $char;
+  }
+
+  $counter = $colors[$counter % 11];
+
+  return $counter;
+}
+
+sub getvars {
+	if ($_[0] =~ "songinfo") {
+		my ($position, $title, $time, $status, $filename);
+		my $xmmscontrol = Xmms::Remote->new;
+		my $wantedpos = $_[0];
+		$wantedpos =~ s/songinfo //;
+		unless ($wantedpos =~ /^-?\d+$/ && (( $wantedpos + $xmmscontrol->get_playlist_pos <= $xmmscontrol->get_playlist_length-1 && $wantedpos >= 0) || 0-$wantedpos <= $xmmscontrol->get_playlist_pos && $wantedpos <= 0) ) {
+			$wantedpos = 0;
+		}
+		my $wantedpos = $xmmscontrol->get_playlist_pos + $wantedpos;
+		$title = $xmmscontrol->get_playlist_title($wantedpos);
+		my $seconds = ($xmmscontrol->get_output_time/1000)%60;
+		my $tmp = length($seconds);
+		if($tmp == "1") {
+			$seconds = "0" . $seconds;
+		}
+		$position = int($xmmscontrol->get_output_time/60000) . ":" . $seconds;
+		$time = $xmmscontrol->get_playlist_timestr($wantedpos);
+		if ($xmmscontrol->is_playing) {
+			if ($xmmscontrol->is_paused) {
+				$status = "Paused";
+			} else {
+				$status = "Playing";
+			}
+		} else {
+			$status = "Stopped";
+		}
+		$filename = $xmmscontrol->get_playlist_file($wantedpos);
+		
+		$title =~ s/[\r\n]/ /g;
+		$filename =~ s/[\r\n]/ /g;
+		
+		return($position, $title, $time, $status, $filename);
+	} elsif ($_[0] =~ "filename") {
+		my $xmmscontrol = Xmms::Remote->new;
+		my $wantedpos = $_[0];
+		$wantedpos =~ s/filename //;
+		unless ($wantedpos =~ /^-?\d+$/ && (( $wantedpos + $xmmscontrol->get_playlist_pos <= $xmmscontrol->get_playlist_length-1 && $wantedpos >= 0) || 0-$wantedpos <= $xmmscontrol->get_playlist_pos && $wantedpos <= 0) ) {
+			$wantedpos = 0;
+		}
+		$wantedpos = $xmmscontrol->get_playlist_pos + $wantedpos;
+		$filename = $xmmscontrol->get_playlist_file($wantedpos);
+		$filename =~ s/[\r\n]/ /g;
+		return($filename);
+	}
+}
+
+sub ctcp_info {
+ if (Irssi::settings_get_bool('l33tctcp_enabled') && Xmms::Remote->new->is_running) {
+	my ($server, $msg, $nick, $address, $channel) = @_;
+	my ($p, $n, $t, $s) = getvars("songinfo $msg");
+	my $reply = Irssi::settings_get_str('l33tctcpreply');
+	$reply =~ s/(\$\w+)/$1/eeg;
+	$server->command("^notice $nick $reply");
+	Irssi::statusbar_items_redraw('l33tmusic');
+ }
+}
+
+sub triggersend {
+	my $trigger = Irssi::settings_get_str('l33ttrigger');
+	if ($_[1] =~ /^$trigger/) {
+		if (Irssi::settings_get_bool('l33ttrigger_enabled')) {
+			$_[1] =~ s/$trigger //g;
+			$_[1] = getvars("filename $_[1]");
+			$_[0]->command("DCC SEND $_[2] \"$filename\"");
+		} else {
+			$_[0]->command("^notice $_[2] Trigger currently disabled");
+		}
+	}
+}
+
+sub themainthingie {
+	if (Xmms::Remote->new->is_running) {
+		my ($msg, $server, $nick, $address, $channel) = @_;
+		my $command;
+		my ($p, $n, $t, $s, $f) = getvars("songinfo 0");
+		#The -m switch will echo the info in the status window,
+		#I have this bound to meta-q :), takes a numerical argument
+		#same as the -s switch
+		if ($msg =~ "^-m") {
+			$msg =~ s/^-m //;
+			my ($p, $n, $t, $s, $f) = getvars("songinfo " . $msg);
+			print CLIENTCRAP "" . simple_hash("$n") . "$n ($p / $t)";
+			$command = "";
+		#This allows a fully customized message, to be used in
+		#aliases, since it's not fun to write the full thing every
+		#time
+		} elsif ($msg =~ "^-e") {
+			$msg =~ s/^\-e //;
+			$command = "$msg";
+		#The -c switch is now fixed mostly, it seems that you
+		#can do whatever you want, and if it happens to match
+		#a proper command such as jump_to_timestr and you pass
+		#the right parameter, it works, otherwise i made it not
+		#crash anymore, weee :)
+		} elsif ($msg =~ "^-c") {
+			$msg =~ s/^\-c //;
+			my $thingie;
+			my ($msg, $reply, $param) = split(/ /, "$msg", 3);
+			if ($param) {
+				return unless eval {
+					$thingie = Xmms::Remote->new->$reply($param);
+				}
+			} else {
+				return unless eval {
+					$thingie = Xmms::Remote->new->$reply;
+				}
+			}
+			if ($thingie) {
+				$command = "$msg $thingie";
+			}
+		#The -f switch has been removed, please use
+		#/l33tmusic -e /colme or /colsay from the 
+		#ascii.pl script to get better functionality
+
+		#This switch will send the currently playing song to
+		#the nick on the command line, takes a numerical
+		#argument like the -m switch
+		} elsif ($msg =~ "^-s") {
+			$msg =~ s/^-s //;
+			(my $friend, $msg) = split " ", $msg;
+			$friend =~ s/ //;
+			my ($p, $n, $t, $s, $f) = getvars("songinfo " . $msg);
+			$server->command("dcc send $friend \"$f\"");
+		#If a string was given, put it in front of the info, and
+		#anything after a # after the info. If nothing is in front
+		#of the #, throw in the string from the settings.
+		} elsif ($msg) {
+			my $msg2;
+			$msg =~ s/(\$\w+)/$1/eeg;
+			($msg, $msg2) = split "#", $msg;
+			if ($msg =~ /^$/) {
+				$msg = Irssi::settings_get_str('l33tstringplaying');
+			}
+			$command = "me $msg $n ($p / $t) $msg2";
+		#Just go with the defaults
+		} else {
+			if ( $s eq "Playing" ) {
+				$command = Irssi::settings_get_str('l33tstringplaying');
+				$command = Irssi::settings_get_str('l33tstringaction') . " $command " . Irssi::settings_get_str('l33tstringsongformat');
+			} else {
+				$command = "echo Xmms is $s";
+			}
+		}
+		$command =~ s/(\$\w+)/$1/eeg;
+		$command =~ s/\s+/ /g;
+		if ($command) {
+			Irssi::active_win()->command("$command");
+		}
+	}else {
+		Irssi::active_win()->command("echo Xmms isn't currently running");
+	}
+}
+
+sub checkformpg123 {
+	my ($msg, $server, $witem) = @_;
+	if ($msg =~ /^Playing( MPEG stream from )?/) {
+		$msg =~ s/Playing MPEG stream from //;
+		$msg =~ s/Playing //;
+		$msg =~ s/%20/ /g;
+		$msg =~ s/\.(mp3|ogg)( \.\.\.)?//i;
+		$msg =~ s/_/ /g;
+		$msg =~ s/oc remix//i;
+		$msg = Irssi::settings_get_str('l33tstringaction') . " " . Irssi::settings_get_str('l33tstringplayingmpg123') . " $msg";
+		Irssi::signal_stop();
+		Irssi::signal_remove('send text', 'checkformpg123');
+		Irssi::signal_emit('send command', $msg, $server, $witem);
+		Irssi::signal_add('send text', 'checkformpg123');
+	}
+
+}
+
+my $statusbar_item;
+my $refresh_tag;
+my $scrollpos=0;
+sub refresh_statusbar {
+	my ($p, $no, $t, $s, $f) = getvars("songinfo 0");
+	my $width=Irssi::active_win()->{width};
+	my $n;
+	my $others = Irssi::settings_get_str('l33tstatusbar');
+	$others =~ s/\%.//g;
+	$others =~ s/\$n//g;
+	$others =~ s/(\$\w+)/$1/eeg;
+	my $maxlength=$width - length($others);
+	if (length($no) > $maxlength) {
+		my $middlethingie = Irssi::settings_get_str('l33tmiddlethingie');
+		$no = "$no $middlethingie";
+		$n=substr(substr($no, $scrollpos, length($no)) . substr($no, 0, $scrollpos), 0, $maxlength);
+		$scrollpos++;
+		$scrollpos=0 if ($scrollpos + 1 > length($no));
+	} else {
+		$n = $no;
+	}
+	$n =~ s/\%/\%\%/g;
+	$statusbar_item = Irssi::settings_get_str('l33tstatusbar');
+	$statusbar_item =~ s/(\$\w+)/$1/eeg;
+	Irssi::statusbar_items_redraw('l33tmusic');
+}
+
+sub l33tmusic_statusbar {
+	my ($item, $get_size_only) = @_;
+	$item->default_handler($get_size_only, "$statusbar_item", undef, 1);
+}
+
+
+Irssi::signal_add('send text', 'checkformpg123');
+Irssi::command_bind('l33tmusic', 'themainthingie');
+Irssi::settings_add_str('infopipe', 'l33tstringaction', '/me');
+Irssi::settings_add_str('infopipe', 'l33tstringplayingmpg123', 'is listening to');
+Irssi::settings_add_str('infopipe', 'l33tstringplaying', 'is listening to');
+Irssi::settings_add_str('infopipe', 'l33tstatusbar', '$n ($p / $t)');
+Irssi::settings_add_str('infopipe', 'l33tstatusbarrefresh', '500');
+Irssi::settings_add_str('infopipe', 'l33tmiddlethingie', '*** ');
+Irssi::settings_add_str('infopipe', 'l33tstringsongformat', '$n ($p / $t)');
+Irssi::settings_add_str('infopipe', 'l33tctcpreply', 'I\'m listening to $n ($p / $t) Status: $s');
+Irssi::settings_add_str('infopipe', 'l33ttrigger', '¡yourtriggerhere');
+Irssi::settings_add_bool('infopipe', 'l33ttrigger_enabled', 0);
+Irssi::settings_add_bool('infopipe', 'l33tctcp_enabled', 0);
+Irssi::settings_add_bool('infopipe', 'l33twarning_read', 0);
+Irssi::signal_add("ctcp msg music", "ctcp_info");
+Irssi::signal_add_last("message public", "triggersend");
+Irssi::statusbar_item_register('l33tmusic', undef, 'l33tmusic_statusbar');
+$refresh_tag=Irssi::timeout_add(Irssi::settings_get_str('l33tstatusbarrefresh'), 'refresh_statusbar', undef);
+unless (Irssi::settings_get_bool('l33twarning_read')) {
+	print CLIENTCRAP "Type /set l33t to see all available settings. To remove this message, please type /set l33twarning_read on. Type /set l33t to list all options.";
+	print CLIENTCRAP "If you want statusbar, add \'l33tmusic = { placement = \"top\"; items = { l33tmusic = { }; }; };\' to your config file, above \'topic = {\', and do a /reload.";
+}
diff --git a/scripts/lastfm.pl b/scripts/lastfm.pl
new file mode 100644
index 0000000..4ff2105
--- /dev/null
+++ b/scripts/lastfm.pl
@@ -0,0 +1,447 @@
+# vim: set expandtab:
+use vars qw($VERSION %IRSSI);
+$VERSION = "5.8";
+%IRSSI = (
+        authors     => "Simon 'simmel' Lundström",
+        contact     => 'simmel@(freenode|quakenet|efnet) http://last.fm/user/darksoy',
+        name        => "lastfm",
+        date        => "20110125",
+        description => 'A now-playing-script which uses Last.fm',
+        license     => "BSD",
+        url         => "http://soy.se/code/",
+);
+# USAGE
+# For details on how to use each setting, scroll down to the SETTINGS section.
+
+# QUICK START
+# * First of all, you need the libwww/LWP package installed. The package in
+# your package system is probably called something with libwww and perl and/or
+# p5 in it.
+# * /set lastfm_user to the username that you are using on Last.fm
+# * Show with /np or %np<TAB> what song "lastfm_user" last scrobbled to Last.fm via /say. If "lastfm_use_action" is set, it uses /me.
+# * To see what another user on Last.fm is playing is also possible via /np <username> or %np(<username>).
+# The now-playing message is configurable via via "lastfm_output" (and lastfm_output_tab_complete when using %np, if not set it will use lastfm_output by default.). "lastfm_strftime" can be used to configure the display of date and time when the song was scrobbled.
+
+# SETTINGS
+# NOTE: Do not set these options here, use /set <option> <value> in irssi!
+# These are just defaults and descriptions on what the options do.
+
+# The username which you are using on Last.fm
+Irssi::settings_add_str("lastfm", "lastfm_user", "");
+
+# The output that you want to use.
+# The substitution variables are:
+#   %artist = Self explanatory
+#   %album  = Self explanatory
+#   %name   = Name of song*
+#   %url    = URL to song on Last.fm
+#   %player = Player we are using to submit to Last.fm with. See setting "lastfm_get_player" below
+#   %user   = User that is playing, when /np <username> or %np(<username> is used
+# If "lastfm_output_tab_complete" is not defined, "lastfm_output" will be used instead.
+# Something bothered me for a long time and when something really starts to itch
+# I tend to want to do something about it. I'm /np:ing away displaying all sorts
+# of tracks to my friends until I get to a track which has no album information
+# on Last.fm and the output becomes really ugly "np: Kraftwerk-Aerodynamik 
+# (Alex Gopher/Etienne de Crecy dynamik mix) ()". What's with that last ()!? Oh,
+# right we are using "np: %artist-%name (%album)" as "lastfm_output". Wouldn't 
+# it be really cool if lastfm.pl knew when certain information from Last.fm
+# didn't exist and didn't display it? So thought I, so that's why I created a 
+# conditional. It works that you have to put your tag (%album e.g.) within %()
+# e.g. "np: %artist-%name%( (%album))" and everything between %( and ) only gets
+# displayed if the tag inside actually exists! Cool, huh!?
+
+#  *) Name is used instead of, the more logical IMO, track since that is what Last.fm reports in their .xml file that we parse.
+Irssi::settings_add_str("lastfm", "lastfm_output", '%(%user is )np: %artist-%name');
+Irssi::settings_add_str("lastfm", "lastfm_output_tab_complete", '');
+
+# If we should use /me instead of /say
+Irssi::settings_add_bool("lastfm", "lastfm_use_action", 0);
+
+# If we should make the subtitution variable %player available which is very slow to fetch but nice to have.
+Irssi::settings_add_bool("lastfm", "lastfm_get_player", 0);
+
+# Changelog#{{{
+
+# 5.8 -- Tue Jan 25 16:11:29 CET 2011
+# * Ignore a closure warning
+
+# 5.7 -- Mon Jan 24 16:39:06 CET 2011
+# * Fixed a bug where we forked when we still waited for a reply from last.fm
+
+# 5.6 -- Sun Jul 18 13:16:38 CEST 2010
+# * Made substitution variable %user available when /np <username> or
+# %np(<username>) is used.
+# * Made some checks a bit more strict.
+
+# 5.5 -- Mon Jul 12 19:04:26 CEST 2010
+# * Rewrote the whole error handling
+# * Fixed a bug where the error messages would be said and not printed.
+# * Fixed some minor bugs and removed some unneeded code.
+
+# 5.4 -- Wed May 26 17:04:08 CEST 2010
+# * Last.fm updated their profile HTML so that the %player macro didn't work.
+# Thanks to Keith Ward for mentioning this and suggesting a fix.
+# * A minor fix which removes some debug messages when error reporting.
+
+# 5.3 -- 
+# * I used POSIX::_exit() but I never did "use POSIX;". Leo Green, mortiis and
+# rissy reported this problem, thanks! This is an issue when you have a newer
+# version of Perl installed (>5.10)
+
+# 5.2 -- Mon Nov 16 08:25:20 CET 2009
+# * When you remove a subroutine you should remove all calls to it..
+
+# 5.1 -- Wed Nov 11 09:39:54 CET 2009
+# * Ok, I admit that using undocumented features in an API is bad, but come
+# on..  Anyway, fixed now, everything should work as it should and should
+# never break again (flw)...
+
+# 5.0 -- Mon Nov 9 08:34:48 CET 2009
+# * Fixed a warning reported by mm_mannen and did a yet another clean up
+
+# 4.9 -- Sat Nov 7 18:10:17 CET 2009
+# * Last.fm changed how their API behaved and that broke my code because
+# I'm a fool and I don't want to use an XML-lib because of your sake (so you
+# won't have to install yet another Perl-module). Thanks to supertobbe and 
+# mm_mannen who saw and reported this!
+# * Fixed so that lastfm_get_player works again and made it say that it
+# doesn't work next time Last.fm changes their HTML.
+# * Removed the date support in lastfm_output and lastfm_output_tab_complete
+# since I use the API another way now.
+# * Removed cache. It was broken at times and I can't be arsed to debug it.
+# It's not that much faster but the complexity gets bigger. If someone REALLY
+# needs this, give me a shout.
+# * Removed, rewrote and cleaned up some parts of the script.
+
+# 4.8 -- Sun May 10 10:11:29 CEST 2009
+# * Fixed a bug with the cache ('There are only two hard things in 
+# Computer Science: cache invalidation and naming things' -Phil Karlton)
+# * Started using HTML::Entities for decoding all sorts of HTML-chars, it's 
+# included in libwww anyway.
+
+# 4.7 -- Tue Apr  8 13:37:11 CEST 2009
+# * Start using LWP::UserAgent instead of LWP::Simple and got rid of the idea to
+# start using my own HTTP-lib (it was finished, but..). I'm getting old ; P
+# * Made so that everything is cached and checks if the Last-Modified date when 
+# getting information from Last.fm.
+# * Fixed some documentation bugs.
+
+# 4.6 -- Wed Mar 18 19:45:11 CET 2009
+# * Fixed an changed behavour in irssi-trunk with the error handling (which I should replace anyway!).
+# * Added %player substitute variable that shows what application you are using to scrobble with. This is very slow, so I made it an option, "lastfm_get_player".
+# * Fixed print_raw once and for all (famous last words..) so now debug output looks really neat.
+# * Added an quick start which should help get going faster
+# * Fixed an issue where %np(lastfmusername) would not work.
+# * Fixed error mesages for %np(lastfmusername)
+# * Fixed an problem with irssi-svn where die's message have changed. Thanks tto jnpplf  for reporting this.
+
+# 4.5 -- Wed  1 Oct 2008 20:03:47 CEST
+# * Removed a debug output
+# * Fixed some datacorruption, references in Perl is hard! = (
+
+# 4.4 -- Wed  1 Oct 2008 16:34:34 CEST
+# * Changed so that all the tab-commands use % instead of $ so that it's consistent through out the script.
+# * Ripped out my sprintf crap and made it more sane. You should use %artist, %album, etc in your nowplaying-setting now. Since sprintf is nolonger used I renamed that setting too.
+# * Made everything that you can set in "lastfm_output" tabable so now you can do %artist<TAB>.
+# %() in "lastfm_output" really works. It really didn't before.
+# * Fixed some issues with the date probably not working, but should now.
+# * Made the script check if Last.fm's scrobbler server is alive and kicking before we blame them.
+
+# 4.3 -- Mon 21 Jul 2008 08:46:36 CEST
+# * Seem like I misunderstood the protocol. The date/time is only sent when we have scrobbled the track, not when we started to listen to it.
+
+# 4.2 -- Tue 15 Jul 2008 15:40:08 CEST
+# Yay! Three new version within a day! (No, I'm not bored at work)
+# * Made /np username and $np(username) make username the prefix of np: yadayada or whatever your lastfm_sprintf or lastfm_sprintf_tab_complete is.
+
+# 4.1 -- Tue 15 Jul 2008 15:23:03 CEST
+# Well, that version lasted long!
+# * Fixed a bug with /np not working.
+# * Fixed an issue where debug info would be printed even if lastfm_debug was off.
+
+# 4.0 -- Tue 15 Jul 2008 10:17:51 CEST
+# * Fixing a sprintfng-bug which didn't display time if album was not set.
+# * Rewrote the whole script to use Last.fm's API which is very accurate. There is no need for $np! and /np! now, so I'm removing them.
+# * Cleaned up abit.
+
+# 3.9 -- Fri 11 Jul 2008 21:49:20 CEST
+# * Fixing a few bugs noticed by supertobbe
+
+# 3.8 -- Fri 11 Jul 2008 18:21:52 CEST
+# * Shaped up error handling and now all error messages are shown.
+# * Added a user configurable debug mode, good for sending in bugs and weird behaviour.
+# * Minor cleanup
+
+# 3.7 -- Thu 22 May 2008 10:33:55 CEST
+# * Fixed so that /np! and $np! fetches the album title too. This is horribly slow and takes approx. 6s on very fast connection. Last.fm isnt very fast I'm afraid and this is not a good way to do it.
+# * Cleaned up a few places. Started to look at the error handling and it seems to be alot of work.
+
+# 3.6 -- Tue Nov 13 15:22:37 CET 2007
+# * Fixed encoding so that it always the data into the charset that you have specified in "term_charset" which irssi also uses.
+
+# 3.5 -- Mon Nov 12 11:50:46 CET 2007
+# * Fixed the regex for parsing Recently Listened Tracks so that it works when listening with the Lastfm client.
+
+# 3.4 -- Fri Nov  9 00:23:40 CET 2007
+# * Added /np lastfmusername
+
+# 3.3 -- Tue Nov  6 01:54:59 CET 2007
+# * Finally added conditional sprintf-syntax! Let's say you want to use 'np: %s-%s (%s)' as "lastfm_sprintf". If you use /np it works out fine and displays 'np: Boards of Canada-Energy Warning (Geogaddi)' but what if you use /np! then it displays 'np: Boards of Canada-Energy Warning ()' since /np! can't get the album information. Doesn't that look ugly? Meet conditional sprintf. Now set your "lastfm_sprintf" to 'np: %s-%s%( (%s))'. ' (%s)' will only be printed if we get a third value, the album name in this case. Smart, huh? Big thanks to rindolf, apeiron and Khisanth from #perl@freenode for help with scoping with global variables.
+# * Also added "lastfm_sprintf_tab_complete" which makes, if set, $np<TAB> use a different sprintf pattern than /np. Will default back to "lastfm_sprintf".
+
+# 3.2 -- Wed Oct 24 23:07:01 CEST 2007
+# * I don't like dependencies and I really wonder why I lastfm depended on DateTime. I remember now that it was morning and I was really tired when I coded it. Anyway, it's removed now along with Socket and URI::Escape. I'll try to remove the dependency for libwww later on.
+
+# 3.1 -- Sun Oct 21 22:52:36 CEST 2007
+# * Added /np! and $np! to use the "lastfm_be_accurate_and_slow" method without having to change the setting.
+
+# 3.0 -- Fri Oct 19 14:26:03 CEST 2007
+# * Created a new setting "lastfm_be_accurate_and_slow" which makes lastfm.pl parse your profile page to check what song you are playing right now. But be warned, this is slow and horrible (like my code! ; ). But it works until Last.fm makes this data available through their Web Services. This disables the album and "scrobbled at" features of "lastfm_sprintf" so you have to adapt it if you don't want it to look weird. I'm working on a new implementation of printf which allows for conditions but it took more time than I thought and time is something that I don't have much of ='(
+
+# 2.5 -- Tue Oct  9 11:29:56 CEST 2007
+# * Fixed the encoding issue by converting from Last.fms UTF-8 into Perls internal encoding. With $np<TAB> output will be looking UTF-8-in-latin1 if you don't have an UTF-8 enabled Terminal, but it will display correctly after you have sent it.
+
+# 2.4 -- Mon Oct  8 16:08:09 CEST 2007
+# * Fixed an error in error reporting ; P Bug noticed by supertobbe = *
+# * I should make an more generic and better error reporting.
+
+# 2.3 -- Sat Oct  6 16:38:34 CEST 2007
+# * Made /np a nonblocking operation. Irssi's fork handling is REALLY messy. Thanks to tss and tommie for inspiring me in their scripts. $np cannot be made nonblocking, I'm afraid (patches welcome).
+# * Cleaned up abit.
+
+# 2.2 -- Sat Aug 18 02:20:44 CEST 2007
+# * Now you can use $np(darksoy) to see what I play (or someone else for that matter ; ).
+
+# 2.1 -- Tue Jul 17 12:50:18 CEST 2007
+# * Now you can use $np or $nowplaying as a tab-completion too, but a warning here, this is a blocking action so irssi won't respond or be usable until it is finished or the timeout is hit.
+# * Abstracted it abit more so that it can be used in more ways, ex. for the reason above.
+
+# 2.0 -- Fri Jun 29 10:38:32 CEST 2007
+# * Now you can show the time that the song was submitted in lastfm_sprintf. Added lastfm_strftime to configure how the date is presented.
+# * Added $lastfm and $lfm as tab-completions to your own Last.fm profile URL. Ripoff of Jured's guts.pl (http://juerd.nl/irssi/)
+
+# 1.5 -- Sat May 12 03:30:24 CEST 2007
+# * Started using XML instead because we get more info from it, like album (but it's often wrong).
+
+# 1.0 -- Thu Apr 12 16:57:26 CEST 2007
+# * Got fedup with no good Last.fm-based now playing scripts around.
+
+# THANKS
+# Random individuals on #perl@freenode, could namedrop icke, 
+# }}}
+
+# TODO
+# You tell me!
+
+# Move along now, there's nothing here to see.
+
+sub DEBUG {
+  Irssi::settings_add_bool("lastfm", "lastfm_debug", 0);
+  Irssi::settings_get_bool("lastfm_debug");
+};
+
+use strict;
+use warnings;
+no warnings 'closure';
+use Data::Dumper;
+use Encode;
+use HTML::Entities;
+use Irssi;
+use LWP::UserAgent;
+use POSIX;
+
+my $pipe_tag;
+my $waiting_for_reply;
+my $api_key = "eba9632ddc908a8fd7ad1200d771beb7";
+my $fields = "(artist|name|album|url|player|user)";
+my $ua = LWP::UserAgent->new(agent => "lastfm.pl/$VERSION", timeout => 10);
+
+sub lastfm_nowplaying {
+  my ($content, $url, $response, $tag, $value, %data);
+  my ($user_shifted, $is_tabbed, $nowplaying, $witem) = @_;
+  my $user = $user_shifted || Irssi::settings_get_str("lastfm_user");
+  $nowplaying ||= ((Irssi::settings_get_str("lastfm_output_tab_complete") ne "" && $is_tabbed) ? Irssi::settings_get_str("lastfm_output_tab_complete") : Irssi::settings_get_str("lastfm_output"));
+
+  my $command_message = ($is_tabbed) ? '%%np(username)' : '/np username';
+  if ($user eq '') {
+    return "ERROR: You must /set lastfm_user to a username on Last.fm or use $command_message";
+  }
+
+  if ($nowplaying =~ /^%(lastfm|lfm)$/) {
+    return "http://last.fm/user/$user/";
+  }
+  elsif ($nowplaying =~ /^%user$/) {
+    return $user;
+  }
+
+  $data{'user'} = $user if ($user_shifted);
+
+  $url = "http://ws.audioscrobbler.com/2.0/?method=user.getrecenttracks&user=$user&api_key=$api_key&limit=1";
+  print Dumper "Checking for scrobbles at: $url" if DEBUG;
+  $response = $ua->get($url);
+  $content = $response->content;
+
+  # TODO This should work, untested (fail more Last.fm! ; )
+  if ($content =~ m!<lfm status="failed">.*<error .*?>([^<]+)!s) {
+    return "ERROR: $1";
+  }
+  my @data = split('\n', $content);
+
+  if (!grep(m!<track nowplaying="true">!, @data)) {
+    print Dumper \$response if DEBUG;
+    print Dumper \$content if DEBUG;
+    return "ERROR: You are not playing anything according to Last.fm. Check http://www.last.fm/user/$user and see if they turn up there, otherwise restart your scrobbler.";
+  }
+
+  my $regex = qr!<$fields.*?(?:uts="(.*?)">.*?|>(.*?))</\1>!;
+
+  foreach my $data (@data) {
+    if ($data =~ m!</track>!) {
+      last;
+    }
+    elsif ($data =~ /$regex/) {
+      ($tag, $value) = ($1, (defined($2) ? $2 : $3));
+      print Dumper \$tag, \$value, \$data if DEBUG;
+      $data{$tag} = $value;
+    }
+  }
+
+  if (Irssi::settings_get_bool("lastfm_get_player")) {
+    $url = "http://www.last.fm/user/$user";
+    $content = $ua->get($url)->content;
+    if ($content =~ m!<span class="source">(.*?)</span>!) {
+      $_ = $1;
+      s/<[^>]*>//mgs;
+      $data{'player'} = $_;
+    }
+    else {
+      print "Couldn't find the player even though lastfm_get_player was set" if DEBUG;
+    }
+  }
+
+  print Dumper \%data if DEBUG;
+  print Dumper "Output pattern before: $nowplaying" if DEBUG;
+  $nowplaying =~ s/(%\((.*?%(\w+).?)\))/($data{$3} ? $2 : "")/ge;
+  print Dumper "Output pattern after: $nowplaying" if DEBUG;
+  $nowplaying =~ s/%$fields/$data{$1}/ge;
+  decode_entities($nowplaying);
+  Encode::from_to($nowplaying, "utf-8", Irssi::settings_get_str("term_charset"));
+  return $nowplaying;
+}
+
+sub lastfm_blocking {
+  my ($witem, $user) = @_;
+  my $nowplaying = lastfm_nowplaying($user, undef, undef, $witem);
+  lastfm_print($witem, $nowplaying);
+}
+
+sub lastfm_forky {
+  my ($witem, $user) = @_;
+  if ($waiting_for_reply) {
+    lastfm_print(Irssi::active_win(), "We are still waiting for Last.fm to return our results");
+    return;
+  }
+  # 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)) {
+    Irssi::print("Can't fork() - aborting");
+    close($rh);
+    close($wh);
+    return;
+  }
+
+  $waiting_for_reply = 1;
+
+  if ($pid > 0) {
+    # parent, wait for reply
+    close($wh);
+    Irssi::pidwait_add($pid);
+    $pipe_tag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, [$witem, $rh]);
+    return;
+  }
+
+  my $text;
+  eval {
+    # child, do the lookup
+    $text = lastfm_nowplaying($user);
+  };
+
+  if (!$text) {
+    $text = "ERROR: Error message: $!";
+  }
+
+  eval {
+    # write the reply
+    print($wh $text);
+    close($wh);
+  };
+  POSIX::_exit(1);
+}
+
+
+sub pipe_input {
+  my ($witem, $rh) = @{$_[0]};
+  my $text = <$rh>;
+  close($rh);
+
+  Irssi::input_remove($pipe_tag);
+  $pipe_tag = -1;
+  undef $waiting_for_reply;
+
+  lastfm_print($witem, $text);
+}
+
+sub lastfm_print {
+  my ($witem, $text, $tabbed) = @_;
+  # Fugly error handling
+  if ($text =~ s/^ERROR: //) {
+    Irssi::active_win()->print($text);
+    return;
+  }
+
+  if ($tabbed) {
+    return $text;
+  }
+  elsif (defined $witem->{type} && $witem->{type} =~ /^QUERY|CHANNEL$/) {
+    if (Irssi::settings_get_bool("lastfm_use_action")) {
+      $witem->command("me $text");
+    }
+    else {
+      $witem->command("say $text");
+    }
+  }
+  else {
+    Irssi::active_win()->print($text);
+  }
+}
+
+Irssi::command_bind('np', sub {
+    my ($data, $server, $witem) = @_;
+    $data =~ s/ .*//;
+    $data ||= 0;
+    if (DEBUG) {
+      lastfm_blocking($witem, $data);
+    }
+    else {
+      lastfm_forky($witem, $data);
+    }
+  }, 'lastfm');
+
+Irssi::signal_add_last 'complete word' => sub {
+  my ($complist, $window, $word, $linestart, $want_space) = @_;
+  my $is_tabbed = 1;
+  my $tab_fields = $fields;
+  $tab_fields =~ s/\(/(nowplaying|np|lastfm|lfm|/;
+  if ($word =~ /(\%(?:$tab_fields))\(?(\w+)?\)?/) {
+    my ($nowplaying, $user) = ($1, $3);
+    undef $nowplaying if ($nowplaying =~ /nowplaying|np/);
+    $nowplaying = lastfm_nowplaying($user, $is_tabbed, $nowplaying);
+    if (lastfm_print(Irssi::active_win(), $nowplaying, 1)) {
+      push @$complist, "$nowplaying";
+    }
+  }
+};
diff --git a/scripts/lastspoke.pl b/scripts/lastspoke.pl
new file mode 100644
index 0000000..6cabda7
--- /dev/null
+++ b/scripts/lastspoke.pl
@@ -0,0 +1,154 @@
+#!/usr/bin/perl -w
+#
+# LastSpoke.pl
+#
+# irssi script
+# 
+# This script, when loaded into irssi, will monitor and remember everyones
+# last action on one or more channels specified in the lastspoke_channels
+# setting
+#
+# [settings]
+# lastspoke_channels
+#     - Should contain a list of channels that lastspoke should monitor
+#       this list can be in any format as long as theres full channelnames
+#       in it. For example:
+#          "#foo,#bar,#baz" is correct
+#          "#foo#bar#baz" is correct
+#          "#foo #bar #baz" is correct
+#          "foo bar baz" is incorrect
+#
+# Triggers on !lastspoke <nick>, !seen <nick> and !lastseen <nick>
+# 
+use Irssi;
+use Irssi::Irc;
+
+$VERSION = "0.2";
+%IRSSI = (
+    authors     => 'Sander Smeenk',
+    contact     => 'irssi@freshdot.net',
+    name        => 'lastspoke',
+	description => 'Remembers what people said last on what channels',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.freshdot.net/',
+);
+
+# Storage for the data.
+my %lasthash;
+
+# Calculates the difference between two unix times and returns
+# a string like '15d 23h 42m 15s ago.'
+sub calcDiff {
+	my ($when) = @_;
+
+	my $diff = (time() - $when);
+	my $day = int($diff / 86400); $diff -= ($day * 86400);
+	my $hrs = int($diff / 3600); $diff -= ($hrs * 3600);
+	my $min = int($diff / 60); $diff -= ($min * 60);
+	my $sec = $diff;
+
+	return "${day}d ${hrs}h ${min}m ${sec}s ago.";
+}
+
+# Hook for nick changes
+sub on_nick {
+	my ($server, $new, $old, $address) = @_;
+
+	my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)";
+	if (index($allowedChans, $target) >= 0) {
+	    $lasthash{lc($old)}{'last'} = time();
+	    $lasthash{lc($old)}{'words'} = "$old changed nick to $new";
+	    $lasthash{lc($new)}{'last'} = time();
+	    $lasthash{lc($new)}{'words'} = "$new changed nick from $old";
+	}
+}
+
+# Hook for people quitting
+sub on_quit {
+	my ($server, $nick, $address, $reason) = @_;
+
+	my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)";
+	if (index($allowedChans, $target) >= 0) {
+		$lasthash{lc($nick)}{'last'} = time();
+		if (! $reason) {
+			$lasthash{lc($nick)}{'words'} = "$nick quit IRC with no reason";
+		} else {
+			$lasthash{lc($nick)}{'words'} = "$nick quit IRC stating '$reason'";
+		}
+	}
+}
+
+# Hook for people joining
+sub on_join {
+	my ($server, $channel, $nick, $address) = @_;
+	
+	my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)";
+	if (index($allowedChans, $target) >= 0) {
+    	$lasthash{lc($nick)}{'last'} = time();
+		$lasthash{lc($nick)}{'words'} = "$nick joined $channel";	
+	}
+}
+
+# Hook for people parting
+sub on_part {
+	my ($server, $channel, $nick, $address, $reason) = @_;
+
+	my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)";
+	if (index($allowedChans, $target) >= 0) {
+		$lasthash{lc($nick)}{'last'} = time();
+		if (! $reason) {
+			$lasthash{lc($nick)}{'words'} = "$nick left from $channel with no reason";
+		} else {
+			$lasthash{lc($nick)}{'words'} = "$nick left from $channel stating '$reason'";
+		}
+	}
+}
+
+# Hook for public messages.
+# Only act on channels we are supposed to act on (settings_get_str)
+sub on_public {
+	my ($server, $msg, $nick, $addr, $target) = @_;
+
+	$target = $nick if ( ! $target );
+	$nick = $server->{'nick'} if ($nick =~ /^#/);
+	$target = lc($target);
+
+	my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)";
+
+	# Debug
+	# Irssi::active_win()->print("Server: $server");
+	# Irssi::active_win()->print("Msg   : $msg");
+	# Irssi::active_win()->print("Nick  : $nick");
+	# Irssi::active_win()->print("Addr  : $addr");
+	# Irssi::active_win()->print("Target: $target");
+	# /Debug
+
+	if (index($allowedChans, $target) >= 0) {
+		if ( ($msg =~ /^!lastspoke /) || ($msg =~ /^!seen /) || ($msg =~ /^!lastseen /)) {
+			my @parts = split(/ /,$msg);
+
+			$lasthash{lc($nick)}{'last'} = time();
+			$lasthash{lc($nick)}{'words'} = "$nick last queried information about " . $parts[1] . " on $target";
+	
+			if (exists $lasthash{lc($parts[1])}) {
+				$server->command("MSG $target " . $lasthash{lc($parts[1])}{'words'} . " " . calcDiff($lasthash{lc($parts[1])}{'last'}));
+			} else {
+				$server->command("MSG $target I don't know anything about " . $parts[1]);
+			}
+		} else {
+			$lasthash{lc($nick)}{'last'} = time();
+			$lasthash{lc($nick)}{'words'} = "$nick last said '$msg' on $target";
+		}
+	}
+}
+
+# Put hooks on events
+Irssi::signal_add_last("message public", "on_public");
+Irssi::signal_add_last("message own_public", "on_public");
+Irssi::signal_add_last("message part", "on_part");
+Irssi::signal_add_last("message join", "on_join");
+Irssi::signal_add_last("message quit", "on_quit");
+Irssi::signal_add_last("message nick", "on_nick");
+
+# Add setting
+Irssi::settings_add_str("lastspoke", "lastspoke_channels", '%s');
diff --git a/scripts/len.pl b/scripts/len.pl
new file mode 100644
index 0000000..fbcc759
--- /dev/null
+++ b/scripts/len.pl
@@ -0,0 +1,374 @@
+# $Id: len.pl 4 2006-03-11 18:30:09Z ch $
+
+use Irssi 20020324;
+use 5.005_62;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0.0';
+#$VERSION = '1.0.0 SVN ($LastChangedRevision: 4 $)';
+%IRSSI = (
+          authors     => 'Clemens Heidinger',
+          changed     => '$LastChangedDate: 2006-03-11 19:30:09 +0100 (Sat, 11 Mar 2006) $',
+          commands    => 'len',
+          contact     => 'heidinger@dau.pl',
+          description => 'If you try to get a nick with 11 characters but only ' .
+                         '9 are allowed, this script will prevent the '          .
+                         'nickchange. The same for too long topics, kickmsgs, '  .
+                         'partmsgs and quitmsgs.',
+          license     => 'BSD',
+          name        => 'len',
+         );
+
+################################################################################
+#                                                                              #
+# CHANGELOG                                                                    #
+#                                                                              #
+# 2006-03-11    release 1.0.0                                                  #
+#               No big changes. As the script is stable for quite a while,     #
+#               this is the 1.0.0 release.                                     #
+#                                                                              #
+# 2005-01-28    release 0.4.0                                                  #
+#               Splitted up 005 event messages will cause no trouble anymore   #
+#                                                                              #
+# 2004-04-26    release 0.3.2                                                  #
+#               minor changes                                                  #
+#                                                                              #
+# 2003-01-18    release 0.3.1                                                  #
+#               - revised help-message                                         #
+#               - minor changes                                                #
+#                                                                              #
+# 2003-01-18    release 0.3.0                                                  #
+#               %data-hash moved to extern file specified in setting           #
+#               len_data_file                                                  #
+#                                                                              #
+# 2002-10-02    release 0.2.1                                                  #
+#               Changed output format of /len                                  #
+#                                                                              #
+# 2002-09-27    release 0.2.0                                                  #
+#               Added command /len with a table containing the values for      #
+#               NICKLEN etc. and tips if these values haven't been received    #
+#               from the server yet                                            #
+#                                                                              #
+# 2002-09-26    release 0.1.0                                                  #
+#               initial release                                                #
+#                                                                              #
+################################################################################
+
+################################################################################
+# Register commands
+################################################################################
+
+Irssi::command_bind('len', \&command_len);
+
+################################################################################
+# Register settings
+################################################################################
+
+# String
+Irssi::settings_add_str('misc', 'len_data_file', "$ENV{HOME}/.len");
+
+################################################################################
+# Register signals
+################################################################################
+
+Irssi::signal_add_first('command kick', \&signal_command_kick);
+Irssi::signal_add_first('command nick', \&signal_command_nick);
+Irssi::signal_add_first('command part', \&signal_command_part);
+Irssi::signal_add_first('command quit', \&signal_command_quit);
+Irssi::signal_add_first('command topic', \&signal_command_topic);
+Irssi::signal_add_last('event 005', \&signal_event_005);
+
+################################################################################
+# Register themes
+################################################################################
+
+Irssi::theme_register(['len_print', '[$0] {line_start} $1']);
+
+################################################################################
+# Global Variables
+################################################################################
+
+# Put values of the settings in %option-hash
+
+our %option;
+
+# Most IRC-Server send a message containing the values for NICKLEN, TOPICLEN
+# and KICKLEN.
+# Well, some server do not send this message. Get these values from %data-hash
+# stored in file specified in setting len_data_file.
+
+our %data;
+
+################################################################################
+# Code run once at start
+################################################################################
+
+print CLIENTCRAP "len.pl $VERSION loaded. For further information type %9/len%9";
+
+################################################################################
+# Subroutines (commands)
+################################################################################
+
+sub command_len {
+	my ($data, $server, $witem) = @_;
+	my $output;
+
+	unless ($server and defined($server)) {
+		print_out("First connect to a server...");
+		return;
+	}
+
+	read_file();
+
+	my $kicklen  = sprintf "%-8s", $data{$server->{tag}}{kicklen};
+	my $nicklen  = sprintf "%-8s", $data{$server->{tag}}{nicklen};
+	my $partlen  = sprintf "%-8s", $data{$server->{tag}}{partlen};
+	my $quitlen  = sprintf "%-8s", $data{$server->{tag}}{quitlen};
+	my $topiclen = sprintf "%-9s", $data{$server->{tag}}{topiclen};
+
+	$output = &fix(<<"	END");
+	|=========|=================|
+	|         | max. characters |
+	|=========|=================|
+	| kickmsg | $kicklen        |
+	|---------|-----------------|
+	| nick    | $nicklen        |
+	|---------|-----------------|
+	| partmsg | $partlen        |
+	|---------|-----------------|
+	| quitmsg | $quitlen        |
+	|---------|-----------------|
+	| topic   | $topiclen       |
+	|---------|-----------------|
+	END
+
+	unless ($kicklen   =~ /\d/ &&
+	        $nicklen   =~ /\d/ &&
+	        $partlen   =~ /\d/ &&
+	        $quitlen   =~ /\d/ &&
+	        $topiclen  =~ /\d/)
+	{
+		$output .= &fix(<<"		END");
+
+		Obviously there are some values missing.
+		When you connect to a server most send you a message (numeric 005)
+		with the proper values for the maximal nick length, topic length etc.
+		If you loaded this script after connecting to "$server->{tag}"
+		you should reconnect.
+		If this doesn't help, the server is not sending the message with these
+		values.
+		The following alternatives remain:
+		  * Use another server of the same network and cross your fingers
+		    that it'll send the message.
+		  * Find out the values and adjust the data hash in the file
+		    specified in the setting len_data_file.
+		    The file might look like this:
+
+		    %{ \$data{$server->{tag}} } = (
+		        'kicklen'  => <value>,
+		        'nicklen'  => <value>,
+		        'partlen'  => <value>,
+		        'quitlen'  => <value>,
+		        'topiclen' => <value>,
+		    );
+
+		    %{ \$data{someOtherNetwork} } = (
+		        'kicklen'  => 160,
+		        'nicklen'  => 9,
+		        'partlen'  => 160,
+		        'quitlen'  => 160,
+		        'topiclen' => 160,
+		    );
+		END
+	}
+
+	foreach my $line (split /\n/, $output) {
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'len_print', $server->{tag}, $line);
+	}
+}
+
+################################################################################
+# Subroutines (signals)
+################################################################################
+
+sub signal_command_kick {
+	my ($command, $server, $witem) = @_;
+
+	return unless ($server and defined($server));
+
+	read_file();
+
+	# Syntax for /kick:
+	# KICK [<channel>] <nicks> [<reason>]
+	# We want to isolate <reason> to know how long it is
+
+	# delete [<channel>] <nicks>
+	$command =~ s/^\s*           # Start of String and optional some whitespace
+	              (?:            # Grouping
+	              \#\S+          # This is <channel>
+	              )?             # End of Grouping, <channel> is optional
+	              [ ]?           # Maybe a single space
+	              \S+            # Everything not whitespace. These are the nicks.
+	              [ ]?           # Maybe a single space
+	             //x;            # Delete everything
+
+	# The rest of $command is the kickmsg
+	my $kickmsg = $command;
+
+	my $len = length($kickmsg);
+	my $maxlen = $data{$server->{tag}}{kicklen};
+
+	if ($maxlen > 0 && $len > $maxlen) {
+		print_out("kickmsg too long! ($len/$maxlen)");
+		Irssi::signal_stop();
+	}
+}
+
+sub signal_command_nick {
+	my ($nick, $server, $witem) = @_;
+
+	return unless ($server and defined($server));
+
+	read_file();
+
+	my $len = length($nick);
+	my $maxlen = $data{$server->{tag}}{nicklen};
+
+	if ($maxlen > 0 && $len > $maxlen) {
+		print_out("Nick too long! ($len/$maxlen)");
+		Irssi::signal_stop();
+	}
+}
+
+sub signal_command_part {
+	my ($command, $server, $witem) = @_;
+
+	return unless ($server and defined($server));
+
+	read_file();
+
+	# Syntax for /part:
+	# PART [<channels>] [<message>]
+	# So we want to get rid of the channels to isolate the partmsg
+
+	# Delete [<channels>]
+	$command =~ s/^#\S+ //;
+
+	# The rest of $command is the partmsg
+	my $partmsg = $command;
+
+	my $len = length($partmsg);
+	my $maxlen = $data{$server->{tag}}{partlen};
+
+	if ($maxlen > 0 && $len > $maxlen) {
+		print_out("partmsg too long! ($len/$maxlen)");
+		Irssi::signal_stop();
+	}
+}
+
+sub signal_command_quit {
+	my ($quitmsg, $server, $witem) = @_;
+
+	return unless ($server and defined($server));
+
+	read_file();
+
+	my $len = length($quitmsg);
+	my $maxlen = $data{$server->{tag}}{quitlen};
+
+	if ($maxlen > 0 && $len > $maxlen) {
+		print_out("quitmsg too long! ($len/$maxlen)");
+		Irssi::signal_stop();
+	}
+}
+
+sub signal_command_topic {
+	my ($command, $server, $witem) = @_;
+
+	return unless ($server and defined($server));
+
+	read_file();
+
+	# Syntax for /topic:
+	# TOPIC [-delete] [<channel>] [<topic>]
+	# We want to isolate <reason> to know how long it is
+
+	# Delete <channel>
+	$command =~ s/^#\S+ //;
+
+	# The rest of $command is the topic
+	my $topic = $command;
+
+	my $len = length($topic);
+	my $maxlen = $data{$server->{tag}}{topiclen};
+
+	if ($maxlen > 0 && $len > $maxlen) {
+		print_out("Topic too long! ($len/$maxlen)");
+		Irssi::signal_stop();
+	}
+}
+
+# Most server send this message containig the values for NICKLEN etc. on
+# connect (event 005).
+
+sub signal_event_005 {
+	my ($server, $string) = @_;
+
+	if ($string =~ /KICKLEN=(\d+)/) {
+		$data{$server->{tag}}{kicklen} = $1;
+		$data{$server->{tag}}{partlen} = $1;
+		$data{$server->{tag}}{quitlen} = $1;
+	}
+	if ($string =~ /NICKLEN=(\d+)/) {
+		$data{$server->{tag}}{nicklen} = $1;
+	}
+	if ($string =~ /TOPICLEN=(\d+)/) {
+		$data{$server->{tag}}{topiclen} = $1;
+	}
+}
+
+################################################################################
+# Helper subroutines
+################################################################################
+
+sub fix {
+	my $string = shift;
+	$string =~ s/^\t+//gm;
+	return $string;
+}
+
+sub print_err {
+	my $text = shift;
+
+	print CLIENTCRAP '%Rlen.pl error%n: ' . $text;
+}
+
+sub print_out {
+	my $text = shift;
+
+	print CLIENTCRAP '%9len.pl%9: ' . $text;
+}
+
+sub read_file {
+	set_settings();
+
+	my $file = $option{len_data_file};
+
+	unless (-e $file && -r $file) {
+		return;
+	}
+	unless (my $return = do $file) {
+		if ($@) {
+			print_err("parsing $file failed: $@");
+		}
+		unless (defined($return)) {
+			print_err("'do $file' failed");
+		}
+	}
+}
+
+sub set_settings {
+	# String
+	$option{len_data_file} = Irssi::settings_get_str('len_data_file');
+}
diff --git a/scripts/leodict.pl b/scripts/leodict.pl
new file mode 100644
index 0000000..dd8f2a8
--- /dev/null
+++ b/scripts/leodict.pl
@@ -0,0 +1,238 @@
+#!/usr/bin/perl
+#
+# by Stefan "Tommie" Tomanek
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '20040515';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'leodict',
+    description => 'translates via dict.leo.org',
+    license     => 'GPLv2',
+    url         => 'http://irssi.org/scripts/',
+    changed     => $VERSION,
+    modules     => 'LWP::Simple Data::Dumper',
+    commands	=> "leodict"
+);
+use vars qw($forked);
+use Irssi 20020324;
+use LWP::Simple;
+use POSIX;
+
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help = "LeoDict $VERSION
+/leodict <word1> <word2>...
+    searches dict.leo.org for appropiate translations
+/leodict -p <word1>...
+    paste the translations to the current channel or query
+    The number of translations is limited by the setting
+    'leodict_paste_max_translations'
+/leodict -b <word1>...
+    open dict.leo.org in your web browser (uses openurl.pl)
+";
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box($IRSSI{name}, $text, "help", 1);
+}
+
+
+
+sub get_page ($) {
+    my ($word) = @_;
+    return get('http://dict.leo.org/?search='.$word.'&relink=off');
+}
+
+sub get_words ($) {
+    my ($word) = @_;
+    my @translations;
+    my $data = get_page($word);
+    foreach (split(/\n/, $data)) {
+	if (/(\d+) search results/) {
+	    my $results = $1;
+	    foreach (split(/\<\/TR\>/)) {
+		my @trans;
+		foreach (split(/\<\/TD\>/)) {
+		    $_ =~ s/\<.*?\>//g;
+		    $_ =~ s/^ *//g;
+		    $_ =~ s/ *$//g;
+		    $_ =~ s/&nbsp;//g;
+		    $_ =~ s/^\t*//g;
+		    # Thanks to senneth
+		    $_ =~ s/Direct Matches//g;
+		    next if (/\d+ search results/);
+		    #print $_."\n" if (/\w/);
+		    push @trans, $_ if (/\w/);
+		}
+		if (scalar(@trans) == 2) {
+		    push @translations, \@trans;
+		}
+	    }
+	}
+    }
+    return \@translations;
+}
+
+sub call_openurl ($) {
+    my ($url) = @_;
+    no strict "refs";
+    # check for a loaded openurl
+    if (defined &{ "Irssi::Script::openurl::launch_url" } ) {
+        &{ "Irssi::Script::openurl::launch_url" }($url);
+    } else {
+        print CLIENTCRAP "%R>>%n Please install openurl.pl";
+    }
+}
+
+sub translate ($$$) {
+    my ($word,$target,$server) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    if ($forked) {
+        print CLIENTCRAP "%R>>%n Please wait until your earlier request has been finished.";
+        return;
+    }
+    my $pid = fork();
+    $forked = 1;
+    if ($pid > 0) {
+	print CLIENTCRAP "%R>>%n Please wait..." unless $target;
+	close $wh; 
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, \$pipetag, $target, $server);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	eval {
+	    my %result;
+	    $result{trans} = get_words($word);
+	    $result{word} = $word;
+	    my $dumper = Data::Dumper->new([\%result]);
+	    $dumper->Purity(1)->Deepcopy(1)->Indent(0);
+	    my $data = $dumper->Dump;
+	    print($wh $data);
+	};
+	close($wh);
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($) {
+    my ($rh, $pipetag, $target, $tag) = @{$_[0]};
+    $forked = 0;
+    my $text;
+    $text .= $_ foreach <$rh>;
+    close $rh;
+    Irssi::input_remove($$pipetag);
+    unless ($text) {
+	print CLIENTCRAP "%R<<%n Something weird happend";
+	return(0);
+    }
+    no strict 'vars';
+    my %incoming = %{ eval("$text") };
+    if ($target eq '') {
+	show_translations($incoming{trans},$incoming{word});
+    } else {
+	my $server = Irssi::server_find_tag($tag);
+	my $witem = $server->window_item_find($target);
+	paste_translations($incoming{trans}, $incoming{word}, $witem) if $witem;
+    }
+}
+
+sub show_translations($$) {
+    my @trans = @{$_[0]};
+    my $word = $_[1];
+    if (@trans) {
+	my $text;
+	foreach (@trans) {
+	    $text .= "%U".$_->[0]."%U \n";
+	    $text .= " `-> ".$_->[1]."\n";
+	}
+	print CLIENTCRAP draw_box('LeoDict', $text, $word, 1);
+    } else {
+	print CLIENTCRAP "%R>>>%n No translations found (".$word.").";
+    }
+}
+
+sub paste_translations ($$) {
+    my ($trans, $word, $target) = @_;
+    return unless ($target->{type} eq "CHANNEL" || $target->{type} eq "QUERY");
+    if (@$trans) {
+        my $text;
+	my $beauty = Irssi::settings_get_bool('leodict_paste_beautify');
+	my $max = Irssi::settings_get_int('leodict_paste_max_translations');
+       	my $i = 0;
+        foreach (@$trans) {
+	    if ($i < $max || $max == 0) {
+		if ($beauty) {
+		    $text .= $_->[0]." \n";
+		    $text .= " `-> ".$_->[1]."\n";
+		} else {
+		    $text .= $_->[0].' => '.$_->[1]."\n";
+		}
+		$i++;
+	    } else {
+		$text .= '...'."\n";
+		last;
+	    }
+        }
+	my $msg = $text;
+        $msg = draw_box('LeoDict', $text, $word, 0) if $beauty;
+	$target->command('MSG '.$target->{name}. ' '.$_) foreach (split(/\n/, $msg));
+    }
+
+}
+
+sub cmd_leodict ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    my $paste = 0;
+    my $browse = 0;
+    if ($arg[0] eq '-p') {
+	$paste = 1;
+	shift(@arg);
+    } elsif ($arg[0] eq '-b') {
+	$browse = 1;
+	shift(@arg);
+    } elsif ($arg[0] eq '-h') {
+	show_help();
+	return();
+    }
+    
+    foreach (@arg) {
+	if ($paste) {
+	    #paste_translations($_, $witem) if $witem;
+	    next unless ref $witem;
+	    next unless ref $server;
+	    translate($_, $witem->{name}, $witem->{server}->{tag});
+	} elsif ($browse) {
+	    call_openurl('http://dict.leo.org/?lang=en&search='.$_);
+	} else {
+	    #show_translations($_);
+	    translate($_,'', '');
+	}
+    }
+}
+
+Irssi::command_bind('leodict', 'cmd_leodict');
+
+Irssi::settings_add_int($IRSSI{'name'}, 'leodict_paste_max_translations', 2);
+Irssi::settings_add_bool($IRSSI{'name'}, 'leodict_paste_beautify', 1);
+
+print CLIENTCRAP "%B>>%n ".$IRSSI{name}." ".$VERSION." loaded: /leodict -h for help";
diff --git a/scripts/licq.pl b/scripts/licq.pl
new file mode 100644
index 0000000..cc7b1ec
--- /dev/null
+++ b/scripts/licq.pl
@@ -0,0 +1,63 @@
+$VERSION = "0.5";
+%IRSSI = (
+    authors     => "Jari Matilainen",
+    contact     => "jmn98015\@student.mdh.se",
+    name        => "licq",
+    description => "Licq statusbar thingy",
+    license     => "Public Domain",
+    url         => "http://jari.cjb.net,http://irssi.org,http://scripts.irssi.de",
+);
+
+use Irssi::TextUI;
+
+my $result;
+my $refresh_tag;
+my $rdir = "$ENV{'HOME'}/.licq/users/";
+
+sub licq {
+  my ($item,$get_size_only) = @_;
+  $result = 0;
+  if(-e $rdir) {
+  	opendir(DIR, $rdir);
+
+  	while ( $_ = readdir(DIR) ) {
+		next if(($_ eq ".") or ($_ eq ".."));
+
+		my $filename = "$rdir" . "$_";
+		if(-e $filename) {
+			open(FILE, $filename);
+  			$_ = "";
+  			$_ = <FILE> until /NewMessages/;
+  			my @total = split / /, $_;
+  			if(defined $total[2]) {
+				$result += $total[2];
+			}
+		}
+  	}
+  }
+
+  closedir(DIR);
+
+  $item->default_handler($get_size_only, undef, $result, 1);
+}
+
+sub refresh_licq {
+  Irssi::statusbar_items_redraw('licq');
+}
+
+sub init_licq {
+	my $time = Irssi::settings_get_int('licq_refresh_time');
+	$rdir = Irssi::settings_get_str('licq_path');
+	Irssi::timeout_remove($refresh_tag) if ($refresh_tag);
+	$refresh_tag = Irssi::timeout_add($time*1000, 'refresh_licq', undef);
+}
+
+Irssi::settings_add_int('LICQ','licq_refresh_time',10);
+Irssi::settings_add_str('LICQ','licq_path',$rdir);
+Irssi::statusbar_item_register('licq', '{sb ICQ: $0-}', 'licq');
+
+init_licq();
+Irssi::signal_add('setup changed','init_licq');
+refresh_licq();
+
+# EOF
diff --git a/scripts/linkchan.pl b/scripts/linkchan.pl
new file mode 100644
index 0000000..08476fa
--- /dev/null
+++ b/scripts/linkchan.pl
@@ -0,0 +1,488 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.5";
+%IRSSI =
+(
+    authors     => 'Marcin \'Qrczak\' Kowalczyk',
+    contact     => 'qrczak@knm.org.pl',
+    name        => 'LinkChan',
+    description => 'Link several channels on serveral networks',
+    license     => 'GNU GPL',
+    url         => 'http://qrnik.knm.org.pl/~qrczak/irssi/linkchan.pl',
+);
+
+our %links;
+our $lock_own = 0;
+
+our $config = Irssi::get_irssi_dir . "/linkchan.cfg";
+
+Irssi::command_bind "link", sub
+{
+    my ($args, $server, $target) = @_;
+    Irssi::command_runsub "link", $args, $server, $target;
+};
+
+Irssi::command_bind "link add", sub
+{
+    my ($args, $server, $target) = @_;
+    unless ($args =~ m|^ *([^ /]+)/([^ ]+) +([^ /]+)/([^ ]+) *$|)
+    {
+        print CLIENTERROR "Usage: /link add <chatnet1>/<channel1> <chatnet2>/<channel2>";
+        return;
+    }
+    my ($chatnet1, $channel1, $chatnet2, $channel2) =
+      (lc $1, lc $2, lc $3, lc $4);
+    foreach my $link ([$chatnet1, $channel1], [$chatnet2, $channel2])
+    {
+        my ($chat1, $chan1) = @{$link};
+        if ($links{$chat1}{$chan1})
+        {
+            my ($chat2, $chan2) = @{$links{$chat1}{$chan1}};
+            print CLIENTERROR "Channel $chat1/$chan1 is already linked to $chat2/$chan2";
+            return;
+        }
+    }
+    $links{$chatnet1}{$channel1} = [$chatnet2, $channel2];
+    $links{$chatnet2}{$channel2} = [$chatnet1, $channel1];
+    print CLIENTNOTICE "Added link: $chatnet1/$channel1 <-> $chatnet2/$channel2";
+};
+
+Irssi::command_bind "link remove", sub
+{
+    my ($args, $server, $target) = @_;
+    unless ($args =~ m|^ *([^ /]+)/([^ ]+) *$|)
+    {
+        print CLIENTERROR "Usage: /link remove <chatnet>/<channel>";
+        return;
+    }
+    my ($chatnet1, $channel1) = (lc $1, lc $2);
+    unless ($links{$chatnet1}{$channel1})
+    {
+        print CLIENTERROR "Channel $chatnet1/$channel1 was not linked";
+        return;
+    }
+    my ($chatnet2, $channel2) = @{$links{$chatnet1}{$channel1}};
+    delete $links{$chatnet1}{$channel1};
+    delete $links{$chatnet2}{$channel2};
+    print CLIENTNOTICE "Removed link: $chatnet1/$channel1 <-> $chatnet2/$channel2";
+};
+
+Irssi::command_bind "link list", sub
+{
+    my ($args, $server, $target) = @_;
+    unless ($args =~ /^ *$/)
+    {
+        print CLIENTNOTICE "Usage: /link list";
+        return;
+    }
+    print CLIENTNOTICE "The following pairs of channels are linked:";
+    my %shown = ();
+    foreach my $chatnet1 (sort keys %links)
+    {
+        foreach my $channel1 (sort keys %{$links{$chatnet1}})
+        {
+            next if $shown{$chatnet1}{$channel1};
+            my ($chatnet2, $channel2) = @{$links{$chatnet1}{$channel1}};
+            print CLIENTNOTICE "$chatnet1/$channel1 <-> $chatnet2/$channel2";
+            $shown{$chatnet2}{$channel2} = 1;
+        }
+    }
+};
+
+sub save_config()
+{
+    open CONFIG, ">$config";
+    foreach my $chatnet1 (keys %links)
+    {
+        foreach my $channel1 (keys %{$links{$chatnet1}})
+        {
+            my ($chatnet2, $channel2) = @{$links{$chatnet1}{$channel1}};
+            print CONFIG "$chatnet1/$channel1 $chatnet2/$channel2\n";
+        }
+    }
+    close CONFIG;
+}
+
+Irssi::signal_add "setup saved", sub
+{
+    my ($main_config, $auto) = @_;
+    save_config unless $auto;
+};
+
+sub load_config()
+{
+    %links = ();
+    open CONFIG, $config or return;
+    while (<CONFIG>)
+    {
+        chomp;
+        next if /^ *$/ || /^#/;
+        unless (m|^ *([^ /]+)/([^ ]+) +([^ /]+)/([^ ]+) *$|)
+        {
+            print CLIENTERROR "Syntax error in $config: $_";
+            return;
+        }
+        my ($chatnet1, $channel1, $chatnet2, $channel2) =
+          (lc $1, lc $2, lc $3, lc $4);
+        $links{$chatnet1}{$channel1} = [$chatnet2, $channel2];
+    }
+}
+
+Irssi::signal_add "setup reread", \&load_config;
+
+sub message($$)
+{
+    my ($chan, $msg) = @_;
+    $lock_own = 1;
+    $chan->{server}->command("msg $chan->{name} $msg");
+    $lock_own = 0;
+}
+
+sub special_message($$)
+{
+    my ($chan, $msg) = @_;
+    message $chan, "-!- $msg";
+}
+
+sub special_message_for($$$)
+{
+    my ($chan, $nick, $msg) = @_;
+    message $chan,
+      (defined $nick ? "$nick: " : "") .
+      "-!- $msg";
+}
+
+sub channel_context($$)
+{
+    my ($server1, $channel1) = @_;
+    my $chatnet1 = lc $server1->{chatnet};
+    my $chan1 = $server1->channel_find($channel1) or return undef;
+    my $other = $links{$chatnet1}{lc $channel1} or return undef;
+    my ($chatnet2, $channel2) = @{$other};
+    my $server2 = Irssi::server_find_chatnet($chatnet2) or return;
+    my $chan2 = $server2->channel_find($channel2) or return;
+    return {
+        chatnet1 => $chatnet1,
+        server1  => $server1,
+        channel1 => $channel1,
+        chan1    => $chan1,
+        chatnet2 => $chatnet2,
+        server2  => $server2,
+        channel2 => $channel2,
+        chan2    => $chan2,
+    };
+}
+
+sub channel_contexts_with_nick($$)
+{
+    my ($server1, $nick1) = @_;
+    my $chatnet1 = lc $server1->{chatnet};
+    return () unless $links{$chatnet1};
+    my @contexts = ();
+    foreach my $channel1 (keys %{$links{$chatnet1}})
+    {
+        my $chan1 = $server1->channel_find($channel1) or next;
+        next unless $chan1->nick_find($nick1);
+        my ($chatnet2, $channel2) = @{$links{$chatnet1}{$channel1}};
+        my $server2 = Irssi::server_find_chatnet($chatnet2) or next;
+        my $chan2 = $server2->channel_find($channel2) or next;
+        push @contexts, {
+            chatnet1 => $chatnet1,
+            server1  => $server1,
+            channel1 => $channel1,
+            chan1    => $chan1,
+            chatnet2 => $chatnet2,
+            server2  => $server2,
+            channel2 => $channel2,
+            chan2    => $chan2,
+        };
+    }
+    return @contexts;
+}
+
+sub must_be_op($$)
+{
+    my ($context, $nick) = @_;
+    unless (defined $nick ?
+            $context->{chan1}->nick_find($nick)->{op} :
+            $context->{chan1}->{chanop})
+    {
+        special_message_for $context->{chan1}, $nick,
+          "You're not channel operator in $context->{channel1}";
+        return 0;
+    }
+    unless ($context->{chan2}->{chanop})
+    {
+        special_message_for $context->{chan1}, $nick,
+          "Sorry, I'm not channel operator in $context->{channel2}";
+        return 0;
+    }
+    return 1;
+}
+
+sub change_mode($$$)
+{
+    my ($context, $nick, $mode) = @_;
+    return unless must_be_op($context, $nick);
+    special_message $context->{chan2},
+      "mode/$context->{channel2} [$mode] by $nick"
+      if defined $nick;
+    $context->{server2}->command("mode $context->{channel2} $mode");
+}
+
+sub change_perms($$$$$$)
+{
+    my ($command, $dir, $mode, $context, $nick, $args) = @_;
+    my @nicks = split ' ', $args;
+    unless (@nicks)
+    {
+        special_message_for $context->{chan1}, $nick,
+          "Usage: \\$command <nicks>";
+        return;
+    }
+    change_mode $context, $nick, $dir . $mode x @nicks . " @nicks";
+}
+
+sub names($$$)
+{
+    my ($context, $nick, $args) = @_;
+    my @nicks = $context->{chan2}->nicks();
+    my @ops = grep {$_->{op}} @nicks;
+    my @voices = grep {!$_->{op} && $_->{voice}} @nicks;
+    my @normal = grep {!$_->{op} && !$_->{voice}} @nicks;
+    my @list = (
+      map ({['@', $_]} sort {lc $a cmp lc $b} map {$_->{nick}} @ops),
+      map ({['+', $_]} sort {lc $a cmp lc $b} map {$_->{nick}} @voices),
+      map ({[' ', $_]} sort {lc $a cmp lc $b} map {$_->{nick}} @normal));
+    my $max_width = 62 - length $context->{server1}->{nick};
+    my $rows = 1;
+    my @column_widths;
+    while ($rows < @list)
+    {
+        @column_widths = ();
+        my $width = 0;
+        my $i = 0;
+        while ($i < @list)
+        {
+            my $column_width = 0;
+            foreach my $j ($i .. $i+$rows-1)
+            {
+                last if $j >= @list;
+                my $len = length $list[$j][1];
+                $column_width = $len if $column_width < $len;
+            }
+            push @column_widths, $column_width;
+            $width += $column_width + 4;
+            $i += $rows;
+        }
+        last if $width - 1 <= $max_width;
+        ++$rows;
+    }
+    my @output;
+    foreach my $i (0..$#list)
+    {
+        $output[$i % $rows] .=
+          sprintf "[%s%*s] ",
+          $list[$i][0], -$column_widths[int ($i / $rows)], $list[$i][1];
+    }
+    foreach my $row (@output)
+    {
+        chop $row;
+        message $context->{chan1}, $row;
+    }
+}
+
+my %commands =
+(
+    mode => sub
+    {
+        my ($context, $nick, $args) = @_;
+        unless ($args =~ /^ +\* +(.*)$/ ||
+                $args =~ /^ +\Q$context->{channel2}\E +(.*)$/)
+        {
+            special_message_for $context->{chan1}, $nick,
+              "Usage: \\mode * <mode> [<mode parameters>]";
+            return;
+        }
+        change_mode $context, $nick, $1;
+    },
+    op => sub {&change_perms('op', '+', 'o', @_)},
+    deop => sub {&change_perms('deop', '-', 'o', @_)},
+    voice => sub {&change_perms('voice', '+', 'v', @_)},
+    devoice => sub {&change_perms('devoice', '-', 'v', @_)},
+    kick => sub
+    {
+        my ($context, $nick, $args) = @_;
+        unless ($args =~ /^ +([^ ]+)(| .*)$/)
+        {
+            special_message_for $context->{chan1}, $nick,
+              "Usage: \\kick <nicks> [<reason>]";
+            return;
+        }
+        my ($nicks, $reason) = ($1, $2);
+        $reason = $reason =~ /^ ?$/ ? " $nick" : " <$nick>$reason"
+          if defined $nick;
+        return unless must_be_op($context, $nick);
+        $context->{server2}->command("kick $context->{channel2} $nicks$reason");
+    },
+    names => \&names,
+);
+
+sub run_command($$$$)
+{
+    my ($context, $nick, $command, $args) = @_;
+    my $func = $commands{lc $command};
+    unless ($func)
+    {
+        special_message_for $context->{chan1}, $nick,
+          "Unknown command: $command";
+        return;
+    }
+    $func->($context, $nick, $args);
+}
+
+Irssi::signal_add "message public", sub
+{
+    my ($server1, $msg, $nick, $address, $channel1) = @_;
+    my $context = channel_context($server1, $channel1) or return;
+    if ($msg =~ /^\\([^ ]+)(| .*)$/)
+    {
+        Irssi::signal_continue @_;
+        run_command $context, $nick, $1, $2;
+    }
+    elsif ($msg =~ /^<.[^ ]+> /)
+    {
+        print CLIENTERROR
+          "Warning! Channels $context->{chatnet1}/$context->{channel1} " .
+          "and $context->{chatnet2}/$context->{channel2} are linked twice.";
+        Irssi::command "beep";
+    }
+    else
+    {
+        my $nk = $context->{chan1}->nick_find($nick);
+        my $perm = $nk->{op} ? '@' : $nk->{voice} ? '+' : ' ';
+        message $context->{chan2}, "<$perm$nick> $msg";
+    }
+};
+
+Irssi::signal_add "message own_public", sub
+{
+    my ($server1, $msg, $channel1) = @_;
+    return if $lock_own;
+    my $context = channel_context($server1, $channel1) or return;
+    if ($msg !~ s/^\\ // && $msg =~ /^\\([^ ]+)(| .*)$/)
+    {
+        Irssi::signal_continue @_;
+        run_command $context, undef, $1, $2;
+    }
+    else
+    {
+        message $context->{chan2}, $msg;
+    }
+};
+
+Irssi::signal_add "message irc action", sub
+{
+    my ($server1, $msg, $nick, $address, $channel1) = @_;
+    my $context = channel_context($server1, $channel1) or return;
+    message $context->{chan2}, " * $nick $msg";
+};
+
+Irssi::signal_add "message irc own_action", sub
+{
+    my ($server1, $msg, $channel1) = @_;
+    return if $lock_own;
+    my $context = channel_context($server1, $channel1) or return;
+    $lock_own = 1;
+    $context->{server2}->command("action $context->{channel2} $msg");
+    $lock_own = 0;
+};
+
+Irssi::signal_add "message join", sub
+{
+    my ($server1, $channel1, $nick, $address) = @_;
+    my $context = channel_context($server1, $channel1) or return;
+    special_message $context->{chan2},
+      "$nick [$address] has joined $channel1";
+};
+
+Irssi::signal_add "message part", sub
+{
+    my ($server1, $channel1, $nick, $address, $reason) = @_;
+    my $context = channel_context($server1, $channel1) or return;
+    special_message $context->{chan2},
+      "$nick [$address] has left $context->{channel1} [$reason]";
+};
+
+Irssi::signal_add "message quit", sub
+{
+    my ($server1, $nick, $address, $reason) = @_;
+    foreach my $context (channel_contexts_with_nick($server1, $nick))
+    {
+        special_message $context->{chan2},
+          "$nick [$address] has quit [$reason]";
+    }
+};
+
+Irssi::signal_add "message topic", sub
+{
+    my ($server1, $channel1, $topic, $nick, $address) = @_;
+    return if $nick eq $server1->{nick};
+    my $context = channel_context($server1, $channel1) or return;
+    if ($topic eq "")
+    {
+        special_message $context->{chan2},
+          "Topic unset by $nick on $context->{channel1}";
+        $context->{server2}->command("topic -delete $context->{channel2}");
+    }
+    else
+    {
+        special_message $context->{chan2},
+          "$nick changed the topic of $context->{channel1} to: $topic";
+        $context->{server2}->command("topic $context->{channel2} $topic");
+    }
+};
+
+Irssi::signal_add "message nick", sub
+{
+    my ($server1, $newnick, $oldnick, $address) = @_;
+    foreach my $context (channel_contexts_with_nick($server1, $newnick))
+    {
+        special_message $context->{chan2},
+          "$oldnick is now known as $newnick";
+    }
+};
+
+Irssi::signal_add "message own_nick", sub
+{
+    my ($server1, $newnick, $oldnick, $address) = @_;
+    foreach my $context (channel_contexts_with_nick($server1, $newnick))
+    {
+        next if $context->{chatnet1} eq $context->{chatnet2};
+        special_message $context->{chan2},
+          "$oldnick is now known as $newnick";
+    }
+};
+
+Irssi::signal_add "message kick", sub
+{
+    my ($server1, $channel1, $nick, $kicker, $address, $reason) = @_;
+    my $context = channel_context($server1, $channel1) or return;
+    special_message $context->{chan2},
+      "$nick was kicked from $context->{channel1} " .
+      "by $kicker [$reason]";
+};
+
+Irssi::signal_add "event mode", sub
+{
+    my ($server1, $data, $nick) = @_;
+    $data =~ /^([^ ]*) (.*)$/ or return;
+    my ($channel1, $mode) = ($1, $2);
+    my $context = channel_context($server1, $channel1) or return;
+    special_message $context->{chan2},
+      "mode/$context->{channel1} [$mode] by $nick";
+};
+
+load_config;
+
diff --git a/scripts/listen.pl b/scripts/listen.pl
new file mode 100644
index 0000000..13f2e14
--- /dev/null
+++ b/scripts/listen.pl
@@ -0,0 +1,158 @@
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.2";
+%IRSSI = ( 
+           authors         => "Csaba Nagy",
+	   contact         => "lordpyre\@negerno.hu",
+	   name            => "listen",
+	   description     => "A simple mp3 display script that will display what mp3 you are playing in which software (mpg123, xmms, mp3blaster, etc) to your active channel or to a query window.",
+	   license         => "GNU GPLv2 or later",
+	   changed         => "Tue Nov 26 19:55:04 CET 2002"
+);
+
+# Usage: 1, load the script
+# 	 2, personalize the settings
+# 	 	- listen_use_action -> if "on" the script will issue an action 
+# 	 		to let otherones know what you are listening to
+# 	 		if "off" it will use a simple msg
+# 	 	- listen_prefix -> the output of the script will look like:
+# 	 		'/me $listen_prefix $listen_tagorder' if the
+# 	 		mp3file has idtags. otherwise the output will be:
+# 	 		'/me $listen_prefix $mp3filename'
+# 	 	- listen_tagorder -> the perfect order of the tags? ;)
+# 	 		for example: '%ARTIST (%ALBUM) - %TITLE (%PLAYER)'
+# 	 		you can specify: %TITLE, %ALBUM, %ARTIST, %GENRE,
+# 	 				 %COMMENT, %PLAYER
+# 	 3, use /listen
+# 	 4, have phun =)
+#
+# Programs needed:
+# 	- lsof - ftp://vic.cc.purdue.edu/pub/tools/unix/lsof
+# 	- id3 - http://frantica.lly.org/~rcw/id3/
+# LordPyre
+
+
+# list of supported mp3 players
+# if you would like to use the script with other players, just type these
+# name into the list below... it will probably work :)
+@mp3players=("mpg123", "mpg321", "xmms", "mp3blaster", "alsaplayer");
+
+################## PLZ DON'T CHANGE ANYTHING BELOW THIS LINE ##################
+# or do it on your own risk!! 
+
+sub default_values {
+	$mp3player="nope";
+	$mp3file="nope";
+	%idtag=("Title",  "Unknown Title",
+		"Album",  "Unknown Album",
+		"Artist", "Unknown Artist",
+		"Genre",  "Unknown Genre",
+		"Comment","No Comment");
+}
+
+sub getmp3filename {
+	open(CSOCS,$_[0]);
+	GECMO: while (<CSOCS>) {
+		chop;
+		(@line) = split(/\s/,$_);
+		# we check wheter the mp3file returned by lsof has been opened
+		# with a known mp3player or not
+		HMM: foreach $w (@mp3players) {
+			# if yes we save it, and leave
+			if ($w =~ /^$line[0]/) {
+				$mp3player=$w;
+				last HMM;
+				}
+			}
+		# if we have found one player 'turned on', we don't have to
+		# check the other results of lsof, so we can leave
+		if ($mp3player ne "nope") {
+			$mp3file=$line[$#line];
+			last GECMO;
+			}
+		}
+	close(CSOCS);
+}
+
+sub getmp3proces {
+	# most of the players put the file into the memory at first,
+	# let's try to catch it there, first
+	getmp3filename("/usr/sbin/lsof -d mem | grep -i .mp3|");
+	# if we didn't find anything there, we check the fds for mp3s
+	if ($mp3player eq "nope") {
+		getmp3filename("/usr/sbin/lsof -d 1-15 | grep -i .mp3|");
+	}
+	
+	# hmm are we listening to anything?
+	if ($mp3player eq "nope") {
+		Irssi::print("Hmm are you listening to anything? (possibly not supported mp3player)");
+		return 0;
+	}
+	
+	# the only problem can happen to us, if the string we got from lsof
+	# isn't a real mp3file (this may happen for example if there are \x20
+	# chars in the filename). so let's check it!
+	if (!(-e $mp3file && -r $mp3file)) { 
+		Irssi::print("Damn! Nonexistent filename. (maybe spaces in it?)");
+		return 0;
+	}
+	return 1;
+}
+
+sub getmp3idtags {
+	# getting the idtags from file
+	open(ID3GECMO, "/usr/bin/id3 -R -l \"$mp3file\" |");
+	while (<ID3GECMO>) {
+		chop;
+		foreach $kulcs (keys %idtag) {
+			if ($_=~ /^$kulcs/) {
+		        	s/^$kulcs://; s/\s*$//;	s/^\s*//;
+				if ($_)	{ $idtag{$kulcs}=$_; }
+				}
+			}
+		}
+	close(ID3GECMO);
+}
+
+sub do_listen {
+
+	#setting up variables
+	my ($data, $server, $witem) = @_;
+	default_values();
+	if (!getmp3proces()) { return };
+	getmp3idtags();
+
+	# if there's no usable idtag in the mp3 we use the filename
+	if (($idtag{"Artist"} eq "Unknow Artist") && ($idtag{"Title"} eq "Unknown Title")) { 
+		$outtext=$mp3filename;
+	} else {
+		# if the file is tagged we parse over the tagorder
+		$outtext=Irssi::settings_get_str("listen_tagorder");
+		foreach $w (keys %idtag) {
+			$outtext=~s/%$w/$idtag{$w}/i;
+			}
+		$outtext=~s/%player/$mp3player/i;
+	}
+	
+	$prefix=Irssi::settings_get_str("listen_prefix");
+	
+	if (Irssi::settings_get_bool("listen_use_action")) {
+		$outtext="ME ".$prefix." ".$outtext;
+	} else {
+		$outtext="MSG ".$witem->{name}." ".$prefix." ".$outtext;
+		}
+	# let's write the result to everyone
+        if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+        	$witem->command($outtext);
+		}
+}
+
+# setting irssi enviroments
+Irssi::command_bind("listen", "do_listen");
+Irssi::settings_add_bool("listen","listen_use_action",1);
+Irssi::settings_add_str("listen","listen_prefix","is listening to");
+Irssi::settings_add_str("listen","listen_tagorder","%ARTIST (%ALBUM) - %TITLE (%PLAYER)");
+
+print CLIENTCRAP "%B>>%n ".$IRSSI{name}." v".$VERSION." loaded... (command: /listen)";
diff --git a/scripts/loadavg.pl b/scripts/loadavg.pl
new file mode 100644
index 0000000..7ca4b45
--- /dev/null
+++ b/scripts/loadavg.pl
@@ -0,0 +1,42 @@
+# system load average statusbar item
+# using vm.loadavg mib or /proc/loadavg
+#
+# /statusbar window add loadavg
+# /set loadavg_refresh
+
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.4";
+%IRSSI = (
+	authors	    => 'aki',
+	contact	    => 'aki@evilbsd.info',
+	name	    => 'loadavg',
+	description => 'display a loadavg statusbar item using vm.loadavg mib or /proc/loadavg',
+	license	    => 'public domain',
+);
+
+sub reload { Irssi::statusbar_items_redraw('loadavg'); }
+
+sub setup {
+	my $time = Irssi::settings_get_int('loadavg_refresh');
+	Irssi::timeout_remove($timeout);
+	$timeout = Irssi::timeout_add($time, 'reload' , undef);
+}
+
+sub show {
+	my ($item, $get_size_only) = @_;
+	get(); chomp $lavg;
+	$item->default_handler($get_size_only, "{sb ".$lavg."}", undef, 1);	
+}
+
+sub get {
+	if ($^O eq 'freebsd' || $^O eq 'netbsd' || $^O eq 'openbsd' ) {
+		$lavg=`sysctl vm.loadavg|cut -d" " -f3-5`;
+	} elsif ($^O eq 'linux') { $lavg=`cat /proc/loadavg|cut -d" " -f1-3`; }
+}
+
+Irssi::statusbar_item_register('loadavg', '$0', 'show');
+Irssi::settings_add_int('misc', 'loadavg_refresh', 15000);
+Irssi::signal_add('setup changed', 'setup');
+$timeout = Irssi::timeout_add(Irssi::settings_get_int('loadavg_refresh'), 'reload' , undef);
diff --git a/scripts/localize.pl b/scripts/localize.pl
new file mode 100644
index 0000000..8d00985
--- /dev/null
+++ b/scripts/localize.pl
@@ -0,0 +1,1637 @@
+#!/usr/bin/perl
+#
+#
+# By Stefan 'tommie' Tomanek, stefan@kann-nix.org
+#
+#
+# This script works fine on DFN (german universities) and T-Oline sites
+#
+# 01.03.2002
+# *Changed to GPL
+#
+# 15.03.2002
+# *Now works on QUERIES as well
+#
+# 24.04.2002
+# *the nick does not have to be on the channel
+# *switched to /WHO
+#
+# 27.04.2002
+# *localization of hosts (/localize @hostname)
+#
+# 29.04.2002
+# *tweaked Design
+# *added channel statistics
+#
+# 04.05.2002
+# *added alternate database (IP Atlas)
+#
+# 05.05.2002
+# *the script is now able to use both databases simultaniously
+# */set localize_use_<database> to enable or disable them
+#
+# 10.05.2002
+# *non-blocking IO via fork()
+#
+# 13.05.2002
+# *finally improved forking and background localizing
+# *now using XML
+#
+# 26.05.2002
+# *Implemented auto-localize
+#
+# 28.05.2002
+# *major updates
+# *fixed race conditions
+#
+# 30.05.2002
+# *finally rendered traceroute support usefull
+#
+# 31.05.2002
+# *moved database to this file
+#
+# 03.07.2002
+# *switched to Data::Dumper
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "2003112301";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "localize",
+    description => "Localizes users using traceroute, the localizer database or IP-Atlas",
+    license     => "GPLv2",
+    url         => "",
+    changed     => "$VERSION",
+    modules     => "Data::Dumper LWP::UserAgent HTML::Entities",
+    commands	=> "localize"
+);
+
+use Irssi 20020324;
+use LWP::UserAgent;
+use HTML::Entities;
+use Data::Dumper;
+use POSIX;
+use Socket;
+
+use vars qw(%queries %cache %ipdb $procs @tracer $debug);
+$debug = 0;
+$procs = 0;
+
+
+# host regexps for trace_host
+#
+
+@tracer = (
+    { provider => 'tonline',
+      regexp   => [ '.*?-.*?\.(.*?)(\.DE|)\.net\.dtag\.de', ]
+    },
+    { provider => 'uunet',
+      regexp   => [ '.*?-\d+-\d+\..*?\.(.*?)\d?\.uunet\.de', ]
+    },
+    { provider => 'kpnqwest',
+      regexp   => [ '.*?-.*?\.(\w?)\.de\.kpnqwest\.net', ]
+    },
+    { provider => 'ewetel',
+      regexp   => [ '.*?-.*?-.*?\.rt8\.(.*?)\.ewetel\.net',
+                    '(.*?)[0-9]*-.*?\.ewetel\.net',
+		    'so\d+-\d+-\d+-bbrt\d+\.(.*?)\.ewe-ip-backbone\.de']
+    },
+    { provider => 'arcor',
+      regexp   => [ '((?!dsl)\w+)-\d+-\d+-\d+-\d+\.arcor-ip\.net',
+                    '.*?-(.*?)-.*?\d*\.arcor-online\.net']
+    },
+    { provider => 'mediaways',
+      regexp   => ['.*-(.*)-de.*-.*-.*-.*\..*\.mediaways.net', ]
+    },
+    { provider => 'mobilcom',
+      regexp   => ['.*\.(.*?)[0-9]+-.\.mcbone\.net',]
+    },
+    { provider => 'vianetworks',
+      regexp   => ['\w+\.(.*?)\.revmap\.vianetworks\.de',
+                   'rt\d{3}(.*?)\.de\.vianw\.net',]
+    },
+    { provider => 'mfnx',
+      regexp   => ['.+-\d+-\d+-\d+\..+\.(.*?)[0-9]+\.de\.mfnx\.net',]
+    },
+    { provider => 'colt',
+      regexp   => ['.+-.*\..+\.(.*?)\.DE.COLT-ISC.NET',
+                   '.+\.((?!dsl)(?!host)\w+)\.de\.colt\.net',
+		   '..\d\.(\w+)\.de\.colt\.net',]
+    },
+    { provider => 'telia',
+      regexp   => ['(.*?)-.+-.+-.+\.telia.net',]
+    },
+    { provider => 'hansanet',
+      regexp   => ['.*\.(.*?)-[0-9]+\.hansenet\.net',]
+    },
+    { provider => 'isis',
+      regexp   => ['isis-gw-(.*?)[0-9]\.de\.cw\.net', ]
+    },
+    { provider => 'cable & wireless',
+      regexp   => ['.*-\d+-\d+-\d+-.*?-(.*?)\d+\.de\.cw\.net',
+                   '.*?-.*?-(.*?)\d+\.de\.cw\.net']
+    },
+    { provider => 'NEFkom',
+      regexp   => ['nefkom-gw-(.*?)\.de\.cw\.net',]
+    },
+    { provider => 'eastlink',
+      regexp   => ['.*?-.*?-.*?-.*?-(.*?)\.eastlink.de',]
+    },
+    { provider => 'alternet',
+      regexp   => ['.*\.(.*?)\d?\.de\.alter\.net',]
+    },
+    { provider => 'CompleTel',
+      regexp   => ['.+-.+-.+-.+\.(.*)\.ipcenta\.de',]
+    },
+    { provider => 'mediascape',
+      regexp   => ['.+\..+\.(.*?)\.mediascape\.net',]
+    },
+    { provider => 'schlund',
+      regexp   => ['gw-prtr-[0-9]+-.+\.(.+)[0-9]+\.schlund.net',]
+    },
+    { provider => 'bisping',
+      regexp   => ['(.*?)-gw-pmx[0-9]*\.bisping\.net',]
+    },
+    { provider => 'gatel',
+      regexp   => ['ser[0-3]+-[0-3]+\.(.*?)[0-3]+\.de\.gatel\.net',]
+    },
+    { provider => 'qsc',
+      regexp   => ['rqsc-(.*?)-de[0-9]+-.+[0-9]+-[0-9]+-[0-9]+\.nw\.mediaways\.net',
+                   'bsn\d+\.(.*?)\.qdsl-home\.de',
+		   'bsn\d+\.(.*?)\.qsc\.de',
+		   'core1\.(.*?)\.qsc\.de']
+    },
+    { provider => 'dfn',
+      regexp   => ['.r-(.*?)[0-9]+\.g-win.dfn.de',
+                   '.*\.uni-(.*?)\.de',
+		   '.*\.fh-(.*?)\.de',
+		   '.*\.tu-(.*?)\.de',
+		   '.*\.fu-(.*?)\.de',]
+    },
+    { provider => 'mops.net',
+      regexp   => ['.*?\.core\d\.(.*?)\.mops\.net',]
+    },
+    { provider => 'schule.de',
+      regexp   => ['.*\.(.*?)\..*?\.Schule\.DE',]
+    },
+    { provider => 'belwue',
+      regexp   => ['(?:.*?-)?(.*?)\d+\.BelWue\.DE',]
+    },
+    { provider => 'lambdanet',
+      regexp   => ['.*?\.(.*?)\.de\.lambdanet\.net',]
+    }
+);
+    
+%ipdb = (
+    d1localizer=>{ name=>'localizer',
+		   active=>1,
+		   url=>'http://jan.kneschke.de/projects/localizer/index.php?query=',
+		   city=>'<tr><td><b>City<\/b><\/td><td>(.*?)<\/td>',
+		   province=>'<tr><td><b>Province<\/b><\/td><td>(.*?)<\/td><td>',
+		   country=>'<tr><td><b>Country<\/b><\/td><td>(.*?)<\/td>',
+		   provider=>'<tr><td><b>\(Backbone-\)Provider<\/b><\/td><td>(.*?)<\/td>', 
+		   failure=>'request-limit-exceeded|Host not found'},
+    d2ipatlas=> { name=>'IP-Atlas',
+		  active=>1,
+	          url=>'http://www.xpenguin.com/plot.php?address=',
+                  city=>'is located in (.*?),',
+		  province=>'is located in.*, (.*?) \(state\),',
+		  country=>'is located in.*, (.*?)\. ',
+		  failure=>'cannot be located|does not resolve' },
+    d3netgeo => { name=>'NetGeo',
+                  active=>0,
+		  url=>'http://netgeo.caida.org/perl/netgeo.cgi?target=',
+		  city=>'CITY:\ *(\w+)<br>',
+		  province=>'STATE:.*?, (.*?) \(state\)<br>',
+		  country=>'COUNTRY:\ *(\w+)<br>',
+		  failure=> "SHOULD NOT"},
+);
+
+sub draw_box ($$$) {
+    my ($title, $text, $footer) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    return $box; 
+}
+
+sub show_help() {
+    my $help="Localize $VERSION
+/localize <nickname>
+    Try to localize the user 'nickname'
+/localize @<hostname>
+    Try to localize the host
+/localize <#channel>
+    Create a tree of the people inside the channel
+/localize -s
+    Save the localize cache and settings
+/localize -r
+    Reload the localize cache from file
+/localize -c
+    Clear the cache
+/localize -sc
+    Shows the current content of the cache
+/localize -h
+    Display this help
+";
+    my $text = "";
+    foreach (split(/\n/, $help)) {
+	$_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box("Localize", $text, "Help");
+}
+
+sub get ($) {
+    my ($url) = @_;
+    my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
+    $ua->agent('Irssi');
+    my $request = HTTP::Request->new('GET', $url);
+    my $response = $ua->request($request);
+    if ($response->is_success()) {
+	return $response->content();
+    } else {
+	return undef;
+    }
+}
+
+sub parse_page ($$) {
+    my ($page, $item) = @_;
+    my %empty;
+    my (%location);
+    $_ = $page;
+    my $regexp = $item->{failure};
+    return(%location) if /$regexp/;
+    foreach my $key ('city', 'province', 'country') {
+	$location{$key} = '';
+	my $regexp = $item->{$key};
+	if (/$regexp/) {
+	    $location{$key} = $1;
+	} else {
+	    return(%empty);
+	}
+    }
+    if (defined $item->{provider}) {
+	if (/$item->{provider}/) {
+	    $location{provider} = $1;
+	}
+    }
+    $location{map} = $item->{name} if (%location);
+    return (%location);
+}
+
+sub trace_host ($) {
+    my ($host) = @_;
+    my $cmd = Irssi::settings_get_str('localize_trace_cmd');
+    local *F;
+    my $pid = open(F, '-|', $cmd.' '.$host.' 2>/dev/null');
+    my $loc_host;
+    my $provider;
+    my $hops = 0;
+    my $maxhops = Irssi::settings_get_int('localize_trace_distance');
+    $_ = $host;
+    while (defined $_) {
+	print $_ if $debug;
+	$hops++;
+	if (/\*/) {
+	    kill 15, $pid;
+	    close(F);
+	    return([$loc_host, $provider]) if ($hops < $maxhops && $hops >= 0);
+	    return([undef, undef]);
+	} else {
+	    foreach my $traced (@tracer) {
+		foreach my $regexp (@{$traced->{regexp}}) {
+		    if (/[0-9]+  $regexp /i) {
+			$loc_host = $1;
+			$provider = $traced->{provider};
+			print $regexp if $debug;
+			print "$loc_host <-> $provider" if $debug;
+			$hops = 0;
+			last;
+		    }
+		}
+	    }
+	}
+	$_ = <F>;
+    }
+    close(F);
+    if ( ($hops < $maxhops) && ($hops >= 0)) {
+	if ($debug) {
+	    print $loc_host."-".$provider foreach (1..10);
+	}
+	return([$loc_host, $provider]);
+    } else {
+	print $hops." -> ".$maxhops if $debug;
+    }
+    return([undef, undef]);
+}
+
+sub localize($$) {
+    my ($nicks, $query) = @_;
+    if (Irssi::settings_get_bool('localize_background')) {
+	bg_fetch($nicks, $query);
+    } else {
+	fg_fetch($nicks, $query);
+    }
+}
+
+sub fg_fetch ($$) {
+    my ($nicks, $query) = @_;
+    my $data = create_output(@{$nicks});
+    my $auto = $queries{$query}->[0]{auto};
+    remove_request($query);
+    process_input($query, $auto, $data);
+}
+
+sub bg_fetch ($$) {
+    my ($nicks, $query) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    my $pid = fork();
+    $procs++;
+    if ($pid > 0) {
+	close $wh;
+	my $size = scalar(@{$nicks});
+	my $auto = $queries{$query}->[0]{auto};
+	remove_request($query);
+	unless ($auto ne '') {
+	    print CLIENTCRAP '%R>>%n Localizing '.$size.' host(s) in background [pid '.$pid.']...' if Irssi::settings_get_bool('localize_show_message');
+	}
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, $query, $auto, \$pipetag);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	my $data = create_output(@{$nicks});
+	eval {
+	    print($wh $data);
+	    close($wh)
+	};
+	POSIX::_exit(1);
+    }
+}
+
+
+sub create_output(@) {
+    my (@nicks) = @_;
+    my @new_db;
+    my @stuff;
+    my @data;
+    my $i = 0;
+    foreach (@nicks) {
+	my $nick = $$_[0];
+	my $host = $$_[1];
+	my (%location);
+	if (defined $cache{$host}) {
+	    %location = %{$cache{$host}};
+	    $location{$_} = $location{$_} foreach (keys %location);
+	    $location{'map'} .= " (cached)";
+	} else {
+	    if (Irssi::settings_get_bool('localize_use_traceroute')) {
+		unless (%location) {
+		    my ($sign, $provider) = @{ trace_host($host) };
+		    print "\n\n>>>>".$sign if $debug;
+		    %location = kfz2location($sign) if $sign;
+		    $location{map} = 'traceroute' if (%location);
+		    $location{provider} = $provider if (%location);
+		}
+	    }
+	    if (Irssi::settings_get_bool('localize_use_databases')) {
+		unless (%location) {
+		    foreach (sort keys(%ipdb)) {
+			my $item = $ipdb{$_};
+			next unless $item->{active};
+			#my $ip = gethostbyname($host);
+			#next unless $ip;
+			my $url = $item->{url}.$host; #inet_ntoa($ip);
+			my $text = get($url);
+			%location = parse_page($text, $item);
+		    }
+		}
+	    }
+	    if (Irssi::settings_get_bool('localize_get_coordinates')) {
+		if (%location) {
+		    my $city = $location{city};
+		    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
+		    my $data = $ua->get('http://www.astro.com/atlas/horoscope/?expr='.$city)->content();
+		    foreach (split /\n/, $data) {
+			decode_entities($_);
+			if (/^<li><a href="\/cgi\/ade\.cgi\?&(?:.*?)">(.*?)<\/a>, (?:.*?): <b>(\d+)n(\d+)<\/b>, <b>(\d+)e(\d+)<\/b>/i) {
+			    $location{latitude} = "$2.$3";
+			    $location{longitude} = "$4.$5";
+			    last;
+			}
+		    }
+		}
+	    }
+	}
+	$location{'nick'} = $nick if (%location);
+	$location{'host'} = $host if (%location);
+	#$location{$_} = $location{$_} foreach (keys %location);
+	push @stuff, \%location;
+	$i++;
+    }
+    my %foo = ("nicks" => \@stuff);
+    my $dumper = Data::Dumper->new([\%foo]);
+    $dumper->Purity(1)->Deepcopy(1);
+    my $data = $dumper->Dump;
+    return($data);
+}
+
+sub pipe_input ($$$$) {
+    my ($rh, $query, $auto, $pipetag) = @{$_[0]};
+    my @lines = <$rh>;
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    my $text = join("", @lines);
+    process_input($query, $auto, $text);
+}
+
+sub process_input($$$) {
+    my ($query, $auto, $text) = @_;
+    my $channel_prefix = '^(\#|\+|\!)';
+    my %stuff;
+    $procs--;
+    no strict;
+    %stuff = %{ eval "$text" };
+    return(0) unless (%stuff);
+    my @items = @{$stuff{nicks}};
+    my %channel;
+    foreach (@items) {
+	my %location = %{$_};
+	if (not %location) {
+	    unless ($query =~ /$channel_prefix/) {
+		print CLIENTCRAP '%R>>%n Unable to localize '.$query if ($auto eq '');
+	    }
+	} else {
+	    my $nocache = Irssi::settings_get_str('localize_ipatlas_nocache');
+	    add_to_cache(%location) unless ($location{'map'} eq 'IP-Atlas' && $location{'host'} =~ /$nocache/);
+	    
+	    $location{$_} = $location{$_} foreach (keys %location);
+	    my $nick = $location{'nick'};
+	    if ($query =~ /$channel_prefix/) {
+		push @{ $channel{$location{"country"}}{$location{"province"}}{$location{"city"}} }, [$nick, $location{"map"}];
+	    } else {
+		if ($auto eq '') {
+		    show_location(%location);
+		} else {
+		    auto_localize($auto, %location);
+		}
+	    }
+	    #remove_request($query);
+	}
+    }
+    if ($query =~ /$channel_prefix/) {
+	show_cities($query, %channel);
+    }
+}
+
+sub add_to_cache (%) {
+    my (%location) = @_;
+    my $host = $location{'host'};
+    return if defined $cache{$host};
+    foreach (keys %location) {
+	next if ($_ eq 'nick' || $_ eq 'host');
+	$cache{$host}{$_} = $location{$_};
+    }
+}
+
+sub save_cache {
+    my $filename = Irssi::settings_get_str('localize_cache_filename');
+    my $data = Dumper(\%cache);
+    local *F;
+    open(F, '>'.$filename);
+    print(F $data);
+    close(F);
+    print CLIENTCRAP "%R>>%n localize cache (".scalar(keys(%cache))." entries/".length($data)." bytes) saved to ".$filename;
+}
+
+sub load_cache {
+    no strict;
+    my $filename = Irssi::settings_get_str('localize_cache_filename');
+    my (%new_cache, $text);
+    local *F;
+    open F, "<".$filename || return;
+    $text .= $_ foreach (<F>);
+    close(F);
+    eval { %new_cache = %{ eval "$text" }; };
+    foreach (keys %new_cache) {
+	$cache{$_} = $new_cache{$_} unless defined $cache{$_};
+    }
+    print CLIENTCRAP "%R>>%n localize cache (".scalar(keys %new_cache)." hosts) loaded";
+}
+
+sub clear_cache {
+    foreach (keys(%cache)) {
+	delete $cache{$_};
+    }
+    print CLIENTCRAP "%R>>%n localize cache cleared";
+}
+
+sub show_location (%) {
+    my (%location) = @_;
+    my $query = Irssi::query_find($location{"nick"});
+    my $output = \&Irssi::print;
+    $output = sub { $query->print(@_); } if ($query);
+    my $text = "";
+    my $headline = '%R,--[%n%9%ULocation of '.$location{"nick"}." (".$location{"host"}.")%U%9%R]%n";
+    foreach ('Country', 'Province', 'City', 'Provider') {
+	my $fill = ' 'x(9-length($_));
+	$text .= '%B'.$fill.$_.':%n '.$location{lc $_}."\n" if defined $location{lc $_};
+    }
+    #$text .= $location{latitude}."/".$location{longitude};
+    &$output(draw_box('Location of '.$location{nick}.' ('.$location{host}.')', $text, $location{map}), MSGLEVEL_CLIENTCRAP);
+    show_map($location{latitude}, $location{longitude}, $location{nick}) if Irssi::settings_get_bool('localize_xplanet_show_map');
+}
+
+sub show_map ($$$) {
+    my ($lat, $long, $nick) = @_;
+    return unless defined $lat && defined $long;
+    my $cmd = Irssi::settings_get_str('localize_xplanet_cmd');
+    my $file = Irssi::settings_get_str('localize_xplanet_temp_file');
+    local *F;
+    open F, '>'.$file;
+    print F $lat.'	'.$long.'	"'.$nick.'"';
+    close F;
+    system("$cmd -markerf $file &");
+}
+
+sub show_cities ($%) {
+    my ($channel, %cities) = @_;
+    print CLIENTCRAP "%R,---[%n%9%U".$channel."%U%9%R]%n";
+    foreach (sort keys %cities) {
+	print CLIENTCRAP "%R+-+[%n".$_."%R]%n";
+	print CLIENTCRAP "%R| | %n";
+	my $n_provs = scalar( keys %{$cities{$_}});
+	foreach my $province (sort keys %{$cities{$_}}) {
+	    my $cp = '|';
+	    $cp = ' ' if ($n_provs == 1);
+	    print CLIENTCRAP "%R| +-+%n"."%R[%n".$province."%R]%n";
+	    my $n_cities = scalar(keys %{$cities{$_}{$province}});
+	    foreach my $city (sort keys %{$cities{$_}{$province}}) {
+		my $cc = '|';
+		$cc = ' ' if ($n_cities == 1);
+		print CLIENTCRAP "%R| $cp +-+%n"."%R[%n".$city."%R]%n";
+		my $n_nicks = scalar(@{$cities{$_}{$province}{$city}});
+		foreach my $nick (sort @{$cities{$_}{$province}{$city}}) {
+		    my $cn = '|`';
+		    $cn = '`-' if ($n_nicks == 1);
+		    print CLIENTCRAP "%R| $cp $cc $cn-----%n%B[%n".$nick->[0]."%B]%n";
+		    $n_nicks--;
+		}
+		$n_cities--;
+	    }
+	    print CLIENTCRAP "%R| $cp ";
+	    $n_provs--;
+	}
+	#print CLIENTCRAP "%R|    ";
+    }
+    print CLIENTCRAP "%R`----->%n";
+}
+
+
+sub cmd_localize ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @names = split(/ /, $args);
+    foreach (@names) {
+	if ( substr($_, 0, 1) eq '@' ) {
+	    my $ip = substr(lc($_), 1);
+	    new_request($server, $ip, 2, '');
+	    localize([[$ip, $ip]], $ip);
+	} elsif ($_ eq '-h') {
+	    show_help();
+	} elsif ($_ eq '-c') {
+	    clear_cache();
+	} elsif ($_ eq '-s') {
+	    save_cache();
+	} elsif ($_ eq '-r') {
+	    load_cache();
+	} elsif ($_ eq '-sc') {
+	    show_cache(@names);
+	    return();
+	} else {
+	    new_request($server, lc($_), 0, '');
+	}
+    }
+}
+
+sub show_cache (@) {
+    my (@params) = @_;
+    unless (defined $params[1] && $params[1] eq '-i_am_insane') {
+	my $entries = scalar(keys(%cache));
+	print CLIENTCRAP '%R>>%n There are '.$entries.' saved locations in the cache. If you really want to display them all, type /localize -sc -i_am_insane';
+    } else {
+	my $text = "";
+	foreach my $key (sort keys %cache) {
+	    my %item = %{$cache{$key}};
+	    $item{$_} = $item{$_} foreach (keys %item);
+	    my $string .= $key;
+	    foreach ('country', 'province', 'city', 'map') {
+		$string .= ' | '.$item{$_};
+	    }
+	    $text .= $string."\n";
+	}
+	print CLIENTCRAP draw_box("Localize Cache", $text, "cache listing");
+    }
+}
+
+sub process_reply ($$$$) {
+    my ($server, $args, $sender, $address) = @_;
+    if ($args =~ /^(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)/) {
+	if (defined $queries{lc $6} && scalar(@{$queries{lc $6}}) > 0) {
+	    foreach (@{$queries{lc $6}}) {
+		my %query = %{$_};
+		next unless ($query{status} <2);
+		Irssi::signal_stop();
+		push @{${$_}{buffer}},[$6, $4];
+		${$_}{status} = 1;
+	    }
+	} elsif (defined $queries{lc $2} && scalar(@{$queries{lc $2}}) > 0) {
+	    foreach (@{$queries{lc $2}}) {
+		my %query = %{$_};
+		next unless ($query{status} <2);
+		Irssi::signal_stop();
+		push @{${$_}{buffer}},[$6, $4];
+		${$_}{status} = 1;
+	    }
+	}
+    } elsif ($args =~ /^(.*?) (.*?) :End of (|\/)WHO list\./) {
+	my ($self, $target) = ($1, $2);
+	return unless (defined $queries{lc $target} && scalar(@{$queries{lc $target}}) > 0);
+	my $needed = 0;
+	foreach (@{$queries{lc $target}}) {
+	    my %query = %{$_};
+	    $needed = 1 if $query{status} < 2;
+	    next unless ($query{status} == 1);
+	    if ($query{status} == 1) {
+		Irssi::signal_stop;
+		$query{status} = 2;
+		localize \@{$query{buffer}}, $target;
+		delete $query{buffer};
+		return();
+	    }
+	}
+	if ($needed) {
+	    Irssi::signal_stop;
+	    unless ($queries{lc $target}[0]{auto} ne '') {
+		print CLIENTCRAP '%R>>%n No such nick '.$target;
+	    }
+	    remove_request($target);
+	}
+    }
+}
+
+sub event_message_join ($$$$) {
+    my ($server, $channel, $nick, $address) = @_;
+    return() unless Irssi::settings_get_bool('localize_auto_localize_on_join');
+    my $maxreq = Irssi::settings_get_int('localize_auto_localize_maxrequests');
+    my $channels = Irssi::settings_get_str('localize_auto_localize_channel_list');
+    if ($channel =~ /$channels/i) {
+	$address =~ /(.*)@(.*)/;
+	my $host = $2;
+	if ($procs < $maxreq) {
+	    new_request($server, $nick, 2, lc($channel));
+	    localize([[lc($nick), $host]], lc($nick));
+	} else {
+	    #Irssi::print "%R>>%n Too many processes running";
+	}
+    }
+}
+
+sub event_query_created($$) {
+    my ($query, $auto) = @_;
+    my $nick = $query->{name};
+    my $server = $query->{server};
+    my $maxreq = Irssi::settings_get_int('localize_auto_localize_maxrequests');
+    return(0) unless (scalar(keys %queries) < $maxreq && Irssi::settings_get_bool('localize_auto_localize_on_query'));
+    $nick = substr($nick, 1) if (substr($nick, 0, 1) eq '=');
+    new_request($server, $nick, 0, lc($query->{name}));
+}
+
+sub auto_localize ($%) {
+    my ($auto, %location) = @_;
+    my $nick = lc($location{'nick'});
+    my $channel = Irssi::window_item_find($auto);
+    $channel->printformat(MSGLEVEL_CLIENTCRAP, 'auto_localize', $nick, $location{host}, $location{'city'}, $location{'province'}, $location{'country'}, $location{'map'}) if defined $channel;
+}
+
+sub new_request ($$$$) {
+    my ($server, $nick, $status, $auto) = @_;
+    return unless ref $server;
+    # 0 nothing done
+    # 1 started to fetch hosts
+    # 2 all hosts fetched
+    push(@{$queries{lc $nick}}, {status => $status, auto=>$auto});
+    $server->command('who '.lc($nick)) if $status == 0;
+}
+
+sub remove_request ($) {
+    my ($nick) = @_;
+    shift @{$queries{$nick}};
+    delete $queries{$nick} if scalar(@{$queries{$nick}}) == 0;
+}
+
+# Yes, I know tat this i huge
+sub kfz2location($) {
+    my %trans = (
+	"rklh"=> "RE",
+	"wstk"=> "Wk",
+	"essn"=> "E",
+	"stgt"=> "S",
+	"ffm" => "F",
+	"mnz" => "MZ",
+	"fra" => "F",
+	"esn" => "E",
+	"dtm" => "DO",
+	"kln" => "K",
+	"dus" => "D",
+	"mue" => "M",
+	"mnch"=> "M",
+	"brln"=> "B",
+	"hmb" => "HH",
+	"brmn"=> "HB",
+	"hmbg"=> "HH",
+	"han" => "H",
+	"kiel"=> "KI",
+	"lpz" => "L",
+	"bln" => "B",
+	"ber" => "B",
+	"mch" => "M",
+	"erf" => "EF",
+	"mdb" => "MD",
+	"nbg" => "N",
+	"hnv" => "H",
+	"dui" => "DU",
+	"mnhm" => "MA",
+	"mhm" => "MA",
+	"flf" => "FL",
+	"lwhf" => "LU",
+	"wue" => "WÜ",
+	"frnk" => "F",
+	"dsdf" => "D",
+	"sgt"  => "S",
+	"aug"  => "A",
+	"mch"  => "M",
+	"ddn"  => "DD",
+	"drs" => "DD",
+	"jen" => "J",
+	"che" => "C",
+	"nuremberg" => "N",
+	"weingarten" => "RV",
+	"munich" => "M",
+	"muc" => "M",
+	"goe" => "GÖ",
+	"obhs" => "OB",
+	"dus" => "D",
+    );
+
+    my %province = (
+	1=>'Baden-Württemberg',
+	2=>'Bayern',
+	3=>'Berlin',
+	4=>'Brandenburg',
+	5=>'Bremen',
+	6=>'Hamburg',
+	7=>'Hessen',
+	8=>'Mecklenburg-Vorpommern',
+	9=>'Niedersachsen',
+	10=>'Nordrhein-Westfalen',
+	11=>'Rheinland-Pfalz',
+	12=>'Saarland',
+	13=>'Sachsen',
+	14=>'Sachsen-Anhalt',
+	15=>'Thüringen',
+	16=>'Schleswig-Holstein'
+    );
+    
+    my %added = (
+	"PLA"=>{city=>"Plattling", province=>2},
+    );
+    my %de_kfz = (
+	"A"=>{city=>"Augsburg", province=>2},
+	"AA"=>{city=>"Ostalbkreis", province=>1},
+	"AB"=>{city=>"Aschaffenburg", province=>2},
+	"ABG"=>{city=>"Altenburger Land", province=>15},
+	"AC"=>{city=>"Aachen", province=>10},
+	"AE"=>{city=>"Auerbach", province=>13},
+	"AH"=>{city=>"Ahaus ", province=>10},
+	"AIB"=>{city=>"Bad Aibling", province=>2},
+	"AIC"=>{city=>"Aichach-Friedberg", province=>2},
+	"AK"=>{city=>"Altenkirchen", province=>11},
+	"AL"=>{city=>"Altena", province=>10},
+	"ALF"=>{city=>"Alfeld (Leine)", province=>9},
+	"ALS"=>{city=>"Alsfeld", province=>7},
+	"ALZ"=>{city=>"Alzenau", province=>2},
+	"AM"=>{city=>"Amberg", province=>2},
+	"AN"=>{city=>"Ansbach", province=>2},
+	"ANA"=>{city=>"Annaberg", province=>13},
+	"ANG"=>{city=>"Angermünde", province=>4},
+	"ANK"=>{city=>"Ostvorpommern, Anklam", province=>8},
+	"AP"=>{city=>"Weimarer-Land", province=>15},
+	"APD"=>{city=>"Weimarer Land, Apolda", province=>15},
+	"AR"=>{city=>"Arnsberg", province=>10},
+	"ARN"=>{city=>"Ilm-Kreis", province=>15},
+	"ART"=>{city=>"Artern", province=>15},
+	"AS"=>{city=>"Amberg-Sulzbach", province=>2},
+	"ASD"=>{city=>"Aschendorf-Hümmling", province=>9},
+	"ASL"=>{city=>"Aschersleben", province=>14},
+	"ASZ"=>{city=>"Aue-Schwarzenberg", province=>13},
+	"AT"=>{city=>"Altentreptow", province=>8},
+	"AU"=>{city=>"Aue", province=>13},
+	"AUR"=>{city=>"Aurich", province=>9},
+	"AW"=>{city=>"Ahrweiler", province=>11},
+	"AZ"=>{city=>"Alzey", province=>11},
+	"AZE"=>{city=>"Anhalt-Zerbst", province=>14},
+	"AÖ"=>{city=>"Altötting", province=>2},
+	"B"=>{city=>"Berlin", province=>"3"},
+	"BA"=>{city=>"Bamberg", province=>2},
+	"BAD"=>{city=>"Baden-Baden", province=>1},
+	"BAR"=>{city=>"Barnim", province=>4},
+	"BB"=>{city=>"Böblingen", province=>1},
+	"BBG"=>{city=>"Bernburg", province=>14},
+	"BC"=>{city=>"Biberach", province=>1},
+	"BCH"=>{city=>"Buchen", province=>1},
+	"BE"=>{city=>"Beckum", province=>10},
+	"BED"=>{city=>"Brand-Erbisdorf", province=>13},
+	"BEI"=>{city=>"Beilngries", province=>2},
+	"BEL"=>{city=>"Belzig", province=>4},
+	"BER"=>{city=>"Bernau", province=>4},
+	"BF"=>{city=>"Burgsteinfurt", province=>10},
+	"BGD"=>{city=>"Berchtesgaden", province=>2},
+	"BGL"=>{city=>"Berchtesgadener Land", province=>2},
+	"BH"=>{city=>"Bühl", province=>1},
+	"BI"=>{city=>"Bielefeld", province=>10},
+	"BID"=>{city=>"Biedenkopf", province=>7},
+	"BIN"=>{city=>"Bingen", province=>11},
+	"BIR"=>{city=>"Birkenfeld", province=>11},
+	"BIT"=>{city=>"Bitburg", province=>11},
+	"BIW"=>{city=>"Bischofswerda", province=>13},
+	"BK"=>{city=>"Backnang", province=>1},
+	"BKS"=>{city=>"Bernkastel", province=>11},
+	"BL"=>{city=>"Zollernalbkreis", province=>1},
+	"BLB"=>{city=>"Bad Berleburg", province=>10},
+	"BLK"=>{city=>"Burgenlandkreis", province=>14},
+	"BM"=>{city=>"Erftkreis", province=>10},
+	"BN"=>{city=>"Bonn", province=>10},
+	"BNA"=>{city=>"Borna", province=>13},
+	"BO"=>{city=>"Bochum", province=>10},
+	"BOG"=>{city=>"Bogen", province=>2},
+	"BOH"=>{city=>"Bocholt", province=>10},
+	"BOR"=>{city=>"Borken", province=>10},
+	"BOT"=>{city=>"Bottrop", province=>10},
+	"BR"=>{city=>"Bruchsal", province=>1},
+	"BRA"=>{city=>"Wesermarsch", province=>9},
+	"BRB"=>{city=>"Brandenburg", province=>4},
+	"BRG"=>{city=>"Burg", province=>14},
+	"BRI"=>{city=>"Brilon", province=>10},
+	"BRK"=>{city=>"Bad Brückenau", province=>2},
+	"BRL"=>{city=>"Braunlage", province=>9},
+	"BRV"=>{city=>"Bremervörde", province=>9},
+	"BS"=>{city=>"Braunschweig", province=>9},
+	"BSB"=>{city=>"Bersenbrück", province=>9},
+	"BSK"=>{city=>"Beeskow", province=>4},
+	"BT"=>{city=>"Bayreuth", province=>2},
+	"BTF"=>{city=>"Bitterfeld", province=>14},
+	"BU"=>{city=>"Burgdorf", province=>9},
+	"BUL"=>{city=>"Burglengenfeld", province=>2},
+	"BZ"=>{city=>"Bautzen", province=>13},
+	"BZA"=>{city=>"Bergzabern", province=>11},
+	"BÖ"=>{city=>"Bördekreis", province=>14},
+	"BÜD"=>{city=>"Büdingen", province=>7},
+	"BÜR"=>{city=>"Büren", province=>10},
+	"BÜS"=>{city=>"Büsingen", province=>1},
+	"BÜZ"=>{city=>"Bützow", province=>8},
+	"C"=>{city=>"Chemnitz", province=>13},
+	"CA"=>{city=>"Calau", province=>4},
+	"CAS"=>{city=>"Castrop-Rauxel", province=>10},
+	"CB"=>{city=>"Cottbus", province=>4},
+	"CE"=>{city=>"Celle", province=>9},
+	"CHA"=>{city=>"Cham", province=>2},
+	"CLP"=>{city=>"Cloppenburg", province=>9},
+	"CLZ"=>{city=>"Clausthal-Zellerfeld", province=>9},
+	"CO"=>{city=>"Coburg", province=>2},
+	"COC"=>{city=>"Cochem-Zell", province=>11},
+	"COE"=>{city=>"Coesfeld", province=>10},
+	"CR"=>{city=>"Crailsheim", province=>1},
+	"CUX"=>{city=>"Cuxhaven", province=>9},
+	"CW"=>{city=>"Calw", province=>1},
+	"D"=>{city=>"Düsseldorf", province=>10},
+	"DA"=>{city=>"Darmstadt", province=>7},
+	"DAH"=>{city=>"Dachau ", province=>2},
+	"DAN"=>{city=>"Lüchow-Dannenberg", province=>9},
+	"DAU"=>{city=>"Daun", province=>11},
+	"DBR"=>{city=>"Bad Doberan", province=>8},
+	"DD"=>{city=>"Dresden", province=>13},
+	"DE"=>{city=>"Dessau", province=>14},
+	"DEG"=>{city=>"Deggendorf", province=>2},
+	"DEL"=>{city=>"Delmenhorst", province=>9},
+	"DGF"=>{city=>"Dingolfing-Landau", province=>2},
+	"DH"=>{city=>"Diepholz", province=>9},
+	"DI"=>{city=>"Dieburg", province=>7},
+	"DIL"=>{city=>"Dillenburg", province=>7},
+	"DIN"=>{city=>"Dinslaken", province=>10},
+	"DIZ"=>{city=>"Diez", province=>11},
+	"DKB"=>{city=>"Dinkelsbühl", province=>2},
+	"DL"=>{city=>"Döbeln", province=>13},
+	"DLG"=>{city=>"Dillingen a. d. Donau", province=>2},
+	"DM"=>{city=>"Demmin", province=>8},
+	"DN"=>{city=>"Düren", province=>10},
+	"DO"=>{city=>"Dortmund", province=>10},
+	"DON"=>{city=>"Donau-Ries", province=>2},
+	"DS"=>{city=>"Donaueschingen", province=>1},
+	"DT"=>{city=>"Detmold", province=>10},
+	"DU"=>{city=>"Duisburg", province=>10},
+	"DUD"=>{city=>"Duderstadt", province=>9},
+	"DW"=>{city=>"Weißeritzkreis", province=>13},
+	"DZ"=>{city=>"Delitzsch", province=>13},
+	"DÜW"=>{city=>"Bad Dürkheim", province=>11},
+	"E"=>{city=>"Essen", province=>10},
+	"EA"=>{city=>"Eisenach, Stadt", province=>15},
+	"EB"=>{city=>"Eilenburg", province=>13},
+	"EBE"=>{city=>"Ebersberg", province=>2},
+	"EBN"=>{city=>"Ebern", province=>2},
+	"EBS"=>{city=>"Ebermannstadt", province=>2},
+	"ECK"=>{city=>"Eckernförde", province=>16},
+	"ED"=>{city=>"Erding", province=>2},
+	"EE"=>{city=>"Elbe-Elster", province=>4},
+	"EF"=>{city=>"Erfurt", province=>15},
+	"EG"=>{city=>"Eggenfelden", province=>2},
+	"EH"=>{city=>"Eisenhüttenstadt", province=>4},
+	"EHI"=>{city=>"Ehingen", province=>1},
+	"EI"=>{city=>"Eichstätt", province=>2},
+	"EIC"=>{city=>"Eichsfeld", province=>15},
+	"EIH"=>{city=>"Eichstätt-Kreis", province=>2},
+	"EIL"=>{city=>"Eisleben", province=>14},
+	"EIN"=>{city=>"Einbeck", province=>9},
+	"EIS"=>{city=>"Saale-Holzlandkreis, Eisenberg", province=>15},
+	"EL"=>{city=>"Emsland", province=>9},
+	"EM"=>{city=>"Emmendingen", province=>1},
+	"EMD"=>{city=>"Emden", province=>9},
+	"EMS"=>{city=>"Rhein-Lahn-Kreis", province=>11},
+	"EN"=>{city=>"Ennepe-Ruhr-Kreis", province=>10},
+	"ER"=>{city=>"Erlangen", province=>2},
+	"ERB"=>{city=>"Odenwaldkreis", province=>7},
+	"ERH"=>{city=>"Erlangen-Höchstadt", province=>2},
+	"ERK"=>{city=>"Erkelenz", province=>10},
+	"ES"=>{city=>"Esslingen", province=>1},
+	"ESA"=>{city=>"Eisenach", province=>15},
+	"ESB"=>{city=>"Eschenbach i.d.Oberpfalz", province=>2},
+	"ESW"=>{city=>"Werra-Meißner-Kreis", province=>7},
+	"EU"=>{city=>"Euskirchen", province=>10},
+	"EUT"=>{city=>"Eutin", province=>16},
+	"EW"=>{city=>"Eberswalde", province=>4},
+	"F"=>{city=>"Frankfurt am Main", province=>7},
+	"FAL"=>{city=>"Fallingbostel", province=>9},
+	"FB"=>{city=>"Wetteraukreis", province=>7},
+	"FD"=>{city=>"Fulda", province=>7},
+	"FDB"=>{city=>"Friedberg", province=>2},
+	"FDS"=>{city=>"Freudenstadt", province=>1},
+	"FEU"=>{city=>"Feuchtwangen", province=>2},
+	"FF"=>{city=>"Frankfurt / Oder", province=>4},
+	"FFB"=>{city=>"Fürstenfeldbruck", province=>2},
+	"FG"=>{city=>"Freiberg", province=>13},
+	"FH"=>{city=>"Frankfurt / Main-Höchst", province=>7},
+	"FI"=>{city=>"Finsterwalde", province=>4},
+	"FKB"=>{city=>"Frankenberg", province=>7},
+	"FL"=>{city=>"Flensburg", province=>16},
+	"FLÖ"=>{city=>"Flöha", province=>13},
+	"FN"=>{city=>"Bodenseekreis", province=>1},
+	"FO"=>{city=>"Forchheim", province=>2},
+	"FOR"=>{city=>"Forst", province=>4},
+	"FR"=>{city=>"Freiburg", province=>1},
+	"FRG"=>{city=>"Freyung-Grafenau", province=>2},
+	"FRI"=>{city=>"Friesland", province=>9},
+	"FRW"=>{city=>"Bad Freienwalde", province=>4},
+	"FS"=>{city=>"Freising", province=>2},
+	"FT"=>{city=>"Frankenthal", province=>11},
+	"FTL"=>{city=>"Freital", province=>13},
+	"FW"=>{city=>"Fürstenwalde", province=>4},
+	"FZ"=>{city=>"Fritzlar", province=>7},
+	"FÜ"=>{city=>"Fürth", province=>2},
+	"FÜS"=>{city=>"Füssen", province=>2},
+	"G"=>{city=>"Gera", province=>15},
+	"GA"=>{city=>"Gardelegen", province=>14},
+	"GAN"=>{city=>"Bad Gandersheim", province=>9},
+	"GAP"=>{city=>"Garmisch-Partenkirchen", province=>2},
+	"GC"=>{city=>"Chemnitzer Land", province=>13},
+	"GD"=>{city=>"Schwäbisch Gmünd", province=>1},
+	"GDB"=>{city=>"Gadebusch", province=>8},
+	"GE"=>{city=>"Gelsenkirchen", province=>10},
+	"GEL"=>{city=>"Geldern", province=>10},
+	"GEM"=>{city=>"Gemünden a.Main", province=>2},
+	"GEO"=>{city=>"Gerolzhofen", province=>2},
+	"GER"=>{city=>"Germersheim", province=>11},
+	"GF"=>{city=>"Gifhorn", province=>9},
+	"GG"=>{city=>"Groß-Gerau", province=>7},
+	"GHA"=>{city=>"Geithain", province=>13},
+	"GHC"=>{city=>"Gräfenhainichen", province=>14},
+	"GI"=>{city=>"Gießen", province=>7},
+	"GK"=>{city=>"Geilenkirchen-Heinsberg", province=>10},
+	"GL"=>{city=>"Rheinisch-Bergischer Kreis", province=>10},
+	"GLA"=>{city=>"Gladbeck", province=>10},
+	"GM"=>{city=>"Oberbergischer Kreis", province=>10},
+	"GMN"=>{city=>"Grimmen", province=>8},
+	"GN"=>{city=>"Gelnhausen", province=>7},
+	"GNT"=>{city=>"Genthin", province=>14},
+	"GOA"=>{city=>"St. Goar", province=>11},
+	"GOH"=>{city=>"St. Goarshausen", province=>11},
+	"GP"=>{city=>"Göppingen", province=>1},
+	"GR"=>{city=>"Görlitz", province=>13},
+	"GRA"=>{city=>"Grafenau", province=>2},
+	"GRH"=>{city=>"Großenhain", province=>13},
+	"GRI"=>{city=>"Griesbach i. Rottal", province=>2},
+	"GRM"=>{city=>"Grimma", province=>13},
+	"GRS"=>{city=>"Gransee", province=>4},
+	"GRZ"=>{city=>"Greiz", province=>15},
+	"GS"=>{city=>"Goslar", province=>9},
+	"GT"=>{city=>"Gütersloh", province=>10},
+	"GTH"=>{city=>"Gotha", province=>15},
+	"GUB"=>{city=>"Guben", province=>4},
+	"GUN"=>{city=>"Gunzenhausen", province=>2},
+	"GV"=>{city=>"Grevenbroich", province=>10},
+	"GVM"=>{city=>"Grevesmühlen", province=>8},
+	"GW"=>{city=>"Greifswald Land", province=>8},
+	"GZ"=>{city=>"Günzburg", province=>2},
+	"GÖ"=>{city=>"Göttingen", province=>9},
+	"GÜ"=>{city=>"Güstrow", province=>8},
+	"H"=>{city=>"Hannover", province=>9},
+	"HA"=>{city=>"Hagen", province=>10},
+	"HAB"=>{city=>"Hammelburg", province=>2},
+	"HAL"=>{city=>"Halle", province=>14},
+	"HAM"=>{city=>"Hamm", province=>10},
+	"HAS"=>{city=>"Haßberge", province=>2},
+	"HB"=>{city=>"Bremen", province=>5},
+	"HBN"=>{city=>"Hildburghausen", province=>15},
+	"HBS"=>{city=>"Halberstadt", province=>14},
+	"HC"=>{city=>"Hainichen", province=>13},
+	"HCH"=>{city=>"Hechingen", province=>1},
+	"HD"=>{city=>"Rhein-Neckar-Kreis", province=>1},
+	"HDH"=>{city=>"Heidenheim (Brenz)", province=>1},
+	"HDL"=>{city=>"Haldensleben", province=>14},
+	"HE"=>{city=>"Helmstedt", province=>9},
+	"HEB"=>{city=>"Hersbruck", province=>2},
+	"HEF"=>{city=>"Hersfeld-Rotenburg", province=>7},
+	"HEI"=>{city=>"Dithmarschen", province=>16},
+	"HER"=>{city=>"Herne", province=>10},
+	"HET"=>{city=>"Hettstedt", province=>14},
+	"HF"=>{city=>"Herford", province=>10},
+	"HG"=>{city=>"Hochtaunus-Kreis", province=>7},
+	"HGN"=>{city=>"Hagenow", province=>8},
+	"HGW"=>{city=>"Greifswald", province=>8},
+	"HH"=>{city=>"Hamburg", province=>6},
+	"HHM"=>{city=>"Hohenmölsen", province=>14},
+	"HI"=>{city=>"Hildesheim", province=>9},
+	"HIG"=>{city=>"Eichsfeld, Heiligenstadt", province=>15},
+	"HIP"=>{city=>"Hilpoltstein", province=>2},
+	"HL"=>{city=>"Lübeck", province=>16},
+	"HM"=>{city=>"Hameln-Pyrmont", province=>9},
+	"HMÜ"=>{city=>"Hann. Münden", province=>9},
+	"HN"=>{city=>"Heilbronn", province=>1},
+	"HO"=>{city=>"Hof", province=>2},
+	"HOG"=>{city=>"Hofgeismar", province=>7},
+	"HOH"=>{city=>"Hofheim i. Ufr.", province=>2},
+	"HOL"=>{city=>"Holzminden", province=>9},
+	"HOM"=>{city=>"Saarpfalz-Kreis", province=>12},
+	"HOR"=>{city=>"Horb", province=>1},
+	"HOT"=>{city=>"Hohenstein-Ernstthal", province=>13},
+	"HP"=>{city=>"Bergstraße", province=>7},
+	"HR"=>{city=>"Schwalm-Eder-Kreis", province=>7},
+	"HRO"=>{city=>"Rostock", province=>8},
+	"HS"=>{city=>"Heinsberg", province=>10},
+	"HSK"=>{city=>"Hochsauerland-Kreis", province=>10},
+	"HST"=>{city=>"Stralsund", province=>8},
+	"HU"=>{city=>"Main-Kinzig-Kreis", province=>7},
+	"HUS"=>{city=>"Husum", province=>16},
+	"HV"=>{city=>"Havelberg", province=>14},
+	"HVL"=>{city=>"Havelland", province=>4},
+	"HW"=>{city=>"Halle/Westfalen", province=>10},
+	"HWI"=>{city=>"Wismar", province=>8},
+	"HX"=>{city=>"Höxter", province=>10},
+	"HY"=>{city=>"Hoyerswerda", province=>13},
+	"HZ"=>{city=>"Herzberg", province=>4},
+	"HÖS"=>{city=>"Höchstadt a. d. Aisch", province=>2},
+	"HÜN"=>{city=>"Hünfeld", province=>7},
+	"IGB"=>{city=>"St. Ingbert", province=>12},
+	"IK"=>{city=>"Ilm-Kreis", province=>15},
+	"IL"=>{city=>"Ilmenau", province=>15},
+	"ILL"=>{city=>"Illertissen", province=>2},
+	"IN"=>{city=>"Ingolstadt", province=>2},
+	"IS"=>{city=>"Iserlohn", province=>10},
+	"IZ"=>{city=>"Steinburg", province=>16},
+	"J"=>{city=>"Jena", province=>15},
+	"JB"=>{city=>"Jüterbog", province=>4},
+	"JE"=>{city=>"Jessen", province=>14},
+	"JEV"=>{city=>"Jever", province=>9},
+	"JL"=>{city=>"Jerichower Land", province=>14},
+	"JÜL"=>{city=>"Jülich", province=>10},
+	"K"=>{city=>"Köln", province=>10},
+	"KA"=>{city=>"Karlsruhe", province=>1},
+	"KAR"=>{city=>"Karlstadt", province=>2},
+	"KB"=>{city=>"Waldeck-Frankenberg", province=>7},
+	"KC"=>{city=>"Kronach", province=>2},
+	"KE"=>{city=>"Kempten", province=>2},
+	"KEH"=>{city=>"Kelheim", province=>2},
+	"KEL"=>{city=>"Kehl", province=>1},
+	"KEM"=>{city=>"Kemnath", province=>2},
+	"KF"=>{city=>"Kaufbeuren", province=>2},
+	"KG"=>{city=>"Bad Kissingen", province=>2},
+	"KH"=>{city=>"Bad Kreuznach", province=>11},
+	"KI"=>{city=>"Kiel", province=>16},
+	"KIB"=>{city=>"Donnersberg-Kreis", province=>11},
+	"KK"=>{city=>"Kempen-Krefeld", province=>10},
+	"KL"=>{city=>"Kaiserslautern", province=>11},
+	"KLE"=>{city=>"Kleve", province=>10},
+	"KLZ"=>{city=>"Klötze", province=>14},
+	"KM"=>{city=>"Kamenz", province=>13},
+	"KN"=>{city=>"Konstanz", province=>1},
+	"KO"=>{city=>"Koblenz", province=>11},
+	"KR"=>{city=>"Krefeld", province=>10},
+	"KRU"=>{city=>"Krumbach", province=>2},
+	"KS"=>{city=>"Kassel", province=>7},
+	"KT"=>{city=>"Kitzingen", province=>2},
+	"KU"=>{city=>"Kulmbach", province=>2},
+	"KUS"=>{city=>"Kusel", province=>11},
+	"KW"=>{city=>"Königs-Wusterhausen", province=>4},
+	"KY"=>{city=>"Kyritz", province=>4},
+	"KYF"=>{city=>"Kyffhäuserkreis", province=>15},
+	"KÖN"=>{city=>"Bad Königshofen i. Grabfeld", province=>2},
+	"KÖT"=>{city=>"Köthen", province=>14},
+	"KÖZ"=>{city=>"Kötzting", province=>2},
+	"KÜN"=>{city=>"Hohenlohekreis", province=>1},
+	"L"=>{city=>"Leipzig / Leipziger Land", province=>13},
+	"LA"=>{city=>"Landshut", province=>2},
+	"LAN"=>{city=>"Landau a.d.Isar", province=>2},
+	"LAT"=>{city=>"Lauterbach", province=>7},
+	"LAU"=>{city=>"Nürnberger Land", province=>2},
+	"LB"=>{city=>"Ludwigsburg", province=>1},
+	"LBS"=>{city=>"Lobenstein", province=>15},
+	"LBZ"=>{city=>"Lübz", province=>8},
+	"LC"=>{city=>"Luckau", province=>4},
+	"LD"=>{city=>"Landau i. d. Pfalz", province=>11},
+	"LDK"=>{city=>"Lahn-Dill-Kreis", province=>7},
+	"LDS"=>{city=>"Dahme-Spreewald", province=>4},
+	"LE"=>{city=>"Lemgo", province=>10},
+	"LEO"=>{city=>"Leonberg", province=>1},
+	"LER"=>{city=>"Leer", province=>9},
+	"LEV"=>{city=>"Leverkusen", province=>10},
+	"LF"=>{city=>"Laufen", province=>2},
+	"LG"=>{city=>"Lüneburg", province=>9},
+	"LH"=>{city=>"Lüdinghausen", province=>10},
+	"LI"=>{city=>"Lindau", province=>2},
+	"LIB"=>{city=>"Bad Liebenwerda", province=>4},
+	"LIF"=>{city=>"Lichtenfels", province=>2},
+	"LIN"=>{city=>"Lingen", province=>9},
+	"LIP"=>{city=>"Lippe", province=>10},
+	"LK"=>{city=>"Lübbecke", province=>10},
+	"LL"=>{city=>"Landsberg am Lech", province=>2},
+	"LM"=>{city=>"Limburg-Weilburg", province=>7},
+	"LN"=>{city=>"Lübben", province=>4},
+	"LOH"=>{city=>"Lohr a.Main", province=>2},
+	"LOS"=>{city=>"Oder-Spree", province=>4},
+	"LP"=>{city=>"Lippstadt", province=>10},
+	"LR"=>{city=>"Lahr", province=>1},
+	"LSZ"=>{city=>"Bad Langensalza", province=>15},
+	"LU"=>{city=>"Ludwigshafen", province=>11},
+	"LUK"=>{city=>"Luckenwalde", province=>4},
+	"LWL"=>{city=>"Ludwigslust", province=>8},
+	"LÖ"=>{city=>"Lörrach", province=>1},
+	"LÖB"=>{city=>"Löbau", province=>13},
+	"LÜD"=>{city=>"Lüdenscheid, Stadt", province=>10},
+	"LÜN"=>{city=>"Lünen", province=>10},
+	"M"=>{city=>"München", province=>2},
+	"MA"=>{city=>"Mannheim", province=>1},
+	"MAB"=>{city=>"Marienberg", province=>13},
+	"MAI"=>{city=>"Mainburg", province=>2},
+	"MAK"=>{city=>"Marktredwitz", province=>2},
+	"MAL"=>{city=>"Mallersdorf", province=>2},
+	"MAR"=>{city=>"Marktheidenfeld", province=>2},
+	"MB"=>{city=>"Miesbach", province=>2},
+	"MC"=>{city=>"Malchin", province=>8},
+	"MD"=>{city=>"Magdeburg", province=>14},
+	"ME"=>{city=>"Mettmann", province=>10},
+	"MED"=>{city=>"Meldorf /Suderdithmarschen", province=>16},
+	"MEG"=>{city=>"Melsungen", province=>7},
+	"MEI"=>{city=>"Meißen", province=>13},
+	"MEK"=>{city=>"Mittlerer Erzgebirgskreis", province=>13},
+	"MEL"=>{city=>"Melle", province=>9},
+	"MEP"=>{city=>"Meppen", province=>9},
+	"MER"=>{city=>"Merseburg", province=>14},
+	"MES"=>{city=>"Meschede", province=>10},
+	"MET"=>{city=>"Mellrichstadt", province=>2},
+	"MG"=>{city=>"Mönchengladbach", province=>10},
+	"MGH"=>{city=>"Bad Mergentheim", province=>1},
+	"MGN"=>{city=>"Meiningen", province=>15},
+	"MH"=>{city=>"Mülheim an der Ruhr", province=>"Nordrhein-Westfalen."},
+	"MHL"=>{city=>"Unstrut-Hainich-Kreis, Mühlhausen", province=>15},
+	"MI"=>{city=>"Minden", province=>10},
+	"MIL"=>{city=>"Miltenberg", province=>2},
+	"MK"=>{city=>"Märkischer Kreis", province=>10},
+	"ML"=>{city=>"Mansfelder Land", province=>14},
+	"MM"=>{city=>"Memmingen", province=>2},
+	"MN"=>{city=>"Unterallgäu", province=>2},
+	"MO"=>{city=>"Moers", province=>10},
+	"MOD"=>{city=>"Marktoberdorf", province=>2},
+	"MOL"=>{city=>"Märkisch-Oderland", province=>4},
+	"MON"=>{city=>"Monschau", province=>10},
+	"MOS"=>{city=>"Neckar-Odenwald-Kreis", province=>1},
+	"MQ"=>{city=>"Merseburg-Querfurt", province=>14},
+	"MR"=>{city=>"Marburg-Biedenkopf", province=>7},
+	"MS"=>{city=>"Münster", province=>10},
+	"MSP"=>{city=>"Main-Spessart", province=>2},
+	"MST"=>{city=>"Mecklenburg-Strelitz", province=>8},
+	"MT"=>{city=>"Montabaur", province=>11},
+	"MTK"=>{city=>"Main-Taunus-Kreis", province=>7},
+	"MTL"=>{city=>"Muldentalkreis", province=>13},
+	"MW"=>{city=>"Mittweida", province=>13},
+	"MY"=>{city=>"Mayen", province=>11},
+	"MYK"=>{city=>"Mayen-Koblenz", province=>11},
+	"MZ"=>{city=>"Mainz (-Bingen)", province=>11},
+	"MZG"=>{city=>"Merzig-Saar", province=>12},
+	"MÜ"=>{city=>"Mühldorf am Inn", province=>2},
+	"MÜB"=>{city=>"Münchberg", province=>2},
+	"MÜL"=>{city=>"Müllheim", province=>1},
+	"MÜN"=>{city=>"Münsingen", province=>1},
+	"MÜR"=>{city=>"Müritz", province=>8},
+	"N"=>{city=>"Nürnberg", province=>2},
+	"NAB"=>{city=>"Nabburg", province=>2},
+	"NAI"=>{city=>"Naila", province=>2},
+	"NAU"=>{city=>"Nauen", province=>4},
+	"NB"=>{city=>"Neubrandenburg", province=>8},
+	"ND"=>{city=>"Neuburg-Schrobenhausen", province=>2},
+	"NDH"=>{city=>"Nordhausen", province=>15},
+	"NE"=>{city=>"Neuss", province=>10},
+	"NEA"=>{city=>"Neustadt a. d. Aisch", province=>2},
+	"NEB"=>{city=>"Nebra", province=>14},
+	"NEC"=>{city=>"Neustadt b.Coburg", province=>2},
+	"NEN"=>{city=>"Neunburg vorm Wald", province=>2},
+	"NES"=>{city=>"Rhön-Grabfeld", province=>2},
+	"NEU"=>{city=>"Titisee-Neustadt im Schwarzwald", province=>1},
+	"NEW"=>{city=>"Neustadt an der Waldnaab", province=>2},
+	"NF"=>{city=>"Nordfriesland", province=>16},
+	"NH"=>{city=>"Neuhaus am Rennweg", province=>15},
+	"NI"=>{city=>"Nienburg", province=>9},
+	"NIB"=>{city=>"Niebüll", province=>16},
+	"NK"=>{city=>"Neunkirchen", province=>12},
+	"NM"=>{city=>"Neumarkt", province=>2},
+	"NMB"=>{city=>"Naumburg", province=>14},
+	"NMS"=>{city=>"Neumünster", province=>16},
+	"NOH"=>{city=>"Bentheim", province=>9},
+	"NOL"=>{city=>"Niederschlesische Oberlausitz", province=>13},
+	"NOM"=>{city=>"Northeim", province=>9},
+	"NOR"=>{city=>"Norden", province=>9},
+	"NP"=>{city=>"Neuruppin", province=>4},
+	"NR"=>{city=>"Neuwied", province=>11},
+	"NRÜ"=>{city=>"Neustadt a.Rübenberge", province=>9},
+	"NT"=>{city=>"Nürtingen", province=>1},
+	"NU"=>{city=>"Neu-Ulm", province=>2},
+	"NVP"=>{city=>"Nordvorpommern", province=>8},
+	"NW"=>{city=>"Neustadt a. d. Weinstraße", province=>11},
+	"NWM"=>{city=>"Nordwestmecklenburg", province=>8},
+	"NY"=>{city=>"Niesky", province=>13},
+	"NZ"=>{city=>"Neustrelitz", province=>8},
+	"NÖ"=>{city=>"Nördlingen", province=>2},
+	"OA"=>{city=>"Oberallgäu", province=>2},
+	"OAL"=>{city=>"Ostallgäu", province=>2},
+	"OB"=>{city=>"Oberhausen", province=>10},
+	"OBB"=>{city=>"Obernburg a. Main", province=>2},
+	"OBG"=>{city=>"Osterburg", province=>14},
+	"OC"=>{city=>"Oschersleben", province=>14},
+	"OCH"=>{city=>"Ochsenfurt", province=>2},
+	"OD"=>{city=>"Stormarn", province=>16},
+	"OE"=>{city=>"Olpe", province=>10},
+	"OF"=>{city=>"Offenbach", province=>7},
+	"OG"=>{city=>"Ortenaukreis", province=>1},
+	"OH"=>{city=>"Ostholstein", province=>16},
+	"OHA"=>{city=>"Osterode am Harz", province=>9},
+	"OHV"=>{city=>"Oberhavel", province=>4},
+	"OHZ"=>{city=>"Osterholz-Scharmbeck", province=>9},
+	"OK"=>{city=>"Ohre-Kreis", province=>14},
+	"OL"=>{city=>"Oldenburg", province=>9},
+	"OLD"=>{city=>"Oldenburg/Holstein", province=>16},
+	"OP"=>{city=>"Opladen", province=>10},
+	"OPR"=>{city=>"Ostprignitz-Ruppin", province=>4},
+	"OR"=>{city=>"Oranienburg", province=>4},
+	"OS"=>{city=>"Osnabrück", province=>9},
+	"OSL"=>{city=>"Oberspreewald-Lausitz", province=>4},
+	"OTT"=>{city=>"Otterndorf", province=>9},
+	"OTW"=>{city=>"Ottweiler", province=>12},
+	"OVI"=>{city=>"Oberviechtach", province=>2},
+	"OVL"=>{city=>"Obervogtland", province=>13},
+	"OVP"=>{city=>"Ostvorpommern", province=>8},
+	"OZ"=>{city=>"Oschatz", province=>13},
+	"ÖHR"=>{city=>"Öhringen", province=>1},
+	"P"=>{city=>"Potsdam", province=>4},
+	"PA"=>{city=>"Passau", province=>2},
+	"PAF"=>{city=>"Pfaffenhofen", province=>2},
+	"PAN"=>{city=>"Rottal-Inn", province=>2},
+	"PAR"=>{city=>"Parsberg", province=>2},
+	"PB"=>{city=>"Paderborn", province=>10},
+	"PCH"=>{city=>"Parchim", province=>8},
+	"PE"=>{city=>"Peine", province=>9},
+	"PEG"=>{city=>"Pegnitz", province=>2},
+	"PER"=>{city=>"Perleberg", province=>4},
+	"PF"=>{city=>"Pforzheim / Enzkreis", province=>1},
+	"PI"=>{city=>"Pinneberg", province=>16},
+	"PIR"=>{city=>"Sächsische Schweiz", province=>13},
+	"PK"=>{city=>"Pritzwalk", province=>4},
+	"PL"=>{city=>"Plauen", province=>13},
+	"PLÖ"=>{city=>"Plön", province=>16},
+	"PM"=>{city=>"Potsdam-Mittelmark", province=>4},
+	"PN"=>{city=>"Pößneck", province=>15},
+	"PR"=>{city=>"Prignitz", province=>4},
+	"PRÜ"=>{city=>"Prüm", province=>11},
+	"PS"=>{city=>"Pirmasens / Südwestpfalz", province=>11},
+	"PW"=>{city=>"Pasewalk", province=>8},
+	"PZ"=>{city=>"Prenzlau", province=>4},
+	"QFT"=>{city=>"Querfurt", province=>14},
+	"QLB"=>{city=>"Quedlinburg", province=>14},
+	"R"=>{city=>"Regensburg", province=>2},
+	"RA"=>{city=>"Rastatt", province=>1},
+	"RC"=>{city=>"Reichenbach", province=>13},
+	"RD"=>{city=>"Rendsburg-Eckernförde", province=>16},
+	"RDG"=>{city=>"Ribnitz-Damgarten", province=>8},
+	"RE"=>{city=>"Recklinghausen", province=>10},
+	"REG"=>{city=>"Regen", province=>2},
+	"REH"=>{city=>"Rehau", province=>2},
+	"REI"=>{city=>"Bad Reichenhall", province=>2},
+	"RG"=>{city=>"Großenhain", province=>13},
+	"RH"=>{city=>"Roth", province=>2},
+	"RI"=>{city=>"Rinteln", province=>9},
+	"RID"=>{city=>"Riedenburg", province=>2},
+	"RIE"=>{city=>"Riesa", province=>13},
+	"RL"=>{city=>"Rochlitz", province=>13},
+	"RM"=>{city=>"Röbel", province=>8},
+	"RN"=>{city=>"Rathenow", province=>4},
+	"RO"=>{city=>"Rosenheim", province=>2},
+	"ROD"=>{city=>"Roding", province=>2},
+	"ROF"=>{city=>"Rotenburg/Fulda", province=>7},
+	"ROK"=>{city=>"Rockenhausen", province=>11},
+	"ROL"=>{city=>"Rottenburg a. d. Laaber", province=>2},
+	"ROS"=>{city=>"Rostock-Kreis", province=>8},
+	"ROT"=>{city=>"Rothenburg o.d.Tauber", province=>2},
+	"ROW"=>{city=>"Rotenburg (Wümme)", province=>9},
+	"RS"=>{city=>"Remscheid", province=>10},
+	"RSL"=>{city=>"Roßlau", province=>14},
+	"RT"=>{city=>"Reutlingen", province=>1},
+	"RU"=>{city=>"Rudolstadt", province=>15},
+	"RV"=>{city=>"Ravensburg", province=>1},
+	"RW"=>{city=>"Rottweil", province=>1},
+	"RY"=>{city=>"Rheydt", province=>10},
+	"RZ"=>{city=>"Herzogtum Lauenburg", province=>16},
+	"RÜD"=>{city=>"Rheingau-Taunus-Kreis", province=>7},
+	"RÜG"=>{city=>"Rügen", province=>8},
+	"S"=>{city=>"Stuttgart", province=>1},
+	"SAB"=>{city=>"Saarburg", province=>11},
+	"SAD"=>{city=>"Schwandorf in Bayern", province=>2},
+	"SAN"=>{city=>"Stadtsteinach", province=>2},
+	"SAW"=>{city=>"Altmarkkreis Salzwedel", province=>14},
+	"SB"=>{city=>"Saarbrücken", province=>12},
+	"SBG"=>{city=>"Strasburg", province=>8},
+	"SBK"=>{city=>"Schönebeck", province=>"Sachsen Anhalt"},
+	"SC"=>{city=>"Schwabach", province=>2},
+	"SCZ"=>{city=>"Schleiz", province=>15},
+	"SDH"=>{city=>"Sondershausen", province=>15},
+	"SDL"=>{city=>"Stendal", province=>14},
+	"SDT"=>{city=>"Schwedt", province=>4},
+	"SE"=>{city=>"Bad Segeberg", province=>16},
+	"SEB"=>{city=>"Sebnitz", province=>13},
+	"SEE"=>{city=>"Seelow", province=>4},
+	"SEF"=>{city=>"Scheinfeld", province=>2},
+	"SEL"=>{city=>"Selb", province=>2},
+	"SF"=>{city=>"Sonthofen", province=>2},
+	"SFA"=>{city=>"Soltau-Fallingbostel", province=>9},
+	"SFB"=>{city=>"Senftenberg", province=>4},
+	"SFT"=>{city=>"Staßfurt", province=>14},
+	"SG"=>{city=>"Solingen", province=>10},
+	"SGH"=>{city=>"Sangerhausen", province=>14},
+	"SHA"=>{city=>"Schwäbisch Hall", province=>1},
+	"SHG"=>{city=>"Schaumburg", province=>9},
+	"SHK"=>{city=>"Saale-Holzland-Kreis", province=>15},
+	"SHL"=>{city=>"Suhl", province=>15},
+	"SI"=>{city=>"Siegen", province=>10},
+	"SIG"=>{city=>"Sigmaringen", province=>1},
+	"SIM"=>{city=>"Rhein-Hunsrück-Kreis", province=>11},
+	"SK"=>{city=>"Saalkreis", province=>14},
+	"SL"=>{city=>"Schleswig-Flensburg", province=>16},
+	"SLE"=>{city=>"Schleiden", province=>10},
+	"SLF"=>{city=>"Saalfeld-Rudolstadt", province=>15},
+	"SLG"=>{city=>"Saulgau", province=>1},
+	"SLN"=>{city=>"Schmölln", province=>15},
+	"SLS"=>{city=>"Saarlouis", province=>12},
+	"SLZ"=>{city=>"Bad Salzungen", province=>15},
+	"SLÜ"=>{city=>"Schlüchtern", province=>7},
+	"SM"=>{city=>"Schmalkalden-Meiningen", province=>15},
+	"SMÜ"=>{city=>"Schwabmünchen", province=>2},
+	"SN"=>{city=>"Schwerin", province=>8},
+	"SNH"=>{city=>"Sinsheim Elsenz", province=>1},
+	"SO"=>{city=>"Soest", province=>10},
+	"SOB"=>{city=>"Schrobenhausen", province=>2},
+	"SOG"=>{city=>"Schongau", province=>2},
+	"SOK"=>{city=>"Saale-Orla-Kreis", province=>15},
+	"SOL"=>{city=>"Soltau", province=>9},
+	"SON"=>{city=>"Sonneberg", province=>15},
+	"SP"=>{city=>"Speyer", province=>11},
+	"SPB"=>{city=>"Spremberg", province=>4},
+	"SPN"=>{city=>"Spree-Neiße", province=>4},
+	"SPR"=>{city=>"Springe", province=>9},
+	"SR"=>{city=>"Straubing (-Bogen)", province=>2},
+	"SRB"=>{city=>"Strausberg", province=>4},
+	"SRO"=>{city=>"Stadtroda", province=>15},
+	"ST"=>{city=>"Steinfurt", province=>10},
+	"STA"=>{city=>"Starnberg", province=>2},
+	"STB"=>{city=>"Sternberg", province=>8},
+	"STD"=>{city=>"Stade", province=>9},
+	"STE"=>{city=>"Staffelstein", province=>2},
+	"STH"=>{city=>"Schaumburg-Lippe", province=>9},
+	"STL"=>{city=>"Stollberg", province=>13},
+	"STO"=>{city=>"Stockach", province=>1},
+	"SU"=>{city=>"Rhein-Sieg-Kreis", province=>10},
+	"SUL"=>{city=>"Sulzbach-Rosenberg", province=>2},
+	"SW"=>{city=>"Schweinfurt", province=>2},
+	"SWA"=>{city=>"Bad Schwalbach", province=>7},
+	"SY"=>{city=>"Syke", province=>9},
+	"SZ"=>{city=>"Salzgitter", province=>9},
+	"SZB"=>{city=>"Schwarzenberg", province=>13},
+	"SÄK"=>{city=>"Säckingen", province=>1},
+	"SÖM"=>{city=>"Sömmerda", province=>15},
+	"SÜW"=>{city=>"Südliche Weinstraße", province=>11},
+	"TBB"=>{city=>"Main-Tauber-Kreis", province=>1},
+	"TE"=>{city=>"Tecklenburg", province=>10},
+	"TET"=>{city=>"Teterow", province=>8},
+	"TF"=>{city=>"Teltow-Fläming", province=>4},
+	"TG"=>{city=>"Torgau", province=>13},
+	"TIR"=>{city=>"Tirschenreuth", province=>2},
+	"TO"=>{city=>"Torgau-Oschatz", province=>13},
+	"TP"=>{city=>"Templin", province=>4},
+	"TR"=>{city=>"Trier", province=>11},
+	"TS"=>{city=>"Traunstein", province=>2},
+	"TT"=>{city=>"Tettnang", province=>1},
+	"TUT"=>{city=>"Tuttlingen", province=>1},
+	"TÖL"=>{city=>"Bad Tölz-Wolfratshausen", province=>2},
+	"TÖN"=>{city=>"Tönning", province=>16},
+	"TÜ"=>{city=>"Tübingen", province=>1},
+	"UE"=>{city=>"Uelzen", province=>9},
+	"UEM"=>{city=>"Ueckermünde", province=>8},
+	"UER"=>{city=>"Uecker-Randow", province=>8},
+	"UFF"=>{city=>"Uffenheim", province=>2},
+	"UH"=>{city=>"Unstrut-Hainich-Kreis", province=>15},
+	"UL"=>{city=>"Ulm / Alb-Donau-Kreis", province=>1},
+	"UM"=>{city=>"Uckermark", province=>4},
+	"UN"=>{city=>"Unna", province=>10},
+	"USI"=>{city=>"Usingen", province=>7},
+	"ÜB"=>{city=>"Überlingen", province=>1},
+	"V"=>{city=>"Vogtlandkreis", province=>13},
+	"VAI"=>{city=>"Vaihingen", province=>1},
+	"VB"=>{city=>"Vogelsbergkreis", province=>7},
+	"VEC"=>{city=>"Vechta", province=>9},
+	"VER"=>{city=>"Verden", province=>9},
+	"VIB"=>{city=>"Vilsbiburg", province=>2},
+	"VIE"=>{city=>"Viersen", province=>10},
+	"VIT"=>{city=>"Viechtach", province=>2},
+	"VK"=>{city=>"Völklingen", province=>12},
+	"VL"=>{city=>"Villingen", province=>1},
+	"VOF"=>{city=>"Vilshofen", province=>2},
+	"VOH"=>{city=>"Vohenstrauß", province=>2},
+	"VS"=>{city=>"Schwarzwald-Baar-Kreis", province=>1},
+	"W"=>{city=>"Wuppertal", province=>10},
+	"WA"=>{city=>"Waldeck", province=>7},
+	"WAF"=>{city=>"Warendorf", province=>10},
+	"WAK"=>{city=>"Wartburgkreis", province=>15},
+	"WAM"=>{city=>"Westlicher Altmark-Kreis", province=>14},
+	"WAN"=>{city=>"Wanne-Eickel", province=>10},
+	"WAR"=>{city=>"Warburg", province=>10},
+	"WAT"=>{city=>"Wattenscheid", province=>10},
+	"WB"=>{city=>"Wittenberg", province=>14},
+	"WBS"=>{city=>"Worbis", province=>15},
+	"WD"=>{city=>"Wiedenbrück", province=>10},
+	"WDA"=>{city=>"Werdau", province=>13},
+	"WE"=>{city=>"Weimar", province=>15},
+	"WEB"=>{city=>"Westerburg-Westerwald", province=>11},
+	"WEG"=>{city=>"Wegscheid", province=>2},
+	"WEL"=>{city=>"Weilburg", province=>7},
+	"WEM"=>{city=>"Wesermünde", province=>9},
+	"WEN"=>{city=>"Weiden", province=>2},
+	"WER"=>{city=>"Wertingen", province=>2},
+	"WES"=>{city=>"Wesel", province=>10},
+	"WF"=>{city=>"Wolfenbüttel", province=>9},
+	"WG"=>{city=>"Wangen", province=>1},
+	"WHV"=>{city=>"Wilhelmshaven", province=>9},
+	"WI"=>{city=>"Wiesbaden", province=>7},
+	"WIL"=>{city=>"Wittlich", province=>11},
+	"WIS"=>{city=>"Wismar, Kreis", province=>8},
+	"WIT"=>{city=>"Witten", province=>10},
+	"WIZ"=>{city=>"Witzenhausen", province=>7},
+	"WK"=>{city=>"Wittstock", province=>4},
+	"WL"=>{city=>"Harburg", province=>9},
+	"WLG"=>{city=>"Wolgast", province=>8},
+	"WM"=>{city=>"Weilheim-Schongau", province=>2},
+	"WMS"=>{city=>"Wolmirstedt", province=>14},
+	"WN"=>{city=>"Rems-Murr-Kreis", province=>1},
+	"WND"=>{city=>"St. Wendel", province=>12},
+	"WO"=>{city=>"Worms", province=>11},
+	"WOB"=>{city=>"Wolfsburg", province=>9},
+	"WOH"=>{city=>"Wolfhagen", province=>7},
+	"WOL"=>{city=>"Wolfach", province=>1},
+	"WOR"=>{city=>"Wolfratshausen", province=>2},
+	"WOS"=>{city=>"Wolfstein", province=>2},
+	"WR"=>{city=>"Wernigerode", province=>14},
+	"WRN"=>{city=>"Waren", province=>8},
+	"WS"=>{city=>"Wasserburg a. Inn", province=>2},
+	"WSF"=>{city=>"Weißenfels", province=>14},
+	"WST"=>{city=>"Ammerland", province=>9},
+	"WSW"=>{city=>"Weißwasser", province=>13},
+	"WT"=>{city=>"Waldshut", province=>1},
+	"WTL"=>{city=>"Wittlage", province=>9},
+	"WTM"=>{city=>"Wittmund", province=>9},
+	"WUG"=>{city=>"Weißenburg-Gunzenhausen", province=>2},
+	"WUN"=>{city=>"Wunsiedel", province=>2},
+	"WUR"=>{city=>"Wurzen", province=>13},
+	"WW"=>{city=>"Westerwald-Kreis", province=>11},
+	"WZ"=>{city=>"Wetzlar", province=>7},
+	"WZL"=>{city=>"Wanzleben", province=>14},
+	"WÜ"=>{city=>"Würzburg", province=>2},
+	"WÜM"=>{city=>"Waldmünchen", province=>2},
+	"Z"=>{city=>"Zwickau (-Land)", province=>13},
+	"ZE"=>{city=>"Zerbst", province=>14},
+	"ZEL"=>{city=>"Zell / Mosel", province=>11},
+	"ZI"=>{city=>"Löbau-Zittau", province=>13},
+	"ZIG"=>{city=>"Ziegenhain", province=>7},
+	"ZP"=>{city=>"Zschopau", province=>13},
+	"ZR"=>{city=>"Zeulenroda", province=>15},
+	"ZS"=>{city=>"Zossen", province=>4},
+	"ZW"=>{city=>"Zweibrücken", province=>11},
+	"ZZ"=>{city=>"Zeitz", province=>14}
+    );
+    my ($key) = @_;
+    $key = $trans{lc $key} if defined $trans{lc $key};
+    my %location;
+    $key = uc($key);
+    my %base = %de_kfz;
+    if (defined $base{$key}) {
+	$location{country} = 'Germany';
+	$location{city} = $base{$key}{'city'};
+	$location{province} = $province{$base{$key}->{province}};
+    } else {
+	#Irssi::print $key;
+	foreach (keys %base) {
+	    my $city = $base{$_}{city};
+	    #$city = lc($city);
+	    #$city =~ s/ä/ae/g;
+	    #$city =~ s/ü/ue/g;
+	    #$city =~ s/ö/oe/g;
+	    #$city = uc($city);
+	    if ($city =~ /(^| |-)$key( |-|$)/i) {
+		$location{country} = 'Germany';
+		$location{city} = $base{$_}{city};
+		$location{province} = $province{$base{$_}{province}};
+	    }
+	}
+    }
+    return %location;
+}
+
+
+foreach ((352, 315)) {
+    Irssi::signal_add_first('event '.$_, 'process_reply');
+}
+
+sub pre_unload { save_cache(); }
+
+Irssi::signal_add('message join', 'event_message_join');
+Irssi::signal_add('query created', 'event_query_created');
+Irssi::signal_add('setup saved', 'save_cache');
+
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_background', 1);
+
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_cache_filename', Irssi::get_irssi_dir()."/localize_cache");
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_trace_cmd', "/usr/sbin/traceroute -q 1 -w 2 -I");
+Irssi::settings_add_int($IRSSI{'name'}, 'localize_trace_distance', 3);
+
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_auto_localize_channel_list', '.*');
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_auto_localize_on_join', 0);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_auto_localize_on_query', 1);
+Irssi::settings_add_int($IRSSI{'name'}, 'localize_auto_localize_maxrequests', 5);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_get_coordinates', 0);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_use_databases', 1);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_use_traceroute', 1);
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_show_message', 1);
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_ipatlas_nocache', '.*\.dip\.t-dialin\.net');
+
+Irssi::settings_add_bool($IRSSI{'name'}, 'localize_xplanet_show_map', 0);
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_xplanet_temp_file', Irssi::get_irssi_dir()."/localize_xplanet_temp");
+Irssi::settings_add_str($IRSSI{'name'}, 'localize_xplanet_cmd', "xplanet -w");
+
+Irssi::theme_register([
+    auto_localize => '%B`->%n $0 ($1) has been localized in $2, $3, $4 %B[%n$5%B]%n',
+]);
+
+Irssi::command_bind('localize', 'cmd_localize');
+
+load_cache();
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /localize -h for help';
diff --git a/scripts/log2ansi.pl b/scripts/log2ansi.pl
new file mode 100644
index 0000000..42e92d4
--- /dev/null
+++ b/scripts/log2ansi.pl
@@ -0,0 +1,253 @@
+#! /usr/bin/perl
+#
+#    $Id: log2ansi,v 1.9 2004/03/08 21:31:26 peder Exp $
+#
+# Copyright (C) 2002, 2003 by Peder Stray <peder@ninja.no>
+#
+#    This is a standalone perl program and not intended to run within
+#    irssi, it will complain if you try to...
+
+use strict;
+use Getopt::Long;
+use vars qw(%ansi %base %attr %old);
+use vars qw(@bols @nums @mirc @irssi @mc @mh @ic @ih);
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.9 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'log2ansi',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/log2ansi',
+          license     => 'GPL',
+          description => 'convert mirc color and irssi interal formatting to ansi colors, useful for log filtering',
+         );
+
+if (__PACKAGE__ =~ /^Irssi/) {
+    # we are within irssi... die!
+    Irssi::print("%RWarning:%n log2ansi is should not run from within irssi");
+    die "Suicide to prevent loading\n";
+}
+
+my $clear = 0;
+
+GetOptions(
+	   '--clear!' => \$clear,
+	  );
+
+for (@ARGV) {
+    if (/\.bz2$/) {
+	$_ = "bunzip2 < '$_' |";
+    } elsif (/\.gz$/) {
+        $_ = "gunzip < '$_' |";
+    }
+}
+
+my($n) = 0;
+%ansi = map { $_ => $n++ } split //, 'krgybmcw';
+
+@bols = qw(bold underline blink reverse fgh bgh);
+@nums = qw(fgc bgc);
+
+@base{@bols} = qw(1 4 5 7 1 5);
+@base{@nums} = qw(30 40);
+
+@mirc  = split //, 'WkbgRrmyYGcCBMKw';
+@irssi = split //, 'kbgcrmywKBGCRMYW';
+
+@mc = map {$ansi{lc $_}} @mirc;
+@mh = map {$_ eq uc $_} @mirc;
+
+@ic = map {$ansi{lc $_}} @irssi;
+@ih = map {$_ eq uc $_} @irssi;
+
+sub defc {
+    my($attr) = shift || \%attr;
+    $attr->{fgc} = $attr->{bgc} = -1;
+    $attr->{fgh} = $attr->{bgh} = 0;
+}
+
+sub defm {
+    my($attr) = shift || \%attr;
+    $attr->{bold} = $attr->{underline} = 
+      $attr->{blink} = $attr->{reverse} = 0;
+}
+
+sub def {
+    my($attr) = shift || \%attr;
+    defc($attr);
+    defm($attr);
+}
+
+sub setold {
+    %old = %attr;
+}
+
+sub emit {
+    my($str) = @_;
+    my(%elem,@elem);
+
+    my(@clear) = ( (grep { $old{$_} > $attr{$_} } @bols),
+		   (grep { $old{$_}>=0 && $attr{$_}<0 } @nums)
+		 );
+
+    $elem{0}++ if @clear;
+
+    for (@bols) {
+	$elem{$base{$_}}++ 
+	  if $attr{$_} && ($old{$_} != $attr{$_} || $elem{0});
+    }
+
+    for (@nums) {
+	$elem{$base{$_}+$attr{$_}}++
+	  if $attr{$_} >= 0 && ($old{$_} != $attr{$_} || $elem{0});
+    }
+
+    @elem = sort {$a<=>$b} keys %elem;
+
+    if (@elem) {
+	@elem = () if @elem == 1 && !$elem[0];
+	printf "\e[%sm", join ";", @elem
+	  unless $clear;
+    }
+
+    print $str;
+
+    setold;
+}
+
+while (<>) {
+    chomp;
+    def;
+    setold;
+
+    while (length) {
+	if (s/^\cB//) {
+	    # toggle bold
+	    $attr{bold} = !$attr{bold};
+	
+	} elsif (s/^\cC//) {
+	    # mirc colors
+
+	    if (/^[^\d,]/) {
+		defc;
+	    } else {
+		
+		if (s/^(\d\d?)//) {
+		    $attr{fgc} = $mc[$1 % 16];
+		    $attr{fgh} = $mh[$1 % 16];
+		}
+
+		if (s/^,//) {
+		    if (s/^(\d\d?)//) {
+			$attr{bgc} = $mc[$1 % 16];
+			$attr{bgh} = $mh[$1 % 16];
+		    } else {
+			$attr{bgc} = -1;
+			$attr{bgh} = 0;
+		    }
+		}
+	    }
+
+	} elsif (s/^\cD//) {
+	    # irssi format
+
+	    if (s/^a//) {
+		$attr{blink} = !$attr{blink};
+	    } elsif (s/^b//) {
+		$attr{underline} = !$attr{underline};
+	    } elsif (s/^c//) {
+		$attr{bold} = !$attr{bold};
+	    } elsif (s/^d//) {
+		$attr{reverse} = !$attr{reverse};
+	    } elsif (s/^e//) {
+		# indent
+	    } elsif (s/^f([^,]*),//) {
+		# indent_func
+	    } elsif (s/^g//) {
+		def;
+	    } elsif (s/^h//) {
+		# cleol
+	    } elsif (s/^i//) {
+		# monospace
+	    } else {
+		s/^(.)(.)//;
+		my($f,$b) = map { ord($_)-ord('0') } $1, $2;
+		if ($f<0) {
+#		    $attr{fgc} = -1; $attr{fgh} = 0;
+		} else {
+		    # c>7 => bold, c -= 8 if c>8
+		    $attr{fgc} = $ic[$f];
+		    $attr{fgh} = $ih[$f];
+		}
+		if ($b<0) {
+#		    $attr{bgc} = -1; $attr{bgh} = 0;
+		} else {
+		    # c>7 => blink, c -= 8
+		    $attr{bgc} = $ic[$b];
+		    $attr{bgh} = $ih[$b];
+		}
+	    }
+
+	} elsif (s/^\cF//) {
+	    # blink
+	    $attr{blink} = !$attr{blink};
+
+	} elsif (s/^\cO//) {
+	    def;
+
+	} elsif (s/^\cV//) {
+	    $attr{reverse} = !$attr{reverse};
+
+	} elsif (s/^\c[\[([^m]*)m//) {
+	    my(@ansi) = split ";", $1;
+	    my(%a);
+
+	    push @ansi, 0 unless @ansi;
+
+	    for my $code (@ansi) {
+		if ($code == 0) {
+		    def(\%a);
+		} elsif ($code == $base{bold}) {
+		    $a{bold} = 1;
+		} elsif ($code == $base{underline}) {
+		    $a{underline} = 1;
+		} elsif ($code == $base{blink}) {
+		    $a{underline} = 1;
+		} elsif ($code == $base{reverse}) {
+		    $a{reverse} = 1;
+		} elsif ($code => 30 && $code <= 37) {
+		    $a{fgc} = $code - 30;
+		} elsif ($code => 40 && $code <= 47) {
+		    $a{bgc} = $code - 40;
+		} else {
+		    $a{$code} = 1;
+		}
+	    }
+
+	    if ($a{fgc} >= 0 && $a{bold}) {
+		$a{fgh} = 1;
+		$a{bold} = 0;
+	    }
+
+	    if ($a{bgc} >= 0 && $a{blink}) {
+		$a{bgh} = 1;
+		$a{blink} = 0;
+	    }
+
+	    for my $key (keys %a) {
+		$attr{$key} = $a{$key};
+	    }
+
+	} elsif (s/^\c_//) {
+	    $attr{underline} = !$attr{underline};
+
+	} else {
+	    s/^(.[^\cB\cC\cD\cF\cO\cV\c[\c_]*)//;
+	    emit $1;
+	}
+    }
+
+    def;
+    emit "\n";
+}
diff --git a/scripts/logcompress.pl b/scripts/logcompress.pl
new file mode 100644
index 0000000..6d41362
--- /dev/null
+++ b/scripts/logcompress.pl
@@ -0,0 +1,23 @@
+# compress log files when they're rotated
+# for irssi 0.7.99 by Timo Sirainen
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.01";
+%IRSSI = (
+    authors	=> "Timo \'cras\' Sirainen",
+    contact	=> "tss\@iki.fi", 
+    name	=> "logcompress",
+    description	=> "compress logfiles then they\'re rotated",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+
+my $compressor = "bzip2 -9";
+
+sub sig_rotate {
+        Irssi::command("exec - $compressor ".$_[0]->{real_fname});
+}
+
+Irssi::signal_add('log rotated', 'sig_rotate');
diff --git a/scripts/ls.pl b/scripts/ls.pl
new file mode 100644
index 0000000..6481081
--- /dev/null
+++ b/scripts/ls.pl
@@ -0,0 +1,40 @@
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION = "0.02";
+%IRSSI = (
+    authors	=> "c0ffee",
+    contact	=> "c0ffee\@penguin-breeder.org",
+    name	=> "List nicks in channel",
+    description	=> "Use /ls <regex> to show all nicks (including ident\@host) matching regex in the current channel",
+    license	=> "Public Domain",
+    url		=> "http://www.penguin-breeder.org/irssi/",
+    changed	=> "Fri Sep 06 15:36 CEST 2002",
+);
+
+
+sub cmd_ls {
+	my ($data, $server, $channel) = @_;
+	my @nicks;
+	my $n;
+	my $nick;
+
+	if ($channel->{type} ne "CHANNEL") {
+
+		Irssi::print("Your are not on a channel");
+		return;
+
+	}
+
+	@nicks = $channel->nicks();
+
+	foreach $nick (@nicks) {
+
+		$n = $nick->{nick} . "!" . $nick->{host};
+
+		$channel->print("$n") if $n =~ /$data/i;
+		
+	}
+}
+
+Irssi::command_bind('ls','cmd_ls');
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]");
diff --git a/scripts/mail.pl b/scripts/mail.pl
new file mode 100644
index 0000000..33b3c22
--- /dev/null
+++ b/scripts/mail.pl
@@ -0,0 +1,414 @@
+$VERSION = "2.92";
+%IRSSI = (
+    authors     => "Timo Sirainen, Matti Hiljanen, Joost Vunderink, Bart Matthaei",
+    contact     => "tss\@iki.fi, matti\@hiljanen.com, joost\@carnique.nl, bart\@dreamflow.nl",
+    name        => "mail",
+    description => "Fully customizable mail counter statusbar item with multiple mailbox and multiple Maildir support",
+    license     => "Public Domain",
+    url         => "http://irssi.org, http://scripts.irssi.de",
+);
+
+# Mail counter statusbar item
+# for irssi 0.8.1 by Timo Sirainen
+#
+# Maildir support added by Matti Hiljanen
+# Multiple Maildir/mbox and customization support added by Joost Vunderink
+# OLD mailtreatment switch added by Bart Matthaei.
+# Improved some regexps in maildirmode by Bart Matthaei.
+# Maildirmode regexps (hopefully) fixed for good by Matti Hiljanen. 
+#
+# You can add any number of mailboxes or Maildirs to watch for new mail in.
+# Give them any name and <name>:<count> will appear in your mail
+# statusbar item, where <count> is the number of unread messages.
+# If only 1 mailbox/Maildir is defined, the statusbar item will have the 
+# familiar form [Mail: <count>].
+# If you set mail_show_message to ON, irssi will print a message in the
+# active window whenever new mail arrives.
+#
+# Check /mailbox help for help.
+
+use Irssi::TextUI;
+
+my $maildirmode = 0; # maildir=1, file(spools)=0
+my $old_is_not_new = 0; 
+my $extprog;
+my ($last_refresh_time, $refresh_tag);
+
+# for mbox caching
+my $last_size, $last_mtime, $last_mailcount, $last_mode;
+
+# list of mailboxes
+my %mailboxes = (); 
+my %new_mails_in_box = ();
+my $nummailboxes = 0; 
+
+# the string to be stored in Irssi's mail_mailboxes setting
+my $mailboxsetting = "";
+
+sub cmd_print_help {
+  Irssi::print(
+  "MAILBOX ADD <num> <file|dir>\n".
+  "MAILBOX DEL <num>\n".
+  "MAILBOX SHOW\n\n".
+  "Statusbar item to keep track of how many (new) emails there are in ".
+  "each of your mailboxes/Maildirs.\n\n".
+  "/MAILBOX ADD <name> <file|dir>\n".
+  "    - Adds a mailbox or a Maildir to the list.\n".
+  "/MAILBOX DEL <name>\n".
+  "    - Removes mailbox or Maildir named <name> from the list.\n".
+  "/MAILBOX SHOW\n".
+  "    - Shows a list of the defined mailboxes.\n\n".
+  "Use the following commands to change the behaviour:\n\n".
+  "/SET MAILDIRMODE on|off\n".
+  "    - If maildirmode is on, the mailboxes in the list are assumed to be ".
+  "directories. Otherwise they are assumed to be spool files.\n".
+  "      Default: off.\n".
+  "/SET MAIL_OLDNOTNEW on|off\n".
+  "    - If switched on, mail marked als \"OLD\" will not be treated as new.\n".
+  "      Default: off.\n".
+  "/SET MAIL_EXT_PROGRAM <prog>\n".
+  "    - <prog> will be used to check for mail.\n".
+  "/SET MAIL_REFRESH_TIME <num>\n".
+  "    - Sets the time between checks to <num> seconds.\n      Default: 60.\n".
+  "/SET MAIL_SHOW_MESSAGE on|off\n".
+  "    - If this is on, a message will be printed in the active window ".
+  "whenever new email is received.\n      Default: off.\n".
+  "/SET MAIL_SHOW_ONLY_UNREAD on|off\n".
+  "    - If you don't want to see a mailbox if it does not contain any new ".
+  "mail, set this to on.\n      Default: on.\n" .
+  "/SET MAIL_SEPARATOR <char>\n".
+  "    - Sets the character to be printed between each mailbox.\n".
+  "      The default is a comma.\n".
+  "/SET MAIL_FORMAT <format>\n".
+  "    - Sets the format of each mailbox.\n".
+  "      Allowed variables:\n".
+  "      %%n = mailbox name\n".
+  "      %%u = number of unread mail\n".
+  "      %%r = number of read mail\n".
+  "      %%t = total amount of mail\n".
+  "      The default format is %%n:%%u/%%t.\n".
+  "\nSee also: STATUSBAR"
+  ,MSGLEVEL_CRAP);
+}
+
+sub mbox_count {
+  my $mailfile = shift;
+  my $unread = 0;
+  my $read = 0;
+  my $maildirmode=Irssi::settings_get_bool('maildir_mode');
+  my $old_is_not_new=Irssi::settings_get_bool('mail_oldnotnew');
+
+  if ($extprog ne "") {
+     $total = `$extprog`;
+     chomp $unread;
+  } else {
+    if (!$maildirmode) {
+      if (-f $mailfile) {
+        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));
+
+	# count new mails only
+	my $internal_removed = 0;
+	while (<$f>) {
+	  $unread++ if (/^From /);
+
+	  if(!$old_is_not_new) {
+	  	$unread-- if (/^Status: R/);
+	  } else {
+	  	$unread-- if (/^Status: [OR]/);
+	  }
+
+	  $read++ if (/^From /);
+
+	  # Remove folder internal data, but only once
+	  if (/^Subject: .*FOLDER INTERNAL DATA/) {
+	    if ($internal_removed == 0) {
+	      $internal_removed = 1;
+	      $read--;
+	      $unread--;
+	    }
+	  }
+	}
+	close($f);
+      }
+    } else {
+      opendir(DIR, "$mailfile/cur") or return 0;
+      while (defined(my $file = readdir(DIR))) {
+        next if $file =~ /^(.|..)$/;
+        # Maildir flags: http://cr.yp.to/proto/maildir.html
+        # My old regexps were useless if the MUA added any 
+        # non-default flags -qvr
+        # 
+        # deleted mail
+        next if $file =~ /\:.*?T.*?$/;
+	    if($old_is_not_new) {
+           # when mail gets moved from new to cur it's name _always_
+           # changes from uniq to uniq:info, even when it's still not
+           # read. I assume "old mail" means mail which hasn't been read
+           # yet but it has been "acknowledged" by the user. (it's been
+           # moved to cur) -qvr
+           if ($file =~ /\:.*?$/) {
+              $read++;
+      		  next;
+           }
+        } else {
+           if ($file =~ /\:.*?S.*?$/) {
+              $read++;
+      		  next;
+           }
+        }
+        $unread++;
+      }
+      closedir(DIR);
+
+      opendir(DIR, "$mailfile/new") or return 0;
+      while (defined(my $file = readdir(DIR))) {
+        next if $file =~ /^(.|..)$/;
+        $unread++;
+      }
+      closedir(DIR);
+    }
+  }
+
+  if ($unread eq "" || $unread < 0) {
+    $unread = 0;
+  }
+  if ($read eq "" || $read < 0) {
+    $read = 0;
+  }
+
+  $last_mailcount = $unread;
+
+  return ($unread, $read);
+}
+
+# Checks for mail and sets the statusbar item to the right string.
+# Also shows a message in the active window if that setting is set.
+sub mail {
+  my ($item, $get_size_only) = @_;
+
+  my $result;
+  my $format = Irssi::settings_get_str('mail_format');
+  my $unread = 0;
+  my $read = 0;
+  my $total = 0;
+
+  # check all mailboxes for new email
+  foreach $name (keys(%mailboxes)) {
+    my $box = $mailboxes{$name};
+    # replace "~/" at the beginning by the user's home dir
+    $box =~ s/^~\//$ENV{'HOME'}\//;
+
+    ($unread, $read) = mbox_count($box);
+    $unread = "0" if ($unread eq "");
+    $read = "0" if ($read eq "");
+    $total = $unread + $read;
+    $total = "0" if ($total eq "");
+
+    next if (Irssi::settings_get_bool('mail_show_only_unread') && $unread == 0);
+
+    if ($total eq "") { $total = 0; }
+    if (length($result) > 0) {
+      $result .= Irssi::settings_get_str('mail_separator');
+    }
+    my $string = $format;
+    $string =~ s/%n/$name/;
+    $string =~ s/%u/$unread/;
+    $string =~ s/%r/$read/;
+    $string =~ s/%t/$total/;
+    $result .= $string;
+    
+    # Show -!- You have <num> new messages in <name>.
+    # Show this only if there are any new, unread messages.
+    if (Irssi::settings_get_bool('mail_show_message') &&
+        $unread > $new_mails_in_box{$name}) {
+      $new_mails = $unread - $new_mails_in_box{$name};
+      if ($nummailboxes == 1) {
+        Irssi::print("You have $new_mails new message" . ($new_mails != 1 ? "s." : "."), MSGLEVEL_CRAP);
+      } else {
+        Irssi::print("You have $new_mails new message" . ($new_mails != 1 ? "s " : " ") . "in $name.", MSGLEVEL_CRAP);
+      }
+    }
+
+    $new_mails_in_box{$name} = $unread;
+  }
+  
+  if (length($result) == 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, $result, 1);
+  }
+}
+
+sub refresh_mail {
+  Irssi::statusbar_items_redraw('mail');
+}
+
+# Adds the mailboxes from a string. Only to be used during startup.
+sub add_mailboxes {
+  my $boxstring = $_[0];
+  my @boxes = split(/,/, $boxstring);
+
+  foreach $dbox(@boxes) {
+    my $name = $dbox;
+    $name = substr($dbox, 0, index($dbox, '='));
+    my $box = $dbox;
+    $box = substr($dbox, index($dbox, '=') + 1, length($dbox));
+    addmailbox($name, $box);
+  }
+}
+
+sub addmailbox {
+  my ($name, $box) = @_;
+
+  if (exists($mailboxes{$name})) {
+    if ($box eq $mailboxes{$name}) {
+      Irssi::print("Mailbox $name already set to $box", MSGLEVEL_CRAP);
+    } else {
+      Irssi::print("Mailbox $name changed to $box", MSGLEVEL_CRAP);
+      $new_mails_in_box{$name} = 0;
+    }
+  } else {
+    Irssi::print("Mailbox $name added: " . $box, MSGLEVEL_CRAP);
+    $new_mails_in_box{$name} = 0;
+    $nummailboxes++;
+  }
+  $mailboxes{$name} = $box;
+}
+
+sub delmailbox {
+  my $name = $_[0];
+
+  if (exists($mailboxes{$name})) {
+    Irssi::print("Mailbox $name removed", MSGLEVEL_CRAP);
+    delete($mailboxes{$name});
+    delete($new_mails_in_box{$name});
+    $nummailboxes--;
+  } else {
+    Irssi::print("No such mailbox $name. Use /mailbox show to see a list.", MSGLEVEL_CRAP);
+  }
+}
+
+sub update_settings_string {
+  my $setting;
+
+  foreach $name (keys(%mailboxes)) {
+    $setting .= $name . "=" . $mailboxes{$name} . ",";
+  }
+
+  Irssi::settings_set_str("mail_mailboxes", $setting);
+}
+
+sub cmd_addmailbox {
+  my ($name, $box) = split(/ +/, $_[0]);
+
+  if ($name eq "" || $box eq "") {
+    Irssi::print("Use /mailbox add <name> <mailbox> to add a mailbox.", MSGLEVEL_CRAP);
+    return;
+  }
+
+  addmailbox($name, $box);
+  update_settings_string();
+  refresh_mail();
+}
+
+sub cmd_delmailbox {
+  my $name = $_[0];
+
+  if ($name eq "") {
+    Irssi::print("Use /mailbox del <name> to delete a mailbox.", MSGLEVEL_CRAP);
+    return;
+  }
+
+  delmailbox($name);
+  update_settings_string();
+  refresh_mail();
+}
+
+sub cmd_showmailboxes {
+  if ($nummailboxes == 0) {
+    Irssi::print("No mailboxes defined.", MSGLEVEL_CRAP);
+    return;
+  }
+  Irssi::print("Mailboxes:", MSGLEVEL_CRAP);
+  foreach $box (keys(%mailboxes)) {
+    Irssi::print("$box: " . $mailboxes{$box}, MSGLEVEL_CRAP);
+  }
+}
+
+sub cmd_mailboxes {
+  my ($data, $server, $item) = @_;
+  if ($data =~ m/^[(show)|(add)|(del)]/i ) {
+    Irssi::command_runsub ('mailbox', $data, $server, $item);
+  }
+  else {
+    Irssi::print("Use /mailbox (show|add|del).")
+  }
+}
+
+sub init_mailboxes {
+  # Add the mailboxes at startup of the script
+  my $boxes = Irssi::settings_get_str('mail_mailboxes');
+  if (length($boxes) > 0) {
+    add_mailboxes($boxes);
+  }
+}
+
+sub read_settings {
+  $extprog = Irssi::settings_get_str('mail_ext_program');
+  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;
+  refresh_mail;
+}
+
+
+if (!$maildirmode) {
+  my $default = "1=" . $ENV{'MAIL'} . ",";
+  Irssi::settings_add_str('misc', 'mail_mailboxes', $default);
+} else {
+  my $default = "1=~/Maildir/,";
+  Irssi::settings_add_str('misc', 'mail_mailboxes', $default);
+}
+
+Irssi::command_bind('mailbox show', 'cmd_showmailboxes');
+Irssi::command_bind('mailbox add', 'cmd_addmailbox');
+Irssi::command_bind('mailbox del', 'cmd_delmailbox');
+Irssi::command_bind('mailbox help', 'cmd_print_help');
+Irssi::command_bind('mailbox', 'cmd_mailboxes');
+
+Irssi::settings_add_str('misc', 'mail_ext_program', '');
+Irssi::settings_add_int('misc', 'mail_refresh_time', 60);
+Irssi::settings_add_bool('misc', 'maildir_mode', "$maildirmode");
+Irssi::settings_add_bool('misc', 'mail_oldnotnew', "$old_is_not_new");
+Irssi::settings_add_str('misc', 'mail_separator', ",");
+Irssi::settings_add_bool('misc', 'mail_show_message', "0");
+Irssi::settings_add_str('misc', 'mail_format', '%n:%u/%t');
+Irssi::settings_add_bool('misc', 'mail_show_only_unread', "1");
+
+Irssi::statusbar_item_register('mail', '{sb Mail: $0-}', 'mail');
+
+read_settings();
+init_mailboxes();
+Irssi::signal_add('setup changed', 'read_settings');
+refresh_mail();
+
+# EOF
diff --git a/scripts/mailcheck_imap.pl b/scripts/mailcheck_imap.pl
new file mode 100644
index 0000000..37652ff
--- /dev/null
+++ b/scripts/mailcheck_imap.pl
@@ -0,0 +1,567 @@
+# mailcheck_imap.pl
+
+# Contains code from centericq.pl (public domain) and imapbiff (GPL) and
+# hence this is also GPL'd.
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.5";
+%IRSSI = (
+    authors     => "David \"Legooolas\" Gardner",
+    contact     => "irssi\@icmfp.com",
+    name        => "mailcheck_imap",
+    description => "Staturbar item which indicates how many new emails you have in the specified IMAP[S] mailbox",
+    license     => "GNU GPLv2",
+    url         => "http://icmfp.com/irssi",
+);
+
+
+# TODO:
+#
+# - command to show status, so we can see if we are currently connected
+#  - add to statusbar item to say connected/not
+#
+# ? get user to type in password instead of storing it in a setting...
+#  - eg. /mailcheck_imap_pass <password>
+#
+# - settings
+#  - execute arbitrary command (with /exec?) on new mail?
+#   - for 'spoing' or something  ;)
+#  - auto-reconnect on/off
+#
+#
+# LATER:
+# - show subject/sender/whatever of new mail (customizable)
+# - multiple accounts?
+# - multiple mailboxes?
+
+
+# Known bugs: segfaults on exit of irssi when script loaded  :/
+
+
+use Irssi;
+use Irssi::TextUI;
+
+
+use strict;
+use IO::Socket;
+
+# TODO : avoid requiring SSL when it's not in use?
+#if (Irssi::settings_get_bool('mailcheck_imap_use_ssl')) {
+#	Irssi::print("Using SSL.") if $debug_msgs;
+#	$port = 993;
+        require IO::Socket::SSL;
+#  - you need the package libio-socket-ssl-perl on Debian
+#}
+
+#
+# TODO : Set up signal handling for clean shutdown...
+#
+#$SIG{'ALRM'} = sub { die "socket timeout" };
+#$SIG{'QUIT'} = 'cleanup';
+#$SIG{'HUP'}  = 'cleanup';
+#$SIG{'INT'}  = 'cleanup';
+#$SIG{'KILL'} = 'cleanup';
+#$SIG{'TERM'} = 'cleanup';
+
+
+
+sub draw_box ($$$$) {
+  my ($title, $text, $footer, $colour) = @_;
+  my $box = '';
+  $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+  foreach (split(/\n/, $text)) {
+    $box .= '%R|%n '.$_."\n";
+  }
+  $box .= '%R`--<%n'.$footer.'%R>->%n';
+  $box =~ s/%.//g unless $colour;
+  return $box;
+}
+
+
+sub show_help() {
+  my $help = $IRSSI{name}." ".$VERSION."
+/mailcheck_imap_help
+    Display this help.
+/mailcheck_imap
+    Check for new mail immediately, opening the connection if required.
+/mailcheck_imap_stop
+    Close connection to server and stop checking for new mail.
+/set mailcheck_imap
+    Show all mailcheck_imap settings.
+    Note: You need to set at least host, user and password.
+/statusbar <name> add mailcheck_imap
+    Add statusbar item for mailcheck.
+
+
+Formats in theme for statusbar item:
+(number of new mails in $0, total number of message in $1)
+  sb_mailcheck_imap = \"{sb Mail: $0 new, $1 total}\";
+  sb_mailcheck_imap_zero = \"{sb Mail: None new, $1 total}\";
+
+Format in theme for 'new mail arrived' message in current window:
+(number of new mails in $0, total number of message in $1)
+      mailcheck_imap_echo = \"You have $0 new message(s)!\";
+
+Note: You have to set at least the mailcheck_imap_host, user,
+      and password settings.
+
+IMPORTANT NOTE: As this stores the password in your irssi config
+file, you should really set the mode of the file to 0600 so that
+it's only readable by your user.
+";
+  my $text = "";
+  foreach (split(/\n/, $help)) {
+    $_ =~ s/^\/(.*)$/%9\/$1%9/;
+    $text .= $_."\n";
+  }
+  print CLIENTCRAP draw_box($IRSSI{name}, $text, "Help", 1);
+}
+
+
+sub cmd_mailcheck_imap_help {
+  show_help();
+}
+
+
+#
+# Global variables.
+#
+my $handle;
+my ($logged_in, $sleep);
+my ($last_refresh_time, $refresh_tag);
+my ($new_messages, $old_new_messages);
+my ($total_messages, $old_total_messages);
+
+$handle    = 0;
+$logged_in = 0;
+$old_new_messages = -1;
+$old_total_messages = -1;
+
+
+#
+# Subroutine to update status, called every N seconds.
+#
+sub refresh_mailcheck_imap {
+
+  # For now, just print a message and return  :)
+  Irssi::print("update hit.") if Irssi::settings_get_bool('mailcheck_imap_debug');
+
+  # ensure we have details for the login..
+  if(!check_details()) {
+    return 0;
+  }
+
+  if(!$handle) {
+    if(!setup_socket()) {
+      error("Couldn't setup socket to imap server!",0);
+      return 0;
+    }
+  }
+  Irssi::print("Socket is setup.") if Irssi::settings_get_bool('mailcheck_imap_debug');
+
+  if(!$logged_in) {
+    if(!login()) {
+      return 0;
+    }
+  }
+  $new_messages = check_imap("UNSEEN");
+  $total_messages = check_imap("MESSAGES");
+
+  $new_messages = 0 if (! $new_messages);
+  $total_messages = 0 if (! $total_messages);
+
+  if ($new_messages eq "-1" || $total_messages eq "-1") {
+    Irssi::print("check_imap returned an error, no updates.") if Irssi::settings_get_bool('mailcheck_imap_debug');
+  }
+
+  # update statusbar if changed rather than updating every the time...
+  if(($new_messages != $old_new_messages) ||
+     ($total_messages != $old_total_messages)) {
+    update_statusbar_item();
+  }
+
+
+  # TODO : This doesn't work if you get a sequence such as:
+  #        check -> arrive, delete, arrive -> check
+  #        as it is just done on the number of unseen messages and won't know..
+  if(($new_messages > $old_new_messages) &&
+     (Irssi::settings_get_bool('mailcheck_imap_echo_new_in_window'))) {
+    # If set, echo to the current window...
+    my $theme = Irssi::current_theme();
+    my $format = $theme->format_expand("{mailcheck_imap_echo}");
+
+    if ($format) {
+      # use theme-specific look
+      $format = $theme->format_expand("{mailcheck_imap_echo $new_messages $total_messages}", Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+    } else {
+      # use the default look
+      $format = "mailcheck_imap: You have ".$new_messages." new message(s).";
+    }
+
+    print CLIENTCRAP $format;
+  }
+  $old_new_messages = $new_messages;
+  $old_total_messages = $total_messages;
+
+  # Adding new timeout to make sure that this function will be called again
+  if ($refresh_tag) {
+    Irssi::timeout_remove($refresh_tag);
+  }
+  my $time = Irssi::settings_get_int('mailcheck_imap_interval');
+  $refresh_tag = Irssi::timeout_add($time*1000, 'refresh_mailcheck_imap', undef);
+
+  return 1;
+}
+
+
+#
+# Subroutine to setup socket handle.
+#
+sub setup_socket {
+	# Set an alarm in case we can not connect or get hung.  Older versions
+	# the IO::Socket perl module caused errors with the alarm we set before
+	# setting up the socket.  If this program dies in debug mode saying:
+	# "Alarm clock", then you can probably fix it by upgrading your perl
+	# IO module.
+	my ($host,$port);
+
+	$host = Irssi::settings_get_str('mailcheck_imap_host');
+	$port = Irssi::settings_get_int('mailcheck_imap_port');
+
+	# change port number if SSL enabled and original imap port unchanged
+	if($port == 143 && Irssi::settings_get_bool('mailcheck_imap_use_ssl')) {
+	  $port = 993;
+	}
+
+	eval {
+		alarm 30;
+		Irssi::print("mailcheck_imap connecting to mail server...");
+
+		if (Irssi::settings_get_bool('mailcheck_imap_use_ssl')) {
+			Irssi::print("Using ssl...") if Irssi::settings_get_bool('mailcheck_imap_debug');
+			$handle = IO::Socket::SSL->new(Proto           => "tcp",
+			                               SSL_verify_mode => 0x00,
+                                                       PeerAddr        => $host,
+			                               PeerPort        => $port,
+		                               	)
+			or error("Can't connect to port $port on $host: $!",0), return 0;
+		} else {
+			$handle = IO::Socket::INET->new(Proto    => "tcp",
+			                                PeerAddr => $host,
+                                                        PeerPort => $port,
+		                               	)
+			or error("Can't connect to port $port on $host: $!",0), return 0;
+		}
+		$handle->autoflush(1);    # So output gets there right away.
+		Irssi::print("...done");
+		receive();
+		alarm 0;
+	};
+	if ($@) {
+		alarm 0;
+		if ($@ =~ /timeout/) {
+			alarm();
+			return 0;
+		} else {
+			error("$@",0);
+			return 0;
+		}
+	}
+	return 1;
+}
+
+#
+# Subroutine to login to the mailbox.
+#
+sub login {
+  my ($response,$success);
+  my ($user,$password);
+
+
+  $user = Irssi::settings_get_str('mailcheck_imap_user');
+  $password = Irssi::settings_get_str('mailcheck_imap_password');
+
+
+  $logged_in = 0;
+  # Set an alarm in case we can not connect or get hung.  Older versions
+  # the IO::Socket perl module caused errors with the alarm we set before
+  # setting up the socket.  If this program dies in debug mode saying:
+  # "Alarm clock", then you can probably fix it by upgrading your perl
+  # IO module.
+  eval {
+    alarm 30;
+    send_data("A001 LOGIN \"$user\" \"$password\"","\"$user\"");
+    while (1) {
+      ($success,$response) = receive();
+      if (! $success) {
+	return 0;
+      }
+      last if $response =~ /LOGIN|OK/;
+    }
+    if ($response =~ /fail|BAD/) {
+      return 0;
+    } else {
+      $logged_in = 1;
+    }
+    alarm 0;
+  };
+  if ($@) {
+    alarm 0;
+    if ($@ =~ /timeout/) {
+      alarm();
+      return 0;
+    } else {
+      error("$@",0);
+      return 0;
+    }
+  }
+  # Success!  :D
+  return 1;
+}
+
+#
+# Subroutine that does check of imap mailbox.
+#
+sub check_imap {
+  my ($type) = @_;
+
+  #my ($type) = ("MESSAGES");
+
+  my ($response,$success,$num_messages);
+  # Set an alarm in case we can not connect or get hung.  Older versions
+  # the IO::Socket perl module caused errors with the alarm we set before
+  # setting up the socket.  If this program dies in debug mode saying:
+  # "Alarm clock", then you can probably fix it by upgrading your perl
+  # IO module.
+  eval {
+    alarm 30;
+    send_data("A003 STATUS INBOX ($type)");
+    while (1) {
+      ($success,$response) = receive();
+      if (! $success) {
+	return "-1";
+      }
+      last if $response =~ /STATUS\s+.*?\s+\($type/;
+    }
+    ($num_messages) = $response =~ /\($type\s+(\d+)\)/;
+    alarm 0;
+  };
+  if ($@) {
+    alarm 0;
+    if ($@ =~ /timeout/) {
+      alarm();
+      return "-1";
+    } else {
+      error("$@",0);
+      return "-1";
+    }
+  }
+  return $num_messages;
+}
+
+
+#
+# Subroutine to send a line to the imap server.
+# Block everything after $block.
+#
+sub send_data {
+	my ($line,$block) = (@_);
+	print $handle "$line\r\n";
+	$line =~ s/(.*$block).*/$1 ----/ if ($block);
+	Irssi::print("sent: $line") if Irssi::settings_get_bool('mailcheck_imap_debug');
+	return 1;
+}
+
+
+#
+# Subroutine to get a response from the imap server and print.
+# that response if in debug mode.
+#
+sub receive {
+	my ($response,$success);
+	$response = "";
+	$success  = 0;
+	chomp($response = <$handle>);
+	if ($response) {
+		Irssi::print("got: $response") if Irssi::settings_get_bool('mailcheck_imap_debug');
+		$success = 1;
+	} else {
+		Irssi::print("no response!") if Irssi::settings_get_bool('mailcheck_imap_debug');
+	}
+	return ($success,$response);
+}
+
+#
+# Subroutine to display and error message in a text box.
+#
+sub error {
+  my ($error,$fatal) = (@_);
+
+  if ($fatal) {
+    # TODO : Print some useful message and die?
+    Irssi::print("mailcheck_imap FATAL : $error");
+    return 0;
+  } else {
+    Irssi::print("mailcheck_imap error : $error");
+
+    if ($refresh_tag) {
+      Irssi::timeout_remove($refresh_tag)
+    }
+    my $time = Irssi::settings_get_int('mailcheck_imap_interval');
+    $refresh_tag = Irssi::timeout_add($time*1000, 'refresh_mailcheck_imap', undef);
+    $handle = 0;
+    return 0;
+  }	
+}
+
+#
+# Subroutine to call when alarm times out.
+#
+sub alarm {
+  Irssi::print("Alarm went off!") if Irssi::settings_get_bool('mailcheck_imap_debug');
+  return 1;
+}
+
+
+#
+# Subroutine to clean up.
+#
+sub cleanup {
+  if ($handle) {
+    send_data("A999 LOGOUT");
+    $handle->close();
+  }
+  Irssi::print("mailcheck_imap logged out.");
+}
+
+
+
+#######################################################################
+# Simply requests a statusbar item redraw.
+
+sub update_statusbar_item {
+  Irssi::statusbar_items_redraw('mailcheck_imap');
+}
+
+
+#######################################################################
+# This is the function called by irssi to obtain the statusbar item.
+
+sub mailcheck_imap {
+  my ($item, $get_size_only) = @_;
+
+  my $theme = Irssi::current_theme();
+  my $format = $theme->format_expand("{sb_mailcheck_imap}");
+
+  if ($format) {
+    # use theme-specific look
+    $format = $theme->format_expand("{sb_mailcheck_imap $new_messages $total_messages}", Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+  } else {
+    # use the default look
+    $format = "{sb Mail: ".$new_messages." new, ".$total_messages." total}";
+  }
+
+  if($new_messages == 0) {
+    if(Irssi::settings_get_bool('mailcheck_imap_show_zero')) {
+      $format = $theme->format_expand("{sb_mailcheck_imap_zero $new_messages $total_messages}", Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+
+      if (!$format) {
+	# use the default look
+	$format = "{sb Mail: None new, ".$total_messages." total}";
+      }
+    } else {
+      $format = "";
+    }
+  }
+
+  if (length($format) == 0) {
+    # nothing to print, so don't print at all
+    if ($get_size_only) {
+      $item->{min_size} = $item->{max_size} = 0;
+    }
+  } else {
+    $item->default_handler($get_size_only, $format, undef, 1);
+  }
+}
+
+
+################################################################################
+# Ensure that all required details are filled in:
+# host, user, password
+sub check_details {
+  my $host = Irssi::settings_get_str('mailcheck_imap_host');
+  my $user = Irssi::settings_get_str('mailcheck_imap_user');
+  my $password = Irssi::settings_get_str('mailcheck_imap_password');
+
+  if(!$host || !$user || !$password) {
+    show_help();
+    return 0;
+  }
+  return 1;
+}
+
+
+################################################################################
+# Immediately check for new mail (updates statusbar item too)
+
+sub cmd_mailcheck_imap {
+  refresh_mailcheck_imap();
+}
+
+
+################################################################################
+# Kill the connection and stop the refresh.
+sub cmd_mailcheck_imap_stop {
+  if ($refresh_tag) {
+    Irssi::timeout_remove($refresh_tag);
+  }
+  cleanup();
+}
+
+# Also close connection on script unload?
+sub sig_command_script_unload ($$$) {
+  my ($script, $server, $witem) = @_;
+
+  if($script =~ /^mailcheck_imap\.pl$/ ||
+     $script =~ /^mailcheck_imap/) {
+    cleanup();
+  }
+}
+
+Irssi::signal_add_first('command script unload', \&sig_command_script_unload);
+
+
+#######################################################################
+# Adding stuff to irssi
+
+Irssi::settings_add_int('mail', 'mailcheck_imap_interval', 120);
+Irssi::settings_add_bool('mail', 'mailcheck_imap_use_ssl', 0);
+Irssi::settings_add_bool('mail', 'mailcheck_imap_debug', 0);
+Irssi::settings_add_bool('mail', 'mailcheck_imap_show_zero', 0);
+Irssi::settings_add_bool('mail', 'mailcheck_imap_echo_new_in_window', 1);
+
+Irssi::settings_add_str('mail', 'mailcheck_imap_host', '');
+Irssi::settings_add_int('mail', 'mailcheck_imap_port', 143);
+Irssi::settings_add_str('mail', 'mailcheck_imap_user', '');
+Irssi::settings_add_str('mail', 'mailcheck_imap_password', '');
+
+
+Irssi::statusbar_item_register('mailcheck_imap', '{sb $0-}', 'mailcheck_imap');
+
+Irssi::command_bind('mailcheck_imap_help','cmd_mailcheck_imap_help');
+Irssi::command_bind('mailcheck_imap','cmd_mailcheck_imap');
+Irssi::command_bind('mailcheck_imap_stop','cmd_mailcheck_imap_stop');
+
+
+#######################################################################
+# Startup functions
+
+# Check that everything is fiiiine and start checking if so
+if(check_details()) {
+  # All is ok, so start running it
+  refresh_mailcheck_imap();
+  update_statusbar_item();
+}
+
+
+#######################################################################
diff --git a/scripts/mailcheck_mbox_flux.pl b/scripts/mailcheck_mbox_flux.pl
new file mode 100644
index 0000000..2b91c4a
--- /dev/null
+++ b/scripts/mailcheck_mbox_flux.pl
@@ -0,0 +1,118 @@
+#!/usr/bin/perl -w
+
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => "Erkki Seppälä",
+    contact     => "flux\@inside.org",
+    name        => "Mail Check",
+    description => "Polls your unix mailbox for new mail",
+    license     => "Public Domain",
+    url         => "http://xulfad.inside.org/~flux/software/irssi/",
+    changed     => "Mon Mar  4 23:25:18 EET 2002"
+);
+
+use strict;
+
+sub getMessages( $ ) {
+  local *F;
+  open(F, $_[0]) or return ();
+  my $inHeaders = 0;
+  my $headers;
+  my %result = ();
+  my $time;
+  while (<F>) {
+    chomp;
+    if (/^From /) {
+      my @fields = /^From [^ ]+ (.*)/;
+      $time = $fields[0];
+      $inHeaders = 1;
+    } elsif ($inHeaders) {
+      if ($_ eq "") {
+	$result{$time} = $headers;
+
+	$inHeaders = 0;
+	$headers = {};
+      } else {
+	my @fields = /^([^:]+): (.*)$/;
+	if (@fields == 2) {
+	  $headers->{$fields[0]} = $fields[1];
+	}
+      }
+    }
+  }
+  close(F);
+
+  return %result;
+}
+
+# assumes both headers are in time order
+# format: From flux@xulfad.ton.tut.fi Wed Jan 24 23:44:00 2001
+sub newMail ( $$ ) {
+  my ($box, $contents) = @_;
+  my @newMail;
+  foreach my $mail (keys %{$contents}) {
+    if (!exists $box->{contents}->{$mail}) {
+      push @newMail, {%{$contents->{$mail}}, BOX=>$box};
+    }
+  }
+  return @newMail;
+}
+
+sub checkMail( $ ) {
+  my $boxes = shift;
+  my @changed = ();
+  foreach my $box (keys %{$boxes}) {
+#    Irssi::print "Checking $box";
+    my @st = stat($box);
+    my $mtime = $st[9];
+    if ($mtime != $boxes->{$box}->{time}) {
+      my %contents = getMessages($box);
+      if ($boxes->{$box}->{time}) {
+	push @changed, newMail($boxes->{$box}, \%contents);
+      }
+      $boxes->{$box}->{contents} = \%contents;
+      $boxes->{$box}->{time} = $mtime;
+    }
+  }
+  return @changed;
+}
+
+sub coalesce {
+  while (@_) {
+    if (defined $_[0]) {
+      return $_[0];
+    }
+    shift;
+  }
+  return undef;
+}
+
+my @boxes = ("/var/spool/mail/flux", "/home/flux/mail/vv");
+my %boxes;
+# ("/var/spool/mail/flux" => {name=>"INBOX", time=>0} );
+
+for (my $c = 0; $c < @boxes; ++$c) {
+  $boxes{$boxes[$c]}->{time} = 0;
+  if ($c == 0) {
+    $boxes{$boxes[$c]}->{name} = "INBOX";
+  } else {
+    my @f = $boxes[$c] =~ /([^\/]*)$/;
+    $boxes{$boxes[$c]}->{name} = $f[0];
+  }
+}
+
+sub check {
+  my @newMail = checkMail(\%boxes);
+  foreach my $mail (@newMail) {
+    my $row = $mail->{BOX}->{name} . " ::: " . $mail->{From} . ": " . coalesce($mail->{Subject}, "(no subject)");
+    Irssi::print($row);
+#    active_server()->print($row);
+  }
+}
+
+Irssi::timeout_add(10000, "check", "");
+
+check();
diff --git a/scripts/mailcheck_pop3_kimmo.pl b/scripts/mailcheck_pop3_kimmo.pl
new file mode 100644
index 0000000..43bd664
--- /dev/null
+++ b/scripts/mailcheck_pop3_kimmo.pl
@@ -0,0 +1,125 @@
+# Provides /mail command for POP3 mail checking
+# for irssi 0.7.98 (tested on CVS) by Kimmo Lehto
+#
+# Requires Net::POP3 module
+# If you don't have it, you can install it using:
+#
+# perl -e shell -MCPAN;
+# >install Net::POP3
+#
+
+use Irssi;
+use Net::POP3;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.5';
+%IRSSI = (
+    authors     => 'Kimmo Lehto',
+    contact     => 'kimmo@a-men.org' ,
+    name        => 'Mailcheck-POP3',
+    description => 'POP3 new mail notification and listing of mailbox contents. Use "/mail help" for instructions. Requires Net::POP3.',
+    license     => 'Public Domain',
+    changed	=> 'Sun Apr 7 00:10 EET 2002'
+);
+
+
+
+
+
+sub cmd_checkmail
+{
+	my $args = shift;
+	my ($user, $pass, $host) = split(/\;/, $args);
+	my $i, $from, $subject, $head;
+	my $POP3TIMEOUT = Irssi::settings_get_int("pop3_timeout");
+        my $pop = Net::POP3->new( $host, Timeout => $POP3TIMEOUT );
+	$count = $pop->login($user, $pass);
+
+	if (!$count || !$pop)
+	{
+		Irssi::print("Invalid POP3 user, pass or host.", MSGLEVEL_CLIENTERROR);
+		if (!$_mailcount{"$user\@$host"})
+		{
+			Irssi::timeout_remove($_mailchecktimer{"$user\@$host"});
+			delete $_mailchecktimer{"$user\@$host"};
+		}
+		$pop->quit();
+		return undef;
+	}
+	if (!$_mailcount{"$user\@$host"}) { $_mailcount{"$user\@$host"} = $count; $pop->quit(); return 1; }
+	if ($_mailcount{"$user\@$host"} < $count)
+	{
+		Irssi::print("%R>>%n New Mail for $user\@$host:"); 
+		
+  		for( $i = $_mailcount{"$user\@$host"} + 1; $i <= $count; $i++ ) 
+		{
+			foreach $head (@{$pop->top($i)})
+			{
+				if ($head =~ /^From:\s+(.*)$/i) { $from = $1; chomp($from);}
+				elsif ($head =~ /^Subject:\s+(.*)$/i) { $subject = $1; chomp($subject);}
+			}
+			Irssi::print("From   : %W$from%n\nSubject: %W$subject%n");
+  		}
+	}
+  
+	$_mailcount{"$user\@$host"} = $count;
+	$pop->quit();
+	return 1;
+}
+sub start_check
+{
+	my ($userhost, $pass) = @_;
+	my ($user, $host) = split(/\@/, $userhost);
+	my $INTERVAL = Irssi::settings_get_int("pop3_interval");
+	if (cmd_checkmail("$user;$pass;$host"))
+	{
+		$_mailchecktimer{"$user\@$host"} = Irssi::timeout_add($INTERVAL * 1000, 'cmd_checkmail', "$user;$pass;$host");
+		Irssi::print("Account $user\@$host is now being monitored for new mail.");
+	}
+}
+
+sub cmd_mail
+{
+	my $args = shift;
+	my (@arg) = split(/\s+/, $args);
+
+	if ((@arg[0] eq "add") && @arg[1] && @arg[2])
+	{
+		if ($_mailchecktimer{@arg[1]})
+		{
+			Irssi::print("Account " . @arg[1] . " is already being monitored.");
+		}
+		else
+		{
+			start_check(@arg[1], @arg[2]);
+		}
+	}
+	elsif (@arg[0] eq "list")
+	{
+		Irssi::print("Active POP3 Accounts Being Monitored:");
+		foreach (keys %_mailchecktimer)
+		{
+			Irssi::print(" %W-%n $_ ($_mailcount{$_} Mail message(s))");
+		}
+		Irssi::print("End of /mail list");
+	}
+	else
+	{
+		Irssi::print("%Wmailcheck.pl%n $VERSION - By KimmoKe\%W@%nircnet\n");
+		Irssi::print("Usage:");
+		Irssi::print("/mail add <user\@host> <password> - add account to be monitored.");
+		Irssi::print("/mail remove <user\@host> - stop monitoring account");
+		Irssi::print("/mail list - list monitored accounts");
+		Irssi::print("/mail list <user\@host> - list ALL messages in mailbox");
+		Irssi::print("\n%WNote:%n Passwords are kept in irssi's memory in %Wplain text%n, and the password will also remain in the command history. The POP3 authorization is currently also plain text.\n");
+		Irssi::print("Check interval and POP3 login timeout are controlled with %W/set pop3_interval%n (default: 60 seconds) and %Wpop3_timeout%n (default: 30 seconds).");
+	}
+
+
+	
+}
+
+
+Irssi::settings_add_int("misc","pop3_timeout",30);
+Irssi::settings_add_str("misc","pop3_interval","60");	
+Irssi::command_bind('mail', 'cmd_mail');
diff --git a/scripts/mailcount.pl b/scripts/mailcount.pl
new file mode 100644
index 0000000..26977a2
--- /dev/null
+++ b/scripts/mailcount.pl
@@ -0,0 +1,187 @@
+# mailcount.pl v 1.4.5 by Marcin Rozycki (derwan@irssi.pl)
+#                 changed at Sat Oct 18 14:43:27 CEST 2003
+#
+# Script adds statusbar item mailcount and displays info about new mails
+# in your mailbox ( not support for maildir)
+#
+# Run command '/statusbar window add mailcount' after loading mailcount.pl.
+#
+# Modules:
+#
+#    Mail::MboxParser 
+#         http://search.cpan.org/CPAN/authors/id/V/VP/VPARSEVAL/Mail-MboxParser-0.41.tar.gz
+#         http://derwan.irssi.pl/perl-modules/Mail-MboxParser-0.41.tar.gz
+#
+#    Digest::MD5
+#         http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/Digest-MD5-2.27.tar.gz
+#         http://derwan.irssi.pl/perl-modules/Digest-MD5-2.27.tar.gz
+#
+# Settings:
+#
+#    Mailcount_mailbox [ list separated with spaces ] 
+#         - ex. /set mailcount_mailbox /var/mail/derwan /home/derwan/inbox
+#
+#    Mailcount_ofset [ sconds ]
+#         - 60 by default
+#
+#    Mailcount_show_headers [ list separated with spaces ]
+#         - ex. /set mailcount_show_headers from to cc subject date sender
+#
+#    Mailcount_show_max [ count ]
+#         - 30 by default
+#         - shows all mails if value set to 0
+#         - info disabled if set to -1
+#
+#    Mailcount_sbitem [ format ]
+#         - %n - new messages
+#         - %o - old messages
+#         - %t - total
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20021117 qw( settings_add_str settings_get_str settings_add_int settings_get_int
+   settings_add_bool settings_get_bool get_irssi_dir timeout_add_once theme_register active_win );
+
+$VERSION = '1.4.5';
+%IRSSI = (
+  authors      => 'Marcin Rozycki',
+  contact      => 'derwan@irssi.pl',
+  name         => 'mailcount',
+  description  => 'Adds statusbar item mailcount and displays info about new mails',
+  modules      => 'Mail::MboxParser Digest::MD5',
+  license      => 'GNU GPL v2',
+  url          => 'http://derwan.irssi.pl',
+  changed      => 'Sat Oct 18 14:43:27 CEST 2003'
+);
+
+use Irssi::TextUI;
+use IO::File;
+use POSIX '_exit';
+use Mail::MboxParser;
+use Digest::MD5 'md5_hex';
+
+theme_register([
+   'mailcount_notify', 'You have new mail in %C$0%n',
+   'mailcount_sender', '%R> %CFrom:%n %_$0%_',
+   'mailcount_header', '  %c$0:%n $1',
+   'mailcount_more', '  ( and $0 more... )' 
+]);
+
+our ($u, $r, $active_pid, $input_tag) = (0, 0, undef, undef);
+our (%register, %ctime, %cache, @buf);
+
+sub mailcount {
+   return if ( $active_pid or $input_tag );
+   my $reader = IO::File->new() or return;
+   my $writer = IO::File->new() or return;
+   my ($n, $o) = (0, 0);
+   pipe($reader, $writer);
+   $active_pid = fork();
+   return unless ( defined $active_pid );
+   if ( $active_pid ) {
+      close($writer);
+      Irssi::pidwait_add($active_pid);
+      $input_tag = Irssi::input_add(fileno($reader), INPUT_READ, \&input_read, $reader);
+   } else {
+      close($reader);
+      my $headers = 'from to subject '. lc( settings_get_str('mailcount_show_headers') );
+      my ($count, $max) = (0, settings_get_int('mailcount_show_max'));
+      $max = 10 if ( $max > 0 and $max < 10 );
+      foreach my $box ( split /[: ]+/, settings_get_str('mailcount_mailbox') ) {
+         push(@buf,"ctime 0 $box", "stat n=0 o=0 $box"), next if ( not -r $box );
+         my ($mn, $mo, $info, $ctime) = (0, 0, 0, (stat($box))[9]);
+         if ( $ctime eq $ctime{ $box } ) {
+             $mn = $cache{ $box }->{ n };
+             $mo = $cache{ $box }->{ o };
+         } else {
+             push @buf, "ctime $ctime $box";
+             my $mb = Mail::MboxParser->new( $box,
+                   decode     => 'ALL',
+                   parseropts => { enable_cache    => 1,
+                      enable_grep     => 1,
+                      cache_file_name => sprintf('%s/.mailcount-cache', get_irssi_dir) }
+            );
+             while ( my $msg = $mb->next_message ) {
+                next if ( $msg->header->{ subject } =~ m/.*\bfolder internal data/i );
+                ( $msg->header->{ status } and $msg->header->{ status } =~ m/[OR]+/i ) and ++$mo, next or ++$mn;
+                unless ( is_register($msg) ) {
+                   push @buf, "info $box" unless $info++;
+                   next if ( ++$count > $max and $max );
+                   my %header;
+                   foreach my $header ( split / +/, $headers ) {
+                      next if ( $header{ $header }++);
+                      my $data = $msg->header->{ $header };
+                      push @buf,"header $header $data" if ( defined $data );
+                   }
+                }
+             }
+             push @buf, "stat n=$mn o=$mo $box";
+             push @buf, sprintf('more %d'. ($count - $max)) if ( $max > 0 and $count > $max );
+          }
+          $n += $mn; $o += $mo;
+      }
+      push(@buf,"total n=$n o=$o");
+      foreach my $data ( @buf ) { print($writer "$data\n"); }
+      close($writer);
+      POSIX::_exit(1);
+   }
+}
+
+sub is_register ($$) {
+   my $msg = shift;
+   my $hex = md5_hex($msg->header->{ from } . $msg->header->{ to } . 
+        $msg->header->{ subject } . $msg->header->{ 'message-id' });
+   return 1 if ( $register{ $hex } );
+   push(@buf,"register $hex");
+   return 0;
+}
+
+sub input_read {
+   my $reader = shift;
+   while (<$reader>) {
+      chomp;
+      /^ctime (\d+) (.*)/ and $ctime{ $2 } = $1, next;
+      /^stat n=(\d+) o=(\d+) (.*)/ and $cache{ $3 }->{ n } = $1, $cache{ $3 }->{ o } = $2, next; 
+      /^info (.*)/ and active_win->printformat(MSGLEVEL_CLIENTCRAP, 'mailcount_notify', $1), next;
+      /^register (.*)/ and $register{ $1 } = 1, next;
+      /^more (\d+)/ and active_win->printformat(MSGLEVEL_CLIENTCRAP, 'mailcount_more', $1), next;
+      /^total n=(\d+) o=(\d+)/ and $u = $1, $r = $2, last;
+      /^header ([^\s]+) (.*)/ and mailcount_show_header($1, $2);
+   }
+   Irssi::input_remove($input_tag);
+   close($reader);
+   $input_tag = $active_pid = undef;
+   Irssi::statusbar_items_redraw('mailcount');
+   my $timeout = settings_get_int('mailcount_ofset'); $timeout = 15 if ( $timeout <= 15 );
+   timeout_add_once($timeout*1000, 'mailcount', undef);
+}
+
+sub mailcount_show_header ($$) {
+   my ($header, $data) = @_;
+   $data =~ s/\s+/ /g;
+   active_win->printformat(MSGLEVEL_CLIENTCRAP, 'mailcount_sender', $data), return 
+      if ( $header eq 'from' );
+   active_win->printformat(MSGLEVEL_CLIENTCRAP, 'mailcount_header', ucfirst($header), $data);
+}
+
+sub mailcount_sbitem {
+  my ($sbitem, $get_size_only) = @_;
+  $sbitem->{min_size} = $sbitem->{max_size} = 0 if ($get_size_only);
+  my $sbitem_format = settings_get_str('mailcount_sbitem');
+  $sbitem_format = 'n/%n o/%o t/%t' unless ( $sbitem_format );
+  $sbitem_format =~ s/%n/$u/e;
+  $sbitem_format =~ s/%o/$r/e;
+  $sbitem_format =~ s/%t/($u + $r)/e;
+  $sbitem->default_handler($get_size_only, undef, $sbitem_format, 1);
+}
+
+settings_add_str('mailcount', 'mailcount_mailbox', $ENV{'MAIL'});
+settings_add_int('mailcount', 'mailcount_ofset', 60);
+settings_add_str('mailcount', 'mailcount_show_headers', 'from to cc subject date sender');
+settings_add_int('mailcount', 'mailcount_show_max', 30);
+settings_add_str('mailcount', 'mailcount_sbitem', 'n/%n o/%o t/%t');
+
+Irssi::statusbar_item_register('mailcount', '{sb Mail: $0-}', 'mailcount_sbitem');
+mailcount();
diff --git a/scripts/mangle.pl b/scripts/mangle.pl
new file mode 100644
index 0000000..00158a5
--- /dev/null
+++ b/scripts/mangle.pl
@@ -0,0 +1,311 @@
+#!/usr/bin/perl
+#
+# by Szymon Sokol <szymon@hell.pl>
+# ideas taken from BabelIRC by Stefan Tomanek
+#
+
+use strict;
+use locale;
+use Irssi 20020324;
+use POSIX;
+use Data::Dumper;
+
+use vars qw($VERSION %IRSSI %HELP %channels %translations);
+$VERSION = '2004031701';
+%IRSSI = (
+    authors     => 'Szymon Sokol',
+    contact     => 'szymon@hell.pl',
+    name        => 'mangle',
+    description => 'translates your messages into Morse code, rot13 and other sillinesses.',
+    license     => 'GPLv2',
+    url         => 'http://irssi.org/scripts/',                                     changed     => $VERSION,
+    modules     => 'Data::Dumper'
+);  
+
+# To work, this help requires scripthelp.pl by Maciek 'fahren' Freudenheim
+$HELP{"mangle add"} = "/mangle add <translation> [<channel>]
+Add a new translation entry for <channel> (default is current channel)";
+$HELP{"mangle del"} = "/mangle del [<channel>]
+Removes the translation for <channel> (default is current channel)";
+$HELP{"mangle say"} = "/mangle say <translation> <message>
+Says something to the current channel using given translation";
+$HELP{"mangle load"} = "/mangle load 
+Loads translations from file";
+$HELP{"mangle save"} = "/mangle save 
+Saves active translations to file";
+$HELP{"mangle show"} = "/mangle show 
+Shows active translations";
+$HELP{"mangle list"} = "/mangle list 
+Lists available translations";
+
+# the endless possibilities for extensions here
+%translations = (
+  # CChheecckk  yyoouurr  dduupplleexx  sswwiittcchh
+  "duplex" => sub { 
+    my ($text) = @_;
+    $text =~ s/./$&$&/g;
+    return $text;
+  },
+  # TaLk LiKe ThIs - EvErY OtHeR LeTtEr Is UpPeRcAse
+  "funky" => sub {
+    my ($text) = @_;
+    $text =~ s/(\w.)/\u$1/g;
+    return $text;
+  },
+  # TalkLikeThis-NoSpaces,WordBeginsWithUppercase
+  "gnome" => sub {
+    my ($text) = @_;
+    $text =~ s/\b(\w)/\u$1/g;
+    $text =~ s/\s+//g;
+    return $text;
+  },
+  # -- --- .-. ... .  -.-. --- -.. .
+  "morse" => sub { 
+    my %morse = (
+    " " => "",
+    "a" => ".-",
+    "b" => "-...",
+    "c" => "-.-.",
+    "d" => "-..",
+    "e" => ".",
+    "f" => "..-.",
+    "g" => "--.",
+    "h" => "....",
+    "i" => "..",
+    "j" => ".---",
+    "k" => "-.-",
+    "l" => ".-..",
+    "m" => "--",
+    "n" => "-.",
+    "o" => "---",
+    "p" => ".--.",
+    "q" => "--.-",
+    "r" => ".-.",
+    "s" => "...",
+    "t" => "-",
+    "u" => "..-",
+    "v" => "...-",
+    "w" => ".--",
+    "x" => "-..-",
+    "y" => "-.--",
+    "z" => "--..",
+    # notice: Polish and German diacritical characters have their own 
+    # Morse codes; the same probably stands true for other languages
+    # using ISO-8859-2 - if you happen to know them, please send me e-mail
+    "±" => ".-.-",
+    "æ" => "-.-..",
+    "ê" => "..-..",
+    "³" => ".-..-",
+    "ñ" => "--.-",
+    "ó" => "---.".
+    "¶" => "...-...",
+    "¼" => "--..",
+    "¿" => "--..-",
+    'ä'=>'.-.-',
+    'ö'=>'---.',
+    'ü'=>'..--',
+    "0" => "-----",
+    "1" => ".----",
+    "2" => "..---",
+    "3" => "...--",
+    "4" => "....-",
+    "5" => ".....",
+    "6" => "-....",
+    "7" => "--...",
+    "8" => "---..",
+    "9" => "----.",
+    "'" => ".----.",
+    '"' => ".-..-.",
+    '.' => ".-.-.-",
+    ',' => "--..--",
+    '?' => "..--..",
+    ':' => "---...",
+    ';' => "-.-.-.",
+    '-' => "-....-",
+    '_' => "..--.-",
+    '/' => "-..-.",
+    '(' => "-.--.",
+    ')' => "-.--.-",
+    '@' => ".--.-.", #  byFlorian Ernst <florian@uni-hd.de>
+    '=' => "-...-"
+    );
+    my ($text) = @_;
+    $text = lc($text);
+    $text =~ s/./defined $morse{$&} ? $morse{$&}." " : ""/eg;
+    return $text.'[morse]';
+  },
+  # convert text in Polish from ISO-8859-2 to 7-bit approximation
+  # if you know how to do it for other languages using 8859-2, 
+  # please let me know
+  "polskawe" => sub {
+    my ($text) = @_;
+    $text =~ y/¡ÆÊ£ÑÓ¦¯¬±æê³ñ󶿼/ACELNOSZZacelnoszz/;
+    return $text;
+  },
+  # Ouch, my eyes!
+  "rainbow" => sub {
+    my ($text) = @_;
+    # colors list
+    #  0 == white
+    #  4 == light red
+    #  8 == yellow
+    #  9 == light green
+    # 11 == light cyan
+    # 12 == light blue
+    # 13 == light magenta
+    my @colors = ('00','04','08','09','11','12','13');
+    my $color;
+    $text = join '', map { push @colors, $color = shift @colors;
+"\003" . $color . ($_ eq "," ? ",," : $_) } split(//,$text);
+    return $text;
+  },
+  # .drawkcab klaT
+  "reverse" => sub {
+    my ($text) = @_;
+    $text = scalar reverse $text;
+    return $text;
+  },
+  # Gnyx va ebg13 rapbqvat.
+  "rot13" => sub {
+    my ($text) = @_;
+    $text =~ y/N-ZA-Mn-za-m/A-Za-z/;
+    return $text.' [rot13]';
+  },
+  # T-T-Talk l-l-like y-y-you h-h-have a s-s-stutter.
+  "stutter" => sub {
+    my ($text) = @_;
+    $text =~ s/(\w)(\w+)/$1-$1-$1$2/g;
+    return $text;
+  },
+  # rmv vwls
+  "vowels" => sub {
+    my ($text) = @_;
+    $text =~ y/aeiouy±ê//d;
+    return $text;
+  }
+);
+
+sub add_channel ($$) {
+    my ($channel,$code) = @_;
+    $channels{$channel} = $code;
+}
+
+sub save_channels {
+    my $filename = Irssi::settings_get_str('mangle_filename');
+    local *F;
+    open F, '>'.$filename;
+    my $data = Dumper(\%channels);
+    print F $data;
+    close F;
+    print CLIENTCRAP "%R>>%n Mangle channels saved";
+}
+
+sub load_channels {
+    my $filename = Irssi::settings_get_str('mangle_filename');
+    return unless (-e $filename);
+    local *F;
+    open F, '<'.$filename;
+    my $text;
+    $text .= $_ foreach <F>;
+    no strict "vars";
+    %channels = %{ eval "$text" };
+}
+
+sub mangle_show ($$) {
+    my ($item, $get_size_only) = @_;
+    my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+    if (ref $win && ($win->{type} eq "CHANNEL" || $win->{type} eq "QUERY") && $channels{$win->{name}}) {
+        my $code = $channels{$win->{name}};
+	$item->{min_size} = $item->{max_size} = length($code);
+	$code = '%U%g'.$code.'%U%n';
+	my $format = "{sb ".$code."}";
+	$item->default_handler($get_size_only, $format, 0, 1);
+    } else {
+	$item->{min_size} = $item->{max_size} = 0;
+    }
+}
+sub cmd_mangle ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ +/, $args);
+    if ($arg[0] eq 'add' && defined $arg[1]) {
+      my $code = $arg[1];
+      if(exists $translations{$code}) {
+        if (defined $arg[2]) { 
+    	  add_channel($arg[2], $code);
+        }
+        elsif($witem) {
+	  add_channel($witem->{name}, $code);
+	}
+      } else {
+        Irssi::print("There is no such translation as $code !");
+      }
+    } elsif ($arg[0] eq 'del') {
+        if(defined $arg[1]) {
+	  delete $channels{$arg[1]} if defined $channels{$arg[1]};
+	} elsif($witem) {
+	  delete $channels{$witem->{name}} if defined $channels{$witem->{name}};
+	}
+    } elsif ($arg[0] eq 'say' && defined $arg[1]) {
+      my $code = $arg[1];
+      if(exists $translations{$code}) {
+        if($witem) {
+	  say($code, join(' ',@arg[2..$#arg]), $server, $witem);
+	}
+      } else {
+        Irssi::print("There is no such translation as $code !");
+      }
+    } elsif ($arg[0] eq 'save') {
+	save_channels();
+    } elsif ($arg[0] eq 'load') {
+	load_channels();
+    } elsif ($arg[0] eq 'list') {
+	Irssi::print("mangle: available translations are: ".
+	join(" ", sort keys %translations));
+    } elsif ($arg[0] eq 'show') {
+        for (sort keys %channels) {
+	  Irssi::print("mangle: ".$_." set to ".$channels{$_});
+	}
+    } else {
+      Irssi::print("mangle v. $VERSION; use /help mangle for help (ensure you have scripthelp.pl loaded!)");
+    }
+    Irssi::statusbar_items_redraw('mangle_sb');
+}
+
+sub say ($$$$) {
+    my ($code, $line, $server, $witem) = @_;
+    my $target = "";
+    if ($line =~ s/^(\w+?: )//) {
+      $target = $1;
+    }
+    $line = $translations{$code}->($line);
+    $server->command('MSG '.$witem->{name}.' '.$target.$line);
+}
+
+sub event_send_text ($$$) {
+    my ($line, $server, $witem) = @_;
+    return unless ($witem && 
+                  ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY") && 
+                  $channels{$witem->{name}});
+    say($channels{$witem->{name}}, $line, $server, $witem);
+    Irssi::signal_stop();
+    Irssi::statusbar_items_redraw('mangle_sb');
+}
+
+# main
+
+Irssi::command_bind('mangle', \&cmd_mangle);
+foreach my $cmd ('add', 'del', 'save', 'load', 'say', 'list', 'show') {
+    Irssi::command_bind('mangle '.$cmd => sub {
+		    cmd_mangle($cmd." ".$_[0], $_[1], $_[2]); });
+}
+
+Irssi::statusbar_item_register('mangle_sb', 0, "mangle_show");
+Irssi::signal_add('setup saved', 'save_channels');
+Irssi::signal_add('send text', \&event_send_text);
+Irssi::signal_add('window changed', sub {Irssi::statusbar_items_redraw('mangle_sb');});
+
+Irssi::settings_add_str($IRSSI{name}, 'mangle_filename', Irssi::get_irssi_dir()."/mangle_channels");
+load_channels();
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /help mangle for help';
+
+# ;-)
diff --git a/scripts/map.pl b/scripts/map.pl
new file mode 100644
index 0000000..1d4c713
--- /dev/null
+++ b/scripts/map.pl
@@ -0,0 +1,129 @@
+# Map - Generates simple tree of IRC network based on the output of the LINKS
+# command.
+#
+# $Id: map.pl,v 1.2 2002/02/01 22:21:20 pasky Exp pasky $
+
+
+use strict;
+
+use vars qw ($VERSION %IRSSI $rcsid);
+
+$rcsid = '$Id: map.pl,v 1.2 2002/02/01 22:21:20 pasky Exp pasky $';
+($VERSION) = '$Revision: 1.2 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'map',
+          authors     => 'Petr Baudis',
+          contact     => 'pasky@ji.cz',
+          url         => 'http://pasky.ji.cz/~pasky/dev/irssi/',
+          license     => 'GPLv2, not later',
+          description => 'Generates simple tree of IRC network based on the output of the LINKS command.'
+         );
+
+
+my $root;  # The root lc(server)
+my %tree;  # Key is lc(server), value is lc(array of downlinks)
+my %rcase; # Key is lc(server), value is server
+my %sname; # Key is lc(server), value is server's name
+my @branches; # Index is level, value is (should_print_'|')
+
+
+use Irssi 20011112;
+use Irssi::Irc;
+
+
+sub cmd_map {
+  my ($data, $server, $channel) = @_;
+
+  # ugly, but no easy way how to distinguish between two mixes links output :/
+  $server->redirect_event('command map', 0, '',
+      (split(/\s+/, $data) > 1), undef,
+      {
+	"event 364", "redir links_line",
+	"event 365", "redir links_done",
+      } );
+
+  $server->send_raw("LINKS $data");
+
+  Irssi::signal_stop();
+}
+
+
+sub event_links_line {
+  my ($server, $data, $nick, $address) = @_;
+  my ($target, $to, $from, $hops, $name) = $data =~ /^(\S*)\s+(\S*)\s+(\S*)\s+:(\d+)\s+(.*)$/;
+  
+  $rcase{lc($from)} = $from;
+  $rcase{lc($to)} = $to;
+  $sname{lc($to)} = $name;
+
+  if ($hops == 0) {
+    $root = lc($from);
+  } else {
+    push(@{$tree{lc($from)}}, lc($to));
+  }
+
+  Irssi::signal_stop();
+}
+
+sub event_links_done {
+  my ($server, $data, $nick, $address) = @_;
+  
+  @branches = (' ');
+
+  print_server($root, 0) if ($root);
+
+  $root = undef;
+}
+
+sub print_server {
+  my ($parent, $level, $last) = @_;
+  my ($i, $str);
+
+  for ($i = 0; $i < $level; $i++) {
+    $str .= "   " . $branches[$i];
+  }
+
+  $str .= ($level ? "-" : " ") . " ";
+  $str .= $rcase{$parent};
+  $str = sprintf('%-50s %s', $str, $sname{$parent})
+    if Irssi::settings_get_bool("show_server_names");
+
+  Irssi::print $str;
+
+  return unless ($tree{$parent});
+
+  $branches[$level - 1] = ' '
+    if ($level and $branches[$level - 1] eq '`');
+
+  $branches[$level] = '|';
+
+  while (@{$tree{$parent}}) {
+    my ($server) = shift @{$tree{$parent}};
+    
+    $last = not scalar @{$tree{$parent}}; # sounds funny, eh? :^)
+    $branches[$level] = '`' if ($last);
+    
+    print_server($server, $level + 1, $last);
+  } 
+}
+
+
+Irssi::command_bind("map", "cmd_map");
+Irssi::signal_add("redir links_line", "event_links_line");
+Irssi::signal_add("redir links_done", "event_links_done");
+Irssi::settings_add_bool("lookandfeel", "show_server_names", 1);
+
+Irssi::Irc::Server::redirect_register("command map", 0, 0,
+    {
+      "event 364" => 1, # link line (wait...)
+    },
+    {
+      "event 402" => 1,  # not found
+      "event 263" => 1,  # try again
+      "event 365" => 1,  # end of links
+    },
+    undef,
+    );
+
+
+Irssi::print("Map $VERSION loaded...");
diff --git a/scripts/mass_hilight_blocker.pl b/scripts/mass_hilight_blocker.pl
new file mode 100644
index 0000000..d5908ab
--- /dev/null
+++ b/scripts/mass_hilight_blocker.pl
@@ -0,0 +1,63 @@
+# disable hilighting of mass-hilights
+# (messages which contain a lot of nicknames)
+#
+# DESCRIPTION
+# sometimes a jester annoys a channel with a message
+# containing a lot of nicks that are in that channel. 
+# this script prevents hilighting of a window in this
+# case. number of nicks in the message is user
+# configurable in the variable mass_highlight_threshold.
+# 
+# CHANGELOG
+# * 01.05.2004
+# fixed problems with nicks containing brackets
+# added comments, description and this changelog :)
+# * 30.05.2004
+# first version of the script
+
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.2";
+%IRSSI = (
+        authors         => "Uli Baumann",
+	contact         => "f-zappa\@irc-muenster.de",
+	name            => "mass_hilight_blocker",
+	description     => "Disables hilighting for messages containing a lot of nicknames",
+	license         => "GPL",
+	changed	        => "Tue Jun  1 13:32:20 CEST 2004",
+);
+
+
+sub sig_printtext {
+  my ($dest, $text, $stripped) = @_;	# our parameters
+  my $window = $dest->{window};		# where irssi wants to output
+  my $num_nicks=-1;			# don't count target's nick
+  my $max_num_nicks=Irssi::settings_get_int('mass_hilight_threshold');
+
+  if ($dest->{level} & MSGLEVEL_HILIGHT)# we solely look at hilighted messages
+    {
+      my $server  =  $dest->{server};	# get server and channel for target
+      my $channel =  $server->channel_find($dest->{target});
+      
+      foreach $nick ($channel->nicks()) # walk through nicks
+        {
+          $nick = $nick->{nick};
+          $nick =~ s/([\]\[])/\\$1/g;	# ']' and '[' need masking
+          if ($text =~ /$nick/)		# does line contain this nick?
+            {$num_nicks++;}		# then increase counter
+        }
+      
+      if ($num_nicks>=($max_num_nicks)) # all criteria match?
+        {
+          $window->print($text, MSGLEVEL_PUBLIC);	# inform user
+          $window->print('mass-hilighting in above message ('.$num_nicks.' nicks)',MSGLEVEL_CLIENTCRAP);
+          Irssi::signal_stop();		# don't process any further
+        }
+    }
+}
+
+# tell irssi to use this and initialize variable if necessary
+
+Irssi::signal_add_first('print text', 'sig_printtext');
+Irssi::settings_add_int('misc','mass_hilight_threshold',3);
+
diff --git a/scripts/mg.pl b/scripts/mg.pl
new file mode 100644
index 0000000..101db2f
--- /dev/null
+++ b/scripts/mg.pl
@@ -0,0 +1,228 @@
+# DCC MultiGet
+# by Kaveh Moini
+#
+# Description:
+#	* A small and rather resilient script for fetching a list of single packs 
+# 	  and ranges of packs from an XDCC bot
+#	* Can handle abrupt closing of DCC connection, check whether transfer 
+#	  started, and restart incomplete transfers
+#	* Avoids flooding bots and getting banned by using configurable delays 
+#	  (with sane defaults)
+#	* Configurable message prefix
+#
+# Requires:
+#	* Written on IRSSI 0.8.13 (20090331), can't be guaranteed to work on 
+#	  previous versions but testing won't hurt 
+#	  (don't forget to change 'use Irssi [version];' line)
+#	* dcc_autoget = on
+#	* dcc_autoresume = on
+#
+# Note:
+#	* For security reasons MultiGet does NOT automatically set dcc_autoget 
+#	   and dcc_autoresume you have to do so manually
+# 
+# Usage:
+# 	mg <bot name> <packs to transfer>
+#	Fetches specified packs from specified bot
+#	<packs to transfer> is a list of numbers, or ranges denoted by '-'
+# 	Example: mg BotX 38 1 12-14 82 23-43
+# 	Fetches, in order given, packs 38, 1, 12 to 14, 82, and 23 to 43
+#	When a range m-n is specified m and n will be fetched too
+#	----------------------------------------------------------------------
+#	mg_cancel
+#	Cancels mg fetching, will NOT close any running transfers
+#	----------------------------------------------------------------------
+#	mg_reset
+#	Resets all mg configuration to defaults
+#
+# Configuration:
+#	NOTE: all delays are in seconds
+#	* mg_next_delay: how much to wait before requesting next pack after 
+#	  successful transfer, default 5
+#	* mg_no_transfer_delay: how much to wait before re-requesting same pack
+#	  if transfer fails, default 60
+#	* mg_dcc_closed_retry_delay: how much to wait before re-requesting same
+#	  pack if DCC connection is closed for whatever reason, default 10
+#	* mg_transfer_confirmation_delay: how much to wait before checking if 
+#	  requested transfer started, will result in re-requesting the pack if no 
+#	  offer is received from the bot after set time, default 30
+#	* mg_message_prefix: what to tell the bot to request a pack, should 
+#	  include everything before the pack number including the last 
+#	  whitespace, default "xdcc send "
+
+use strict;
+
+use Irssi 20090331;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = 20090813;
+%IRSSI = (
+	name => "mg", 
+	description => "DCC MultiGet, for fetching from XDCC bots",
+	license => "ccBSD, http://creativecommons.org/licenses/BSD/",
+	changed => "$VERSION",
+	authors => "Kaveh Moini",
+	contact => "campanastra\@gmail.com",
+);
+
+my ($server, $botname, $pncounter, $pact);
+my @totags = ();
+my @packs = ();
+
+my $nexdelay = 5; 
+my $dcrdelay = 10; 
+my $ntrdelay = 60;
+my $trcdelay = 30; 
+my $msgprefix = "xdcc send ";
+
+sub mg 
+{
+	@packs = ();
+	my @args = split(/ +/, @_[0]);
+	if ($#args < 1)
+	{
+		Irssi::print "MG | too few arguments";
+		Irssi::print "MG | usage: mg <bot name> <packs to transfer>";
+		return;
+	}
+	$server = @_[1];
+	my $witem = @_[2];
+	$botname = shift(@args);
+	my ($prh, $prl, $pn);
+	foreach my $ps (@args)
+	{
+		if ($ps =~ /^\d+-\d+$/)
+		{
+			($prl, $prh) = ($ps =~ /(\d+)-(\d+)/);
+			Irssi::print "MG | pack range: " . $prl . " through " . $prh;
+			for ($pn = $prl; $pn <= $prh; $pn += 1)
+			{
+				push(@packs, $pn);
+			}
+		}
+		elsif ($ps =~ /^\d+$/)
+		{
+			($pn) = ($ps =~ /(\d+)/);
+			Irssi::print "MG | pack number: " . $pn;
+			push(@packs, $pn);
+		}
+		else
+		{
+			Irssi::print "MG | invalid pack specification: " . $ps;
+		}
+	}
+	if ($#packs < 0)
+	{
+		Irssi::print "MG | no valid packs specifications";
+		return;
+	}
+	Irssi::print "MG | bot name: " . $botname;
+	Irssi::print "MG | message prefix: " . "\"" . $msgprefix . "\"";
+	$pncounter = 0;
+	$pact = 0;
+	Irssi::signal_add("dcc closed", "mghandler");
+	Irssi::signal_add("dcc get receive", "dcchandler");
+	Irssi::print "MG | beginning with: " . $packs[$pncounter];
+	&reqpack;
+}
+
+sub mghandler
+{
+	my ($dcc) = @_;
+	if ($dcc->{'nick'} eq $botname)
+	{
+		Irssi::print "MG | pack " . $packs[$pncounter] . " size was: " . $dcc->{'size'};
+		Irssi::print "MG | transferred: " . $dcc->{'transfd'};
+		Irssi::print "MG | skipped: " . $dcc->{'skipped'};
+		$pact = 0;
+		foreach my $to (@totags)
+		{
+			Irssi::timeout_remove($to);
+		}
+		@totags = ();
+		if ($dcc->{'transfd'} == $dcc->{'size'})
+		{
+			Irssi::print "MG | transfer successful";
+			if ($pncounter < $#packs)
+			{
+				Irssi::print "MG | waiting " . $nexdelay . " seconds";
+				Irssi::timeout_add_once($nexdelay * 1000, sub { $pncounter += 1; Irssi::print "MG | getting next: " . $packs[$pncounter]; &reqpack; } , []);
+			}
+			else
+			{
+				Irssi::print "MG | ending at: " . $packs[$pncounter];
+				Irssi::signal_remove("dcc closed", "mghandler");
+				Irssi::signal_remove("dcc get receive", "dcchandler");
+				@packs = ();
+			}
+		}
+		else
+		{
+			Irssi::print "MG | transfer failed";
+			Irssi::print "MG | waiting " . $dcrdelay . " seconds";
+			Irssi::timeout_add_once($dcrdelay * 1000, sub { Irssi::print "MG | retrying: " . $packs[$pncounter]; &reqpack; } , []);
+		}
+	}
+}
+
+sub dcchandler
+{
+	my ($gdcc) = @_;
+	if ($gdcc->{'nick'} eq $botname)
+	{
+		Irssi::print "MG | received connection for: " . $packs[$pncounter]; 
+		$pact = 1;
+	}
+}
+
+sub reqpack
+{
+	$server->command("msg $botname $msgprefix" . $packs[$pncounter]);
+	push(@totags, Irssi::timeout_add_once($trcdelay * 1000, sub { if ($pact == 0) { Irssi::print "MG | transfer status not confirmed for: " . $packs[$pncounter]; Irssi::print "MG | waiting " . $ntrdelay . " seconds"; push(@totags, Irssi::timeout_add_once($ntrdelay * 1000, sub { if ($pact == 0) { Irssi::print "MG | retrying: " . $packs[$pncounter]; &reqpack; } } , [])); } }, []));
+}
+
+sub setuphandler
+{
+	($nexdelay, $ntrdelay, $dcrdelay, $trcdelay, $msgprefix) = (Irssi::settings_get_int("mg_next_delay"), Irssi::settings_get_int("mg_no_transfer_delay"), Irssi::settings_get_int("mg_dcc_closed_retry_delay"), Irssi::settings_get_int("mg_transfer_confirmation_delay"), Irssi::settings_get_str("mg_message_prefix"));
+}
+
+sub mgreset
+{
+	$nexdelay = 5; 
+	$dcrdelay = 10; 
+	$ntrdelay = 60;
+	$trcdelay = 30; 
+	$msgprefix = "xdcc send ";
+	Irssi::settings_set_int("mg_next_delay", $nexdelay);
+	Irssi::settings_set_int("mg_no_transfer_delay", $ntrdelay);
+	Irssi::settings_set_int("mg_dcc_closed_retry_delay", $dcrdelay);
+	Irssi::settings_set_int("mg_transfer_confirmation_delay", $trcdelay);
+	Irssi::settings_set_str("mg_message_prefix", $msgprefix);
+	Irssi::print "MG | all settings reset to default values";
+}
+
+sub mgcancel
+{
+	Irssi::signal_remove("dcc closed", "mghandler");
+	Irssi::signal_remove("dcc get receive", "dcchandler");
+	foreach my $to (@totags)
+	{
+		Irssi::timeout_remove($to);
+	}
+	@totags = ();
+	Irssi::print "MG | cancelled";
+	Irssi::print "MG | last requested pack was: " . $packs[$pncounter];
+	Irssi::print "MG | remaining packs are: " . join(' ', splice(@packs, $pncounter));
+	@packs = ();
+}
+
+Irssi::settings_add_int("mg", "mg_next_delay", $nexdelay);
+Irssi::settings_add_int("mg", "mg_no_transfer_delay", $ntrdelay);
+Irssi::settings_add_int("mg", "mg_dcc_closed_retry_delay", $dcrdelay);
+Irssi::settings_add_int("mg", "mg_transfer_confirmation_delay", $trcdelay);
+Irssi::settings_add_str("mg", "mg_message_prefix", $msgprefix);
+Irssi::signal_add("setup changed", "setuphandler");
+Irssi::command_bind("mg", "mg");
+Irssi::command_bind("mg_reset", "mgreset");
+Irssi::command_bind("mg_cancel", "mgcancel");
diff --git a/scripts/miodek.pl b/scripts/miodek.pl
new file mode 100644
index 0000000..ce00bc6
--- /dev/null
+++ b/scripts/miodek.pl
@@ -0,0 +1,368 @@
+# Miodek 1.0.2
+#
+# Lam 10-11.9.2001 + pó¼niejsze zmiany s³ownika (g³ównie YagoDa)
+#
+# Pewnie ten skrypt jest napisany ¼le, co prawdopodobnie wynika z faktu, ¿e
+# to w ogóle mój pierwszy skrypt w perlu, ale có¿, na pewno ludzie, których
+# ten skrypt kopie s± g³upsi od niego :)
+#
+# S³ownik jest wynikiem nocnego przegl±dania logów z irca (g³ównie
+# grepowania po "sh" oraz "kunia") i powiêksza siê podczas ka¿dej rozmowy :)
+#
+# 10:32 <aska|off> hm... to u was za kopiom???????
+# 10:32 <aska|off> ehhee za kcenie??????
+#
+# Miodek 2.0 z obs³ug± regexów i s³owników w plikach by³ w
+# przygotowaniu, ale po padzie dysku straci³em ochotê odzyskiwania go.
+# Na jaki¶ czas.
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.2";
+%IRSSI = (
+	authors => "Leszek Matok, Andrzej Jagodziñski",
+	contact => "lam\@lac.pl",
+	name => "miodek",
+	description => "Simple wordkick system, with extended polish dictionary for channels enforcing correct polish.",
+	license => "GPLv2",
+	changed => "10.3.2002 20:10"
+);
+
+
+my $miodek = '
+# moje w³asne dopiski :> (by yagus)
+
+szypko          szybko
+wogule          w ogole
+qrva            panna lekkich obyczajow
+drobiask        drobiazg
+ogladash        ogl±dasz
+przeciesh       przecie¿
+zeszycikof      zeszytów
+widzish         widzisz
+JESOOO          Jezu
+jesooooooo      Jezu
+jesoooooooo     Jezu
+jesooooooooo    Jezu
+jesoooooooooo   Jezu
+jesooooooooooo  Jezu
+jesoooooooooooo Jezu
+zgadzash        zgadzasz
+jesooo          Jezu
+jesoooo         Jezu
+jesooooo        Jezu
+jesoooooo       Jezu
+zobaczysh       zobaczysz
+pokonash        pokonasz
+nawidzish       nawidzisz
+myslish         myœlisz
+komplexof       kompleksów
+chujq           cz³onku
+moofi           mówi
+umiesh          umiesz
+lubish          lubisz
+tilaf           T.Love
+wjesz           wiesz
+priff           priv
+prif            priv
+lukof           £uków
+lukoof          £uków
+kad             sk±d
+k¹d             sk±d
+wlosoof         w³osów
+wlosof          w³osów
+dobzie          dobrze
+fogóle          w ogóle 
+fogole          w ogóle
+wogóle          w ogóle
+wogole          w ogóle
+pishesz         piszesz
+pishesh         piszesz
+mooofish        mówisz
+uwazash         uwa¿asz
+slyshysh        s³yszysz
+zaparofaly      zaparowa³y
+wyprafiash      wyprawiasz
+wyprafiasz      wyprawiasz
+znof            znów
+idziesh         idziesz
+grash           grasz
+moofi³          mówi³
+moofil          mówi³
+qlfa            kurwa
+dopsie          dobrze
+schodof         schodów
+pierdolic       kochaæ
+pierdoliæ       kochaæ
+jebaæ           uprawiaæ mi³o¶æ
+jebac           uprawiaæ mi³o¶æ
+pierdolec       kochanek
+psyjechac       przyjechaæ
+kces            chcesz
+przyjebal       pokocha³
+przyjeba³       pokocha³
+ujebal          pokocha³ 
+zajebal         zakocha³
+ujeba³          pokocha³
+zajeba³         zakocha³
+chuja           cz³onka
+huja            cz³onka
+pierdoli        kocha
+odwiezesh       odwieziesz
+bedziesh        bêdziesz
+mooofiles       mówi³e¶
+moofiles        mówi³e¶
+mofi            mówi
+dogryzash       dogryzasz
+terash          teraz
+tfooj           twój
+dorosniesh      doro¶niesz
+pofiem          powiem
+poffiem         powiem
+dopla           dobra
+doblam          dobra
+# typowe kretynizmy (90% by Lam)
+tesh            te¿
+tesz            te¿
+tysh            te¿
+tysz            te¿
+jush            ju¿
+jusz            ju¿
+ush             ju¿
+mash            masz
+cush            có¿
+coosh           có¿
+cosh            có¿
+robish          robisz
+jesh            jesz
+# qrwa          kurwa
+kurfa           kurwa
+qrfa            kurwa
+kofam           kocham
+koffam          kocham
+kofany          kochany
+koffany         kochany
+kofana          kochana
+koffana         kochana
+moofie          mówiê
+moof            mów
+moofisz         mówisz
+moofish         mówisz
+mofie           mówiê
+mof             mów
+mofisz          mówisz
+mofish          mówisz
+pofiem          powiem
+gadash          gadash
+wiesh           wiesz
+fiesh           wiesz
+fiem            wiem
+# tego wprost nienawidzê!
+KCE             chcê
+kce             chcê
+kcem            chcê
+kcesz           chcesz
+kcesh           chcesz
+moshe           mo¿e
+mosze           mo¿e
+moshna          mo¿na
+# widzia³em jak jaki¶ czik o inteligencji ameby pisa³ "moszna", ale smaczek ;)
+bosh            bo¿e
+boshe           bo¿e
+boshesh         bo¿e
+jesu            Jezu
+joosh           ju¿
+# no tego to ja bym nie wymy¶li³ :)
+fokle           w ogóle
+psheprasham     przepraszam
+# a to s³owo ma tyle wersji.. ci ludzie naprawdê siê nudz±.
+dobshe          dobrze
+dopshe          dobrze
+dopsze          dobrze
+dopsz           dobrze
+topshe          dobrze
+topsze          dobrze
+topsz           dobrze
+topla           dobra
+toplanoc        dobranoc
+dopry           dobry
+dopra           dobra
+# od tego momentu wy³±cznie wy³apane na ircu
+napish          napisz
+palish          palisz
+trafke          trawkê
+trafka          trawka
+slofa           s³owa
+pishe           pisze
+piszem          piszê
+moozg           mózg
+kref            krew
+krfi            krwi
+naprafde        naprawdê
+zafsze          zawsze
+dziendopry      dzieñdobry
+snoof           snów
+kopiom          kopi±
+kcenie          chcenie
+kcê             chcê
+kórfa           kurwa
+kórwa           kurwa
+mooj            mój
+jesoo           Jezu
+loodzie         ludzie
+loodzi          ludzi
+ktoora          która
+ktoory          który
+ktoore          które
+gloopi          g³upi
+gloopia         g³upia
+goopi           g³upi
+goopia          g³upia
+gupi            g³upi
+gupia           g³upia
+siem            siê
+pshesada        przesada
+booziak         buziak
+booziaki        buziaki
+mogem           mogê
+bes             bez
+spowrotem       z powrotem
+poczeba         potrzeba
+niepoczeba      nie potrzeba
+czeba           trzeba
+glofa           g³owa
+glofe           g³owê
+suonce          s³oñce
+fitam           witam
+fitaj           witaj
+fitajcie        witajcie
+slofnik         s³ownik
+# usuniête w wyniku batalii o Jerzego Owsiaka. Prawdopodobnie nied³ugo
+# zobaczymy to s³owo w s³owniku. Ciekawe co napisz± pod has³em "siemanie"?
+# siema         siê ma
+# siemasz       siê masz
+cieshysh        cieszysz
+tfierdzish      twierdzisz
+jezd            jest
+brzytkie        brzydkie
+brzytki         brzydki
+brzytka         brzydka
+otfarty         otwarty
+otfarte         otwarte
+otfarta         otwarta
+leprzy          lepszy
+leprze          lepsze
+leprza          lepsza
+lepshy          lepszy
+lepshe          lepsze
+lepsha          lepsza
+zief            ziew
+kfila           chwila
+kfile           chwilê
+kfilka          chwilka
+kfilke          chwilkê
+bendem          bêdê
+lecem           lecê
+pifo            piwo
+pifko           piwko
+pifkiem         piwkiem
+bszytkie        brzydkie
+bszytki         brzydki
+bszytka         brzydka
+goofny          g³ówny
+goofno          gówno
+muoda           m³oda
+miaua           mia³a
+miauam          mia³am
+tszeba          trzeba
+wporzo          w porzo
+# na pro¶bê Upiora trochê bluzgów + nowe by yagoda
+kurwa           dziewica orleañska
+kurwy           panny
+kurwie          pannie
+kurewka         panienka
+kurwo           panno
+qrwa            prostytutka
+# eksperymentalne wielkie litery :-)
+CHUJ            cz³oneczek
+HUJ             cz³oneczek
+KURWA           panienka
+KURWY           panny
+CIPA            pochwa
+PIZDA           pochwa
+SKURWYSYN       Protas
+chuj            cz³onek
+chuje           cz³onki
+chujowo         cz³onkowsko
+chujowy         cz³onkowski
+chujowa         cz³onkowska
+chujowe         cz³onkowskie
+huj             cz³onek
+huje            cz³onki
+hujowo          cz³onkowsko
+hujowy          cz³onkowski
+hujowa          cz³onkowska
+hujowe          cz³onkowskie
+cipa            pochwa
+pizda           pochwa
+pierdolony      kochany
+pierdolona      kochana
+pierdolone      kochane
+jebany          kochany
+jebana          kochana
+jebane          kochane
+skurwysyn       Protas
+skurwysynu      synu prostytutki
+skurwiel        Lam
+skurwielu       z kur wielu
+pierdole        kocham
+jebie           kocham
+pierdol         kochaj
+kutas           penis
+cipka           pochewka
+';
+
+my %slowa;
+my $ilosc_slow = 0;
+
+foreach my $linia (split(/\n/, $miodek)) {
+	chomp $linia;
+	next if ($linia =~ /^#/ || $linia eq "");
+
+	my ($org, $popraw) = split(/\s+/, $linia, 2);
+	$slowa{$org} = $popraw;
+	$ilosc_slow++
+}
+
+sub server_event {
+	my ($server, $data, $nick, $address) = @_;
+	my ($type, $data) = split(/ /, $data, 2);
+	return unless ($type =~ /privmsg/i);
+	my ($target, $tekst) = split(/ :/, $data, 2);
+	my $powod;
+
+	# pozbywam siê syfów kontrolnych, oraz ^A z CTCP
+	# mo¿e jest jaka¶ funkcja w irssi do wycinania kolorów mircowych?
+	$tekst =~ s/[
]//g;
+
+	foreach my $wyraz (split(/[\s,.;!?\/"`':()_-]/,$tekst)) {
+		my $popraw = $slowa{$wyraz};
+		if ($popraw) {
+			if ($powod) {
+				$powod = $powod . ", ";
+			}
+			$powod = $powod . $popraw;
+		}
+	}
+
+	if ($powod && $target =~ /^[#!+&]/ ) {
+		$server->command("/kick $target $nick $powod");
+		Irssi::print "%Rkop%n ($target): %c$nick%n, powod: $powod";
+	}
+}
+
+# Musia³em siê podczepiæ pod server event zamiast event privmsg, bo irssi
+# wycina CTCP z PRIVMSG (co jest dla mnie zachowaniem dziwnym).
+Irssi::signal_add_last("server event", "server_event");
+Irssi::print "%GMiodek%c:%n ilo¶æ s³ów w s³owniku: $ilosc_slow";
diff --git a/scripts/mirc_colour_popup.pl b/scripts/mirc_colour_popup.pl
new file mode 100644
index 0000000..b12c4f6
--- /dev/null
+++ b/scripts/mirc_colour_popup.pl
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+# mirc_colour_popup irssi module
+#
+# Shows a mIRC-style colour popup when you hit ^C.
+#
+# usage:
+#
+# after loading the script, add the statusbar item somewhere convenient: 
+#   /statusbar window add -after barstart colours
+#
+
+use strict;
+use Irssi;
+use Irssi::TextUI;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+    authors     => "Michael Kowalchuk",
+    contact     => "michael.kowalchuk\@gmail.com",
+    name        => "mirc_colour_popup",
+    description => "Shows a mIRC-style colour popup when you hit ^C.",
+    license     => "Public Domain",
+    changed     => "9.26.2008",
+);
+
+
+my $vis;
+
+my @colours = ('W','k','b','g','R','r','m','y','Y','G','c','C','B','P','K','w');
+
+sub colours_sb {
+	my ($item, $get_size_only) = @_;
+
+	my $txt;
+	if( $vis ) {
+		$txt = join " ", map { "\%$colours[$_]$_" } 0 .. 15;
+	}
+	$item->default_handler($get_size_only, "{sb $txt}", undef, 1);
+}
+
+
+Irssi::signal_add_last 'gui key pressed' => sub {
+	my ($key) = @_;
+
+	if( not $vis and $key eq 3 ) {
+		$vis = 1;
+		Irssi::statusbar_items_redraw('colours');
+	}
+
+	elsif( $vis and $key ne 3 ) {
+		$vis = undef;
+		Irssi::statusbar_items_redraw('colours');
+	}
+
+};
+
+Irssi::statusbar_item_register('colours', undef, 'colours_sb');
+
+
diff --git a/scripts/mkick.pl b/scripts/mkick.pl
new file mode 100644
index 0000000..6903ab2
--- /dev/null
+++ b/scripts/mkick.pl
@@ -0,0 +1,114 @@
+#
+# Usage: /MKICK [options] [mode] [mask] [reason]
+# Options:
+#	-n	normal kick
+#	-6	'2+4' kickmethod
+# Mode:
+#	-a	all on channel
+#	-o	chops
+#	-v	chvoices
+#	-d	users without op
+#	-l	users without op and voice
+# Settings.
+#	/SET masskick_default_reason [reason]
+#	/SET masskick_default_use_6method [On/Off]
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.9";
+%IRSSI = (
+	authors		=> 'Marcin Rozycki',
+	contact		=> 'derwan@irssi.pl',
+	name		=> 'mkick',
+	description	=> 'Masskick, usage: /mkick [-aovdln6 (hostmask)] <[:]reason>',
+	license		=> 'GNU GPL v2',
+	url		=> 'http://derwan.irssi.pl',
+	changed		=> 'Wed Oct  6 20:58:38 CEST 2004'
+);
+
+Irssi::theme_register([
+	'mkick_not_connected',	'Mkick: Not connected to server',
+	'mkick_not_chanwin',	'Mkick: Not joined to any channel',
+	'mkick_not_chanop',	'Mkick: You\'re not channel operator on {hilight $0}',
+	'mkick_syntax',		'Mkick: $0, use: /MKICK [-a|-o|-v|-d|-l] [-n|-6] (mask) [reason]',
+	'mkick_no_users',	'%_Mkick:%_ No users matching given criteria',
+	'mkick_kicklist',	'%_Mkick:%_ Send masskick for $1 users on $0: $2-'
+]);
+
+sub cmd_mkick
+{
+	my ($args, $server, $witem) = @_;
+
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_not_connected"), return if (!$server or !$server->{connected});
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_not_chanwin"), return if (!$witem or $witem->{type} !~ /^channel$/i);
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_not_chanop", $witem->{name}), return if (!$witem->{chanop});
+
+	my $reason = Irssi::settings_get_str("masskick_default_reason");
+	my $method = Irssi::settings_get_bool("masskick_default_use_6method");
+	my $servernick = $server->{nick};
+	my $channel = $witem->{name};
+	my $mode = undef;
+	my $mask = "*!*\@*";
+
+	my @kicklist = ();
+	my @nicklist = ();
+	my @args = split(/ +/, $args);
+
+	while ($_ = shift(@args))
+	{
+		/^..*!..*@..*$/ and $mask = "$&", next;
+		/^-(a|o|v|d|l)$/ and s/-//, $mode = $_, next;
+		/^-(n|6)$/ and $method = $_ =~ s/6//, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "mkick_syntax", "Unknown argument: $_"), return;
+		/^:/ and s/^://;
+		$reason = ($#args >= 0) ? $_." ".join(" ", @args) : $_;
+		last;
+	};
+
+	unless ($mode) {
+		Irssi::printformat(MSGLEVEL_CRAP, "mkick_syntax", "Missing argument"), return if ($mask eq '*!*@*');
+		$mode = "a";
+	};
+
+	foreach my $hash ($witem->nicks())
+	{
+		my $nick = $hash->{nick};
+		next if ($nick eq $servernick or !$server->mask_match_address($mask, $nick, $hash->{host}));
+
+		my $isop = $hash->{op};
+		my $isvoice = $hash->{voice};
+
+		if ($mode eq "a" or
+		    $mode eq "o" && $isop or
+		    $mode eq "v" && $isvoice && !$isop or
+		    $mode eq "d" && !$isop or
+		    $mode eq "l" && !$isop && !$isvoice) {
+			push(@kicklist, $nick);
+			my $mod = ($isop == 1) ? "\@" : ($isvoice == 1) ? "+" : undef;
+			push(@nicklist, $mod.$nick);
+		};
+	};
+
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_no_users", $mask, $mode), return if ($#kicklist < 0);
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_kicklist", $channel, scalar(@nicklist), @nicklist);
+
+	if ($method > 0) {
+		$reason = substr($reason, 0, 15) if (length($reason) > 15);
+		while (@kicklist) {
+			$server->send_raw("KICK $channel ".join(",", @kicklist[0 .. $method])." :$reason");
+			@kicklist = @kicklist[($method + 1)..$#kicklist];
+			$method = ($method == 3 && $#kicklist > 3) ? 1 : 3;
+		};
+	} else {
+		$server->send_raw_split("KICK $channel ".join(",", @kicklist)." :$reason", 2, $server->{max_kicks_in_cmd});
+	};
+};
+
+Irssi::settings_add_str("misc", "masskick_default_reason", "Irssi BaBy!");
+Irssi::settings_add_bool("misc", "masskick_default_use_6method", 0);
+
+Irssi::command_bind("mkick", "cmd_mkick");
diff --git a/scripts/mkshorterlink.pl b/scripts/mkshorterlink.pl
new file mode 100644
index 0000000..5add6d6
--- /dev/null
+++ b/scripts/mkshorterlink.pl
@@ -0,0 +1,221 @@
+## mkshorterlink.pl -- Irssi interface for makeashorterlink.com
+## (C) 2002 Gergely Nagy <algernon@bonehunter.rulez.org>
+##
+## Released under the GPLv2.
+##
+## ChangeLog:
+## 0.1 -- Initial version
+## 0.2 -- Added support for ignoring URLs matching certain regexps.
+##        (Thanks to Ganneff for the idea)
+## 0.3 -- Added help messages.
+
+use Irssi qw();
+use LWP::UserAgent;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.3";
+
+%IRSSI = (
+	  'authors'	=> 'Gergely Nagy',
+	  'contact'	=> 'algernon\@bonehunter.rulez.org',
+	  'name'	=> 'makeashorterlink.com interface',
+	  'description'	=> 'Automatically filters all http:// links through makeashorterlink.com',
+	  'license'	=> 'GPL',
+	  'url'		=> 'ftp://bonehunter.rulez.org/pub/irssi/mkshorterlink.pl',
+	  'changed'	=> '2002-12-20'
+	 );
+
+my %noshort;
+my %help = (
+	    "mkshorterlink" =>
+	      "mkshorterlink is an Irssi script that filters all " .
+	      "http:// links through makeshorterlink.com. " .
+	      "Available commands are: mkshorter, mkunshor, " .
+	      "mkununshort, and mkunshortlist.",
+
+	    "mkshort" => "MKSHORT <text>\n" .
+	      "Filters the URLs in <text> through makeashorterlink.com.",
+	    
+	    "mkunshort" => "MKUNSHORT <regexps>\n" .
+	      "All URLs matching any of the listed <regexps> will be " .
+	      "ignored, and not filtered through makeashorterlink.com.",
+
+	    "mkununshort" => "MKUNUNSHORT <regexp>\n" .
+	      "Reverses the effect of MKUNSHORT.",
+
+	    "mkunshortlist" => "MKUNSHORTLIST lists all the enabled regexps."
+	   );
+
+sub cmd_help {
+	my ($args, $server, $win) = @_;
+
+	my $topic = $args;
+	$topic =~s/^\s*(.*)\s+?$/$1/;
+	if (defined ($help{$topic}))
+	{
+		Irssi::signal_stop ();
+		Irssi::print ($help{$topic});
+		return;
+	}
+}
+
+sub makeshorter {
+	my $msg = $_[0];
+	my $ua = LWP::UserAgent->new (env_proxy => 1,
+				      keep_alive => 0,
+				      timeout => 10,
+				      agent => '');
+	my $response = $ua->post ("http://makeashorterlink.com/index.php",
+				  ['url' => "$msg"]);
+	if ($response->content =~ /Your shorter link is: <a href=\"([^\"]+)\"/) {
+		return $1;
+	} else {
+		return $msg;
+	}
+}
+
+sub mkshorter {
+	my $msg = $_[0];
+	my $short = 1;
+
+	foreach (keys %noshort)
+	{
+		$short = 0 if ($noshort{$_} && $msg =~ /$_/);
+	}
+	
+	if ($msg =~ /(https?:\/\/[^ ]+)/ && $short)
+	{
+		my $t = $1;
+		
+		if ($t =~ /([\.\?\!,] ?)$/)
+		{
+			$t=~s/$1//;
+		}
+		$msg =~ s/$t/&makeshorter($t)/e;
+	}
+	return $msg;
+}
+
+sub cmd_mkshorter {
+	my ($msg, undef, $channel) = @_;
+	my $public = 0;
+	
+	if ($msg =~ /^-p */)
+	{
+		$public = 1;
+		$msg =~ s/^-p *//;
+	}
+	
+	if (defined ($channel) && $channel && $public)
+	{
+		$channel->command("msg $channel->{'name'} " .
+				  mkshorter($msg));
+	} else {
+		Irssi::active_win()->printformat(MSGLEVEL_CLIENTCRAP,
+						 'mkshorterlink_crap',
+						 mkshorter ($msg));
+	}
+}
+
+sub sig_mkshorter {
+	my ($server, $msg, $nick, $address, $target) = @_;
+	$target = $nick if $target eq "";
+	$nick = $server->{'nick'} if $address eq "";
+	my $newmsg = mkshorter ($msg);
+
+	$server->window_item_find ($target)->print ("[mkshort] <$nick> " .
+						    $newmsg, MSGLEVEL_CRAP)
+	if ($newmsg ne $msg);
+}
+
+sub cmd_mkunshort {
+	my @params = split (" ", $_[0]);
+
+	foreach (@params)
+	{
+		$noshort{$_} = 1;
+	}
+}
+
+sub cmd_mkununshort {
+	my @params = split (" ", $_[0]);
+
+	foreach (@params)
+	{
+		$noshort{$_} = 0;
+	}
+}
+
+sub cmd_mkunshortlist {
+	Irssi::active_win()->printformat (MSGLEVEL_CLIENTCRAP,
+					  'mkshorterlink_crap',
+					  "URLs matching these are ignored: ");
+	foreach (keys %noshort)
+	{
+		Irssi::active_win()->printformat (MSGLEVEL_CLIENTCRAP,
+						  'mkshorterlink_crap',
+						  $_)
+		  if ($noshort{$_});
+	}
+}
+
+sub load_unshortlist {
+	my $file = Irssi::get_irssi_dir."/unshortlist";
+	my $count = 0;
+	local *CONF;
+	
+	open CONF, "< $file";
+	while (<CONF>)
+	{
+		$noshort{$_} = 1;
+		$count++;
+	}
+	close CONF;
+	
+	Irssi::printformat (MSGLEVEL_CLIENTCRAP, 'mkshorterlink_crap',
+			    "Loaded $count ignore-regexps from $file.");
+}
+
+sub save_unshortlist {
+	my $file = Irssi::get_irssi_dir."/unshortlist";
+	local *CONF;
+
+	open CONF, "> $file";
+	foreach (keys %noshort)
+	{
+		print CONF $_ if ($noshort{$_});
+	}
+	close CONF;
+
+	Irssi::printformat (MSGLEVEL_CLIENTCRAP, 'mkshorterlink_crap',
+			    "Saved ignore-regexps to $file.");
+}
+
+sub sig_setup_rered {
+	load_unshortlist ();
+}
+
+sub sig_setup_save {
+	save_unshortlist ();
+}
+
+Irssi::command_bind ('mkshorter', 'cmd_mkshorter');
+Irssi::command_bind ('mkunshort', 'cmd_mkunshort');
+Irssi::command_bind ('mkununshort', 'cmd_mkununshort');
+Irssi::command_bind ('mkunshortlist', 'cmd_mkunshortlist');
+Irssi::command_bind ('help', 'cmd_help');
+Irssi::signal_add_last ('message own_public', 'sig_mkshorter');
+Irssi::signal_add_last ('message public', 'sig_mkshorter');
+Irssi::signal_add_last ('message own_private', 'sig_mkshorter');
+Irssi::signal_add_last ('message private', 'sig_mkshorter');
+Irssi::signal_add ('setup reread', 'sig_setup_reread');
+Irssi::signal_add ('setup saved', 'sig_setup_save');
+
+Irssi::theme_register(
+		      [
+		        'mkshorterlink_crap',
+		        '{line_start}{hilight mkshorterlink:} $0'
+		      ]);
+
+load_unshortlist ();
diff --git a/scripts/mldonkey_bandwidth.pl b/scripts/mldonkey_bandwidth.pl
new file mode 100644
index 0000000..80138bc
--- /dev/null
+++ b/scripts/mldonkey_bandwidth.pl
@@ -0,0 +1,44 @@
+require LWP::UserAgent;
+use Irssi;
+use HTTP::Request::Common;
+use strict;
+use vars qw($VERSION %IRSSI);
+######################
+my $ip = "127.0.0.1";
+#enter mldonkey's IP here and make sure you are allowed to connect!
+######################
+$VERSION = "20030712";
+%IRSSI = (
+	authors		=> "Carsten Otto",
+	contact		=> "c-otto\@gmx.de",
+	name		=> "mldonkey bandwidth script",
+	description	=> "Shows your mldonkey's current down- and upload rate",
+	license		=> "GPLv2",
+	url		=> "http://www.c-otto.de",
+	changed		=> "$VERSION",
+	commands	=> "mlbw"
+);
+sub cmd_mlbw
+{
+	my ($args, $server, $target) = @_;
+	my $ua = LWP::UserAgent->new(timeout => 5);
+	my $req = GET "http://$ip:4080/submit?q=bw_stats";
+	my $resp = $ua->request($req);
+	my $output = $resp->content();
+	my $down = $output;
+	my $up = $output;
+	$down =~ s/.*Down: ([0-9]*\.*[0-9]) KB.*/$1/s;
+	$up =~ s/.*Up: ([0-9]*\.*[0-9]) KB.*/$1/s;
+	if ($down eq "") { $down = "(off)"; }
+	if ($up eq "") { $up = $down; }
+	$output = "-MLdonkey bandwidth stats- Down: $down - Up: $up";
+	if (!$server || !$server->{connected} || !$target)
+	{
+		Irssi::print $output;
+	} else
+	{
+		Irssi::active_win() -> command('say ' . $output);
+	}
+}
+
+Irssi::command_bind('mlbw', 'cmd_mlbw');
diff --git a/scripts/mlock.pl b/scripts/mlock.pl
new file mode 100644
index 0000000..bf2fd00
--- /dev/null
+++ b/scripts/mlock.pl
@@ -0,0 +1,135 @@
+# /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.
+# You can remove the lock with /MODE #channel -
+
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Timo Sirainen',
+    name        => 'mlock',
+    description => 'Channel mode locking',
+    license     => 'Public Domain',
+    changed	=> 'Sun Mar 10 23:18 EET 2002'
+);
+
+my %keep_channels;
+
+sub cmd_mlock {
+	my ($data, $server) = @_;
+	my ($channel, $mode) = split(/ /, $data, 2);
+
+	if ($mode eq "-") {
+		# remove checking
+		delete $keep_channels{$channel};
+	} else {
+		$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/scripts/modelist-r.pl b/scripts/modelist-r.pl
new file mode 100644
index 0000000..5834e5e
--- /dev/null
+++ b/scripts/modelist-r.pl
@@ -0,0 +1,467 @@
+# $Id: modelist-r.pl,v 0.8.0-rc4 2004/11/04 19:56 derwan Exp $
+#
+# This script creates cache of channel invites, ban exceptions and reops.
+# Reop list is included only in ircd >= 2.11.0 (in IRCnet) - for other servers
+# and networks use modelist.pl ( http://derwan.irssi.pl/modelist.pl).
+#
+# Script commands:
+#   /si   - shows channel invites
+#   /se   - shows ban exception
+#   /sr   - shows reop list
+#   
+#   /uninvite [<index and masks separated with spaces>]
+#         - removes the specified invite(s) from the channel
+#   /unexcept [<index and masks separated with spaces>]
+#         - removes the specified ban exception(s) from the channel
+#   /unreop [<index and masks separated with spaces>]
+#         - removes the specified reop(s) from the channel
+#
+#   Examples:
+#      /si
+#      /uninvite 1
+#      /unexcept *!*@127.0.0.1
+#      /unreop 1 *!*@127.0.0.1 5
+#
+# After loading modelist-r.pl run command
+#   /statusbar window add -priority 0 -after usercount modelist 
+#
+# You can customize the look of this item from theme file:
+#   sb_modelist = "{sb $0 modes ($1-)}";
+#   sb_ml_b = "b/%r$*%n"; # bans
+#   sb_ml_e = "e/%c$*%n"; # ban exceptions
+#   sb_ml_I = "I/%G$*%n"; # invites
+#   sb_ml_R = "R/%R$*%n"; # reops
+#   sb_ml_space = " ";    # separator
+#
+# Theme formats:
+#   modelist                   $0 - index, $1 - channel, $2 - hostmask, 3 - mode 
+#   modelist_long              $4 - nick, $5 - time
+#   modelist_empty             $0 - channel, $1 - mode
+#   modelist_chan_not_synced   $0 - channel
+#   modelist_not_joined
+#   modelist_server_version    $0 - version
+#   
+
+use strict;
+use vars ('$VERSION', '%IRSSI');
+
+use Irssi 20020600 ();
+use Irssi::Irc;
+use Irssi::TextUI;
+
+$VERSION = '0.8.0-rc4';
+%IRSSI =
+(
+   'authors'      => 'Marcin Rozycki',
+   'contact'      => 'derwan@irssi.pl',
+   'name'         => 'modelist-r',
+   'description'  => 'Cache of invites, ban exceptions and reops in channel. Script commands: '.
+                     '/si, /se, /sr, /unexcept, /uninvite, /unreop (version only for ircd >= 2.11.0).',
+   'license'      => 'GNU GPL v2',
+   'modules'      => '',
+   'url'          => 'http://derwan.irssi.pl',
+   'changed'      => 'Thu Nov  4 17:56:17 2004',
+);
+
+Irssi::theme_register
+([
+   # $0 - index, $1 - channel name, $2 - hostmask, $3 - mode (invite, ban exception, reop)
+   'modelist', '$0 - {channel $1}: $3 {ban $2}',
+   # $0 - index, $1 - channel name, $2 - hostmask, $3 - mode, $4 - nick, $5 - time
+   'modelist_long', '$0 - {channel $1}: $3 {ban $2} {comment by {nick $4}, $5 secs ago}',
+   # $0 - channel name, $1 - mode
+   'modelist_empty', 'No $1s in channel {channel $0}',
+   # $0 - channel name
+   'modelist_chan_not_synced', 'Channel not fully synchronized yet, try again after a while',
+   # $0 - channel name
+   'modelist_chan_no_modes', 'Channel {channel $0} doesn\'t support modes',
+   'modelist_not_joined', 'Not joined to any channel',
+   # $0 - version
+   'modelist_server_version', 'This script working only in ircd {hilight >= 2.11.0} with reop list {comment active ircd $0}' 
+]);
+
+# $modelist{str servertag}->{lc str channel}->{str mode} = [ $moderec, ... ]
+# $moderec = [ str hostmask, str nick, str time ]
+my %modelist = ();
+
+# $synced{str servertag}->{lc str channel} = int synced
+my %synced = ();
+
+#  $visible{str mode} = str list
+my %visible =
+(
+   'e' => 'ban exception',
+   'I' => 'invite',
+   'R' => 'reop'
+);
+
+# $sb->{str mode} = int modes
+my $sb = {};
+
+# server redirections:
+#   'modelist I' ( 346, 347, 403, 442, 472, 479, 482)
+#   'modelist e' ( 348, 349, 403, 442, 472, 479, 482)
+#   'modelist R' ( 344, 345, 403, 442, 472, 479, 482)
+Irssi::Irc::Server::redirect_register('modelist I', 0, 0, { 'event 346' => 1 }, {
+   'event 347' => 1, # end of channel invite list
+   'event 403' => 1, # no such channel
+   'event 442' => 1, # you're not on that channel
+   'event 472' => 1, # unknown mode
+   'event 479' => 1, # illegal channel name
+   'event 482' => 1  # you're not channel operator
+}, undef );
+
+Irssi::Irc::Server::redirect_register('modelist e', 0, 0, { 'event 348' => 1 }, {
+   'event 349' => 1, # end of channel exception list
+   'event 403' => 1,
+   'event 442' => 1,
+   'event 472' => 1,
+   'event 479' => 1,
+   'event 482' => 1
+}, undef );
+
+Irssi::Irc::Server::redirect_register('modelist R', 0, 0, { 'event 344' => 1 }, {
+   'event 345' => 1, # end of channel reop list
+   'event 403' => 1,
+   'event 442' => 1,
+   'event 472' => 1,
+   'event 479' => 1,
+   'event 482' => 1
+}, undef );
+
+# create_channel (rec channel, int sync)
+sub create_channel ($;$)
+{
+    destroy_channel($_[0]);
+    sb_update();
+
+    my ($server, $tag, $channel) = ($_[0]->{server}, $_[0]->{server}->{tag}, lc $_[0]->{name});
+    
+    
+    if ( !test_version($server) or $_[0]->{no_modes} )
+    {
+       $synced{$tag}->{$channel} = 1;
+       return;
+    }
+    $synced{$tag}->{$channel} = ( defined $_[1] ) ? $_[1] : 0;
+        
+    $modelist{$tag}->{$channel}->{I} = [];
+    $server->redirect_event('modelist I', 1, $channel, 0, undef, {
+       'event 346' => 'redir modelist invite',
+                '' => 'event empty'
+    });
+    $server->send_raw(sprintf('mode %s +I', $channel));
+
+    $modelist{$tag}->{$channel}->{e} = [];
+    $server->redirect_event('modelist e', 1, $channel, 0, undef, {
+       'event 348' => 'redir modelist except',
+                '' => 'event empty'
+    });
+    $server->send_raw(sprintf('mode %s +e', $channel));
+
+    $modelist{$tag}->{$channel}->{R} = [];
+    $server->redirect_event('modelist R', 1, $channel, 0, undef, {
+       'event 344' => 'redir modelist reop',
+       'event 345' => 'redir modelist sync',
+       'event 403' => 'redir modelist sync',
+       'event 442' => 'redir modelist sync',
+       'event 472' => 'redir modelist sync',
+       'event 479' => 'redir modelist sync',
+       'event 482' => 'redir modelist sync',
+       '' => 'event empty'
+    });
+    $server->send_raw(sprintf('mode %s +R', $channel));
+}
+
+# destroy_channel (rec channel)
+sub destroy_channel ($)
+{
+   my ($tag, $channel) = ($_[0]->{server}->{tag}, lc $_[0]->{name});
+   delete $synced{$tag}->{$channel};
+   delete $modelist{$tag}->{$channel};
+   sb_update();
+}
+
+# sig_redir_modelist (rec server, str data, str mode)
+sub sig_redir_modelist ($$$)
+{
+   my $chanrec = $_[0]->channel_find(((split(' ', $_[1], 3))[1]));
+   if ( ref $chanrec )
+   {
+      mode($chanrec, 1, $_[2], ((split(/ +/, $_[1], 4))[2]), undef);
+   }
+}
+
+# mode (rec channel, int type, str mode, str hostmask, str setby) 
+sub mode ($$$$$)
+{
+    my $rec = get_list($_[0], $_[2]);
+    if ( ref $rec and $_[1] eq 1 )
+    {    
+       push @{$rec}, [ $_[3], $_[4], time ];
+    }
+    elsif ( ref $rec and $_[1] eq 0 )
+    {
+       for ( my $idx = 0; $idx <= $#{$rec}; $idx++ )
+       {
+         if ( lc $rec->[$idx]->[0] eq lc $_[3] )
+         {
+            splice @{$rec}, $idx, 1;
+            last;
+         }
+       }
+    }
+    sb_update();
+}
+
+# sig_channel_sync (rec channel)
+sub sig_channel_sync ($)
+{
+   if ( ++$synced{$_[0]->{server}->{tag}}->{lc $_[0]->{name}} < 2 )
+   {
+      Irssi::signal_stop();
+   }
+}
+
+# sig_modelist_sync (rec server, str data)
+sub sig_modelist_sync ($$)
+{
+   my $chanrec = $_[0]->channel_find(((split(/ +/, $_[1], 3))[1]));
+   if ( ref $chanrec )
+   {
+      Irssi::signal_emit('channel sync', $chanrec);
+      sb_update();
+   }
+}
+
+# sig_message_irc_mode (rec server, str channel, str nick, str userhost, str mode)
+sub sig_message_irc_mode ($$$$$)
+{
+   my $chanrec = $_[0]->channel_find($_[1]);
+   unless ( ref $chanrec )
+   {
+      return;
+   }
+   
+   my ($q, $mods, @a) = (1, split(/ +/, $_[4]));
+   foreach my $mod ( split('', $mods) )
+   {
+       ( $mod eq '+' ) and $q = 1, next;
+       ( $mod eq '-' ) and $q = 0, next;
+       my $a = ( rindex('beIkloRvhx', $mod) >= 0 && $q eq 1 or rindex('beIkoRvhx', $mod) >= 0 && $q eq 0 ) ? shift(@a) : undef;
+       if ( rindex('eIR', $mod) >= 0 )
+       {
+          mode($chanrec, $q, $mod, $a, $_[2]);
+       }
+   }
+}
+
+# get_list (rec channel, str mode), rec list
+sub get_list ($$)
+{
+   if ( ref $_[0] and defined $modelist{$_[0]->{server}->{tag}}->{lc $_[0]->{name}}->{$_[1]} )
+   {
+       return $modelist{$_[0]->{server}->{tag}}->{lc $_[0]->{name}}->{$_[1]};
+   }
+}
+
+# test_version (rec server), bool 0/1
+sub test_version ($)
+{
+   if ( $_[0] and ref $_[0] and $_[0]->{version} =~ m/^(\d+\.\d+)\./ and $1 >= 2.11 )
+   {
+      return 1;
+   }
+   return 0;
+}
+
+
+# test_channel (rec channel, bool quiet), bool 0/1
+sub test_channel ($;$)
+{
+   unless ( ref $_[0] and $_[0]->{type} eq 'CHANNEL' )
+   {
+       Irssi::printformat(MSGLEVEL_CRAP, 'modelist_not_joined') unless ( $_[1] );
+       return 0;
+   }
+   if ( $_[0]->{no_modes} )
+   {
+       $_[0]->printformat(MSGLEVEL_CRAP, 'modelist_chan_no_modes', $_[0]->{name}) unless ( $_[1] );
+       return 0;
+   }
+   if ( !test_version($_[0]->{server}) )
+   {
+      $_[0]->printformat(MSGLEVEL_CRAP, 'modelist_server_version', $_[0]->{server}->{version}) unless ( $_[1] );
+      return 0;
+   
+   }
+   if ( $synced{$_[0]->{server}->{tag}}->{lc $_[0]->{name}} < 2 )
+   {
+      $_[0]->printformat(MSGLEVEL_CRAP, 'modelist_chan_not_synced', $_[0]->{name}) unless ( $_[1] );
+      return 0;
+   }   
+   return 1;
+}
+
+# cmd_modelist_show (str mode)
+sub cmd_modelist_show ($)
+{
+   my $chanrec = Irssi::active_win() ? Irssi::active_win()->{active} : undef;
+   unless ( test_channel($chanrec) )
+   {
+      return;
+   }
+   my $rec = get_list($chanrec, $_[0]);
+   unless ( $#{$rec} >= 0 )
+   {
+       $chanrec->printformat
+       (
+           MSGLEVEL_CRAP, 'modelist_empty', $chanrec->{name}, $visible{$_[0]}
+       );
+       return;
+   }        
+   for ( my $idx = 0; $idx <= $#{$rec}; $idx++ )
+   {
+      $chanrec->printformat
+      (
+          MSGLEVEL_CRAP, ( defined $rec->[$idx]->[1] ? 'modelist_long' : 'modelist'), 
+          ($idx + 1), $chanrec->{name}, visible($rec->[$idx]->[0]), $visible{$_[0]},
+          $rec->[$idx]->[1], (time() - $rec->[$idx]->[2])
+       );
+   }
+}
+
+# cmd_modelist_del (str mode, str data)
+sub cmd_modelist_del ($$)
+{
+   my $chanrec = Irssi::active_win() ? Irssi::active_win()->{active} : undef;
+   unless ( test_channel($chanrec) )
+   {
+      return;
+   }
+   my ($rec, @m) = (get_list($chanrec, $_[0]));
+   foreach my $search ( split /[,;\s]+/, $_[1] )
+   {
+      if ( $search =~ m/^\d+$/ ) 
+      {
+          next unless ( $search-- and $search <= $#{$rec} );
+          $search = $rec->[$search]->[0];
+      }
+      push @m, $search;
+   }
+   if ( $#m >= 0 )
+   {
+       $chanrec->{server}->command(sprintf("mode %s -%s %s", $chanrec->{name}, $_[0] x scalar(@m), join(' ', @m)));
+   }
+}
+
+# visible (str data), str data
+sub visible ($)
+{
+   my $str = shift();
+   $str =~ tr/\240\002\003\037\026/\206\202\203\237\226/;
+   return $str;
+}
+
+# sb_update ()
+sub sb_update ()
+{
+   $sb->{b} = $sb->{e} = $sb->{I} = $sb->{R} = $sb->{T} = 0;
+   
+   my $chanrec = Irssi::active_win() ? Irssi::active_win()->{active} : undef;
+   unless ( test_channel($chanrec, 1) )
+   {
+      return;
+   }
+
+   $sb->{b} = scalar @{[$chanrec->bans]};
+   $sb->{e} = scalar @{get_list($chanrec, 'e')};
+   $sb->{I} = scalar @{get_list($chanrec, 'I')};
+   $sb->{R} = scalar @{get_list($chanrec, 'R')};
+   $sb->{T} = $sb->{b} + $sb->{e} + $sb->{I} + $sb->{R};
+
+   Irssi::statusbar_items_redraw('modelist');
+}
+
+# sb_modelist(rec item, bool get_size_only)
+# tahnks usercount.pl!
+sub sb_modelist ($$)
+{
+   unless ( $sb->{T} )
+   {
+      $_[0]->{min_size} = $_[0]->{max_size} = 0 if ( ref $_[0] );
+      return;
+   }
+
+   my $theme = Irssi::current_theme();
+   my $format = $theme->format_expand('{sb_modelist}');
+
+   if ( $format  )
+   {
+      my ($str, $space) = ('', $theme->format_expand('{sb_ml_space}'));
+      foreach my $mod ( 'b', 'e', 'I', 'R' )
+      {
+         next unless ( $sb->{$mod} > 0 );
+         my $tmp = $theme->format_expand
+         (
+             sprintf('{sb_ml_%s %d}', $mod, $sb->{$mod}), Irssi::EXPAND_FLAG_IGNORE_EMPTY
+         );
+         $str .= $tmp . $space;
+      }
+      $str =~ s/\Q$space\E$//;
+      $format = $theme->format_expand
+      (
+         sprintf('{sb_modelist %d %s}', $sb->{T}, $str), Irssi::EXPAND_FLAG_IGNORE_REPLACES
+      );
+   }
+   else
+   {
+       my $str = undef;
+       foreach my $mod ( 'b', 'e', 'I', 'R' )
+       {
+          next unless ( $sb->{$mod} > 0 );
+          $str .= sprintf('%s%d ', $mod, $sb->{$mod})
+       }
+       chop($str);
+       $format = sprintf('{sb \%%_%d\%%_ modes ', $sb->{T});
+       $format .= sprintf('\%%c(\%%n%s\%%c)', $str) if ( $str );
+   }  
+
+   $_[0]->default_handler($_[1], $format, undef, 1);
+}
+
+Irssi::signal_add_first('channel sync', 'sig_channel_sync');
+Irssi::signal_add('channel joined' => sub { create_channel($_[0], 0) });
+Irssi::signal_add('channel destroyed' => sub { destroy_channel($_[0]) });
+Irssi::signal_add('redir modelist invite' => sub { sig_redir_modelist($_[0], $_[1], 'I'); });
+Irssi::signal_add('redir modelist except' => sub { sig_redir_modelist($_[0], $_[1], 'e'); });
+Irssi::signal_add('redir modelist reop' => sub { sig_redir_modelist($_[0], $_[1], 'R'); });
+Irssi::signal_add('redir modelist sync', 'sig_modelist_sync');
+Irssi::signal_add('message irc mode', 'sig_message_irc_mode');
+Irssi::signal_add_last('ban new', 'sb_update');
+Irssi::signal_add_last('ban remove', 'sb_update');
+Irssi::signal_add_last('window changed', 'sb_update');
+Irssi::signal_add_last('window item changed', 'sb_update');
+Irssi::command_bind('si' => sub { cmd_modelist_show('I') });
+Irssi::command_bind('se' => sub { cmd_modelist_show('e') });
+Irssi::command_bind('sr' => sub { cmd_modelist_show('R') });
+Irssi::command_bind('uninvite' => sub { cmd_modelist_del('I', $_[0]) });
+Irssi::command_bind('unexcept' => sub { cmd_modelist_del('e', $_[0]) });
+Irssi::command_bind('unreop' => sub { cmd_modelist_del('R', $_[0]) });
+
+sb_update();
+
+Irssi::statusbar_item_register('modelist', undef, 'sb_modelist');
+Irssi::statusbars_recreate_items();
+
+foreach my $server ( Irssi::servers )
+{
+   foreach my $chanrec ( $server->channels )
+   {
+      create_channel($chanrec, 1);  
+   }
+}
+
+
+
+
diff --git a/scripts/modelist.pl b/scripts/modelist.pl
new file mode 100644
index 0000000..eadc639
--- /dev/null
+++ b/scripts/modelist.pl
@@ -0,0 +1,153 @@
+# modelist.pl v 0.7.2 by Marcin Rozycki (derwan@irssi.pl) changed at Sat Jun  5 22:38:59 CEST 2004
+#
+# Usage:
+#   /se
+#   /si
+#   /unexcept [index]	( ex. /unexcept 1 5 17)
+#   /uninvite [index]	( ex. /uninvite 3 8)
+#
+
+use strict;
+use Irssi 20020600 ();
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.7.2";
+%IRSSI = (
+	authors		=> 'Marcin Rozycki',
+	contact		=> 'derwan@irssi.pl',
+	name		=> 'modelist',
+	description	=> 'Cache of invites and ban exceptions in channel. Usage: /si, /se, '.
+			   '/unexcept [indexes], /uninvite [indexes]',
+	license		=> 'GNU GPL v2',
+	url		=> 'http://derwan.irssi.pl',
+	changed		=> 'Sat Jun  5 22:38:59 CEST 2004'
+);
+
+Irssi::theme_register([
+	'modelist',		'$0 - {hilight $1}: $2 %c$3%n $4'
+]);
+
+my %modelist = ();
+
+sub channel_create
+{
+	my ($server, $channel) = (@_[0], lc($_[1]));
+	delete $modelist{lc($server->{tag})}{$channel};
+
+	$server->redirect_event("mode I", 1, "$channel", 0, undef, {
+		'event 346'	=> 'redir modelist invite',
+		''		=> 'event empty' });
+	$server->send_raw("MODE $channel I");
+
+	$server->redirect_event("mode e", 1, "$channel", 0, undef, {
+		'event 348'	=> 'redir modelist except',
+		''		=> 'event empty' });
+	$server->send_raw("MODE $channel e");
+}
+
+sub sig_channel_created
+{
+	channel_create($_[0]->{server}, $_[0]->{name}) unless ($_[0]->{no_modes});
+}
+
+
+sub sig_redir_modelist_invite
+{
+	my ($nick, $chan, $mode) = split(/ +/, $_[1], 3);
+	message_irc_mode($_[0], $chan, undef, undef, "+I $mode");
+}
+
+sub sig_redir_modelist_except
+{
+	my ($nick, $chan, $mode) = split(/ +/, $_[1], 3);
+	message_irc_mode($_[0], $chan, undef, undef, "+e $mode");
+}
+
+sub message_irc_mode
+{
+	my ($mode, @args) = split(/ +/, $_[4]);
+	return unless $_[0]->ischannel($_[1]);
+	my ($tag, $chan, $mod) = (lc($_[0]->{tag}), lc($_[0]->channel_find($_[1])->{name}), "+");
+	foreach ( split //, $mode )
+	{
+		/([+-])/ and $mod = $_, next;
+		my $arg = ( $mod eq '+' && $_ =~ m/[beIkloRvh]/ or $mod eq '-' && $_ =~ m/[beIkoRvh]/ ) ? shift(@args) : undef;
+		next unless ( $_ =~ m/[eI]/ );
+		( $mod eq '+' ) and push(@{$modelist{$tag}{$chan}{$_}}, [$arg, $_[2], time]), next;
+		for (my $idx = 0; $idx <= $#{$modelist{$tag}{$chan}{$_}}; $idx++) {
+			splice(@{$modelist{$tag}{$chan}{$_}}, $idx, 1) if ($modelist{$tag}{$chan}{$_}[$idx][0] eq $arg);
+		}
+	}
+}
+
+sub proc_modelist_show
+{
+	my ($arg, $server, $channel, $list, $mode) = @_;
+
+	Irssi::print("You\'re not connected to server"), return unless ($server and $server->{connected});
+	
+	$arg =~ s/\s.*//;
+	if ($arg) {
+		Irssi::print("Bad channel name: $arg"), return unless ($server->ischannel($arg));
+		unless ($channel = $server->channel_find($arg)) {
+			Irssi::print("You\'re not in channel $arg --> sending request to server");
+			$server->send_raw("MODE $arg $list");
+			return;
+		}
+	}
+
+	Irssi::print("Not joined to any channel"), return unless ($channel and $channel->{type} eq "CHANNEL");
+	Irssi::print("Channel not fully synchronized yet, try again after a while"), return unless ($channel->{synced});
+	Irssi::print("Channel doesn\'t support modes"), return if ($channel->{no_modes});
+
+	my ($tag, $name) = (lc($server->{tag}), $channel->{name});
+	my $chan = lc($name);
+	my $items = $#{$modelist{$tag}{$chan}{$list}};
+
+	Irssi::print("No $mode\s in channel %_$name%_"), return if ($items < 0);
+
+	for (my $idx = 0; $idx <= $items; $idx++)
+	{
+		my ($mask, $who) = ($modelist{$tag}{$chan}{$list}[$idx]->[0], $modelist{$tag}{$chan}{$list}[$idx]->[1]);
+		$mask =~ tr/\240\002\003\037\026/\206\202\203\237\226/;
+		my $setby = ($who) ? "\00314[\003by \002$who\002, ".(time - $modelist{$tag}{$chan}{$list}[$idx]->[2])." secs ago\00314]\003" : undef;
+		$channel->printformat(MSGLEVEL_CRAP, 'modelist', ($idx+1), $name, $mode, $mask, $setby);
+	}
+}
+
+sub cmd_si { proc_modelist_show @_, "I", "invite"; }
+sub cmd_se { proc_modelist_show @_, "e", "ban exception"; }
+
+sub cmd_modelist {
+	my ( $type, $data, $server, $witem) = @_;
+	Irssi::print("You\'re not connected to server"), return unless ($server and $server->{connected});
+	Irssi::print("Not joined to any channel"), return unless ( $witem and $witem->{type} eq "CHANNEL" );
+	my ($tag, $chan, @masks) = (lc($server->{tag}), lc($server->channel_find($witem->{name})->{name})); 
+	while ( $data =~ m/(\d+)/g ) {
+		my $idx = $1 - 1;
+		next unless ( exists $modelist{$tag}{$chan}{$type}[$idx] );
+		push(@masks, $modelist{$tag}{$chan}{$type}[$idx]->[0]);
+	}
+	return unless ( $#masks >= 0 );
+	$witem->command(sprintf("MODE %s -%s %s", $chan, $type x scalar(@masks), join(" ", @masks)));
+}
+
+Irssi::signal_add("channel created", "sig_channel_created");
+Irssi::signal_add("redir modelist invite", "sig_redir_modelist_invite");
+Irssi::signal_add("redir modelist except", "sig_redir_modelist_except");
+Irssi::signal_add("message irc mode", "message_irc_mode");
+
+Irssi::command_bind("si", "cmd_si");
+Irssi::command_bind("se", "cmd_se");
+Irssi::command_bind("uninvite" => sub { cmd_modelist("I", @_); });
+Irssi::command_bind("unexcept" => sub { cmd_modelist("e", @_); });
+
+foreach my $server (Irssi::servers)
+{
+	foreach my $channel ($server->channels())
+	{
+		channel_create($server, $channel->{name}) unless ($channel->{no_modes});
+	}
+}
diff --git a/scripts/monitor.pl b/scripts/monitor.pl
new file mode 100644
index 0000000..adbb8f1
--- /dev/null
+++ b/scripts/monitor.pl
@@ -0,0 +1,441 @@
+#!/usr/bin/perl
+# Copyright (c) 2006 Jilles Tjoelker
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+
+%IRSSI = (
+    authors    => "Jilles Tjoelker",
+    contact    => "jilles\@stack.nl",
+    name       => "monitor",
+    description=> "Interface to ratbox 2.1+ /monitor command",
+    license    => "BSD (revised)",
+);
+
+# Track the nicks in our monitor list
+my %monitorlist;
+# Server::connect_time we added monitor items
+my %readded;
+# Nicks waiting on /accept
+my %acceptqueue;
+
+Irssi::theme_register([monitoron => 'Now online: {nick $0} {nickhost $1}',
+	monitoroff => 'Now offline: {nick $0} {nickhost $1} {comment $2}',
+	monitorlist => 'Monitored: $0',
+	monitordel => 'No longer monitoring: $0',
+	monitoralready => 'Already monitoring: $0']);
+
+sub event_motdgot {
+	my ($server, $args, $nick, $address) = @_;
+
+	if ($readded{$server->{tag}} != $server->{connect_time}) {
+		Irssi::print("Readding monitor items");
+		cmd_monitor_readd('', $server, undef);
+	}
+}
+
+sub doaccept {
+	my $server = shift;
+
+	if (defined $server->isupport("CALLERID")) {
+		$server->print('','Accepting '.$acceptqueue{$server->{tag}});
+		$server->command("QUOTE ACCEPT ".$acceptqueue{$server->{tag}});
+	} else {
+		$server->print('','Not accepting '.$acceptqueue{$server->{tag}}.', server does not support callerid');
+	}
+	$acceptqueue{$server->{tag}} = '';
+}
+
+sub nowonline {
+	my ($server, $nuh) = @_;
+	my ($n, $uh) = split /!/, $nuh, 2;
+	my $ln = lc $n;
+
+	$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoron', $n, $uh);
+	$monitorlist{$server->{tag}}{$ln}{lastseen} = time();
+	if ($monitorlist{$server->{tag}}{$ln}{action} eq 'accept') {
+		if ($acceptqueue{$server->{tag}} eq '') {
+			Irssi::timeout_add_once(3000, 'doaccept', $server);
+			$acceptqueue{$server->{tag}} = $n;
+		} else {
+			$acceptqueue{$server->{tag}} .= ','.$n;
+		}
+	}
+}
+
+sub event_mononline {
+	my ($server, $args, $nick, $address) = @_;
+	my @a = split(/ +/, $args);
+	my ($nuh, $n, $addr, $ln);
+# :jaguar.test 730 jilles :n!u@h,n2!u@h
+	$a[1] =~ s/^://;
+	foreach $nuh (split /,/, $a[1]) {
+		($n, $addr) = split /!/, $nuh;
+		$ln = lc $n;
+		$monitorlist{$server->{tag}}{$ln}{address} = $addr;
+		$monitorlist{$server->{tag}}{$ln}{nick_online} = 1;
+		$monitorlist{$server->{tag}}{$ln}{mask_online} = $server->masks_match($monitorlist{$server->{tag}}{$ln}{masks}, $n, $addr);
+		if ($monitorlist{$server->{tag}}{$ln}{mask_online}) {
+			nowonline($server, $nuh);
+		} elsif ($monitorlist{$server->{tag}}{$ln}{new}) {
+			$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoroff', $n, '');
+		}
+		$monitorlist{$server->{tag}}{$ln}{new} = 0;
+	}
+	Irssi::signal_stop();
+}
+
+sub event_monoffline {
+	my ($server, $args, $nick, $address) = @_;
+	my @a = split(/ +/, $args);
+	my ($n, $ln);
+# :jaguar.test 731 jilles :n,n2
+	$a[1] =~ s/^://;
+	foreach $n (split /,/, $a[1]) {
+		$ln = lc $n;
+		if ($monitorlist{$server->{tag}}{$ln}{mask_online} || $monitorlist{$server->{tag}}{$ln}{new}) {
+			if ($monitorlist{$server->{tag}}{$ln}{nick_online}) {
+				$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoroff', $n, $monitorlist{$server->{tag}}{$ln}{address});
+			} else {
+				$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoroff', $n, '');
+			}
+			$monitorlist{$server->{tag}}{$ln}{lastseen} = time() if $monitorlist{$server->{tag}}{$ln}{mask_online};
+			$monitorlist{$server->{tag}}{$ln}{mask_online} = 0;
+			$monitorlist{$server->{tag}}{$ln}{new} = 0;
+		}
+		$monitorlist{$server->{tag}}{$ln}{nick_online} = 0;
+	}
+	Irssi::signal_stop();
+}
+
+sub event_monlist {
+	my @a = split(/ +/, $_[1]);
+# :jaguar.test 732 jilles :n,n2
+	$a[1] =~ s/^://;
+	$a[1] =~ s/,/ /g;
+	$_[0]->printformat('', MSGLEVEL_CLIENTCRAP, 'monitorlist', $a[1]);
+	Irssi::signal_stop();
+}
+
+sub cmd_monitor {
+	my ($data, $server, $item) = @_;
+
+	if ($data ne '') {
+		Irssi::command_runsub ('monitor', $data, $server, $item);
+	} else {
+		cmd_monitor_show(@_);
+	}
+}
+
+sub cmd_monitor_add {
+	my ($data, $server, $item) = @_;
+	my @nicks;
+	my $data2;
+	my $nuh;
+	my ($n, $ln);
+	my ($doaction, $action) = (0, '');
+
+	if (!defined $server->isupport("MONITOR")) {
+		$server->print('', "No monitor support");
+		return;
+	}
+
+	if ($data =~ /-([^ ]*) (.*)/) {
+		$doaction = 1;
+		$action = $1;
+		$data = $2;
+	}
+	$data =~ s/ /,/g;
+	@nicks = split /,/, $data;
+	$data2 = '';
+	foreach $nuh (@nicks) {
+		$n = $nuh;
+		$n =~ s/!.*//;
+		next if $n eq '';
+		if ($n eq $nuh) {
+			$nuh .= '!*@*';
+		}
+		$ln = lc $n;
+		if (defined($monitorlist{$server->{tag}}{$ln})) {
+			if ($doaction) {
+				$monitorlist{$server->{tag}}{$ln}{action} = $action;
+			}
+			my $m = ' '.$monitorlist{$server->{tag}}{$ln}{masks}.' ';
+			if ($m =~ / \Q$nuh\E /) {
+				$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoralready', $nuh);
+				next;
+			}
+			$monitorlist{$server->{tag}}{$ln}{masks} .= ' '.$nuh;
+			if ($monitorlist{$server->{tag}}{$ln}{nick_online} &&
+				!$monitorlist{$server->{tag}}{$ln}{mask_online})
+			{
+				if ($server->mask_match_address($nuh, $n, $monitorlist{$server->{tag}}{$ln}{address}))
+				{
+					$monitorlist{$server->{tag}}{$ln}{mask_online} = 1;
+					nowonline($server, $n.'!'.$monitorlist{$server->{tag}}{$ln}{address});
+				}
+			}
+		} else {
+			$data2 .= ','.$n;
+			$monitorlist{$server->{tag}}{$ln}{masks} = $nuh;
+			$monitorlist{$server->{tag}}{$ln}{nick_online} = 0;
+			$monitorlist{$server->{tag}}{$ln}{mask_online} = 0;
+			$monitorlist{$server->{tag}}{$ln}{action} = $action;
+			$monitorlist{$server->{tag}}{$ln}{lastseen} = 0;
+			$monitorlist{$server->{tag}}{$ln}{new} = 1;
+		}
+	}
+	$data2 =~ s/^,//;
+	return if ($data2 eq '');
+	$server->command("QUOTE MONITOR + $data2");
+}
+
+sub cmd_monitor_readd {
+	my ($data, $server, $item) = @_;
+	my ($n, $data2);
+	
+	$readded{$server->{tag}} = $server->{connect_time};
+	$data2 = '';
+	foreach $n (keys %{$monitorlist{$server->{tag}}}) {
+		$data2 .= ','.$n;
+	}
+	$data2 =~ s/^,//;
+	return if ($data2 eq '');
+	if (!defined $server->isupport("MONITOR")) {
+		$server->print('', "No monitor support");
+		return;
+	}
+	$server->command("QUOTE MONITOR + $data2");
+}
+
+sub cmd_monitor_clear {
+	my ($data, $server, $item) = @_;
+	$monitorlist{$server->{tag}} = ();
+	$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitordel', '*');
+	if (defined $server->isupport("MONITOR")) {
+		$server->command("QUOTE MONITOR C");
+	}
+}
+
+sub cmd_monitor_delete {
+	my ($data, $server, $item) = @_;
+	my @nicks;
+	my $data2;
+	my $data3;
+	my $nuh;
+	my ($n, $ln);
+
+	$data =~ s/ /,/g;
+	@nicks = split /,/, $data;
+	$data2 = '';
+	$data3 = '';
+	foreach $nuh (@nicks) {
+		$n = $nuh;
+		$n =~ s/!.*//;
+		next if $n eq '';
+		$ln = lc $n;
+		next unless (defined($monitorlist{$server->{tag}}{$ln}));
+		if ($n ne $nuh) {
+			my $m = ' '.$monitorlist{$server->{tag}}{$ln}{masks}.' ';
+			next unless ($m =~ s/ \Q$nuh\E / /);
+			$m =~ s/^ //;
+			$m =~ s/ $//;
+			$monitorlist{$server->{tag}}{$ln}{masks} = $m;
+			if ($m ne '') {
+				if ($monitorlist{$server->{tag}}{$ln}{mask_online}) {
+					$monitorlist{$server->{tag}}{$ln}{mask_online} = $server->masks_match($monitorlist{$server->{tag}}{$ln}{masks}, $n, $monitorlist{$server->{tag}}{$ln}{address});
+					if (!$monitorlist{$server->{tag}}{$ln}{mask_online}) {
+						$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoroff', $n, '');
+					}
+				}
+				$data3 .= $nuh.' ';
+				next;
+			}
+		}
+		$data3 .= $n.' ';
+		delete $monitorlist{$server->{tag}}{$ln};
+		$data2 .= ','.$n;
+	}
+	$data2 =~ s/^,//;
+	$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitordel', $data3);
+	return if ($data2 eq '');
+	#$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitordel', $data2);
+	if (defined $server->isupport("MONITOR")) {
+		$server->command("QUOTE MONITOR - $data2");
+	}
+}
+
+sub cmd_monitor_list {
+	my ($data, $server, $item) = @_;
+	my ($n, $ln);
+	my $count = 0;
+	my $misc;
+	my $lastseen;
+
+	foreach $n (keys %{$monitorlist{$server->{tag}}}) {
+		$ln = lc $n;
+		$misc = 'masks: '.$monitorlist{$server->{tag}}{$ln}->{masks};
+		if ($monitorlist{$server->{tag}}{$ln}->{action}) {
+			$misc .= ', action: '.$monitorlist{$server->{tag}}{$ln}->{action};
+		}
+		if ($monitorlist{$server->{tag}}{$ln}{mask_online}) {
+			$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitorlist', $n.' ('.$monitorlist{$server->{tag}}{$ln}->{address}.'), '.$misc);
+		} else {
+			if ($monitorlist{$server->{tag}}{$ln}{lastseen}) {
+				$lastseen = localtime($monitorlist{$server->{tag}}{$ln}{lastseen});
+			} else {
+				$lastseen = "never";
+			}
+			$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitorlist', $n.', '.$misc.', lastseen: '.$lastseen.', lastaddr: '.$monitorlist{$server->{tag}}{$ln}->{address});
+		}
+		$count++;
+	}
+	if ($count == 0) {
+		Irssi::print("Monitor list for ".$server->{tag}." is empty");
+	}
+	#$server->command("QUOTE MONITOR L");
+}
+
+sub cmd_monitor_show {
+	my ($data, $server, $item) = @_;
+	my ($n, $ln);
+	my $count = 0;
+	my $lastseen;
+
+	foreach $n (keys %{$monitorlist{$server->{tag}}}) {
+		$ln = lc $n;
+		if ($monitorlist{$server->{tag}}{$ln}{mask_online}) {
+			$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoron', $n, $monitorlist{$server->{tag}}{$n}->{address});
+		} else {
+			if ($monitorlist{$server->{tag}}{$n}{lastseen}) {
+				$lastseen = localtime($monitorlist{$server->{tag}}{$n}{lastseen});
+			} else {
+				$lastseen = "never";
+			}
+			$server->printformat('', MSGLEVEL_CLIENTCRAP, 'monitoroff', $n, '', 'last seen: '.$lastseen);
+		}
+		$count++;
+	}
+	if ($count == 0) {
+		Irssi::print("Monitor list for ".$server->{tag}." is empty");
+	}
+	#$server->command("QUOTE MONITOR S");
+}
+
+sub cmd_monitor_save {
+	#my ($data, $server, $item) = @_;
+	my $file = Irssi::get_irssi_dir."/monitor";
+	my ($net, $n, $k);
+	open FILE, "> $file" or return;
+	foreach $net (keys %monitorlist) {
+		foreach $n (keys %{$monitorlist{$net}}) {
+			$monitorlist{$net}{$n}{lastseen} = time() if $monitorlist{$net}{$n}{mask_online};
+			foreach $k (keys %{$monitorlist{$net}{$n}}) {
+				next if ($k eq 'mask_online' || $k eq 'nick_online' || $k eq 'new');
+				printf FILE ("%s %s %s %s\n", $net, $n, $k, $monitorlist{$net}{$n}{$k});
+			}
+		}
+	}
+	close FILE;
+	Irssi::print("Monitor list saved to $file");
+}
+
+sub cmd_monitor_load {
+	#my ($data, $server, $item) = @_;
+	my $file = Irssi::get_irssi_dir."/monitor";
+
+	open FILE, "< $file" or return;
+	%monitorlist = ();
+	while (<FILE>) {
+		chomp;
+		my ($net, $n, $k, $value) = split (/ /, $_, 4);
+		$monitorlist{$net}{lc $n}{$k} = $value;
+	}
+	close FILE;
+	Irssi::print("Monitor list loaded from $file");
+}
+
+sub cmd_monitor_help {
+	#my ($data, $server, $item) = @_;
+
+	Irssi::print(
+"%CNotify list using MONITOR extension%n\n".
+"This script provides a notify list using the MONITOR extension found ".
+"in ratbox 2.1 and newer and charybdis (MONITOR keyword in 005 numeric).\n".
+"Each server tag has its own list.\n\n".
+"COMMANDS:\n\n".
+"%_/MONITOR ADD [-|-accept] nick[!user\@host]...%_\n".
+"  - Adds nicks/hostmasks or changes their accept setting, for this server. ".
+"The nick cannot contain wildcards but the user\@host can. ".
+"If the user\@host part is omitted, *@* is used. ".
+"A - disables accept for the given nicks, a -accept enables it.\n".
+"%_/MONITOR DEL nick[!user\@host]...%_\n".
+"  - Deletes nicks/hostmasks for this server. If a user\@host is given, that ".
+"user\@host is deleted and the whole nick if it was the last, otherwise the ".
+"whole nick.\n".
+"%_/MONITOR CLEAR%_\n".
+"  - Clears the monitor list for this server.\n".
+"%_/MONITOR [SHOW]%_\n".
+"  - Shows the monitor list for this server in a brief format.\n".
+"%_/MONITOR LIST%_\n".
+"  - Shows the monitor list for this server in a long format.\n".
+"%_/MONITOR LOAD%_\n".
+"  - Reloads the monitor list for all servers from ~/.irssi/monitor. ".
+"The lists on the servers are not updated.\n".
+"%_/MONITOR SAVE%_\n".
+"  - Saves the monitor list for all servers to ~/.irssi/monitor.\n".
+"%_/MONITOR READD%_\n".
+"  - Adds the known entries to the server-side list, for this server. ".
+"This is normally done automatically when the MOTD is received.\n".
+"\nAfter a reload of the script it may be necessary to do /foreach server /quote monitor s.".
+"", MSGLEVEL_CLIENTCRAP);
+}
+
+Irssi::signal_add('event 376', 'event_motdgot');
+Irssi::signal_add('event 422', 'event_motdgot');
+Irssi::signal_add('event 730', 'event_mononline');
+Irssi::signal_add('event 731', 'event_monoffline');
+Irssi::signal_add('event 732', 'event_monlist');
+#Irssi::signal_add('event 733', 'event_endofmonlist');
+#Irssi::signal_add('event 734', 'event_monlistfull');
+
+Irssi::signal_add_last('setup saved', 'cmd_monitor_save');
+Irssi::signal_add_last('setup reread', 'cmd_monitor_load');
+
+Irssi::command_bind('monitor', 'cmd_monitor');
+Irssi::command_bind('monitor add', 'cmd_monitor_add');
+Irssi::command_bind('monitor readd', 'cmd_monitor_readd');
+Irssi::command_bind('monitor clear', 'cmd_monitor_clear');
+Irssi::command_bind('monitor delete', 'cmd_monitor_delete');
+Irssi::command_bind('monitor list', 'cmd_monitor_list');
+Irssi::command_bind('monitor show', 'cmd_monitor_show');
+Irssi::command_bind('monitor save', 'cmd_monitor_save');
+Irssi::command_bind('monitor load', 'cmd_monitor_load');
+Irssi::command_bind('monitor help', 'cmd_monitor_help');
+
+cmd_monitor_load();
diff --git a/scripts/mood.pl b/scripts/mood.pl
new file mode 100644
index 0000000..b78e82c
--- /dev/null
+++ b/scripts/mood.pl
@@ -0,0 +1,197 @@
+#!/usr/bin/perl
+#
+# This script tracks the general mood in a channel.
+# 
+#
+# Changelog:
+# 19.03.2002
+# *first release
+#
+# 20.03.2002
+# *some regexp tweaking
+#
+# 07.04.2002
+# *own messages can be interpreted
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "20031207";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "Mood",
+    description => "Keeps track of the channel mood",
+    license     => "GPLv2",
+    sbitems     => "moodbar",
+    changed     => "$VERSION",
+);
+
+use Irssi;
+use Irssi::TextUI;
+use vars qw(%channels $eye $refresh $shouting $bored_mouth);
+
+sub find_smiley {
+    my ($msg) = @_;
+    my $eyes = '[:=8;]';
+    my $noses = '[\-\o]?';
+    my $sad = '[\(\<\[]';
+    my $happy = '[\)\>\]D]';
+    my %smiley = ($eyes.$noses.$happy         =>  10,
+		  $sad.$noses.$eyes           =>  10,
+		  $eyes.$noses.$sad           => -10,
+		  $happy.$noses.$eyes         => -10,
+		  $eyes.'\.+'.$noses.$sad     => -20,
+		  $happy.$noses.'\.+'.$eyes   => -20,
+		 );
+    foreach (keys(%smiley)) {
+	return($smiley{$_}) if ($msg =~ m/.*($_).*/);
+    }
+    return 0;
+}
+
+sub event_event_privmsg {
+    my ($server, $data, $nick, $address) = @_;
+    my ($target, $msg) = split(/ :/, $data,2);
+    change_mood($target, find_smiley($msg));
+}
+
+sub event_message_own_public {
+    my ($server, $msg, $target) = @_;
+    change_mood($target, find_smiley($msg));
+}
+
+sub event_message_kick {
+    my ($server, $channel, $nick, $kicker, $address, $reason) = @_;
+    change_mood($channel, -20);
+}
+
+sub event_ban_new {
+    my ($channel, $ban) = @_;
+    my $name = $channel->{name};
+    change_mood($name, -20);
+}
+
+sub event_ban_remove {
+    my ($channel, $ban) = @_;
+    my $name = $channel->{name};
+    change_mood($name, 20);
+}
+
+sub event_netsplit_new {
+    my ($netsplit) = @_;
+    #FIXME Not Idea :)
+    #Irssi::print $netsplit->{nick};
+}
+
+sub event_window_hilight {
+    my ($window) = @_;
+    open_mouth();
+}
+
+sub change_mood {
+    my ($name, $points) = @_;
+    if (not exists $channels{$name}) {
+	$channels{lc $name} = 0;
+    }
+    $channels{lc $name} += $points;
+    mood_refresh();
+}
+
+sub draw_smiley {
+    my ($points) = @_;
+    
+    my $mouth = $bored_mouth;
+    my $nose = Irssi::settings_get_str('mood_nose');
+    
+    if    ($points > 20) { $mouth = 'D'; }
+    elsif ($points >  0) { $mouth = ')'; }
+    elsif ($points <-20) { $mouth = '<'; }
+    elsif ($points <  0) { $mouth = '('; }
+    if ($shouting) { $mouth = 'O' };
+    return $eye.$nose.$mouth;
+}
+
+sub mood_show {
+    my ($item, $get_size_only) = @_;
+    my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+    
+    if (ref $win && ($win->{type}) and $win->{type} eq "CHANNEL") {
+	my $target = lc $win->{name};
+	my $face = draw_smiley($channels{$target});
+	my $format = "{sb ".$face."}";
+	$item->{min_size} = $item->{max_size} = length($face);
+	$item->default_handler($get_size_only, $format, 0, 1);
+    } else {
+	$item->{min_size} = $item->{max_size} = 0;
+    }
+}
+
+sub mood_decay {
+    foreach (keys %channels) {
+	if    ($channels{$_} < 0) {
+	    $channels{$_}++;
+	    mood_refresh() if (! draw_smiley($channels{$_}) eq draw_smiley($channels{$_}-1));
+	} elsif ($channels{$_} > 0) {
+	    $channels{$_}--;
+	    mood_refresh() if (! draw_smiley($channels{$_}) eq draw_smiley($channels{$_}+1));
+	}
+    }
+}
+
+sub close_eyes {
+    ($refresh) && Irssi::timeout_remove($refresh);
+    $eye = '|';
+    mood_refresh();
+    $refresh=Irssi::timeout_add(200, 'open_eyes' , undef);
+}
+
+sub open_eyes {
+    ($refresh) && Irssi::timeout_remove($refresh);
+    $eye = ':';
+    mood_refresh();
+    my $min_delay = Irssi::settings_get_int('mood_blink');
+    my $next_close = int( rand()*6000 + $min_delay );
+    $refresh=Irssi::timeout_add($next_close, 'close_eyes', undef);
+}
+
+sub open_mouth {
+    $shouting = 1;
+    mood_refresh();
+    Irssi::timeout_add(2000, 'close_mouth', undef);
+}
+
+sub close_mouth {
+    Irssi::timeout_remove('close_mouth');
+    $shouting = 0;
+    mood_refresh();
+}
+
+sub mood_refresh {
+    Irssi::statusbar_items_redraw('moodbar');
+}
+
+sub change_bored_mouth {
+    $bored_mouth = ('\\\\\\\\', '|', '/')[int( rand(3) )];
+}
+
+#Irssi::signal_add('window item hilight', 'event_window_hilight');
+Irssi::signal_add('event privmsg', 'event_event_privmsg');
+Irssi::signal_add('message own_public', 'event_message_own_public');
+Irssi::signal_add('message kick','event_message_kick');
+Irssi::signal_add('ban new','event_ban_new');
+Irssi::signal_add('ban remove','event_ban_remove');
+Irssi::signal_add('netsplit new','event_netsplit_new');
+
+Irssi::settings_add_int('misc', 'mood_blink', 6000);
+Irssi::settings_add_str('misc', 'mood_nose', '-');
+
+Irssi::statusbar_item_register('moodbar', 0, 'mood_show');
+
+Irssi::timeout_add(5000, 'mood_decay', undef);
+Irssi::timeout_add(10000, 'change_bored_mouth', undef);
+
+close_mouth;
+change_bored_mouth();
+open_eyes();
diff --git a/scripts/morse.pl b/scripts/morse.pl
new file mode 100644
index 0000000..d60e01a
--- /dev/null
+++ b/scripts/morse.pl
@@ -0,0 +1,347 @@
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2004021901";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "morse",
+    description => "turns your messages into morse or spelling code",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    commands	=> "morse spell"
+);
+
+use Irssi 20020324;
+
+use vars qw(%codes %spell);
+
+%codes = (
+	A=>".-",
+	B=>"-...",
+	C=>"-.-.",
+	D=>"-..",
+	E=>".",
+	F=>"..-.",
+	G=>"--.",
+	H=>"....",
+	I=>"..",
+	J=>".---",
+	K=>"-.-",
+	L=>".-..",
+	M=>"--",
+	N=>"-.",
+	O=>"---",
+	P=>".--.",
+	Q=>"--.-",
+	R=>".-.",
+	S=>"...",
+	T=>"-",
+	U=>"..-",
+	V=>"...-",
+	W=>".--",
+	X=>"-..-",
+	Y=>"-.--",
+	Z=>"--..",
+	0=>"-----",
+	1=>".----",
+	2=>"..---",
+	3=>"...--",
+	4=>"....-",
+	5=>".....",
+	6=>"-....",
+	7=>"--...",
+	8=>"---..",
+	9=>"----.",
+	' '=>" ",
+	'.'=>".-.-.-",
+	','=>"--..--",
+	'?'=>"..--..",
+	':'=>"---...",
+	';'=>"-.-.-.",
+	'-'=>"-....-",
+	'_'=>"..--.-",
+	'"'=>".-..-.",
+	"'"=>".----.",
+	'/'=>"-..-.",
+        '('=>"-.--.",
+        ')'=>"-.--.-",
+	'='=>"-...-",
+	'Ä'=>'.-.-',
+	'Ö'=>'---.',
+	'Ü'=>'..--',
+	'@'=>'.--.-.'
+);
+my %spell = (
+	'intern.' => {
+    			'A' => 'Amsterdam',
+    			'B' => 'Baltimore',
+                        'C' => 'Casablanca',
+                        'D' => 'Danemark',
+                        'E' => 'Edison',
+                        'F' => 'Florida',
+                        'G' => 'Gallipoli',
+                        'H' => 'Havana',
+                        'I' => 'Italia',
+                        'J' => 'Jérusalem',
+                        'K' => 'Kilogramme',
+                        'L' => 'Liverpool',
+                        'M' => 'Madagaskar',
+                        'N' => 'New York',
+                        'O' => 'Oslo',
+                        'P' => 'Paris',
+                        'Q' => 'Québec',
+                        'R' => 'Roma',
+                        'S' => 'Santiago',
+                        'T' => 'Tripoli',
+                        'U' => 'Upsala',
+                        'V' => 'Valencia',
+                        'W' => 'Washington',
+                        'X' => 'Xanthippe',
+                        'Y' => 'Yokohama',
+                        'Z' => 'Zürich'
+                      },
+	    'GB' => {
+			'A' => 'Andrew',
+	    		'B' => 'Benjamin',
+			'C' => 'Charlie',
+		    	'D' => 'David',
+			'E' => 'Edward',
+			'F' => 'Frederick',
+			'G' => 'George',
+			'H' => 'Harry',
+			'I' => 'Isaac',
+			'J' => 'Jack',
+			'K' => 'King',
+			'L' => 'Lucy',
+			'M' => 'Mary',
+			'N' => 'Nellie',
+			'O' => 'Oliver',
+			'P' => 'Peter',
+			'Q' => 'Queenie',
+			'R' => 'Robert',
+			'S' => 'Sugar',
+			'T' => 'Tommy',
+			'U' => 'Uncle',
+			'V' => 'Victor',
+			'W' => 'William',
+			'X' => 'Xmas',
+			'Y' => 'Yellow',
+			'Z' => 'Zebra'
+		    },
+	    'USA' => {
+			'A' => 'Abel',
+			'B' => 'Baker',
+			'C' => 'Charlie',
+			'D' => 'Dog',
+			'E' => 'Easy',
+			'F' => 'Fox',
+			'G' => 'George',
+			'H' => 'How',
+			'I' => 'Item',
+			'J' => 'Jig',
+			'K' => 'King',
+			'L' => 'Love',
+			'M' => 'Mike',
+			'N' => 'Nan',
+			'O' => 'Oboe',
+			'P' => 'Peter',
+			'Q' => 'Queen',
+			'R' => 'Roger',
+			'S' => 'Sugar',
+			'T' => 'Tare',
+			'U' => 'Uncle',
+			'V' => 'Victor',
+			'W' => 'William',
+			'X' => 'X',
+			'Y' => 'Yoke',
+			'Z' => 'Zebra'
+			},
+	    'ICAO' => {
+			'A' => 'Alfa',
+			'B' => 'Bravo',
+			'C' => 'Charlie',
+			'D' => 'Delta',
+			'E' => 'Echo',
+			'F' => 'Foxtrot',
+			'G' => 'Golf',
+			'H' => 'Hotel',
+			'I' => 'India',
+			'J' => 'Juliett',
+			'K' => 'Kilo',
+			'L' => 'Lima',
+			'M' => 'Mike',
+			'N' => 'November',
+			'O' => 'Oscar',
+			'P' => 'Papa',
+			'Q' => 'Quebec',
+			'R' => 'Romeo',
+			'S' => 'Sierra',
+			'T' => 'Tango',
+			'U' => 'Uniform',
+			'V' => 'Victor',
+			'W' => 'Whiskey',
+			'X' => 'X-Ray',
+			'Y' => 'Yankee',
+			'Z' => 'Zulu'
+			},
+	    'D' => {
+     			'A' => 'Anton',
+	  		'B' => 'Berta',
+	       		'C' => 'Cäsar',
+		    	'D' => 'Dora',
+			'E' => 'Emil',
+			'F' => 'Friedrich',
+			'G' => 'Gustav',
+			'H' => 'Heinrich',
+			'I' => 'Ida',
+			'J' => 'Julius',
+			'K' => 'Kaufmann',
+			'L' => 'Ludwig',
+			'M' => 'Martha',
+			'N' => 'Nordpol',
+			'O' => 'Otto',
+			'P' => 'Paula',
+			'Q' => 'Quelle',
+			'R' => 'Richard',
+			'S' => 'Samuel',
+			'T' => 'Theodor',
+			'U' => 'Ulrich',
+			'V' => 'Viktor',
+			'W' => 'Wilhelm',
+			'X' => 'Xanthippe',
+			'Y' => 'Ypsilon',
+			'Z' => 'Zacharias'
+		    }
+);
+
+sub text2morse ($) {
+    my ($text) = @_;
+    my $result;
+    my %deumlaut = ('ä' => 'Ä',
+		    'ö' => 'Ö',
+		    'ü' => 'Ü',
+		    'ß' => 'ss'
+		   );
+    $text =~ s/$_/$deumlaut{$_}/ foreach keys %deumlaut;
+    foreach (split(//, $text)) {
+	if (defined $codes{uc $_}) {
+	    $result .= $codes{uc $_}." ";
+	} elsif (Irssi::settings_get_bool('morse_kill_unknown_characters')) {
+	    $result .= " ";
+	} else {
+	    $result .= $_." ";
+	}
+    }
+    return $result;
+}
+
+sub morse2text ($) {
+    my ($morse) = @_;
+    my (%table, $result);
+    $table{$codes{$_}} = $_ foreach keys %codes;
+    foreach (split(/ /, $morse)) {
+	if (defined $table{$_}) {
+	    $result .= $table{$_};
+	} else {
+	    $result .= $_." ";
+	}
+    }
+    $result =~ s/ +/ /g;
+    return $result;
+}
+
+sub morse_decode ($$$) {
+    my ($server, $target, $text) = @_;
+    return unless ($text =~ /(^|.*? )([\.\-]+ [\.\- ]+)($| .*)/g);
+    my $witem = $server->window_item_find($target);
+
+    return unless ($witem);
+    $witem->print("%B[morse]>>%n ".$1."%U".morse2text($2)."%U ".$3, MSGLEVEL_CLIENTCRAP);
+}
+
+sub spell_decode ($$$) {
+    my ($server, $target, $text) = @_;
+    my $codes;
+    foreach my $type (keys %spell) {
+        $codes .= $spell{$type}{$_}.'|' foreach keys %{ $spell{$type} };
+    }
+    $codes =~ s/\|$//;
+    return unless ($text =~ /^($codes| |[\:\,\.\-\?\!\(\)])+$/);
+    return unless ($text =~ /($codes)/);
+    my $witem = $server->window_item_find($target);
+    return unless ($witem);
+    $witem->print("%B[spell]>>%n ".despell($text), MSGLEVEL_CLIENTCRAP);
+}
+
+sub despell ($) {
+    my ($input) = @_;
+    my %data;
+    foreach my $type (keys %spell) {
+	$data{ $spell{$type}{$_} } = $_ foreach keys %{ $spell{$type} };
+    }
+    my $output;
+    foreach (split / /, $input) {
+	if (defined $data{$_}) {
+	    $output .= $data{$_};
+	} else {
+	    $output .= $_." ";
+	}
+    }
+    return $output;
+}
+
+sub cmd_morse ($$$) {
+    my ($arg, $server, $witem) = @_;
+    if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')) {
+	$witem->command('MSG '.$witem->{name}.' '.text2morse($arg));
+    } else {
+	print CLIENTCRAP "%B>>%n ".text2morse($arg);
+    }
+}
+
+sub cmd_spell ($$$) {
+    my ($args, $server, $witem) = @_;
+    my $type = Irssi::settings_get_str('morse_spelling_alphabet');
+    return unless defined $spell{$type};
+    my $encode;
+    foreach (split(//, $args)) {
+	if (defined $spell{$type}{uc $_}) {
+	    $encode .= $spell{$type}{uc $_}." ";
+	} else {
+	    $encode .= $_;
+	}
+    }
+    if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')) {
+        $witem->command('MSG '.$witem->{name}.' '.$encode);
+    } else {
+        print CLIENTCRAP "%B>>%n ".$encode;
+    }
+
+}
+
+sub cmd_despell ($$$) {
+    my ($args, $server, $witem) = @_;
+    print CLIENTCRAP "%B>>%n ".despell($args);
+}
+
+sub cmd_demorse ($$$) {
+    my ($arg, $server, $witem) = @_;
+    print CLIENTCRAP "%B>>%n ".morse2text($arg);
+}
+
+Irssi::command_bind('morse', \&cmd_morse);
+Irssi::command_bind('spell', \&cmd_spell);
+Irssi::command_bind('despell', \&cmd_despell);
+Irssi::command_bind('demorse', \&cmd_demorse);
+
+Irssi::settings_add_bool($IRSSI{name}, 'morse_kill_unknown_characters', 0);
+Irssi::settings_add_str($IRSSI{name}, 'morse_spelling_alphabet', "ICAO");
+
+Irssi::signal_add('message public', sub { morse_decode($_[0], $_[4], $_[1]); });
+Irssi::signal_add('message own_public', sub { morse_decode($_[0], $_[2], $_[1]); });
+
+Irssi::signal_add('message public', sub { spell_decode($_[0], $_[4], $_[1]); });
+Irssi::signal_add('message own_public', sub { spell_decode($_[0], $_[2], $_[1]); });
+print "%B>>%n ".$IRSSI{name}." ".$VERSION." loaded";
+
diff --git a/scripts/mouse.pl b/scripts/mouse.pl
new file mode 100644
index 0000000..828e2fc
--- /dev/null
+++ b/scripts/mouse.pl
@@ -0,0 +1,168 @@
+# See http://wouter.coekaerts.be/site/irssi/mouse
+# based on irssi mouse patch by mirage: http://darksun.com.pt/mirage/irssi/
+
+# Copyright (C) 2005-2009  Wouter Coekaerts <wouter@coekaerts.be>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+use strict;
+use Irssi qw(signal_emit settings_get_str active_win signal_stop settings_add_str settings_add_bool settings_get_bool signal_add signal_add_first);
+use Math::Trig;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0.0';
+%IRSSI = (
+	authors  	=> 'Wouter Coekaerts',
+	contact  	=> 'wouter@coekaerts.be',
+	name    	=> 'mouse',
+	description 	=> 'control irssi using mouse clicks and gestures',
+	license 	=> 'GPLv2 or later',
+	url     	=> 'http://wouter.coekaerts.be/irssi/',
+	changed  	=> '2009-05-16',
+);
+
+my @BUTTONS = ('', '_middle', '_right');
+
+my $mouse_xterm_status = -1; # -1:off 0,1,2:filling mouse_xterm_combo
+my @mouse_xterm_combo = (3, 0, 0); # 0:button 1:x 2:y
+my @mouse_xterm_previous; # previous contents of mouse_xterm_combo
+
+sub mouse_enable {
+	print STDERR "\e[?1000h"; # start tracking 
+}
+
+sub mouse_disable {
+	print STDERR "\e[?1000l"; # stop tracking 
+}
+
+# Handle mouse event (button press or release)
+sub mouse_event {
+	my ($b, $x, $y, $oldb, $oldx, $oldy) = @_;
+	my ($xd, $yd);
+	my ($distance, $angle);
+
+	# uhm, in the patch the scrollwheel didn't work for me, but this does:
+	if ($b == 64) {
+		cmd("mouse_scroll_up");
+	} elsif ($b == 65) {
+		cmd("mouse_scroll_down")
+	}
+
+	# proceed only if a button is being released
+	return if ($b != 3);
+
+	return unless (0 <= $oldb && $oldb <= 2);
+	my $button = $BUTTONS[$oldb];
+
+	# if it was a mouse click of the left button (press and release in the same position)
+	if ($x == $oldx && $y == $oldy) {
+		cmd("mouse" . $button . "_click");
+		return;
+	}
+
+	# otherwise, find mouse gestures
+	$xd = $x - $oldx;
+	$yd = -1 * ($y - $oldy);
+	$distance = sqrt($xd*$xd + $yd*$yd);
+	# ignore small gestures
+	if ($distance < 3) {
+		return;
+	}
+	$angle = asin($yd/$distance) * 180 / 3.14159265358979;
+	if ($angle < 20 && $angle > -20 && $xd > 0) {
+		if ($distance <= 40) {
+			cmd("mouse" . $button . "_gesture_right");
+		} else {
+			cmd("mouse" . $button . "_gesture_bigright");
+		}
+	} elsif ($angle < 20 && $angle > -20 && $xd < 0) {
+		if ($distance <= 40) {
+			cmd("mouse" . $button . "_gesture_left");
+		} else {
+			cmd("mouse" . $button . "_gesture_bigleft");
+		}
+	} elsif ($angle > 40) {
+		cmd("mouse" . $button . "_gesture_up");
+	} elsif ($angle < -40) {
+		cmd("mouse" . $button . "_gesture_down");
+	}
+}
+
+# executes the command configured in the given setting
+sub cmd
+{
+	my ($setting) = @_;
+	signal_emit("send command", settings_get_str($setting), active_win->{'active_server'}, active_win->{'active'});
+}
+
+
+signal_add_first("gui key pressed", sub {
+	my ($key) = @_;
+	if ($mouse_xterm_status != -1) {
+		if ($mouse_xterm_status == 0 && ($mouse_xterm_previous[0] != $mouse_xterm_combo[0])) { # if combo is starting, and previous what not a move (button not changed)
+			@mouse_xterm_previous = @mouse_xterm_combo;
+		}
+		$mouse_xterm_combo[$mouse_xterm_status] = $key-32;
+		$mouse_xterm_status++;
+		if ($mouse_xterm_status == 3) {
+			$mouse_xterm_status = -1;
+			# match screen coordinates
+			$mouse_xterm_combo[1]--;
+			$mouse_xterm_combo[2]--;
+			mouse_event($mouse_xterm_combo[0], $mouse_xterm_combo[1], $mouse_xterm_combo[2], $mouse_xterm_previous[0], $mouse_xterm_previous[1], $mouse_xterm_previous[2]);
+		}
+		signal_stop();
+	}
+});
+
+sub UNLOAD {
+	mouse_disable();
+}
+
+if ($ENV{"TERM"} !~ /^rxvt|screen|xterm(-color)?$/) {
+	die "Your terminal doesn't seem to support this.";
+}
+
+mouse_enable();
+
+Irssi::command("/^bind meta-[M /mouse_xterm"); # FIXME evil
+Irssi::command_bind("mouse_xterm", sub {$mouse_xterm_status = 0;});
+Irssi::command_bind 'mouse' => sub {
+	my ($data, $server, $item) = @_;
+	$data =~ s/\s+$//g;
+	Irssi::command_runsub('mouse', $data, $server, $item);
+};
+
+# temporarily disable mouse handling. Useful for copy-pasting without touching the keyboard (pressing shift)
+Irssi::command_bind 'mouse tempdisable' => sub {
+	my ($data, $server, $item) = @_;
+	my $seconds = ($data eq '') ? 5 : $data; # optional argument saying how many seconds, defaulting to 5
+	mouse_disable();
+	Irssi::timeout_add_once($seconds * 1000, 'mouse_enable', undef); # turn back on after $second seconds
+};
+
+for my $button (@BUTTONS) {
+	settings_add_str("lookandfeel", "mouse" . $button . "_click", "/mouse tempdisable 5");
+	settings_add_str("lookandfeel", "mouse" . $button . "_gesture_up", "/window last");
+	settings_add_str("lookandfeel", "mouse" . $button . "_gesture_down", "/window goto active");
+	settings_add_str("lookandfeel", "mouse" . $button . "_gesture_left", "/window prev");
+	settings_add_str("lookandfeel", "mouse" . $button . "_gesture_bigleft", "/eval window prev;window prev");
+	settings_add_str("lookandfeel", "mouse" . $button . "_gesture_right", "/window next");
+	settings_add_str("lookandfeel", "mouse" . $button . "_gesture_bigright", "/eval window next;window next");
+}
+
+settings_add_str("lookandfeel", "mouse_scroll_up", "/scrollback goto -10");
+settings_add_str("lookandfeel", "mouse_scroll_down", "/scrollback goto +10");
diff --git a/scripts/mpd.pl b/scripts/mpd.pl
new file mode 100644
index 0000000..9785c38
--- /dev/null
+++ b/scripts/mpd.pl
@@ -0,0 +1,176 @@
+# MPD Now-Playing Script for irssi
+# Copyright (C) 2005 Erik Scharwaechter
+# <diozaka@gmx.de>
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License version 2
+# as published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# The full version of the license can be found at
+# http://www.gnu.org/copyleft/gpl.html.
+#
+#
+#######################################################################
+# I'd like to thank Bumby <bumby@evilninja.org> for his impc script,  #
+# which helped me a lot with making this script.                      #
+#######################################################################
+# Type "/np help" for a help page!                                    #
+#######################################################################
+# TODO:                                                               #
+#  - add more format directives                                       #
+#######################################################################
+# CHANGELOG:                                                          #
+#  0.4: First official release                                        #
+#  0.5: Info message if no song is playing                            #
+#       Display alternative text if artist and title are not set      #
+#       Some minor changes                                            #
+#######################################################################
+
+use strict;
+use IO::Socket;
+use Irssi;
+
+use vars qw{$VERSION %IRSSI %MPD};
+
+$VERSION = "0.5";
+%IRSSI = (
+          name        => 'mpd',
+          authors     => 'Erik Scharwaechter',
+          contact     => 'diozaka@gmx.de',
+          license     => 'GPLv2',
+          description => 'print the song you are listening to',
+         );
+
+sub my_status_print {
+    my($msg,$witem) = @_;
+
+    if ($witem) {
+        $witem->print($msg);
+    } else {
+        Irssi::print($msg);
+    }
+}
+
+sub np {
+    my($data,$server,$witem) = @_;
+
+    if ($data =~ /^help/) {
+        help();
+        return;
+    }
+
+    $MPD{'port'}    = Irssi::settings_get_str('mpd_port');
+    $MPD{'host'}    = Irssi::settings_get_str('mpd_host');
+    $MPD{'timeout'} = Irssi::settings_get_str('mpd_timeout');
+    $MPD{'format'}  = Irssi::settings_get_str('mpd_format');
+    $MPD{'alt_text'} = Irssi::settings_get_str('mpd_alt_text');
+
+    my $socket = IO::Socket::INET->new(
+                          Proto    => 'tcp',
+                          PeerPort => $MPD{'port'},
+                          PeerAddr => $MPD{'host'},
+                          timeout  => $MPD{'timeout'}
+                          );
+
+    if (not $socket) {
+        my_status_print('No MPD listening at '.$MPD{'host'}.':'.$MPD{'port'}.'.', $witem);
+        return;
+    }
+
+    $MPD{'status'}   = "";
+    $MPD{'artist'}   = "";
+    $MPD{'title'}    = "";
+    $MPD{'filename'} = "";
+
+    my $ans = "";
+    my $str = "";
+
+    print $socket "status\n";
+    while (not $ans =~ /^(OK$|ACK)/) {
+        $ans = <$socket>;
+        if ($ans =~ /state: (.+)$/) {
+            $MPD{'status'} = $1;
+        }
+    }
+
+    if ($MPD{'status'} eq "stop") {
+        my_status_print("No song playing in MPD.", $witem);
+        close $socket;
+        return;
+    }
+
+    print $socket "currentsong\n";
+    $ans = "";
+    while (not $ans =~ /^(OK$|ACK)/) {
+        $ans = <$socket>;
+        if ($ans =~ /file: (.+)$/) {
+            my $filename = $1;
+            $filename =~ s/.*\///;
+            $MPD{'filename'} = $filename;
+        } elsif ($ans =~ /Artist: (.+)$/) {
+            $MPD{'artist'} = $1;
+        } elsif ($ans =~ /Title: (.+)$/) {
+            $MPD{'title'} = $1;
+        }
+    }
+
+    close $socket;
+
+    if ($MPD{'artist'} eq "" and $MPD{'title'} eq "") {
+        $str = $MPD{'alt_text'};
+    } else {
+        $str = $MPD{'format'};
+    }
+
+    $str =~ s/\%ARTIST/$MPD{'artist'}/g;
+    $str =~ s/\%TITLE/$MPD{'title'}/g;
+    $str =~ s/\%FILENAME/$MPD{'filename'}/g;
+
+    if ($witem && ($witem->{type} eq "CHANNEL" ||
+                   $witem->{type} eq "QUERY")) {
+        if($MPD{'format'} =~ /^\/me /) {
+            $witem->command($str);
+        } else {
+            $witem->command("MSG ".$witem->{name}." $str");
+        }
+    } else {
+        Irssi::print("You're not in a channel.");
+    }
+}
+
+
+sub help {
+   print '
+ MPD Now-Playing Script
+========================
+
+by Erik Scharwaechter (diozaka@gmx.de)
+
+VARIABLES
+  mpd_host      The host that runs MPD (localhost)
+  mpd_port      The port MPD is bound to (6600)
+  mpd_timeout   Connection timeout in seconds (5)
+  mpd_format    The text to display (np: %%ARTIST - %%TITLE)
+  mpd_alt_text  The Text to display, if %%ARTIST and %%TITLE are empty (np: %%FILENAME)
+
+USAGE
+  /np           Print the song you are listening to
+  /np help      Print this text
+';
+}
+
+
+Irssi::settings_add_str('mpd', 'mpd_host', 'localhost');
+Irssi::settings_add_str('mpd', 'mpd_port', '6600');
+Irssi::settings_add_str('mpd', 'mpd_timeout', '5');
+Irssi::settings_add_str('mpd', 'mpd_format', 'np: %ARTIST - %TITLE');
+Irssi::settings_add_str('mpd', 'mpd_alt_text', 'np: %FILENAME');
+
+Irssi::command_bind np        => \&np;
+Irssi::command_bind 'np help' => \&help;
+
diff --git a/scripts/mpg123.pl b/scripts/mpg123.pl
new file mode 100644
index 0000000..e52dc13
--- /dev/null
+++ b/scripts/mpg123.pl
@@ -0,0 +1,86 @@
+# Display current mpg123 track to channel
+# you should run mpg123 as,
+# mpg123 --verbose file1 file2 2> ~/.irssi/scripts/mpg123.log
+# or just put this on a file 
+
+#   #--- mpg123a file ---#
+#   #!/bin/sh
+#   mpg123 --verbose * 2> ~/.irssi/scripts/mpg123.log
+
+# save it as mpg123a and make it executable
+# chmod a+x mpg123a
+#
+# execute it on the directory you have your mp3 files
+# ./mpg123a
+
+
+#
+# HOWTO use "mpg123 script" from Irssi:
+# /mpg123 [#channel] [-h|--help]
+#
+# This script works with no problems on mpg123 Version 0.59r
+# bugs: if u call it from the "status" window, it ill crash the script, since you arent currently on a channel. 
+# It ill crash the script not the Irssi program, so u shall re-run it.
+
+
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.01+1";
+%IRSSI = (
+    authors     => 'Ricardo Mesquita',
+    contact	=> 'ricardomesquita@netcabo.pt',
+    name        => 'mpg123',
+    description => 'Display current mpg123 track',
+    url		=> 'http://pwp.netcabo.pt/ricardomesquita/irssi',
+    license     => 'GPLv2',
+    changed	=> 'Mon Nov 27 18:00:00 CET 2006'
+);
+
+my $mpg123file = glob "~/.irssi/scripts/mpg123.log";
+
+
+sub cmd_mpg123 {
+	my ($data, $server, $witem) = @_;
+	my ($mpg123msg, $mpg123linha, $channel);
+
+	my $showhelp="mpg123 irssi script version $VERSION\n/mpg123 [#channel] [-h|--help]";
+	
+	if ($data=~/-h|--help/) {
+		Irssi::print($showhelp);
+		return
+	} else {		
+		if ($data=~ /#./) {
+			$channel = $data;
+		} else {
+			if ($witem->{name} ne "") {
+				$channel = $witem->{name};	
+			}
+		}
+		
+		open (f, $mpg123file) || return;
+
+		while ($mpg123linha=<f>) {		
+			
+			chomp($mpg123linha);
+			if ($mpg123linha=~/playing/i) {
+				$mpg123linha =~s/(.*)stream from\s(.*)\.(.*)\s(.*)/\2\.\3/;
+				$mpg123msg="on MPG123 playing $mpg123linha";
+			}
+
+			chomp($mpg123linha);
+			if ($mpg123linha =~/time:\s/i) {
+				$mpg123linha=~s/[\s]frame#.*,\s(.*),/\1/i;
+				$mpg123linha=~s/time:\s(\d\d).(\d\d).(\d\d)..(\d\d).(\d\d).(\d\d)./\[\1:\2.\3\]/i;	
+				$mpg123msg.=" $mpg123linha";
+			}
+		}
+		close(f);
+		$mpg123msg =~ s/[\r\n]/ /g;
+		$server->command("action ".  $channel . " $mpg123msg");
+	}	
+}
+
+Irssi::command_bind('mpg123', 'cmd_mpg123');
diff --git a/scripts/multipaste.pl b/scripts/multipaste.pl
new file mode 100644
index 0000000..a4a6e5a
--- /dev/null
+++ b/scripts/multipaste.pl
@@ -0,0 +1,151 @@
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003120617";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "multipaste",
+    description => "Helps pasting multiple lines to a channel",
+    license     => "GPLv2",
+    url         => "",
+    changed     => "$VERSION",
+    modules     => "",
+    commands	=> "multipaste"
+);
+
+use Irssi 20020324;
+use vars qw(%item);
+
+sub sig_send_text ($$$) {
+    my ($line, $server, $witem) = @_;
+    return unless (Irssi::settings_get_bool('multipaste_auto'));
+    return unless (ref $server);
+    return unless ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'));
+    $line =~ s/\t/    /g;
+    if (%item && $item{waiting}) {
+	%item = ();
+    }
+    if ($witem->{name} eq $item{channel} && $server->{tag} eq $item{server}) {
+	Irssi::timeout_remove($item{timeout});
+	#Irssi::command("BIND -delete tab");
+	my $timeout = 10;
+	chomp($line);
+	$item{text} .= $line."\n";
+	$item{timeout} = Irssi::timeout_add($timeout, \&send_item, undef);
+	Irssi::signal_stop();
+    } else {
+	unless ($line eq '') {
+	    Irssi::signal_stop();
+	    paste($line, $server, $witem);
+	}
+    }
+}
+
+sub sig_send_command ($$$) {
+    my ($line, $server, $witem) = @_;
+    return if ($line =~ /^.multipaste/);
+    return unless (Irssi::settings_get_bool('multipaste_auto'));
+    return unless (ref $witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'));
+    if (%item && $item{waiting}) {
+	%item = ();
+	return;
+    }
+    # This does not work when the first line starts with 
+    return unless $item{text};
+    $line =~ s/\t/    /g;
+    if ($witem->{name} eq $item{channel} && $server->{tag} eq $item{server}) {
+        Irssi::timeout_remove($item{timeout});
+	#Irssi::command("BIND -delete tab");
+        my $timeout = 10;
+        chomp($line);
+        $item{text} .= $line."\n";
+        $item{timeout} = Irssi::timeout_add($timeout, \&send_item, undef);
+        Irssi::signal_stop();
+    } else {
+        Irssi::signal_stop();
+        paste($line, $server, $witem);
+    }
+}
+
+
+sub send_item {
+    my $limit = Irssi::settings_get_int('multipaste_limit');
+    my $server = Irssi::server_find_tag($item{server});
+    my $channel = $server->window_item_find($item{channel});
+    my $lines = scalar( split(/\n/, $item{text}) );
+    if ($limit > 0 && $lines > $limit) {
+	unless ($item{confirmed}) {
+	    $channel->print('%B>>%n Do you want to paste '.$lines.' lines? Enter "/multipaste" to proceed', MSGLEVEL_CLIENTCRAP);
+	    $item{waiting} = 1;
+	    Irssi::timeout_remove($item{timeout});
+	    return;
+	}
+    }
+    my $prefix = Irssi::settings_get_str('multipaste_prefix');
+    my $prefix2 = '';
+    $prefix = $item{prefix}.': '.$prefix if $item{prefix};
+    $prefix2 = $item{prefix}.': ' if $item{prefix};
+    if (scalar( split(/\n/, $item{text}) ) > 1) {
+	#Irssi::command("BIND tab word_completion");
+	my $embrace = Irssi::settings_get_bool('multipaste_embrace');
+	$server->command('MSG -- '.$channel->{name}.' '.$prefix2.',--8<-') if $embrace;
+	foreach (split(/\n/, $item{text})) {
+	    $server->command('MSG -- '.$channel->{name}.' '.$prefix.$_);
+	}
+	$server->command('MSG -- '.$channel->{name}.' '.$prefix2.'`-->8-') if $embrace;
+    } else {
+	my $text = join("", split(/\n/, $item{text}));
+	my $prefix = $item{prefix} ? $item{prefix}.': ' : '';
+	unless ($prefix.$text eq "\n") {
+	    $server->command('MSG -- '.$channel->{name}.' '.$prefix.$text);
+	}
+    }
+    Irssi::timeout_remove($item{timeout});
+    %item = ();
+}
+
+sub paste ($$$) {
+    my ($args, $server, $witem) = @_;
+    return unless ref $witem;
+    return if (%item);
+    chomp($args);
+    my $timeout = 10;
+    if ($args =~ /^(.+?): (.*)/ && $witem->{type} eq 'CHANNEL' && $witem->nick_find($1)) {
+	$item{prefix} = $1;
+	$item{text} .= $2."\n";
+    } else {
+	$item{text} .= $args."\n";
+    }
+    $item{server} = $server->{tag};
+    $item{channel} = $witem->{name};
+    $item{timeout} = Irssi::timeout_add($timeout, \&send_item, undef);
+}
+
+sub cmd_multipaste ($$$) {
+    my ($args, $server, $witem) = @_;
+    return unless (%item && $item{waiting});
+    $item{confirmed} = 1;
+    send_item();
+}
+
+
+sub sig_word_complete ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    my $lines = scalar( split(/\n/, $item{text}) );
+    if (%item && ( not $item{waiting} ) ) {
+	push @$list, $linestart.$word.'    ';
+	Irssi::signal_stop();
+    }
+}
+
+Irssi::settings_add_bool($IRSSI{name}, 'multipaste_auto', 1);
+Irssi::settings_add_int($IRSSI{name}, 'multipaste_limit', 0);
+Irssi::settings_add_bool($IRSSI{name}, 'multipaste_embrace', 1);
+Irssi::settings_add_str($IRSSI{name}, 'multipaste_prefix', '|');
+Irssi::command_bind('multipaste', \&cmd_multipaste);
+Irssi::signal_add('send text', 'sig_send_text');
+Irssi::signal_add('send command', 'sig_send_command');
+Irssi::signal_add_first('complete word', 'sig_word_complete');
+
+print CLIENTCRAP "%B>>%n ".$IRSSI{name}." ".$VERSION." loaded";
diff --git a/scripts/my_beep.pl b/scripts/my_beep.pl
new file mode 100644
index 0000000..c566e2d
--- /dev/null
+++ b/scripts/my_beep.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/irssi
+#
+# irssi beep with-command-script
+# (C) 2003 Remco den Breeje
+# inspired by Georg Lukas
+
+# howtoinstall:
+#  copy this file to ~/.irssi/script/
+#  in irssi:
+#   $/script load my_beep.pl
+#  change the settings
+#   $/set beep_msg_level HILIGHT
+#   $/set beep_cmd beep 
+
+
+$VERSION = "0.9";
+%IRSSI = (
+    authors	=> "Remco den Breeje",
+    contact	=> "stacium or stek (most of the time) @ quakenet.org",
+    name	=> "my_beep",
+    description	=> "runs arbitrary command instead of system beep, includes flood protection",
+    license	=> "Public Domain",
+    url		=> "http://www.xs4all.nl/~stacium/irssi/my_beep.html",
+);
+
+use Irssi;
+
+my $can_I_beep = 1;
+
+sub beep_overflow_timeout() {
+	$can_I_beep = 1;
+	# and kill the loop
+        Irssi::timeout_remove($timeout_tag);
+        $autoaway_to_tag = undef;
+}
+
+sub my_beep() {
+	my $beep_cmd = Irssi::settings_get_str("beep_cmd");
+	if ($beep_cmd) {
+		my $beep_flood = Irssi::settings_get_int('beep_flood');
+                # check on given beep_flood
+                if($beep_flood < 0)
+		{
+			Irssi::print("Warning! Wrong value for beep_flood (time in milisecs)");
+			Irssi::signal_stop();
+			return;
+		}
+		if ($can_I_beep) {
+		        $timeout_tag = Irssi::timeout_add($beep_flood, 'beep_overflow_timeout', undef);
+			system($beep_cmd);
+			$can_I_beep = 0;
+		}
+		Irssi::signal_stop();
+	}
+}
+
+Irssi::settings_add_str("lookandfeel", "beep_cmd", "echo INeedToBeSet > /dev/null");
+Irssi::settings_add_int("lookandfeel", "beep_flood", 2000);
+Irssi::signal_add("beep", "my_beep");
diff --git a/scripts/mygoogle.pl b/scripts/mygoogle.pl
new file mode 100644
index 0000000..b2d0cc1
--- /dev/null
+++ b/scripts/mygoogle.pl
@@ -0,0 +1,114 @@
+#######################################################################
+# mygoogle.pl
+#
+# Author: Tim Van Wassenhove <timvw@users.sourceforge.net>
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. The name of the author may not be used to endorse or promote products
+#    derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+#######################################################################
+
+use strict;
+use Irssi;
+use LWP::UserAgent;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.01';
+%IRSSI = (
+	authors     => 'Tim Van Wassenhove',
+	contact     => 'timvw@users.sourceforge.net',
+	name        => 'mygoogle',
+  description => 'Query Google',
+	license     => 'BSD',
+	url         => 'http://home.mysth.be/~timvw',
+	changed     => '13-03-04 01:35',
+);
+
+# Perform the query and return the results
+sub google_query {
+
+	my $query = shift;
+
+	my $ua = LWP::UserAgent->new;
+	$ua->agent("irssi/0.1");
+
+  # Request the page
+	my $request = HTTP::Request->new(GET => "http://www.google.com/search?hl=en&q=$query");
+	my $result = $ua->request($request);
+	my $content = $result->content;
+
+  # Parse the returned page
+  my @lines = split("<br>",$content);
+	my @results = ();
+	push(@results,"Results for $query on Google:");
+	my $counter = 0;
+	foreach(@lines) {
+		if ($counter < 3 && $_ =~ /^\<font color=#008000\>(.*?)\s+(.*?)\s+\-\s+\<\/font\>(.*)$/) {
+			push(@results,"http://$1");
+			++$counter;
+		}
+	}
+	push(@results,"--");
+
+	return @results;
+}
+
+# Output the results
+sub results_write {
+	my ($server,$target,@lines) = @_;
+	foreach(@lines) {
+		$server->command("MSG $target $_");
+	}
+}
+
+# Handle what others say in public
+sub message_public {
+	my ($server,$msg,$nick,$address,$target) = @_;
+	if ($msg =~ /^\!google\s+(.+)$/) {
+		my @lines = google_query($1);
+		results_write($server,$target,@lines);
+	}
+}
+
+# Handle what we say in public
+sub message_own_public {
+	my ($server,$msg,$target) = @_;
+	message_public($server,$msg,$server->{nick},0,$target);
+}
+
+# Handle what others say in private
+sub message_private {
+	my ($server,$msg,$nick,$address) = @_;
+	message_public($server,$msg,$nick,$address,$nick);
+}
+
+# Handle what we say in private
+sub message_own_private {
+	my ($server,$msg,$target,$otarget) = @_;
+	message_public($server,$msg,$server->{nick},0,$target);
+}
+
+# Connect the signals with the functions
+Irssi::signal_add('message public','message_public');
+Irssi::signal_add('message own_public','message_own_public');
+Irssi::signal_add('message private','message_private');
+Irssi::signal_add('message own_private','message_own_private');
\ No newline at end of file
diff --git a/scripts/myimdb.pl b/scripts/myimdb.pl
new file mode 100644
index 0000000..5d8b855
--- /dev/null
+++ b/scripts/myimdb.pl
@@ -0,0 +1,114 @@
+#######################################################################
+# myimdb.pl
+#
+# Author: Tim Van Wassenhove <timvw@users.sourceforge.net>
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. The name of the author may not be used to endorse or promote products
+#    derived from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+#######################################################################
+
+use strict;
+use Irssi;
+use LWP::UserAgent;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.01';
+%IRSSI = (
+	authors      => 'Tim Van Wassenhove',
+	contact     => 'timvw@users.sourceforge.net',
+	name        => 'myimdb',
+  description => 'Query imdb',
+	license     => 'BSD',
+	url         => 'http://home.mysth.be/~timvw',
+	changed     => '13-03-04 01:43',
+);
+
+# Perform the query and return the results
+sub imdb_query {
+
+	my $query = shift;
+
+	my $ua = LWP::UserAgent->new;
+	$ua->agent("irssi/0.1 ");
+
+  # Request the page
+	my $request = HTTP::Request->new(GET => "http://us.imdb.com/Title?=$query");
+	my $result = $ua->request($request);
+	my $content = $result->content;
+	
+	# Parse the returned page
+	my @lines = split("<LI>",$content);
+	my @results = ();
+	push(@results,"Results for $query on imdb:");
+	my $counter = 1;
+	foreach(@lines) {
+		if ($counter < 4 && $_ =~ /^\<A HREF=\"\/title\/tt(\d+)\/\"\>(.*?)\<\/A\>\<\/LI\>$/) {
+			push(@results,"http://us.imdb.com/title/tt$1 $2");
+			++$counter;
+		}
+	}
+	push(@results,"--");
+
+	return @results;
+}
+
+# Output the results
+sub results_write {
+  my ($server,$target,@lines) = @_;
+  foreach(@lines) {
+		$server->command("MSG $target $_");
+	}
+}
+
+# Handle what others say in public
+sub message_public {
+	my ($server,$msg,$nick,$address,$target) = @_;
+	if ($msg =~ /^\!imdb\s+(.+)$/) {
+		my @lines = imdb_query($1);
+		results_write($server,$target,@lines);
+	}
+}
+
+# Handle what we say in public
+sub message_own_public {
+	my ($server,$msg,$target) = @_;
+	message_public($server,$msg,$server->{nick},0,$target);
+}
+
+# Handle what others say in private
+sub message_private {
+	my ($server,$msg,$nick,$address) = @_;
+	message_public($server,$msg,$nick,$address,$nick);
+}
+
+# Handle what we say in private
+sub message_own_private {
+	my ($server,$msg,$target,$otarget) = @_;
+	message_public($server,$msg,$server->{nick},0,$target);
+}
+
+# Connect the signals with the functions
+Irssi::signal_add('message public','message_public');
+Irssi::signal_add('message own_public','message_own_public');
+Irssi::signal_add('message private','message_private');
+Irssi::signal_add('message own_private','message_own_private');
diff --git a/scripts/mysqlurllogger.pl b/scripts/mysqlurllogger.pl
new file mode 100644
index 0000000..2c6d4fa
--- /dev/null
+++ b/scripts/mysqlurllogger.pl
@@ -0,0 +1,69 @@
+#
+# Logs URLs this script is just a hack. hack it to suit you
+# if you want to.
+#
+# table format;
+#
+#+-----------+---------------+------+-----+---------+-------+
+#| Field     | Type          | Null | Key | Default | Extra |
+#+-----------+---------------+------+-----+---------+-------+
+#| insertime | timestamp(14) | YES  |     | NULL    |       |
+#| nick      | char(10)      | YES  |     | NULL    |       |
+#| target    | char(255)     | YES  |     | NULL    |       |
+#| line      | char(255)     | YES  |     | NULL    |       |
+#+-----------+---------------+------+-----+---------+-------+
+
+
+use DBI;
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+        authors     => "Riku Voipio, lite",
+        contact     => "riku.voipio\@iki.fi",
+        name        => "myssqlurllogger",
+        description => "logs url's to mysql database",
+        license     => "GPLv2",
+        url         => "http://nchip.ukkosenjyly.mine.nu/irssiscripts/",
+    );
+
+$dsn = 'DBI:mysql:ircurl:localhost';
+$db_user_name = 'tunnus';
+$db_password = 'salakala';
+
+sub cmd_logurl {
+	my ($server, $data, $nick, $mask, $target) = @_;
+        $d = $data;
+        if (($d =~ /(.{1,2}tp\:\/\/.+)/) or ($d =~ /(www\..+)/)) {
+		db_insert($nick, $target, $1);
+        }
+	return 1;
+}
+
+sub cmd_own {
+	my ($server, $data, $target) = @_;
+	return cmd_logurl($server, $data, $server->{nick}, "", $target);
+}
+sub cmd_topic {
+	my ($server, $target, $data, $nick, $mask) = @_;
+	return cmd_logurl($server, $data, $nick, $mask, $target);
+}
+
+sub db_insert {
+	my ($nick, $target, $line)=@_;
+	my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
+	my $sql="insert into urlevent (insertime, nick, target,line) values (NOW()".",". $dbh->quote($nick) ."," . $dbh->quote($target) ."," . $dbh->quote($line) .")";
+	my $sth = $dbh->do($sql);
+	$dbh->disconnect();
+	}
+
+Irssi::signal_add_last('message public', 'cmd_logurl');
+Irssi::signal_add_last('message own_public', 'cmd_own');
+Irssi::signal_add_last('message topic', 'cmd_topic');
+
+Irssi::print("URL logger by lite/nchip loaded.");
+
+
diff --git a/scripts/nact.pl b/scripts/nact.pl
new file mode 100644
index 0000000..e4468fe
--- /dev/null
+++ b/scripts/nact.pl
@@ -0,0 +1,334 @@
+use Irssi;
+use Irssi::TextUI;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.2.6";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'nact',
+	description=> 'Adds an item which displays the current network activity. Needs /proc/net/dev.',
+	license=> 'GPL v2 or later',
+	url=> 'https://bc-bd.org/svn/repos/irssi/trunk/',
+);
+
+#########
+# INFO
+###
+#
+#  Currently running on Linux, OpenBsd and FreeBsd.
+#
+#  Type this to add the item:
+#
+#    /statusbar window add nact
+#
+#  See
+#  
+#    /help statusbar
+#
+#  for more help on how to custimize your statusbar.
+#  Add something like this to your theme file to customize to look of the item
+#
+#    nact_display = "$0%R>%n%_$1%_%G>%n$2";
+#    
+#  where $0 is the input, $1 the device and $2 the output. To customize the
+#  outout of the /bw command add something like
+#
+#    nact_command = "$0)in:$1:out($2";
+#
+#  to your theme file.
+#
+##########
+# THEME
+####
+#
+# This is the complete list of parameters passed to the format:
+#
+#    $0: incomming rate
+#    $1: name of the device, eg. eth0
+#    $2: outgoing rate
+#    $3: total bytes received
+#    $4: total bytes sent
+#    $5: sum of $4 and $5
+#
+#########
+# TODO
+###
+#
+# Make this script work on other unices, For that i need some infos on where
+# to find the total amount of sent bytes on other systems. You may be so kind
+# as to send me the name of such a file and a sample output of it.
+#
+#   or
+#
+# you can be so kind as to send me a patch. Fort that _please_ check that you
+# do have the latest nact.pl and use these diff switches:
+#
+#   diff -uN nact.pl.new nact.pl.old 
+#
+############
+# OPTIONS
+######
+#
+# /set nact_command <command>
+#   command: command to execute on /bw. example:
+#
+#     /set nact_command /say
+#
+# /set nact_devices <devices>
+#   devices: space seperated list of devices to display
+#
+# /set nact_interval <n>
+#   n: number of mili-seconds to wait before an update of the item
+#
+# /set nact_format <format>
+#   format: a format string like the one with sprintf. examples: 
+#
+#     /set nact_format %d    no digits after the point at all
+#     /set nact_format %.3f  3 digits after the point
+#     /set nact_format %.5f  5 digits after the point
+# 
+# /set nact_unit <n>
+#   n: set the unit to KiB, MiB, or GiB. examples:
+#
+#     /set nact_unit 0 calculate dynamically
+#     /set nact_unit 1 set to KiB/s
+#     /set nact_unit 2 set to MiB/s
+#     /set nact_unit 3 set to GiB/s
+#   
+###
+################
+
+my $outString = "nact...";
+my $outCmd = "nact...";
+my (%in,%out,$timeout,$getBytes);
+
+sub getBytesLinux() {
+	my @list;
+	my $ignore = 2;
+	
+	open(FID, "/proc/net/dev");
+
+	while (<FID>) {
+		if ($ignore > 0) {
+			$ignore--;
+			next;
+		}
+
+		my $line = $_;
+		$line =~ s/[\s:]/ /g;
+		@list = split(" ", $line);
+		$in{$list[0]} = $list[1];
+		$out{$list[0]} = $list[9];
+	}
+
+	close (FID);
+}
+
+sub getBytesOBSD() {
+	my @list;
+	
+	open(FID, "/usr/bin/netstat -nib|");
+
+	while (<FID>) {
+		my $line = $_;
+		@list = split(" ", $line);
+		$in{$list[0]} = $list[4];
+		$out{$list[0]} = $list[5];
+	}
+
+	close (FID);
+}
+
+sub getBytesFBSD() {
+  my @list;
+  my $olddev="";
+
+  open(FID, "/usr/bin/netstat -nib|");
+  while (<FID>) {
+    my $line = $_;
+    @list = split(" ", $line);
+    next if $list[0] eq $olddev;
+    $in{$list[0]} = $list[6];
+    $out{$list[0]} = $list[9];
+    $olddev=$list[0];
+  }
+
+  close (FID);
+}
+
+sub make_kilo($$$) {
+	my ($what,$format,$unit) = @_;
+	my ($effective);
+
+	# determine the effective unit, either from forcing, or from dynamically
+	# checking the size of the value
+	if ($unit == 0) {
+		if ($what >= 1024*1024*1024) {
+			$effective = 3
+		} elsif ($what >= 1024*1024) {
+			$effective = 2
+		} elsif ($what >= 1024) {
+			$effective = 1
+		} else {
+			$effective = 0;
+		}
+	} else {
+		$effective = $unit;
+	}
+	
+	if ($effective >= 3) {
+			return sprintf($format."%s", $what/(1024*1024*1024), "G");
+	} elsif ($effective == 2) {
+			return sprintf($format."%s", $what/(1024*1024), "M");
+	} elsif ($effective == 1) {
+			return sprintf($format."%s", $what/(1024), "K");
+	} else {
+		return sprintf($format, $what);
+	}
+}
+
+sub sb_nact() {
+	my ($item, $get_size_only) = @_;
+
+	$item->default_handler($get_size_only, "{sb $outString}", undef, 1);
+}
+
+sub timeout_nact() {
+	my ($out,$char);
+	my $slice = Irssi::settings_get_int('nact_interval');
+	my $format = Irssi::settings_get_str('nact_format');
+	my $unit = Irssi::settings_get_int('nact_unit');
+	my $theme = Irssi::current_theme();
+	my %oldIn = %in;
+	my %oldOut = %out;
+	
+	&$getBytes();
+		
+	$out = "";
+	$outCmd = "";
+		
+	foreach (split(" ", Irssi::settings_get_str('nact_devices'))) {
+		my $b_in = $in{$_};
+		my $b_out = $out{$_};
+		my $deltaIn = make_kilo(($b_in -$oldIn{$_})*1000/$slice,$format,$unit);
+		my $deltaOut = make_kilo(($b_out -$oldOut{$_})*1000/$slice,$format,$unit);
+		my $i = make_kilo($b_in,$format,$unit);
+		my $o = make_kilo($b_out,$format,$unit);
+		my $s = make_kilo($b_in +$b_out,$format,$unit);
+
+		$out .= Irssi::current_theme->format_expand(
+			"{nact_display $deltaIn $_ $deltaOut $i $o $s}",Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+		
+		$outCmd .= Irssi::current_theme->format_expand(
+			"{nact_command $deltaIn $_ $deltaOut $i $o $s}",Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+	}
+
+	# perhaps this usage of $out as temp variable does fix those nasty
+	# display errors
+	$outString = $out;
+	Irssi::statusbar_items_redraw('nact');
+}
+
+sub nact_setup() {
+	my $slice = Irssi::settings_get_int('nact_interval');
+	
+	Irssi::timeout_remove($timeout);
+
+	if ($slice < 10) {
+		Irssi::print("nact.pl, ERROR nact_interval must be greater than 10");
+		return;
+	}
+
+	$timeout = Irssi::timeout_add($slice, 'timeout_nact' , undef);
+}
+
+sub cmd_bw {
+	my ($data, $server, $witem) = @_;
+
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+		$witem->command(Irssi::settings_get_str('nact_command')." ".$outCmd);
+	} else {
+		Irssi::print("nact: command needs window of type channel or query.");
+	}
+}
+
+Irssi::command_bind('bw','cmd_bw');
+
+Irssi::signal_add('setup changed','nact_setup');
+
+# register our item
+Irssi::statusbar_item_register('nact', undef, 'sb_nact');
+
+# register our os independant settings
+Irssi::settings_add_int('misc', 'nact_interval', 10000);
+Irssi::settings_add_str('misc', 'nact_format', '%.0f');
+Irssi::settings_add_int('misc', 'nact_unit', 0);
+Irssi::settings_add_str('misc', 'nact_command', 'me looks at the gauges:');
+
+# os detection
+my $os = `uname`;
+if ($os =~ /Linux/) {
+	Irssi::print("nact.pl, running on Linux, using /proc/net/dev");
+	$getBytes = \&getBytesLinux;
+	Irssi::settings_add_str('misc', 'nact_devices', "eth0 lo");
+} elsif ($os =~ /OpenBSD/) {
+	Irssi::print("nact.pl, running on OpenBSD, using netstat -nbi");
+	$getBytes = \&getBytesOBSD;
+	Irssi::settings_add_str('misc', 'nact_devices', "tun0");
+} elsif ($os =~ /FreeBSD/) {
+  Irssi::print("nact.pl, running on FreeBSD, using netstat -nbi");
+  $getBytes = \&getBytesFBSD;
+  Irssi::settings_add_str('misc', 'nact_devices', "rl0");
+} else {
+	Irssi::print("nact.pl, sorry no support for OS:$os");
+	Irssi::print("nact.pl, If you know how to collect the needed data on your OS, mail me :)");
+	$os = "";
+}
+
+if ($os ne "") {
+	&$getBytes();
+	nact_setup();
+}
+
+################
+###
+# Changelog
+#
+# Version 0.2.5
+#  - added nact_command
+#  - added /bw
+#
+# Version 0.2.4
+#  - added FreeBSD support (by senneth)
+#
+# Version 0.2.3
+#  - stray ' ' in the item (reported by darix). Add a " " at the end of your
+#      nact_display if you have more than one interface listed.
+#
+# Version 0.2.2
+#  - added missing use Irssi::TextUI (reported by darix)
+#  - small parameter switch bug (reported by darix)
+#
+# Version 0.2.1
+#  - added total number of bytes sent/received
+#  
+# Version 0.2.0
+#  - runs now from autorun/ on openbsd
+#  - changed nact_interval to mili-seconds
+#  - added nact_format, nact_unit
+#
+# Version 0.1.2
+#  - small typo in the docs
+#
+# Version 0.1.1
+#  - introduced multiple os support
+#  - added a theme thingie to make sascha happy ;)
+#
+# Version 0.1.0
+#  - initial release
+#
+###
+################
diff --git a/scripts/netswitch.pl b/scripts/netswitch.pl
new file mode 100644
index 0000000..01f499a
--- /dev/null
+++ b/scripts/netswitch.pl
@@ -0,0 +1,43 @@
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0.0";
+%IRSSI   = (
+	authors     => 'Roeland Nieuwenhuis',
+	contact     => 'irc@trancer.nl',
+	name        => 'netswitch',
+	description => 'Set all windows not bound to a network to a specified network.',
+	license     => 'BSD',
+	url         => 'http://trancer.nl',
+	changed     => 'Mon May 24 2010',
+);
+
+sub cmd_netswitch {
+	my $netname = shift;
+	my $destserv;
+
+	if ($netname eq "") {
+		$destserv = Irssi::active_server() if $netname eq "";
+	} else {
+		my $cn = Irssi::server_find_tag($netname);
+		unless ($cn) {
+			Irssi::active_win->print("Unknown network: $netname");
+  	  return;
+		} 
+		$destserv = $cn;
+	}
+
+	for my $win (Irssi::windows()) {
+		for my $witem($win->items or $win) {
+			$witem->change_server($destserv) unless defined $witem->{'type'} && ($witem->{'type'} eq "CHANNEL" || $witem->{'type'} eq "QUERY");
+		}
+	}
+	Irssi::active_win->print("All windows changed network to $destserv->{'tag'}");
+}
+
+Irssi::active_win->print("%GNetswitcher $VERSION loaded%n. Use /netswitch <netname> to switch all windows that are not CHANNEL or QUERY to <netname>. If you call /netswitch without arguments it will switch to the network of the active window.");
+
+Irssi::command_bind("netswitch", "cmd_netswitch");
diff --git a/scripts/news.pl b/scripts/news.pl
new file mode 100644
index 0000000..c864404
--- /dev/null
+++ b/scripts/news.pl
@@ -0,0 +1,284 @@
+#
+# This script requires external perl module News::NNTPClient. You can download
+# sources of this module from:
+#		http://www.cpan.org/authors/id/RVA/NNTPClient-0.37.tar.gz
+#		http://derwan.irssi.pl/perl-modules/NNTPClient-0.37.tar.gz
+# Usage:
+#	/ARTICLE [-s <server>] [-p <port>] [-P <password> -U <login>] [-l <group> <count>] [-a] [-L <index>] <Message-ID>
+# Settings:
+#	/SET news_nntp_server [server] (default environment variable 'NNTPSERVER' is used (or news.tpi.pl if variable not set))
+#	/SET news_nntp_port [port] (default is 119)
+#	/SET news_show_headers [headers] (default: from newsgroups subject message-id date lines)
+#	/SET news_use_news_window [On/Off] (default is On)
+#	/SET news_show_signature [On/Off] (default is On)
+#	/SET news_use_body_colors [On/Off] (default is On)
+#	/SET news_check_count [count] (default is 5)
+#	/SET news_use_auth [On/Off] (default is Off)
+#	/SET news_auth_user [login]
+#	/SET news_auth_password [password]
+
+use strict;
+use Irssi;
+use 5.6.0;
+use POSIX;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.5.9";
+%IRSSI = (
+	'authors'	=> 'Marcin Rozycki, Mathieu Doidy',
+	'contact'	=> 'derwan@irssi.pl',
+	'name'		=> 'news',
+	'description'	=> 'News reader, usage:  /article [-s <server>] [-p <port>] [-P <password> -U <login>] [-l <group> <count>] [-a] [-L <index>] <message-id>',
+	'url'		=> 'http://derwan.irssi.pl',
+	'license'	=> 'GNU GPL v2',
+	'changed'	=> 'Fri Feb  6 21:26:57 CET 2004',
+);
+
+use News::NNTPClient;
+
+my $debug_level = 0;
+my $nntp_server = $ENV{'NNTPSERVER'}; $nntp_server = 'news.tpi.pl' unless $nntp_server;
+my $nntp_port = '119';
+my $default_headers = 'from newsgroups';
+my $check_count = 5;
+my %pipe_tag = ();
+my $news_window_name = 'news';
+my @colors = (15, 12, 03, 06, 05, 07, 14);
+my @articles = ();
+
+$| = 1;
+
+Irssi::command_bind article => sub {
+	my $usage = '/article [-s <server>] [-p <port>] [-P <password> -U <login>] [-l <group> <count>] [-a] [-L <index>] <Message-ID>';
+
+	my $window;
+	if (Irssi::settings_get_bool('news_use_news_window')) {
+		$window = Irssi::window_find_name($news_window_name);
+		if (!$window) {
+			Irssi::command('^window new hide');
+			Irssi::command('^window name '.$news_window_name);
+			$window = Irssi::window_find_name($news_window_name);
+		}
+	} else {
+		$window = Irssi::active_win();
+	}
+
+	my $server = Irssi::settings_get_str('news_nntp_server');
+	$server = $nntp_server unless $server;
+	my $port = Irssi::settings_get_int('news_nntp_port');
+	$port = $nntp_port unless ($port > 0);
+	my $count = Irssi::settings_get_int('news_check_count');
+	$count = $check_count unless ($count > 0);
+
+	my ($connection, $artid, $group, $strip, $showall, @article);
+	my ($auth, $user, $password);
+	my $yes = 0;
+
+	@_ = split(/ +/, $_[0]);
+	while ($_ = shift(@_))
+	{
+		/^-a$/ and $showall = 1, next;
+		/^-s$/ and $server = shift(@_), next;
+		/^-p$/ and $port = shift(@_), next;
+		/^-P$/ and $password = shift(@_), next;
+		/^-U$/ and $user = shift(@_), next;
+		/^-l$/ and do {
+			$group = shift(@_);
+			$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_group_missing', $usage), return unless ($group);
+			$_ = shift(@_);
+			$count = $_, next if ($_ =~ /^\d+$/ and $_ > 0);
+		};
+		/^-yes$/i and ++$yes, next;
+		/^-L$/ and do {
+			$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_no_artids'), return if ($#articles < 0);
+			if ($artid = shift(@_)) {
+				$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_unknown_argument', $artid, $usage), return if ($artid !~ /^\d+/ or $artid < 0 or $artid > 10);
+				$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_unknown_artid', ++$artid), return unless ($articles[--$artid]);
+			    $_ = $articles[$artid]->[0];
+            } else {
+				for (my $idx = 0; $idx <= $#articles; $idx++) {
+					$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_artid_show',
+						($idx + 1), $articles[$idx]->[0], $articles[$idx]->[1], $articles[$idx]->[2]);
+				}
+			    return;
+            }
+		};
+		/^-/ and $window->printformat(MSGLEVEL_CLIENTCRAP, 'news_unknown_argument', $_, $usage), return;
+		$artid = ($_ =~ /^<.*>$/) ? $_ : '<'.$_.'>';
+		last;
+	}
+
+	$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_server_unknown', $server), return if (!$server or $server !~ /^..*\...*/);
+	$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_port_unknown', $port), return if (!$port or $port !~ /^\d+$/ or $port == 0 or $port > 65535);
+	$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_missing_argument', $usage), return if (!$group and !$artid);
+	$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_article_unknown', $artid), return if (!$group and $artid !~ /^<..*\@..*>$/);
+
+	my ($rh, $wh);
+	pipe($rh, $wh);
+
+	my $pid = fork();
+	unless (defined $pid) {
+		close($rh); close($wh);
+		$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_cannot_fork');
+		return;
+
+	} elsif ($pid) {
+		close ($wh);
+		$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_server_connecting', $server, $port, $artid);
+		Irssi::pidwait_add($pid);
+		$pipe_tag{$rh} = Irssi::input_add(fileno($rh), INPUT_READ, \&news_fork, $rh);
+		return;
+	}
+
+	close($rh);
+
+	$connection = new News::NNTPClient($server, $port, $debug_level);
+	print($wh "not_connected $server $port\n"), goto END unless ($connection->{CODE} =~ /^(200|201)$/);
+	print($wh "connected ".$connection->{MESG}."\n");
+
+        if ($user && $password or Irssi::settings_get_bool('news_use_auth')) {
+		$user = Irssi::settings_get_str('news_auth_user') unless defined $user;
+		$password = Irssi::settings_get_str('news_auth_password') unless defined $password;
+		$connection->authinfo($user,$password);
+	}
+	
+	
+	if ($group) {
+		print($wh "listgroup_yes $count\n"), goto END if ($count > 10 and !$yes);
+		print($wh "listgroup_request $server $group\n");
+		my @list = $connection->listgroup($group);
+		print($wh "listgroup_error $server ".$connection->{MESG}."\n"), goto END if ($#list < 0);
+
+		my $num = $#list;
+		print($wh "listgroup_num $group $num $count\n");
+		@list = @list[($num - $count) .. $num] if ($num > --$count);
+
+		N: while ($_ = shift(@list))
+		{
+			chomp;
+			print($wh "space\n");
+			foreach my $xhdr ("From", "Subject", "Message-ID")
+			{
+				my @reply = $connection->xhdr($xhdr, $_);
+				chomp $reply[0]; $reply[0] =~ s/^\d+ //;
+				goto N unless ($reply[0]);
+				if ($xhdr eq "Message-ID") {
+					print($wh "memo $reply[0]\,news.pl: listgroup,$group\n");
+				} elsif ($xhdr eq "From") {
+					$reply[0] = "\002" . $reply[0] . "\002";
+				}
+				print($wh "listgroup_header $xhdr $reply[0]\n");
+			}
+		}
+		print($wh "space\n");
+
+	} else {
+		my $show_headers = $default_headers .' '. Irssi::settings_get_str('news_show_headers');
+		my ($head, $idx, $usecolors, $bodycolor) = (1, 0, Irssi::settings_get_bool('news_use_body_colors'), $colors[0]);
+
+		print($wh "article_request $server $artid\n");
+		foreach ($connection->article($artid))
+		{
+			unless ($idx++) {
+				print($wh "space\n");
+				print($wh "memo $artid\,news.pl: read,$server\n");
+			}
+			chomp; s/\t/        /g;
+			/^-- / and do {
+				last if (!$showall and !Irssi::settings_get_bool('news_show_signature'));
+				$bodycolor = $colors[6], $usecolors = 0 if $usecolors;
+			};
+			unless ($head) {
+				/^$/ and next if (!$showall and $strip++);
+				/^..*$/ and $strip = 0;
+				if ($usecolors) {
+					$_ =~ /^[>| ]+/;
+					my $prefix = $&; $prefix =~ s/ //g;
+					$bodycolor = ($_ =~ /^[>]+/) ? $colors[(((length($prefix)-1) %5)+1)] : $colors[0];
+				}
+				print($wh "article_body \003$bodycolor$_\n");
+				next;
+			}
+			/^$/ and print($wh "space\n"), $head = 0, next;
+			my ($header, $text) = split(/: /, $_, 2);
+			print($wh "article_header $header $text\n") if ($showall or $show_headers =~ /\b$header\b/i);
+		}
+		print($wh "article_notexist $server $artid\n") unless ($idx);
+		print($wh "space\n") unless ($strip);
+	}
+
+	END: print($wh "close\n");
+	close($wh);
+	POSIX::_exit(1);
+};
+
+sub memo {
+	my ($text, $who, $where) = @_;
+	G: while ($text =~ /<[A-Za-z0-9\S]+\@[A-Za-z0-9\S]+>/g)
+	{
+		my $artid = $&;
+		foreach my $array (@articles) { goto G if ($artid eq $array->[0]); }
+		unshift @articles, [$artid, $who, $where];
+	}
+	$#articles = 9 if ($#articles > 9);
+}
+
+sub news_fork {
+	my $rh = shift;
+	while (<$rh>)
+	{
+		chomp;
+		/^close/ and last;
+		/^memo / and memo(split(",", $', 3)), next;
+		my ($theme, @args) = split / +/, $_, 5;
+		my $window = Irssi::window_find_name($news_window_name);
+		$window = Irssi::active_win() unless $window;
+		$window->printformat(MSGLEVEL_CLIENTCRAP, 'news_' . $theme, @args);
+	}
+
+	Irssi::input_remove($pipe_tag{$rh});
+	close($rh);
+}
+
+Irssi::signal_add_last 'message private' => sub { memo($_[1], $_[2], $_[3]); };
+Irssi::signal_add_last 'message public' => sub { memo($_[1], $_[2], $_[4]); };
+Irssi::signal_add_last 'dcc chat message' => sub { memo($_[1], $_[0]->{nick}, "chat"); };
+
+Irssi::theme_register([
+	'news_server_unknown',		'NNTP %_server unknown%_ or not defined, use: /set news_nntp_server [server], to set it',
+	'news_server_bad',		'%_Bad%_ NNTP server {hilight $0} (bad hostname or addres)',
+	'news_port_unknown',		'%_NNTP port%_ unknown or not defined, use: /set news_nntp_port [port], to set it',
+	'news_missing_argument',	'Missing argument, usage: $0-',
+	'news_unknown_argument',	'Unknown argument \'$0\', usage: $1-',
+	'news_server_connecting',	'Connecting to {hilight $0} on port {hilight $1}, wait...',
+	'news_not_connected',		'%_Cannot connect%_ to NNTP server $0 on port $1',
+	'news_connected',		'%_Connected%_; $0-',
+	'news_article_unknown',		'Unknown message-id {hilight $0}',
+	'news_article_notexist',	'No article {hilight $1} on $0',
+	'news_article_request',		'Sending query about article {hilight $1} to $0, wait...',
+	'news_article_body',		'$0-',
+	'news_article_header',		'%c$0:%n %_$1-%_',
+	'news_group_missing',		'Missing argument: newsgroup, usage: $0-',
+	'news_listgroup_request',	'Looking for %_new articles%_ in {hilight $1}, wait...',
+	'news_listgroup_error',		'Listgroup result: $1-',
+	'news_listgroup_num',		'$1 articles in group $0; fetching headers (max in $2 articles), wait...',
+	'news_listgroup_header',	'%c$0:%n $1-',
+	'news_listgroup_yes',		'Count > 10 ($0). Doing this is not a good idea. Add -YES option to command if you really mean it',
+	'news_no_artids',		'Sorry, list of logged message-id\'s is empty :/',
+	'news_cannot_fork',		'Cannot fork process',
+	'news_artid_show',		'[%_$[!-2]0%_] article %c$1%n [by {hilight $2} ($3-)]',
+	'news_unknown_artid',		'Article {hilight $0} not found, type /article -L, to displays list of logged message-id\'s',
+	'news_space',				' '
+]);
+
+# registering settings
+Irssi::settings_add_bool('misc', 'news_use_news_window', 1);
+Irssi::settings_add_str('misc', 'news_nntp_server', $nntp_server);
+Irssi::settings_add_int('misc', 'news_nntp_port', $nntp_port);
+Irssi::settings_add_str('misc', 'news_show_headers', $default_headers.' subject message-id date lines content-transfer-encoding');
+Irssi::settings_add_bool('misc', 'news_show_signature', 1);
+Irssi::settings_add_bool('misc', 'news_use_body_colors', 1);
+Irssi::settings_add_bool('misc', 'news_use_auth', 0);
+Irssi::settings_add_str('misc', 'news_auth_user', '');
+Irssi::settings_add_str('misc', 'news_auth_password', '');
+Irssi::settings_add_int('misc', 'news_check_count', $check_count);
diff --git a/scripts/newsline.pl b/scripts/newsline.pl
new file mode 100644
index 0000000..0f54eee
--- /dev/null
+++ b/scripts/newsline.pl
@@ -0,0 +1,453 @@
+# by Stefan "tommie" Tomanek
+# 
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2003021101';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'Newsline',
+    description => 'brings various newstickers to Irssi (Slashdot, Freshmeat, Heise etc.)',
+    license     => 'GPLv2',
+    changed     => $VERSION,
+    modules     => 'Data::Dumper XML::RSS LWP::UserAgent Unicode::String Text::Wrap',
+    depends     => 'openurl',
+    sbitems     => 'newsline_ticker',
+    commands	=> 'newsline'
+);  
+
+use Irssi 20020324;
+use Irssi::TextUI;
+
+use Data::Dumper;
+use XML::RSS;
+use LWP::UserAgent;
+use POSIX;
+use Unicode::String qw(utf8 latin1);
+use Text::Wrap;
+
+use vars qw(@ticker $timestamp $slide $index $timer_cycle $timer_update %sites $forked);
+
+$index = 0;
+# Just to have some data for the first startup
+%sites = ( Heise=>{page => 'http://www.heise.de/newsticker/heise.rdf', enable => 1, title=>'', description=>'', maxnews=>0},
+           'Freshmeat'=>{'page' => 'http://freshmeat.net/backend/fm.rdf', 'enable' => 1, title=>'', description=>'', maxnews=>0}
+);
+
+sub show_help() {
+    my $help = "newsline $VERSION
+/newsline
+    List the downloaded headlines
+/newsline <number>
+    Open the entry indicated by <number> via openurl.
+    Openurl.pl is available at http://irssi.org/scripts/.
+/newsline description <number>
+    Display a brief summary of the article if available
+/newsline paste <number>
+    Write the headline and link to the current channel or query,
+    add 'description' to a diplay the description as well
+/newsline fetch
+    Retrieve new data from all enabled sources
+/newsline reload
+    Reload configuration and sites
+/newsline save
+    Save configration to ~/.irssi/newsline_sites
+/newsline list
+    List all available sources
+/newsline toggle <Source>
+    Enable or disable the source
+/newsline add <name> <url-to-rdf>
+    Add a new source
+"; 
+    my $text='';
+    foreach (split(/\n/, $help)) {
+	$_ =~ s/^\/(.*)$/%9\/$1%9/;
+	$text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("Newsline", $text, "newsline help", 1);
+}
+
+sub fork_get() {
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    return if $forked;
+    $forked = 1;
+    my $pid = fork();
+    if ($pid > 0) {
+	close $wh;
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, \$pipetag);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	my (%siteinfo, @items);
+	eval {
+	    foreach (sort keys %sites) {
+		eval {
+		my $site = $sites{$_};
+		next unless $site->{'enable'};
+		my $maxnews = -1;
+		$maxnews = $site->{maxnews} if defined $site->{maxnews};
+		my $url = $site->{'page'};
+		my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
+		my $request = HTTP::Request->new('GET', $url);
+		#$request->if_modified_since($timestamp) if $timestamp;
+		my $response = $ua->request($request);
+		if ($response->is_success) {
+		    my $data = $response->content();
+		    ### FIXME I hate myself for this :)
+		    $data =~ s/encoding="ISO-8859-15"/encoding="ISO-8859-1"/i;
+		    my $rss = new XML::RSS();
+		    $rss->parse($data);
+		    my $title = $rss->{channel}->{title};
+		    my $description = de_umlaut($rss->{channel}->{description});
+		    my $link = de_umlaut($rss->{channel}->{link});
+		    $siteinfo{$_} = {title=>$title, description=>$description, link=>$link};
+		    foreach my $item (@{$rss->{items}}) {
+			next unless defined($item->{title}) && defined($item->{'link'});
+			my $title = de_umlaut($item->{title});
+			$title =~ s/\n/ /g;
+			my %story = ('title' => $title, 'link' => $item->{link}, 'source' => $_);
+			$story{description} = de_umlaut($item->{description}) if $item->{description};
+			push @items, \%story;
+			$maxnews--;
+			last if $maxnews == 0;
+		    }
+		};
+		}
+	    }
+	    my %result = (news=>\@items, siteinfo=>\%siteinfo);
+	    my $dumper = Data::Dumper->new([\%result]);
+	    $dumper->Purity(1)->Deepcopy(1);
+	    my $data = $dumper->Dump;
+	    print($wh $data);
+	};
+	close($wh);
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input {
+    my ($rh, $pipetag) = @{$_[0]};
+    my $text;
+    $text .= $_ foreach (<$rh>);
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    return unless($text);
+    no strict;
+    my %result = %{ eval "$text" };
+    my @items = @{$result{news}};
+    my %siteinfo = %{$result{siteinfo}};
+    @ticker = @items;
+    foreach (sort keys %siteinfo) {
+	$sites{$_}->{title} = $siteinfo{$_}->{title};
+	$sites{$_}->{description} = $siteinfo{$_}->{description};
+	$sites{$_}->{link} = $siteinfo{$_}->{link};
+    }
+    $forked = 0;
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+	$box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub cmd_newsline ($$$) {
+    my ($args, $server, $witem) = @_;
+    $args =~ s/^\ +//;
+    my @arg = split(/\ +/, $args);
+    if (scalar(@arg) == 0) {
+	show_ticker(@ticker);
+    } elsif ($arg[0] eq 'paste') {
+	# paste tickernews
+	shift(@arg);
+	my $desc = 0;
+	if (defined $arg[0] && $arg[0] eq 'description') {
+	    $desc = 1;
+	    shift(@arg);
+	}
+	foreach (@arg) {
+	    if (defined $ticker[$_-1]) {
+		my $message = $ticker[$_-1]->{'title'};
+		my $text = '['.$ticker[$_-1]->{'source'}.'] "'.$message.'" -> '.$ticker[$_-1]->{'link'};
+		$Text::Wrap::columns = 50;
+		my $article = wrap("","",$ticker[$_-1]->{description}) if ($desc && defined $ticker[$_-1]->{description});
+		my $text2 = draw_box($message, $article, $ticker[$_-1]->{source}, 0) if (defined $article);
+		if (($witem) and (($witem->{type} eq "CHANNEL") or ($witem->{type} eq "QUERY"))) {
+		    $witem->command("MSG ".$witem->{name}." ".$text);
+		    if (defined $text2) {
+			$witem->command("MSG ".$witem->{name}." ".$_) foreach (split /\n/, $text2);
+		    }
+		}
+	    }
+	}
+    } elsif ($arg[0] eq 'description') {
+	shift(@arg);
+	foreach (@arg) {
+	    next unless defined $ticker[$_-1] and defined $ticker[$_-1]->{description};
+	    $Text::Wrap::columns = 50;
+	    my $filter = $ticker[$_-1]->{description};
+	    $filter =~ s/<.*?>//g;
+	    my $article = wrap("", "", $filter);
+	    my $text = '';
+	    print CLIENTCRAP draw_box($ticker[$_-1]->{title}, $article, $ticker[$_-1]->{source}, 1);
+	}
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    } elsif ($arg[0] eq 'fetch') {
+	fork_get()
+    } elsif ($arg[0] eq 'reload') {
+	reload_config();
+    } elsif ($arg[0] eq 'save') {
+	save_config();
+    } elsif ($arg[0] eq 'add') {
+	if (defined($arg[1]) && defined($arg[2])) {
+	    my $source = $arg[1];
+	    my $page = $arg[2];
+	    $sites{$source} = {page => $page, enable => 1, maxnews=>0};
+	    print CLIENTCRAP '%R>>%n Added new source "'.$arg[1].'"';
+	    $timestamp = undef;
+	}
+    } elsif ($arg[0] eq 'delete') {
+	if (defined $arg[1] && defined $sites{$arg[1]}) {
+	    delete $sites{$arg[1]};
+	    print CLIENTCRAP "%R>>%n ".$arg[1]." deleted";
+	}
+    } elsif ($arg[0] eq 'toggle') {
+	# Toggle site
+	if (defined $arg[1] && defined $sites{$arg[1]}) {
+	    if ($sites{$arg[1]}{'enable'} == 0) {
+		$sites{$arg[1]}{'enable'} = 1;
+		print CLIENTCRAP "%R>>%n ".$arg[1]." enabled";
+	    } else {
+		$sites{$arg[1]}{'enable'} = 0;
+		print CLIENTCRAP "%R>>%n ".$arg[1]." disabled";
+	    }
+	}
+    } elsif ($arg[0] eq 'limit') {
+        if (defined $arg[1] && defined $sites{$arg[1]}) {
+	    if (defined $arg[2] && $arg[2] =~ /\d+/) {
+                $sites{$arg[1]}{'maxnews'} = $arg[2];
+                print CLIENTCRAP "%R>>%n ".$arg[1]." limited to ".$arg[2]." articles";
+            }
+        }
+    } elsif ($arg[0] eq 'list') {
+	my $text = "";
+	foreach (sort keys %sites) {
+	    my %site = %{$sites{$_}};
+	    $text .= "%9[".$_.']%9'."\n";
+	    $text .= " %9|-[page  ]->%9 ".$site{'page'}."\n";
+	    #$text .= " %9|-[desc  ]->%9 ".$site{'description'}."\n" if defined $site{'description'};
+	    $Text::Wrap::columns = 60;
+	    my $filter = $site{'description'};
+	    $filter =~ s/<.*?>//;
+	    my $desc = wrap(" %9|-[desc  ]->%9 ",' %9|%9<tab>', $filter);
+	    $desc =~ s/<tab>/            /g;
+	    $text .= $desc."\n" if $site{'description'};
+	    $text .= " %9|-[limit ]->%9 ".$site{'maxnews'}."\n";
+	    $text .= " %9`-[enable]->%9 ".$site{'enable'}."\n";
+	}
+	print CLIENTCRAP draw_box("Newsline", $text, "newsline sources", 1);
+	
+    } else {
+	foreach (@arg) {
+	    if (defined $sites{$_}) {
+		call_openurl($sites{$_}->{'link'}) if defined $sites{$_}->{'link'};
+	    } elsif (/\d+/ && defined $ticker[$_-1]) {
+		call_openurl($ticker[$_-1]->{'link'});
+	    }
+	}
+    }
+}
+
+sub show_ticker (@) {
+    my (@ticker) = @_;
+    my $i = 1;
+    my $text = '';
+    foreach (@ticker) {
+	my $space = ' 'x(length(scalar(@ticker))-length($i));
+	my $newsitem = '%r'.$space.$i.'->%n['.$$_{source}.'] %9'.$$_{title}.'%9';
+	$newsitem .= ' %9[*]%9' if defined($$_{description});
+	$text .= $newsitem."\n";
+	$text .= "  %B`->%n%U".$$_{link}."%U \n" if Irssi::settings_get_bool('newsline_show_url');
+	$i++;
+    }
+    print CLIENTCRAP draw_box("Newsline", $text, "headlines", 1);
+}
+
+sub call_openurl ($) {
+    my ($url) = @_;
+    no strict "refs";
+    # check for a loaded openurl
+    if (defined %{ "Irssi::Script::openurl::" }) {
+	&{ "Irssi::Script::openurl::launch_url" }($url);
+    } else {
+	print CLIENTCRAP "%R>>%n Please install openurl.pl";
+    }
+    use strict "refs";
+}
+sub newsline_ticker ($$) {
+    my ($item, $get_size_only) = @_;
+    if (Irssi::settings_get_bool('newsline_ticker_scroll')) {
+	draw_tape($item, $get_size_only);
+    } else {
+	draw_ticker($item, $get_size_only);
+    }
+}
+    
+sub draw_ticker ($$) {
+    my ($item, $get_size_only) = @_;
+    if ($index >= scalar(@ticker)) {
+	$index = 0
+    }
+    my $tape;
+    $tape .= '%F%Y<Fetching>%n' if $forked;
+    if (scalar(@ticker) > 0) {
+	my $title = $ticker[$index]->{'title'};
+	my $source = $ticker[$index]->{'source'};
+	$tape .= '>'.($index+1).': ['.$source.'] '.$title;
+	$tape .= ' [*]' if defined($ticker[$index]->{description});
+	$tape .= '<';
+    } else {
+	$tape .= '>Enter "/newsline fetch" to retrieve tickerdata>' unless $forked;
+    }
+    $tape = substr($tape, 0, Irssi::settings_get_int('newsline_ticker_max_width'));
+    my $format = "{sb ".$tape."}";
+    $item->{min_size} = $item->{max_size} = length($tape)+2;
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub rotate ($$) {
+    my ($text, $rot) = @_;
+    return($text) if length($text) < 1;
+    for (0..$rot) {
+	my $letter = substr($text, 0, 1);
+	$text = substr($text, 1);
+	$text = $text.$letter;
+    }
+    return($text);
+}
+
+sub draw_tape ($$) {
+    my ($item, $get_size_only) = @_;
+    my $tape;
+    if (scalar(@ticker) > 0) {
+	my $i=1;
+	foreach (@ticker) {
+	    my $title = $_->{'title'};
+	    my $source = $_->{'source'};
+	    $tape .= '>'.($i).': ['.$source.'] '.$title.'|';
+	    $i++;
+	}
+	$tape = $tape;
+	$slide = 0 if $slide >= length($tape); 
+	$tape = rotate($tape, $slide);
+	$tape = substr($tape, 0, Irssi::settings_get_int('newsline_ticker_max_width'));
+    } else {
+	$tape .= 'Use "/newsline -f" to fetch tickerdata';
+    }
+    my $format = "{sb ".$tape."}";
+    $item->{min_size} = $item->{max_size} = length($tape)+2;
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub cycle_ticker () {
+    $index++;
+    if ($index >= scalar(@ticker)) {
+	$index = 0
+    }
+    $slide++;
+    Irssi::statusbar_items_redraw('newsline_ticker');
+}
+
+sub update_ticker () {
+    fork_get();
+}
+
+sub reload_config() {
+    my $filename = Irssi::settings_get_str('newsline_sites_file');
+    my $text;
+    if (-e $filename) {
+	local *F;
+	open F, "<".$filename;
+	$text .= $_ foreach (<F>);
+	close F;
+	if ($text) {
+	    no strict;
+	    my %pages = %{ eval "$text" };
+	    if (%pages) {
+		%sites = ();
+		foreach (keys %pages) {
+		    $sites{$_} = $pages{$_};
+		}
+	    }
+	}
+    }
+    Irssi::timeout_remove($timer_cycle) if defined $timer_cycle;
+    Irssi::timeout_remove($timer_update) if defined $timer_update;
+    $timer_cycle = Irssi::timeout_add(Irssi::settings_get_int('newsline_ticker_cycle_delay'), 'cycle_ticker', undef) if Irssi::settings_get_int('newsline_ticker_cycle_delay') > 0;
+    $timer_update = Irssi::timeout_add(Irssi::settings_get_int('newsline_fetch_interval')*1000, 'update_ticker', undef) if Irssi::settings_get_int('newsline_fetch_interval') > 0;
+    Irssi::statusbar_items_redraw('newsline_ticker');
+    print CLIENTCRAP '%R>>%n Newsline sites loaded from '.$filename;
+}
+
+sub save_config() {
+    local *F;
+    my $filename = Irssi::settings_get_str('newsline_sites_file');
+    open(F, ">$filename");
+    my $dumper = Data::Dumper->new([\%sites], ['sites']);
+    $dumper->Purity(1)->Deepcopy(1);
+    my $data = $dumper->Dump;
+    print (F $data);
+    close(F);
+    print CLIENTCRAP '%R>>%n Newsline sites saved to '.$filename;
+}
+
+sub de_umlaut ($) {
+    my ($data) = @_;
+    Unicode::String->stringify_as('utf8');
+    my $s = new Unicode::String($data);
+    my $result = $s->latin1();
+    return($result);
+}
+
+sub sig_complete_word ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    return unless $linestart =~ /^.newsline (toggle|delete|add|limit)/;
+    foreach (keys %sites) {
+	push @$list, $_ if /^(\Q$word\E.*)?$/;
+    }
+    Irssi::signal_stop();
+}
+
+Irssi::signal_add_first('complete word', \&sig_complete_word);
+Irssi::signal_add('setup saved', \&save_config);
+
+Irssi::command_bind('newsline', \&cmd_newsline);
+foreach my $cmd ('description', 'paste', 'paste description', 'fetch', 'reload', 'save', 'list', 'toggle', 'add', 'delete', 'help', 'limit') {
+    Irssi::command_bind('newsline '.$cmd =>
+	sub { cmd_newsline("$cmd ".$_[0], $_[1], $_[2]); } );
+}
+
+Irssi::settings_add_int($IRSSI{'name'}, 'newsline_fetch_interval', 600);
+
+Irssi::settings_add_int($IRSSI{'name'}, 'newsline_ticker_max_width', 50);
+
+Irssi::settings_add_int($IRSSI{'name'}, 'newsline_ticker_cycle_delay', 3000);
+Irssi::settings_add_str($IRSSI{'name'}, 'newsline_sites_file', Irssi::get_irssi_dir()."/newsline_sites");
+Irssi::settings_add_bool($IRSSI{'name'}, 'newsline_show_url', 1);
+Irssi::settings_add_bool($IRSSI{'name'}, 'newsline_ticker_scroll', 0);
+
+Irssi::statusbar_item_register('newsline_ticker', 0, 'newsline_ticker');
+
+reload_config();
+update_ticker();
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /newsline help for help';
diff --git a/scripts/nickban.pl b/scripts/nickban.pl
new file mode 100644
index 0000000..c24e579
--- /dev/null
+++ b/scripts/nickban.pl
@@ -0,0 +1,50 @@
+$VERSION = "1.1";
+%IRSSI = (
+    authors     =>  "Roeland 'Trancer' Nieuwenhuis",
+    contact     =>  "irssi\@trancer.nl",
+    name        =>  "nickban",
+    description =>  "A simple nick banner. If it encounters a nick it bans its host",
+    license     =>  "Public Domain"
+);
+
+use strict;
+use Irssi;
+
+# The channels the nicks are banned on (on which this script is active)
+my @channels = qw(#worldchat #chat-world #php);
+
+# The banned nicks
+my @nicks = qw(evildude evilgirl);
+
+# Your kickreason
+my $kickreason = "Not welcome here.";
+
+sub nick_banner {
+
+    my($server, $channel, $nick, $address) = @_;
+
+    # Are we opped?
+    return unless $server->channel_find($channel)->{chanop};
+    
+    # If the nick is a server, stop it.
+    return if $nick eq $server->{nick};
+    
+    # Is the user a banned nick?
+    my $nono = 0;
+    foreach (@nicks) { $nono = 1 if lc($nick) eq lc($_) }
+    return unless $nono;
+       
+    # Is the user on one of the banned channels?
+    my $react = 0;
+    foreach (@channels) { $react = 1 if lc($channel) eq lc($_) }
+    return unless $react;
+    
+    # User voiced or op'd?
+    # Pretty useless, but ok
+    return if $server->channel_find($channel)->nick_find($nick)->{op} || $server->channel_find($channel)->nick_find($nick)->{voice};
+
+    $server->command("kickban $channel $nick $kickreason");
+    Irssi::print("Nick banning $nick on $channel. Banned.");
+}
+
+Irssi::signal_add_last('message join', 'nick_banner');
diff --git a/scripts/nickcolor.pl b/scripts/nickcolor.pl
new file mode 100644
index 0000000..69f2936
--- /dev/null
+++ b/scripts/nickcolor.pl
@@ -0,0 +1,156 @@
+use strict;
+use Irssi 20020101.0250 ();
+use vars qw($VERSION %IRSSI); 
+$VERSION = "1";
+%IRSSI = (
+    authors     => "Timo Sirainen, Ian Peters",
+    contact	=> "tss\@iki.fi", 
+    name        => "Nick Color",
+    description => "assign a different color for each nick",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+# hm.. i should make it possible to use the existing one..
+Irssi::theme_register([
+  'pubmsg_hilight', '{pubmsghinick $0 $3 $1}$2'
+]);
+
+my %saved_colors;
+my %session_colors = {};
+my @colors = qw/2 3 4 5 6 7 9 10 11 12 13/;
+
+sub load_colors {
+  open COLORS, "$ENV{HOME}/.irssi/saved_colors";
+
+  while (<COLORS>) {
+    # I don't know why this is necessary only inside of irssi
+    my @lines = split "\n";
+    foreach my $line (@lines) {
+      my($nick, $color) = split ":", $line;
+      $saved_colors{$nick} = $color;
+    }
+  }
+
+  close COLORS;
+}
+
+sub save_colors {
+  open COLORS, ">$ENV{HOME}/.irssi/saved_colors";
+
+  foreach my $nick (keys %saved_colors) {
+    print COLORS "$nick:$saved_colors{$nick}\n";
+  }
+
+  close COLORS;
+}
+
+# If someone we've colored (either through the saved colors, or the hash
+# function) changes their nick, we'd like to keep the same color associated
+# with them (but only in the session_colors, ie a temporary mapping).
+
+sub sig_nick {
+  my ($server, $newnick, $nick, $address) = @_;
+  my $color;
+
+  $newnick = substr ($newnick, 1) if ($newnick =~ /^:/);
+
+  if ($color = $saved_colors{$nick}) {
+    $session_colors{$newnick} = $color;
+  } elsif ($color = $session_colors{$nick}) {
+    $session_colors{$newnick} = $color;
+  }
+}
+
+# This gave reasonable distribution values when run across
+# /usr/share/dict/words
+
+sub simple_hash {
+  my ($string) = @_;
+  chomp $string;
+  my @chars = split //, $string;
+  my $counter;
+
+  foreach my $char (@chars) {
+    $counter += ord $char;
+  }
+
+  $counter = $colors[$counter % 11];
+
+  return $counter;
+}
+
+# FIXME: breaks /HILIGHT etc.
+sub sig_public {
+  my ($server, $msg, $nick, $address, $target) = @_;
+  my $chanrec = $server->channel_find($target);
+  return if not $chanrec;
+  my $nickrec = $chanrec->nick_find($nick);
+  return if not $nickrec;
+  my $nickmode = $nickrec->{op} ? "@" : $nickrec->{voice} ? "+" : "";
+
+  # Has the user assigned this nick a color?
+  my $color = $saved_colors{$nick};
+
+  # Have -we- already assigned this nick a color?
+  if (!$color) {
+    $color = $session_colors{$nick};
+  }
+
+  # Let's assign this nick a color
+  if (!$color) {
+    $color = simple_hash $nick;
+    $session_colors{$nick} = $color;
+  }
+
+  $color = "0".$color if ($color < 10);
+  $server->command('/^format pubmsg {pubmsgnick $2 {pubnick '.chr(3).$color.'$0}}$1');
+}
+
+sub cmd_color {
+  my ($data, $server, $witem) = @_;
+  my ($op, $nick, $color) = split " ", $data;
+
+  $op = lc $op;
+
+  if (!$op) {
+    Irssi::print ("No operation given");
+  } elsif ($op eq "save") {
+    save_colors;
+  } elsif ($op eq "set") {
+    if (!$nick) {
+      Irssi::print ("Nick not given");
+    } elsif (!$color) {
+      Irssi::print ("Color not given");
+    } elsif ($color < 2 || $color > 14) {
+      Irssi::print ("Color must be between 2 and 14 inclusive");
+    } else {
+      $saved_colors{$nick} = $color;
+    }
+  } elsif ($op eq "clear") {
+    if (!$nick) {
+      Irssi::print ("Nick not given");
+    } else {
+      delete ($saved_colors{$nick});
+    }
+  } elsif ($op eq "list") {
+    Irssi::print ("\nSaved Colors:");
+    foreach my $nick (keys %saved_colors) {
+      Irssi::print (chr (3) . "$saved_colors{$nick}$nick" .
+		    chr (3) . "1 ($saved_colors{$nick})");
+    }
+  } elsif ($op eq "preview") {
+    Irssi::print ("\nAvailable colors:");
+    foreach my $i (2..14) {
+      Irssi::print (chr (3) . "$i" . "Color #$i");
+    }
+  }
+}
+
+load_colors;
+
+Irssi::command_bind('color', 'cmd_color');
+
+Irssi::signal_add('message public', 'sig_public');
+Irssi::signal_add('event nick', 'sig_nick');
diff --git a/scripts/nickignore.pl b/scripts/nickignore.pl
new file mode 100644
index 0000000..bff2d50
--- /dev/null
+++ b/scripts/nickignore.pl
@@ -0,0 +1,49 @@
+#
+# nickignore.pl
+#
+# ignore minimal changes in nicks (case, special characters)
+#
+# can also ignore more complex/drastic changes via variable
+# 'nickignore_pattern' (use like '/set nickignore_pattern (away|afk)')
+
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI); 
+use strict;
+
+
+$VERSION = "0.03";
+%IRSSI = (
+    authors     => "Kalle 'rpr' Marjola",
+    contact	=> "marjola\@iki.fi", 
+    name        => "ignore (minimal) nick changes",
+    description => "Ignores any nick changes when only the case or special characters are modified, like 'rpr -> Rpr' or 'rpr_ -> rpr', with optional pattern for more complicated ignores",
+    license	=> "Public Domain",
+    url		=> "http://iki.fi/rpr/irssi/nickignore.pl",
+    changed	=> "26.8.2003"
+);
+
+sub event_nick {
+    my ($server, $newnick, $nick, $address) = @_;
+
+    # (debug) Irssi::print("new: $newnick old: $nick");
+    $newnick = substr($newnick, 1) if ($newnick =~ /^:/);
+    
+    # remove any special characters from nicks
+    $newnick =~ s/[^a-zA-Z]//g;
+    $nick =~ s/[^a-zA-Z]//g;
+
+    # if the user has specific other patterns to be used, use it
+    my $extra_pattern = Irssi::settings_get_str('nickignore_pattern');
+    if ($extra_pattern) {
+	$newnick =~ s/$extra_pattern//g;
+	$nick =~ s/$extra_pattern//g;
+    }
+
+    # compare if they are identical (excluding case)
+    Irssi::signal_stop() if ($newnick =~ m/^$nick$/i);
+}
+
+Irssi::signal_add('event nick', 'event_nick');
+
+Irssi::settings_add_str  ('misc', 'nickignore_pattern', '');
diff --git a/scripts/nicklist.pl b/scripts/nicklist.pl
new file mode 100644
index 0000000..0dbe4fb
--- /dev/null
+++ b/scripts/nicklist.pl
@@ -0,0 +1,611 @@
+# for documentation: see http://wouter.coekaerts.be/site/irssi/nicklist
+
+use Irssi;
+use strict;
+use IO::Handle; # for (auto)flush
+use Fcntl; # for sysopen
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.4.6';
+%IRSSI = (
+	authors     => 'Wouter Coekaerts',
+	contact     => 'coekie@irssi.org',
+	name        => 'nicklist',
+	description => 'draws a nicklist to another terminal, or at the right of your irssi in the same terminal',
+	license     => 'GPLv2',
+	url         => 'http://wouter.coekaerts.be/irssi',
+	changed     => '29/06/2004'
+);
+
+sub cmd_help {
+	print ( <<EOF
+Commands:
+NICKLIST HELP
+NICKLIST SCROLL <nr of lines>
+NICKLIST SCREEN
+NICKLIST FIFO
+NICKLIST OFF
+NICKLIST UPDATE
+
+For help see: http://wouter.coekaerts.be/site/irssi/nicklist
+
+in short:
+
+1. FIFO MODE
+- in irssi: /NICKLIST FIFO (only the first time, to create the fifo)
+- in a shell, in a window where you want the nicklist: cat ~/.irssi/nicklistfifo
+- back in irssi:
+    /SET nicklist_heigth <height of nicklist>
+    /SET nicklist_width <width of nicklist>
+    /NICKLIST FIFO
+
+2. SCREEN MODE
+- start irssi inside screen ("screen irssi")
+- /NICKLIST SCREEN
+EOF
+    );
+}
+
+my $prev_lines = 0;                  # number of lines in previous written nicklist
+my $scroll_pos = 0;                  # scrolling position
+my $cursor_line;                     # line the cursor is currently on
+my ($OFF, $SCREEN, $FIFO) = (0,1,2); # modes
+my $mode = $OFF;                     # current mode
+my $need_redraw = 0;                 # nicklist needs redrawing
+my $screen_resizing = 0;             # terminal is being resized
+my $active_channel;                  # (REC)
+
+my @nicklist=();                     # array of hashes, containing the internal nicklist of the active channel
+	# nick => realnick
+	# mode =>
+	my ($MODE_OP, $MODE_HALFOP, $MODE_VOICE, $MODE_NORMAL) = (0,1,2,3);
+	# status =>
+	my ($STATUS_NORMAL, $STATUS_JOINING, $STATUS_PARTING, $STATUS_QUITING, $STATUS_KICKED, $STATUS_SPLIT) = (0,1,2,3,4,5);
+	# text => text to be printed
+	# cmp => text used to compare (sort) nicks
+
+
+# 'cached' settings
+my ($screen_prefix, $irssi_width, @prefix_mode, @prefix_status, $height, $nicklist_width);
+
+sub read_settings {
+	($screen_prefix = Irssi::settings_get_str('nicklist_screen_prefix')) =~ s/\\e/\033/g;
+
+	($prefix_mode[$MODE_OP] = Irssi::settings_get_str('nicklist_prefix_mode_op')) =~ s/\\e/\033/g;
+	($prefix_mode[$MODE_HALFOP] = Irssi::settings_get_str('nicklist_prefix_mode_halfop')) =~ s/\\e/\033/g;
+	($prefix_mode[$MODE_VOICE] = Irssi::settings_get_str('nicklist_prefix_mode_voice')) =~ s/\\e/\033/g;
+	($prefix_mode[$MODE_NORMAL] = Irssi::settings_get_str('nicklist_prefix_mode_normal')) =~ s/\\e/\033/g;
+	
+	if ($mode != $SCREEN) {
+		$height = Irssi::settings_get_int('nicklist_height');
+	}
+	my $new_nicklist_width = Irssi::settings_get_int('nicklist_width');
+	if ($new_nicklist_width != $nicklist_width && $mode == $SCREEN) {
+		sig_terminal_resized();
+	}
+	$nicklist_width = $new_nicklist_width;
+}
+
+sub update {
+	read_settings();
+	make_nicklist();
+}
+
+##################
+##### OUTPUT #####
+##################
+
+### off ###
+
+sub cmd_off {
+	if ($mode == $SCREEN) {
+		screen_stop();
+	} elsif ($mode == $FIFO) {
+		fifo_stop();
+	}
+}
+
+### fifo ###
+
+sub cmd_fifo_start {
+	read_settings();
+	my $path = Irssi::settings_get_str('nicklist_fifo_path');
+	unless (-p $path) { # not a pipe
+	    if (-e _) { # but a something else
+	        die "$0: $path exists and is not a pipe, please remove it\n";
+	    } else {
+	        require POSIX;
+	        POSIX::mkfifo($path, 0666) or die "can\'t mkfifo $path: $!";
+		Irssi::print("Fifo created. Start reading it (\"cat $path\") and try again.");
+		return;
+	    }
+	}
+	if (!sysopen(FIFO, $path, O_WRONLY | O_NONBLOCK)) { # or die "can't write $path: $!";
+		Irssi::print("Couldn\'t write to the fifo ($!). Please start reading the fifo (\"cat $path\") and try again.");
+		return;
+	}
+	FIFO->autoflush(1);
+	print FIFO "\033[2J\033[1;1H"; # erase screen & jump to 0,0
+	$cursor_line = 0;
+	if ($mode == $SCREEN) {
+		screen_stop();
+	}
+	$mode = $FIFO;
+	make_nicklist();
+}
+
+sub fifo_stop {
+	close FIFO;
+	$mode = $OFF;
+	Irssi::print("Fifo closed.");
+}
+
+### screen ###
+
+sub cmd_screen_start {
+	if (!defined($ENV{'STY'})) {
+		Irssi::print 'screen not detected, screen mode only works inside screen';
+		return;
+	}
+	read_settings();
+	if ($mode == $SCREEN) {return;}
+	if ($mode == $FIFO) {
+		fifo_stop();
+	}
+	$mode = $SCREEN;
+	Irssi::signal_add_last('gui print text finished', \&sig_gui_print_text_finished);
+	Irssi::signal_add_last('gui page scrolled', \&sig_page_scrolled);
+	Irssi::signal_add('terminal resized', \&sig_terminal_resized);
+	screen_size();
+	make_nicklist();
+}
+
+sub screen_stop {
+	$mode = $OFF;
+	Irssi::signal_remove('gui print text finished', \&sig_gui_print_text_finished);
+	Irssi::signal_remove('gui page scrolled', \&sig_page_scrolled);
+	Irssi::signal_remove('terminal resized', \&sig_terminal_resized);
+	system 'screen -x '.$ENV{'STY'}.' -X fit';
+}
+
+sub screen_size {
+	if ($mode != $SCREEN) {
+		return;
+	}
+	$screen_resizing = 1;
+	# fit screen
+	system 'screen -x '.$ENV{'STY'}.' -X fit';
+	# get size (from perldoc -q size)
+	my ($winsize, $row, $col, $xpixel, $ypixel);
+	eval 'use Term::ReadKey; ($col, $row, $xpixel, $ypixel) = GetTerminalSize';
+	#	require Term::ReadKey 'GetTerminalSize';
+	#	($col, $row, $xpixel, $ypixel) = Term::ReadKey::GetTerminalSize;
+	#};
+	if ($@) { # no Term::ReadKey, try the ugly way
+		eval {
+			require 'sys/ioctl.ph';
+			# without this reloading doesn't work. workaround for some unknown bug
+			do 'asm/ioctls.ph';
+		};
+		
+		# ugly way not working, let's try something uglier, the dg-hack(tm) (constant for linux only?)
+		if($@) { no strict 'refs'; *TIOCGWINSZ = sub { return 0x5413 } }
+		
+		unless (defined &TIOCGWINSZ) {
+			die "Term::ReadKey not found, and ioctl 'workaround' failed. Install the Term::ReadKey perl module to use screen mode.\n";
+		}
+		open(TTY, "+</dev/tty") or die "No tty: $!";
+		unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
+			die "Term::ReadKey not found, and ioctl 'workaround' failed ($!). Install the Term::ReadKey perl module to use screen mode.\n";
+		}
+		close(TTY);
+		($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
+	}
+	
+	# set screen width
+	$irssi_width = $col-$nicklist_width-1;
+	$height = $row-1;
+	
+	# on some recent systems, "screen -X fit; screen -X width -w 50" doesn't work, needs a sleep in between the 2 commands
+	# so we wait a second before setting the width
+	Irssi::timeout_add_once(1000, sub {
+		my ($new_irssi_width) = @_;
+		system 'screen -x '.$ENV{'STY'}.' -X width -w ' . $new_irssi_width;
+		# and then we wait another second for the resizing, and then redraw.
+		Irssi::timeout_add_once(1000,sub {$screen_resizing = 0; redraw()}, []);
+	}, $irssi_width);
+}
+
+sub sig_terminal_resized {
+	if ($screen_resizing) {
+		return;
+	}
+	$screen_resizing = 1;
+	Irssi::timeout_add_once(1000,\&screen_size,[]);
+}
+
+
+### both ###
+
+sub nicklist_write_start {
+	if ($mode == $SCREEN) {
+		print STDERR "\033P\033[s\033\\"; # save cursor
+	}
+}
+
+sub nicklist_write_end {
+	if ($mode == $SCREEN) {
+		print STDERR "\033P\033[u\033\\"; # restore cursor
+	}
+}
+
+sub nicklist_write_line {
+	my ($line, $data) = @_;
+	if ($mode == $SCREEN) {
+		print STDERR "\033P\033[" . ($line+1) . ';'. ($irssi_width+1) .'H'. $screen_prefix . $data . "\033\\";
+	} elsif ($mode == $FIFO) {
+		$data = "\033[m$data"; # reset color
+		if ($line == $cursor_line+1) {
+			$data = "\n$data"; # next line
+		} elsif ($line == $cursor_line) {
+			$data = "\033[1G".$data; # back to beginning of line
+		} else {
+			$data = "\033[".($line+1).";0H".$data; # jump
+		}
+		$cursor_line=$line;
+		print(FIFO $data) or fifo_stop();
+	}
+}
+
+# recalc the text of the nicklist item
+sub calc_text {
+	my ($nick) = @_;
+	my $tmp = $nicklist_width-3;
+	(my $text = $nick->{'nick'}) =~ s/^(.{$tmp})..+$/$1\033[34m~\033[m/;
+	$nick->{'text'} = $prefix_mode[$nick->{'mode'}] . $text . (' ' x ($nicklist_width-length($nick->{'nick'})-1));
+	$nick->{'cmp'} = $nick->{'mode'}.lc($nick->{'nick'});
+}
+
+# redraw the given nick (nr) if it is visible
+sub redraw_nick_nr {
+	my ($nr) = @_;
+	my $line = $nr - $scroll_pos;
+	if ($line >= 0 && $line < $height) {
+		nicklist_write_line($line, $nicklist[$nr]->{'text'});
+	}
+}
+
+# nick was inserted, redraw area if necessary
+sub draw_insert_nick_nr {
+	my ($nr) = @_;
+	my $line = $nr - $scroll_pos;
+	if ($line < 0) { # nick is inserted above visible area
+		$scroll_pos++; # 'scroll' down :)
+	} elsif ($line < $height) { # line is visible
+		if ($mode == $SCREEN) {
+			need_redraw();
+		} elsif ($mode == $FIFO) {
+			my $data = "\033[m\033[L". $nicklist[$nr]->{'text'}; # reset color & insert line & write nick
+			if ($line == $cursor_line) {
+				$data = "\033[1G".$data; # back to beginning of line
+			} else {
+				$data = "\033[".($line+1).";1H".$data; # jump
+			}
+			$cursor_line=$line;
+			print(FIFO $data) or fifo_stop();
+			if ($prev_lines < $height) {
+				$prev_lines++; # the nicklist has one line more
+			}
+		}
+	}
+}
+
+sub draw_remove_nick_nr {
+	my ($nr) = @_;
+	my $line = $nr - $scroll_pos;
+	if ($line < 0) { # nick removed above visible area
+		$scroll_pos--; # 'scroll' up :)
+	} elsif ($line < $height) { # line is visible
+		if ($mode == $SCREEN) {
+			need_redraw();
+		} elsif ($mode == $FIFO) {
+			#my $data = "\033[m\033[L[i$line]". $nicklist[$nr]->{'text'}; # reset color & insert line & write nick
+			my $data = "\033[M"; # delete line
+			if ($line != $cursor_line) {
+				$data = "\033[".($line+1)."d".$data; # jump
+			}
+			$cursor_line=$line;
+			print(FIFO $data) or fifo_stop();
+			if (@nicklist-$scroll_pos >= $height) {
+				redraw_nick_nr($scroll_pos+$height-1);
+			}
+		}
+	}
+}
+
+# redraw the whole nicklist
+sub redraw {
+	$need_redraw = 0;
+	#make_nicklist();
+	nicklist_write_start();
+	my $line = 0;
+	### draw nicklist ###
+	for (my $i=$scroll_pos;$line < $height && $i < @nicklist; $i++) {
+		nicklist_write_line($line++, $nicklist[$i]->{'text'});
+	}
+
+	### clean up other lines ###
+	my $real_lines = $line;
+	while($line < $prev_lines) {
+		nicklist_write_line($line++,' ' x $nicklist_width);
+	}
+	$prev_lines = $real_lines;
+	nicklist_write_end();
+}
+
+# redraw (with little delay to avoid redrawing to much)
+sub need_redraw {
+	if(!$need_redraw) {
+		$need_redraw = 1;
+		Irssi::timeout_add_once(10,\&redraw,[]);
+	}
+}
+
+sub sig_page_scrolled {
+	$prev_lines = $height; # we'll need to redraw everything if he scrolled up
+	need_redraw;
+}
+
+# redraw (with delay) if the window is visible (only in screen mode)
+sub sig_gui_print_text_finished {
+	if ($need_redraw) { # there's already a redraw 'queued'
+		return;
+	}
+	my $window = @_[0];
+	if ($window->{'refnum'} == Irssi::active_win->{'refnum'} || Irssi::settings_get_str('nicklist_screen_split_windows') eq '*') {
+		need_redraw;
+		return;
+	}
+	foreach my $win (split(/[ ,]/, Irssi::settings_get_str('nicklist_screen_split_windows'))) {
+		if ($window->{'refnum'} == $win || $window->{'name'} eq $win) {
+			need_redraw;
+			return;
+		}
+	}
+}
+
+####################
+##### NICKLIST #####
+####################
+
+# returns the position of the given nick(as string) in the (internal) nicklist
+sub find_nick {
+	my ($nick) = @_;
+	for (my $i=0;$i < @nicklist; $i++) {
+		if ($nicklist[$i]->{'nick'} eq $nick) {
+			return $i;
+		}
+	}
+	return -1;
+}
+
+# find position where nick should be inserted into the list
+sub find_insert_pos {
+	my ($cmp)= @_;
+	for (my $i=0;$i < @nicklist; $i++) {
+		if ($nicklist[$i]->{'cmp'} gt $cmp) {
+			return $i;
+		}
+	}
+	return scalar(@nicklist); #last
+}
+
+# make the (internal) nicklist (@nicklist)
+sub make_nicklist {
+	@nicklist = ();
+	$scroll_pos = 0;
+
+	### get & check channel ###
+	my $channel = Irssi::active_win->{active};
+
+	if (!$channel || (ref($channel) ne 'Irssi::Irc::Channel' && ref($channel) ne 'Irssi::Silc::Channel') || $channel->{'type'} ne 'CHANNEL' || ($channel->{chat_type} ne 'SILC' && !$channel->{'names_got'}) ) {
+		$active_channel = undef;
+		# no nicklist
+	} else {
+		$active_channel = $channel;
+		### make nicklist ###
+		my $thisnick;
+		foreach my $nick (sort {(($a->{'op'}?'1':$a->{'halfop'}?'2':$a->{'voice'}?'3':'4').lc($a->{'nick'}))
+		                    cmp (($b->{'op'}?'1':$b->{'halfop'}?'2':$b->{'voice'}?'3':'4').lc($b->{'nick'}))} $channel->nicks()) {
+			$thisnick = {'nick' => $nick->{'nick'}, 'mode' => ($nick->{'op'}?$MODE_OP:$nick->{'halfop'}?$MODE_HALFOP:$nick->{'voice'}?$MODE_VOICE:$MODE_NORMAL)};
+			calc_text($thisnick);
+			push @nicklist, $thisnick;
+		}
+	}
+	need_redraw();
+}
+
+# insert nick(as hash) into nicklist
+# pre: cmp has to be calculated
+sub insert_nick {
+	my ($nick) = @_;
+	my $nr = find_insert_pos($nick->{'cmp'});
+	splice @nicklist, $nr, 0, $nick;
+	draw_insert_nick_nr($nr);
+}
+
+# remove nick(as nr) from nicklist
+sub remove_nick {
+	my ($nr) = @_;
+	splice @nicklist, $nr, 1;
+	draw_remove_nick_nr($nr);
+}
+
+###################
+##### ACTIONS #####
+###################
+
+# scroll the nicklist, arg = number of lines to scroll, positive = down, negative = up
+sub cmd_scroll {
+	if (!$active_channel) { # not a channel active
+		return;
+	}
+	my @nicks=Irssi::active_win->{active}->nicks;
+	my $nick_count = scalar(@nicks)+0;
+	my $channel = Irssi::active_win->{active};
+	if (!$channel || $channel->{type} ne 'CHANNEL' || !$channel->{names_got} || $nick_count <= Irssi::settings_get_int('nicklist_height')) {
+		return;
+	}
+	$scroll_pos += @_[0];
+
+	if ($scroll_pos > $nick_count - $height) {
+		$scroll_pos = $nick_count - $height;
+	}
+	if ($scroll_pos <= 0) {
+		$scroll_pos = 0;
+	}
+	need_redraw();
+}
+
+sub is_active_channel {
+	my ($server,$channel) = @_; # (channel as string)
+	return ($server && $server->{'tag'} eq $active_channel->{'server'}->{'tag'} && $server->channel_find($channel) && $active_channel && $server->channel_find($channel)->{'name'} eq $active_channel->{'name'});
+}
+
+sub sig_channel_wholist { # this is actualy a little late, when the names are received would be better
+	my ($channel) = @_;
+	if (Irssi::active_win->{'active'} && Irssi::active_win->{'active'}->{'name'} eq $channel->{'name'}) { # the channel joined is active
+		make_nicklist
+	}
+}
+
+sub sig_join {
+	my ($server,$channel,$nick,$address) = @_;
+	if (!is_active_channel($server,$channel)) {
+		return;
+	}
+	my $newnick = {'nick' => $nick, 'mode' => $MODE_NORMAL};
+	calc_text($newnick);
+	insert_nick($newnick);
+}
+
+sub sig_kick {
+	my ($server, $channel, $nick, $kicker, $address, $reason) = @_;
+	if (!is_active_channel($server,$channel)) {
+		return;
+	}
+	my $nr = find_nick($nick);
+	if ($nr == -1) {
+		Irssi::print("nicklist warning: $nick was kicked from $channel, but not found in nicklist");
+	} else {
+		remove_nick($nr);
+	}
+}
+
+sub sig_part {
+	my ($server,$channel,$nick,$address, $reason) = @_;
+	if (!is_active_channel($server,$channel)) {
+		return;
+	}
+	my $nr = find_nick($nick);
+	if ($nr == -1) {
+		Irssi::print("nicklist warning: $nick has parted $channel, but was not found in nicklist");
+	} else {
+		remove_nick($nr);
+	}
+
+}
+
+sub sig_quit {
+	my ($server,$nick,$address, $reason) = @_;
+	if ($server->{'tag'} ne $active_channel->{'server'}->{'tag'}) {
+		return;
+	}
+	my $nr = find_nick($nick);
+	if ($nr != -1) {
+		remove_nick($nr);
+	}
+}
+
+sub sig_nick {
+	my ($server, $newnick, $oldnick, $address) = @_;
+	if ($server->{'tag'} ne $active_channel->{'server'}->{'tag'}) {
+		return;
+	}
+	my $nr = find_nick($oldnick);
+	if ($nr != -1) { # if nick was found (nickchange is in current channel)
+		my $nick = $nicklist[$nr];
+		remove_nick($nr);
+		$nick->{'nick'} = $newnick;
+		calc_text($nick);
+		insert_nick($nick);
+	}
+}
+
+sub sig_mode {
+	my ($channel, $nick, $setby, $mode, $type) = @_; # (nick and channel as rec)
+	if ($channel->{'server'}->{'tag'} ne $active_channel->{'server'}->{'tag'} || $channel->{'name'} ne $active_channel->{'name'}) {
+		return;
+	}
+	my $nr = find_nick($nick->{'nick'});
+	if ($nr == -1) {
+		Irssi::print("nicklist warning: $nick->{'nick'} had mode set on $channel->{'name'}, but was not found in nicklist");
+	} else {
+		my $nicklist_item = $nicklist[$nr];
+		remove_nick($nr);
+		$nicklist_item->{'mode'} = ($nick->{'op'}?$MODE_OP:$nick->{'halfop'}?$MODE_HALFOP:$nick->{'voice'}?$MODE_VOICE:$MODE_NORMAL);
+		calc_text($nicklist_item);
+		insert_nick($nicklist_item);
+	}
+}
+
+##### command binds #####
+Irssi::command_bind 'nicklist' => sub {
+    my ( $data, $server, $item ) = @_;
+    $data =~ s/\s+$//g;
+    Irssi::command_runsub ('nicklist', $data, $server, $item ) ;
+};
+Irssi::signal_add_first 'default command nicklist' => sub {
+	# gets triggered if called with unknown subcommand
+	cmd_help();
+};
+Irssi::command_bind('nicklist update',\&update);
+Irssi::command_bind('nicklist help',\&cmd_help);
+Irssi::command_bind('nicklist scroll',\&cmd_scroll);
+Irssi::command_bind('nicklist fifo',\&cmd_fifo_start);
+Irssi::command_bind('nicklist screen',\&cmd_screen_start);
+Irssi::command_bind('nicklist screensize',\&screen_size);
+Irssi::command_bind('nicklist off',\&cmd_off);
+
+##### signals #####
+Irssi::signal_add_last('window item changed', \&make_nicklist);
+Irssi::signal_add_last('window changed', \&make_nicklist);
+Irssi::signal_add_last('channel wholist', \&sig_channel_wholist);
+Irssi::signal_add_first('message join', \&sig_join); # first, to be before ignores
+Irssi::signal_add_first('message part', \&sig_part);
+Irssi::signal_add_first('message kick', \&sig_kick);
+Irssi::signal_add_first('message quit', \&sig_quit);
+Irssi::signal_add_first('message nick', \&sig_nick);
+Irssi::signal_add_first('message own_nick', \&sig_nick);
+Irssi::signal_add_first('nick mode changed', \&sig_mode);
+
+Irssi::signal_add('setup changed', \&read_settings);
+
+##### settings #####
+Irssi::settings_add_str('nicklist', 'nicklist_screen_prefix', '\e[m ');
+Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_op', '\e[32m@\e[39m');
+Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_halfop', '\e[34m%\e[39m');
+Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_voice', '\e[33m+\e[39m');
+Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_normal', ' ');
+
+Irssi::settings_add_int('nicklist', 'nicklist_width',11);
+Irssi::settings_add_int('nicklist', 'nicklist_height',24);
+Irssi::settings_add_str('nicklist', 'nicklist_fifo_path', Irssi::get_irssi_dir . '/nicklistfifo');
+Irssi::settings_add_str('nicklist', 'nicklist_screen_split_windows', '');
+Irssi::settings_add_str('nicklist', 'nicklist_automode', '');
+
+read_settings();
+if (uc(Irssi::settings_get_str('nicklist_automode')) eq 'SCREEN') {
+	cmd_screen_start();
+} elsif (uc(Irssi::settings_get_str('nicklist_automode')) eq 'FIFO') {
+	cmd_fifo_start();
+}
diff --git a/scripts/nickmix-c0ffee.pl b/scripts/nickmix-c0ffee.pl
new file mode 100644
index 0000000..203c875
--- /dev/null
+++ b/scripts/nickmix-c0ffee.pl
@@ -0,0 +1,89 @@
+# Nickmix - Perturbates your nick to avoid being collided of be split-riders
+#	    trying to guess your nick (this normally includes banning them
+#	    and setting the channel +i)
+#
+
+
+use strict;
+
+use vars qw ($VERSION %IRSSI);
+
+$VERSION = 'v0.1';
+%IRSSI = (
+          name        => 'nickmix-c0ffee',
+          authors     => 'c0ffee',
+          contact     => 'c0ffee@penguin-breeder.org',
+          url         => 'http://www.penguin-breeder.org/irssi/',
+          license     => 'GPLv2, not later',
+          description => 'Perturbates your nick, use /nickmix nick/len where len is the number of chars you want to keep from your orig nick. use /stopmix to stop. Always issue the commands in a window of the server you want to mix in.'
+         );
+
+
+use Irssi;
+
+
+my %mix;
+my %nick;
+my %len;
+my %servers;
+
+my @valid_chars = (split //, 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789[]{}`_-\\');
+
+sub nickmix {
+  my ($data, $mask, $cnt) = @_;
+
+  $data =~ s/$mask/"$1" . join "", (map { $valid_chars[rand @valid_chars] } (1..$cnt))/e;
+  return $data;
+
+}
+
+sub mixer {
+  my $new_nick;
+  
+  $new_nick = nickmix($nick{$_},"(.\{$len{$_}\}).*",length($nick{$_}) - $len{$_}),
+  $servers{$_}->command("NICK $new_nick") foreach (keys %mix);
+
+}
+
+sub cmd_nickmix {
+  my ($data, $server, $channel) = @_;
+
+  Irssi::print("Not connected to a server."), return if not $server;
+
+  if ($data eq "") {
+    Irssi::print "mixing $nick{$_} on $servers{$_}->{chatnet}" foreach (keys %mix);
+    return;
+  }
+
+  Irssi::print("Invalid format: usage: /nickmix nick/keep (keep is an int)"),
+    return if $data !~ /^\S+\/\d+$/;
+
+  $mix{$server->{chatnet}} = $data;
+
+  ($nick{$server->{chatnet}},$len{$server->{chatnet}}) = $data =~ /^(\S+)\/(\d+)$/;
+  $servers{$server->{chatnet}} = $server;
+
+  Irssi::print("Now mixing $nick{$server->{chatnet}} on $server->{chatnet}");
+
+}
+
+sub cmd_stopmix {
+
+  my ($data, $server, $channel) = @_;
+
+  Irssi::print("Not connected to a server."), return if not $server;
+
+
+  Irssi::print("Invalid format: usage: /stopmix"),
+    return if $data !~ /^\s*$/;
+
+  Irssi::print("Stop mixing $nick{$server->{chatnet}} on $server->{chatnet}");
+  delete $mix{$server->{chatnet}};
+}
+
+Irssi::command_bind("stopmix", "cmd_stopmix");
+Irssi::command_bind("nickmix", "cmd_nickmix");
+
+Irssi::print("Nickmix $VERSION loaded...");
+
+Irssi::timeout_add(30000,'mixer',0);
diff --git a/scripts/nickmix_pasky.pl b/scripts/nickmix_pasky.pl
new file mode 100644
index 0000000..572df87
--- /dev/null
+++ b/scripts/nickmix_pasky.pl
@@ -0,0 +1,74 @@
+# Nickmix - Perturbates given nick (or just a word) in certain way.
+#
+# $Id: nickmix.pl,v 1.2 2002/02/09 22:13:12 pasky Exp pasky $
+
+
+use strict;
+
+use vars qw ($VERSION %IRSSI $rcsid);
+
+$rcsid = '$Id: nickmix.pl,v 1.2 2002/02/09 22:13:12 pasky Exp pasky $';
+($VERSION) = '$Revision: 1.2 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'nickmix',
+          authors     => 'Petr Baudis',
+          contact     => 'pasky@ji.cz',
+          url         => 'http://pasky.ji.cz/~pasky/dev/irssi/',
+          license     => 'GPLv2, not later',
+          description => 'Perturbates given nick (or just a word) in certain way.'
+         );
+
+
+use Irssi;
+use Irssi::Irc;
+
+
+sub cmd_nickmix {
+  my ($data) = @_;
+  my %letters; # letters hash - value is count of letters
+  my $vstr; # vowels string
+  my $str; # resulting string
+
+  # First load the whole thing into letters hash
+  map { $letters{$_}++; } split(//, $data);
+
+  # Now take the (most of/all) vowels away and compose string from them
+  foreach (qw(a e i o u y)) {
+    my $c = int rand($letters{$_} * 4 + 1);
+
+    $c = $letters{$_} if ($c > $letters{$_});
+    $letters{$_} -= $c;
+
+    for (; $c; $c--) {
+      # Either add or prepend
+      if (rand(2) < 1) {
+	$vstr .= $_;
+      } else {
+	$vstr = $_ . $vstr;
+      }
+    }
+  }
+
+  # Position of the $vstr..
+  my $vpos = int rand (3);
+
+  $str = $vstr if (not $vpos);
+
+  # Now take the rest and do the same ;)
+  foreach (keys %letters) { for (; $letters{$_}; $letters{$_}--) {
+    # Either add or prepend
+    if (rand(2) < 1) {
+      $str .= $_;
+    } else {
+      $str = $_ . $str;
+    }
+  } }
+
+  if ($vpos == 1) { $str .= $vstr; } elsif ($vpos == 2) { $str = $vstr . $str; }
+
+  Irssi::print "$data -> $str";
+}
+
+Irssi::command_bind("nickmix", "cmd_nickmix");
+
+Irssi::print("Nickmix $VERSION loaded...");
diff --git a/scripts/nickserv.pl b/scripts/nickserv.pl
new file mode 100644
index 0000000..54250b9
--- /dev/null
+++ b/scripts/nickserv.pl
@@ -0,0 +1,563 @@
+#!/usr/bin/perl -w
+
+## Bugreports and Licence disclaimer.
+#
+# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this script; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+##
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.8";
+
+%IRSSI = (
+    authors     => 'Geert Hauwaerts',
+    contact     => 'geert@irssi.org',
+    name        => 'nickserv.pl',
+    description => 'This script will authorize you into NickServ.',
+    license     => 'GNU General Public License',
+    url         => 'http://irssi.hauwaerts.be/nickserv.pl',
+    changed     => 'Fri Jun  6 12:03:04 CEST 2008',
+);
+
+my @nickservnet = ();
+my $nickservnet_file = "nickserv.networks";
+
+my @nickservauth = ();
+my $nickservauth_file = "nickserv.auth";
+
+my $irssidir = Irssi::get_irssi_dir();
+
+my $help = <<EOF;
+
+Usage: (all on one line)
+/NICKSERV [addnet <ircnet> <services\@host>]
+          [addnick <ircnet> <nickname> <password>]
+          [delnet <ircnet>]
+          [delnick <ircnet> <nick>]
+          [help listnet listnick]
+
+addnet:     Add a new network into the NickServ list.
+addnick:    Add a new nickname into the NickServ list.
+delnet:     Delete a network from the NickServ list.
+delnick:    Delete a nickname from the NickServ list.
+listnet:    Display the contents of the NickServ network list.
+listnick:   Display the contents of the NickServ nickname list.
+help:       Display this useful little helptext.
+
+Examples: (all on one line)
+/NICKSERV addnet Freenode NickServ\@services.
+/NICKSERV addnick Freenode Geert mypass
+
+/NICKSERV delnet Freenode
+/NICKSERV delnick Freenode Geert
+
+Note: This script doesn't allow wildcards into the NickServ hostname. You must use the full services\@host.
+      Both /NICKSERV and /NS are valid commands.
+EOF
+
+Irssi::theme_register([
+    'nickserv_usage_network', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV addnet ircnet services@host%_".',
+    'nickserv_usage_nickname', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV addnick ircnet nickname password%_".',
+    'nickserv_delusage', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV delnet ircnet%_".',
+    'nickserv_delnickusage', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV delnick ircnet nickname%_".',
+    'nickserv_delled', '%R>>%n %_NickServ:%_ Deleted %_$0%_ and his nicknames from the NickServ ircnet list.',
+    'nickserv_delled_nick', '%R>>%n %_NickServ:%_ Deleted %_$1%_ from the NickServ list on $0.',
+    'nickserv_nfound', '%R>>%n %_NickServ:%_ The NickServ ircnet %_$0%_ could not be found.',
+    'nickserv_nfound_nick', '%R>>%n %_NickServ:%_ The NickServ nickname %_$0%_ could not be found on $1.',
+    'nickserv_usage', '%R>>%n %_NickServ:%_ Insufficient parameters: Use "%_/NICKSERV help%_" for further instructions.',
+    'nickserv_no_net', '%R>>%n %_NickServ:%_ Unknown Irssi ircnet %_$0%_.',
+    'nickserv_wrong_host', '%R>>%n %_NickServ:%_ Malformed services hostname %_$0%_.',
+    'already_loaded_network', '%R>>%n %_NickServ:%_ The ircnet %_$0%_ already exists in the NickServ ircnet list, please remove it first.',
+    'nickserv_loaded_nick', '%R>>%n %_NickServ:%_ The nickname %_$0%_ already exists in the NickServ authlist on %_$1%_, please remove it first.',
+    'nickserv_not_loaded_net', '%R>>%n %_NickServ:%_ The ircnet %_$0%_ doesn\'t exists in the NickServ ircnet list, please add it first.',
+    'saved_nickname', '%R>>%n %_NickServ:%_ Added nickname %_$1%_ on %_$0%_.',
+    'network_print', '$[!-2]0 $[20]1 $2',
+    'password_request', '%R>>%n %_NickServ:%_ Auth Request from NickServ on %_$0%_.',
+    'password_accepted', '%R>>%n %_NickServ:%_ Password accepted on %_$0%_.',
+    'password_wrong', '%R>>%n %_NickServ:%_ Password denied on %_$0%_. Please change the password.',
+    'network_info', '%_ # Ircnet               Services hostname%_',
+    'network_empty', '%R>>%n %_NickServ:%_ Your NickServ ircnet list is empty.',
+    'nickname_print', '$[!-2]0 $[20]1 $[18]2 $3',
+    'nickname_info', '%_ # Ircnet               Nickname           Password%_',
+    'nickname_empty', '%R>>%n %_NickServ:%_ Your NickServ authlist is empty.',
+    'nickserv_help', '$0',
+    'saved_network', '%R>>%n %_NickServ:%_ Added services mask "%_$1%_" on %_$0%_.',
+    'nickserv_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
+]);
+
+sub load_nickservnet {
+
+    my ($file) = @_;
+
+    @nickservnet = ();
+
+    if (-e $file) {
+        local *F;
+        open(F, "<$file");
+        local $/ = "\n";
+
+        while (<F>) {
+            chop;
+            my $new_nsnet = new_nickserv_network(split("\t"));
+  
+            if (($new_nsnet->{name} ne "") && ($new_nsnet->{host} ne "")) {
+                push(@nickservnet, $new_nsnet);
+            }
+        }
+        
+        close(F);
+    }
+}
+
+sub save_nickservnet {
+
+    my ($file) = @_;
+
+    return unless scalar @nickservnet; # there's nothing to save
+
+    if (-e $file) {
+        local *F;
+        open(F, ">$file");
+
+        for (my $n = 0; $n < @nickservnet; ++$n) {
+            print(F join("\t", $nickservnet[$n]->{name}, $nickservnet[$n]->{host}) . "\n");
+        }
+    
+        close(F);
+    } else {
+        create_network_file($file);
+        save_nickservnet($file);
+    }
+}
+
+sub create_network_file {
+    
+    my ($file) = @_;
+    
+    open(F, ">$file") or die "Can't create $file. Reason: $!";
+}
+
+sub new_nickserv_network {
+
+    my $nsnet = {};
+
+    $nsnet->{name} = shift;
+    $nsnet->{host} = shift;
+
+    return $nsnet;
+}
+
+sub load_nickservnick {
+
+    my ($file) = @_;
+
+    @nickservauth = ();
+
+    if (-e $file) {
+        local *F;
+        open(F, "<$file");
+        local $/ = "\n";
+
+        while (<F>) {
+            chop;
+            my $new_nsnick = new_nickserv_nick(split("\t"));
+  
+            if (($new_nsnick->{ircnet} ne "") && ($new_nsnick->{nick} ne "") && ($new_nsnick->{pass} ne "")) {
+                push(@nickservauth, $new_nsnick);
+            }
+        }
+        
+        close(F);
+    }
+}
+
+sub save_nickservnick {
+
+    my ($file) = @_;
+
+    return unless scalar @nickservauth; # there's nothing to save
+
+    if (-e $file) {
+        local *F;
+        open(F, ">$file");
+
+        for (my $n = 0; $n < @nickservauth; ++$n) {
+            print(F join("\t", $nickservauth[$n]->{ircnet}, $nickservauth[$n]->{nick}, $nickservauth[$n]->{pass}) . "\n");
+        }
+    
+        close(F);
+    } else {
+        create_nick_file($file);
+        save_nickservnick($file);
+    }
+}
+
+sub create_nick_file {
+    
+    my ($file) = @_;
+    
+    my $umask = umask 0077; # save old umask
+    open(F, ">$file") or die "Can't create $file. Reason: $!";
+    umask $umask;
+}
+
+sub new_nickserv_nick {
+
+    my $nsnick = {};
+
+    $nsnick->{ircnet} = shift;
+    $nsnick->{nick} = shift;
+    $nsnick->{pass} = shift;
+
+    return $nsnick;
+}
+
+sub add_nickname {
+    
+    my ($network, $nickname, $password) = split(" ", @_[0], 3);
+    my ($correct_network, $correct_nickname, $correct_password);
+
+    if ($network eq "" || $nickname eq "" || $password eq "") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_usage_nickname');
+        return;
+    }
+    
+    if ($network) {
+        if (!already_loaded_net($network)) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_not_loaded_net', $network);
+            return;
+        } else {
+            $correct_network = 1;
+        }
+    }
+    
+    if ($nickname) {
+        if (already_loaded_nick($nickname, $network)) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_loaded_nick', $nickname, $network);
+            return;
+        } else {
+            $correct_nickname = 1;
+        }
+    }
+    
+    if ($correct_network && $correct_nickname) {
+        push(@nickservauth, new_nickserv_nick($network, $nickname, $password));
+        save_nickservnick("$irssidir/$nickservauth_file");
+            
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'saved_nickname', $network, $nickname);
+    }
+}
+
+sub add_network {
+    
+    my ($network, $hostname) = split(" ", @_[0], 2);
+    my ($correct_net, $correct_host);
+    
+    if ($network eq "" || $hostname eq "") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_usage_network');
+        return;
+    }
+    
+    if ($network) {
+        my ($ircnet) = Irssi::chatnet_find($network);
+        
+        if (!$ircnet) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_no_net', $network);
+            return;
+        } elsif (already_loaded_net($network)) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'already_loaded_network', $network);
+            return;
+        } else {
+            $correct_net = 1;
+        }
+    }
+ 
+    if ($hostname) {
+        if ($hostname !~ /^[.+a-zA-Z0-9_-]{1,9}@[.+a-zA-Z0-9_-]{1,}$/) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_wrong_host', $hostname);
+            return;
+        } else {
+            $correct_host = 1;
+        }
+    }
+    
+    if ($correct_net && $correct_host) {
+        push(@nickservnet, new_nickserv_network($network, $hostname));
+        save_nickservnet("$irssidir/$nickservnet_file");
+            
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'saved_network', $network, $hostname);
+    }
+}
+
+sub already_loaded_net {
+
+    my ($ircnet) = @_;
+    my $loaded = check_loaded_net($ircnet);
+
+    if ($loaded > -1) {
+        return 1;
+    }
+    
+    return 0;
+}
+
+sub check_loaded_net {
+
+    my ($ircnet) = @_;
+
+    $ircnet = lc($ircnet);
+
+    for (my $loaded = 0; $loaded < @nickservnet; ++$loaded) {
+        return $loaded if (lc($nickservnet[$loaded]->{name}) eq $ircnet);
+    }
+    
+    return -1;
+}
+
+sub already_loaded_nick {
+    
+    my ($nickname, $network) = @_;
+    my $loaded = check_loaded_nick($nickname, $network);
+    
+    if ($loaded > -1) {
+        return 1;
+    }
+    
+    return 0
+}
+
+sub check_loaded_nick {
+    
+    my ($nickname, $network) = @_;
+    
+    $nickname = lc($nickname);
+    $network = lc($network);
+    
+    for (my $loaded = 0; $loaded < @nickservauth; ++$loaded) {
+        return $loaded if (lc($nickservauth[$loaded]->{nick}) eq $nickname && lc ($nickservauth[$loaded]->{ircnet}) eq $network);
+    }
+    
+    return -1;
+}
+
+sub list_net {
+    
+    if (@nickservnet == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'network_empty');
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'network_info');
+
+        for (my $n = 0; $n < @nickservnet ; ++$n) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'network_print', $n, $nickservnet[$n]->{name}, $nickservnet[$n]->{host});
+        }
+    }
+}
+
+sub list_nick {
+    
+    if (@nickservauth == 0) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickname_empty');
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickname_info');
+
+        for (my $n = 0; $n < @nickservauth ; ++$n) {
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickname_print', $n, $nickservauth[$n]->{ircnet}, $nickservauth[$n]->{nick}, "*" x length($nickservauth[$n]->{pass}));
+        }
+    }
+}
+
+sub nickserv_notice {
+    
+    my ($server, $data, $nick, $address) = @_;
+    my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
+
+    if (is_nickserv($server->{tag}, $address)) {
+        if ($text =~ /^If this is your nickname, type \/msg NickServ/ || $text =~ /^This nickname is registered and protected.  If it is your/ || $text =~ /This nickname is registered\. Please choose a different nickname,/ || $text =~ /^This nickname is registered. Please choose a different nickname/) {
+            my $password = get_password($server->{tag}, $server->{nick});
+            
+            if ($password == -1) {
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $server->{nick}, $server->{tag});
+                Irssi::signal_stop();
+                return;
+            }
+            
+            Irssi::signal_stop();
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
+            $server->command("^MSG NickServ IDENTIFY $password");
+        } elsif ($text =~ /If this is your nickname, type \/NickServ/) {
+            my $password = get_password($server->{tag}, $server->{nick});
+
+            if ($password == -1) {
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $server->{nick}, $server->{tag});
+                Irssi::signal_stop();
+                return;
+            }
+
+            Irssi::signal_stop();
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
+            $server->command("^QUOTE NickServ :IDENTIFY $password");
+        } elsif ($text =~ /If this is your nickname, type \/msg NS/) {
+            my $password = get_password($server->{tag}, $server->{nick});
+
+            if ($password == -1) {
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
+                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $server->{nick}, $server->{tag});
+                Irssi::signal_stop();
+                return;
+            }
+
+            Irssi::signal_stop();
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
+            $server->command("^MSG NS IDENTIFY $password");
+        } elsif ($text =~ /If you do not (.*) within one minute, you will be disconnected/) {
+            Irssi::signal_stop();
+        } elsif ($text =~ /^This nickname is owned by someone else/) {
+            Irssi::signal_stop();
+        } elsif ($text =~ /^nick, type (.*)  Otherwise,/) {
+            Irssi::signal_stop();
+        } elsif ($text =~ /^please choose a different nick./) {
+            Irssi::signal_stop();
+        } elsif ($text =~ /^You have already identified/ || $text =~ /^This nick is already identified./) {
+            Irssi::signal_stop();
+        } elsif ($text =~ /^Password accepted - you are now recognized/) {
+            Irssi::signal_stop();
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_accepted', $server->{tag});
+        } elsif ($text =~ /^Password Incorrect/ || $text =~ /^Password incorrect./) {
+            Irssi::signal_stop();
+            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_wrong', $server->{tag});
+        }
+    }
+}
+
+sub is_nickserv {
+    
+    my ($net, $host) = @_;
+
+    for (my $loaded = 0; $loaded < @nickservnet; ++$loaded) {
+        return 1 if (lc($nickservnet[$loaded]->{name}) eq lc($net) && lc($nickservnet[$loaded]->{host}) eq lc($host));
+    }
+    return 0;
+}
+
+sub get_password {
+    
+    my ($ircnet, $nick) = @_;
+    
+    for (my $loaded = 0; $loaded < @nickservauth; ++$loaded) {
+        return $nickservauth[$loaded]->{pass} if (lc($nickservauth[$loaded]->{ircnet}) eq lc($ircnet) && lc($nickservauth[$loaded]->{nick}) eq lc($nick));
+    }
+    
+    return -1;
+}
+
+sub del_network {
+
+    my ($ircnet) = split(" ", @_[0], 1);
+    my ($ircnetindex);
+
+    if ($ircnet eq "") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delusage');
+        return;
+    }
+
+    for (my $index = 0; $index < @nickservnet; ++$index) {
+        if (lc($nickservnet[$index]->{name}) eq lc($ircnet)) {
+            $ircnetindex = 1;
+        }
+    }
+    
+    if ($ircnetindex) {
+        @nickservnet = grep {lc($_->{name}) ne lc($ircnet)} @nickservnet;
+        @nickservauth = grep {lc($_->{ircnet}) ne lc($ircnet)} @nickservauth;
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delled', $ircnet);
+        save_nickservnet("$irssidir/$nickservnet_file");
+        save_nickservnick("$irssidir/$nickservauth_file");
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound', $ircnet);
+    }
+}
+
+sub del_nickname {
+    
+    my ($ircnet, $nickname) = split(" ", @_[0], 2);
+    my ($nickindex);
+    
+    if ($ircnet eq "" || $nickname eq "") {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delnickusage');
+        return;
+    }
+
+    for (my $index = 0; $index < @nickservauth; ++$index) {
+        if (lc($nickservauth[$index]->{ircnet}) eq lc($ircnet) && lc($nickservauth[$index]->{nick}) eq lc($nickname)) {
+            $nickindex = splice(@nickservauth, $index, 1);
+        }   
+    }
+
+    if ($nickindex) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delled_nick', $ircnet, $nickname);
+        save_nickservnick("$irssidir/$nickservauth_file");
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $ircnet, $nickname);
+    }
+}
+
+sub nickserv_runsub {
+    
+    my ($data, $server, $item) = @_;
+    $data =~ s/\s+$//g;
+    
+    if ($data) {
+        Irssi::command_runsub('nickserv', $data, $server, $item);
+    } else {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_usage');
+    }
+}
+
+load_nickservnet("$irssidir/$nickservnet_file");
+load_nickservnick("$irssidir/$nickservauth_file");
+
+Irssi::command_bind('nickserv', 'nickserv_runsub');
+Irssi::command_bind('ns', 'nickserv_runsub');
+
+Irssi::command_bind('nickserv addnet', 'add_network');
+Irssi::command_bind('ns addnet', 'add_network');
+
+Irssi::command_bind('nickserv addnick', 'add_nickname');
+Irssi::command_bind('ns addnick', 'add_nickname');
+
+Irssi::command_bind('nickserv listnet', 'list_net');
+Irssi::command_bind('ns listnet', 'list_net');
+
+Irssi::command_bind('nickserv listnick', 'list_nick');
+Irssi::command_bind('ns listnick', 'list_nick');
+
+Irssi::command_bind('nickserv delnet', 'del_network');
+Irssi::command_bind('ns delnet', 'del_network');
+
+Irssi::command_bind('nickserv delnick', 'del_nickname');
+Irssi::command_bind('ns delnick', 'del_nickname');
+
+Irssi::command_bind('nickserv help' => sub { Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_help', $help) });
+Irssi::command_bind('ns help' => sub { Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_help', $help) });
+
+Irssi::signal_add('event notice', 'nickserv_notice');
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/scripts/niq.pl b/scripts/niq.pl
new file mode 100644
index 0000000..479ffcc
--- /dev/null
+++ b/scripts/niq.pl
@@ -0,0 +1,295 @@
+# BitchX TAB complete style
+# for irssi 0.7.99 by bd@bc-bd.org
+#
+# <tab> signal handling learned from dictcomplete by Timo Sirainen
+#
+# thx go out to fuchs, darix, dg, peder and all on #irssi who helped
+#
+#########
+# USAGE
+###
+# 
+# In a channel window type "ab<tab>" to see a list of nicks starting
+# with "ab".
+# If you now press <tab> again, irssi will default to its own nick
+# completion method.
+# If you enter more characters you can use <tab> again to see a list
+# of the matching nicks, or to complete the nick if there is only
+# one matching.
+#
+# The last completion is saved so if you press "<tab>" with an empty
+# input line, you get the last completed nick.
+#
+# Now there is a statusbar item where you can see the completing
+# nicks instead of in the channel window. There are two ways to 
+# use it:
+#
+#	1) Inside another statusbar
+#
+#		/set niq_show_in_statusbar ON
+#		/statusbar window add -before more niq
+#
+#	2) In an own statusbar
+#
+#		/statusbar niq enable
+#		/statusbar niq add niq
+#		/statusbar niq disable
+#		/set niq_show_in_statusbar ON
+#		/set niq_own_statusbar ON
+#
+#	  You can also hide the bar when not completing nicks by using
+#
+#		/set niq_hide_on_inactive ON
+#
+#########
+# OPTIONS
+#########
+#
+# /set niq_show_in_statusbar <ON|OFF>
+#		* ON  : show the completing nicks in a statusbar item
+#		* OFF : show the nicks in the channel window
+#
+# /set niq_own_statusbar <ON|OFF>
+#		* ON  : use an own statusbar for the nicks
+#		* OFF : just use an item
+#
+# /set niq_hide_on_inactive <ON|OFF>
+#		* ON  : hide the own statusbar on inactivity
+#		* OFF : dont hide it
+#
+# /set niq_color_char <ON|OFF>
+#		* ON  : colors the next unlikely character
+#		* OFF : boring no colors
+#
+###
+################
+###
+# Changelog
+#
+# Version 0.5.7
+# - use configured completion_char instead of a colon
+# - removed old, unused code
+# - fixed url
+# - fixed documentation leading to emtpy statusbar
+# - removed warning about a problem with irssi version 0.8.4
+#
+# Version 0.5.6
+# - work around an use problem
+#
+# Version 0.5.5
+# - fixed completion for nicks starting with special chars
+#
+# Version 0.5.4
+# - removed unneeded sort() of colored nicks
+# - moved colored nick generation to where it is needed
+# - the statusbar only worked with colorized nicks (duh!)
+# 
+# Version 0.5.3
+#	- stop nickcompleting if last char is the completion_char
+#	  which is in most cases ':'
+#
+# Version 0.5.2
+#	- fixed vanishing statusbar. it wrongly was reset on any
+#	  privmsg.
+#
+# Version 0.5.1
+#	- changed statusbar to be off by default since most people 
+#	  dont use the latest fixed version.
+#
+# Version 0.5
+#	- added own statusbar option
+#  - added color char option
+#
+# Version 0.4
+#	- added an niq statusbar
+#
+# Version 0.3
+#  - added default to irssi method on <tab><tab>
+#
+# Version 0.2 
+#  - added lastcomp support
+#
+# Version 0.1
+#  - initial release
+###
+################
+
+use Irssi;
+use Irssi::TextUI;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.5.7";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'niq',
+	description=> 'BitchX like Nickcompletion at line start plus statusbar',
+	license=> 'GPL v2',
+	url=> 'https://bc-bd.org/cgi-bin/gitweb.cgi?p=irssi.git;a=summary',
+);
+
+my($lastword,$lastcomp,$niqString);
+
+$lastcomp = "";
+$lastword = "";
+
+# build our nick with completion_char, add to complist and stop the signal
+sub buildNickAndStop {
+	my ($complist,$nick) = @_;
+	my $push = $nick.Irssi::settings_get_str('completion_char');
+		
+	$lastcomp = $nick;
+	$lastword = "";
+	push (@{$complist}, $push);
+
+	if (Irssi::settings_get_bool('niq_show_in_statusbar') == 1) {
+		drawStatusbar("");
+	}
+
+	Irssi::signal_stop();
+}
+
+# the signal handler
+sub sig_complete {
+	my ($complist, $window, $word, $linestart, $want_space) = @_;
+
+	# still allow channel- #<tab>, /set n<tab>, etc completion.
+	if ($linestart ne "") {
+		return;
+	}
+
+	# also back out if nothing has been entered and lastcomp is ""
+	if ($word eq "") {
+		if ($lastcomp ne "") {
+			buildNickAndStop($complist,$lastcomp);
+			return;
+		} else {
+			return;
+		}
+	}
+	if (rindex($word,Irssi::settings_get_str('completion_char')) == length($word) -1) {
+		chop($word);
+		buildNickAndStop($complist,$word,0);
+		return;
+	}
+
+	my $channel = $window->{active};
+
+	# the completion is ok if this is a channel
+	if ($channel->{type} ne "CHANNEL") 
+	{
+		return;
+	}
+
+	my (@nicks);
+
+	# get the matching nicks but quote this l33t special chars like ^
+	my $shortestNick = 999;
+	my $quoted = quotemeta $word;
+	foreach my $n ($channel->nicks()) {
+		if ($n->{nick} =~ /^$quoted/i && $window->{active_server}->{nick} ne $n->{nick}) {
+			push(@nicks,$n->{nick});
+			if (length($n->{nick}) < $shortestNick) {
+				$shortestNick = length($n->{nick});
+			}
+		}
+	}
+
+	@nicks = sort(@nicks);
+	
+	# if theres only one nick return it.
+	if (scalar @nicks eq 1)
+	{
+		buildNickAndStop($complist,$nicks[0]);
+	} elsif (scalar @nicks gt 1) {
+		# check if this is <tab> or <tab><tab>
+		if ($lastword eq $word) {
+			# <tab><tab> so default to the irssi method
+			sort(@nicks);
+			for (@nicks) {
+				$_ .= Irssi::settings_get_str ('completion_char');
+			}
+
+			push (@{$complist}, @nicks);
+
+			# but delete lastword to be ready for the next <tab>
+			$lastword = "";
+
+			if (Irssi::settings_get_bool('niq_show_in_statusbar') == 1) {
+				drawStatusbar("");
+			}
+
+			return;
+		} else {
+			# <tab> only so just print
+		
+			# build string w/o colored nicks
+			if (Irssi::settings_get_bool('niq_color_char') == 1) {
+				$niqString = "";
+				foreach my $n (@nicks) {
+					my $coloredNick = $n;
+					$coloredNick =~ s/($quoted)(.)(.*)/$1%_$2%_$3/i;
+					$niqString .= "$coloredNick ";
+				}
+			} else {
+				$niqString = join(" ",@nicks);
+			}
+			
+			if (Irssi::settings_get_bool('niq_show_in_statusbar') == 1) {
+				drawStatusbar($niqString);
+			} else {
+				$window->print($niqString);
+			}
+
+			Irssi::signal_stop();
+
+			# remember last word
+			$lastword = $word;
+
+			return;
+		}
+	} 
+}
+
+sub emptyBar() {
+	$lastword = "";
+	
+	drawStatusbar("");
+}
+
+sub drawStatusbar() {
+	my ($word) = @_;
+
+	if (Irssi::settings_get_bool('niq_own_statusbar') == 1) {
+		if (Irssi::settings_get_bool('niq_hide_on_inactive') == 1) {
+			if ($word eq "") {
+				Irssi::command("statusbar niq disable");
+			} else {
+				Irssi::command("statusbar niq enable");
+			}
+		}
+	}
+
+	$niqString = "{sb $word}";
+	Irssi::statusbar_items_redraw('niq');
+}
+
+sub niqStatusbar() {
+	my ($item, $get_size_only) = @_;
+
+	$item->default_handler($get_size_only, $niqString, undef, 1);
+}
+
+Irssi::signal_add_first('complete word', 'sig_complete');
+Irssi::signal_add_last('window changed', 'emptyBar');
+Irssi::signal_add('message own_public', 'emptyBar');
+
+Irssi::statusbar_item_register('niq', '$0', 'niqStatusbar');
+Irssi::statusbars_recreate_items();
+
+Irssi::settings_add_bool('misc', 'niq_show_in_statusbar', 0);
+Irssi::settings_add_bool('misc', 'niq_own_statusbar', 0);
+Irssi::settings_add_bool('misc', 'niq_hide_on_inactive', 1);
+Irssi::settings_add_bool('misc', 'niq_color_char', 1);
diff --git a/scripts/nm.pl b/scripts/nm.pl
new file mode 100644
index 0000000..b9b2955
--- /dev/null
+++ b/scripts/nm.pl
@@ -0,0 +1,662 @@
+use Irssi;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.3.10";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'nm',
+	description=> 'right aligned nicks depending on longest nick',
+	license=> 'GPL v2',
+	url=> 'http://bc-bd.org/blog/irssi/',
+);
+
+# $Id: 9cb009e8b7e6f5ce60294334faf88715ef01413e $
+# nm.pl
+# for irssi 0.8.4 by bd@bc-bd.org
+#
+# right aligned nicks depending on longest nick
+#
+# inspired by neatmsg.pl from kodgehopper <kodgehopper@netscape.net
+# formats taken from www.irssi.de
+# thanks to adrianel <adrinael@nuclearzone.org> for some hints
+# thanks to Eric Wald <eswald@gmail.com> for the left alignment patch
+# inspired by nickcolor.pl by Timo Sirainen and Ian Peters
+# thanks to And1 <and1@meinungsverstaerker.de> for a small patch
+# thanks to berber@tzi.de for the save/load patch
+# thanks to Dennis Heimbert <dennis.heimbert@gmail.com> for a bug report/patch
+#
+#########
+# USAGE
+###
+# 
+# use
+# 
+# 	/neatcolor help
+#
+# for help on available commands
+#
+#########
+# OPTIONS
+#########
+
+my $help = "
+/set neat_colorize <ON|OFF>
+    * ON  : colorize nicks
+    * OFF : do not colorize nicks
+
+/set neat_colors <string>
+    Use these colors when colorizing nicks, eg:
+
+        /set neat_colors yYrR
+
+    See the file formats.txt on an explanation of what colors are
+    available.
+
+/set neat_left_actions <ON|OFF>
+    * ON  : print nicks left-aligned on actions
+    * OFF : print nicks right-aligned on actions
+
+/set neat_left_messages <ON|OFF>
+    * ON  : print nicks left-aligned on messages
+    * OFF : print nicks right-aligned on messages
+
+/set neat_right_mode <ON|OFF>
+    * ON  : print the mode of the nick e.g @%+ after the nick
+    * OFF : print it left of the nick 
+
+/set neat_maxlength <number>
+    * number : Maximum length of Nicks to display. Longer nicks are truncated.
+    * 0      : Do not truncate nicks.
+
+/set neat_melength <number>
+    * number : number of spaces to substract from /me padding
+
+/set neat_ignorechars <str>
+    * str : regular expression used to filter out unwanted characters in
+            nicks. this can be used to assign the same color for similar
+            nicks, e.g. foo and foo_:
+
+                /set neat_ignorechars [_]
+
+/set neat_allow_shrinking <ON|OFF>
+    * ON  : shrink padding when longest nick disappears
+    * OFF : do not shrink, only allow growing
+ 
+";
+
+#
+###
+################
+###
+#
+# Changelog
+#
+# Version 0.3.10
+#  - fix losing of saved color when changing nick shares more than one channel
+#    with you
+#
+# Version 0.3.9
+#  - fix longest nick calculation for nicks shorter than the current longest
+#    nick
+#  - updated url
+#
+# Version 0.3.8
+#  - fixed error in the nickchange tracking code, reported by Kevin Ballard
+#  - added --all switch to reset command
+#  - skip broken lines in saved_colors
+#
+# Version 0.3.7
+#  - fixed crash when calling /neatcolor without parameters
+#  - fixed url
+#
+# Version 0.3.6
+#  - added option to ignore certain characters from color hash building, see
+#    https://bc-bd.org/trac/irssi/ticket/22
+#  - added option to save and specify colors for nicks, see
+#    https://bc-bd.org/trac/irssi/ticket/23
+#  - added option to disallow shrinking, see
+#    https://bc-bd.org/trac/irssi/ticket/12
+#
+# Version 0.3.5
+#  - now also aligning own messages in queries
+#
+# Version 0.3.4
+#  - fxed off by one error in nick_to_color, patch by jrib, see
+#  https://bc-bd.org/trac/irssi/ticket/24
+#
+# Version 0.3.3
+#  - added support for alignment in queries, see
+#    https://bc-bd.org/trac/irssi/ticket/21
+#
+# Version 0.3.2
+#  - integrated left alignment patch from Eric Wald <eswald@gmail.com>, see
+#    https://bc-bd.org/trac/irssi/ticket/18
+#
+# Version 0.3.1
+#  - /me padding, see https://bc-bd.org/trac/irssi/ticket/17
+#
+# Version 0.3.0
+#  - integrate nick coloring support
+#
+# Version 0.2.1
+#  - moved neat_maxlength check to reformat() (thx to Jerome De Greef <jdegreef@brutele.be>)
+#
+# Version 0.2.0
+#  - by adrianel <adrinael@nuclearzone.org>
+#     * reformat after setup reload
+#     * maximum length of nicks
+#
+# Version 0.1.0
+#  - got lost somewhere
+#
+# Version 0.0.2
+#  - ugly typo fixed
+#  
+# Version 0.0.1
+#  - initial release
+#
+###
+################
+###
+#
+# BUGS
+#
+# Empty nicks, eg "<> message"
+# 	This seems to be triggered by some themes. As of now there is no known
+# 	fix other than changing themes, see
+# 	https://bc-bd.org/trac/irssi/ticket/19
+#
+# Well, it's a feature: due to the lacking support of extendable themes
+# from irssi it is not possible to just change some formats per window.
+# This means that right now all windows are aligned with the same nick
+# length, which can be somewhat annoying.
+# If irssi supports extendable themes, I will include per-server indenting
+# and a setting where you can specify servers you don't want to be indented
+#
+###
+################
+
+my ($longestNick, %saved_colors, @colors, $alignment, $sign, %commands);
+
+my $colorize = -1;
+
+sub reformat() {
+	my $max = Irssi::settings_get_int('neat_maxlength');
+	my $actsign = Irssi::settings_get_bool('neat_left_actions')? '': '-';
+	$sign = Irssi::settings_get_bool('neat_left_messages')? '': '-';
+
+	if ($max && $max < $longestNick) {
+		$longestNick = $max;
+	}
+
+	my $me = $longestNick - Irssi::settings_get_int('neat_melength');
+	$me = 0 if ($me < 0);
+
+	Irssi::command('^format own_action {ownaction $['.$actsign.$me.']0} $1');
+	Irssi::command('^format action_public {pubaction $['.$actsign.$me.']0}$1');
+	Irssi::command('^format action_private {pvtaction $['.$actsign.$me.']0}$1');
+	Irssi::command('^format action_private_query {pvtaction_query $['.$actsign.$me.']0} $2');
+
+	my $length = $sign . $longestNick;
+	if (Irssi::settings_get_bool('neat_right_mode') == 0) {
+		Irssi::command('^format own_msg {ownmsgnick $2 {ownnick $['.$length.']0}}$1');
+		Irssi::command('^format own_msg_channel {ownmsgnick $3 {ownnick $['.$length.']0}{msgchannel $1}}$2');
+		Irssi::command('^format pubmsg_me {pubmsgmenick $2 {menick $['.$length.']0}}$1');
+		Irssi::command('^format pubmsg_me_channel {pubmsgmenick $3 {menick $['.$length.']0}{msgchannel $1}}$2');
+		Irssi::command('^format pubmsg_hilight {pubmsghinick $0 $3 $['.$length.']1%n}$2');
+		Irssi::command('^format pubmsg_hilight_channel {pubmsghinick $0 $4 $['.$length.']1{msgchannel $2}}$3');
+		Irssi::command('^format pubmsg {pubmsgnick $2 {pubnick $['.$length.']0}}$1');
+		Irssi::command('^format pubmsg_channel {pubmsgnick $2 {pubnick $['.$length.']0}}$1');
+	} else {
+		Irssi::command('^format own_msg {ownmsgnick {ownnick $['.$length.']0$2}}$1');
+		Irssi::command('^format own_msg_channel {ownmsgnick {ownnick $['.$length.']0$3}{msgchannel $1}}$2');
+		Irssi::command('^format pubmsg_me {pubmsgmenick {menick $['.$length.']0}$2}$1');
+		Irssi::command('^format pubmsg_me_channel {pubmsgmenick {menick $['.$length.']0$3}{msgchannel $1}}$2');
+		Irssi::command('^format pubmsg_hilight {pubmsghinick $0 $0 $['.$length.']1$3%n}$2');
+		Irssi::command('^format pubmsg_hilight_channel {pubmsghinick $0 $['.$length.']1$4{msgchannel $2}}$3');
+		Irssi::command('^format pubmsg {pubmsgnick {pubnick $['.$length.']0$2}}$1');
+		Irssi::command('^format pubmsg_channel {pubmsgnick {pubnick $['.$length.']0$2}}$1');
+	}
+
+	# format queries
+	Irssi::command('^format own_msg_private_query {ownprivmsgnick {ownprivnick $['.$length.']2}}$1');
+	Irssi::command('^format msg_private_query {privmsgnick $['.$length.']0}$2');
+};
+
+sub findLongestNick {
+	$longestNick = 0;
+
+	# get own nick length
+	map {
+		my $len = length($_->{nick});
+
+		$longestNick = $len if ($len > $longestNick);
+	} Irssi::servers();
+
+	# find longest other nick
+	foreach (Irssi::channels()) {
+		foreach ($_->nicks()) {
+			my $len = length($_->{nick});
+
+			$longestNick = $len if ($len > $longestNick);
+		}
+	}
+
+	reformat();
+}
+
+# a new nick was created
+sub sig_newNick
+{
+	my ($channel, $nick) = @_;
+
+	my $len = length($nick->{nick});
+
+	if ($len > $longestNick) {
+		$longestNick = $len;
+		reformat();
+	}
+
+	return if (exists($saved_colors{$nick->{nick}}));
+
+	$saved_colors{$nick->{nick}} = "%".nick_to_color($nick->{nick});
+}
+
+# something changed
+sub sig_changeNick
+{
+	my ($channel, $nick, $old_nick) = @_;
+
+	# if no saved color exists, we already handled this nickchange. irssi
+	# generates one signal per channel the nick is in, so if you share more
+	# than one channel with this nick, you'd lose the coloring.
+	return unless exists($saved_colors{$old_nick});
+
+	# we need to update the saved colorors hash independent of nick lenght
+	$saved_colors{$nick->{nick}} = $saved_colors{$old_nick};
+	delete $saved_colors{$old_nick};
+
+	my $new = length($nick->{nick});
+
+	# in case the new nick is longer than the old one, simply remember this
+	# as the new longest nick and reformat.
+	#
+	# if the new nick is as long as the known longest nick nothing has to be
+	# done
+	#
+	# if the new nick is shorter than the current longest one and if the
+	# user allows us to shrink, find new longest nick and reformat.
+	if ($new > $longestNick) {
+		$longestNick = $new;
+	} elsif ($new == $longestNick) {
+		return;
+	} else {
+		return unless Irssi::settings_get_bool('neat_allow_shrinking');
+		findLongestNick();
+	}
+
+	reformat();
+}
+
+sub sig_removeNick
+{
+	my ($channel, $nick) = @_;
+
+	my $thisLen = length($nick->{nick});
+
+	# we only need to recalculate if this was the longest nick and we are
+	# allowed to shrink
+	if ($thisLen == $longestNick && Irssi::settings_get_bool('neat_allow_shrinking')) {
+		findLongestNick();
+		reformat();
+	}
+
+	# we do not remove a known color for a gone nick, as they may return
+}
+
+# based on simple_hash from nickcolor.pl
+sub nick_to_color($) {
+	my ($string) = @_;
+	chomp $string;
+
+	my $ignore = Irssi::settings_get_str("neat_ignorechars");
+	$string =~ s/$ignore//g;
+
+	my $counter;
+	foreach my $char (split(//, $string)) {
+		$counter += ord $char;
+	}
+
+	return $colors[$counter % ($#colors + 1)];
+}
+
+sub color_left($) {
+	Irssi::command('^format pubmsg {pubmsgnick $2 {pubnick '.$_[0].'$['.$sign.$longestNick.']0}}$1');
+	Irssi::command('^format pubmsg_channel {pubmsgnick $2 {pubnick '.$_[0].'$['.$sign.$longestNick.']0}}$1');
+}
+
+sub color_right($) {
+	Irssi::command('^format pubmsg {pubmsgnick {pubnick '.$_[0].'$['.$sign.$longestNick.']0}$2}$1');
+	Irssi::command('^format pubmsg_channel {pubmsgnick {pubnick '.$_[0].'$['.$sign.$longestNick.']0}$2}$1');
+}
+
+sub sig_public {
+	my ($server, $msg, $nick, $address, $target) = @_;
+
+	&$alignment($saved_colors{$nick});
+}
+
+sub sig_setup {
+	@colors = split(//, Irssi::settings_get_str('neat_colors'));
+
+	# check left or right alignment
+	if (Irssi::settings_get_bool('neat_right_mode') == 0) {
+		$alignment = \&color_left;
+	} else {
+		$alignment = \&color_right;
+	}
+	
+	# check if we switched coloring on or off
+	my $new = Irssi::settings_get_bool('neat_colorize');
+	if ($new != $colorize) {
+		if ($new) {
+			Irssi::signal_add('message public', 'sig_public');
+		} else {
+			if ($colorize >= 0) {
+				Irssi::signal_remove('message public', 'sig_public');
+			}
+		}
+	}
+	$colorize = $new;
+
+	reformat();
+	&$alignment('%w');
+}
+
+# make sure that every nick has an assigned color
+sub assert_colors() {
+	foreach (Irssi::channels()) {
+		foreach ($_->nicks()) {
+			next if (exists($saved_colors{$_->{nick}}));
+
+			$saved_colors{$_->{nick}} = "%".nick_to_color($_->{nick});
+		}
+	}
+}
+
+# load colors from file
+sub load_colors() {
+	open(FID, "<".$ENV{HOME}."/.irssi/saved_colors") || return;
+
+	while (<FID>) {
+		chomp;
+		my ($k, $v) = split(/:/);
+
+		# skip broken lines, those may have been introduced by nm.pl
+		# version 0.3.7 and earlier
+		if ($k eq '' || $v eq '') {
+			neat_log(Irssi::active_win(), "Warning, broken line in saved_colors file, skipping '$k:$v'");
+			next;
+		}
+
+		$saved_colors{$k} = $v;
+	}
+
+	close(FID);
+}
+
+# save colors to file
+sub save_colors() {
+	open(FID, ">".$ENV{HOME}."/.irssi/saved_colors");
+
+	print FID $_.":".$saved_colors{$_}."\n" foreach (keys(%saved_colors));
+
+	close(FID);
+}
+
+# log a line to a window item
+sub neat_log($@) {
+	my ($witem, @text) = @_;
+
+	$witem->print("nm.pl: ".$_) foreach(@text);
+}
+
+# show available colors
+sub cmd_neatcolor_colors($) {
+	my ($witem, undef, undef) = @_;
+
+	neat_log($witem, "Available colors: ".join("", map { "%".$_.$_ } @colors));
+}
+
+# display the configured color for a nick
+sub cmd_neatcolor_get() {
+	my ($witem, $nick, undef) = @_;
+
+	if (!exists($saved_colors{$nick})) {
+		neat_log($witem, "Error: no such nick '$nick'");
+		return;
+	}
+
+	neat_log($witem, "Color for ".$saved_colors{$nick}.$nick);
+}
+
+# display help
+sub cmd_neatcolor_help() {
+	my ($witem, $cmd, undef) = @_;
+
+	if ($cmd) {
+		if (!exists($commands{$cmd})) {
+			neat_log($witem, "Error: no such command '$cmd'");
+			return;
+		}
+
+		if (!exists($commands{$cmd}{verbose})) {
+			neat_log($witem, "No additional help for '$cmd' available");
+			return;
+		}
+
+		neat_log($witem, ( "", "Help for ".uc($cmd), "" ) );
+		neat_log($witem, @{$commands{$cmd}{verbose}});
+		return;
+	}
+
+	neat_log($witem, split(/\n/, $help));
+	neat_log($witem, "Available options for /neatcolor");
+	neat_log($witem, "    ".$_.": ".$commands{$_}{text}) foreach(sort(keys(%commands)));
+
+	my @verbose;
+	foreach (sort(keys(%commands))) {
+		push(@verbose, $_) if exists($commands{$_}{verbose});
+	}
+
+	neat_log($witem, "Verbose help available for: '".join(", ", @verbose)."'");
+}
+
+# list configured nicks
+sub cmd_neatcolor_list() {
+	my ($witem, undef, undef) = @_;
+
+	neat_log($witem, "Configured nicks: ".join(", ", map { $saved_colors{$_}.$_ } sort(keys(%saved_colors))));
+}
+
+# reset a nick to its default color
+sub cmd_neatcolor_reset() {
+	my ($witem, $nick, undef) = @_;
+
+	if ($nick eq '--all') {
+		%saved_colors = ();
+		assert_colors();
+		neat_log($witem, "Reset all colors");
+		return;
+	}
+
+	if (!exists($saved_colors{$nick})) {
+		neat_log($witem, "Error: no such nick '$nick'");
+		return;
+	}
+
+	$saved_colors{$nick} = "%".nick_to_color($nick);
+	neat_log($witem, "Reset color for ".$saved_colors{$nick}.$nick);
+}
+
+# save configured colors to disk
+sub cmd_neatcolor_save() {
+	my ($witem, undef, undef) = @_;
+
+	save_colors();
+
+	neat_log($witem, "color information saved");
+}
+
+# set a color for a nick
+sub cmd_neatcolor_set() {
+	my ($witem, $nick, $color) = @_;
+
+	my @found = grep(/$color/, @colors);
+	if ($#found) {
+		neat_log($witem, "Error: trying to set unknown color '%$color$color%n'");
+		cmd_neatcolor_colors($witem);
+		return;
+	}
+
+	if ($witem->{type} ne "CHANNEL" && $witem->{type} ne "QUERY") {
+		neat_log($witem, "Warning: not a Channel/Query, can not check nick!");
+		neat_log($witem, "Remember, nicks are case sensitive to nm.pl");
+	} else {
+		my @nicks = grep(/^$nick$/i, map { $_->{nick} } ($witem->nicks()));
+
+		if ($#nicks < 0) {
+			neat_log($witem, "Warning: could not find nick '$nick' here");
+		} else {
+			if ($nicks[0] ne $nick) {
+				neat_log($witem, "Warning: using '$nicks[0]' instead of '$nick'");
+				$nick = $nicks[0];
+			}
+		}
+	}
+
+	$saved_colors{$nick} = "%".$color;
+	neat_log($witem, "Set color for $saved_colors{$nick}$nick");
+}
+
+%commands = (
+	colors => {
+		text => "show available colors",
+		verbose => [
+			"COLORS",
+			"",
+			"displays all available colors",
+			"",
+			"You can restrict/define the list of available colors ".
+			"with the help of the neat_colors setting"
+		],
+		func => \&cmd_neatcolor_colors,
+	},
+	get => {
+		text => "retrieve color for a nick",
+		verbose => [
+			"GET <nick>",
+			"",
+			"displays color used for <nick>"
+		],
+		func => \&cmd_neatcolor_get,
+	},
+	help => {
+		text => "print this help message",
+		func => \&cmd_neatcolor_help,
+	},
+	list => {
+		text => "list configured nick/color pairs",
+		func => \&cmd_neatcolor_list,
+	},
+	reset => {
+		text => "reset color to default",
+		verbose => [
+			"RESET --all|<nick>",
+			"",
+			"resets the color used for all nicks or for <nick> to ",
+			"its internal default",
+		],
+		func => \&cmd_neatcolor_reset,
+	},
+	save => {
+		text => "save color information to disk",
+		verbose => [
+			"SAVE",
+			"",
+			"saves color information to disk, so that it survives ".
+			"an irssi restart.",
+			"",
+			"Color information will be automatically saved on /quit",
+		],
+		func => \&cmd_neatcolor_save,
+	},
+	set => {
+		text => "set a specific color for a nick",
+		verbose => [
+			"SET <nick> <color>",
+			"",
+			"use <color> for <nick>",
+			"",
+			"This command will perform a couple of sanity checks, ".
+			"when called from a CHANNEL/QUERY window",
+			"",
+			"EXAMPLE:",
+			"  /neatcolor set bc-bd r",
+			"",
+			"use /neatcolor COLORS to see available colors"
+		],
+		func => \&cmd_neatcolor_set,
+	},
+);
+
+# the main command callback that gets called for all neatcolor commands
+sub cmd_neatcolor() {
+	my ($data, $server, $witem) = @_;
+	my ($cmd, $nick, $color) = split (/ /, $data);
+
+	$cmd = lc($cmd);
+
+	# make sure we have a valid witem to print text to
+	$witem = Irssi::active_win() unless ($witem);
+
+	if (!exists($commands{$cmd})) {
+		neat_log($witem, "Error: unknown command '$cmd'");
+		&{$commands{"help"}{"func"}}($witem) if (exists($commands{"help"}));
+		return;
+	}
+
+	&{$commands{$cmd}{"func"}}($witem, $nick, $color);
+}
+
+Irssi::settings_add_bool('misc', 'neat_left_messages', 0);
+Irssi::settings_add_bool('misc', 'neat_left_actions', 0);
+Irssi::settings_add_bool('misc', 'neat_right_mode', 1);
+Irssi::settings_add_int('misc', 'neat_maxlength', 0);
+Irssi::settings_add_int('misc', 'neat_melength', 2);
+Irssi::settings_add_bool('misc', 'neat_colorize', 1);
+Irssi::settings_add_str('misc', 'neat_colors', 'rRgGyYbBmMcC');
+Irssi::settings_add_str('misc', 'neat_ignorechars', '');
+Irssi::settings_add_bool('misc', 'neat_allow_shrinking', 1);
+
+Irssi::command_bind('neatcolor', 'cmd_neatcolor');
+
+Irssi::signal_add('nicklist new', 'sig_newNick');
+Irssi::signal_add('nicklist changed', 'sig_changeNick');
+Irssi::signal_add('nicklist remove', 'sig_removeNick');
+
+Irssi::signal_add('setup changed', 'sig_setup');
+Irssi::signal_add_last('setup reread', 'sig_setup');
+
+findLongestNick();
+sig_setup;
+
+load_colors();
+assert_colors();
+
+# we need to add this signal _after_ the colors have been loaded, to make sure
+# no race condition exists wrt color saving
+Irssi::signal_add('gui exit', 'save_colors');
diff --git a/scripts/nocaps.pl b/scripts/nocaps.pl
new file mode 100644
index 0000000..1520392
--- /dev/null
+++ b/scripts/nocaps.pl
@@ -0,0 +1,96 @@
+# nocaps.pl
+#
+# Stops people SHOUTING ON IRC
+#
+# Settings:
+#    caps_replace: How to notify you something was changed. Default is 
+#                  "<caps>text</caps>". 'text' is replaced with what they said.
+#    caps_sensitivity: If the line is this shorter than this, all caps is
+#                      allowed. Default = 6
+#    caps_percent: If the line has more than this percent caps in it, it's
+#                  transformed to lowercase. Default = 80.
+#
+# Thanks to Johan "Ion" Kiviniemi from #irssi for some of the stuff
+#
+# Example output (all these lines were all caps originally):
+#  [@NoTopic] Boomskdfhh£$(&* [caps]
+#  [@NoTopic] Boomfdkjh. Kdfhkdf. Kddkh. [caps]
+#  [@NoTopic] Jamesoff: Boom*£&$&*£hdfjkhjfksdfljdksjgfkj*&^£* [caps]
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+
+$VERSION = '1.01';
+%IRSSI = (
+    authors	=> 'JamesOff, Ion',
+    contact	=> 'james@jamesoff.net',
+    name	=> 'nocaps',
+    description	=> 'Replaces lines in ALL CAPS with something easier on the eyes',
+    license	=> 'Public Domain',
+    url		=> 'http://www.jamesoff.net',
+    changed	=> '22 March 2002 12:34:38',
+);
+
+
+sub isAllCaps {
+	my ($msg) = @_;
+	#strip out everything that's not letters
+	$msg =~ s/[^A-Za-z]+//g;
+
+	#msgs with no letters in are a waste of time
+	return 0 if (!length($msg));
+	my $capsonly = $msg;
+	
+	#only caps
+	$capsonly =~ s/[^A-Z]+//g;
+
+	#if it's all caps and less than caps_sensitivity, return 0
+	my $minimum = Irssi::settings_get_str('caps_sensitivity');
+	return 0 if ((length($capsonly) < $minimum));
+	
+	#check percentage
+	my $percentage = Irssi::settings_get_str('caps_percent');
+	if (((length($capsonly) / length($msg)) * 100) > $percentage) {
+		#too many caps!
+		return 1;
+	}
+
+	return 0;
+}
+
+#main event handler
+sub caps_message {
+	my ($server, $data, $nick, $address) = @_;
+	my ($target, $msg) = split(/ :/, $data,2);
+
+	if (isAllCaps($msg)) {
+		#bleh, a line in ALL CAPS£*$&(*(£$&
+		$msg =~ tr/A-Z/a-z/;
+
+		# foo bar biz. blah quux. -> Foo bar biz. Blah quux.
+		$msg =~ s/(^\s*|[.!?]\s+)(\w)/$1 . uc $2/eg;
+
+		# Nick: hello -> Nick: Hello.
+		$msg =~ s/^(\S+:\s*)(\w)/$1 . uc $2/e;
+
+		#:<d|p|o> --> capital letter (for |Saruman| )
+		$msg =~ s/([=:;][dpo])/uc $1/eg;
+
+		my $replacement = Irssi::settings_get_str('caps_replace');
+		$replacement =~ s/text/$msg/;
+
+		#re-emit the signal to make Irssi display it
+		Irssi::signal_emit('event privmsg', ($server, "$target :$replacement", $nick, $address));
+		#and stop
+		Irssi::signal_stop();
+	}
+}
+
+Irssi::signal_add('event privmsg', 'caps_message');
+
+Irssi::settings_add_str('misc', 'caps_replace', "<caps>text</caps>");
+Irssi::settings_add_str('misc', 'caps_sensitivity', "6");
+Irssi::settings_add_str('misc', 'caps_percent', "80");
diff --git a/scripts/nocollide.pl b/scripts/nocollide.pl
new file mode 100644
index 0000000..d2f8177
--- /dev/null
+++ b/scripts/nocollide.pl
@@ -0,0 +1,118 @@
+#
+# This script will change your nickname if in given time (/SET collision_time [seconds])
+# there are more than specific number of collisions (/SET collision_count [number]) on
+# single channel. After change next nick collisions are ignored for given time
+# (/SET collsion_ignore [seconds]).
+# Settings:
+#		/SET collision_avoid [On/Off] (default is on, if off - action disabled)
+#		/SET collision_count [number]
+#		/SET collision_time [seconds]
+#		/SET collision_ignore [seconds]
+#		/SET collision_baselen [0-6]
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.2.3";
+%IRSSI = (
+	'authors'		=> 'Marcin Rozycki',
+	'contact'		=> 'derwan@irssi.pl',
+	'name'			=> 'nocollide',
+	'description'		=> 'Automatically changes nick (to randnick or uid on ircd 2.11) when certain amount of nick colissions'.
+	                           'takes place on channel',
+	'url'			=> 'http://derwan.irssi.pl',
+	'license'		=> 'GNU GPL v2',
+	'changed'		=> 'Mon Feb 16 10:08:59 CET 2004',
+);
+
+my $default_time = 5;
+my $default_count = 2;
+my $default_ignore = 10;
+my $default_baselen = 5;
+
+Irssi::settings_add_bool('misc', 'collision_avoid', 1);
+Irssi::settings_add_int('misc', 'collision_time', $default_time);
+Irssi::settings_add_int('misc', 'collision_count', $default_count);
+Irssi::settings_add_int('misc', 'collision_ignore', $default_ignore);
+Irssi::settings_add_int('misc', 'collision_baselen', $default_baselen);
+
+my %collision = ();
+my %collision_changed = ();
+
+sub sig_message_quit {
+	my ($server, $nick, $null, $quit_msg) = @_;
+
+	# based on cras'es kills.pl
+	return if ($quit_msg !~ /^Killed \(([^ ]*) \((.*)\)\)$/ or !$server or !$server->{connected} or
+			!$nick or !Irssi::settings_get_bool('collision_avoid'));
+
+	my $time = time(); my $tag = lc($server->{tag}); my $change = 0;
+
+	my $check_time = Irssi::settings_get_int('collision_time');
+	$check_time = $default_time if (!$check_time or $check_time !~ /^\d+$/);
+
+	my $check_count = Irssi::settings_get_int('collision_count');
+	$check_count = $default_count if (!$check_count or $check_count !~ /^\d+$/);
+	$check_count = 10 if (--$check_count > 10);
+
+	my $ignore = Irssi::settings_get_int('collision_ignore');
+	$ignore = $default_ignore if (!$ignore or $ignore !~ /^\d+$/);
+
+	my $version = $server->{version};
+	$version = 0 unless ( defined $version );
+	
+	my @list = $server->nicks_get_same($nick);
+	while (my $channel = shift(@list)) {
+		shift(@list);
+
+		my $chan = lc($channel->{name});
+		unshift @{$collision{$tag}{$chan}}, $time; $#{$collision{$tag}{$chan}} = 10;
+		next if ( $server->{nick} =~ m/^\d/ );
+		
+		next unless ($check_count > 0 and $check_time > 0);
+
+		my $test = $collision{$tag}{$chan}[$check_count];
+		if ($test and $test >= ($time - $check_time)) {
+			my $last = $collision_changed{$tag};
+			next if ($last and ($time - $last) < $ignore);
+			
+			$collision_changed{$tag} = $time;
+			delete $collision{$tag}{$chan};
+			next if ($change++);
+
+			if ( $version =~ m/^2.11/ ) {
+				$channel->print("%RNick collision alert%n in %_".$channel->{name}."%_ \(rate ".($check_count + 1)."\:$check_time\). Changing nick to %_uid%_!", MSGLEVEL_CLIENTCRAP);
+				$server->send_raw('NICK 0');
+				next;
+			}
+			
+			my $len = Irssi::settings_get_int('collision_baselen');
+			$len = 6 if ($len > 6);
+			my $nick = randnick(substr($server->{nick}, 0, $len));
+			$channel->print("%RNick collision alert%n in %_".$channel->{name}."%_ \(rate ".($check_count + 1)."\:$check_time\). Changing nick to \'%_$nick%_\'", MSGLEVEL_CLIENTCRAP);
+			$server->command("NICK $nick");
+		}
+	}
+}
+
+# str randnick($prefix, $nicklen);
+# returns random nickname
+sub randnick {
+	my ($base, $length) = @_;
+	$length = 9 if (!$length or $length !~ /^\d+$/);
+
+	# based on fahren's void.scr for LiCe
+	my $chars = 'aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ_-0123456789';
+	my $cchars = (length($base)) ? 64 : 53;
+
+	while (length($base) < $length)
+	{
+		$base .= substr($chars, int(rand($cchars)), 1);
+		$cchars = 64 if ($cchars == 53);
+	}
+	return $base;
+}
+
+Irssi::signal_add_first('message quit', 'sig_message_quit');
diff --git a/scripts/noisyquery.pl b/scripts/noisyquery.pl
new file mode 100644
index 0000000..94328a1
--- /dev/null
+++ b/scripts/noisyquery.pl
@@ -0,0 +1,31 @@
+# prints "Query started with nick in window x" when query windows are
+# created automatically. For irssi 0.7.98
+
+# 21.08.2001 bd@bc-bd.org :: added automatic whois
+
+use Irssi;
+
+$VERSION="0.1.1";
+%IRSSI = (
+	authors=> 'unknown',
+	contact=> 'bd@bc-bd.org',
+	name=> 'noisyquery',
+	description=> 'Prints an info about a newly started Query in your current window and runs a /whois on the nick.',
+	license=> 'GPL v2',
+	url=> 'http://bc-bd.org/software.php3#irssi',
+);
+
+sub sig_query() {
+	my ($query, $auto) = @_;
+
+	# don't say anything if we did /query,
+	# or if query went to active window
+	my $refnum = $query->window()->{refnum};
+	my $window = Irssi::active_win();
+	if ($auto && $refnum != $window->{refnum}) {
+		$window->print("Query started with ".$query->{name}." in window $refnum");
+		$query->{server}->command("whois ".$query->{name});
+	}
+}
+
+Irssi::signal_add_last('query created', 'sig_query');
diff --git a/scripts/nopl.pl b/scripts/nopl.pl
new file mode 100644
index 0000000..2cf794e
--- /dev/null
+++ b/scripts/nopl.pl
@@ -0,0 +1,66 @@
+# nopl.pl
+#
+# Removes polish national diacritic characters from received msgs on irc, 
+# replacing them with their corresponding letters. Can be used against 
+# ISO-8859-2 and Windows-1250 character sets.
+#
+# Settings:
+#
+#    nopl_replace: How to notify you that letters have been changed. Default 
+#                  is "<pl>text</pl>", where "text" is replaced with the 
+#                  message.
+#
+# Thanks to James <james@jamesoff.net> for his nocaps.pl script on which 
+# I have based my nopl (I don't know perl :)).
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+
+$VERSION = '1.00';
+%IRSSI = (
+	authors		=> 'Adam Wysocki',
+	contact		=> 'gophi <at> efnet.pl',
+	name		=> 'nopl',
+	description	=> 'Replaces polish national characters with their corresponding letters',
+	license		=> 'Public Domain',
+	url		=> 'http://www.gophi.rotfl.pl/',
+	changed		=> '10 May 2005 16.12.32',
+);
+
+
+sub have_polish_chars {
+	my ($msg) = @_;
+
+	# only pl-letters
+	$msg =~ s/[^\xF3\xEA\xB6\xB1\xBF\xB3\xE6\xBC\xCA\xF1\xA1\xD3\xA3\xA6\xAC\xAF\xD1\xC6\x9C\xB9\x9F\xA5\x8C\x8F]+//g;
+
+	# if it has pl-letters, return 1 else return 0
+	return 1 if length($msg);
+
+	return 0;
+}
+
+# main event handler
+sub pl_message {
+	my ($server, $data, $nick, $address) = @_;
+	my ($target, $msg) = split(/ :/, $data, 2);
+
+	return if (!have_polish_chars($msg));
+
+	# bleh, a line contains pl-chars
+	$msg =~ tr/\xF3\xEA\xB6\xB1\xBF\xB3\xE6\xBC\xCA\xF1\xA1\xD3\xA3\xA6\xAC\xAF\xD1\xC6\x9C\xB9\x9F\xA5\x8C\x8F/oesazlczEnAOLSZZNCsazASZ/;
+
+	my $replacement = Irssi::settings_get_str('pl_replace');
+	$replacement =~ s/text/$msg/;
+
+	# display it
+	Irssi::signal_emit('event privmsg', ($server, "$target :$replacement", $nick, $address));
+
+	# and stop
+	Irssi::signal_stop();
+}
+
+Irssi::signal_add('event privmsg', 'pl_message');
+Irssi::settings_add_str('misc', 'pl_replace', "<pl>text</pl>");
diff --git a/scripts/norepeat.pl b/scripts/norepeat.pl
new file mode 100644
index 0000000..02aec56
--- /dev/null
+++ b/scripts/norepeat.pl
@@ -0,0 +1,76 @@
+use strict;
+use Digest::MD5 'md5_hex';
+
+use Irssi qw(settings_add_bool settings_get_bool signal_add signal_add_first signal_stop );
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.5';
+%IRSSI = (
+   authors => 'Marcin Rozycki',
+   contact => 'derwan@irssi.pl',
+   url => 'http://derwan.irssi.pl',
+   name => 'norepeat',
+   description => 'stops public repeating',
+   license => 'GNU GPL v2',
+   modules => 'Digest::MD5',
+   changed => 'Tue Sep  9 16:34:44 CEST 2003',
+);
+
+our $norepeat_enabled = 1;
+settings_add_bool('misc', 'norepeat_enabled', $norepeat_enabled);
+
+signal_add('setup changed' => sub {
+   $norepeat_enabled = settings_get_bool('norepeat_enabled');
+} );
+
+our %last_message = ();
+our $last_timeout = 300;
+
+sub check_last_message ($$$$$) {
+  my ($server, $data, $nick, $address, $target) = @_;
+  my ($time, $nick, $target, $md5) = (time, lc $nick, lc $target, md5_hex($data));
+  if ( $norepeat_enabled and my $ref = $last_message{$server->{tag}}{$target}{$nick} ) {
+    signal_stop(), return if ( $ref->[0] eq $md5 and $time - $ref->[1] <= $last_timeout  );
+  }
+  remove_last_message($server, $target, $nick); 
+  $last_message{$server->{tag}}{$target}{$nick} = [ $md5, $time ];
+}
+
+sub remove_last_message ($$$) {
+  my ($server, $target, $nick) = @_;  
+  if ( my $ref = delete $last_message{$server->{tag}}{$target}{$nick} ) {
+    @{$ref} = (); 
+  }
+}
+
+sub last_message_clear ($;$) {
+  my $chanrec = shift;
+  my $target = lc $chanrec->{name};
+  foreach my $nick ( keys %{$last_message{$chanrec->{server}->{tag}}{$target}} ) {
+     remove_last_message($chanrec->{server}, $target, $nick);
+  }
+  %{$last_message{$chanrec->{server}->{tag}}{$target}} = ();
+}
+
+signal_add_first('message public', \&check_last_message); 
+signal_add_first('message irc action', \&check_last_message);
+signal_add_first('message irc notice', \&check_last_message);
+
+signal_add('nicklist remove' => sub {
+  my ($chanrec, $nickrec) = @_;
+  remove_last_message($chanrec->{server}, lc $chanrec->{name}, lc $nickrec->{nick});
+});
+
+signal_add('nicklist new' => sub {
+  my ($chanrec, $nickrec) = @_;
+  remove_last_message($chanrec->{server}, lc $chanrec->{name}, lc $nickrec->{nick});
+});
+
+signal_add('nicklist changed' => sub {
+  my ($chanrec, $nickrec, $oldnick) = @_;
+  $last_message{$chanrec->{server}->{tag}}{lc $chanrec->{name}}{lc $nickrec->{nick}} =
+     delete $last_message{$chanrec->{server}->{tag}}{lc $chanrec->{name}}{lc $oldnick};
+} );
+
+signal_add('channel created', \&last_message_clear);
+signal_add('channel destroyed', \&last_message_clear);
diff --git a/scripts/notes.pl b/scripts/notes.pl
new file mode 100644
index 0000000..e2df219
--- /dev/null
+++ b/scripts/notes.pl
@@ -0,0 +1,277 @@
+# First, add $NOTE to your /format whois line so the output is shown, for example use
+# '/format whois {nick $0} {nickhost $1@$2}%:{whois ircname $3}%:{whois note $NOTE}' which would produce
+# Dec 12 21:24:18 -!- vague [~vague@c-e0ebe055.14-500-64736c10.cust.bredbandsbolaget.se]
+# Dec 12 21:24:18 -!-  ircname  : vague
+# Dec 12 21:24:18 -!-  note     : A nice guy but can be a PITA :)
+# ...
+#
+# See /notes help for more help
+#
+# Prerequisites:
+# irssi 0.8.13+
+# DBM::Deep
+# DBI
+
+use Irssi;
+use DBI;
+use Data::Dumper;
+use DBM::Deep;
+
+use vars qw($VERSION %IRSSI);
+
+my $VERSION = '0.31';
+my %IRSSI = (
+    authors     => 'vague',
+    contact     => 'vague!#irssi\@freenode',
+    name        => 'notes',
+    description => 'Keeps notes on users and displayes the note in /whois output if the host/nick matches',
+    license     => 'GPL2',
+);
+
+my $notes;
+my $note_expando = '';
+my @chatnets;
+push @chatnets, $_->{name} for(Irssi::chatnets());
+
+my $DEBUG_ENABLED = 1;
+sub DEBUG { $DEBUG_ENABLED }
+
+sub init {
+  my $filename = Irssi::settings_get_str("notes_db") || Irssi::get_irssi_dir() . "/notes.db";
+  $notes = DBM::Deep->new( $filename );
+}
+
+sub _print {
+  my ($msg) = @_;
+  Irssi::active_win->print($msg, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+sub _error {
+  my ($msg) = @_;
+  Irssi::active_win->print($msg, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+sub _debug_print {
+  return unless DEBUG;
+  my ($msg) = @_;
+  Irssi::active_win->print($msg, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+sub sig_whois {
+  my ($server, $data, undef, undef) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+
+  if(exists $notes->{lc $server->{tag}}->{nick}->{lc $nick}) {
+    $note_expando = $notes->{lc $server->{tag}}->{nick}->{lc $nick};
+  }
+  else {
+    my $masks = $notes->{lc $server->{tag}}->{mask};
+    while(my ($mask, $value) = each %$masks) {
+      if($server->mask_match_address(lc $mask, '*', "$nick!$user\@$host")) {
+        $note_expando = $value;
+        return;
+      }
+    }
+  }
+}
+
+sub expando_note {
+  my ($tmp) = $note_expando;
+  $note_expando = '';
+  return $tmp;
+}
+
+sub cmd_notes_add {
+  my ($args, $server, $witem) = @_;
+  my $tmpargs = [ sort {$a =~ /^-/ <=> $b !~ /^-/} split / /, $args ];
+  my @options_list = Irssi::command_parse_options('notes add', join(' ', @$tmpargs));
+
+  if(!@options_list) {
+    _error "Could not parse arguments\n" . usage();
+    return;
+  }
+
+  my @minusargs = grep {/^-/} split / /, $args;
+  my @rest = grep {!/^-/} split / /, $args;
+  my ($network, $type, $pattern);
+
+  foreach(@minusargs) {
+    s/^-//;
+    if(/nick|mask/i) {
+      $type = $_;
+      $pattern = shift @rest;
+    }
+    else {
+      if(join(' ', @chatnets) =~ /$_/i) {
+        $network = $_;
+      }
+    }
+  }
+
+  if(not defined $network) {
+    $network = Irssi::active_server()->{tag};
+  }
+
+  unless ($type || $pattern) {
+    _error "Could not parse command\n" . usage();
+    return;
+  }
+
+  $notes->{lc $network}->{lc $type}->{lc $pattern} = join ' ', @rest;
+  _print "Added $pattern to $network";
+}
+
+sub cmd_notes_del {
+  my ($args, $server, $witem) = @_;
+  my $tmpargs = [ sort {$a =~ /^-/ <=> $b !~ /^-/} split / /, $args ];
+  my @options_list = Irssi::command_parse_options('notes del', join(' ', @$tmpargs));
+
+  if(!@options_list) {
+    _error "Could not parse arguments\n" . usage();
+    return;
+  }
+
+  my @minusargs = grep {/^-/} split / /, $args;
+  my @rest = grep {!/^-/} split / /, $args;
+  my ($network, $type, $pattern, $purge);
+
+  foreach(@minusargs) {
+    s/^-//;
+    if(/nick|mask/i) {
+      $type = $_;
+      $pattern = shift @rest;
+    }
+    elsif(/purge/) {
+      $purge = 1;
+    }
+    else {
+      if(join(' ', @chatnets) =~ /$_/i) {
+        $network = $_;
+      }
+    }
+  }
+
+  unless ($purge || $type || $pattern) {
+    _error "Could not parse command\n" . usage();
+    return;
+  }
+
+  if($purge) {
+    if(defined $network) {
+      delete $notes->{lc $network};
+      _print "Deleted all notes in $network";
+    }
+    else {
+      $notes->clear;
+      _print "Deleted all notes";
+    }
+  }
+  else {
+    if(not defined $network) {
+      $network = Irssi::active_server()->{tag};
+    }
+
+    if(exists $notes->{lc $network}->{lc $type}->{lc $pattern}) {
+      delete $notes->{lc $network}->{lc $type}->{lc $pattern};
+      _print "Deleted $pattern from $network";
+    }
+    else {
+      _error "\u$type '$pattern' on '$network' not found";
+    }
+  }
+}
+
+sub cmd_notes_list {
+  my ($args, $server, $witem) = @_;
+  my $tmpargs = [ sort {$a =~ /^-/ <=> $b !~ /^-/} split / /, $args ];
+  my @options_list = Irssi::command_parse_options('notes list', join(' ', @$tmpargs));
+
+  if(!@options_list) {
+    _error "Could not parse arguments\n" . usage();
+    return;
+  }
+
+  my @minusargs = grep {/^-/} split / /, $args;
+  my @rest = grep {!/^-/} split / /, $args;
+  my ($network, $type, $pattern, $all);
+
+  foreach(@minusargs) {
+    s/^-//;
+    if(/nick|mask/i) {
+      $type = $_;
+      $pattern = shift @rest;
+    }
+    elsif(/all/) {
+      $all = 1;
+    }
+    else {
+      if(join(' ', @chatnets) =~ /$_/i) {
+        $network = $_;
+      }
+    }
+  }
+
+  if(not defined $network) {
+    $network = Irssi::active_server()->{tag};
+  }
+
+  if($all) {
+    foreach my $tag (keys %$notes) {
+      Irssi::active_win()->{active}->print("--- Notes for $tag ---");
+      my $nicks = $notes->{$tag}->{nick};
+      while(my ($nick, $value1) = each %$nicks) {
+        Irssi::active_win()->{active}->print($nick . ": " . $value1);
+      }
+      my $masks = $notes->{$tag}->{mask};
+      while(my ($hostmask, $value2) = each %$masks) {
+        Irssi::active_win()->{active}->print($hostmask . ": " . $value2);
+      }
+    }
+  }
+  else {
+    if(defined $type && defined $pattern) {
+      Irssi::active_win()->{active}->print("--- Note on $network/$pattern ---");
+      Irssi::active_win()->{active}->print($notes->{lc $network}->{lc $type}->{lc $pattern});
+    }
+    else {
+      Irssi::active_win()->{active}->print("--- Notes for $network ---");
+      my $nicks = $notes->{lc $network}->{nick};
+      while(my ($nick, $value1) = each %$nicks) {
+        Irssi::active_win()->{active}->print($nick . ": " . $value1);
+      }
+      my $masks = $notes->{lc $network}->{mask};
+      while(my ($hostmask, $value2) = each %$masks) {
+        Irssi::active_win()->{active}->print($hostmask . ": " . $value2);
+      }
+    }
+  }
+}
+
+sub usage {
+  return "Usage: %_/notes%_ add [-tag] -nick|-mask pattern <notes>\n" .
+         "       %_/notes%_ del [-tag] -purge|(-nick|-mask pattern)\n" .
+         "       %_/notes%_ list [-tag] -all|(-nick|-mask pattern)";
+}
+
+Irssi::command_bind('notes' => sub {
+  my ( $data, $server, $item ) = @_;
+  $data =~ s/\s+$//g;
+  Irssi::command_runsub ('notes', $data, $server, $item ) ;
+});
+
+Irssi::command_bind('notes add', \&cmd_notes_add);
+Irssi::command_bind('notes del', \&cmd_notes_del);
+Irssi::command_bind('notes list', \&cmd_notes_list);
+Irssi::command_bind('notes help', sub { Irssi::active_win()->print(usage()); });
+
+Irssi::command_set_options('notes add', join(' ', @chatnets) . ' nick mask');
+Irssi::command_set_options('notes del', join(' ', @chatnets) . ' purge nick mask');
+Irssi::command_set_options('notes list', join(' ', @chatnets) . ' all nick mask');
+
+Irssi::settings_add_str('Notes', 'notes_db', Irssi::get_irssi_dir() . "/notes.db");
+
+Irssi::signal_add_first('event 311', \&sig_whois);
+Irssi::expando_create('NOTE', \&expando_note,
+                     {'event 311' => 'None' });
+
+init();
diff --git a/scripts/noteserve.pl b/scripts/noteserve.pl
new file mode 100644
index 0000000..5fbb79c
--- /dev/null
+++ b/scripts/noteserve.pl
@@ -0,0 +1,89 @@
+# by Stefan 'tommie' Tomanek
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2002123101";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "NoteServ",
+    description => "Utilizes NoteServ to implement a buddylist",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    sbitems     => "noteserv"
+);
+
+use Irssi;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+use vars qw(%notifies);
+
+sub sig_event_connected ($) {
+    my ($server) = @_;
+    my $net = Irssi::settings_get_str('noteserv_ircnet');
+    return unless (lc $server->{tag} eq lc $net);
+    my $username = Irssi::settings_get_str('noteserv_login');
+    my $password = Irssi::settings_get_str('noteserv_password');
+    return unless $username && $password;
+    $server->command('squery noteserv login '.$username.' '.$password);
+    $server->command('squery noteserv notify');
+}
+
+sub sig_server_disconnected ($) {
+    my ($server) = @_;
+    my $net = Irssi::settings_get_str('noteserv_ircnet');
+    return unless (lc $server->{tag} eq lc $net);
+    %notifies = ();
+}
+
+sub sig_message_irc_notice ($$$) {
+    my ($server, $msg, $nick, $address, $target) = @_;
+    return unless lc $nick eq 'noteserv';
+    #print $msg;
+    if ($msg =~ /\d+\. Notify: (.*?)\!(.*?)\@(.*?) \(.*?\)/) {
+	my ($name, $user, $host, $time) = ($1,$2,$3,$4);
+    } elsif ($msg =~ /^(.*?) \((.*?)\) is on \(.*?\)/) {
+	$notifies{$1} = { mask => $2, status => 1 };
+	Irssi::statusbar_items_redraw('noteserv');
+	Irssi::signal_stop() if Irssi::settings_get_bool('noteserv_hide_messages');
+    } elsif ($msg =~ /^(.*?) \((.*?)\) gets (in)?visible/) {
+	$notifies{$1} = { mask => $2, status => not defined $3 };
+	Irssi::statusbar_items_redraw('noteserv');
+	Irssi::signal_stop() if Irssi::settings_get_bool('noteserv_hide_messages');
+    } elsif ($msg =~ /^(.*?) \((.*?)\) signs (on|off)/) {
+	$notifies{$1} = { mask => $2, status => ($3 eq 'on') };
+	Irssi::statusbar_items_redraw('noteserv');
+	Irssi::signal_stop() if Irssi::settings_get_bool('noteserv_hide_messages');
+    }
+}
+
+sub draw_bar ($$) {
+    my ($item, $get_size) = @_;
+    my $line = "";
+    foreach (keys %notifies) {
+	if ($notifies{$_}{status}) {
+	    $line .= '%Go%n';
+	} else {
+	    $line .= '%Ro%n';
+	}
+	$line .= ' '.$_.' ';
+    }
+    my $format = "{sb ".$line."}";
+    $item->{min_size} = $item->{max_size} = length($line);
+    $item->default_handler($get_size, $format, 0, 1);
+}
+
+Irssi::signal_add('message irc notice', \&sig_message_irc_notice);
+Irssi::statusbar_item_register('noteserv', 0, "draw_bar");
+
+Irssi::settings_add_str('NoteServ', 'noteserv_ircnet', 'IRCNet');
+Irssi::settings_add_str('NoteServ', 'noteserv_login', '');
+Irssi::settings_add_str('NoteServ', 'noteserv_password', '');
+Irssi::settings_add_bool('NoteServ', 'noteserv_show_offline', 1);
+Irssi::settings_add_bool('NoteServ', 'noteserv_hide_messages', 0);
+
+Irssi::signal_add('event connected', \&sig_event_connected);
+Irssi::signal_add('server disconnected', \&sig_server_disconnected);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded';
diff --git a/scripts/noticemove.pl b/scripts/noticemove.pl
new file mode 100644
index 0000000..a5ee386
--- /dev/null
+++ b/scripts/noticemove.pl
@@ -0,0 +1,48 @@
+# Prints private notices from people in the channel where they are joined
+# with you. Useful when you get lots of private notices from some bots.
+# for irssi 0.7.99 by Timo Sirainen
+
+# v1.01 - history:
+#   - fixed infinite loop when you weren't connected to server :)
+
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "1.01";
+%IRSSI = (
+    authors     => "Timo Sirainen",
+    contact	=> "tss\@iki.fi", 
+    name        => "notice move",
+    description => "Prints private notices from people in the channel where they are joined with you. Useful when you get lots of private notices from some bots.",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100",
+    changes	=> "v1.01 - fixed infinite loop when you weren't connected to server :)"
+);
+
+my $insig = 0;
+
+sub sig_print_text {
+  my ($dest, $text, $stripped) = @_;
+  my $server = $dest->{server};
+
+  # ignore non-notices and notices in channels
+  return if (!$server || 
+	     !($dest->{level} & MSGLEVEL_NOTICES) ||
+	     $server->ischannel($dest->{target}));
+
+  return if ($insig);
+  $insig = 1;
+
+  # print the notice in the first channel the sender is joined
+  foreach my $channel ($server->channels()) {
+    if ($channel->nick_find($dest->{target})) {
+      $channel->print($text, MSGLEVEL_NOTICES);
+      Irssi::signal_stop();
+      last;
+    }
+  }
+
+  $insig = 0;
+}
+
+Irssi::signal_add('print text', 'sig_print_text');
diff --git a/scripts/notonline.pl b/scripts/notonline.pl
new file mode 100644
index 0000000..57a28a8
--- /dev/null
+++ b/scripts/notonline.pl
@@ -0,0 +1,76 @@
+# Answers "$nick: No." if you're away and someone asks are you online on a channel.
+
+use strict;
+use Irssi;
+use locale;
+
+use vars qw($VERSION %IRSSI %answers $floodlimit %floodi);
+
+$VERSION = '0.9';
+%IRSSI = (
+    authors     => 'Johan "Ion" Kiviniemi',
+    contact     => 'ion at hassers.org',
+    name        => 'NotOnline',
+    description =>
+'Answers "$nick: No." if you\'re away and someone asks are you online on a channel',
+    license => 'Public Domain',
+    url     => 'http://ion.amigafin.org/irssi/',
+    changed => 'Tue Mar 12 22:20 EET 2002',
+);
+
+%answers = (
+    'online'    => 'Offline.',
+    'there'     => 'Not here.',
+    'idle'      => 'Of course.',
+    'paikalla'  => 'En, vaan paikassa.',
+    'siellä'    => 'Ei kun tuolla.',
+    'siellä'   => 'Ei kun tuolla.',
+    'hereillä'  => 'Nukkumassa.',
+    'hereillä' => 'Nukkumassa.',
+);
+
+$floodlimit = 600;    # notice the same channel only once in N seconds
+%floodi     = ();
+
+Irssi::signal_add_last(
+    'message public' => sub {
+        my ($server, $msg, $nick, $address, $target) = @_;
+
+        # Am i away?
+        return unless $server->{usermode_away};
+
+        # Am i asked about something?
+        my $own_nick = $server->{nick};
+        $own_nick =~ s/\W//g;
+        return
+          unless $msg =~ /^(\Q$server->{nick}\E|\Q$own_nick\E)\s*[,:].+\?/i;
+
+        # Is it me who's talking?
+        return if $nick eq $server->{nick};
+
+        # Are you asking the right question?
+        my $answer;
+        foreach (keys %answers) {
+            $answer = $answers{$_} if $msg =~ /\b\Q$_\E\b/i;
+        }
+        return unless $answer;
+
+        # You aren't flooding, are you?
+        if (defined $floodi{$target}) {
+            if (time - $floodi{$target} < $floodlimit) {
+                return;
+            } else {
+                undef $floodi{$target};
+            }
+        }
+
+        $nick =~ s/\W//g;
+        $nick = lc $nick
+          if Irssi::settings_get_bool('completion_nicks_lowercase');
+        $nick .= Irssi::settings_get_str('completion_char') || ":";
+
+        $floodi{$target} = time;
+        $server->command("msg $target $nick $answer");
+        # Irssi::print("msg $target $nick $answer");
+    }
+);
diff --git a/scripts/null.pl b/scripts/null.pl
new file mode 100644
index 0000000..6c96260
--- /dev/null
+++ b/scripts/null.pl
@@ -0,0 +1,15 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+
+$VERSION = '1.00';
+%IRSSI = (
+    authors	=> 'Juerd',
+    contact	=> 'juerd@juerd.nl',
+    name	=> 'Nothing at all',
+    description	=> 'This script really does nothing. Sorry.',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/irssi/',
+    changed	=> 'Sun Mar 10 02:14 CET 2002',
+);
diff --git a/scripts/ogg123.pl b/scripts/ogg123.pl
new file mode 100644
index 0000000..274ebbd
--- /dev/null
+++ b/scripts/ogg123.pl
@@ -0,0 +1,95 @@
+# Display current ogg123 track to channel
+# you should run ogg123 as,
+# ogg123 --verbose file1 file2 2> ~/.irssi/scripts/ogg123.log
+# or just put this on a file 
+
+#   #--- ogg123a file ---#
+#   #!/bin/sh
+#   ogg123 --verbose * 2> ~/.irssi/scripts/ogg123.log
+
+# save it as ogg123a and make it executable
+# chmod a+x ogg123a
+#
+# execute it on the directory you have your .ogg files
+# ./ogg123a
+
+
+#
+# HOWTO use "ogg123 script" from Irssi:
+# /ogg123 [#channel] [-h|--help]
+#
+# bugs: if u call it from the "status" window, it ill crash the script, since you arent currently on a channel. 
+# It ill crash the script not the Irssi program, so u shall re-run it.
+#
+# **** note ****
+# Yeah i now that this is a copy of mpg123.pl script ;D
+# to be true it was just a question of doing %s/mpg/ogg/gi and small changes on the regexp, 
+# but its workable, the mpg123 author doenst complain, so who really cares?!  =:)  
+# isnt what all ppl is doing since recent events moving all... mv *.mp3 *.ogg
+
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.01+1";
+%IRSSI = (
+    authors     => 'Ricardo Mesquita',
+    contact	=> 'ricardomesquita@netcabo.pt',
+    name        => 'ogg123',
+    description => 'Display current ogg123 track',
+    url		=> 'http://pwp.netcabo.pt/ricardomesquita/irssi',
+    license     => 'GPLv2',
+    changed	=> 'Mon Nov 27 18:00:00 CET 2006'
+);
+
+my $ogg123file = glob "~/.irssi/scripts/ogg123.log";
+
+
+sub cmd_ogg123 {
+	my ($data, $server, $witem) = @_;
+	my ($ogg123msg, $ogg123linha, $channel);
+
+	my $showhelp="ogg123 irssi script version $VERSION\n/ogg123 [#channel] [-h|--help]";
+	
+	if ($data=~/-h|--help/) {
+		Irssi::print($showhelp);
+		return
+	} else {		
+		if ($data=~ /#./) {
+			$channel = $data;
+		} else {
+			if ($witem->{name} ne "") {
+				$channel = $witem->{name};	
+			}
+		}
+		
+		open (f, $ogg123file) || return;
+
+		while ($ogg123linha=<f>) {		
+			
+			chomp($ogg123linha);
+			if ($ogg123linha=~/Playing:/i) {
+				$ogg123linha =~s/(.*)Playing:\s(.*)/\2/;
+				$ogg123msg="on ogg123 playing $ogg123linha";
+			}
+
+			chomp($ogg123linha);
+			if ($ogg123linha =~/Title:/i) {
+				$ogg123linha =~s/(.*)Title:\s(.*)/\2/;
+				$ogg123msg="on ogg123 playing $ogg123linha";
+			}
+
+			chomp($ogg123linha);
+			if ($ogg123linha =~/Artist:/i) {
+				$ogg123linha =~s/(.*)Artist:\s(.*)/\2/;
+				$ogg123msg.=" - $ogg123linha";
+			}
+		}
+		close(f);
+		$ogg123msg =~ s/[\r\n]/ /g;
+		$server->command("action ".  $channel . " $ogg123msg");
+	}	
+}
+
+Irssi::command_bind('ogg123', 'cmd_ogg123');
diff --git a/scripts/oidenty.pl b/scripts/oidenty.pl
new file mode 100644
index 0000000..f4c812b
--- /dev/null
+++ b/scripts/oidenty.pl
@@ -0,0 +1,77 @@
+#
+# psybnc like oidentd support for irssi
+#
+# requirements:
+# - oidentd (running)
+# - your user needs "spoof" permissions in the /etc/oidentd.conf
+#   looks like:
+#   "user youruser {
+#        default {
+#            allow spoof;
+#        }
+#   }"
+#
+#  if you want to spoof local user you need:
+#  "allow spoof_all;" 
+#
+# - this script works like psybnc oidentd support.              
+#   that means it writes ~/.ispoof and ~/.oidentd.conf
+#   these files have to be writeable.
+#
+# usage:
+# - just run the script.
+#
+# configuration:
+# - the script uses the active "username" field for the connect.
+#   you can alter it global via "/set user_name" 
+#   or per ircnet with "/ircnet add -user ident somenet"
+#
+# how it works:
+# on connect it writes ~/.ispoof and ~/.oidentd.conf
+# you CAN have RACE CONDITIONS HERE. 
+# so delay your connects a bit.
+#
+
+use vars qw ( $VERSION %IRSSI );
+
+$VERSION = "0.0.2";
+%IRSSI = (
+    authors     => 'darix',
+    contact     => 'darix@irssi.org',
+    name        => 'oidenty',
+    description => 'oidentd support for irssi',
+    license     => 'BSD License',
+    url         => 'http://www.irssi.de'
+);
+#
+use strict;
+use warnings;
+
+use Irssi qw ( signal_add  );
+use IO::File;
+
+signal_add 'server looking' => sub {
+    my ( $server ) = @_;
+
+    my $fh = new IO::File "$ENV{'HOME'}/.ispoof", "w";
+    if ( $fh ) {
+        $fh->print ( "$server->{'username'}" );
+        undef $fh;
+    }
+    else {
+        print ( CRAP "cant open $ENV{'HOME'}/.ispoof for writing. $!" );
+    }
+
+    $fh = new IO::File "$ENV{'HOME'}/.oidentd.conf", "w";
+    if ( $fh ) {
+        $fh->print ( "global { reply \"$server->{'username'}\" }" );
+        undef $fh;
+    }
+    else {
+        print ( CRAP "cant open $ENV{'HOME'}/.oidentd.conf for writing. $!" );
+    }
+
+};
+
+print (CRAP "loaded $IRSSI{'name'} v$VERSION by $IRSSI{'authors'} <$IRSSI{'contact'}>. use it at \cBYOUR OWN RISK\cB");
+print (CRAP "$IRSSI{'description'}");
diff --git a/scripts/on.pl b/scripts/on.pl
new file mode 100644
index 0000000..cf37b5f
--- /dev/null
+++ b/scripts/on.pl
@@ -0,0 +1,299 @@
+use Irssi 20011210.0000 ();
+$VERSION = "1.12";
+%IRSSI = (
+    authors     => 'David Leadbeater',
+    contact     => 'dgl@dgl.cx',
+    name        => 'on.pl',
+    description => '/on command - this is very simple and not really designed to be the same as ircII - it tries to fit into Irssi\'s usage style more than emulating ircII.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+use strict;
+my %on;
+
+=head1 on.pl
+
+/on command - this is very simple and not really designed to 
+be the same as ircII - it tries to fit into Irssi's usage style 
+more than emulating ircII.
+
+=head1 Features
+
+This script allow you to bind Irssi commands or a piece of perl 
+code to s particular signal with some forms of filtering.
+
+A command can be set to run in a particular channel (nearly) 
+and on a particular chatnet. The commands that you add are 
+automatically saved into a file (usually ~/.irssi/on.save).
+
+
+=head1 Usage
+
+ /on list
+ /on add [-perl] [-server] [-channel #channel]  [-stop] 'signal name' command
+ /on remove signal name
+ /on reload
+
+=head2 ON ADD
+
+ -perl: Interpret command as perl instead of the default Irssi
+ -server: Only trigger for events from this chat network
+ -channel #channel: only trigger for events in #channel 
+   (only works where $channel->{name} is present (message signals mostly)
+ -stop: Call Irssi::signal_stop() (probably not a good idea to use this)
+
+If you supply a signal name then it must be quoted so it is 
+interpeted as one, if you wish to bind to a numeric then just 
+entering it will work.
+
+Currently if you specify a Irssi command $0 and $$0 are escaped, 
+$0 $1 and so on are the parameters sent to the signal (except the first 
+REC), $$0 and so on are the results of spliting $0 on a space so if 
+the signal is an event then $$0 will usually be your nickname, $$1 
+will be the channel or nickname the numeric is targeting and so on..
+
+=head2 ON REMOVE
+
+This removes *all* events from the signal specified (if you 
+want to remove a numeric you must add event eg: 
+ /on remove event 401
+
+=head2 ON RELOAD 
+
+Reloads the saved list from ~/.irssi/on.save into memory, 
+useful if you have to edit it manually (and very useful during debugging :)
+
+=head1 Examples
+
+These are pretty generic examples, there are many more 
+specific uses for the commands.
+
+To automatically run a /whowas when the no such nick/channel 
+event is recieved:	
+ /on add 401 /whowas $$0
+
+To automatically run a command when you become an irc operator 
+on this chatnet:
+ /on add -server 381 /whatever
+
+To automatically move to a window with activtiy in it on a hilight:
+ /on add 'window hilight' /window goto active
+
+Obviously perl commands could be used here or many different 
+signals (see docs/signals.text in the irssi sources for a list 
+of all the signals)
+
+=cut
+
+Irssi::command_bind('on','cmd_on');
+# This makes tab completion work :)
+Irssi::command_set_options('on','stop server perl +channel');
+load();
+add_signals();
+
+# Loads the saved on settings from the saved file
+sub load {
+   my $file = Irssi::get_irssi_dir . '/on.save';
+   return 0 unless -f $file;
+   open(ON, $file) or return 0;
+   while(<ON>) {
+	  chomp;
+      my($event,$chatnet,$settings,$channel,$cmd) = split /\0/;
+	  push(@{$on{$event}},
+	     {
+		    'chatnet' => $chatnet || 'all',
+			'settings' => $settings,
+			'channel' => $channel,
+			'cmd' => $cmd,
+		 }
+	  );
+   }
+   close(ON);
+   return 1;
+}
+
+# Saves the settings currently in the %on hash into the save file
+sub save {
+   my $file = Irssi::get_irssi_dir . '/on.save';
+   open(ON, ">$file") or return 0;
+   for my $event(keys %on) {
+      for(@{$on{$event}}) {
+	     print ON join("\0", $event, @$_{'chatnet','settings','channel','cmd'}) . "\n";
+	  }
+   }
+   close(ON) or return 0;
+   return 1;
+}
+
+# Adds signals from the hash to irssi (only needs to be called once)
+sub add_signals {
+   for(keys %on) {
+      Irssi::signal_add($_, 'signal_handler');
+   }
+}
+
+# Irssi calls this and it figures out what to do with the event
+sub signal_handler {
+   my($item, @stuff) = @_;
+   my $signal = Irssi::signal_get_emitted();
+
+   if(exists $on{$signal}) {
+      for(@{$on{$signal}}) {
+		 next if $_->{chatnet} ne 'all' and $_->{chatnet} ne $item->{chatnet};
+		 next if $_->{channel} and $item->{name} ne $_->{channel};
+	     event_handle(@$_{'settings','cmd'},$item,@stuff);
+	  }
+   }else{
+      Irssi::signal_remove($signal,'signal_handler');
+   }
+}
+
+# Called with the params needed to handle an event from signal_handler
+sub event_handle {
+   my($settings,$cmd,$item,@stuff) = @_;
+   my %settings = settings_to_hash($settings);
+
+   if($settings{type} == 1) {
+	  local @_;
+	  @_ = ($item,@stuff);
+      eval('no strict;' . $cmd);
+   }else{
+	  $cmd =~ s!\$\$(\d)!(split / /,$stuff[0])[$1]!ge;
+	  $cmd =~ s/\$(\d)/$stuff[$1]/g;
+      $item->command($cmd);
+   }
+
+   Irssi::signal_stop() if $settings{stop};
+}
+
+# Converts the settings string to a nice hash
+sub settings_to_hash {
+   my $settings = shift;
+   my %settings;
+   @settings{'type','stop'} = split //, $settings;
+   return %settings;
+}
+
+# Converts a hash to the settings string
+sub hash_to_settings {
+   my %settings = @_;
+   return join '', @settings{'type','stop'};
+}
+
+# Called by the /on command
+sub cmd_on {
+   my $text = shift;
+   
+   if($text =~ s/^add //) {
+      my($cmd,%options) = option_parse($text);
+	  if(!$options{event} || !$cmd) {
+		 Irssi::print('No '.($cmd ? 'command' : 'event'). ' supplied');
+	  }else{
+	      my($chatnet,%settings,$channel,$event);
+		  $chatnet = ($options{server} ? Irssi::active_server()->{chatnet} : 'all');
+		  $event = $options{event};
+		  $channel = $options{channel};
+		  $settings{type} = $options{perl};
+		  $settings{stop} = $options{stop};
+	      add_on($event,$cmd,$chatnet,$channel,%settings);
+		  save();
+	  }
+   }elsif($text =~ s/^remove //) {
+      if(del_on($text)) {
+		 Irssi::print("Event $text deleted",MSGLEVEL_CLIENTCRAP);
+	  }else{
+		 Irssi::print("Event not found",MSGLEVEL_CLIENTCRAP);
+	  }
+	  save();
+   }elsif($text =~ /^reload/) {
+	  %on = ();
+	  load();
+   }elsif($text eq "help") {
+	  Irssi::print( <<EOF
+Usage:
+/on list
+/on add [-perl] [-server] [-channel #channel]  [-stop] 'signal name' command
+/on remove signal name
+/on reload
+EOF
+   );
+   }else{
+	 Irssi::print("/on help for usage information");
+     on_list();
+   }
+}
+
+# Output a list of the current contents of %on
+sub on_list {
+   if(!keys %on) {
+	  Irssi::print("On list is empty", MSGLEVEL_CLIENTCRAP);
+	  return;
+   }
+   for my $event(keys %on) {
+	   for(@{$on{$event}}) {
+		  Irssi::print("$event: " . 
+		      ($_->{chatnet} ne 'all' ? $_->{chatnet} : '') .
+		      ' ' . $_->{cmd},
+			  MSGLEVEL_CLIENTCRAP
+		  );
+       }
+    }
+}
+
+# Adds into %on and adds a signal if needed.
+sub add_on {
+   my($event,$cmd,$chatnet,$channel,%settings) = @_;
+   
+   Irssi::signal_add($event, 'signal_handler') unless $on{$event};
+   
+   push(@{$on{$event}},
+	  {
+	     'chatnet' => $chatnet || 'all',
+	     'settings' => hash_to_settings(%settings),
+		 'channel' => $channel,
+	     'cmd' => $cmd,
+	  }
+   );						  
+}
+
+# Deletes all ons under the event
+sub del_on {
+   my $on = shift;
+   Irssi::signal_remove($on, 'signal_handler');
+   return delete($on{$on});
+}
+
+# This is nasty.
+# It would be nice if perl scripts could use Irssi's internal stuff for option
+# parsing
+sub option_parse {
+   my $text = shift;
+   my($last,%options,$cmd);
+   for(split(' ',$text)) {
+      if($cmd) {
+	     $cmd .= " $_";
+      }elsif(/^-(.+)$/) {
+	     $last = 'channel' if $1 eq 'channel';
+		 $options{$1}++;
+	  }elsif(/^["'0-9]/) {
+	     if(/^\d+$/) {
+		    $options{event} = "event $_" if /^\d+$/;
+		 }else{
+		    $last = 'event';
+			s/^['"]//;
+			$options{event} = $_;
+		 }
+	  }elsif($last eq 'event'){
+		 $last = "" if s/['"]$//;
+	     $options{event} .= " $_";
+	  }elsif($last) {
+	     $options{$last} = $_;
+		 $last = "";
+	  }else{
+	     $cmd = $_;
+	  }
+   }
+   return ($cmd,%options);
+}
+
diff --git a/scripts/ontv.pl b/scripts/ontv.pl
new file mode 100644
index 0000000..8dcdfb3
--- /dev/null
+++ b/scripts/ontv.pl
@@ -0,0 +1,339 @@
+# OnTV by Stefan'tommie' Tomanek
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "20050226";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "OnTV",
+    description => "turns irssi into a tv program guide",
+    license     => "GPLv2",
+    modules     => "Data::Dumper POSIX LWP::Simple HTML::Entities Text::Wrap",
+    changed     => "$VERSION",
+    commands	=> "ontv"
+);
+
+use Irssi 20020324;
+use Data::Dumper;
+use POSIX;
+use LWP::Simple;
+use HTML::Entities;
+use Text::Wrap;
+
+use vars qw($forked @comp);
+
+sub show_help() {
+    my $help=$IRSSI{name}." ".$VERSION."
+/ontv (current)
+    List the current tv program
+/ontv search <query>
+    Query the program guide for a show
+/ontv next
+    Show what'S next on TV
+/ontv tonight
+    List tonight's program
+/ontv watching <station>
+    Display what's on <station>
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box($IRSSI{name}." help", $text, "help", 1) ;
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub get_prog ($) {
+    my ($what) = @_;
+    my $url = 'http://www.tvmovie.de/tv-programm/jetzt.html?nocache=true';
+    $url = 'http://www.tvmovie.de/tv-programm/gleich.html?nocache=true' if ($what == 0);
+    $url = 'http://www.tvmovie.de/tv-programm/2015.html' if ($what == 2);
+    my $data = get($url);
+    my $programs = [];
+    my %program;
+    foreach (split /\n/, $data) {
+	#print $_;
+	if (/class="linkgrau">(.*?)<\/a><\/font><\/td>/) {
+	    $program{station} = $1;
+	    decode_entities($program{station});
+	}
+	#if (/<a href="http:\/\/www.tvmovie.de\/tv-programm\/sendung.html\?SendungID=(\d+)" class="linkblack"><b>(.*?)<\/b><\/a>/) {
+	if (/<a href="http:\/\/www.tvmovie.de\/tv-programm\/sendung.html\?SendungID=(\d+)" class="linkblack"><b>(.*?)<\/b>/) {
+	    $program{id} = $1;
+	    $program{title} = $2;
+	    decode_entities($program{title});
+	}
+	if (/<FONT face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#757575"><br>(.*?)<\/font><\/font><\/td>/) {
+	    $program{comment} = decode_entities($1);
+	}
+	if (/color='#ee0000'>(.*?)<\/font><\/td>/) {
+	    $program{type} = decode_entities($1);
+	}
+	if (/color="white"><b>([A-Z]{2})<\/b><\/font><\/td>/) {
+	    $program{day} = $1;
+	}
+	if (/size="1">(\d{2}\.\d{2})&nbsp;<\/font><\/td>/) {
+	    $program{begin} = $1;
+	    decode_entities($program{begin});
+	}
+	if (/size="1">bis&nbsp;(\d{2}\.\d{2})<\/font><\/td>/) {
+	    $program{end} = $1;
+	    decode_entities($program{end});
+	    my %data = %program;
+	    push @$programs, \%data;
+	    %program = ();
+	}
+    }
+    return $programs;
+}
+
+sub search_prog ($) {
+    my ($query) = @_;
+    encode_entities($query);
+    my $url = 'http://fernsehen.tvmovie.de/finder?finder=swsendung&tag=alle&sw_sendung='.$query;
+    my $data = get($url);
+    return( parse_search($data) );
+}
+
+sub parse_search ($) {
+    my ($data) = @_;
+    my $programs = [];
+    my %program;
+    foreach (split /\n/, $data) {
+	if (/color="white"><b>([A-Z]{2})<\/b> <\/font><\/td>$/) {
+	    $program{day} = $1;
+	    decode_entities($program{day});
+	}
+	if (/size="1">(\d{2}:\d{2})<\/font><\/td>$/) {
+	    $program{begin} = $1;
+	    decode_entities($program{begin});
+	} elsif (/class="linkgrau">(.*?)<\/a><\/font><\/td>$/) {
+	    $program{station} = $1;
+	    decode_entities($program{station});
+	} elsif (/<a href="http:\/\/www.tvmovie.de\/tv-programm\/sendung\.html\?SendungID=(\d+)" class="linkblack"><b>(.*?)<\/b><\/a><\/font>(?:<FONT face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#757575"><br>(.*?)<\/font>)?/) {
+	    $program{id} = $1;
+	    $program{title} = $2;
+	    $program{comment} = $3;
+	    decode_entities($program{title});
+	    decode_entities($program{comment});
+	#} elsif (/{ \t]*<td valign="top" align="left">$/) {
+	    my %data = %program;
+	    push @$programs, \%data;
+	}
+    }
+    return $programs;
+}
+
+sub get_info ($) {
+    my ($id) = @_;
+    my $data = get('http://www.tvmovie.de/tv-programm/sendung.html?SendungID='.$id);
+    my %info;
+    foreach (split(/\n/, $data)) {
+	#print;
+	if (/size="3"><b>(.*?)<\/b><br><\/font>$/) {
+	    $info{title} = decode_entities($1);
+	} elsif (/color="#FFFFFF"><b>&nbsp;(\d+\.\d+\.\d+) \|/) {
+	    $info{date} = decode_entities($1);
+	} elsif (/size="1"><b>(.*?)<\/b><br><br><\/font>$/) {
+	    $info{comment} = decode_entities($1);
+	} elsif (/class="uppercase"><b>(.*?)<\/b> <\/font>/) {
+	    $info{type} = decode_entities($1);
+	} elsif (/<FONT face="Verdana, Arial, Helvetica, sans-serif" size="1">(.*?)<br><br><\/font>/) {
+	    $info{desc} = decode_entities($1);
+	} elsif (/\[Sender:&nbsp;(.*?)\] \[Beginn:&nbsp;(.*?)\] \[Dauer:&nbsp;(.*?) Min\.\] \[Ende:&nbsp;(.*?)\] \[SV:&nbsp;(.*?)\]/) {
+	    $info{station} = decode_entities($1);
+	    $info{begin} = decode_entities($2);
+	    $info{end} = decode_entities($4);
+	    $info{showview} = decode_entities($5);
+	}
+    }
+    my $stat = $info{station};
+    $info{desc} =~ s/$stat$//;
+    #$info{desc} =~ s/<br><br>$//;
+    $info{desc} =~ s/<br>/\n/g;
+    return \%info;
+}
+
+sub bg_fetch ($$) {
+    my ($op, $query) = @_;
+    my ($rh, $wh); 
+    pipe($rh, $wh); 
+    if ($forked) {
+        print CLIENTCRAP "%R>>%n Please wait until your earlier request has been finished.";
+        return;
+    }
+    my $pid = fork();
+    $forked = 1;
+    if ($pid > 0) {
+	print CLIENTCRAP "%R>>%n Please wait...";
+	close $wh;
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, \$pipetag, $op, $query);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	my $result = {};
+	my @program;
+	my $stations = Irssi::settings_get_str('ontv_stations');
+	eval {
+	    if ($op eq 'current') {
+		@program = @{ get_prog(1) };
+		foreach (@program) {
+		    push @{ $result->{program} }, $_ if ($_->{station} =~ /^($stations)$/);
+		}
+	    } elsif ($op eq 'next') {
+		@program = @{ get_prog(0) };
+		foreach (@program) {
+		    push @{ $result->{program} }, $_ if ($_->{station} =~ /^($stations)$/);
+		}
+	    } elsif ($op eq 'tonight') {
+		@program = @{ get_prog(2) };
+		foreach (@program) {
+                    push @{ $result->{program} }, $_ if ($_->{station} =~ /^($stations)$/);
+                }
+	    } elsif ($op eq 'search') {
+		@program = @{ search_prog($query) };
+		foreach (@program) {
+		    push @{ $result->{program} }, $_ if ($_->{station} =~ /^($stations)$/);
+		}
+	    } elsif ($op eq 'watching') {
+		@program = @{ get_prog(1) };
+		foreach (@program) {
+		    next unless ($_->{station} =~ /^($query)$/);
+		    push @{ $result->{program} }, $_;
+		    print $_->{id};
+		    $result->{info} = get_info($_->{id});
+		}
+	    } elsif ($op eq 'info') {
+		$result->{info} = get_info($query);
+	    }
+	    my $dumper = Data::Dumper->new([$result]);
+	    $dumper->Purity(1)->Deepcopy(1)->Indent(0);
+	    print($wh $dumper->Dump);
+	};
+	close $wh;
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($) {
+    my ($rh, $pipetag, $op, $args) = @{$_[0]};
+    $forked = 0;
+    Irssi::input_remove($$pipetag);
+    my $text;
+    $text .= $_ foreach <$rh>;
+    no strict 'vars';
+    my $incoming = eval("$text");
+    return unless ($incoming->{program} || $incoming->{info});
+    print_prog($incoming->{program}, 'current') if ($op eq 'current');
+    print_prog($incoming->{program}, 'next') if ($op eq 'next');
+    print_prog($incoming->{program}, 'tonight') if ($op eq 'tonight');
+    print_prog($incoming->{program}, 'query: "'.$args.'"') if ($op eq 'search');
+    print_prog($incoming->{program}, 'current: "'.$args.'"') if ($op eq 'watching');
+    print_info($incoming->{info}) if $incoming->{info};
+}
+
+sub print_info ($) {
+    my ($info) = @_;
+    my $text;
+    $text .= '%9'.$info->{title}.'%9'."\n";
+    $text .= $info->{date}.': '.$info->{begin}."-".$info->{end}."\n";
+    $text .= 'Showview: '.$info->{showview}."\n\n";
+    $text .= $info->{comment}."\n\n";
+    $text .= $info->{desc};
+    my $col = int( Irssi::active_win()->{width}*(2/3) );
+    $Text::Wrap::columns = $col;
+    my $article = wrap("", "", $text);
+    print CLIENTCRAP &draw_box('OnTV', $article, $info->{title}, 1);
+}
+
+sub print_prog ($$) {
+    my ($program, $query) = @_;
+    @comp = @$program;
+    my $text;
+    foreach (@$program) {
+	$text .= "%9".$_->{station}."%9:";
+	$text .= " %U".$_->{title}."%U";
+	$text .= " [".$_->{type}."]"if $_->{type};
+	$text .= " (".$_->{id}.")\n";
+	$text .= " >".$_->{comment}."<\n" if $_->{comment};
+	$text .= "  time: ";
+	$text .= $_->{day}.", ";
+	$text .= $_->{begin};
+	$text .= "-".$_->{end} if $_->{end};
+	$text .= "\n";
+	#$text .= "\n";
+    }
+    print CLIENTCRAP &draw_box('OnTV', $text, $query, 1);
+}
+
+sub sig_complete_word ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    return unless $linestart =~ /^.ontv (info)/;
+    foreach (@comp) {
+        push @$list, $_->{id} if ($_->{id} =~ /^(\Q$word\E.*)?$/);
+        push @$list, $_->{station} if ($_->{station} =~ /^(\Q$word\E.*)?$/);
+        push @$list, $_->{title} if ($_->{title} =~ /^(\Q$word\E.*)?$/);
+    }
+    Irssi::signal_stop();
+}
+
+
+sub cmd_ontv ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    if (scalar(@arg) == 0 || $arg[0] eq 'current') {
+	bg_fetch('current', '');
+    } elsif ($arg[0] eq 'next') {
+	bg_fetch('next', '');
+    } elsif ($arg[0] eq 'tonight') {
+	bg_fetch('tonight', '');
+    } elsif ($arg[0] eq 'search') {
+	shift @arg;
+	bg_fetch('search', join(' ', @arg))
+    } elsif ($arg[0] eq 'watching' && defined $arg[1]) {
+	shift @arg;
+	bg_fetch('watching', join(' ', @arg));
+    } elsif ($arg[0] eq 'info' && defined $arg[1]) {
+	shift @arg;
+	my $query = join(' ', @arg);
+	unless ($query =~ /^\d+$/) {
+	    foreach (@comp) {
+		if ($_->{title} eq $query || $_->{station} eq $query) {
+		    $query = $_->{id};
+		    last;
+		}
+	    }
+	}
+	bg_fetch('info', $query);
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::settings_add_str($IRSSI{name}, 'ontv_stations', '.*' );
+
+Irssi::command_bind('ontv' => \&cmd_ontv);
+
+Irssi::signal_add_first('complete word', \&sig_complete_word);
+
+foreach my $cmd ('search', 'current', 'next', 'tonight', 'watching', 'help', 'info') {
+    Irssi::command_bind('ontv '.$cmd =>
+         sub { cmd_ontv("$cmd ".$_[0], $_[1], $_[2]); } );
+}
+
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /ontv help for help';
diff --git a/scripts/oops.pl b/scripts/oops.pl
new file mode 100644
index 0000000..d72f59f
--- /dev/null
+++ b/scripts/oops.pl
@@ -0,0 +1,33 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '20071209';
+%IRSSI = (
+    authors     => '',
+    contact     => '',
+    name        => 'oops',
+    description =>
+'turns \'ls\' in the beginning of a sent line into the names or whois commands',
+    license => 'Public Domain',
+);
+
+sub send_text {
+
+    #"send text", char *line, SERVER_REC, WI_ITEM_REC
+    my ( $data, $server, $witem ) = @_;
+    if ( $witem
+        && ( $witem->{type} eq "CHANNEL" )
+        && ( $data =~ /(^ls |^ls$)/ ) )
+    {
+        $witem->command("names $witem->{name}");
+        Irssi::signal_stop();
+    }
+    if ( $witem && ( $witem->{type} eq "QUERY" ) && ( $data =~ /(^ls |^ls$)/ ) )
+    {
+        $witem->command("whois $witem->{name}");
+        Irssi::signal_stop();
+    }
+}
+
+Irssi::signal_add 'send text' => 'send_text'
diff --git a/scripts/openurl.pl b/scripts/openurl.pl
new file mode 100644
index 0000000..066a5f4
--- /dev/null
+++ b/scripts/openurl.pl
@@ -0,0 +1,269 @@
+# OpenURL by Stefan'tommie' Tomanek
+#
+# 05.06.2002
+# * complete rewrite
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "20030208";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "OpenURL",
+    description => "Stores URLs in a list and launches mail, web or ftp software",
+    license     => "GPLv2",
+    url         => "http://scripts.irssi.org",
+    changed     => "$VERSION",
+    commands	=> "openurl"
+);
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use Irssi::UI;
+
+use vars qw(@urls %urltypes $recent);
+$recent = 1;
+
+# RegExp & defaultcommands
+%urltypes = ( http => { regexp => qr#((?:https?://[^\s<>"]+|www\.[-a-z0-9.]+)[^\s.,;<">\):])#, cmd => 'w3m "$1"' },
+              ftp  => { regexp => qr#((?:ftp://[^\s<>"]+|ftp\.[-a-z0-9.]+)[^\s.,;<">\):])#, cmd => 'ncftp "$1"' },
+	      mail => { regexp => qr#([-_a-z0-9.]+\@[-a-z0-9.]+\.[-a-z0-9.]+)#, cmd => 'mutt "$1" -s "$2"' },
+	    );
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }                                                                               $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help=$IRSSI{name}." ".$VERSION."
+/openurl
+    List the saved URLs
+/openurl <number> <number>...
+    Load the corresponding URLs in your browser/mailer
+/openurl paste <number> <number>...
+    Paste the selected URLs to the current channel/query
+/openurl topics
+    Look for URLs in channel topics
+/openurl clear
+    Clear all URLs
+/openurl help
+    Display this help
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+	$text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box($IRSSI{name}." help", $text, "help", 1) ;
+}
+
+sub list_urls {
+    my $string = '';
+    my $i = 1;
+    foreach (@urls) {
+	my $text = $_->{url};
+	my $url = $_->{url};
+	$text = $_->{text} if Irssi::settings_get_bool('openurl_display_context');
+	$url =~ s/%/%%/g;
+	$text =~ s/%/%%/g;
+	$text =~ s/\Q$url/%U$url%U/;
+	if ($recent-1 == $i) {
+	    $string .= '%B»%n';
+	} else {
+	    $string .= ' ';
+	}
+	$string .= '%r['.$i.']%n ';
+	$string .= '<'.$_->{channel};
+	$string .= '/'.$_->{nick} unless $_->{nick} eq "";
+	$string .= '> ';
+	$string .= $text." %n\n";
+	$i++;
+    }
+    print CLIENTCRAP draw_box("OpenURL", $string, "URLs", 1);
+}
+
+sub event_private_message {
+    my ($server, $text, $nick, $address) = @_;
+    process_line($server, $nick, $nick, $text);
+}
+sub event_public_message {
+    my ($server, $text, $nick, $address, $target) = @_;
+    process_line($server, $target, $nick, $text);
+}
+sub event_topic_changed {
+    my ($channel) = @_;
+    process_line($channel->{server}, $channel->{name}, "", $channel->{topic});
+}
+
+sub process_line ($$$$) {
+    my ($server, $target, $nick, $line) = @_;
+    my $url = get_url($line);
+    if ($url) {
+	my $type = url_type($url);
+	return unless Irssi::settings_get_bool('openurl_watch_'.$type);
+	new_url($server, $target, $nick, $line, $url);
+    }
+}
+
+sub get_url ($) {
+    my ($text) = @_;
+    foreach (keys %urltypes) {
+	return $1 if ($text =~ /$urltypes{$_}->{regexp}/);
+    }
+}
+
+sub url_type ($) {
+    my ($url) = @_;
+    foreach (keys %urltypes) {
+	return $_ if ($url =~ /$urltypes{$_}->{regexp}/);
+    }
+}
+
+sub launch_url ($) {
+    my ($url) = @_;
+    my $type = url_type($url);
+    my $address = $url;
+    my $suffix= "";
+    if ($type eq "mail") {
+	$address = $1 if $url =~ /(.*?@.*?)($|\?)/;
+	$suffix = $2 if $url =~ /(.*?@.*?)\?subject=(.*)/;
+    }
+    my $command = Irssi::settings_get_str("openurl_app_".$type);
+    $command =~ s/\$1/$address/;
+    $command =~ s/\$2/$suffix/;
+    system($command);
+}
+
+sub new_url ($$$$$) {
+    my ($server, $channel, $nick, $text, $url) = @_;
+    $recent = 1 if ($recent > Irssi::settings_get_int('openurl_max_urls'));
+    # Check for existance of URL
+    my $i = 1;
+    foreach (@urls) {
+	if ($text eq $_->{text} && $channel eq $_->{channel}) {
+	    my $note_id = add_note($server, $channel, $i);
+	    push @{$_->{notes}}, $note_id;
+	    return();
+	}
+	$i++;
+    }
+    if (defined $urls[$recent-1]) {
+	del_notes($recent);
+    }
+    $urls[$recent-1] = {channel => $channel,
+                        text    => $text,
+			nick    => $nick,
+			url     => $url,
+			notes   => [],
+			};
+    my $note_id = add_note($server, $channel, $recent);
+    push @{$urls[$recent-1]{notes}}, $note_id;
+    $recent++;
+}
+
+
+sub del_notes ($) {
+    my ($num) = @_;
+    my $view;
+    my $witem = Irssi::window_item_find($urls[$num-1]->{channel});
+    if (defined $witem) {
+	$view =  $witem->window()->view();
+    }
+    if (defined $view) {
+	foreach (@{$urls[$num-1]->{notes}}) {
+	    my $line = $view->get_bookmark($_);
+	    $view->remove_line($line) if defined $line;
+	    $view->set_bookmark($_, undef);
+	}
+	@{$urls[$num-1]->{notes}} = ();
+	$view->redraw();
+    }
+}
+
+sub add_note ($$$) {
+    my ($server, $target, $num) = @_;
+    my $witem;
+    if (defined $server) {
+	$witem = $server->window_item_find($target);
+    } else {
+	$witem = Irssi::window_item_find($target);
+    }
+    if (defined $witem) {
+	$witem->print("%R>>%n OpenURL ".$num, MSGLEVEL_CLIENTCRAP);
+	# create a unique ID for the mark
+	my $foo = time().'-'.int(rand()*1000);
+	$witem->window()->view()->set_bookmark_bottom("openurl_".$num.'-'.$foo);
+	return("openurl_".$num.'-'.$foo);
+    }
+    return(undef);
+}
+
+sub clear_urls {
+    del_notes($_) foreach (0..scalar(@urls)-1);
+    pop(@urls) foreach (1..scalar(@urls));
+    $recent = 1;
+    print CLIENTCRAP '%R>>%n URLs cleared';
+}
+
+sub cmd_openurl ($$$) {
+    my ($arg, $server, $witem) = @_;
+    my @args = split(/ /, $arg);
+    if (scalar(@args) == 0) {
+	list_urls;
+    } elsif ($args[0] eq 'clear') {
+	clear_urls;
+    } elsif ($args[0] eq 'topics') {
+    	event_topic_changed($_) foreach (Irssi::channels());
+    } elsif ($args[0] eq 'help') {
+	show_help();
+    } elsif ($args[0] eq 'open') {
+	launch_url($args[1]);
+    } else {
+	my $paste = 0;
+	if ($args[0] eq 'paste') {
+	    $paste = 1;
+	    shift(@args);
+	}
+	foreach (@args) {
+	    next unless /\d+/;
+	    next unless defined $urls[$_-1];
+	    my $url = $urls[$_-1]->{url};
+	    if ($paste == 1) {
+		if (ref $witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+		    $witem->command("MSG ".$witem->{name}." ".$url);
+		}
+	    } else {
+		launch_url($url);
+	    }
+	}
+    }
+}
+
+foreach (keys %urltypes) {
+    Irssi::settings_add_str($IRSSI{'name'}, 'openurl_app_'.$_, "screen ".$urltypes{$_}->{cmd});
+    Irssi::settings_add_bool($IRSSI{'name'}, 'openurl_watch_'.$_, 1);
+}
+Irssi::settings_add_int($IRSSI{'name'}, 'openurl_max_urls', 20);
+Irssi::settings_add_bool($IRSSI{'name'}, 'openurl_display_context', 1);
+
+Irssi::signal_add_last("message private", "event_private_message");
+Irssi::signal_add_last("message public", "event_public_message");
+Irssi::signal_add_last("channel topic changed", "event_topic_changed");
+
+#Irssi::signal_add('open url', \&launch_url);
+
+foreach my $cmd ('topics', 'clear', 'paste', 'help') {
+    Irssi::command_bind('openurl '.$cmd => sub {
+	cmd_openurl("$cmd ".$_[0], $_[1], $_[2]); });
+}
+Irssi::command_bind('openurl', 'cmd_openurl');
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /openurl help for help';
diff --git a/scripts/operit.pl b/scripts/operit.pl
new file mode 100644
index 0000000..60f3181
--- /dev/null
+++ b/scripts/operit.pl
@@ -0,0 +1,320 @@
+### operit.pl (c) 2002, 2003 Petr Baudis <pasky@ucw.cz>
+#
+## Perform certain action (invite/op/...) on request authenticated by the
+## IRC operator status.
+#
+## See http://pasky.ji.cz/~pasky/dev/irssi/ for the latest version.
+#
+## Thanks to:
+## mofo <mick@mofo.nl>			(patches)
+## Garion <garion@dnsspam.nl>		(ideas)
+## Borys <borys@irc.pl>			(ideas)
+## devastor <devastor@idiosynkrasia.net>(bug reports)
+## babar <babar@magicnet.org>		(delay patch)
+#
+## $Id: operit.pl,v 1.14 2003/09/06 12:27:11 pasky Exp pasky $
+#
+# $Log: operit.pl,v $
+# Revision 1.14  2003/09/06 12:27:11  pasky
+# Okay, so while I'm at it updated other instance of my email addy, copyright, bunch of grammar fixes and documented the operit_public_delay variable.
+#
+# Revision 1.13  2003/09/06 12:25:09  pasky
+# Updated my email addy.
+#
+# Revision 1.12  2003/09/06 12:23:50  pasky
+# Added support for randomly delayed operit - if operit is public, the delay is zero to five seconds by default - this helps greatly if there is a lot of operit-enabled clients on a channel. Patch by Babar <babar@magicnet.org> and me.
+#
+# Revision 1.11  2003/03/20 08:58:18  pasky
+# Match whole channel, not random part, when checking for deny_channels and deny_hosts. So you can deny operits at #iraq but still allow them at #iraqlive ;-). Thanks to viha for cooperation during testing.
+#
+# Revision 1.10  2002/11/29 16:51:46  pasky
+# Don't play with channels we aren't on. Fixes occassional 'can't call method command on undefined value'; thanks to devastor for a report.
+#
+# Revision 1.9  2002/10/19 13:12:34  pasky
+# Introduced operit_allow_public (by default on), which toggles accepting of public (on-channel) operit requests. Idea by Borys.
+#
+# Revision 1.8  2002/10/13 12:33:13  pasky
+# We don't care about /^operit [^!#&]/ anymore. Thanks fly to Garion for suggestion.
+#
+# Revision 1.7  2002/10/07 14:16:58  pasky
+# Added operit_show_requests bool setting (by default 1, that is same behaviour as now).
+#
+# Revision 1.6  2002/09/01 12:27:08  pasky
+# Erm, compilation fixes.
+#
+# Revision 1.5  2002/09/01 12:24:24  pasky
+# Allow specification of more channels separated by a comma in requests. Changed default value of operit_hosts_deny to something harmless. Patch by mofo <mick@mofo.nl>.
+#
+# Revision 1.4  2002/03/13 13:17:36  pasky
+# remove one debug message accidentally left there
+#
+# Revision 1.3  2002/03/12 18:02:37  pasky
+# invait actually works now
+#
+# Revision 1.2  2002/02/05 17:47:13  pasky
+# fixed many things :^). now it basically works how it should...
+#
+# Revision 1.1  2002/02/05 16:47:09  pasky
+# Initial revision
+#
+#
+###
+
+### Inspired by Operit-2.01b+enge script for ircII+ clients by
+## - Viha   (Viha@Theblah.Org)
+#  - Karzan (Kari@Theblah.Org)
+#
+## Credits also go to:
+#  - LuckyS  (lucky@binet.lv)              [bug  reports]
+#  - Fusion  (fusion@nuts.edu)             [bug  reports]
+#  - RA^v^EN (raven@sky.siol.org)          [bug  reports]
+#  - tumble  (tumble@openface.ca)          [beta testing]
+#  - koopal  (andre@nl.uu.net)             [script ideas]
+#  - pt      (primetime@wnol.net)          [script ideas]
+#  - delta   (delta@rus.uni-stuttgart.de)  [script ideas]
+#  - pht     (svobodam@irc.vsp.cz)         [bug  reports]
+#  - enge    (engerim@magicnet.org)        [modifications]
+#
+### The most recent version can always be found at
+#           http://www.vip.fi/~viha/irc/
+###
+
+use strict;
+
+use vars qw ($VERSION %IRSSI $rcsid);
+
+$rcsid = '$Id: operit.pl,v 1.14 2003/09/06 12:27:11 pasky Exp pasky $';
+($VERSION) = '$Revision: 1.14 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'operit',
+          authors     => 'Petr Baudis',
+          contact     => 'pasky@ucw.cz',
+          url         => 'http://pasky.ji.cz/~pasky/dev/irssi/',
+          license     => 'BSD',
+          description => 'Perform certain action (invite/op/...) on request authenticated by the IRC operator status.'
+         );
+
+
+use Irssi 20021117; # timeout_add_once
+use Irssi::Irc;
+
+
+my $queue = 0;   # already queued an operit? (when?)
+my $disp = 0;    # already displayed kind notice about already queued operit?
+my $cmd = "";    # command issued
+my $target = ""; # who issued the command
+my $chan = "";   # object of the command
+
+my $coperit = 0;
+my $cinvait = 0;
+my $cdamode = 0;
+my $mpublic = 0;
+
+
+sub event_privmsg {
+  my ($server, $data, $nick, $address) = @_;
+  my ($msgtarget, $text) = split(/ :/, $data, 2);
+
+  return if (Irssi::settings_get_bool("operit_deny"));
+
+  if ($text =~ s/^(invait|operit|damode)( .*)?$/$2/i) {
+    if (uc($msgtarget) eq uc($server->{nick})) {
+      $mpublic = 0;
+    } else {
+      return unless (Irssi::settings_get_bool("operit_allow_public"));
+      $mpublic = 1;
+    }
+
+    if (time - $queue < 10) {
+      Irssi::print "Operit currently deactivated or queued. Request ignored."
+	if (time - $disp > 20);
+      $disp = time;
+      return;
+    }
+
+    $cmd = $1; $target = $nick; $queue = 0; $disp = 0;
+
+#    if ($msgtarget eq $N or $cmd eq 'invait') {
+    if (1) {
+      ($_, $chan) = split /\s+/, $text; # oh.. oh well :)
+      my $a = 0;
+
+      $chan = $msgtarget if (not $chan and $msgtarget ne $server->{nick});
+      return unless ($chan =~ /^[#!&]/);
+
+      foreach (split /\s+/, Irssi::settings_get_str("operit_chans")) {
+        s/\./\\./;
+	s/\*/.*/g;
+	if ($chan =~ /^$_$/i) {
+	  $a++;
+	}
+      }
+
+      unless ($a) {
+	Irssi::print "Unauthorized $cmd $chan by $target (not in operit_chans)" if (Irssi::settings_get_bool("operit_show_requests"));
+	return;
+      }
+      
+      foreach (split /\s+/, Irssi::settings_get_str("operit_chans_deny")) {
+        s/\./\\./;
+	s/\*/.*/g;
+	if ($chan =~ /^$_$/i) {
+	  Irssi::print "Unauthorized $cmd $chan by $target (in operit_chans_deny)" if (Irssi::settings_get_bool("operit_show_requests"));
+	  return;
+	}
+      }
+      
+      foreach (split /^\s+$/, Irssi::settings_get_str("operit_hosts_deny")) {
+        s/\./\\./;
+	s/\*/.*/g;
+	if ($address =~ /$_/i) {
+	  Irssi::print "Unauthorized $cmd $chan by $target <$address> (in operit_hosts_deny)" if (Irssi::settings_get_bool("operit_show_requests"));
+	  return;
+	}
+      }
+
+      $queue = time;
+      
+      $server->redirect_event("userhost", 1, $target, 0, 'redir userhost_operit_error',
+			      {"event 302" => "redir userhost_operit"});
+
+      $server->command("USERHOST $target");
+    }
+  }
+}
+
+sub event_userhost_error {
+  Irssi::print "Operit userhost on $target failed, aborting the action...";
+
+  $queue = $disp = 0;
+}
+
+
+sub event_userhost_operit {
+  my ($server, $data) = @_;
+  my ($mynick, $reply) = split(/ +/, $data);
+  my ($nick, $user, $host) = $reply =~ /^:(.*)=.(.*)@(.*)/;
+  
+  unless ($nick =~ s/\*$//) {
+    Irssi::print "$target requested UNAUTHORIZED $cmd on channel $chan" if (Irssi::settings_get_bool("operit_show_requests"));
+    return;
+  }
+  
+  Irssi::print "$target requested $cmd on channel $chan" if (Irssi::settings_get_bool("operit_show_requests"));
+
+  foreach my $chansplit (split(/\,/, $chan)) {
+    my $channel = $server->channel_find($chansplit);
+
+    next unless ($channel);
+
+    if (lc($cmd) eq "operit") {
+      if ($mpublic) {
+	my $precision = 10; # Delay precision (10 = 1/10s)
+	my $rdelay = int(rand(Irssi::settings_get_str("operit_public_delay") * $precision)) * 1000 / $precision;
+
+	Irssi::print "Waiting " . ($rdelay / 1000) . " seconds before executing PUBLIC $cmd for $target on $chan";
+	Irssi::timeout_add_once($rdelay + 11, sub { # XXX why + 10 ? --pasky
+			my ($target, $channel) = @{$_[0]};
+			my ($tgrec) = $channel->nick_find($target);
+        		$channel->command("op $target") unless ($tgrec and $tgrec->{'op'});
+		}, [ $target, $channel ]);
+      } else {
+        $channel->command("op $target");
+      }
+      $coperit++;
+      
+    } elsif (lc($cmd) eq "invait") {
+      $server->command("invite $target $chansplit");
+      $cinvait++;
+    
+    } elsif (lc($cmd) eq "damode") {
+      $server->command("notice $target mode for $chansplit is +$channel->{mode}");
+      $cdamode++;
+    }
+  }
+
+  $queue = $disp = 0;
+}
+
+
+sub event_ctcp {
+  my ($server, $data, $nick, $address, $target) = @_;
+
+  return if (Irssi::settings_get_bool("operit_deny"));
+
+  if ($data =~ /^operit/i) {
+    Irssi::print "$nick requested operit thru CTCP... no way!" if (Irssi::settings_get_bool("operit_show_requests"));
+    $server->command("NOTICE $nick ssshht!");
+    Irssi::signal_stop();
+  }
+}
+
+
+sub cmd_operit {
+  my ($data, $server, $channel) = @_;
+  
+  if ($data =~ /^(usage|help)/i) {
+
+    foreach (split /\n/, <<USAGEE
+Operit:
+
+Local commands
+
+operit usage      - This help.
+operit help       - This help.
+operit status     - Display statistical information.
+
+Remote commands
+
+operit #chan      - Op the person in question on #chan.     (req. *)
+invait #chan      - Invait the person in question to #chan. (req. *)
+damode #chan      - Give the person in question the modes of #chan. (req. *)
+
+Variables
+
+operit_chans      - The channelmask operit/invait is permitted on. (* is *)
+operit_chans_deny - The channel(s) operit/invait is not permitted on. (* is *)
+operit_hosts_deny - The user\@host(s) operit/invait is not permitted from. (* is *)
+operit_deny       - Toogle this ON if you don't actually want invait/operit to function.
+operit_show_requests
+                  - Toogle this OFF if you don't want to see messages about operit requests.
+operit_allow_public
+                  - Toogle this OFF if you don't want requests written on channels to be proceeded.
+operit_public_delay
+		  - Set this to 0 if you don't want random delay between request and action.
+USAGEE
+	) {
+      Irssi::print $_;
+    }
+    
+  } elsif ($data =~ /^status/i) {
+    my $ctotal = $coperit + $cinvait + $cdamode;
+
+    Irssi::print "Operit $VERSION Status:";
+    Irssi::print "The last person to request $cmd was $target [$chan].";
+    Irssi::print "This session has served $coperit op-requests, $cinvait invite-requests and $cdamode mode-requests.";
+    Irssi::print "Making a total of $ctotal succesful requests.";
+    
+  } else {
+    Irssi::print "Excuse moi, sir? I guess that you want /operit usage ..?";
+  }
+}
+
+
+Irssi::command_bind("operit", "cmd_operit");
+Irssi::signal_add("redir userhost_operit", "event_userhost_operit");
+Irssi::signal_add("redir userhost_operit_error", "event_userhost_error");
+Irssi::signal_add("default ctcp msg", "event_ctcp");
+Irssi::signal_add("event privmsg", "event_privmsg");
+
+
+Irssi::settings_add_str("operit", "operit_chans", "#* !*");
+Irssi::settings_add_str("operit", "operit_chans_deny", "#ircophackers");
+Irssi::settings_add_str("operit", "operit_hosts_deny", "*!*@*.lamehost1 *lamehost2");
+Irssi::settings_add_bool("operit", "operit_deny", 0);
+Irssi::settings_add_bool("operit", "operit_show_requests", 1);
+Irssi::settings_add_bool("operit", "operit_allow_public", 1);
+Irssi::settings_add_str("operit", "operit_public_delay", 5);
+
+
+Irssi::print("Operit $VERSION loaded... see command 'operit usage'");
diff --git a/scripts/operview.pl b/scripts/operview.pl
new file mode 100644
index 0000000..355f14d
--- /dev/null
+++ b/scripts/operview.pl
@@ -0,0 +1,421 @@
+# Operview - reformats some server notices, which may come i.e. from &clients
+# or &servers. Also reformat some incoming server numerics from advanced
+# commands like STATS.
+# 
+# Note that whole this script is VERY ircnet-specific!
+# 
+# Provided variables:
+# 
+# mangle_stats_output   - turn the mangling of /stats output on/off
+# mangle_server_notices - turn the mangling of server notices on/off
+# ignore_server_kills   - we won't display nickname collissions
+# show_kills_path       - we will display kill's path
+# 
+# $Id: operview.pl,v 1.11 2002/03/30 21:16:06 pasky Exp pasky $
+#
+
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+use vars qw ($VERSION %IRSSI $rcsid);
+
+$rcsid = '$Id: operview.pl,v 1.11 2002/03/30 21:16:06 pasky Exp pasky $';
+($VERSION) = '$Revision: 1.11 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'operview',
+          authors     => 'Petr Baudis',
+          contact     => 'pasky@ji.cz',
+          url         => 'http://pasky.ji.cz/~pasky/dev/irssi/',
+          license     => 'GPLv2, not later',
+          description => 'Reformats some server notices, which may come i.e. from &clients or &servers at IRCnet. You can turn the script on/off bytoggling variable mangle_server_notices.'
+         );
+
+my $mangle_stats_output;
+my $mangle_server_notices;
+my $ignore_server_kills;
+my $show_kills_path;
+
+my @lastkill = ('','','');
+my @curclientcount = (0,0);
+
+Irssi::theme_register([
+  client_connect => '{servernotice $0}Connect    : {nick $[9]1} :: {nickhost $2%R@%n$3} {comment $4} :: $5-',
+  client_exit    => '{servernotice $0}Disconnect : {nick $[9]1} :: {nickhost $2%R@%n$3} :: $4-',
+  client_nick    => '{servernotice $0}{nick $[9]1} -> {nick $[9]2} :: {nickhost $3%R@%n$4}',
+  kills_kill     => '{servernotice $0}Received %gKILL%n {nick $[9]1} ({server $2}) :: $3', # TODO: parse the path? subject to change
+  kills_operkill => '{servernotice $0}Received %gKILL%n {nick $[9]1} (%R$2%n) :: $3',
+  kills_collide  => '{servernotice $0}Nick %gCOLLISION%n {nick $[9]1} :: $2',
+  servers_server => '{servernotice $0}Received %gSERVER%n {server $1} from {server $2} :: %G$3%w {comment $5} $6-',
+  servers_squit  => '{servernotice $0}Received %gSQUIT %n {server $1} from {server $2} :: %R$3-%w',
+  servers_sserver=> '{servernotice $0}Sending  %gSERVER%n {server $1} :: %G$2%w {comment $4} $5-',
+  servers_ssquit => '{servernotice $0}Sending  %gSQUIT %n {server $1} :: %R$2-%w',
+
+# TODO: Header ?               sendq         smsgs  skbs          rmsgs  rkbs      age
+  stats_l        => '$[!9]0 :: $[!7]3 %g<s%n $[!5]4 $[!5]5 %gr>%n $[!5]6 $[!5]7 :: $[!6]8 :: {nickhost $1%R@%n$2}',
+# TODO: Header ?                     pingf         connf         maxlinks      sendq         local limit               global limit
+  stats_y        => '$0 :: $[!4]1 :: %gpf%n $[!4]2 %gcf%n $[!4]3 %gml%n $[!4]4 %gsq%n $[!8]5 %gll%n $[!-2]6%K.%n$[!2]7 %ggl%n $[!-2]8%K.%n$[!2]9',
+# TODO: Header ?           haddr   hname      passwd    port     class
+  stats_i        => '$0 :: $[!20]1 $[!22]3 :: $[!6]2 :: %gp%n $4 %gc%n $5',
+# TODO: Header ?           port         class (N/A)     host                    reason
+  stats_k        => '$0 :: %gp%n $[!4]4 %gc%n $[!2]5 :: {nickhost $3%R@%n$1} :: $2',
+# TODO: Header ?           port/masklvl class           sname host                    passw
+  stats_c        => '$0 :: %gp%n $[!4]5 %gc%n $[!2]6 :: $4 :: {nickhost $1%R@%n$2} :: $3',
+  stats_n        => '$0 :: %gm%n $[!4]5 %gc%n $[!2]6 :: $4 :: {nickhost $1%R@%n$2} :: $3',
+  
+# I wasn't able to discover how to get this working for statusbars. So THIS IS
+# NO-OP! Seek for its second incarnation hardcoded somewhere below.
+
+  sb_kill        => '{sb $0%R@%n$1}',
+  sb_operkill    => '{sb $0%R<%n$1}',
+  sb_collision   => '{sb $0%R!%n}',
+  sb_sclientcount=> '{sb $0%c/%n$1%cs%n}',
+]);
+
+
+sub event_server_notice {
+  my ($server, $data, $nick, $address) = @_;
+  my ($target, $text) = $data =~ /^(\S*)\s+:(.*)$/;
+  my (@text) = split(/ /, $text);
+
+  $show_kills_path = Irssi::settings_get_bool("show_kills_path");
+  $ignore_server_kills = Irssi::settings_get_bool("ignore_server_kills");
+  $mangle_server_notices = Irssi::settings_get_bool("mangle_server_notices");
+  return unless ($mangle_server_notices);
+
+  return if ($address or $nick !~ /\./);
+
+  if ($target eq '&CLIENTS') {
+    
+    if ($text =~ /^Client connecting/) {
+      my (@fa) = ($text[2], $text[4], $text[6], $text[7], join(" ", splice(@text, 9)));
+
+      $fa[3] =~ s/^\[(.*)\]$/$1/;
+      
+      $server->printformat($target, MSGLEVEL_SNOTES, "client_connect",
+	$nick, @fa);
+      Irssi::signal_stop();
+
+    } elsif ($text =~ /^Client exiting/) {
+      my (@fa) = ($text[2], $text[4], $text[6], join(" ", splice(@text, 8)));
+
+      $server->printformat($target, MSGLEVEL_SNOTES, "client_exit",
+	$nick, @fa);
+      Irssi::signal_stop();
+
+    } elsif ($text =~ /^Nick change/) {
+      my (@fa) = ($text[2], $text[4], $text[6], $text[8]);
+
+      $server->printformat($target, MSGLEVEL_SNOTES, "client_nick",
+	$nick, @fa);
+      Irssi::signal_stop();
+    }
+
+  } elsif ($target eq '&KILLS') {
+
+    if ($text =~ /^Received KILL/) {
+      my (@fa) = ($text[4], $text[6], join(" ", splice(@text, 9 - $show_kills_path)));
+
+      $fa[0] =~ s/\.$//;
+      
+      if ($fa[1] =~ /\./) {
+        $server->printformat($target, MSGLEVEL_SNOTES, "kills_kill",
+                             $nick, @fa) unless ($ignore_server_kills);
+        @lastkill = ($fa[0], $fa[1], 's');
+      } else {
+        $server->printformat($target, MSGLEVEL_SNOTES+MSGLEVEL_HILIGHT, "kills_operkill",
+                             $nick, @fa);
+        @lastkill = ($fa[0], $fa[1], 'o');
+      }
+      refresh_kills();
+      Irssi::signal_stop();
+
+    } elsif ($text =~ /^Nick collision on/) {
+      my (@fa) = ($text[3], join(" ", splice(@text, 4)));
+
+      $server->printformat($target, MSGLEVEL_SNOTES, "kills_collide",
+			   $nick, @fa);
+      @lastkill = ($fa[0], '', 'c');
+
+      refresh_kills();
+      Irssi::signal_stop();
+    }
+
+  } elsif ($target eq '&NOTICES') {
+    if ($text =~ /^Local increase from/) {
+      @curclientcount = ($text[5], $text[8]);
+      refresh_sclientcount();
+    }
+
+  } elsif ($target eq '&SERVERS') {
+
+    if ($text =~ /^Received SERVER/) {
+      my ($sname) = join(" ", splice(@text, 5));
+      my (@fa) = ($text[2], $text[4],
+                  $sname =~ /^\((\d+)\s+(\[(.+?)\])?\s*(.*)\)$/);
+
+      $server->printformat($target, MSGLEVEL_SNOTES, "servers_server",
+	$nick, @fa);
+      Irssi::signal_stop();
+
+    } elsif ($text =~ /^Received SQUIT/) {
+      my (@fa) = ($text[2], $text[4], join(" ", splice(@text, 5)));
+     
+      $fa[2] =~ s/^\((.*)\)$/$1/;
+      
+      $server->printformat($target, MSGLEVEL_SNOTES, "servers_squit",
+	$nick, @fa);
+      Irssi::signal_stop();
+
+    } elsif ($text =~ /^Sending SERVER/) {
+      my ($sname) = join(" ", splice(@text, 3));
+      my (@fa) = ($text[2], $sname =~ /^\((\d+)\s+(\[(.+?)\])?\s*(.*)\)$/);
+
+      $server->printformat($target, MSGLEVEL_SNOTES, "servers_sserver",
+	$nick, @fa);
+      Irssi::signal_stop();
+
+    } elsif ($text =~ /^Sending SQUIT/) {
+      my (@fa) = ($text[2], join(" ", splice(@text, 3)));
+     
+      $fa[1] =~ s/^\((.*)\)$/$1/;
+      
+      $server->printformat($target, MSGLEVEL_SNOTES, "servers_ssquit",
+	$nick, @fa);
+      Irssi::signal_stop();
+    }
+
+  }
+}
+
+
+sub event_stats_numeric {
+  my ($server, $data, $srvname) = @_;
+  my ($target, $text) = $data =~ /^(\S*)\s+(.*)$/;
+  my (@text) = split(/ /, $text);
+  my ($num) = Irssi::signal_get_emitted() =~ /^event (\d+)$/;
+
+  $mangle_stats_output = Irssi::settings_get_bool("mangle_stats_output");
+  unless ($mangle_stats_output) {
+    Irssi::print $text, MSGLEVEL_CRAP;
+    return;
+  }
+
+  unless ($num) {
+    Irssi::print "[OperView] Internal error - emitted signal '".Irssi::signal_get_emitted()."' is not numerics event.";
+    return;
+  }
+
+#  Irssi::print "[$num][] $data -> $target , $text";
+
+  if ($num == 211) {
+# STATS L
+#:irc.cis.vutbr.cz 211 `asdf irc.cis.vutbr.cz[0.0.0.0@.3333] 0 92727331 1888902 168822985 3078358 :3201373
+#:irc.cis.vutbr.cz 211 `asdf irc.felk.cvut.cz[ircd@147.32.80.79] 6038 4876 52 268097 6375 :1427
+#:irc.cis.vutbr.cz 211 `asdf [unknown@66.135.66.250] 0 0 0 0 0 :0
+#:irc.cis.vutbr.cz 211 `asdf `asdf[~a@pasky.ji.cz] 478 2057 162 13 0 :324
+#:irc.cis.vutbr.cz 211 `asdf [@66.135.66.250] 0 10 0 11 0 :81
+#:irc.cis.vutbr.cz 211 `asdf `asdf[@62.44.12.54] 517 129 10 4 0 :87
+    my (@fa) = $text =~ /^(.*?)?\[([^[]*?)?@(.*?)\] (\d+) (\d+) (\d+) (\d+) (\d+) :(\d+)$/;
+
+    unless ($fa[2]) {
+      Irssi::print $text, MSGLEVEL_CRAP;
+    } else {
+      $server->printformat($target, MSGLEVEL_CRAP, "stats_l", @fa);
+    }
+    Irssi::signal_stop();
+    
+  } elsif ($num == 218) {
+# STATS Y
+#:irc.cis.vutbr.cz 218 `asdf Y 0 120 600 1 384084 0.0 0.0
+#:irc.cis.vutbr.cz 218 `asdf Y 10 300 0 1 500000 1.1 1.1
+#:irc.cis.vutbr.cz 218 `asdf Y 12 300 0 10 700000 10.10 10.10
+#:irc.cis.vutbr.cz 218 `asdf Y 1 300 0 400 700000 10.3 10.3
+    my (@fa) = $text =~ /^(.) (\d+) (\d+) (\d+) (\d+) (\d+) (\d+)\.(\d+) :?(\d+)\.(\d+)$/;
+
+    unless ($fa[0]) {
+      Irssi::print $text, MSGLEVEL_CRAP;
+    } else {
+      $server->printformat($target, MSGLEVEL_CRAP, "stats_y", @fa);
+    }
+    Irssi::signal_stop();
+    
+  } elsif ($num == 215) {
+# STATS I
+#:irc.cis.vutbr.cz 215 `asdf I pilsedu.cz <NULL> pilsedu.cz 0 12
+#:irc.cis.vutbr.cz 215 `asdf I x.opf.slu.cz <NULL> x.opf.slu.cz 0 9
+#:irc.cis.vutbr.cz 215 `asdf I 64.44.4.128/29 <NULL> <NULL> 0 1
+    my (@fa) = $text =~ /^(.) (\S+) (\S+) (\S+) (\d+) :?(\d+)$/;
+
+    unless ($fa[0]) {
+      Irssi::print $text, MSGLEVEL_CRAP;
+    } else {
+      $server->printformat($target, MSGLEVEL_CRAP, "stats_i", @fa);
+    }
+
+    Irssi::signal_stop();
+
+  } elsif ($num == 216) {
+# STATS K
+#:irc.cis.vutbr.cz 216 `asdf K *@*.*.*.*.*.*.*.*.* Access_denied,please_fix_your_domain_name * 0 -1
+#:irc.cis.vutbr.cz 216 `asdf K 195.116.4.* Access_denied,reason-use_servers_in_Poland * 0 -1
+#:irc.cis.vutbr.cz 216 `asdf K korak.isternet.sk abuse - expire 01.08.2003 16.26 * 0 -1
+#:irc.cis.vutbr.cz 216 `asdf K 193.84.192.0/24 compromissed network - expire 05.04.2002 22.37 * 0 -1
+    my (@fa) = $text =~ /^(.) (\S+) (.+) (\S+) (\d+) :?([-0-9]+)$/;
+
+    unless ($fa[0]) {
+      Irssi::print $text, MSGLEVEL_CRAP;
+    } else {
+      $server->printformat($target, MSGLEVEL_CRAP, "stats_k", @fa);
+    }
+
+    Irssi::signal_stop();
+
+  } elsif ($num == 213) {
+# STATS C
+#:irc.cis.vutbr.cz 213 `asdf c *@129.143.67.242 * *.de 6666 6
+#:irc.cis.vutbr.cz 213 `asdf c *@141.24.101.9 * *.de 6667 6
+#:irc.cis.vutbr.cz 213 `asdf c *@131.174.124.200 * *.sci.kun.nl 6667 6
+#:irc.cis.vutbr.cz 213 `asdf c *@130.240.16.47 * *.se 6667 6
+#:irc.cis.vutbr.cz 213 `asdf c *@147.32.80.79 * irc.felk.cvut.cz 6664 6
+#:irc.cis.vutbr.cz 213 `asdf c *@195.146.134.62 * *.sk 0 2
+#:irc.cis.vutbr.cz 213 `asdf c *@195.168.1.141 * *.sk 0 2
+    my (@fa) = $text =~ /^(.) (\S+)@(\S+) (\S+) (\S+) ([.0-9]+) :?([-0-9]+)$/;
+
+    unless ($fa[0]) {
+      Irssi::print $text, MSGLEVEL_CRAP;
+    } else {
+      $server->printformat($target, MSGLEVEL_CRAP, "stats_c", @fa);
+    }
+
+    Irssi::signal_stop();
+
+  } elsif ($num == 214) {
+# (STATS N)
+#:irc.cis.vutbr.cz 214 `asdf N *@129.143.67.242 * *.de 0 6
+#:irc.cis.vutbr.cz 214 `asdf N *@141.24.101.9 * *.de 3 6
+#:irc.cis.vutbr.cz 214 `asdf N *@131.174.124.200 * *.sci.kun.nl 3 6
+#:irc.cis.vutbr.cz 214 `asdf N *@130.240.16.47 * *.se 3 6
+#:irc.cis.vutbr.cz 214 `asdf N *@147.32.80.79 * irc.felk.cvut.cz 0 6
+#:irc.cis.vutbr.cz 214 `asdf N *@195.146.134.62 * *.sk 3 2
+#:irc.cis.vutbr.cz 214 `asdf N *@195.168.1.141 * *.sk 3 2
+    my (@fa) = $text =~ /^(.) (\S+)@(\S+) (\S+) (\S+) (\d+) :?(\d+)$/;
+
+    unless ($fa[0]) {
+      Irssi::print $text, MSGLEVEL_CRAP;
+    } else {
+      $server->printformat($target, MSGLEVEL_CRAP, "stats_n", @fa);
+    }
+
+    Irssi::signal_stop();
+=brm
+  } elsif ($num == 250) {
+
+#TRACE
+#:irc.cis.vutbr.cz 204 `asdf Oper 12 pasky[~pasky@pasky.ji.cz]
+#:irc.cis.vutbr.cz 206 `asdf Serv 6 46S 95580C irc.felk.cvut.cz[ircd@147.32.80.79] *!*@irc.cis.vutbr.cz VFz
+#:irc.cis.vutbr.cz 205 `asdf User 1 `asdf[~a@pasky.ji.cz]
+#:irc.cis.vutbr.cz 262 `asdf irc.cis.vutbr.cz 2.10.3p3.addpl2.hemp. :End of TRACE
+#
+#STATS O
+#:irc.cis.vutbr.cz 243 `asdf O revisor@*.ssakhk.cz * erixon 0 10
+#:irc.cis.vutbr.cz 243 `asdf O cf@candyflip.junkie.cz * cf 0 12
+#:irc.cis.vutbr.cz 243 `asdf O *@pilsedu.cz * jv 0 12
+#:irc.cis.vutbr.cz 243 `asdf O *@62.44.12.54 * pasky 0 12
+#:irc.cis.vutbr.cz 243 `asdf O *@bsd.xcem.com * Krash 0 10
+#:irc.cis.vutbr.cz 243 `asdf O spike@*.pantexcom.com * Krash 0 10
+#:irc.cis.vutbr.cz 243 `asdf O fantomas@*.fantomas.sk * filozof 0 10
+#:irc.cis.vutbr.cz 243 `asdf O *@147.229.1.11 * StiX 0 10
+#:irc.cis.vutbr.cz 243 `asdf O *@160.216.0.0/16 * StiX 0 10
+#:irc.cis.vutbr.cz 219 `asdf O :End of STATS report
+
+# STATS H
+#:irc.cis.vutbr.cz 250 `asdf D *.fr.ircnet.net <NULL> * 0 0
+#:irc.cis.vutbr.cz 250 `asdf D *.belnet.be <NULL> * 0 0
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> irc.felk.cvut.cz 0 -1
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> *.de 0 -1
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> *.sci.kun.nl 0 -1
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> *.fi 0 -1
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> *.se 0 -1
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> *.sk 0 -1
+#:irc.cis.vutbr.cz 244 `asdf H * <NULL> irc.uhk.cz 0 -1
+#:irc.cis.vutbr.cz 219 `asdf H :End of STATS report
+    my (@fa) = $text =~ /^(.) (\S+)@(\S+) (\S+) (\S+) (\d+) :?(\d+)$/;
+
+    Irssi::print $text unless ($fa[0]);
+    
+    $server->printformat($target, MSGLEVEL_CRAP, "stats_n",
+			 @fa);
+    Irssi::signal_stop();
+=cut
+  }
+}
+
+
+
+
+#
+### Statusbar stuff
+#
+
+
+sub sclientcount {
+  my ($item, $get_size_only) = @_;
+  my $f = '{sb '.$curclientcount[0].'%c/%n'.$curclientcount[1].'%cs%n}';
+
+  $item->default_handler($get_size_only, $f, undef, 1);
+}
+
+sub kills {
+  my ($item, $get_size_only) = @_;
+  my $theme = Irssi::current_theme();
+  my $f = '{sb %n}';
+
+  if ($lastkill[2] eq 's') {
+# Thanks to cras and darix for helping with following:
+# FIXME: Return value of following is for some reason "Perl script".
+#    $f = Irssi::active_win()->format_get_text("Irssi::Script::operview", Irssi::active_server(), undef, 'sb_kill', @lastkill);
+
+    $f = '{sb '.$lastkill[0].'%c@%n'.$lastkill[1].'}';
+  } elsif ($lastkill[2] eq 'o') {
+    $f = '{sb '.$lastkill[0].'%c<%n'.$lastkill[1].'}';
+  } elsif ($lastkill[2] eq 'c') {
+    $f = '{sb '.$lastkill[0].'%c!%n}';
+  }
+
+  $item->default_handler($get_size_only, $f, undef, 1);
+}
+
+
+sub refresh_sclientcount {
+  Irssi::statusbar_items_redraw('sclientcount');
+}
+
+sub refresh_kills {
+  Irssi::statusbar_items_redraw('kills');
+}
+
+
+Irssi::signal_add("event notice", "event_server_notice");
+Irssi::signal_add("event 211", "event_stats_numeric");
+Irssi::signal_add("event 213", "event_stats_numeric");
+Irssi::signal_add("event 214", "event_stats_numeric");
+Irssi::signal_add("event 215", "event_stats_numeric");
+Irssi::signal_add("event 216", "event_stats_numeric");
+Irssi::signal_add("event 218", "event_stats_numeric");
+#Irssi::signal_add("event 243", "event_stats_numeric");
+#Irssi::signal_add("event 244", "event_stats_numeric");
+#Irssi::signal_add("event 250", "event_stats_numeric");
+
+Irssi::settings_add_bool("lookandfeel", "mangle_stats_output", 0);
+Irssi::settings_add_bool("lookandfeel", "mangle_server_notices", 1);
+Irssi::settings_add_bool("lookandfeel", "ignore_server_kills", 0);
+Irssi::settings_add_bool("lookandfeel", "show_kills_path", 0);
+
+Irssi::statusbar_item_register("sclientcount", '$0', 'sclientcount');
+Irssi::statusbar_item_register("kills", '$0', 'kills');
+Irssi::statusbars_recreate_items();
+
+Irssi::print("OperView $VERSION loaded...");
diff --git a/scripts/opnotice.pl b/scripts/opnotice.pl
new file mode 100644
index 0000000..4d6b5b7
--- /dev/null
+++ b/scripts/opnotice.pl
@@ -0,0 +1,55 @@
+# Opnotice script, by Terje Tjeldnes (terje@darkrealm.no)
+# Compatible with bahamut (DALnet ircd) or any other ircd with
+# support for the /notice @#channel syntax.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# The complete text of the GNU General Public License can be found
+# on the World Wide Web: <URL:http://www.gnu.org/licenses/gpl.html>
+#
+# Commands: /o <text> in a channel.
+
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.1";
+
+%IRSSI = (
+	authors	=> "Terje \"xerath\" Tjeldnes",
+	contact	=> "terje\@darkrealm.no",
+	name	=> "Opnotice",
+	url	=> "http://palantir.darkrealm.no/opnotice.pl",
+	license	=> "GNU GPL v2",
+	changed	=> "Thu Jul 25 00:19:09 CEST 2002"
+);
+
+
+sub cmd_opnotice {
+my ($data, $server, $witem) = @_;
+
+if (!$server || !$server->{connected}) {
+      Irssi::print("Not connected to server");
+      return;
+}
+
+if ($witem && ($witem->{type} eq "CHANNEL")) {
+	chomp ($data);
+	$witem->command("NOTICE \@".$witem->{name}." $data");
+	}
+	else {
+		Irssi::print("Not in a channel, aborted");
+	}
+}
+
+Irssi::command_bind('o', 'cmd_opnotice');
+
+
diff --git a/scripts/opnotify.pl b/scripts/opnotify.pl
new file mode 100644
index 0000000..beb99d0
--- /dev/null
+++ b/scripts/opnotify.pl
@@ -0,0 +1,47 @@
+use Irssi 20020300;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "opnotify",
+        description     => "Hilights window refnumber in statusbar if someone ops/deops you on channel",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Mar 15 15:09:42 CET 2002"
+);
+
+sub event_modechange {
+	my ($server, $data, $nick) = @_;                                                                                                      
+	my ($channel, $mode, $rest) = split(/ /, $data, 3);
+	my $win = Irssi::active_win();
+	my $winchan = $server->window_find_item($channel);
+
+	return if $win->{refnum} == $winchan->{refnum};
+
+	my @rest = split(/ +/, $rest);
+
+	# l4m3 but speeds-up
+	return unless grep {/^$server->{nick}$/} @rest;
+
+	my $par = undef;
+	my $ind = 0;
+	my $op = $winchan->{active}->{chanop};
+	my $gotop = $op;
+	
+	for my $c (split(//, $mode)) {
+		if ($c =~ /[+-]/) {
+			$par = $c;
+		} elsif ($c eq "o") {
+			$gotop = ($par eq "+"? 1 : 0) if $rest[$ind++] eq $server->{nick};
+		} elsif ($c =~ /[vbkeIqhdO]/ || ($c eq "l" && $par eq "+")) {
+			$ind++;
+		}
+	}	
+
+	$winchan->activity(4) unless $gotop == $op;
+#	Irssi::print("%R>>%n $nick " . (($gotop)? "opped" : "deopped") . " You on %_$channel%_ /" . $server->{tag} . "/") unless $gotop == $op;
+}
+
+Irssi::signal_add("event mode", "event_modechange");                                                                                     
diff --git a/scripts/orphamp.pl b/scripts/orphamp.pl
new file mode 100644
index 0000000..386a5dc
--- /dev/null
+++ b/scripts/orphamp.pl
@@ -0,0 +1,130 @@
+#!/usr/bin/perl
+
+
+# You can freely redistribute this script, but don't change the IRSSI string
+# ------------------------------------------------------------------------------
+# now playing script for irssi and Orpheus mp3 player (recommended 1.4 or higher)
+# lsof needed critically! (with correct permissions)
+# mp3info needed, not cricital, but recommended (http://ibiblio.org/mp3info/)
+# script painfully made by Wohmatak :)
+# ------------------------------------------------------------------------------
+
+
+use Irssi;
+use vars qw($VERSION %IRSSI);  
+
+$VERSION = '0.9';
+
+%IRSSI = (
+        authors         => 'Wohmatak',
+        contact         => 'wohmatak@iglu.cz',
+        name            => 'orphamp',
+        description     => 'Displays the song played by orpheus',
+        license         => 'GPL',
+        url             => 'http://irssi.org/',
+        changed         => 'Wed',
+        command         => '/np',
+	
+); 
+
+Irssi::settings_add_str("misc", "np_lang", "en");
+Irssi::settings_add_int("misc", "show_npinfo", 1); 
+
+sub info {
+### onload message
+print "--- Wohmatak's Orpheus now playing script loaded! ---\nTo show now playing song, use /np command";
+print "You need lsof and mp3info in order to use orphamp script.";
+### feedback
+print "Feedback appreciated at wohmatak <at> iglu.cz, ICQ 70713105 or on IRCnet...";
+### should I show info?
+print "-----------------------------------------------------";
+print "If you don't want to see this welcome message anymore, check show_npinfo irssi setting";
+print "If you want now playing sentence in czech, check np_land irssi setting (currently en/cz supported)";
+print "-----------------------------------------------------";
+}
+
+sub void {
+
+### check, whether lsof works
+if (!`lsof -Fc -b -S 2`) { die "lsof command hasn't been found on your computer! Please check whether it is installed & has correct permissions... Orphamp deactivated";}
+### lsof command
+$raw = `lsof -S 2 -n -P -b | grep mpg123 | grep -i mp3 | grep REG | tail -n 1`;
+### split after /
+@split = split(/\//,$raw);
+### count the number of splits
+$pocet = $#split;
+### filename into one variable & newline department
+$filename = "";
+for ($i=1; $i<=$pocet; ++$i) {
+$filename .= "/";
+$filename .= @split[$i];
+}
+chomp($filename);
+
+### check, whether mp3info is installed
+if (`mp3info` && $filename) {
+
+    ## mp3info command, std_err to /dev/null 
+    ## (we don't want those ugly error messages in irssi window, do we?:)
+    $artist = `mp3info -p %a "$filename" 2> /dev/null`;
+    $song = `mp3info -p %t "$filename" 2> /dev/null`;
+    $album = `mp3info -p %l "$filename" 2> /dev/null`;
+    if (!$album) { $album = "unknown album";}
+    $year = `mp3info -p %y "$filename" 2> /dev/null`;
+    if (!$year) { $year = "unknown year";}
+
+
+    ## if there's no artist and song, display info from orpheus infopipe file (orpheus 1.4 needed)
+    if (!$artist && !$song) 
+    {
+	    $nazev = `cat ~/.orpheus/currently_playing`;
+	    $message = "prehrava ".$nazev.""; 
+    }
+    
+    else 
+    {
+	if (Irssi::settings_get_str("np_lang")  eq"en") 
+	{
+		     $message = "listens to ".$song." by ".$artist." ([".$year."] ".$album.")";
+	}
+	elsif (Irssi::settings_get_str("np_lang")  eq "cz") 
+	{
+		$message = "posloucha ".$song." od ".$artist." ([".$year."] ".$album.")";
+	}
+    }
+
+
+}
+
+
+### mp3info is not present (or we're playing a CD track)
+else {
+    if ($filename) 
+    {
+		 print "mp3info is not installed! please get it if you want to use orphamp script (http://ibiblio.org/mp3info/)"; 
+    }
+
+    $nazev = `cat ~/.orpheus/currently_playing`;
+    	if (Irssi::settings_get_str("np_lang") eq "en") 
+	{
+		     $message = "listens to ".$nazev.""; 
+	}
+	elsif (Irssi::settings_get_str("np_lang")  eq "cz") 
+	{
+		$message = "posloucha ".$nazev.""; 
+	}
+}
+
+### echo the message to channel
+my ($data, $server, $witem) = @_;
+if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY"))
+    { $witem->command("/me $message"); } 
+    else { print "* ".$message;}
+}
+
+if (Irssi::settings_get_int("show_npinfo")) {
+		info();
+		}
+
+Irssi::command_bind('np','void');
+Irssi::command_bind('npinfo','info');
diff --git a/scripts/osd.pl b/scripts/osd.pl
new file mode 100644
index 0000000..0d80f8a
--- /dev/null
+++ b/scripts/osd.pl
@@ -0,0 +1,312 @@
+use strict;
+use IO::Handle;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '0.3.3';
+%IRSSI = (
+	authors     => 'Jeroen Coekaerts, Koenraad Heijlen',
+	contact     => 'vipie@ulyssis.org, jeroen@coekaerts.be',
+	name        => 'osd',
+	description => 'An OnScreenDisplay (osd) it show\'s who is talking to you, on what IRC Network.',
+	license     => 'BSD',
+	url         => 'http://vipie.studentenweb.org/dev/irssi/',
+	changed     => '2004-01-09'
+);
+
+#--------------------------------------------------------------------
+# Changelog
+# 2004-01-09 
+#  - fix a typo in the help (M.G.Kishalmi)
+# TODO :
+#
+# * a setting that let's you display the text? (exploits?!)
+#
+#--------------------------------------------------------------------
+
+
+#--------------------------------------------------------------------
+# Public Variables
+#--------------------------------------------------------------------
+my %myHELP = ();
+
+#--------------------------------------------------------------------
+# Help function
+#--------------------------------------------------------------------
+sub cmd_help { 
+	my ($about) = @_;
+
+	%myHELP = (
+		osd_test => "
+osd_test
+
+Displays a small test message on screen
+",
+
+		osd_reload => "
+osd_reload
+
+Restarts the osd_cat program, it's especially need when
+have CHANGED settings. They DO NOT take effect UNTIL you RELOAD.
+",
+
+		osd => "
+OSD 
+
+You can display on screen who is paging/msg'ing you on IRC.
+
+When you CHANGE the settings you SHOULD use /osd_reload to let these changes
+take effect.
+
+Settings:
+---------
+
+* osd_color  	(default: blue)
+Currently the setting is: " . Irssi::settings_get_str('osd_color') . "
+
+It should be a valid X color, the list in normally located in /etc/X11/rgb.txt.
+
+* osd_font  	(default: -*-helvetica-medium-r-\*-\*-\*-320-\*-\*-\*-\*-\*-\*)
+Currently the setting is: " . Irssi::settings_get_str('osd_font') . "
+
+These fonts are available when you installed the microsoft font pack :-)
+-microsoft-tahoma-bold-r-normal-*-\*-320-\*-\*-p-\*-\*-\*
+-microsoft-verdana-bold-r-normal-\*-\*-320-\*-\*-p-\*-\*-\*
+
+This font is available on every linux install with the adobe fonts. 
+-*-helvetica-medium-r-\*-\*-\*-320-\*-\*-\*-\*-\*-\*
+
+*  osd_align	(default: right)
+Currently the setting is: " . Irssi::settings_get_str('osd_align') . "
+
+left|right|center (horizontal alignment)
+
+* osd_place	(default: top)
+Currently the setting is: " . Irssi::settings_get_str('osd_place') . "
+
+top|bottom|middle (vertical alginment)
+
+* osd_offset	(default: 100)
+Currently the setting is: " . Irssi::settings_get_str('osd_offset') . "
+
+The vertical offset from the screen edge set in osd_place.
+
+* osd_indent	(default: 100)
+Currently the setting is: " . Irssi::settings_get_str('osd_indent') . "
+
+The horizontal offset from the screen edge set in osd_align.
+
+* osd_shadow	(default: 0)
+Currently the setting is: " . Irssi::settings_get_str('osd_shadow') . "
+
+Set the shadow offset, if the offset is 0, the shadow is disabled.
+
+* osd_delay	(default: 4)
+Currently the setting is: " . Irssi::settings_get_str('osd_delay') . "
+
+How many seconds should the message remain on screen.
+
+* osd_age	(default: 4)
+Currently the setting is: " . Irssi::settings_get_str('osd_age') . "
+
+Time in seconds before old scroll lines are discarded.
+
+* osd_lines	(default: 5)
+Currently the setting is: " . Irssi::settings_get_str('osd_lines') . "
+
+Number of lines to display on screen at one time.
+
+* osd_DISPLAY	(default: :0.0)
+Currently the setting is: " . Irssi::settings_get_str('osd_DISPLAY') . "
+
+On what \$DISPLAY should the osd connect. (this makes tunneling possible)
+
+* osd_showactivechannel	(default: yes)
+Currently the setting is: " . Irssi::settings_get_str('osd_showactivechannel') . "
+
+When set to yes, OSD will be triggered even if the channel is the active channel.
+When set to yes, OSD will be triggered if you send a message from your own nick.
+
+You can test the OSD settings with the 'osd_test' command!
+he 'osd_test' to test them.
+
+",
+);
+
+	if ( $about =~ /(osd_reload|osd_test|osd)/i ) { 
+		Irssi::print($myHELP{lc($1)});
+	} 
+}
+
+#--------------------------------------------------------------------
+# Irssi::Settings
+#--------------------------------------------------------------------
+
+Irssi::settings_add_str('OSD', 'osd_color', "blue");
+
+#These fonts are available when you installed the microsoft font pack :-)
+#Irssi::settings_add_str('OSD', 'osd_font', "-microsoft-tahoma-bold-r-normal-\*-\*-320-\*-\*-p-\*-\*-\*");
+#Irssi::settings_add_str('OSD', 'osd_font', "-microsoft-verdana-bold-r-normal-\*-\*-320-\*-\*-p-\*-\*-\*");
+#This font is available on every linux install with the adobe fonts. 
+Irssi::settings_add_str('OSD', 'osd_font', "-*-helvetica-medium-r-\*-\*-\*-320-\*-\*-\*-\*-\*-\*");
+
+Irssi::settings_add_str('OSD', 'osd_age', "4");
+Irssi::settings_add_str('OSD', 'osd_align', "right");
+Irssi::settings_add_str('OSD', 'osd_delay', "4");
+Irssi::settings_add_str('OSD', 'osd_indent', "100");
+Irssi::settings_add_str('OSD', 'osd_lines', "5");
+Irssi::settings_add_str('OSD', 'osd_offset', "100");
+Irssi::settings_add_str('OSD', 'osd_place', "top");
+Irssi::settings_add_str('OSD', 'osd_shadow', "0");
+Irssi::settings_add_str('OSD', 'osd_DISPLAY', ":0.0");
+Irssi::settings_add_str('OSD', 'osd_showactivechannel', "yes");
+
+#--------------------------------------------------------------------
+# initialize the pipe, test it.
+#--------------------------------------------------------------------
+
+sub init {
+	pipe_open();
+	osdprint("OSD Loaded.");
+}
+
+#--------------------------------------------------------------------
+# open the OSD pipe
+#--------------------------------------------------------------------
+
+sub pipe_open {
+	my $place;		
+	my $version;
+	my $command;
+
+	$version = `osd_cat -h 2>&1` or die("The OSD program can't be started, check if you have osd_cat installed AND in your path.");
+	$version =~ /Version:\s*(.*)\s*/;
+	$version = $1;
+	#Irssi::print "Version: $version";
+
+	if ( $version =~ /^2.*/ ) { 
+		# the --pos argument seems to be broken on 2.0.X
+		if ( Irssi::settings_get_str('osd_place') eq "top" ) { 
+			$place = "-p top"; 
+		} elsif ( Irssi::settings_get_str('osd_place') eq "bottom") { 
+			$place = "-p bottom"; 
+		} else { 
+			$place = "-p middle"; 
+		}
+	} else {
+		if ( Irssi::settings_get_str('osd_place') eq "top" ) { 
+			$place = "--top"; 
+		} else { 
+			$place = "--bottom"; 
+		}
+	}
+	
+	$command = "|DISPLAY=".Irssi::settings_get_str('osd_display') .
+		" osd_cat $place " .
+		" --color=".Irssi::settings_get_str('osd_color').
+		" --delay=".Irssi::settings_get_str('osd_delay').
+		" --age=".Irssi::settings_get_str('osd_age').
+		" --font=".quotemeta(Irssi::settings_get_str('osd_font')).
+		" --offset=".Irssi::settings_get_str('osd_offset').
+		" --shadow=".Irssi::settings_get_str('osd_shadow'). 
+		" --lines=".Irssi::settings_get_str('osd_lines').
+		" --align=".Irssi::settings_get_str('osd_align');
+
+	if ( $version =~ /^2.*/ ) {
+		$command .= " --indent=".Irssi::settings_get_str('osd_indent');
+	}
+	open( OSDPIPE, $command ) 
+		or print "The OSD program can't be started, check if you have osd_cat installed AND in your path.";
+	OSDPIPE->autoflush(1);
+}
+
+#--------------------------------------------------------------------
+# Private message parsing
+#--------------------------------------------------------------------
+
+sub priv_msg {
+	my ($server,$msg,$nick,$address,$target) = @_;
+	if ((Irssi::settings_get_str('osd_showactivechannel') =~ /yes/) or
+	   not (Irssi::active_win()->get_active_name() eq "$nick") ) {
+			osdprint($server->{chatnet}.":$nick");
+	}
+}
+
+#--------------------------------------------------------------------
+# Public message parsing
+#--------------------------------------------------------------------
+
+sub pub_msg {
+	my ($server,$msg,$nick,$address, $channel) = @_;
+	my $show;
+
+	if (Irssi::settings_get_str('osd_showactivechannel') =~ /yes/) {
+		$show = 1;
+	} elsif(uc(Irssi::active_win()->get_active_name()) eq uc($channel)) {
+		$show = 0;
+	}
+
+	if ($show) {
+		my $onick= quotemeta "$server->{nick}";
+		my $pat ='(\:|\,|\s)'; # option...
+		if($msg =~ /^$onick\s*$pat/i){
+			osdprint("$channel".":$nick");
+		}
+	}
+}
+
+#--------------------------------------------------------------------
+# The actual printing
+#--------------------------------------------------------------------
+
+sub osdprint {
+	my ($text) = @_;
+	if (not (OSDPIPE->opened())) {pipe_open();}
+	print OSDPIPE "$text\n";
+	OSDPIPE->flush();
+}
+
+#--------------------------------------------------------------------
+# A test command.
+#--------------------------------------------------------------------
+
+sub cmd_osd_test {
+	osdprint("Testing OSD");
+}
+
+#--------------------------------------------------------------------
+# A command to close and reopen OSDPIPE
+#  so options take effect without needing to unload/reload the script
+#--------------------------------------------------------------------
+
+sub cmd_osd_reload {
+	close(OSDPIPE);
+	pipe_open();
+	osdprint("Reloaded OSD");
+}
+
+#--------------------------------------------------------------------
+# Irssi::signal_add_last / Irssi::command_bind
+#--------------------------------------------------------------------
+
+Irssi::signal_add_last("message public", "pub_msg");
+Irssi::signal_add_last("message private", "priv_msg");
+
+Irssi::command_bind("osd_reload","cmd_osd_reload", "OSD");
+Irssi::command_bind("osd_test","cmd_osd_test", "OSD");
+Irssi::command_bind("help","cmd_help", "Irssi commands");
+
+#--------------------------------------------------------------------
+# The command that's executed at load time.
+#--------------------------------------------------------------------
+
+init();
+
+#--------------------------------------------------------------------
+# This text is printed at Load time.
+#--------------------------------------------------------------------
+
+Irssi::print("Use /help osd for more information."); 
+
+
+#- end
diff --git a/scripts/ownage.pl b/scripts/ownage.pl
new file mode 100644
index 0000000..363c0b3
--- /dev/null
+++ b/scripts/ownage.pl
@@ -0,0 +1,49 @@
+# /OWNAGE [<output to channel>]
+# shows how many channels you're joined and how many in them you're op, and
+# how many nicks are in those channels (not including you)
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '20071209';
+%IRSSI = (
+    authors     => '',
+    contact     => '',
+    name        => '',
+    description => '',
+    license     => '',
+    commands    => 'ownage',
+);
+
+sub cmd_ownage {
+    my $chans   = 0;
+    my $opchans = 0;
+    my $nicks   = 0;
+    my $opnicks = 0;
+
+    foreach my $channel ( Irssi::channels() ) {
+        $chans++;
+        if ( $channel->{chanop} ) {
+            $opchans++;
+            my @channicks = $channel->nicks();
+            $nicks += ( scalar @channicks ) - 1;
+
+            $opnicks--;    # don't count youself
+            foreach my $nick (@channicks) {
+                $opnicks++ if $nick->{op};
+            }
+        }
+    }
+    my ( undef, undef, $dest ) = @_;
+    my $text =
+      "@" . "$opchans / $chans : $nicks nicks (of which $opnicks are ops)";
+    if ( $dest && ( $dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY" ) ) {
+        $dest->command("msg $dest->{name} $text");
+    }
+    else {
+        Irssi::print $text, MSGLEVEL_CLIENTCRAP;
+    }
+}
+
+Irssi::command_bind( 'ownage', 'cmd_ownage' );
diff --git a/scripts/page-c0ffee.pl b/scripts/page-c0ffee.pl
new file mode 100644
index 0000000..4cbc4bf
--- /dev/null
+++ b/scripts/page-c0ffee.pl
@@ -0,0 +1,115 @@
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION = "0.02";
+%IRSSI = (
+    authors	=> "c0ffee",
+    contact	=> "c0ffee\@penguin-breeder.org",
+    name	=> "mIRC pager",
+    description	=> "Adds the /PAGE command to page a nick (use /page nick <text>)... to ignore pages /set pager_mode off",
+    license	=> "Public Domain",
+    url		=> "http://www.penguin-breeder.org/?page=irssi",
+    changed	=> "Sun Feb 16 11:32 CET 2003",
+);
+
+use Irssi::Irc;
+
+Irssi::theme_register(['page_received','-({channick_hilight $0})- $1',
+	'page_sending','Paging {nick $0}...',
+	'page_pageroff','Page request ignored: {nick $0}\'s pager is {hilight OFF}',
+	'page_pagersilent','Page request to {nick $0} dispatched silently',
+	'page_pageron','Page request to {nick $0} dispatched']);
+
+sub signal_ctcpmsg_reply {
+	my ($server, $data, $nick, $addr, $target) = @_;
+
+	if ($data eq "0") {
+
+		Irssi::printformat(MSGLEVEL_CRAP,'page_pageroff',$nick);
+
+	} elsif ($data eq "1") {
+		
+		Irssi::printformat(MSGLEVEL_CRAP,'page_pagersilent',$nick);
+
+	} elsif ($data eq "2") {
+		
+		Irssi::printformat(MSGLEVEL_CRAP,'page_pageron',$nick);
+		
+	} 
+	
+	Irssi::signal_stop();
+}
+
+sub signal_ctcpmsg {
+	my ($server, $data, $nick, $addr, $target) = @_;
+	my $pm = Irssi::settings_get_bool('pager_mode');
+	my $cmd = Irssi::settings_get_str('pager_cmd');
+	my $answer = 0, $pid;
+	my $rnd = int(rand(65535));
+
+	if ($pm) {
+		$data = "requesting your attention" if ($data eq "");
+		Irssi::printformat(MSGLEVEL_CTCPS, 'page_received',$nick,$data);
+		$answer = 1;
+
+		$nick =~ s/\\/\\\\/g;
+		$nick =~ s/\$/\\\$/g;
+		$nick =~ s/;/\\;/g;
+		
+		$data =~ s/\\/\\\\/g;
+		$data =~ s/\$/\\\$/g;
+		$data =~ s/;/\\;/g;
+
+		if ($cmd ne "") {
+
+			$answer = 2;
+			$cmd =~ s/\$r/$rnd/g;
+			$cmd =~ s/\$n/$nick/g;
+			$cmd =~ s/\$i/$server->{chatnet}/g;
+			$cmd =~ s/\$s/$server->{address}/g;
+			$cmd =~ s/\$t/scalar localtime/eg;
+			$cmd =~ s/\$m/$data/g;
+
+			Irssi::command("$cmd");
+
+		}
+	}
+
+	$server->send_raw("NOTICE $nick :\001PAGE $answer\001");
+	
+	Irssi::signal_stop();
+}
+
+sub cmd_page {
+	my ($data, $server, $channel) = @_;
+	my ($nick, $what);
+
+	$nick = $data;
+	$nick =~ s/\s(.+)//;
+	$what = $1;
+	$what = " $what" if ($what ne "");
+	
+	$server->send_raw("PRIVMSG $nick :\001PAGE$what\001");
+	Irssi::printformat(MSGLEVEL_CRAP,'page_sending', $nick);
+
+}
+
+Irssi::signal_add('ctcp msg page', 'signal_ctcpmsg');
+Irssi::signal_add('ctcp reply page', 'signal_ctcpmsg_reply');
+Irssi::command_bind('page','cmd_page');
+Irssi::settings_add_bool('misc','pager_mode',true);
+Irssi::settings_add_str('misc', 'pager_cmd', "");
+# ok, here for the pager_cmd syntax:
+# "command [parameters]+"
+# where the following things will be replaced:
+#  $n	the nick who paged you
+#  $m	the message
+#  $t	timestamp (format depends on locale)
+#  $i	ircnet
+#  $s	server
+#  $r   a random number
+#
+# for example:
+#   /set pager_cmd exec - play /usr/share/sounds/generic.wav
+#   /set pager_cmd beep
+#   /set pager_cmd eval exec -nosh -name wish$r wish - ; exec -in wish$r wm withdraw . ; exec -in wish$r tk_messageBox -message "$m" -icon info -type ok -title "$n paging..." ; exec -in wish$r destroy .
diff --git a/scripts/page_reeler.pl b/scripts/page_reeler.pl
new file mode 100644
index 0000000..5b25fd2
--- /dev/null
+++ b/scripts/page_reeler.pl
@@ -0,0 +1,47 @@
+# Page script 0.2
+#
+# Thomas Graf <irssi@reeler.org>
+
+use Irssi;
+use Irssi::Irc;
+$VERSION = "0.2";
+%IRSSI = (
+    authors     => 'Thomas Graf',
+    contact     => 'irssi@reeler.org',
+    name        => 'page',
+    description => 'display and send CTCP PAGE',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.reeler.org/',
+);
+
+use strict;
+
+sub sig_ctcp_msg
+{
+    my ($server, $args, $sender, $addr, $target) = @_;
+
+    if ( $args =~ /page/i ) {
+        Irssi::active_win()->printformat(MSGLEVEL_CRAP, 'page', "$sender!$addr is paging you!");
+        Irssi::signal_stop();
+    }
+}
+
+sub sig_page
+{
+    my ($cmd_line, $server, $win_item) = @_;
+    my @args = split(' ', $cmd_line);
+
+    if (@args <= 0) {
+        Irssi::active_win()->print("Usage: PAGE <nick>");
+        return;
+    }
+
+    my $nick = lc(shift(@args));
+
+    $server->command("CTCP $nick PAGE");
+}
+
+Irssi::signal_add_first('default ctcp msg', 'sig_ctcp_msg');
+Irssi::command_bind('page', 'sig_page');
+
+Irssi::theme_register(['page', '[%gPAGE%n]$0-']);
diff --git a/scripts/pager.pl b/scripts/pager.pl
new file mode 100644
index 0000000..dc92478
--- /dev/null
+++ b/scripts/pager.pl
@@ -0,0 +1,121 @@
+# $Id: pager.pl,v 1.23 2003/01/27 09:45:16 jylefort Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "1.1";
+%IRSSI = (
+	  authors     => 'Jean-Yves Lefort',
+	  contact     => 'jylefort\@brutele.be',
+	  name        => 'pager',
+	  description => 'Notifies people if they send you a private message or a DCC chat offer while you are away; runs a shell command configurable via /set if they page you',
+	  license     => 'BSD',
+	  changed     => '$Date: 2003/01/27 09:45:16 $ ',
+);
+
+# note:
+#
+#	Irssi special variables (see IRSSI_DOC_DIR/special_vars.txt) will be
+#	expanded in *_notice /set's, and will NOT be expanded in page_command
+#	for obvious security reasons.
+#
+# /set's:
+#
+#	page_command	a shell command to run if someone sends you the
+#			private message 'page' while you are away
+#
+#	away_notice	a notice to send to someone sending you a private
+#			message while you are away
+#
+#	paged_notice	a notice to send to someone who has just paged you
+#
+#	dcc_notice	a notice to send to someone who has just sent you
+#			a DCC chat offer (this automatically pages you)
+#
+# changes:
+#
+#	2003-01-27	release 1.1
+#			* notices and commands are now optional
+#
+#	2002-07-04	release 1.01
+#			* things are now printed in the right order
+#			* signal_add's uses a reference instead of a string
+#
+#	2002-04-25	release 1.00
+#			* increased version number
+#
+#	2002-02-06	release 0.20
+#			* builtin expand deprecated;
+#			  now uses Irssi's special variables
+#
+#	2002-01-27	release 0.11
+#			* uses builtin expand
+#
+#	2002-01-23	initial release
+
+use strict;
+use Irssi::Irc;			# for DCC object
+
+sub message
+  {
+    my ($server, $msg, $nick, $address) = @_;
+  
+    if ($server->{usermode_away})
+      {
+	if (lc($msg) eq "page")
+	  {
+	    my $page_command = Irssi::settings_get_str("page_command");
+	    my $paged_notice = Irssi::settings_get_str("paged_notice");
+
+	    if ($page_command)
+	      {
+		system($page_command);
+	      }
+	    if ($paged_notice)
+	      {
+		$server->command("EVAL NOTICE $nick $paged_notice");
+	      }
+	  }
+	else
+	  {
+	    my $away_notice = Irssi::settings_get_str("away_notice");
+	    
+	    if ($away_notice)
+	      {
+		$server->command("EVAL NOTICE $nick $away_notice");
+	      }
+	  }
+      }
+  }
+
+sub dcc_request
+  {
+    my ($dcc, $sendaddr) = @_;
+    
+    if ($dcc->{server}->{usermode_away} && $dcc->{type} eq "CHAT")
+      {
+	my $page_command = Irssi::settings_get_str("page_command");
+	my $dcc_notice = Irssi::settings_get_str("dcc_notice");
+
+	if ($page_command)
+	  {
+	    system($page_command);
+	  }
+	if ($dcc_notice)
+	  {
+	    $dcc->{server}->command("EVAL NOTICE $dcc->{nick} $dcc_notice");
+	  }
+      }
+  }
+
+Irssi::settings_add_str("misc",	"page_command",
+			"esdplay ~/sound/events/page.wav &");
+Irssi::settings_add_str("misc", "away_notice",
+			'$N is away ($A). Type /MSG $N PAGE to page him.');
+Irssi::settings_add_str("misc", "paged_notice",
+			'$N has been paged.');
+Irssi::settings_add_str("misc",	"dcc_notice",
+			'$N is away ($A) and has been paged. Type /MSG $N PAGE to page him again.');
+
+Irssi::signal_add_priority("message private", \&message,
+			   Irssi::SIGNAL_PRIORITY_LOW + 1);
+Irssi::signal_add_priority("dcc request", \&dcc_request,
+			   Irssi::SIGNAL_PRIORITY_LOW + 1);
diff --git a/scripts/paste-derwan.pl b/scripts/paste-derwan.pl
new file mode 100644
index 0000000..bc4e89f
--- /dev/null
+++ b/scripts/paste-derwan.pl
@@ -0,0 +1,184 @@
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.9";
+%IRSSI = (
+	'authors'	=> 'Marcin Rozycki, Stanislaw Halik',
+	'contact'	=> 'derwan@irssi.pl',
+	'name'		=> 'paste',
+	'description'	=> 'Usage: /paste [-all|-msgs|-public] [-c|-b] [-s|-l| where] [lines]',
+	'url'		=> 'http://derwan.irssi.pl',
+	'license'	=> 'GNU GPL v2',
+	'changed'	=> 'Tue Oct 12 23:37:12 CEST 2004'
+);
+
+use Irssi::TextUI;
+use POSIX qw(strftime);
+
+# Examples:
+#	/paste
+#	/paste -l
+#	/paste -l +9
+#	/paste derwan +2,11,18-23
+#	/paste derwan,#irssi -msgs -5,22,18+1 16
+#	/paste -s -30
+
+Irssi::settings_add_str("misc", "paste_save_file", Irssi::get_irssi_dir() . "/paste.save");
+Irssi::settings_add_int("misc", "paste_default_level", 0);
+Irssi::settings_add_bool("misc", "paste_use_colors", 0);
+Irssi::settings_add_bool("misc", "paste_send_index", 0);
+
+my $paste_use_level = MSGLEVEL_SNOTES;
+my $paste_warning_send = 10;
+my $paste_warning_show = 60;
+
+sub paste {
+	my ($server, $window, $where, $size, $yes) = ($_[1], Irssi::active_win(), undef, undef, 0);
+	my $colorize = Irssi::settings_get_bool("paste_use_colors");
+	my $level = Irssi::settings_get_int("paste_default_level");
+	my $file = Irssi::settings_get_str("paste_save_file");
+	my @lines = ();
+	my @args = split(/ |,/, $_[0]);
+	while ($_ = shift(@args))
+	{
+		/^\d+$/ and push(@lines, $_), next;
+		/^(\+|-)\d+$/ and $_ = "1" . $_;
+		/^\d+\+\d+$/ and do {
+			my ($i, $x) = split(/\+/, $_);
+			$_ = $i . "-" . ($i+$x);
+		};
+		/^\d+-\d+$/ and do {
+			my ($i, $x) = split(/-/, $_);
+			push(@lines, $i..$x);
+			next;
+		};
+		/^-(a|all)$/ and $level = 0, next;
+		/^-(m|msgs)$/ and $level = 1, next;
+		/^-(p|public)$/ and $level = 2, next;
+		/^-c$/ and $colorize = 1, next;
+		/^-b$/ and $colorize = 0, next;
+		/^-(l|s)$/ and $where = $_, next;
+		/^-yes$/i and $yes = 1, next;
+		/^(-|\d)/ and do {
+			$window->print("Paste: Bad argument: $_", $paste_use_level);
+			return;
+		};
+		$where .= ($where) ? "," . $_ : $_;
+	};
+	if ($where !~ /^-(l|s)/) {
+		$window->print("Paste: Not connected to server", $paste_use_level), return if (!$server or !$server->{connected});
+		unless ($where) {
+			$window->print("Paste: Not joined to any channel or query window", $paste_use_level), return
+					if (!$_[2] or $_[2]->{type} !~ /^(channel|query)/i);
+			$where = $window->get_active_name();
+		};
+	} elsif ($where =~ /^-l/) {
+		$colorize = 0;
+		$size = $window->{width} - 6;
+		$size -= (length(strftime(Irssi::settings_get_str("timestamp_format"), localtime)) + 1) if (Irssi::settings_get_bool("timestamps"));
+	}elsif (!$file) {
+		$window->print("Paste: Savefile is not defined, use: /SET paste_save_file [path], to set this", $paste_use_level);
+		return;
+	};
+	my ($line, $idx_last, $cnt) = ($window->view()->{buffer}->{cur_line}, undef, 0);
+	@lines = ($where =~ /^-l/) ? (1..($window->{height})) : (1) if ($#lines < 0);
+	my @buffer = ();
+	for my $idx (sort {$a <=> $b} @lines) {
+		next if ($idx == $idx_last);
+		while ($idx) {
+			last unless ($line);
+			my $line_level = $line->{info}->{level};
+			if ($level == 0 && ($line_level & ($paste_use_level)) == 0 or
+			    $level == 1 && ($line_level & (MSGLEVEL_MSGS)) != 0 or
+			    $level == 2 && ($line_level & (MSGLEVEL_PUBLIC)) != 0) {
+				if (++$cnt == $idx) {
+					my $text = $line->get_text($colorize);
+					$text = substr($text, 0, ($size-1)).'$' if ($size and length($text) > $size);
+					push @buffer, [$idx, $text];
+					$idx_last = $idx;
+					undef $idx;
+				};
+
+			};
+			$line = $line->prev();
+		};
+		last unless ($line);
+	};
+	if ($#buffer < 0) {
+		$window->print("Paste: Buffer for this window in this level is empty", $paste_use_level);
+		return;
+	}elsif (!$yes and ($where !~ /^-(l|s)/ && $#buffer > $paste_warning_send or $where =~ /^-l/ && $#buffer > $paste_warning_show)) {
+		$window->print("Paste: Doing this is not a good idea. Add -YES option to command if you really mean it", $paste_use_level);
+		return;
+	};
+	if ($where =~ /^-s/) {
+		open (F, ">>$file") or do {
+			$window->print("Paste: Cannot write savefile \"$file\"", $paste_use_level);
+			return;
+		};
+		print F "\n-- paste ".strftime("%c", localtime)." ($server->{tag})\n";
+	};
+	$_ = $where;
+	my $index_test = Irssi::settings_get_bool("paste_send_index");
+	for (my $loop = $#buffer; $loop >= 0; $loop--) {
+		/^-l/ and $window->print("%K[%n%_".sprintf("%3d", $buffer[$loop][0])."%_%K]%n $buffer[$loop][1]", $paste_use_level), next;
+		/^-s/ and do {
+			print F $buffer[$loop][1]."\n";
+			next;
+		};
+		my $text = ($index_test) ? sprintf("%03d", $buffer[$loop][0]) ." $buffer[$loop][1]" : $buffer[$loop][1];
+		$server->command("msg $where ".to_mirc($text));
+	};
+	/^-s/ and do {
+		close(F);
+		$window->print("Paste: Saved ".($#buffer + 1)." lines in \"$file\"", $paste_use_level);
+	};
+}
+
+# too_mirc()
+# Stanislaw Halik <weirdo@blindfold.no-ip.com>
+sub to_mirc ($)
+{
+ my $text = shift();
+ $text =~ s/[\004]g\//\003\002\002/g;
+ $text =~ s/[\004]\?\/+/\0030\002\002/g;
+ $text =~ s/[\004]0\//\0031\002\002/g;
+ $text =~ s/[\004]0/\0031\002\002/g;
+ $text =~ s/[\004]1\//\0032\002\002/g;
+ $text =~ s/[\004]1/\0032\002\002/g;
+ $text =~ s/[\004]2\//\0033\002\002/g;
+ $text =~ s/[\004]2/\0033\002\002/g;
+ $text =~ s/[\004]<\//\0034\002\002/g;
+ $text =~ s/[\004]</\0034\002\002/g;
+ $text =~ s/[\004]4\//\0035\002\002/g;
+ $text =~ s/[\004]4/\0035\002\002/g;
+ $text =~ s/[\004]5\//\0036\002\002/g;
+ $text =~ s/[\004]5/\0036\002\002/g;
+ $text =~ s/[\004]6\//\0037\002\002/g;
+ $text =~ s/[\004]6/\0037\002\002/g;
+ $text =~ s/[\004]>\//\0038\002\002/g;
+ $text =~ s/[\004]>/\0038\002\002/g;
+ $text =~ s/[\004]:\//\0039\002\002/g;
+ $text =~ s/[\004]:/\0039\002\002/g;
+ $text =~ s/[\004]3\//\00310\002\002/g;
+ $text =~ s/[\004]3/\00310\002\002/g;
+ $text =~ s/[\004]\;\//\00311\002\002/g;
+ $text =~ s/[\004]\;/\00311\002\002/g;
+ $text =~ s/[\004]9\//\00312\002\002/g;
+ $text =~ s/[\004]9/\00312\002\002/g;
+ $text =~ s/[\004]=\//\00313\002\002/g;
+ $text =~ s/[\004]=/\00313\002\002/g;
+ $text =~ s/[\004]8\//\00314\002\002/g;
+ $text =~ s/[\004]8/\00314\002\002/g;
+ $text =~ s/[\004]7\//\00315\002\002/g;
+ $text =~ s/[\004]7/\00315\002\002/g;
+ $text =~ s/[\004]g\//\003\002\002/g;
+ $text =~ s/[\004]g/\003\002\002/g;
+ $text =~ s/[\004]8\//\003\002\002/g;
+ $text =~ s/[\004]8/\003\002\002/g;
+ return $text;
+}
+
+Irssi::command_bind("paste", "paste");
+
diff --git a/scripts/paste_derwan.pl b/scripts/paste_derwan.pl
new file mode 100644
index 0000000..6b587c3
--- /dev/null
+++ b/scripts/paste_derwan.pl
@@ -0,0 +1,381 @@
+# $Id: paste_derwan.pl,v 1.0-rc5 2004/11/13 14:32 derwan Exp $
+#
+
+use strict;
+use vars qw($VERSION %IRSSI %HELP);
+
+use Irssi 0 qw
+(
+   active_win server_find_tag signal_stop window_find_name parse_special
+);
+
+$VERSION = '1.0-rc5';
+%IRSSI =
+(
+   'authors'      => 'Marcin Rozycki',
+   'contact'      => 'derwan@irssi.pl',
+   'name'         => 'paste',
+   'description'  => 'Pasting lines to specified targets, type "/paste -help" for help',
+   'license'      => 'GNU GPL v2',
+   'modules'      => '',
+   'url'          => 'http://derwan.irssi.pl',   
+   'changed'      => 'Sat Nov 13 14:32:13 2004',
+);
+
+$HELP{'paste'} = <<EOF;
+PASTE [-help] [-c] [-q] [-msg | -notice] [-<server tag>] [<target>] [<indexes>]
+
+    -help: print this help
+    -c: enable colors
+    -q: quiet mode (pasted lines are not dispalyed)
+    -msg: sends messages as msg (as default)
+    -notice: sends messages as notice
+    -<server target>: sends messages to specified server
+    <target>: targets (separated with commas)
+    <indexes>: indexes of lines to paste ( separated with spaces)
+
+Examples:
+
+    /PASTE                           - pasting to active channel or query
+    /PASTE -c                        - pasting to active channel or query with colors
+    /PASTE -c 1 3-5                  - pasting to active channel or query lines 1, 3, 4 and 5
+    /PASTE -notice                   - pasting to active item - messages sent as notice, not msg
+    /PASTE derwan                    - sends messages to derwan 
+    /PASTE -ircnet -c derwan,#irssi  - sends messages (with colors) to derwan and #irssi in IRCNet
+
+Paste window - indexes:
+
+    [0] [<index>] [<index from>-<index to>]
+    
+Examples:
+
+    0          - cancel
+    4          - line 4
+    4 8 9 10   - lines 4, 8, 9, 10
+    4 8-10     - lines 4, 8, 9, 10
+
+Themes:
+
+    paste_normal             - \$0 line
+    paste_reverse            - \$0 line
+    paste_count              - \$0 count, \$1 server tag, \$2 target
+    paste_input
+    paste_no_server          - \$0 comment
+    paste_argument_missing   - \$0 option, \$1 comment
+    paste_argument_unknown   - \$0 option, \$1 comment
+    paste_nothing
+
+Your version is $VERSION - for updates visit $IRSSI{url}
+Mail bug reports and suggestions to <$IRSSI{contact}>
+EOF
+
+my ( $p );
+
+# paste (str data, rec server, rec window)
+sub paste ($$$)
+{
+    buf_destroy();
+
+    $p = {};
+    $p->{color} = 0;
+    $p->{cmd} = 'msg';
+    $p->{quiet} = 0;
+
+    my $win = active_win();
+
+    foreach my $arg ( split /\s+/, $_[0] )
+    {
+       ( $arg eq '-help' ) and Irssi::print($HELP{'paste'}, MSGLEVEL_CLIENTCRAP), return;
+       ( $arg eq '-c' ) and $p->{color} = 1, next;
+       ( $arg eq '-q' ) and $p->{quiet} = 1, next;
+       ( $arg =~ m/^-(msg|notice)$/ ) and $p->{cmd} = $1, next;
+       ( $arg =~ m/^-(.*)$/ and !$p->{tag} ) and $p->{tag} = $1, next;
+       ( $arg =~ m/^([^-\s]*[^-\d]+[^\s]*)$/ and !$p->{target} ) and $p->{target} = $1, next;
+       ( $arg =~ m/^([1-9]\d*)$/ ) and $p->{l}->{$1} = 1, next;
+       if ( $arg =~ m/^([1-9]\d*)-(\d+)$/ and $1 <= $2 )
+       {
+          map { $p->{l}->{$_} = $p->{buf}->[$_-1] } ( $1 .. $2 );
+          next;
+       }
+
+       $win->printformat
+       (
+          MSGLEVEL_CRAP, 'paste_argument_unknown', $arg, 'type /paste -help for help'
+       );
+       buf_destroy(), return;
+    }
+
+    if ( !exists $p->{tag} or !defined $p->{tag} )
+    {
+       if ( !ref $_[1] and !ref $win->{server} )
+       {
+           $win->printformat
+	   (
+	      MSGLEVEL_CRAP, 'paste_argument_missing', 'server tag', 'type /paste -help for help'
+	   );
+           buf_destroy(), return;     
+       }
+       $p->{tag} = ( ref $_[1] ) ? $_[1]->{tag} : $win->{active}->{server}->{tag};
+    }
+    elsif ( ! ref server_find_tag($p->{tag}) )
+    {
+       $win->printformat
+       (
+          MSGLEVEL_CRAP, 'paste_argument_unknown', $p->{tag}, 'not connected to that server'
+       );
+       buf_destroy(), return;
+    }
+
+    unless ( exists $p->{target} and defined $p->{target} )
+    {
+       if ( !ref $win->{active} or !$win->{active}->{name} )
+       {
+          $win->printformat
+	  (
+	     MSGLEVEL_CRAP, 'paste_argument_missing', 'target', 'type /paste -help for help'
+          );
+          buf_destroy(), return;
+       }
+       $p->{target} = $win->{active}->{name};
+    }
+
+    if ( buf_create() == 0 )
+    {
+       $win->printformat
+       (
+          MSGLEVEL_CRAP, 'paste_nothing'
+       );
+       buf_destroy(), return;
+    }
+    
+    foreach my $idx ( keys %{$p->{l}} )
+    {
+       $p->{l}->{$idx} = $p->{buf}->[$idx-1];
+    }
+
+    buf_destroy(), return if ( buf_flush() != 0 );
+
+    $p->{win} = sprintf('paste.%d', (int(rand(9000))+1000));
+    my $input = Irssi::Windowitem::window_create($p->{win}, 1);
+    $input->set_name($p->{win});
+    $input->set_history($p->{win});
+    $input->change_server(server_find_tag($p->{tag}));
+
+    my $width = $input->{width} - 8;
+    my $theme = 'normal';
+
+    for ( my $idx = $#{$p->{buf}}; $idx >= 0; $idx-- )
+    {
+      my $text = $p->{buf}->[$idx]->get_text(0);
+      $text = sprintf
+      (
+         '%03d %'.( length($text) > $width ? '.'.($width-1).'s$' : '-'.$width.'s' ).
+	 ' %03d', $idx+1, $text, $idx+1
+      );
+      $input->printformat(MSGLEVEL_NOHILIGHT, 'paste_'.$theme, $text);
+      $theme = $theme eq 'normal' ? 'reverse' : 'normal';
+    }
+
+    $input->printformat(MSGLEVEL_NOHILIGHT, 'paste_input');
+    $input->set_active();
+};
+
+sub buf_create ()
+{
+    return unless ( defined $p and ref $p );
+
+    my $win = active_win();
+    return 0 unless ( ref $win );  
+    
+    my $curline =  $win->view()->{buffer}->{cur_line};
+    return 0 unless ( ref $curline );
+
+    for ( my $idx = 0; $idx < 100; $idx++ )
+    {
+       last unless ( ref $curline );
+       push @{$p->{buf}}, $curline;
+       $curline = $curline->prev();
+    }
+
+    return ( $#{$p->{buf}} >= 0 ? 1 : 0 );
+}
+
+sub buf_flush ()
+{
+    return unless ( defined $p and ref $p );
+    
+    my $serv = server_find_tag($p->{tag});
+
+    unless ( ref $serv and $serv->{connected} )
+    {
+       active_win()->printformat
+       (
+          MSGLEVEL_CRAP, 'paste_no_server', $p->{tag}
+       );       
+
+       return -1;
+    }
+
+    my $count = 0;
+    foreach my $idx ( sort { $b <=> $a } ( keys %{$p->{l}} ) )
+    {
+       if ( defined $p->{l}->{$idx} and ref $p->{l}->{$idx} and ++$count )
+       {
+          if ( $p->{quiet} == 0 )
+	  {       
+	     my $cmd = sprintf
+	     (
+	        '%s %s %s', $p->{cmd}, $p->{target}, convertstr($p->{l}->{$idx}->get_text($p->{color}))
+	     );
+             $serv->command($cmd);
+          }
+	  else
+	  {
+             my $raw = sprintf
+	     (
+                '%s %s :%s', ( $p->{cmd} eq 'msg' ? 'privmsg' : 'notice' ), $p->{target},
+		convertstr($p->{l}->{$idx}->get_text($p->{color}))
+             );
+	     $serv->send_raw($raw);
+          }
+	     
+       }
+    }
+
+    if ( $count > 0 )
+    {
+       active_win()->printformat(MSGLEVEL_CRAP, 'paste_count', $count, $p->{tag}, $p->{target});
+    }
+    else
+    {
+       active_win()->printformat(MSGLEVEL_CRAP, 'paste_nothing');
+    }
+
+    return $count;
+}
+
+# sig_send_command (str data, rec server, rec window)
+sub sig_send_command ($$$)
+{
+    unless ( defined $p and ref $p and defined $p->{win} )
+    {
+       return;
+    }
+    
+    my $win = active_win();
+
+    if ( $_[0] eq 0 )
+    {
+       buf_destroy(), return;
+    }
+    
+    if ( substr($_[0], 0, 1) eq parse_special('$K') )
+    {
+       return;
+    }
+
+    unless ( ref $win and $win->{name} eq $p->{win} )
+    {
+       return;
+    }
+
+    signal_stop ();
+
+    $win->destroy();
+    delete $p->{win};
+
+    foreach my $arg ( split /\s+/, $_[0] )
+    {
+       if ( $arg =~ m/^(\d+)$/ and $1 > 0 )
+       {
+          $p->{l}->{$1} = $p->{buf}->[$1-1];
+       }
+       elsif ( $arg =~ m/^([1-9]\d*)-(\d+)$/ and $1 <= $2 )
+       {
+          map { $p->{l}->{$_} = $p->{buf}->[$_-1] } ( $1 .. $2 );
+       }
+       else
+       {
+          active_win()->printformat(MSGLEVEL_CRAP, 'paste_argument_unknown', $arg, 'type /paste -help for help');
+       }      
+    }
+
+    buf_flush();
+    buf_destroy();
+};
+
+sub buf_destroy ()
+{
+   if ( defined $p and ref $p )
+   {
+       @{$p->{buf}} = () if ( defined $p->{buf} and ref $p->{buf} );
+       %{$p->{l}} = () if ( defined $p->{l} and ref $p->{l} );
+       if ( defined $p->{win} )
+       {
+          my $win = window_find_name($p->{win});
+          $win->destroy if ( ref $win );
+       }
+       undef ( $p );
+   }
+}              
+
+# convertstr (str text), str text
+# thanks for Stanislaw Halik <weirdo@blindfold.no-ip.com>
+sub convertstr ($)
+{
+   if ( $_[0] )
+   {
+      $_[0] =~ s/[\004]g\//\003\002\002/g;
+      $_[0] =~ s/[\004]\?\/+/\0030\002\002/g;
+      $_[0] =~ s/[\004]0\//\0031\002\002/g;
+      $_[0] =~ s/[\004]0/\0031\002\002/g;
+      $_[0] =~ s/[\004]1\//\0032\002\002/g;
+      $_[0] =~ s/[\004]1/\0032\002\002/g;
+      $_[0] =~ s/[\004]2\//\0033\002\002/g;
+      $_[0] =~ s/[\004]2/\0033\002\002/g;
+      $_[0] =~ s/[\004]<\//\0034\002\002/g;
+      $_[0] =~ s/[\004]</\0034\002\002/g;
+      $_[0] =~ s/[\004]4\//\0035\002\002/g;
+      $_[0] =~ s/[\004]4/\0035\002\002/g;
+      $_[0] =~ s/[\004]5\//\0036\002\002/g;
+      $_[0] =~ s/[\004]5/\0036\002\002/g;
+      $_[0] =~ s/[\004]6\//\0037\002\002/g;
+      $_[0] =~ s/[\004]6/\0037\002\002/g;
+      $_[0] =~ s/[\004]>\//\0038\002\002/g;
+      $_[0] =~ s/[\004]>/\0038\002\002/g;
+      $_[0] =~ s/[\004]:\//\0039\002\002/g;
+      $_[0] =~ s/[\004]:/\0039\002\002/g;
+      $_[0] =~ s/[\004]3\//\00310\002\002/g;
+      $_[0] =~ s/[\004]3/\00310\002\002/g;
+      $_[0] =~ s/[\004]\;\//\00311\002\002/g;
+      $_[0] =~ s/[\004]\;/\00311\002\002/g;
+      $_[0] =~ s/[\004]9\//\00312\002\002/g;
+      $_[0] =~ s/[\004]9/\00312\002\002/g;
+      $_[0] =~ s/[\004]=\//\00313\002\002/g;
+      $_[0] =~ s/[\004]=/\00313\002\002/g;
+      $_[0] =~ s/[\004]8\//\00314\002\002/g;
+      $_[0] =~ s/[\004]8/\00314\002\002/g;
+      $_[0] =~ s/[\004]7\//\00315\002\002/g;
+      $_[0] =~ s/[\004]7/\00315\002\002/g;
+      $_[0] =~ s/[\004]g\//\003\002\002/g;
+      $_[0] =~ s/[\004]g/\003\002\002/g;
+      $_[0] =~ s/[\004]8\//\003\002\002/g;
+      $_[0] =~ s/[\004]8/\003\002\002/g;
+   }
+   return $_[0];
+}
+
+Irssi::theme_register
+([
+   'paste_normal', '$0-',
+   'paste_reverse', '%c$0-%n',
+   'paste_input', '%7%r type indexes of lines to paste (type "0" for cancel or "/paste -help" for help): %8%n',
+   'paste_count', '%_Irssi%_: {hilight $0} line(s) have been pasted to {nick $2} in $1',
+   'paste_argument_unknown', '%_Irssi%_: Unknown option: {hilight $0} {comment $1}',
+   'paste_argument_missing', '%_Irssi%_: Not enough parameters given: $0 {comment $1}',
+   'paste_no_server', '%_Irssi%_: Not connected to specified server {comment $0}',
+   'paste_nothing', '%_Irssi%_: Nothing to paste',
+]);
+
+Irssi::signal_add_first('send command', 'sig_send_command');
+Irssi::command_bind('paste', 'paste');
diff --git a/scripts/paste_huggie.pl b/scripts/paste_huggie.pl
new file mode 100644
index 0000000..25a8916
--- /dev/null
+++ b/scripts/paste_huggie.pl
@@ -0,0 +1,187 @@
+# Paste script for irssi
+# (C) Simon Huggins 2002
+# huggie@earth.li
+
+# Reformat pasted text ready to paste onto channels.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc., 59
+# Temple Place, Suite 330, Boston, MA 02111-1307  USA
+#
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+    
+use Irssi 20020217.1542 (); # Version 0.8.1
+$VERSION = "0.5";
+%IRSSI = (
+authors     => "Simon Huggins",
+contact     => "huggie-irssi\@earth.li",
+name        => "Paste",
+description => "Paste reformats long pieces of text typically pasted into your client from webpages so that they fit nicely into your channel.  Width of client may be specified",
+license     => "GPLv2",
+url         => "http://the.earth.li/~huggie/irssi/",
+changed     => "Sat Mar  9 10:59:49 GMT 2002",
+);
+
+use Irssi::Irc;
+use Text::Wrap;
+use Text::Tabs;
+use POSIX qw(strftime);
+
+=pod
+
+=head1 paste.pl
+
+B<paste.pl> - a script for irssi to manage reformatting before pasting to channels
+
+To stop people pasting from webpages with very poor formatting this script
+allows you to reformat as you paste.
+
+=head1 USAGE
+
+Load the script then create a new unused window and paste your text into it.
+The defaults should be reasonable so then B</paste> will paste it in the
+current window (either by saying it to the current channel, msging it to the
+current recipient in a query window or by printing it up as client messages
+in a blank window).
+
+Try altering I<paste_width> (0 is the autoformatted default based on your
+nick length) to affect the width of the pasted text.
+
+Alter I<paste_prefix> to change the prefix added to each line (B</set -clear
+paste_prefix> to remove it altogether).
+
+Set I<paste_showbuf> to show the lines pasted into the buffer as you paste it.
+
+=head1 AUTHOR
+
+Send suggestions to Simon Huggins <huggie@earth.li>
+
+=cut
+
+my $pastewin;
+
+BEGIN {
+	$pastewin = Irssi::window_find_name('paste');
+	if (!$pastewin) {
+		Irssi::command("window new hide");
+		Irssi::command("window name paste");
+		$pastewin = Irssi::window_find_name('paste');
+	}
+	$pastewin->print(">>> Paste your buffer here to start <<<");
+}
+
+Irssi::settings_add_bool("paste","paste_showbuf",0);
+Irssi::settings_add_int("paste","paste_width",0);
+Irssi::settings_add_str("paste","paste_prefix",">> ");
+
+{
+	my @buffer;
+	my $buf=0;
+	my $last_ts;
+
+sub event_send_text {
+	my ($line, $server, $windowitem) = @_;
+
+	return if $windowitem;
+
+	if ($last_ts < (time() - 60)) {
+		@buffer=();
+		$buf= 0;
+		$pastewin->print("Buffer cleared!");
+	}
+	$line =~ s/^\s+/ /;
+	$line =~ s/\s+$/ /;
+	$buffer[$buf] .= $line." ";
+
+	if (!$line and $buffer[$buf] ne "") {
+		$buf++;
+	}
+
+	if (Irssi::settings_get_bool("paste_showbuf")) {
+		$pastewin->print($line,MSGLEVEL_CLIENTCRAP);
+	}
+	$last_ts = time();
+
+	Irssi::signal_stop();
+}
+
+sub paste {
+	my ($data, $server, $witem) = @_;
+
+	my $offset;
+
+	if (!$buf and $buffer[0] eq "") {
+		$pastewin->print("No buffer to paste!",MSGLEVEL_HILIGHT);
+		return;
+	}
+
+	my $anyoldwin = Irssi::active_win();
+	my $width = Irssi::settings_get_int("paste_width");
+	my $prefix = Irssi::settings_get_str("paste_prefix");
+	my $prefixlen = length($prefix);
+	if ($width > 0) {
+		if ($width < 3+$prefixlen) {
+			$pastewin->print("paste_width is too small ($width<".
+					(3+$prefixlen).")!",
+					MSGLEVEL_HILIGHT);
+			return;
+		}
+		$Text::Wrap::columns = $width;
+	} else {
+		if ($server->{nick}) {
+			$offset+=length($server->{nick})+$prefixlen+15;
+		}
+		$Text::Wrap::columns = $anyoldwin->{'width'} - $offset;
+		if ($Text::Wrap::columns < 3+$prefixlen) {
+			$pastewin->print("Width would be too small (".
+					$Text::Wrap::columns."<".
+					(3+$prefixlen).", window width was ".
+					$anyoldwin->{'width'}.
+					")!",
+					MSGLEVEL_HILIGHT);
+			return;
+		}
+	}
+
+	foreach my $outbuffer (@buffer) {
+		$outbuffer =~ s/^\s*//;
+		$outbuffer =~ s/\s*$//;
+		$outbuffer = wrap("","", $outbuffer);
+		$outbuffer = expand($outbuffer);
+
+		if ($witem) {
+			foreach (split '\n', $outbuffer) {
+				$witem->command("say ".$prefix.$_);
+			}
+		} else {
+			foreach (split '\n', $outbuffer) {
+				$anyoldwin->print($prefix.$_, MSGLEVEL_HILIGHT);
+			}
+		}
+	}
+}
+
+sub clear_buffer {
+	@buffer = ();
+	$buf = 0;
+	$pastewin->print("Buffer cleared!");
+}
+
+}
+
+Irssi::signal_add_first("send text", "event_send_text");
+Irssi::command_bind("paste", "paste");
+Irssi::command_bind("clear_buffer", "clear_buffer");
diff --git a/scripts/paste_kimmoke.pl b/scripts/paste_kimmoke.pl
new file mode 100644
index 0000000..1bd6f77
--- /dev/null
+++ b/scripts/paste_kimmoke.pl
@@ -0,0 +1,109 @@
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.1';
+%IRSSI = (
+    authors     => 'Kimmo Lehto',
+    contact     => 'kimmo@a-men.org' ,
+    name        => 'Paste-KimmoKe',
+    description => 'Provides /start, /stop, /play <-nopack> <-nospace> paste mechanism - start and stop recording and then replay without linebreaks. Also /see to view what was recorded.',
+    license     => 'Public Domain',
+    changed	=> 'Wed Mar 27 14:51 EET 2002'
+);
+
+my $_active = undef;
+my @_record = undef;
+my $_recorded_stuff = undef;
+my $_nospace = undef;
+my $_nopack = undef;
+
+sub cmd_start
+{
+	my ($arg, $server, $witem) = @_;
+	
+	if ($_active)
+	{
+		Irssi::print("ERROR - Already recording.");
+		return 0;
+	}
+
+	$_active = 1;
+	Irssi::print("Recording, enter /stop to end...");
+	@_record = ();
+	Irssi::signal_add_first("send text", "record");
+}
+	
+sub cmd_stop
+{
+	my ($arg, $server, $witem) = @_;
+	
+	if (!$_active)
+	{
+		Irssi::print("ERROR - Not recording.");
+		return 0;
+	}
+
+	$_active = undef;
+	Irssi::signal_remove("send text", "record");
+		
+	Irssi::print('Recording ended. ' . ($#_record + 1) . ' lines captured. Use /see to see and /play to play recording without linefeeds (-help for reformatting options).');
+}
+
+sub record {
+        my ($data) = @_;
+	push @_record, $data;
+	Irssi::signal_stop();
+}
+
+	
+
+sub reformat {
+	my ($arg) = @_;
+	my $data;
+
+        if ($arg =~ /\-nospace/)
+        {
+		$data = join("", @_record);
+        }
+	else
+	{
+		$data = join(" ", @_record);
+	}
+        if ($arg !~ /\-nopack/)
+        {
+		$data =~ s/\s+|\t+/ /g;
+	}
+        if ($arg =~ /help/i)
+        {
+                return("You can use -nospace if you wish to join the input lines without replacing linefeeds with spaces, or -nopack if you don\'t want to replace multiple spaces with only one space.");
+        }
+	return $data;
+}
+
+sub cmd_see {
+        my ($arg, $server, $witem) = @_;
+
+	@_record && Irssi::print(reformat($arg)); 
+	Irssi::print("End of recorded input.");
+}
+
+sub cmd_play {
+	my ($arg, $server, $witem) = @_;
+	if ($arg =~ /help/i) { Irssi::print(reformat($arg)); return 0; }
+	if (@_record)
+	{
+		Irssi::signal_emit("send text", reformat($arg), $server, $witem);
+	}
+	else
+	{
+		Irssi::print("ERROR - Nothing to play.");
+	}
+}
+	
+Irssi::command_bind('start', 'cmd_start');
+Irssi::command_bind('stop', 'cmd_stop');
+Irssi::command_bind('see', 'cmd_see');
+Irssi::command_bind('play', 'cmd_play');
+
+
+
diff --git a/scripts/pelix.pl b/scripts/pelix.pl
new file mode 100644
index 0000000..4e1125f
--- /dev/null
+++ b/scripts/pelix.pl
@@ -0,0 +1,235 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '0.3';
+%IRSSI = (
+	authors     => 'Mankeli',
+	contact     => 'mankeli@einari.org',
+	name        => '#pelix Helpers',
+	description => 'This script allows you flood shit.',
+	license     => 'GNU/GPL',
+);
+
+# INSTRUCTIONS:
+# /pelix [cmd] [length]
+#
+# cmds are: wtf, biy0, sepi, jupe and veez
+# (sepi cmd is experimental and should be handled with extreme care)
+
+# VERSION HISTORY:
+# 0.1 		wtf
+# 0.1.5		biy0
+# 0.1.6		sepi
+# 0.2		jupe
+# 0.3		veez
+
+# biy0 script ripped from palomies mirc-script copyright(c) 2003 veezay/palomies.com(r) all rights reserved, used with permission.
+
+sub pelix_biyo
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	my $tod;
+	my $eka;
+	my $wanha;
+
+	$tod = int(rand(2));
+	if ($tod eq 0)
+	{
+		$koht = int(rand(6));
+		if ($koht eq 0) { $temppi = ":"; }
+		if ($koht eq 1) { $temppi = "."; }
+		if ($koht eq 2) { $temppi = "D"; }
+		if ($koht eq 3) { $temppi = "d"; }
+		if ($koht eq 4) { $temppi = ";"; }
+		if ($koht eq 5) { $temppi = ","; }
+	}
+	else
+	{
+		$temppi = ":";
+	}
+	$wanha = -1;
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		$eka = int(rand(10));
+		if (($eka == 0) && ($wanha != 0)) { $temppi.=":"; }
+		if (($eka == 1) && ($wanha != 1)) { $temppi.="."; }
+		if (($eka == 2) && ($wanha != 2)) { $temppi.="d"; }
+		if (($eka == 3) && ($wanha != 3)) { $temppi.=";"; }
+		if (($eka == 4) && ($wanha != 4)) { $temppi.=","; }
+		if (($eka == 5) && ($wanha != 5)) { $temppi.=":"; }
+		if (($eka > 5) && ($eka <= 7) && ($wanha != $eka)) { $temppi.="D"; }
+		if (($eka == 9) && ($eka != $wanha)) { $temppi.="_"; }
+	}
+	return ($temppi);
+}
+
+sub pelix_wtf
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	$temppi = "";
+#	srand();
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		if (int(rand(2)) eq 0)
+		{
+			$temppi.=";D ";
+		}
+		else
+		{
+			$temppi.="? ";
+		}
+	}
+	return($temppi);
+}
+
+sub pelix_jupe
+{ 
+        my ($pituus) = @_;
+        my $temppi;
+        my $koht;
+	my $luku;
+        $temppi = "";
+#       srand();
+        for ($koht=0; $koht<$pituus; $koht++)
+        {
+		$luku = int(rand(7));
+                if ($luku < 3)
+                {
+                        $temppi.=":P";
+                }
+		elsif($luku == 3)
+		{
+			$temppi.=";PP;"
+		}
+                else
+                {
+                        $temppi.="?";
+                }
+
+		if (int(rand(4)) < 3)
+		{
+			$temppi.=" ";
+		}
+        }
+        return($temppi);
+}
+
+sub pelix_veez
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	$temppi = "";
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		if (int(rand(2)) eq 0)
+		{
+			$temppi.=";";
+		}
+		else
+		{
+			$temppi.=")";
+		}
+	}
+	return($temppi);
+	
+}
+
+
+sub sepinsqd_smile
+{
+	my ($pituus) = @_;
+	my $temppi;
+	my $koht;
+	my $arvo;
+
+	$temppi = "";
+	for ($koht=0; $koht<$pituus; $koht++)
+	{
+		$arvo = int(rand(4));
+		if($arvo eq 0)
+		{
+			$temppi.="A";
+		}
+		elsif($arvo eq 1)
+		{
+			$temppi.="Å";
+		}
+		else
+		{
+			$temppi.=";";
+		}
+	}
+	return($temppi);
+}
+
+sub pelix
+{
+	my @teksti;
+#     @version = $finger =~ /:\s*(\S+)\s*$/gm;
+	my ($data, $server, $witem) = @_;
+	my @arg = split(/ +/, $data);
+	my $tpit;
+	
+	$tpit = @arg[1];
+	
+
+	if (@arg[0] eq "biy0")
+	{
+		@teksti = pelix_biyo($tpit);
+	}
+	elsif (@arg[0] eq "wtf")
+	{
+		@teksti = pelix_wtf($tpit);
+	}
+	elsif (@arg[0] eq "jupe")
+	{
+		@teksti = pelix_jupe($tpit);
+	}
+	elsif (@arg[0] eq "veez")
+	{
+		@teksti = pelix_veez($tpit);
+	}
+	elsif (@arg[0] eq "sepi")
+	{
+		@teksti = sepinsqd_smile($tpit);
+	}
+	elsif (@arg[0] eq "")
+	{
+		Irssi::print("no ÄgZön specified.");
+		return;
+	}
+	else
+	{
+		Irssi::print("No such ÄgZön as @arg[0].");
+		return;
+	}
+      
+	if (!$server || !$server->{connected})
+	{
+		Irssi::print("Not connected to server");
+		return;	
+	}
+	
+	if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY"))
+	{
+		$witem->command("MSG ".$witem->{name}." @teksti");
+	}
+		else
+	{
+		Irssi::print("No active channel/query in window");
+	}
+}
+
+sub pelix_help
+{
+	Irssi::print("Usage: runQ");
+}
+
+Irssi::command_bind('pelix', 'pelix');
+Irssi::command_bind('help pelix','pelix_help');
diff --git a/scripts/people.pl b/scripts/people.pl
new file mode 100644
index 0000000..9823207
--- /dev/null
+++ b/scripts/people.pl
@@ -0,0 +1,2492 @@
+use strict;
+use 5.005_62;       # for 'our'
+use Irssi 20020428; # for Irssi::signal_continue
+use Time::HiRes;
+use vars qw($VERSION %IRSSI);
+
+our $has_crypt = 0;
+eval {require Crypt::PasswdMD5};
+unless ($@) {
+    $has_crypt = 1;
+    import Crypt::PasswdMD5;
+}
+
+$VERSION = "1.7";
+%IRSSI =
+(
+    authors     => "Marcin 'Qrczak' Kowalczyk, Johan 'ion' Kiviniemi",
+    contact     => 'qrczak@knm.org.pl',
+    name        => 'People',
+    description => 'Userlist with autoopping, autokicking etc.',
+    license     => 'GNU GPL',
+    url         => 'http://qrnik.knm.org.pl/~qrczak/irc/people.pl',
+    url_ion     => 'http://johan.kiviniemi.name/stuff/irssi/people.pl',
+);
+
+######## STATE ########
+
+our %handles;
+our %user_masks;
+our %user_flags;
+our %channel_flags;
+our %user_channel_flags;
+our %authenticated = ();
+our %expire_auth = ();
+
+our $config     = Irssi::get_irssi_dir . "/people.cfg";
+our $config_tmp = Irssi::get_irssi_dir . "/people.tmp";
+our $config_old = Irssi::get_irssi_dir . "/people.cfg~";
+
+Irssi::settings_add_bool 'people', 'people_autosave', 1;
+Irssi::settings_add_int  'people', 'people_op_delay_min', 10;
+Irssi::settings_add_int  'people', 'people_op_delay_max', 20;
+Irssi::settings_add_str  'people', 'people_default_chatnet', "DALnet";
+Irssi::settings_add_bool 'people', 'people_color_friends', 0;
+Irssi::settings_add_bool 'people', 'people_color_everybody', 0;
+Irssi::settings_add_int  'people', 'people_expire_password', 60;
+Irssi::settings_add_bool 'people', 'people_channel_notice', 1;
+Irssi::settings_add_str  'people', 'people_colors', "rgybmcRGYBMC";
+
+our $handle_re = qr/([^\0- &#+!,\-\177][^\0- ,\177]*)/;
+our $mask_re = qr/([^\0- \177]+)/;
+our $masks_re = qr/([^\0- \177]+(?: +[^\0- \177]+)*)/;
+our $opt_masks_re = qr/((?: +[^\0- \177]+)*)/;
+our $chatnet_re = qr/([\w-._]+)/;
+our $channel_re = qr/([&#+!][^\0- ,\177]*)/;
+our $channels_re = qr/([&#+!][^\0- ,\177]*(?:,[&#+!][^\0- ,\177]*)*)/;
+our $mask_re = qr/([^\0- \177]+)/;
+our $flags_re = qr/((?:[+\-!][a-zA-Z]+)+)/;
+our $arg_re = qr/(?: (.*))?/;
+our $nick_re = qr/([A-}][\-0-9A-}]*)/;
+our $nicks_re = qr/([A-}][\-0-9A-}]*(?: +[A-}][\-0-9A-}]*)*)/;
+our $nicks_commas_re = qr/([A-}][\-0-9A-}]*(?:,[A-}][\-0-9A-}]*)*)/;
+
+our $master_set_flags = 'deikmopqrvx';
+our $master_see_flags = 'deiklmopqrvx';
+our $all_flags        = 'cdeiklmnopqrvx';
+
+sub tr_flag {
+    my ($flag) = @_;
+    $flag =~ tr/CIL/cil/;
+    return $flag;
+}
+
+our %master_set_flags = map {$_ => 1} split //, $master_set_flags;
+our %master_see_flags = map {$_ => 1} split //, $master_see_flags;
+our %all_flags        = map {$_ => 1} split //, $all_flags;
+
+######## HELP ########
+
+our $help_commands =
+
+our %help = (
+    people => [
+        'When I meet people, they are recognized based on their nick and',
+        'address, and actions can be automatically performed upon them',
+        '(such as opping or kicking).',
+        '',
+        'Actions depend on flags associated with the user in the channel.',
+        'Flags can be specified globally for a user, for everybody in',
+        'a channel, or locally for a user in a channel. A flag setting',
+        'can be positive or negative. If conflicting settings are present',
+        'for a flag, local setting is more important than channel setting',
+        'which is more important than global setting.',
+        '',
+        'A user handle has a set of nick & address masks used to recognize',
+        'that person. If someone matches masks of several users, all their',
+        'flags are considered together, resolving conflicts in favor of',
+        'more specific masks.',
+        '',
+        'Commands which modify the user list may be given locally',
+        'by the owner of the script (e.g. /flag someone +o) or',
+        'remotely by someone with enough privileges, either by msg',
+        '(e.g. /msg Qrczak !flag someone +o), or ctcp',
+        '(e.g. /ctcp Qrczak flag someone +o).',
+        '',
+        'Commands which manage the user list can be used only by people',
+        'with the master status (+m). A local master can manage only',
+        'local users (+l) who don\'t have any flags outside his channels.',
+        'Commands which perform actions in channels can be used only',
+        'by people with the operator status (+o).',
+        '',
+        'You can use "help <command>" to learn details about the command.',
+        'Available commands: help, user add, user remove, mask add,',
+        'mask remove, user rename, user list, flag, find, trust, op, deop,',
+        'voice, devoice, kick, ban, unban, kickban, invite.',
+    ],
+    help => [
+        'HELP [<command>]',
+        '',
+        'Show details about the command, or introduction to the script',
+        'if no argument is given.',
+    ],
+    'user add' => [
+        'USER ADD <handle> <mask>...',
+        '',
+        'Add a user, recognized by address masks (nick!user@host or',
+        'user@host or host). <handle> is a user name for internal use by',
+        'the script. If <masks> are omitted and a user with nick <handle>',
+        'is on a channel with the owner of the script, try to guess the',
+        'mask basing on his address: replace the first part of host with *',
+        'if it contains any digits, or replace the last part of IP address',
+        'with * if the address is a numeric IP. You must be a master (+m)',
+        'somewhere to use this command.',
+    ],
+    'user remove' => [
+        'USER REMOVE <handle>',
+        '',
+        'Remove all information about the user <handle>.',
+    ],
+    'mask add' => [
+        'MASK ADD <handle> <mask>...',
+        '',
+        'Add more address masks to recognize user <handle>.',
+    ],
+    'mask remove' => [
+        'MASK REMOVE <handle> <mask>...',
+        '',
+        'Remove some address masks used to recognize user <handle>.',
+    ],
+    'user rename' => [
+        'USER RENAME <handle> <new-handle>',
+        '',
+        'Use a new internal name <new-handle> for the user <handle>.',
+    ],
+    'user list' => [
+        'USER LIST [[<chatnet>/]<#channels>] [+<flags>]',
+        'USER LIST text...',
+        '',
+        'List all users, or users having any flags in the specified',
+        'channels, or users having any of the specified flags somewhere,',
+        'or users having any of the specified flags in the channels,',
+        'or users having any of the specified texts in handle, address',
+        'masks or flag arguments.',
+    ],
+    flag => [
+        'FLAG <handle>',
+        'FLAG [<chatnet>/]<#channels>',
+        'FLAG <handle>                         <flags>',
+        'FLAG          [<chatnet>/]<#channels> <flags>',
+        'FLAG <handle> [<chatnet>/]<#channels> <flags>',
+        '',
+        'Without flags given, show flags of the user or channel.',
+        'Otherwise add or remove flags globally for a user, for',
+        'everybody in a channel, or locally for a user in a channel.',
+        '',
+        '<flags> is +<letters> (add these flags), -<letters> (remove',
+        'these flags, or set them as a negative exception if the flag',
+        'would othwerise come from global or channel setting), !<letters>',
+        '(set these flags as a negative exception) or a combination of',
+        'such settings. If the last flag is being added, it may be followed',
+        'by space and <argument> for that flag whose meaning depends on',
+        'the flag.',
+        '',
+        'Meanings of flags:',
+        '',
+        '+c - Color nick on public messages. This flag is meaningful',
+        '     only for the owner of the script. The color will be',
+        '     computed from the handle. If people_color_friends variable',
+        '     is set, nicks of all recognized people will be colored.',
+        '     If people_color_everybody variable is set, every nick',
+        '     will be colored, basing on the nick if the person is not',
+        '     recognized. The color may be also specified explicitly in',
+        '     the argument of +c:',
+        '       %k - black, %r - red,     %g - green, %y - yellow or brown,',
+        '       %b - blue,  %m - magenta, %c - cyan,  %w - white,',
+        '       %K %R %G %Y %B %M %C %W - bright variants of these colors.',
+        '',
+        '+d - Deop if he gets op, except when opped by you or by a',
+        '     master (+m). When flags conflict, +o and +r override +d.',
+        '',
+        '+e - Execute command given as the argument. $C is replaced with',
+        '     the channel the person entered, $N - nick, $A - address.',
+        '',
+        '+i - A comment or information which reminds why the person is',
+        '     interesting can be stored in the argument of +i. It has',
+        '     no real effect. It\'s only shown with notification (+n).',
+        '',
+        '+k - Ban and kick out. The ban mask will be the mask used to',
+        '     recognize him, or based on his address if +k came from',
+        '     channel flags (replace the first part of host with * if it',
+        '     contains any digits, or replace the last part of IP address',
+        '     with * if the address is a numeric IP). The kick reason may',
+        '     be specified in the argument of the +k flag. When flags',
+        '     conflict, +o and +r override +k.',
+        '',
+        '+l - Local user. Can have address masks changed by a local master',
+        '     if the user doesn\'t have any flags outside the master\'s',
+        '     channels.',
+        '',
+        '+m - Master. Can manage the user list, or a local part of it if',
+        '     only a local master. His actions on other users (opping and',
+        '     deopping) will not be questioned by +r and +d of these users.',
+        '',
+        '+n - Notify you when the user joins or leaves channels. This flag',
+        '     is meaningful only for the owner of the script.',
+        '',
+        '+o - Op, after a short random delay to avoid op flood when he',
+        '     would be opped by others anyway.',
+        '',
+        '+p - Password is needed to recognize that person. This flag',
+        '     should be used when address masks are not secure, i.e.',
+        '     unwanted people can have the same addresses. When +p has',
+        '     no argument, the person doesn\'t have the password set',
+        '     yet and should use the PASS command to set it. Once set,',
+        '     the password is stored encrypted in the argument of +p',
+        '     and the person must use the PASS command to be recognized.',
+        '     The people_expire_password variable tells how many seconds',
+        '     to remember the authorization if the person is not seen',
+        '     on any channels.',
+        '',
+        '+q - Devoice if he gets voiced, except when voiced by you or',
+        '     by a master (+m).',
+        '',
+        '+r - Reop if somebody deops him, except when deopped by you,',
+        '     by himself, or by a master (+m).',
+        '',
+        '+v - Voice, after a short random delay to avoid voice flood',
+        '     when he would be voiced or opped by others anyway.',
+        '',
+        '+x - Disable all other flags, except perhaps notification (+n).',
+    ],
+    find => [
+        'FIND',
+        'FIND [<chatnet>/]<#channel>',
+        'FIND <mask>',
+        'FIND <nick>',
+        '',
+        'Find recognized users on all channels (only owner can do this),',
+        'or on the channel, or matching the mask, or having the nick if',
+        'present on a channel with me.',
+    ],
+    trust => [
+        'TRUST [<nick>]...',
+        '',
+        'Set these nicks as authenticated.',
+    ],
+    op => [
+        'OP <#channel> [<nick>]...',
+        '',
+        'Op these nicks in the channel. If nicks are not given, ops you.',
+    ],
+    deop => [
+        'DEOP <#channel> [<nick>]...',
+        '',
+        'Deop these nicks in the channel. If nicks are not given,',
+        'deops you.',
+    ],
+    voice => [
+        'VOICE <#channel> [<nick>]...',
+        '',
+        'Voices these nicks in the channel. If nicks are not given,',
+        'voices you.',
+    ],
+    devoice => [
+        'DEVOICE <#channel> [<nick>]...',
+        '',
+        'Devoices these nicks in the channel. If nicks are not given,',
+        'devoices you.',
+    ],
+    kick => [
+        'KICK <#channel> <nicks> [<reason>]',
+        '',
+        'Kick these nicks out of the channel.',
+    ],
+    ban => [
+        'BAN <#channel> <mask/nick>...',
+        '',
+        'Ban address masks from the channel. If a nick of a person',
+        'sitting there is given, the mask is derived from his address.',
+    ],
+    unban => [
+        'UNBAN <#channel> [<masks>]',
+        '',
+        'Remove some bans from the channel. If no masks are given,',
+        'remove all bans against you.',
+
+    ],
+    kickban => [
+        'KICKBAN <#channel> <nicks> [<reason>]',
+        '',
+        'Ban and kick out people from the channel. The mask to ban',
+        'is derived from their addresses.',
+    ],
+    invite => [
+        'INVITE <#channel> [<nick>]',
+        '',
+        'Invite the person to the channel. If the nick is not given,',
+        'invite you.',
+    ],
+    pass => [
+        'PASS <password>',
+        'PASS <password> <new-password>',
+        '',
+        'Authenticate with the password to ensure the owner that you',
+        'are the right person (if you have the +p flag), or set the',
+        'password if it wasn\'t set yet. To change the password once',
+        'it was set, give both old and new passwords.',
+    ]
+);
+
+our %local_help = (people => 1);
+
+sub cmd_help($$) {
+    my ($context, $args) = @_;
+    my $command = join(' ', split(' ', lc $args));
+    $command = 'people' if !$context->{owner} && $command eq '';
+    my $text = $help{$command};
+    if (!$text || $context->{owner} && !$local_help{$command}) {
+        $context->{error}("No help for $command") unless $context->{owner};
+        return;
+    }
+    foreach my $line ('', @$text, '') {
+        $context->{crap}($line eq '' ? ' ' : $line);
+    }
+    Irssi::signal_stop if $context->{owner};
+}
+
+######## A REGEXP OF ALL MASKS TO IMPROVE PERFORMANCE ########
+
+our %mask_to_regexp = ();
+foreach my $i (0..255) {
+    my $ch = chr $i;
+    $mask_to_regexp{$ch} = "\Q$ch\E";
+}
+$mask_to_regexp{'?'} = '.';
+$mask_to_regexp{'*'} = '.*';
+
+sub mask_to_regexp($) {
+    my ($mask) = @_;
+    $mask =~ s/(.)/$mask_to_regexp{$1}/g;
+    return $mask;
+}
+
+our $all_masks;
+
+sub update_all_masks() {
+    my @masks = ();
+    foreach my $hdl (keys %handles) {
+        push @masks, @{$user_masks{$hdl}};
+    }
+    $all_masks = join('|', map {mask_to_regexp $_} @masks);
+    $all_masks = qr/^(?:$all_masks)$/i;
+}
+
+######## CONTEXT OF COMMANDS: LOCAL OR REPLYING TO MESSAGES ########
+
+our $local_context = {
+    crap           => sub {my ($msg) = @_; $msg =~ s/%/%%/g; print CLIENTCRAP $msg},
+    notice         => sub {my ($msg) = @_; $msg =~ s/%/%%/g; print CLIENTNOTICE $msg},
+    error          => sub {my ($msg) = @_; $msg =~ s/%/%%/g; print CLIENTERROR $msg},
+    usage          => sub {my ($msg) = @_; $msg =~ s/%/%%/g; print CLIENTERROR "Usage: /$msg"},
+    usage_next     => sub {my ($msg) = @_; $msg =~ s/%/%%/g; print CLIENTERROR "       /$msg"},
+    owner          => 1,
+    set_flags      => \%all_flags,
+    set_flags_str  => $all_flags,
+    see_flags      => \%all_flags,
+    server         => undef,
+};
+
+######## CHECK PRIVILEGES TO PERFORM COMMANDS ########
+
+sub has_global_flag($$) {
+    my ($context, $flag) = @_;
+    return $context->{owner} || defined $context->{globals}{$flag};
+}
+
+sub has_local_flag($$$$) {
+    my ($context, $chatnet, $channel, $flag) = @_;
+    return 1 if $context->{owner};
+    return
+      exists $context->{locals}{$chatnet}{$channel}{$flag} ?
+      defined $context->{locals}{$chatnet}{$channel}{$flag} :
+      exists $channel_flags{$chatnet}{$channel}{$flag} ?
+      defined $channel_flags{$chatnet}{$channel}{$flag} :
+      defined $context->{globals}{$flag};
+}
+
+sub has_flag_somewhere($$) {
+    my ($context, $flag) = @_;
+    return 1 if $context->{owner} || defined $context->{globals}{$flag};
+    my $locals = $context->{locals};
+    foreach my $chatnet (keys %$locals) {
+        my $channels = $locals->{$chatnet};
+        foreach my $channel (keys %$channels) {
+            my $flags = $channels->{$channel};
+            return 1 if defined $flags->{$flag};
+        }
+    }
+    return 0;
+}
+
+sub must_be_master($) {
+    my ($context) = @_;
+    return 1 if has_flag_somewhere($context, 'm');
+    $context->{error}("Sorry, you don't have master privileges.");
+    return 0;
+}
+
+sub must_be_operator($) {
+    my ($context) = @_;
+    return 1 if has_flag_somewhere($context, 'o') ||
+      has_flag_somewhere($context, 'm');
+    $context->{error}("Sorry, you don't have operator privileges.");
+    return 0;
+}
+
+sub may_manage($$) {
+    my ($context, $hdl) = @_;
+    return 1 if has_global_flag($context, 'm');
+    unless (defined $user_flags{$hdl}{l}) {
+        $context->{error}("Sorry, \cc04$handles{$hdl}\co isn't local to your channels.");
+        return 0;
+    }
+    my $locals = $user_channel_flags{$hdl};
+    foreach my $chatnet (keys %$locals) {
+        my $channels = $locals->{$chatnet};
+        foreach my $channel (keys %$channels) {
+            my $flags = $channels->{$channel};
+            foreach my $flag (keys %$flags) {
+                next unless defined $flags->{$flag};
+                unless (defined $context->{locals}{$chatnet}{$channel}{m}) {
+                    $context->{error}("Sorry, \cc04$handles{$hdl}\co has flags outside your channels.");
+                    return 0;
+                }
+            }
+        }
+    }
+    return 1;
+}
+
+######## FIND USERS AND FLAGS ########
+
+sub more_specific($$) {
+    my ($user1, $user2) = @_;
+    return 0 unless $user1 && $user2;
+    my $mask1 = $user1->[1];
+    my $mask2 = $user2->[1];
+    return 0 if $mask1 eq $mask2;
+    $mask1 =~ /^(.*)!(.*)$/ or return 0;
+    my ($nick1, $address1) = ($1, $2);
+    $mask2 =~ /^(.*)!(.*)$/ or return 0;
+    my ($nick2, $address2) = ($1, $2);
+    return 0 if Irssi::mask_match_address($mask1, $nick2, $address2);
+    return 1 if Irssi::mask_match_address($mask2, $nick1, $address1);
+    return 0 if Irssi::mask_match_address($address1, $address2, undef);
+    return 1 if Irssi::mask_match_address($address2, $address1, undef);
+    $address1 =~ s/^.*\@/*\@/;
+    $address2 =~ s/^.*\@/*\@/;
+    return 0 if Irssi::mask_match_address($address1, $address2, undef);
+    return 1 if Irssi::mask_match_address($address2, $address1, undef);
+    return 0;
+}
+
+sub find_users($$$) {
+    my ($chatnet, $nick, $address) = @_;
+    return () unless "$nick!$address" =~ $all_masks;
+    my @users = ();
+    foreach my $hdl (keys %user_masks) {
+        next if defined $chatnet &&
+          defined $user_flags{$hdl}{p} &&
+          !$authenticated{$chatnet}{$address}{$hdl};
+        my $masks = $user_masks{$hdl};
+        foreach my $mask (@$masks) {
+            if (Irssi::mask_match_address($mask, $nick, $address)) {
+                push @users, [$hdl, $mask];
+            }
+        }
+    }
+    return @users;
+}
+
+sub find_best_user($$$) {
+    my ($chatnet, $nick, $address) = @_;
+    my $best = undef;
+    foreach my $user (find_users $chatnet, $nick, $address) {
+        $best = $user unless more_specific($best, $user);
+    }
+    return $best ? @$best : ();
+}
+
+sub add_flag($$$$$) {
+    my ($flags, $users, $flag, $arg, $user) = @_;
+    return if
+      exists $flags->{$flag} &&
+      more_specific($users->{$flag}, $user);
+    $flags->{$flag} = $arg;
+    $users->{$flag} = $user;
+}
+
+sub find_global_flags($$$) {
+    my ($chatnet, $nick, $address) = @_;
+    my $flags = {}; my $users = {};
+    foreach my $user (find_users $chatnet, $nick, $address) {
+        my ($hdl, $mask) = @$user;
+        my $globals = $user_flags{$hdl};
+        foreach my $flag (keys %$globals) {
+            my $arg = $globals->{$flag};
+            add_flag $flags, $users, $flag, $arg, $user;
+        }
+        add_flag $flags, $users, '', '', $user;
+    }
+    return ($flags, $users);
+}
+
+sub find_local_flags($$$$) {
+    my ($chatnet, $channel, $nick, $address) = @_;
+    my @users = find_users $chatnet, $nick, $address;
+    my $flags = {}; my $users = {};
+    foreach my $user (@users) {
+        my ($hdl, $mask) = @$user;
+        my $globals = $user_flags{$hdl};
+        foreach my $flag (keys %$globals) {
+            my $arg = $globals->{$flag};
+            add_flag $flags, $users, $flag, $arg, $user;
+        }
+        add_flag $flags, $users, '', '', $user;
+    }
+    my $chan_flags = $channel_flags{$chatnet}{$channel};
+    foreach my $flag (keys %$chan_flags) {
+        my $arg = $chan_flags->{$flag};
+        add_flag $flags, $users, $flag, $arg, undef;
+    }
+    foreach my $user (@users) {
+        my ($hdl, $mask) = @$user;
+        my $locals = $user_channel_flags{$hdl}{$chatnet}{$channel};
+        foreach my $flag (keys %$locals) {
+            my $arg = $locals->{$flag};
+            add_flag $flags, $users, $flag, $arg, $user;
+        }
+    }
+    return ($flags, $users);
+}
+
+sub find_local_flags_if_matches($$$$$) {
+    my ($hdl, $chatnet, $channel, $nick, $address) = @_;
+    my $user = undef;
+    foreach my $mask (@{$user_masks{$hdl}}) {
+        if (Irssi::mask_match_address($mask, $nick, $address)) {
+            $user = [$hdl, $mask]; last;
+        }
+    }
+    return ({}, {}) unless $user;
+    my $flags = {}; my $users = {};
+    my $globals = $user_flags{$hdl};
+    foreach my $flag (keys %$globals) {
+        my $arg = $globals->{$flag};
+        add_flag $flags, $users, $flag, $arg, $user;
+    }
+    add_flag $flags, $users, '', '', $user;
+    my $chan_flags = $channel_flags{$chatnet}{$channel};
+    foreach my $flag (keys %$chan_flags) {
+        my $arg = $chan_flags->{$flag};
+        add_flag $flags, $users, $flag, $arg, undef;
+    }
+    my $locals = $user_channel_flags{$hdl}{$chatnet}{$channel};
+    foreach my $flag (keys %$locals) {
+        my $arg = $locals->{$flag};
+        add_flag $flags, $users, $flag, $arg, $user;
+    }
+    return ($flags, $users);
+}
+
+sub find_all_flags($$$) {
+    my ($chatnet, $nick, $address) = @_;
+    my $globals = {}; my $global_users = {};
+    my $locals = {}; my $local_users = {};
+    foreach my $user (find_users $chatnet, $nick, $address) {
+        my ($hdl, $mask) = @$user;
+        my $flags = $user_flags{$hdl};
+        foreach my $flag (keys %$flags) {
+            my $arg = $flags->{$flag};
+            add_flag $globals, $global_users, $flag, $arg, $user;
+        }
+        my $chatnets = $user_channel_flags{$hdl};
+        foreach my $chatnet (keys %$chatnets) {
+            my $channels = $chatnets->{$chatnet};
+            foreach my $channel (keys %$channels) {
+                my $flags = $channels->{$channel};
+                foreach my $flag (keys %$flags) {
+                    my $arg = $flags->{$flag};
+                    add_flag
+                      \%{$locals->{$chatnet}{$channel}},
+                      \%{$local_users->{$chatnet}{$channel}},
+                      $flag, $arg, $user;
+                }
+            }
+        }
+    }
+    return ($globals, $locals);
+}
+
+######## SHOW USERLIST ########
+
+sub handle_exists($$) {
+    my ($context, $handle) = @_;
+    unless (defined $handles{lc $handle}) {
+        $context->{error}("User \cc04$handle\co doesn't exist.");
+        return 0;
+    }
+    return 1;
+}
+
+sub filter_flags($$) {
+    my ($flags, $filter) = @_;
+    my %filtered = ();
+    foreach my $flag (keys %$flags) {
+        $filtered{$flag} = $flags->{$flag} if $filter->{$flag};
+    }
+    return \%filtered;
+}
+
+sub show_flags($) {
+    my ($flags) = @_;
+    return "(none)" unless $flags && %$flags;
+    my @on = ();
+    my @off = ();
+    foreach my $flag (sort keys %$flags) {
+        push @{defined $flags->{$flag} ? \@on : \@off}, $flag;
+    }
+    return
+      "\cc9" .
+      (@off ? "-" . join('', @off) : '') .
+      (@on ? '+' .
+        join('', grep {$flags->{$_} eq ''} @on) .
+        join('', map {"$_\cc3($flags->{$_})\cc9"} grep {$flags->{$_} ne ''} @on) :
+        '') .
+      "\co";
+}
+
+sub show_handle($$) {
+    my ($context, $hdl) = @_;
+    handle_exists $context, $hdl or return;
+    my $globals = $user_flags{$hdl} || {};
+    $globals = filter_flags $globals, $context->{see_flags}
+      unless $context->{owner};
+    my @locals = ();
+    my $chatnets = $user_channel_flags{$hdl};
+    foreach my $chatnet (sort keys %$chatnets) {
+        my $channels = $chatnets->{$chatnet};
+        foreach my $channel (sort keys %$channels) {
+            my $flags = $channels->{$channel} || {};
+            $flags = filter_flags $flags, $context->{see_flags}
+              unless $context->{owner};
+            push @locals, [$chatnet, $channel, $flags] if %$flags;
+        }
+    }
+    my @masks = @{$user_masks{$hdl}};
+    if (@masks) {
+        my $plural = @masks == 1 ? "" : "s";
+        $context->{crap}("\cc04$handles{$hdl}\co is \cc10@masks\co");
+    } else {
+        $context->{crap}("\cc04$handles{$hdl}\co exists but has no address masks");
+    }
+    my @flags = %$globals ? (show_flags($globals)) : ();
+    foreach my $local (@locals) {
+        my ($chatnet, $channel, $flags) = @$local;
+        push @flags, "\cb$chatnet/$channel\cb " . show_flags($flags)
+          if has_local_flag($context, $chatnet, $channel, 'm');
+    }
+    @flags = ("(none)") unless @flags;
+    $context->{crap}("    flags: " . join("; ", @flags));
+}
+
+sub show_channel($$$$) {
+    my ($context, $chatnet, $channel, $show_empty) = @_;
+    my $flags = $channel_flags{$chatnet}{$channel} || {};
+    $flags = filter_flags $flags, $context->{see_flags}
+      unless $context->{owner};
+    return unless $show_empty || %$flags;
+    $context->{crap}("Flags of \cb$chatnet/$channel\cb are " . show_flags($flags));
+}
+
+sub filter_handle($$$$$) {
+    my ($context, $hdl,
+        $filter_channels, $filter_flags, $filter_text) = @_;
+    return 1 unless $filter_channels || $filter_flags || $filter_text;
+    my $globals = $user_flags{$hdl};
+    my $locals = $user_channel_flags{$hdl};
+    if ($filter_text) {
+        foreach my $re (@$filter_text) {
+            return 1 if $hdl =~ $re;
+            my $masks = $user_masks{$hdl};
+            foreach my $mask (@$masks) {
+                return 1 if $mask =~ $re;
+            }
+            foreach my $flag (keys %$globals) {
+                return 1 if $globals->{$flag} =~ $re;
+            }
+            foreach my $chatnet (keys %$locals) {
+                my $channels = $locals->{$chatnet};
+                foreach my $channel (keys %$channels) {
+                    my $flags = $channels->{$channel};
+                    foreach my $flag (keys %$flags) {
+                        return 1 if defined $flags->{$flag} && $flags->{$flag} =~ $re;
+                    }
+                }
+            }
+        }
+        return 0;
+    }
+    if ($filter_flags) {
+        foreach my $flag (@$filter_flags) {
+            next unless $context->{owner} || $context->{see_flags}{$flag};
+            return 1 if defined $globals->{$flag};
+            foreach my $chatnet (keys %$locals) {
+                my $channels = $locals->{$chatnet};
+                foreach my $channel (keys %$channels) {
+                    next unless has_local_flag($context, $chatnet, $channel, 'm') &&
+                      (!$filter_channels || $filter_channels->{$chatnet}{$channel});
+                    my $flags = $channels->{$channel};
+                    return 1 if exists $flags->{$flag};
+                }
+            }
+        }
+        return 0;
+    } else {
+        return 1 if $globals && %$globals;
+        foreach my $chatnet (keys %$locals) {
+            my $channels = $locals->{$chatnet};
+            foreach my $channel (keys %$channels) {
+                next unless has_local_flag($context, $chatnet, $channel, 'm') &&
+                  $filter_channels->{$chatnet}{$channel};
+                my $flags = $channels->{$channel};
+                return 1 if %$flags;
+            }
+        }
+        return 0;
+    }
+}
+
+sub filter_channel($$$$$$) {
+    my ($context, $chatnet, $channel,
+        $filter_channels, $filter_flags, $filter_text) = @_;
+    return 0 unless has_local_flag($context, $chatnet, $channel, 'm');
+    if ($filter_text) {
+        my $flags = $channel_flags{$chatnet}{$channel};
+        foreach my $re (@$filter_text) {
+            return 1 if $channel =~ $re;
+            foreach my $flag (keys %$flags) {
+                return 1 if $flags->{$flag} =~ $re;
+            }
+        }
+        return 0;
+    }
+    return 0 if $filter_channels && !$filter_channels->{$chatnet}{$channel};
+    return 1 unless $filter_flags;
+    my $flags = $channel_flags{$chatnet}{$channel};
+    foreach my $flag (@$filter_flags) {
+        next unless $context->{owner} || $context->{see_flags}{$flag};
+        return 1 if defined $flags->{$flag};
+    }
+    return 0;
+}
+
+sub default_chatnet($) {
+    my ($context) = @_;
+    my $server = $context->{server} || $context->{owner} && Irssi::active_server;
+    return $server->{chatnet} if $server;
+    return Irssi::settings_get_str('people_default_chatnet');
+}
+
+sub cmd_user_list($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    my $filter_channels = undef;
+    my $filter_flags = undef;
+    my $filter_text = undef;
+    if ($args =~ /^ *(?:(?:$chatnet_re\/)?$channels_re +)?\+([a-zA-Z]+) *$/o ||
+        $args =~ /^ *(?:$chatnet_re\/)?$channels_re *$/o ||
+        $args =~ /^ *$/) {
+        my ($chatnet, $channels, $flags) = ($1, $2, $3);
+        if (defined $channels) {
+            $chatnet = default_chatnet $context unless defined $chatnet;
+            $chatnet = lc $chatnet;
+            $channels = lc $channels;
+            $filter_channels = {$chatnet => {map {$_ => 1} split /,/, $channels}};
+        }
+        $filter_flags = [split //, $flags] if defined $flags;
+        $context->{crap}(
+          $filter_flags ?
+            "Users having " .
+            (length $flags == 1 ? "\cc9+$flags\co flag" : "any of \cc9+$flags\co flags") .
+            ($filter_channels ? " on \cb$chatnet/$channels\cb:" : ":") :
+            $filter_channels ?
+              "Users having any flags on \cb$chatnet/$channels\cb:" :
+              "User list:");
+    } else {
+        my @texts = split ' ', $args;
+        $context->{crap}("Users having something common with \cb@texts\cb:");
+        $filter_text = [map {qr/\Q$_\E/i} @texts];
+    }
+    foreach my $hdl (sort keys %handles) {
+        show_handle $context, $hdl
+          if filter_handle $context, $hdl,
+            $filter_channels, $filter_flags, $filter_text;
+    }
+    foreach my $chatnet (sort keys %channel_flags) {
+        my $channels = $channel_flags{$chatnet};
+        foreach my $channel (sort keys %$channels) {
+            show_channel $context, $chatnet, $channel, 0
+              if filter_channel $context, $chatnet, $channel,
+                $filter_channels, $filter_flags, $filter_text;
+        }
+    }
+    $context->{crap}("End of user list");
+}
+
+######## WORK WHEN MEETING PEOPLE ########
+
+sub channel_notice($$$) {
+    my ($server, $channel, $msg) = @_;
+    $server->command("notice $channel -!- $msg")
+      if Irssi::settings_get_bool('people_channel_notice');
+}
+
+sub disappeared($) {
+    my ($chatnet, $nick, $address, $hdl) = @{$_[0]};
+    delete $authenticated{$chatnet}{$address}{$hdl};
+    delete $authenticated{$chatnet}{$address} unless %{$authenticated{$chatnet}{$address}};
+    delete $expire_auth{$chatnet}{$address}{$hdl};
+    delete $expire_auth{$chatnet}{$address} unless %{$expire_auth{$chatnet}{$address}};
+    print CLIENTNOTICE "\cc11*!$address\co is no longer recognized as \cc04$handles{$hdl}\co (authentication expired).";
+}
+
+sub disappears($$$) {
+    my ($chatnet, $nick, $address) = @_;
+    my $handles = $authenticated{$chatnet}{$address} or return;
+    my $delay = Irssi::settings_get_int('people_expire_password') * 1000;
+    foreach my $hdl (keys %$handles) {
+        my $expiring = $expire_auth{$chatnet}{$address}{$hdl};
+        Irssi::timeout_remove $expiring if $expiring;
+        my $tag = Irssi::timeout_add_once $delay, \&disappeared,
+          [$chatnet, $nick, $address, $hdl];
+        $expire_auth{$chatnet}{$address}{$hdl} = $tag;
+    }
+}
+
+sub maybe_disappears($$$$$) {
+    my ($chatnet, $server, $channel, $nick, $address) = @_;
+    foreach my $chan ($server->channels()) {
+        next if defined $channel && lc $chan->{name} eq $channel;
+        return if $chan->nick_find_mask("*!$address");
+    }
+    disappears $chatnet, $nick, $address;
+}
+
+sub appears($$$) {
+    my ($chatnet, $nick, $address) = @_;
+    my $handles = $expire_auth{$chatnet}{$address} or return;
+    my @handles = keys %$handles;
+    foreach my $hdl (@handles) {
+        my $tag = $handles->{$hdl};
+        Irssi::timeout_remove $tag;
+        delete $handles->{$hdl};
+    }
+}
+
+our %queued_actions = ();
+
+our %action_not_needed = (
+    '+o' => sub {$_[0]->{op}},
+    '-o' => sub {not $_[0]->{op}},
+    '+v' => sub {$_[0]->{op} || $_[0]->{voice}},
+    '-v' => sub {$_[0]->{op} || not $_[0]->{voice}},
+);
+
+# Delete/create an appropriate timeout.
+sub queue_handle($$) {
+    my ($chatnet, $channel) = @_;
+    my $ref = $queued_actions{$chatnet}{$channel};
+    $ref->{queue} ||= [];
+
+    if (defined $ref->{tag} and @{ $ref->{queue} } == 0) {
+        Irssi::timeout_remove $ref->{tag};
+        delete $ref->{tag};
+        delete $ref->{time};
+    }
+
+    unless (@{ $ref->{queue} } == 0) {
+        my $time = $ref->{queue}[0]{time};
+        unless (defined $ref->{time} and $ref->{time} == $time) {
+            Irssi::timeout_remove $ref->{tag} if defined $ref->{tag};
+            $ref->{time} = $time;
+            my $delay = 1000 * ($time - Time::HiRes::time);
+            $delay = 10 if $delay < 10;
+            $ref->{tag} = Irssi::timeout_add_once $delay, \&queue_run,
+              [$chatnet, $channel];
+        }
+    }
+}
+
+# Run the first items from the queue.
+sub queue_run(\@) {
+    my ($chatnet, $channel) = @{ $_[0] };
+    delete $queued_actions{$chatnet}{$channel}{tag};
+    delete $queued_actions{$chatnet}{$channel}{time};
+
+    my $server = Irssi::server_find_chatnet $chatnet;
+    my $queue  = $queued_actions{$chatnet}{$channel}{queue};
+    my $chan;
+    $chan = $server->channel_find($channel) if defined $server;
+    unless (defined $server and defined $chan) {
+        @$queue = ();
+        return;
+    }
+
+    my $max_modes = $server->isupport('modes') || 1;
+    my (@modes);
+    while (@modes < $max_modes and @$queue > 0) {
+        my $action = shift @$queue;
+        my $who = $chan->nick_find($action->{nick});
+        next unless defined $who;
+        next if $action_not_needed{$action->{action}}($who);
+        push @modes, [$action->{action}, $action->{nick}];
+    }
+
+    if (@modes) {
+        my ($mode_actions, @mode_params) = ('');
+        for my $mode (sort { $a->[0] cmp $b->[0] } @modes) {
+            $mode_actions .= $mode->[0];
+            push @mode_params, $mode->[1];
+        }
+        $server->command("mode $channel $mode_actions @mode_params");
+    }
+
+    queue_handle $chatnet, $channel;
+}
+
+sub queue_nick_changed($$$) {
+    my ($chatnet, $old_nick, $nick) = @_;
+    while (my ($channel, $ref) = each %{ $queued_actions{$chatnet} }) {
+        next unless defined $ref->{queue};
+        foreach (grep { $_->{nick} eq $old_nick } @{ $ref->{queue} }) {
+            $_->{nick} = $nick;
+        }
+    }
+}
+
+sub cancel_queued($$$) {
+    my ($chatnet, $channel, $nick) = @_;
+    my $queue = $queued_actions{$chatnet}{$channel}{queue};
+    return unless defined $queue;
+    @$queue = grep { $_->{nick} ne $nick } @$queue;
+    queue_handle $chatnet, $channel;
+}
+
+sub cancel_queued_everywhere($$) {
+    my ($chatnet, $nick) = @_;
+    while (my ($channel, $ref) = each %{ $queued_actions{$chatnet} }) {
+        cancel_queued $chatnet, $channel, $nick;
+    }
+}
+
+sub queue_action($$$$;$) {
+    my ($chatnet, $action, $channel, $nick, $delay) = @_;
+    unless (defined $delay) {
+        my $delay_min = Irssi::settings_get_int('people_op_delay_min');
+        my $delay_max = Irssi::settings_get_int('people_op_delay_max');
+        $delay_min = $delay_max if $delay_min > $delay_max;
+        $delay = $delay_min + rand ($delay_max - $delay_min);
+    }
+    my $queue = ($queued_actions{$chatnet}{$channel}{queue} ||= []);
+    @$queue = sort { $a->{time} <=> $b->{time} } @$queue, {
+        time   => Time::HiRes::time + $delay,
+        action => $action,
+        nick   => $nick
+    };
+    queue_handle $chatnet, $channel;
+}
+
+sub improve_mask($) {
+    my ($mask) = @_;
+    return "$1*" if $mask =~ /^(.*\@\d+\.\d+\.\d+\.)\d+$/;
+    return "$1*$2" if $mask =~ /^(.*\@)[^.]*\d[^.]*(\..*)$/;
+    return $mask;
+}
+
+sub ban($$$$$$) {
+    my ($server, $channel, $nick, $address, $is_op, $users) = @_;
+    my $mask = $users->{k} ? $users->{k}[1] : "*!" . improve_mask $address;
+    $server->command("mode $channel " . ($is_op ? "-o+b $nick $mask" : "+b $mask"));
+}
+
+sub kick($$$$) {
+    my ($server, $channel, $nick, $flags) = @_;
+    $server->command("kick $channel $nick" . ($flags->{k} eq '' ? "" : " $flags->{k}"));
+}
+
+sub execute($$$$$) {
+    my ($server, $channel, $nick, $address, $flags) = @_;
+    my $cmd = $flags->{e};
+    $cmd =~ s/\$([CNA])/{
+       C => $channel,
+       N => $nick,
+       A => $address,
+    }->{$1}/eg;
+    $server->command($cmd);
+}
+
+sub show_who($$$) {
+    my ($hdl, $nick, $address) = @_;
+    return
+      (defined $hdl ?
+        $hdl eq lc $nick ?
+          "\cc04$handles{$hdl}\co" :
+          $nick =~ s/\Q$hdl\E/\cc04$handles{$hdl}\cc11/i ?
+            "\cc11$nick\co" :
+            "\cc04$handles{$hdl}\co = \cc11$nick\co" :
+        "\cc11$nick\co") .
+      " \cc14[\cc10$address\cc14]\co";
+}
+
+sub notify($$$$$$) {
+    my ($nick, $address, $flags, $users, $str, $beep) = @_;
+    return unless defined $flags->{n};
+    my $hdl = $users->{''}[0];
+    $str =~ s/\{who\}/show_who $hdl, $nick, $address/eg;
+    print CLIENTCRAP $str . ($flags->{i} eq '' ? "" : " ($flags->{i})");
+    Irssi::command "beep" if $beep;
+}
+
+sub process_user($$$$$$$$) {
+    my ($server, $chan, $is_op, $is_voice, $nick, $address, $flags, $users) = @_;
+    return if defined $flags->{x};
+    return unless $chan->{chanop};
+    my $chatnet = lc $server->{chatnet};
+    my $channel = lc $chan->{name};
+    if (defined $flags->{r}) {
+        queue_action $chatnet, '+o', $channel, $nick unless $is_op;
+    } elsif (defined $flags->{o}) {
+    } elsif (defined $flags->{k}) {
+        ban $server, $channel, $nick, $address, $is_op, $users;
+        kick $server, $channel, $nick, $flags;
+    } elsif (defined $flags->{d}) {
+        queue_action $chatnet, '-o', $channel, $nick, 0.1 if $is_op;
+    }
+    if (defined $flags->{v}) {
+    } elsif (defined $flags->{q}) {
+        queue_action $chatnet, '-v', $channel, $nick, 0.2 if $is_voice;
+    }
+    if ($flags->{e} ne '') {
+        execute $server, $channel, $nick, $address, $flags;
+    }
+}
+
+Irssi::signal_add_last 'event join', sub {
+    my ($server, $args, $nick, $address) = @_;
+    $args =~ /^:(.*)$/ or $args =~ /^([^ ]+)$/ or return;
+    my $channel = lc $1;
+    return if $nick eq $server->{nick};
+    my $chatnet = lc $server->{chatnet};
+    my $chan = $server->channel_find($channel) or return;
+    appears $chatnet, $nick, $address;
+    my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+    notify $nick, $address, $flags, $users, "{who} has joined \cb$channel\cb", 1;
+    return if defined $flags->{x};
+    return unless $chan->{chanop};
+    if (defined $flags->{r} || defined $flags->{o}) {
+        queue_action $chatnet, '+o', $channel, $nick;
+    } elsif (defined $flags->{k}) {
+        ban $server, $channel, $nick, $address, 0, $users;
+        kick $server, $channel, $nick, $flags;
+    }
+    if (defined $flags->{v}) {
+        queue_action $chatnet, '+v', $channel, $nick;
+    }
+    if ($flags->{e} ne '') {
+        execute $server, $channel, $nick, $address, $flags;
+    }
+};
+
+sub process_channel($$$) {
+    my ($server, $chan, $notify) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my $channel = lc $chan->{name};
+    foreach my $who ($chan->nicks()) {
+        my $nick = $who->{nick};
+        next if $nick eq $server->{nick};
+        my $address = $who->{host};
+        my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+        notify $nick, $address, $flags, $users,
+          "{who} is on \cb$channel\cb", 0 if $notify;
+        process_user $server, $chan, $who->{op}, $who->{voice}, $nick, $address, $flags, $users;
+    }
+}
+
+Irssi::signal_add_last 'channel wholist', sub {
+    my ($chan) = @_;
+    my $server = $chan->{server};
+    my $chatnet = lc $server->{chatnet};
+    foreach my $who ($chan->nicks()) {
+        appears $chatnet, $who->{nick}, $who->{host};
+    }
+    process_channel $server, $chan, 1;
+};
+
+Irssi::signal_add_first 'channel destroyed', sub {
+    my ($chan) = @_;
+    my $server = $chan->{server};
+    my $chatnet = lc $server->{chatnet};
+    foreach my $who ($chan->nicks()) {
+        maybe_disappears $chatnet, $server, lc $chan->{name}, $who->{nick}, $who->{host};
+    }
+};
+
+sub is_master($$$$) {
+    my ($chatnet, $chan, $channel, $nick) = @_;
+    return 1 if $nick eq $chan->{server}{nick};
+    my $who = $chan->nick_find($nick);
+    my $address = $who ? $who->{host} : '';
+    my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+    return defined $flags->{m};
+}
+
+Irssi::signal_add_last 'nick mode changed', sub {
+    my ($chan, $who, $setter) = @_;
+    my $server = $chan->{server};
+    my $nick = $who->{nick};
+    if ($nick eq $server->{nick}) {
+        return unless $chan->{chanop};
+        process_channel $server, $chan, 0 if $chan->{wholist};
+    } else {
+        my $chatnet = lc $server->{chatnet};
+        my $channel = lc $chan->{name};
+        my $address = $who->{host};
+        my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+        return if defined $flags->{x};
+        return unless $chan->{chanop};
+        if (defined $flags->{r}) {
+            queue_action $chatnet, '+o', $channel, $nick
+              unless $who->{op} ||
+              $setter eq $nick ||
+              is_master($chatnet, $chan, $channel, $setter);
+        } elsif (defined $flags->{o}) {
+        } elsif (defined $flags->{d}) {
+            queue_action $chatnet, '-o', $channel, $nick, 0.1
+              unless !$who->{op} ||
+              is_master($chatnet, $chan, $channel, $setter);
+        }
+        if (defined $flags->{v}) {
+        } elsif (defined $flags->{q}) {
+            queue_action $chatnet, '-v', $channel, $nick, 0.2
+              unless !$who->{voice} ||
+              is_master($chatnet, $chan, $channel, $setter);
+        }
+    }
+};
+
+Irssi::signal_add_last 'event part', sub {
+    my ($server, $args, $nick, $address) = @_;
+    $args =~ /^([^ ]+) +:(.*)$/ or $args =~ /^([^ ]+) +([^ ]+)$/ or $args =~ /^([^ ]+)()$/ or return;
+    my ($channel, $reason) = (lc $1, $2);
+    my $chatnet = lc $server->{chatnet};
+    my $chan = $server->channel_find($channel) or return;
+    maybe_disappears $chatnet, $server, $channel, $nick, $address;
+    cancel_queued $chatnet, $channel, $nick;
+    my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+    notify $nick, $address, $flags, $users,
+      "{who} has left \cb$channel\cb \cc14[\co$reason\cc14]\co", 0;
+};
+
+Irssi::signal_add_last 'event quit', sub {
+    my ($server, $args, $nick, $address) = @_;
+    $args =~ /^:(.*)$/ or $args =~ /^([^ ]+)$/ or $args =~ /^()$/ or return;
+    my $reason = $1;
+    my $chatnet = lc $server->{chatnet};
+    maybe_disappears $chatnet, $server, undef, $nick, $address;
+    cancel_queued_everywhere $chatnet, $nick;
+    my ($flags, $users) = find_global_flags $chatnet, $nick, $address;
+    delete $flags->{n};
+    foreach my $chan ($server->channels()) {
+        next unless $chan->nick_find($nick);
+        my $channel = lc $chan->{name};
+        my ($local_flags, $local_users) = find_local_flags $chatnet, $channel, $nick, $address;
+        if (defined $local_flags->{n}) {
+            $flags->{n} = '';
+            last;
+        }
+    }
+    notify $nick, $address, $flags, $users,
+      "{who} has quit \cc14[\co$reason\cc14]\co", 0;
+};
+
+Irssi::signal_add_last 'event kick', sub {
+    my ($server, $args, $kicker, $kicker_address) = @_;
+    $args =~ /^([^ ]+) +([^ ]+) +:(.*)$/ or $args =~ /^([^ ]+) +([^ ]+) +([^ ]+)$/ or
+      $args =~ /^([^ ]+) +([^ ]+)()$/ or return;
+    my ($channel, $nick, $reason) = (lc $1, $2, $3);
+    my $chatnet = lc $server->{chatnet};
+    my $chan = $server->channel_find($channel) or return;
+    my $who = $chan->nick_find($nick);
+    return unless defined $who;
+    my $address = $who->{host};
+    maybe_disappears $chatnet, $server, $channel, $nick, $address;
+    cancel_queued $chatnet, $channel, $nick;
+    my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+    notify $nick, $address, $flags, $users,
+      "{who} was kicked from \cb$channel\cb by \cb$kicker\cb \cc14[\co$reason\cc14]\co", 0;
+};
+
+Irssi::signal_add_last 'event nick', sub {
+    my ($server, $args, $old_nick, $address) = @_;
+    $args =~ /^:(.*)$/ or $args =~ /^([^ ]+)$/ or return;
+    my $new_nick = $1;
+    my $chatnet = lc $server->{chatnet};
+    queue_nick_changed $chatnet, $old_nick, $new_nick;
+    foreach my $chan ($server->channels()) {
+        my @nicks = map {$_->{nick}} $chan->nicks();
+        my $who = $chan->nick_find($new_nick);
+        next unless $who;
+        my $channel = lc $chan->{name};
+        my ($old_flags, $old_users) = find_local_flags $chatnet, $channel, $old_nick, $address;
+        my ($new_flags, $new_users) = find_local_flags $chatnet, $channel, $new_nick, $address;
+        if (defined $new_flags->{n} &&
+            (!defined $old_flags->{n} || $old_users->{''}[0] ne $new_users->{''}[0])) {
+            notify $new_nick, $address, $new_flags, $new_users,
+              "{who} is on \cb$channel\cb", 1;
+        }
+        next if defined $new_flags->{x};
+        next unless $chan->{chanop};
+        if (defined $new_flags->{o}) {
+            queue_action $chatnet, '+o', $channel, $new_nick
+              if !defined $old_flags->{o} && !$who->{op};
+        } elsif (defined $new_flags->{k}) {
+            ban $server, $channel, $new_nick, $address, $who->{op}, $new_users;
+            kick $server, $channel, $new_nick, $new_flags;
+        } elsif (defined $new_flags->{d}) {
+            queue_action $chatnet, '-o', $channel, $new_nick, 0.1
+              if !defined $old_flags->{d} && $who->{op};
+        }
+        if (defined $new_flags->{v}) {
+            queue_action $chatnet, '+v', $channel, $new_nick
+              if !defined $old_flags->{v} && !$who->{op} && !$who->{voice};
+        } elsif (defined $new_flags->{q}) {
+            queue_action $chatnet, '-v', $channel, $new_nick, 0.2
+              if !defined $old_flags->{q} && $who->{voice};
+        }
+        if ($new_flags->{e} ne '') {
+            execute $server, $channel, $new_nick, $address, $new_flags;
+        }
+    }
+};
+
+######## NICK COLORS ########
+
+sub compute_color($) {
+    my ($text) = @_;
+    my $sum = 0;
+    foreach my $ch (lc($text) =~ /[a-z]/g) {
+        $sum += ord $ch;
+    }
+    my @colors = split(//, Irssi::settings_get_str('people_colors'));
+    return '%' . $colors[$sum % @colors];
+}
+
+Irssi::signal_add_last 'message public', sub {
+    my ($server, $msg, $nick, $address, $channel) = @_;
+    my $chatnet = lc $server->{chatnet};
+    $channel = lc $channel;
+    my $chan = $server->channel_find($channel) or return;
+    my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+    return unless defined $flags->{c} ||
+      Irssi::settings_get_bool('people_color_friends') && defined $flags->{''} ||
+      Irssi::settings_get_bool('people_color_everybody');
+    my $color = $flags->{c} ne '' ? $flags->{c} :
+      compute_color(defined $flags->{c} && $users->{c} ? $handles{$users->{c}[0]} :
+                    defined $flags->{''} ? $handles{$users->{''}[0]} : $nick);
+    my $window = $server->window_find_item($channel);
+    my $theme = $window->{theme} || Irssi::current_theme;
+    my $oform = $theme->get_format('fe-common/core', 'pubmsg');
+    my $nform = $oform;
+    $nform =~ s/(\$(?:\[-?\d+\])?0)/$color$1%n/g;
+    $window->command("^format pubmsg $nform") if $window;
+    Irssi::signal_continue @_;
+    $window->command("^format pubmsg $oform") if $window;
+};
+
+######## WORK WHEN USERLIST CHANGED ########
+
+sub user_changed_on_channel($$$$$) {
+    my ($hdl, $server, $chatnet, $chan, $channel) = @_;
+    foreach my $who ($chan->nicks()) {
+        my $nick = $who->{nick};
+        next if $nick eq $server->{nick};
+        my $address = $who->{host};
+        my ($flags, $users) = find_local_flags_if_matches $hdl, $chatnet, $channel, $nick, $address;
+        notify $nick, $address, $flags, $users,
+          "{who} is on \cb$channel\cb", 0;
+        process_user $server, $chan, $who->{op}, $who->{voice}, $nick, $address, $flags, $users;
+    }
+}
+
+sub user_changed($) {
+    my ($hdl) = @_;
+    foreach my $server (Irssi::servers) {
+        my $chatnet = lc $server->{chatnet};
+        foreach my $chan ($server->channels()) {
+            next unless $chan->{wholist};
+            my $channel = lc $chan->{name};
+            user_changed_on_channel $hdl, $server, $chatnet, $chan, $channel;
+        }
+    }
+}
+
+sub user_channel_changed($$$) {
+    my ($hdl, $chatnet, $channel) = @_;
+    my $server = Irssi::server_find_chatnet $chatnet or return;
+    my $chan = $server->channel_find($channel) or return;
+    user_changed_on_channel $hdl, $server, $chatnet, $chan, $channel;
+}
+
+sub channel_changed($$) {
+    my ($chatnet, $channel) = @_;
+    my $server = Irssi::server_find_chatnet $chatnet or return;
+    my $chan = $server->channel_find($channel) or return;
+    process_channel $server, $chan, 0 if $chan->{wholist};
+}
+
+sub all_changed() {
+    foreach my $server (Irssi::servers) {
+        foreach my $chan ($server->channels()) {
+            process_channel $server, $chan, 0 if $chan->{wholist};
+        }
+    }
+}
+
+######## STORE CONFIGURATION IN A FILE ########
+
+sub show_flag($$) {
+    my ($flag, $arg) = @_;
+    return defined $arg ? $arg eq '' ? "+$flag" : "+$flag $arg" : "-$flag";
+}
+
+sub save_config() {
+    open CONFIG, ">$config_tmp";
+    foreach my $hdl (sort keys %handles) {
+        my $handle = $handles{$hdl};
+        my @masks = sort @{$user_masks{$hdl}};
+        print CONFIG "user $handle @masks\n";
+        my $globals = $user_flags{$hdl};
+        foreach my $flag (sort keys %$globals) {
+            print CONFIG "flag $handle " .
+              show_flag($flag, $globals->{$flag}) . "\n";
+        }
+        my $chatnets = $user_channel_flags{$hdl};
+        foreach my $chatnet (sort keys %$chatnets) {
+            my $channels = $chatnets->{$chatnet};
+            foreach my $channel (sort keys %$channels) {
+                my $locals = $channels->{$channel};
+                foreach my $flag (sort keys %$locals) {
+                    print CONFIG "flag $handle $chatnet/$channel " .
+                      show_flag($flag, $locals->{$flag}) . "\n";
+                }
+            }
+        }
+        print CONFIG "\n";
+    }
+    foreach my $chatnet (sort keys %channel_flags) {
+        my $channels = $channel_flags{$chatnet};
+        foreach my $channel (sort keys %$channels) {
+            my $flags = $channels->{$channel};
+            next unless %$flags;
+            foreach my $flag (sort keys %$flags) {
+                print CONFIG "flag $chatnet/$channel " .
+                  show_flag($flag, $flags->{$flag}) . "\n";
+            }
+            print CONFIG "\n";
+        }
+    }
+    close CONFIG;
+    rename $config, $config_old;
+    rename $config_tmp, $config;
+}
+
+sub autosave_config() {
+    save_config if Irssi::settings_get_bool 'people_autosave';
+}
+
+Irssi::signal_add 'setup saved', sub {
+    my ($main_config, $auto) = @_;
+    save_config unless $auto;
+};
+
+sub unique_masks(@) {
+    my %masks = ();
+    foreach my $mask (@_) {
+        $mask = "*\@$mask" if $mask !~ /\@|!\*$/;
+        $mask = "*!$mask" if $mask !~ /!/;
+        $masks{$mask} = 1;
+    }
+    return sort keys %masks;
+}
+
+sub load_config() {
+    %handles = ();
+    %user_masks = ();
+    %user_flags = ();
+    %channel_flags = ();
+    %user_channel_flags = ();
+    open CONFIG, $config or return;
+    while (<CONFIG>) {
+        chomp;
+        next if /^ *$/ || /^#/;
+        if (/^user +$handle_re$opt_masks_re *$/o) {
+            my ($handle, $masks) = ($1, $2);
+            $handles{lc $handle} = $handle;
+            $user_masks{lc $handle} = [unique_masks(split(' ', $masks))];
+        } elsif (/^flag +$handle_re +$chatnet_re\/$channel_re +\+([a-zA-Z])$arg_re$/o) {
+            my ($handle, $chatnet, $channel, $flag, $arg) = ($1, $2, $3, $4, $5);
+            $flag = tr_flag $flag;
+            $arg = '' unless defined $arg;
+            $user_channel_flags{lc $handle}{$chatnet}{$channel}{$flag} = $arg;
+        } elsif (/^flag +$handle_re +$chatnet_re\/$channel_re +-([a-zA-Z]) *$/o) {
+            my ($handle, $chatnet, $channel, $flag) = ($1, $2, $3, $4);
+            $flag = tr_flag $flag;
+            $user_channel_flags{lc $handle}{$chatnet}{$channel}{$flag} = undef;
+        } elsif (/^flag +$chatnet_re\/$channel_re +\+([a-zA-Z])$arg_re$/o) {
+            my ($chatnet, $channel, $flag, $arg) = ($1, $2, $3, $4);
+            $flag = tr_flag $flag;
+            $arg = '' unless defined $arg;
+            $channel_flags{$chatnet}{$channel}{$flag} = $arg;
+        } elsif (/^flag +$chatnet_re\/$channel_re +-([a-zA-Z]) *$/o) {
+            my ($chatnet, $channel, $flag) = ($1, $2, $3);
+            $flag = tr_flag $flag;
+            $channel_flags{$chatnet}{$channel}{$flag} = undef;
+        } elsif (/^flag +$handle_re +\+([a-zA-Z])$arg_re$/o) {
+            my ($handle, $flag, $arg) = ($1, $2, $3);
+            $flag = tr_flag $flag;
+            $arg = '' unless defined $arg;
+            $user_flags{lc $handle}{$flag} = $arg;
+        } elsif (/^flag +$handle_re +-([a-zA-Z]) *$/o) {
+            my ($handle, $flag) = ($1, $2);
+            $flag = tr_flag $flag;
+            $user_flags{lc $handle}{$flag} = undef;
+        } else {
+            print CLIENTERROR "Syntax error in $config: $_";
+        }
+    }
+    update_all_masks;
+    all_changed;
+}
+
+Irssi::signal_add 'setup reread', \&load_config;
+
+######## MANAGE THE USER LIST ########
+
+sub find_nick($) {
+    my ($nick) = @_;
+    foreach my $chan (Irssi::channels) {
+        my $who = $chan->nick_find($nick) or next;
+        my $address = $who->{host};
+        return $address if $address ne '';
+    }
+    return undef;
+}
+
+sub find_server_nick($$) {
+    my ($server, $nick) = @_;
+    foreach my $chan ($server->channels) {
+        my $who = $chan->nick_find($nick) or next;
+        my $address = $who->{host};
+        return $address if $address ne '';
+    }
+    return undef;
+}
+
+sub guess_mask($) {
+    my ($nick) = @_;
+    my $address = find_nick $nick;
+    return defined $address ? (improve_mask $address) : ();
+}
+
+sub cmd_user_add($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    unless ($args =~ /^ *$handle_re$opt_masks_re *$/o) {
+        $context->{usage}("user add <handle> <mask>...");
+        return;
+    }
+    my ($handle, $masks) = ($1, $2);
+    my $hdl = lc $handle;
+    if (defined $handles{$hdl}) {
+        $context->{error}("User \cc04$handles{$hdl}\co already exists");
+        return;
+    }
+    my @masks = split(' ', $masks);
+    @masks = guess_mask $handle unless @masks;
+    @masks = unique_masks(@masks);
+    $handles{$hdl} = $handle;
+    $user_masks{$hdl} = [@masks];
+    $user_flags{$hdl}{l} = ''
+      unless $context->{owner} || defined $context->{globals}{m};
+    if (@masks) {
+        my $plural = @masks == 1 ? "" : "s";
+        $context->{notice}("Added user \cc04$handle\co with address mask$plural \cc10@masks\co");
+    } else {
+        $context->{notice}("Added user \cc04$handle\co with no address masks.");
+    }
+    update_all_masks;
+    user_changed $hdl;
+    autosave_config;
+}
+
+sub cmd_user_remove($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    unless ($args =~ /^ *$handle_re *$/o) {
+        $context->{usage}("user remove <handle>");
+        return;
+    }
+    my $handle = $1;
+    handle_exists $context, $handle or return;
+    my $hdl = lc $handle;
+    may_manage $context, $hdl or return;
+    $context->{notice}("Removed user \cc04$handles{$hdl}\co.");
+    delete $user_flags{$hdl};
+    delete $user_channel_flags{$hdl};
+    user_changed $hdl;
+    delete $handles{$hdl};
+    delete $user_masks{$hdl};
+    update_all_masks;
+    autosave_config;
+};
+
+sub cmd_mask_add($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    unless ($args =~ /^ *$handle_re +$masks_re *$/o) {
+        $context->{usage}("mask add <handle> <mask>...");
+        return;
+    }
+    my ($handle, $masks) = ($1, $2);
+    handle_exists $context, $handle or return;
+    my $hdl = lc $handle;
+    may_manage $context, $hdl or return;
+    my %masks = map {$_ => 1} @{$user_masks{$hdl}};
+    foreach my $mask (unique_masks(split(' ', $masks))) {
+        $masks{$mask} = 1;
+    }
+    $user_masks{$hdl} = [sort keys %masks];
+    show_handle $context, $hdl;
+    update_all_masks;
+    user_changed $hdl;
+    autosave_config;
+}
+
+sub cmd_mask_remove($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    unless ($args =~ /^ *$handle_re +$masks_re *$/o) {
+        $context->{usage}("mask remove <handle> <mask>...");
+        return;
+    }
+    my ($handle, $masks) = ($1, $2);
+    handle_exists $context, $handle or return;
+    my $hdl = lc $handle;
+    may_manage $context, $hdl or return;
+    my %masks = map {$_ => 1} @{$user_masks{$hdl}};
+    foreach my $mask (unique_masks(split(' ', $masks))) {
+        delete $masks{$mask};
+    }
+    $user_masks{$hdl} = [sort keys %masks];
+    show_handle $context, $hdl;
+    update_all_masks;
+    user_changed $hdl;
+    autosave_config;
+}
+
+sub cmd_user_rename($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    unless ($args =~ /^ *$handle_re +$handle_re *$/o) {
+        $context->{usage}("user rename <handle> <new-handle>");
+        return;
+    }
+    my ($old_handle, $new_handle) = ($1, $2);
+    handle_exists $context, $old_handle or return;
+    my $old_hdl = lc $old_handle;
+    my $new_hdl = lc $new_handle;
+    may_manage $context, $old_hdl or return;
+    if ($new_hdl ne $old_hdl && defined $handles{$new_hdl}) {
+        $context->{error}("User \cc04$handles{$new_hdl}\co already exists.");
+        return;
+    }
+    $handles{$new_hdl} = $new_handle;
+    if ($new_hdl ne $old_hdl) {
+        delete $handles{$old_hdl};
+        $user_masks{$new_hdl} = $user_masks{$old_hdl};
+        delete $user_masks{$old_hdl};
+        if ($user_flags{$old_hdl}) {
+            $user_flags{$new_hdl} = $user_flags{$old_hdl};
+            delete $user_flags{$old_hdl};
+        }
+        if ($user_channel_flags{$old_hdl}) {
+            $user_channel_flags{$new_hdl} = $user_channel_flags{$old_hdl};
+            delete $user_channel_flags{$old_hdl};
+        }
+    }
+    $context->{notice}("Renamed user \cc04$old_handle\co to \cc04$new_handle\co.");
+    autosave_config;
+}
+
+######## MANAGE FLAGS ########
+
+sub flag_usage($) {
+    my ($context) = @_;
+    $context->{usage}     ("flag <handle>");
+    $context->{usage_next}("flag [<chatnet>/]<#channels>");
+    $context->{usage_next}("flag <handle>                         <flags>");
+    $context->{usage_next}("flag          [<chatnet>/]<#channels> <flags>");
+    $context->{usage_next}("flag <handle> [<chatnet>/]<#channels> <flags>");
+    $context->{error}("<flags> is (+<letter>...|-<letter>...)...");
+    $context->{error}("The last +<letter> may be followed by space and <argument>");
+}
+
+sub parse_flags($) {
+    my ($flags) = @_;
+    return map {
+        my ($dir, $force) = /^\+/ ? ('', 0) : /^-/ ? (undef, 0) : (undef, 1);
+        map {[$_, $dir, $force]} (/[a-zA-Z]/g)
+    } ($flags =~ /[+\-!][a-zA-Z]+/g);
+}
+
+sub cmd_flag($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    if ($args =~ /^ *(?:$chatnet_re\/)?$channels_re *$/o) {
+        my ($chatnet, $channels) = ($1, lc $2);
+        $chatnet = default_chatnet $context unless defined $chatnet;
+        $chatnet = lc $chatnet;
+        foreach my $channel (split /,/, $channels) {
+            show_channel $context, $chatnet, $channel, 1;
+        }
+        return;
+    }
+    if ($args =~ /^ *$handle_re *$/o) {
+        my ($hdl) = lc $1;
+        show_handle $context, $hdl;
+        return;
+    }
+    unless ($args =~ /^ *(?:$handle_re +)??(?:(?:$chatnet_re\/)?$channels_re +)?$flags_re$arg_re$/o) {
+        flag_usage $context; return;
+    }
+    my ($handle, $chatnet, $channels, $flags, $arg) = ($1, $2, $3, $4, $5);
+    unless (defined $handle || defined $channels) {
+        flag_usage $context; return;
+    }
+    $arg = '' unless defined $arg;
+    if (defined $handle) {
+        handle_exists $context, $handle or return;
+    }
+    my $hdl = lc $handle;
+    my @channels = ();
+    if (defined $channels) {
+        $chatnet = default_chatnet $context unless defined $chatnet;
+        $chatnet = lc $chatnet;
+        @channels = map {[$chatnet, lc $_]} split /,/, $channels;
+    }
+    my @changes = parse_flags $flags;
+    if ($arg ne '') {
+        unless (defined $changes[$#changes][1]) {
+            flag_usage $context; return;
+        }
+        $changes[$#changes][1] = $arg;
+    }
+    foreach my $change (@changes) {
+        my ($flag, $arg, $force) = @$change;
+        my $new_flag = tr_flag $flag;
+        if ($new_flag ne $flag) {
+            $context->{error}("Please use \cc9+$new_flag\co instead of \cc9+$flag\co.");
+            $flag = $new_flag;
+            $change->[0] = $flag;
+        }
+        unless ($context->{set_flags}{$flag}) {
+            if ($context->{owner}) {
+                $context->{error}("Warning, only flags \cc9$context->{set_flags_str}\co are meaningful.");
+            } else {
+                $context->{error}("Sorry, you can only set flags \cc9$context->{set_flags_str}\co.");
+                return;
+            }
+        }
+    }
+    unless ($context->{owner} || defined $context->{globals}{m}) {
+        if (@channels) {
+            foreach my $chatnet_channel (@channels) {
+                my ($chatnet, $channel) = @$chatnet_channel;
+                unless (defined $context->{locals}{$chatnet}{$channel}{m}) {
+                    $context->{error}("Sorry, you don't have master privileges in \cb$channel\cb.");
+                    return;
+                }
+            }
+        } else {
+            my $chatnets = $context->{locals};
+            foreach my $chatnet (keys %$chatnets) {
+                my $channels = $chatnets->{$chatnet};
+                foreach my $channel (keys %$channels) {
+                    my $flags = $channels->{$channel};
+                    push @channels, [$chatnet, $channel] if defined $flags->{m};
+                }
+            }
+        }
+    }
+    if (defined $handle) {
+        if (@channels) {
+            foreach my $chatnet_channel (@channels) {
+                my ($chatnet, $channel) = @$chatnet_channel;
+                my $flags = \%{$user_channel_flags{$hdl}{$chatnet}{$channel}};
+                foreach my $change (@changes) {
+                    my ($flag, $arg, $force) = @$change;
+                    my $global =
+                      exists $channel_flags{$chatnet}{$channel}{$flag} ?
+                      $channel_flags{$chatnet}{$channel}{$flag} :
+                      $user_flags{$hdl}{$flag};
+                    if ($force ||
+                        defined $arg != defined $global ||
+                        defined $arg && defined $global &&
+                        $arg ne $global && $arg ne '') {
+                        $flags->{$flag} = $arg;
+                    } else {
+                        delete $flags->{$flag};
+                    }
+                }
+            }
+            show_handle $context, $hdl;
+            foreach my $chatnet_channel (@channels) {
+                my ($chatnet, $channel) = @$chatnet_channel;
+                user_channel_changed $hdl, $chatnet, $channel;
+            }
+        } else {
+            my $flags = \%{$user_flags{$hdl}};
+            foreach my $change (@changes) {
+                my ($flag, $arg, $force) = @$change;
+                if ($force || defined $arg) {
+                    $flags->{$flag} = $arg;
+                } else {
+                    delete $flags->{$flag};
+                }
+            }
+            show_handle $context, $hdl;
+            user_changed $hdl;
+        }
+    } else {
+        foreach my $chatnet_channel (@channels) {
+            my ($chatnet, $channel) = @$chatnet_channel;
+            my $flags = \%{$channel_flags{$chatnet}{$channel}};
+            foreach my $change (@changes) {
+                my ($flag, $arg, $force) = @$change;
+                if ($force || defined $arg) {
+                    $flags->{$flag} = $arg;
+                } else {
+                    delete $flags->{$flag};
+                }
+            }
+            show_channel $context, $chatnet, $channel, 1;
+            channel_changed $chatnet, $channel;
+        }
+    }
+    autosave_config;
+}
+
+######## FIND USERS ########
+
+sub cmd_find($$) {
+    my ($context, $args) = @_;
+    if ($args =~ /^ *(?:$chatnet_re\/)?$channel_re *$/o) {
+        my ($chatnet, $channel) = ($1, lc $2);
+        must_be_master $context or return;
+        $chatnet = default_chatnet $context unless defined $chatnet;
+        $chatnet = lc $chatnet;
+        my $server = Irssi::server_find_chatnet $chatnet;
+        unless ($server) {
+            $context->{error}("Sorry, I'm not connected to $chatnet.");
+            return;
+        }
+        my $chan = $server->channel_find($channel);
+        unless ($chan) {
+            $context->{error}("Sorry, I'm not on $channel.");
+        }
+        my @people = ();
+        foreach my $who ($chan->nicks()) {
+            my $nick = $who->{nick};
+            next if $nick eq $server->{nick};
+            my $address = $who->{host};
+            my ($hdl, $mask) = find_best_user undef, $nick, $address;
+            next unless defined $hdl;
+            push @people, [$hdl, $nick, $address];
+        }
+        unless (@people) {
+            $context->{crap}("I don't recognize any people from \cb$channel\cb.");
+            return;
+        }
+        $context->{crap}("Recognized people on \cb$channel\cb:");
+        foreach my $person (sort {$a->[0] cmp $b->[0]} @people) {
+            my ($hdl, $nick, $address) = @$person;
+            $context->{crap}(show_who $hdl, $nick, $address);
+        }
+    } elsif ($args =~ /^ *$mask_re *$/o) {
+        my $mask = $1;
+        must_be_master $context or return;
+        my ($nick, $address);
+        if ($mask =~ /^(.*)!(.*)$/) {
+            ($nick, $address) = ($1, $2);
+        } elsif ($mask =~ /\@/) {
+            ($nick, $address) = ('*', $mask);
+        } else {
+            $nick = $mask;
+            $address = find_nick $nick;
+            unless (defined $address) {
+                $context->{error}("I don't see \cc11$nick\co on my channels.");
+                return;
+            }
+        }
+        my @users = find_users undef, $nick, $address;
+        unless (@users) {
+            $context->{error}("I don't know who \cc11$nick\co \cc14[\cc10$address\cc14]\co is.");
+            return;
+        }
+        foreach my $user (@users) {
+            my ($hdl, $mask) = @$user;
+            my $who = show_who $hdl, $nick, $address;
+            $context->{crap}("$who \cc14(\cc10$mask\cc14)\co");
+        }
+    } elsif ($context->{owner} && $args =~ /^ *$/) {
+        my %people = ();
+        my %channels = ();
+        foreach my $server (Irssi::servers) {
+            my $chatnet = lc $server->{chatnet};
+            foreach my $chan ($server->channels()) {
+                my $channel = lc $chan->{name};
+                foreach my $who ($chan->nicks()) {
+                    my $nick = $who->{nick};
+                    next if $nick eq $server->{nick};
+                    my $address = $who->{host};
+                    my ($hdl, $mask) = find_best_user undef, $nick, $address;
+                    next unless defined $hdl;
+                    $people{$chatnet}{$nick} = [$address, $hdl];
+                    push @{$channels{$chatnet}{$nick}}, $channel;
+                }
+            }
+        }
+        my @people = ();
+        foreach my $chatnet (keys %people) {
+            my $nicks = $people{$chatnet};
+            foreach my $nick (keys %$nicks) {
+                my ($address, $hdl) = @{$nicks->{$nick}};
+                my $channels = $channels{$chatnet}{$nick};
+                push @people, [$hdl, $chatnet, $nick, $address, $channels];
+            }
+        }
+        foreach my $person (sort {$a->[0] cmp $b->[0]} @people) {
+            my ($hdl, $chatnet, $nick, $address, $channels) = @$person;
+            my $who = show_who $hdl, $nick, $address;
+            my $channels_txt = join(", ", sort @$channels);
+            $context->{crap}("\cc14[\co$chatnet\cc14]\co $who is on \cb$channels_txt\cb");
+        }
+    } else {
+        if ($context->{owner}) {
+            $context->{usage}     ("find");
+            $context->{usage_next}("find <#channel>");
+        } else {
+            $context->{usage}     ("find <#channel>");
+        }
+        $context->{usage_next}("find <mask>");
+        $context->{usage_next}("find <nick>");
+    }
+};
+
+######## OPERATOR COMMANDS ########
+
+sub find_channel($$$) {
+    my ($context, $channel, $need_op) = @_;
+    my $chan = $context->{server}->channel_find($channel);
+    if ($chan) {
+        if ($need_op && !$chan->{chanop}) {
+            $context->{error}("Sorry, I'm not an operator on \cb$channel\cb.");
+            return undef;
+        }
+        return $chan;
+    } else {
+        $context->{error}("Sorry, I'm not on \cb$channel\cb.");
+        return undef;
+    }
+}
+
+sub must_be_channel_operator($$$) {
+    my ($context, $chatnet, $channel) = @_;
+    return 1 if has_local_flag($context, $chatnet, $channel, 'o') ||
+      has_local_flag($context, $chatnet, $channel, 'm');
+    $context->{error}("Sorry, you don't have operator privileges on \cb$channel\cb.");
+    return 0;
+}
+
+sub cmd_trust($$) {
+    my ($context, $args) = @_;
+    must_be_master $context or return;
+    my @nicks = map { lc } split /\s+/, $args;
+    my $chatnet = lc default_chatnet $context;
+    my $server = Irssi::server_find_chatnet $chatnet;
+    foreach my $nick (@nicks) {
+        my $address = find_server_nick $server, $nick;
+        unless (defined $address) {
+            $context->{error}("I don't see \cc11$nick\co in \cb$chatnet\cb.");
+            next;
+        }
+        my @users = find_users undef, $nick, $address;
+        unless (@users) {
+            $context->{error}("I don't recognize \cc11$nick\co.");
+        }
+        foreach my $user (@users) {
+            my ($hdl, $mask) = @$user;
+            unless (defined $user_flags{$hdl}{p}) {
+                $context->{error}("\cc04$hdl\co doesn't need a password.");
+                next;
+            }
+            $context->{notice}("Trusting \cc11$nick\co to be \cc04$hdl\co " .
+              "on \cb$chatnet\cb.");
+            $authenticated{$chatnet}{$address}{$hdl} = 1;
+            maybe_disappears $chatnet, $server, undef, $nick, $address;
+            foreach my $chan ($server->channels()) {
+                next unless $chan->{wholist};
+                next unless $chan->{chanop};
+                my $channel = lc $chan->{name};
+                # nick_find_mask() only returns one nick.
+                foreach my $who (grep { $_->{host} eq $address } $chan->nicks()) {
+                    my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+                    next if defined $flags->{x};
+                    if (defined $flags->{r} || defined $flags->{o}) {
+                        queue_action $chatnet, '+o', $channel, $who->{nick};
+                    }
+                    if (defined $flags->{v}) {
+                        queue_action $chatnet, '+v', $channel, $who->{nick};
+                    }
+                    # FIXME: flag +e?
+                }
+            }
+        }
+    }
+}
+
+sub cmd_op($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re(?: +$nicks_re)? *$/o) {
+        $context->{usage}("op <#channel> [<nick>]...");
+        return;
+    }
+    my ($channel, $nicks) = (lc $1, $2);
+    my @nicks = defined $nicks ? split ' ', $nicks : ($context->{nick});
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    my @good = ();
+    foreach my $nick (@nicks) {
+        my $who = $chan->nick_find($nick);
+        unless ($who) {
+            $context->{error}("\cb$nick\cb is not on \cb$channel\cb.");
+            next;
+        }
+        next if $who->{op};
+        unless (has_local_flag($context, $chatnet, $channel, 'm')) {
+            my $address = $who->{host};
+            my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+            if (!defined $flags->{o} && defined $flags->{d}) {
+                $context->{error}("I refuse to op \cb$nick\cb on \cb$channel\cb - has \cc9+d\co flag.");
+                next;
+            }
+        }
+        push @good, $nick;
+    }
+    if (@good) {
+        my $cmd = "+" . "o" x @good . " @good";
+        channel_notice $server, $channel, "mode/$channel [$cmd] by $context->{nick}";
+        $server->command("mode $channel $cmd");
+    }
+}
+
+sub cmd_deop($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re(?: +$nicks_re)? *$/o) {
+        $context->{usage}("deop <#channel> [<nick>]...");
+        return;
+    }
+    my ($channel, $nicks) = (lc $1, $2);
+    my @nicks = defined $nicks ? split ' ', $nicks : ($context->{nick});
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    my @good = ();
+    foreach my $nick (@nicks) {
+        my $who = $chan->nick_find($nick);
+        unless ($who) {
+            $context->{error}("\cb$nick\cb is not on \cb$channel\cb.");
+            next;
+        }
+        next unless $who->{op};
+        unless (has_local_flag($context, $chatnet, $channel, 'm')) {
+            if ($nick eq $server->{nick}) {
+                $context->{error}("I refuse to deop myself on \cb$channel\cb.");
+                next;
+            }
+            my $address = $who->{host};
+            my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+            if (defined $flags->{r} && $nick ne $context->{nick}) {
+                $context->{error}("I refuse to deop \cb$nick\cb on \cb$channel\cb - has \cc9+r\co flag.");
+                next;
+            }
+        }
+        push @good, $nick;
+    }
+    if (@good) {
+        my $cmd = "-" . "o" x @good . " @good";
+        channel_notice $server, $channel, "mode/$channel [$cmd] by $context->{nick}";
+        $server->command("mode $channel $cmd");
+    }
+}
+
+sub cmd_voice($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re(?: +$nicks_re)? *$/o) {
+        $context->{usage}("voice <#channel> [<nick>]...");
+        return;
+    }
+    my ($channel, $nicks) = (lc $1, $2);
+    my @nicks = defined $nicks ? split ' ', $nicks : ($context->{nick});
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    my @good = ();
+    foreach my $nick (@nicks) {
+        my $who = $chan->nick_find($nick);
+        unless ($who) {
+            $context->{error}("\cb$nick\cb is not on \cb$channel\cb.");
+            next;
+        }
+        next if $who->{voice};
+        unless (has_local_flag($context, $chatnet, $channel, 'm')) {
+            my $address = $who->{host};
+            my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+            if (!defined $flags->{v} && defined $flags->{q}) {
+                $context->{error}("I refuse to voice \cb$nick\cb on \cb$channel\cb - has \cc9+q\co flag.");
+                next;
+            }
+        }
+        push @good, $nick;
+    }
+    if (@good) {
+        my $cmd = "+" . "v" x @good . " @good";
+        channel_notice $server, $channel, "mode/$channel [$cmd] by $context->{nick}";
+        $server->command("mode $channel $cmd");
+    }
+}
+
+sub cmd_devoice($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re(?: +$nicks_re)? *$/o) {
+        $context->{usage}("devoice <#channel> [<nick>]...");
+        return;
+    }
+    my ($channel, $nicks) = (lc $1, $2);
+    my @nicks = defined $nicks ? split ' ', $nicks : ($context->{nick});
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    my @good = ();
+    foreach my $nick (@nicks) {
+        my $who = $chan->nick_find($nick);
+        unless ($who) {
+            $context->{error}("\cb$nick\cb is not on \cb$channel\cb.");
+            next;
+        }
+        next unless $who->{voice};
+        push @good, $nick;
+    }
+    if (@good) {
+        my $cmd = "-" . "v" x @good . " @good";
+        channel_notice $server, $channel, "mode/$channel [$cmd] by $context->{nick}";
+        $server->command("mode $channel $cmd");
+    }
+}
+
+sub cmd_kick($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re +$nicks_commas_re(| .*)$/o) {
+        $context->{usage}("kick <#channel> <nicks> [<reason>]");
+        return;
+    }
+    my ($channel, $nicks, $reason) = (lc $1, $2, $3);
+    my @nicks = split /,/, $nicks;
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    $reason = " $context->{nick}" if $reason =~ /^ ?$/;
+    $reason =~ s/^ //;
+    foreach my $nick (@nicks) {
+        my $who = $chan->nick_find($nick);
+        unless ($who) {
+            $context->{error}("\cb$nick\cb is not on \cb$channel\cb.");
+            next;
+        }
+        unless (has_local_flag($context, $chatnet, $channel, 'm')) {
+            if ($nick eq $server->{nick}) {
+                $context->{error}("I refuse to kick myself from \cb$channel\cb.");
+                next;
+            }
+        }
+        channel_notice $server, $channel, "$nick was kicked from $channel by $context->{nick} [$reason]";
+        $server->command("kick $channel $nick $reason");
+    }
+}
+
+sub cmd_ban($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re +$masks_re *$/o) {
+        $context->{usage}("ban <#channel> <mask/nick>...");
+        return;
+    }
+    my ($channel, $masks) = (lc $1, $2);
+    my @masks = split ' ', $masks;
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    my @good = ();
+    foreach my $mask (@masks) {
+        if ($mask !~ /!/) {
+            if ($mask =~ /\@/) {
+                $mask = "*!$mask";
+            } else {
+                my $who = $chan->nick_find($mask);
+                unless ($who) {
+                    $context->{error}("\cb$mask\cb is not on \cb$channel\cb.");
+                    next;
+                }
+                my $address = $who->{host};
+                if ($address eq '') {
+                    $context->{error}("Sorry, I don't know \cb$mask\cb's address yet.");
+                    next;
+                }
+                $mask = "*!" . improve_mask $address;
+            }
+        }
+        push @good, $mask;
+    }
+    if (@good) {
+        my $cmd = "+" . "b" x @good . " @good";
+        channel_notice $server, $channel, "mode/$channel [$cmd] by $context->{nick}";
+        $server->command("mode $channel $cmd");
+    }
+}
+
+sub cmd_unban($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re(?: +$masks_re)? *$/o) {
+        $context->{usage}("unban <#channel> [<masks>]");
+        return;
+    }
+    my ($channel, $masks) = (lc $1, $2);
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    my @masks = ();
+    if (defined $masks) {
+        @masks = split ' ', $masks;
+    } else {
+        my $nick = $context->{nick};
+        my $address = $context->{address};
+        foreach my $ban ($chan->bans()) {
+            push @masks, $ban->{ban}
+              if Irssi::mask_match_address($ban->{ban}, $nick, $address);
+        }
+        unless (@masks) {
+            $context->{notice}("There are no bans against you on \cb$channel\cb.");
+            return;
+        }
+    }
+    my $cmd = "-" . "b" x @masks . " @masks";
+    channel_notice $server, $channel, "mode/$channel [$cmd] by $context->{nick}";
+    $server->command("mode $channel $cmd");
+    unless (defined $masks) {
+        $context->{notice}("Any bans against you on \cb$channel\cb have been cleared.");
+    }
+}
+
+sub cmd_kickban($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    unless ($args =~ /^ *$channel_re +$nicks_commas_re(| .*)$/o) {
+        $context->{usage}("kickban <#channel> <nicks> [<reason>]");
+        return;
+    }
+    my ($channel, $nicks, $reason) = (lc $1, $2, $3);
+    my @nicks = split /,/, $nicks;
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    $reason = " $context->{nick}" if $reason =~ /^ ?$/;
+    $reason =~ s/^ //;
+    foreach my $nick (@nicks) {
+        my $who = $chan->nick_find($nick);
+        unless ($who) {
+            $context->{error}("\cb$nick\cb is not on \cb$channel\cb.");
+            next;
+        }
+        unless (has_local_flag($context, $chatnet, $channel, 'm')) {
+            if ($nick eq $server->{nick}) {
+                $context->{error}("I refuse to kick myself from \cb$channel\cb.");
+                next;
+            }
+        }
+        my $address = $who->{host};
+        if ($address eq '') {
+            $context->{error}("Sorry, I don't know \cb$nick\cb's address yet.");
+        } else {
+            ban $server, $channel, $nick, $address, $$who->{op}, {};
+        }
+        channel_notice $server, $channel, "$nick was kicked from $channel by $context->{nick} [$reason]";
+        $server->command("kick $channel $nick $reason");
+    }
+}
+
+sub cmd_invite($$) {
+    my ($context, $args) = @_;
+    must_be_operator $context or return;
+    my ($channel, $nick);
+    if ($args =~ /^ *$channel_re(?: +$nick_re)? *$/o) {
+        ($channel, $nick) = (lc $1, $2);
+    } elsif ($args =~ /^ *$nick_re +$channel_re *$/o) {
+        ($nick, $channel) = ($1, lc $2);
+    } else {
+        $context->{usage}("invite <#channel> [<nick>]");
+        return;
+    }
+    $nick = $context->{nick} unless defined $nick;
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    must_be_channel_operator $context, $chatnet, $channel or return;
+    my $chan = find_channel $context, $channel, 1 or return;
+    if ($chan->nick_find($nick)) {
+        $context->{error}("\cb$nick\cb is already on \cb$channel\cb");
+        return;
+    }
+    channel_notice $server, "$nick,$channel",  "$context->{nick} invited $nick into $channel";
+    $server->command("invite $nick $channel");
+}
+
+######## AUTHENTICATION ########
+
+sub must_have_crypt($) {
+    my ($context) = @_;
+    $context->{error}("Sorry, passwords don't work here - Crypt::PasswdMD5 module not found.")
+      unless $has_crypt;
+    return $has_crypt;
+}
+
+our @salt_chars = ('.', '/', '0'..'9', 'A'..'Z', 'a'..'z');
+
+sub crypt_new_password($) {
+    my ($password) = @_;
+    my $salt = join('', map {$salt_chars[rand @salt_chars]} (1..8));
+    return unix_md5_crypt($password, $salt);
+}
+
+sub check_password($$) {
+    my ($password, $required) = @_;
+    return $required eq unix_md5_crypt($password, $required);
+}
+
+sub cmd_pass($$) {
+    my ($context, $args) = @_;
+    unless ($args =~ /^ *([^ ]+)(?: +([^ ]+))? *$/) {
+        $context->{usage}     ("pass <password>   - authenticate or set password for the first time");
+        $context->{usage_next}("pass <password> <new-password>   - change password");
+        return;
+    }
+    my ($password, $new_password) = ($1, $2);
+    my $server = $context->{server};
+    my $chatnet = lc $server->{chatnet};
+    my $nick = $context->{nick};
+    my $address = $context->{address};
+    my $password_set = 0;
+    my $right_password = 0;
+    my $wrong_password = 0;
+    foreach my $user (find_users undef, $nick, $address) {
+        my ($hdl, $mask) = @$user;
+        my $required = $user_flags{$hdl}{p};
+        next unless defined $required;
+        must_have_crypt $context or return;
+        my $who_nick = "\cc11$nick\co \cc14[\cc10$address\cc14]\co";
+        my $who_hdl = "\cc04$handles{$hdl}\co";
+        if ($required ne '' && !check_password($password, $required)) {
+            print CLIENTNOTICE "$who_nick gave \cbwrong\cb password for $who_hdl.";
+            $wrong_password = 1;
+            next;
+        }
+        if ($required eq '' || defined $new_password) {
+            $password = $new_password if defined $new_password;
+            $user_flags{$hdl}{p} = crypt_new_password $password;
+            print CLIENTNOTICE "$who_nick \cbset\cb the password for $who_hdl.";
+            $password_set = 1;
+        } else {
+            print CLIENTNOTICE "$who_nick gave \cbright\cb password for $who_hdl.";
+            $right_password = 1;
+        }
+        $authenticated{$chatnet}{$address}{$hdl} = 1;
+        maybe_disappears $chatnet, $server, undef, $nick, $address;
+        foreach my $chan ($server->channels()) {
+            next unless $chan->{wholist};
+            next unless $chan->{chanop};
+            my $channel = lc $chan->{name};
+            # nick_find_mask() only returns one nick.
+            foreach my $who (grep { $_->{host} eq $address } $chan->nicks()) {
+                my ($flags, $users) = find_local_flags $chatnet, $channel, $nick, $address;
+                next if defined $flags->{x};
+                if (defined $flags->{r} || defined $flags->{o}) {
+                    queue_action $chatnet, '+o', $channel, $who->{nick};
+                }
+                if (defined $flags->{v}) {
+                    queue_action $chatnet, '+v', $channel, $who->{nick};
+                }
+                # FIXME: flag +e?
+            }
+        }
+    }
+    if ($password_set || $right_password) {
+        $context->{notice}("Your password has been set.") if $password_set;
+        $context->{notice}("Right password.") if $right_password;
+    } elsif ($wrong_password) {
+        $context->{error}("Wrong password.");
+    } else {
+        $context->{error}("Sorry, I don't recognize you.");
+    }
+    save_config if $password_set;
+}
+
+######## LOCAL COMMANDS ########
+
+Irssi::command_bind 'user', sub {
+    my ($args, $server, $target) = @_;
+    Irssi::command_runsub 'user', $args, $server, $target;
+};
+
+Irssi::command_bind 'mask', sub {
+    my ($args, $server, $target) = @_;
+    Irssi::command_runsub 'mask', $args, $server, $target;
+};
+
+sub local_command($$) {
+    my ($command, $func) = @_;
+    Irssi::command_bind $command, sub {
+        my ($args, $server, $target) = @_;
+        $func->($local_context, $args);
+    };
+    $local_help{$command} = 1;
+}
+
+local_command 'help',        \&cmd_help;
+delete $local_help{help};
+local_command 'user add',    \&cmd_user_add;
+local_command 'user remove', \&cmd_user_remove;
+local_command 'mask add',    \&cmd_mask_add;
+local_command 'mask remove', \&cmd_mask_remove;
+local_command 'user rename', \&cmd_user_rename;
+local_command 'user list',   \&cmd_user_list;
+local_command 'flag',        \&cmd_flag;
+local_command 'find',        \&cmd_find;
+local_command 'trust',       \&cmd_trust;
+
+######## RESPOND TO MESSAGES ########
+
+our %commands;
+
+sub run_subcommand($$$) {
+    my ($command, $context, $args) = @_;
+    if ($args =~ / *([a-zA-Z]+)(| .*)$/) {
+        my ($subcommand, $subargs) = ($1, $2);
+        my $func = $commands{"$command " . lc $subcommand} or return;
+        $func->($context, $subargs);
+    }
+}
+
+%commands = (
+    help          => \&cmd_help,
+    user          => sub {&run_subcommand('user', @_)},
+    mask          => sub {&run_subcommand('mask', @_)},
+    'user add'    => \&cmd_user_add,
+    'user remove' => \&cmd_user_remove,
+    'mask add'    => \&cmd_mask_add,
+    'mask remove' => \&cmd_mask_remove,
+    'user rename' => \&cmd_user_rename,
+    'user list'   => \&cmd_user_list,
+    flag          => \&cmd_flag,
+    find          => \&cmd_find,
+    trust         => \&cmd_trust,
+    op            => \&cmd_op,
+    deop          => \&cmd_deop,
+    voice         => \&cmd_voice,
+    devoice       => \&cmd_devoice,
+    kick          => \&cmd_kick,
+    ban           => \&cmd_ban,
+    unban         => \&cmd_unban,
+    kickban       => \&cmd_kickban,
+    invite        => \&cmd_invite,
+    pass          => \&cmd_pass,
+);
+
+sub remote_command($$$$$$) {
+    my ($server, $msg, $nick, $address, $reply, $prefix) = @_;
+    return 0 unless $msg =~ /^([a-zA-Z]+)(| .*)$/;
+    my ($command, $args) = ($1, $2);
+    my $func = $commands{lc $command} or return 0;
+    my $chatnet = lc $server->{chatnet};
+    my ($globals, $locals) = find_all_flags $chatnet, $nick, $address;
+    my $context = {
+        crap           => sub {$server->command("$reply $nick $_[0]")},
+        notice         => sub {$server->command("$reply $nick $_[0]")},
+        error          => sub {$server->command("$reply $nick $_[0]")},
+        usage          => sub {$server->command("$reply $nick Usage: $prefix$_[0]")},
+        usage_next     => sub {$server->command("$reply $nick        $prefix$_[0]")},
+        owner          => 0,
+        globals        => $globals,
+        locals         => $locals,
+        set_flags      => \%master_set_flags,
+        set_flags_str  => $master_set_flags,
+        see_flags      => \%master_see_flags,
+        server         => $server,
+        nick           => $nick,
+        address        => $address,
+    };
+    $func->($context, $args);
+    return 1;
+}
+
+Irssi::signal_add_last 'message private', sub {
+    my ($server, $msg, $nick, $address) = @_;
+    return unless $msg =~ /^!(.*)$/;
+    Irssi::signal_continue @_;
+    remote_command $server, $1, $nick, $address, "notice", "!";
+};
+
+Irssi::signal_add_last "ctcp msg", sub {
+    my ($server, $args, $nick, $address, $target) = @_;
+    return unless lc $target eq lc $server->{nick};
+    remote_command $server, $args, $nick, $address, "notice", ""
+      and Irssi::signal_stop;
+};
+
+######## INITIALIZATION ########
+
+load_config;
diff --git a/scripts/per_window_prompt.pl b/scripts/per_window_prompt.pl
new file mode 100644
index 0000000..1f3a52f
--- /dev/null
+++ b/scripts/per_window_prompt.pl
@@ -0,0 +1,109 @@
+# Keeps a prompt per window.
+
+# Copyright 2007  Wouter Coekaerts <coekie@irssi.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+use strict;
+use Irssi 20070804;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'Wouter Coekaerts',
+    contact     => 'coekie@irssi.org',
+    name        => 'per_window_prompt',
+    description => 'Keeps a prompt per window',
+    license     => 'GPLv2 or later',
+    url         => 'http://wouter.coekaerts.be/irssi/',
+    changed     => '04/08/07'
+);
+
+my %prompts;
+
+my $in_command = 0;
+my $win_before_command;
+my $win_before_command_deleted;
+my $unloading = 0;
+
+# key to use to identify window
+sub winkey {
+	my ($win) = @_;
+	return defined($win) ? $win->{'_irssi'} : 0;
+}
+
+sub get_prompt {
+	return {
+			text => Irssi::parse_special('$L'),
+			pos => Irssi::gui_input_get_pos()
+	};
+}
+
+sub set_prompt {
+	my ($prompt) = @_;
+	if (defined($prompt)) {
+		Irssi::gui_input_set($prompt->{text});
+		Irssi::gui_input_set_pos($prompt->{pos});
+	} else {
+		Irssi::gui_input_set('');
+	}	
+}
+
+Irssi::signal_add_last 'window changed' => sub {
+	my ($win, $oldwin)= @_;
+	if (!$in_command) {
+		if ($oldwin) {
+			$prompts{winkey($oldwin)} = get_prompt();
+		}
+		set_prompt($prompts{winkey($win)});
+	}
+};
+
+sub UNLOAD {
+	$unloading = 1;
+}
+
+# needed when switching windows by command
+Irssi::signal_add_first 'gui key pressed' => sub {
+	my ($key) = @_;
+	
+	if ($key == 10 && ! $in_command) {
+		$win_before_command = winkey(Irssi::active_win);
+		$win_before_command_deleted = 0;
+		$in_command = 1;
+		Irssi::signal_continue(@_);
+		if ($unloading) {
+			return; # avoid crash when unloading by command
+		}
+		$in_command = 0;
+		my $win_after_command = winkey(Irssi::active_win);
+		
+		if ($win_before_command != $win_after_command) {
+			if (! $win_before_command_deleted) {
+				$prompts{$win_before_command} = get_prompt();
+			}
+			set_prompt($prompts{$win_after_command})
+		}
+	}
+};
+
+Irssi::signal_add_first 'window destroyed' => sub {
+	my ($win) = @_;
+	delete $prompts{winkey($win)};
+	if ($win_before_command == winkey($win)) {
+		$win_before_command_deleted = 1;
+	}
+};
diff --git a/scripts/pggb_sound.pl b/scripts/pggb_sound.pl
new file mode 100644
index 0000000..dfb00f9
--- /dev/null
+++ b/scripts/pggb_sound.pl
@@ -0,0 +1,251 @@
+## This is the IRSSI-version!
+## OK, here we go.
+## For bugs/suggestions/help contact me at duck@cs.uni-frankfurt.de
+##
+## This script does nothing usefull but is extremely usefull to me ;-).
+## It should handle CTCP SOUNDs correctly - even if the waves are stored
+## in subdirs and/or on SMB shares.
+## It can also initiate CTCP SOUNDs, handle sound requests and request
+## waves automatically.
+##
+## This is my first perl script. Please be kind to me ;-).
+## I built it on top of someone else's work, but I don't know whom...
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.2.3.23b";
+%IRSSI = (
+	  authors	=> 'Adam Duck',
+	  contact	=> 'duck@cs.uni-frankfurt.de',
+	  name		=> 'PGGB_sound',
+	  description	=> 'does CTCP SOUNDs and other similar things.',
+	  license	=> 'GPLv2',
+	  url		=> '',
+	 );
+
+Irssi::settings_add_bool('PGGB', 'SOUND_autosend',	1);
+Irssi::settings_add_bool('PGGB', 'SOUND_autoget',	0);
+Irssi::settings_add_bool('PGGB', 'SOUND_play',		1);
+Irssi::settings_add_int( 'PGGB', 'SOUND_display',	5);
+Irssi::settings_add_str( 'PGGB', 'SOUND_hilight',	'(none)');
+Irssi::settings_add_str( 'PGGB', 'SOUND_DCC',		'(none)');
+Irssi::settings_add_str( 'PGGB', 'SOUND_dir',		'~/.irssi/');
+Irssi::settings_add_str( 'PGGB', 'SOUND_command',	'play');
+my $autoget	= Irssi::settings_get_bool("SOUND_autoget");
+
+# You can use <nothing>, ".gz" or ".bz2" as extension, the script will
+# honour it accordingly. I chose ".gz" because it should be available
+# on most systems ...
+# Btw, this is NOT the time consuming part. It's `parse_dir'.
+my $cachefile	= $ENV{HOME} . "/.irssi/wavdir.cache.gz";
+
+########################################
+# Changelog
+# Sat 23 Mar 2002, 12:26:39	fixed stupid bug in sound_autosend
+#
+# ------------------------------------------------------------
+# Don't edit below this line unless you are prepared to code!
+# ------------------------------------------------------------
+
+use File::Listing;
+use File::Basename;
+
+Irssi::command_bind("sound", "sound_command");
+Irssi::signal_add_last("complete word", "sound_complete");
+Irssi::signal_add("event privmsg", "sound_autosend");
+Irssi::signal_add("ctcp msg", "CTCP_sound");
+Irssi::signal_add('print text', 'hilight_sound');
+Irssi::signal_add('dcc created', 'DCC_sound');
+#IRC::add_message_handler("PRIVMSG", "sound_autoget");
+
+
+Irssi::theme_register([
+		       'ctcp', '{ctcp {hilight $0} $1}'
+		      ]);
+
+sub help {
+  Irssi::print("USAGE: /sound setup|<somewav>(.wav)?");
+  Irssi::print("\nsetup: creates the (vital) cache file.");
+  Irssi::print("Please setup all variables through the /SET command (they all begin with \"SOUND_\").");
+  Irssi::print("\nIf you have copied new waves to your sounddir, be sure to run \"/sound setup\" again!");
+}
+
+sub find_wave {
+  unless ( -e "$cachefile" ) {
+    Irssi::print("Cache file not found...");
+    create_cache();}
+  my $sound = shift(@_);
+  unless ($sound =~ /^.*\.wav$/i) {$sound = $sound . ".*.wav"}
+  my $LISTING;
+  if ( -r $cachefile ) {
+    if ($cachefile =~ /\.gz$/i)		{ open(LISTING, "zcat $cachefile |") }
+    elsif ($cachefile =~ /\.bz2$/i)	{ open(LISTING, "bzcat $cachefile |") }
+    else				{ open(LISTING, "cat $cachefile |") };
+  } else {
+    Irssi::print("Cache file not readable. Nani?!?");
+    return;}
+  my @dir = parse_dir(\*LISTING, '+0001');
+  close(LISTING);
+  my $result = [];
+  for (@dir) {
+    my ($fName, $fType, $fSize, $fMtime, $fMode) = @$_;
+    if (basename($fName) =~ /^$sound$/i) {
+      #Irssi::print "$fName, $fType, $fSize, $fMtime, $fMode";
+      push @$result, $fName;}}
+  return @$result;
+}
+
+sub create_cache {
+  my $sounddir	= Irssi::settings_get_str("SOUND_dir") . "/";
+  # we need the "LC_CTYPE=en" here because dir_parse is unable
+  # to parse things like "Mär 3" (German locale) ...
+  Irssi::print("Creating $cachefile (this could take a while...)");
+  my $command = "/exec LC_CTYPE=en ls -lR $sounddir";
+  if ($cachefile =~ /\.gz$/i)		{ $command = $command . " | gzip" }
+  elsif ($cachefile =~ /\.bz2$/i)	{ $command = $command . " | bzip2" }
+  Irssi::command("$command > $cachefile");
+}
+
+sub onoff { shift(@_) ? return "ON" : return "OFF"; }
+
+sub sound_command {
+  my $sounddir	= Irssi::settings_get_str("SOUND_dir") . "/";
+  my $soundcmd	= Irssi::settings_get_str("SOUND_command");
+
+  my ($data, $server, $witem) = @_;
+  $data =~ /([\w\.]+)(.*)/;
+  my $sound	= $1;
+  my $rest	= $2;
+  $rest =~ s/ *//;
+  unless ($rest eq "") { $rest = " " . $rest;};
+  if ($sound =~ /^setup$/i)	{ create_cache(); return; }
+  if (!($sound =~ /.*\.wav/i))	{ $sound = $sound . ".wav";}
+  if ($witem && ($witem->{type} eq "CHANNEL" ||
+		 $witem->{type} eq "QUERY")) {
+    my $wavefile = (find_wave($sound))[0];
+    if ( -r $wavefile ) {
+      $witem->command("/CTCP $witem->{name} SOUND ".lc(basename($wavefile))."$rest");
+      my $playcmd = system("$soundcmd $wavefile &");			# that's not so good ...
+    } else {
+      $witem->print("\"$sound\" not found in \"$sounddir\" or cache file too old."); }
+  } else {
+    Irssi::print "There's no point in running a \"CTCP SOUND\" command here."; }
+  return 1;
+}
+
+sub sound_complete {
+  my ($complist, $window, $word, $linestart, $want_space) = @_;
+  if ($linestart =~ /^\/sound$/) {
+    my $coli = [];
+    for (find_wave($word)) { push(@$coli, basename($_)); }
+    my $max = Irssi::settings_get_int('SOUND_display');
+    if (@$coli > $max) {
+      $window->print("@$coli[0..($max-1)] ...");
+    } else {
+      push @$complist, @$coli; }}}
+
+sub sound_autosend {
+  if (!Irssi::settings_get_bool("SOUND_autosend")) { return 0; }
+  my ($server, $data, $nick, $address) = @_;
+  my $myname = $server->{nick};
+
+  $data =~ /(.*) :!$myname +(.*\.wav)/i;
+  if ($2 eq "") { return 0; }
+  my $channel	= $1;
+  my $wavefile	= (find_wave($2))[0];
+  if ($wavefile ne "") {
+    Irssi::print("DCC sending $wavefile to $nick");
+    $server->command("/DCC SEND $nick $wavefile");
+  } else {
+    $server->send_message($nick, "Sorry, $nick. $2 not found.", 1);
+  }
+  return 1;
+}
+
+sub hilight_sound {
+  my ($dest, $text, $stripped) = @_;
+  my $server = $dest->{server};
+  unless ($server->{usermode_away}) {
+    my $hiwave = Irssi::settings_get_str('SOUND_hilight');
+    if (($hiwave ne '(none)') &&
+	($dest->{level} & (MSGLEVEL_HILIGHT|MSGLEVEL_MSGS)) &&
+	($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
+      play_wave(find_wave($hiwave));}}}
+
+sub DCC_sound {
+  my $dcc = shift(@_);
+  my $server = $dcc->{server};
+  Irssi::print("$dcc->{type}");
+  unless ($server->{usermode_away} || ($dcc->{type} eq "SEND")) {
+    my $hiwave = Irssi::settings_get_str('SOUND_DCC');
+    if ($hiwave ne '(none)') {
+      play_wave(find_wave($hiwave));}}}
+
+sub play_wave {
+  my $wave = shift(@_);
+  my $sndcmd = Irssi::settings_get_str("SOUND_command");
+  if (-r "$wave") {
+    system("$sndcmd \"$wave\" &");}}
+
+sub sound_autoget {
+  if (!$autoget) { return 0; }
+  my $sounddir	= Irssi::settings_get_str("SOUND_dir") . "/";
+
+  my $line = shift (@_);
+  #:nick!host PRIVMSG channel :message
+  $line =~ /:(.*)!(\S+) PRIVMSG (.*) :(.*)/i;
+
+  my $name = $1;
+  my $channel = $3;
+  my $text = $4;
+  my $name = "$name";
+  my @wordlist = split(' ',$4);
+
+  if ($wordlist[0] eq "\001SOUND") {
+    my $tempsound = $wordlist[1];
+    $tempsound =~ s/[\r \001 \n]//;
+    IRC::print($tempsound);
+    if (!open(TEMPFILE, $sounddir.$tempsound)) {
+      IRC::send_raw("PRIVMSG $name :!$name $tempsound\r\n");
+    } else {
+      close(TEMPFILE);
+    }
+  }
+  return 0;
+}
+
+sub CTCP_sound {
+  my $play	= Irssi::settings_get_bool("SOUND_play");
+  my $soundcmd	= Irssi::settings_get_str("SOUND_command");
+
+  my ($server, $args, $nick, $addr, $target) = @_;
+  $args =~ /^SOUND (.*\.wav)(.*)$/i;
+  if ($1 eq "") { return 0; }
+
+  my $sound	= $1;
+  my $wavfile	= (find_wave($1))[0];
+  my $output	= "";
+  my $rest = $2;
+  $rest =~ s/^ *//;
+  if ( $rest ne "" ) {					# this one is for P&P & co.
+    $output = $output . $rest
+  } else {
+    $output = $output . " plays $sound";
+  }
+  if ($wavfile eq "") {
+    $output = $output . " (not found)";
+    if ($autoget) {
+      Irssi::send_raw("PRIVMSG $nick :!$nick $sound\r\n");
+    }
+  } else {
+    if ($play) {
+      system("$soundcmd \"$wavfile\" &");
+    } else {
+      $output = $output . " (muted)";
+    }
+  }
+  my $wItem = $server->window_find_item($target);
+  $wItem->printformat(MSGLEVEL_CTCPS, 'ctcp', $nick, $output);
+  Irssi::signal_stop();
+}
diff --git a/scripts/poison.pl b/scripts/poison.pl
new file mode 100644
index 0000000..f04da33
--- /dev/null
+++ b/scripts/poison.pl
@@ -0,0 +1,341 @@
+# by  Stefan 'tommie' Tomanek
+#
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003020801";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "Poison",
+    description => "equips Irssi with an interface to giFT",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    modules     => "IO::Socket::INET Data::Dumper",
+    commands	=> "poison"
+);
+
+use vars qw($forked %ids);
+use IO::Socket::INET;
+use Data::Dumper;
+use Irssi;
+use POSIX;
+
+sub show_help() {
+    my $help = $IRSSI{name}." $VERSION
+/poison
+    List current downloads
+/poison search <query>
+    Search for files on the network
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box($IRSSI{name}, $text, "help", 1);
+}
+
+sub giftconnect {
+    my $host = Irssi::settings_get_str('poison_host');
+    my $port = Irssi::settings_get_int('poison_port');
+    my $sock = IO::Socket::INET->new(PeerAddr => $host,
+       				     PeerPort => $port,
+	     			     Proto    => 'tcp');
+    return $sock;
+}
+
+sub draw_box ($$$$) {                                                               my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+	$box .= '%R|%n '.$_."\n";
+    }       
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    unless ($colour) { 
+        $box =~ s/%(.)/$1 eq '%'?$1:''/eg;
+    }   
+    return $box;    
+}               
+
+sub round ($$) {
+    return $_[0] unless Irssi::settings_get_bool('poison_round_filesize');
+    if ($_[1] > 100000) {
+        return sprintf "%.2fMB", $_[0]/1024/1024;
+    } else {
+        return sprintf "%.2fKB", $_[0]/1024;
+    }
+}
+
+sub array2table {
+    my (@array) = @_;
+    my @width;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)-1) {
+            my $l = $line->[$_];
+            $l =~ s/%[^%]//g;
+            $l =~ s/%%/%/g;
+            $width[$_] = length($l) if $width[$_]<length($l);
+        }
+    }
+    my $text;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)-1) {
+            my $l = $line->[$_];
+            $text .= $line->[$_];
+            $l =~ s/%[^%]//g;
+            $l =~ s/%%/%/g;
+            $text .= " "x($width[$_]-length($l)+1) unless ($_ == scalar(@$line)-1);
+        }
+        $text .= "\n";
+    }
+    return $text;
+}
+
+sub bg_do ($$) {
+    my ($id, $sub) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    return if $forked;
+    $forked = 1;
+    my $pid = fork();
+    if ($pid > 0) {
+        close $wh;
+        Irssi::pidwait_add($pid);
+        my $pipetag;
+        my @args = ($rh, \$pipetag);                                                    $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	eval {
+	    my $result;
+	    $result->{$id} = &$sub();
+	    my $dumper = Data::Dumper->new([$result]);
+            $dumper->Purity(1)->Deepcopy(1);
+            my $data = $dumper->Dump;
+            print($wh $data);
+            close($wh);
+	};
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($) {
+    my ($rh, $pipetag) = @{$_[0]};
+    my $text;
+    $text .= $_ foreach (<$rh>);
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    $forked = 0;
+    return unless($text);
+    no strict;
+    my $result = eval "$text";
+    return unless ref $result;
+    print_results($result->{search}) if defined $result->{search};
+    print CLIENTCRAP '%R>>%n Added '.$result->{sources}.' source(s) for download' if defined $result->{sources};
+}
+
+sub search_file ($) {
+    my ($query) = @_;
+    my $sock = giftconnect();
+    return unless $sock;
+    $sock->print("SEARCH query(".$query.");\n");
+    my %results;
+    my %item;
+    my $meta = 0;
+    while ($_ = $sock->getline()) {
+	if ((not $meta) && / *(.*?)\((.*?)\)[^;]/) {
+    	    my ($key, $value) = ($1, $2);
+	    $value =~ s/\\(.)/$1/g;
+	    $item{$key} = $value;
+	} elsif (/META/) {
+	    $meta = 1;
+	} elsif (/ITEM;/) {
+	    $sock->close();
+	    last;
+	} elsif (/;/) {
+	    $meta = 0;
+	    my %foo = %item;
+	    %item = ();
+	    $results{$foo{hash}} = \%foo;
+	}
+    }
+    return \%results;
+}
+
+sub get_file ($) {
+    my ($id) = @_;
+    return unless $ids{$id};
+    my $data = $ids{$id};
+    add_source($data);
+    bg_do('sources', sub { retrieve_sources($data->{hash}) } );
+}
+
+sub retrieve_sources ($) {
+    my ($hash) = @_;
+    my %sources;
+    foreach (@{ find_sources($hash) }) {
+	add_source($_);
+	$sources{$_->{user}} = 1;
+    }
+    return scalar keys %sources;
+}
+
+sub add_source (\%) {
+    my ($data) = @_; 
+    my $sock = giftconnect();
+    return unless $sock;
+    my @bar = split('/', $data->{url});
+    my $file = $bar[-1];
+
+    my $line = "ADDSOURCE ";
+    $line .= "user(".$data->{user}.") ";
+    $line .= "hash(".$data->{hash}.") ";
+    $line .= "size(".$data->{size}.") ";
+    $line .= "url(".$data->{url}.") ";
+    $line .= "save(".$file.");";
+    $sock->print($line."\n");
+    $sock->close();
+}
+
+sub find_sources ($) {
+    my ($hash) = @_;
+    my $sock = giftconnect();
+    return unless $sock;
+    $sock->print("LOCATE query(".$hash.");\n");
+    my %item;
+    my @sources;
+    my $meta = 0;
+    while ($_ = $sock->getline()) {
+        if ((not $meta) && (/ *(.*?)\((.*?)\)[^;]/)) {
+            my ($key, $value) = ($1, $2);
+	    #print $key." => ".$value;
+            $value =~ s/\\(.)/$1/g;
+            $item{$key} = $value;
+        } elsif (/META/) {
+            $meta = 1;
+        } elsif (/ITEM;/) {
+            $sock->close();
+            last;
+        } elsif (/;/) {
+            $meta = 0;
+            my %foo = %item;
+            %item = ();
+            push @sources, \%foo;
+        }
+    }
+    return \@sources;
+}
+
+sub get_downloads {
+    my %downloads;
+    my $sock = giftconnect();
+    return unless $sock;
+    $sock->print("ATTACH client(".$IRSSI{name}.") version(".$VERSION."); DETACH;");
+    my %downloads;
+    my ($add, $source) = (0,0);
+    my %item;
+    while ($_ = $sock->getline()) {
+	if (/^DOWNLOAD_ADD\((\d+)\)/) {
+	    $add = 1;
+	    $item{sessionid} = $1;
+	} elsif (/SOURCE/) {
+	    $source = 1;
+	} elsif (/};/) {
+	    $source = 0;
+	    $add = 0;
+	    my %foo = %item;
+	    $downloads{$foo{file}} = \%foo;
+	} else {
+	    if (($add && not $source) && /^  (.*?)\((.*?)\)$/) {
+		my ($key, $value) = ($1, $2);
+		$value =~ s/\\(.)/$1/g;
+		$item{$key} = $value;
+	    }
+	}
+    }
+    return \%downloads;
+}
+
+sub print_results ($) {
+    my ($results) = @_;
+    my @array;
+    %ids = ();
+    my $i = 1;
+    foreach (sort {uc($a) cmp uc($b)} keys %$results) {
+	my @bar = split('/', $results->{$_}{url});
+	my $file = $bar[-1];
+	$file =~ s/%20/ /g;
+	$file =~ s/%/%%/g;
+	my @line;
+	push @line, "%9".$i."%9";
+	push @line, "%9".$file."%9";
+	push @line, $results->{$_}{size};
+	push @line, $results->{$_}{availability};
+	push @array, \@line;
+	$ids{$i} = $results->{$_};
+	$i++;
+    }
+    my $text = array2table(@array);
+    print CLIENTCRAP draw_box("Poison", $text, "Results", 1) if $text;
+}
+
+sub print_downloads ($) {
+    my ($downloads) = @_;
+    my $text;
+    foreach (sort {uc($a) cmp uc($b)} keys %$downloads) {
+	if ($downloads->{$_}{state} eq 'Active') {
+	    $text .= '%bo%n';
+	} elsif ($downloads->{$_}{state} eq 'Paused') {
+	    $text .= '%yo%n';
+	}
+	my $percent = $downloads->{$_}{size} > 0 ? ($downloads->{$_}{transmit} / $downloads->{$_}{size}) * 100 : 0;
+	my $file = $_;
+        $file =~ s/%20/ /g;
+        $file =~ s/%/%%/g;
+	$text .= " %9".$file."%9";
+	$text .= "\n";
+	$text .= '     ';
+	$text .= round($downloads->{$_}{transmit}, $downloads->{$_}{size}).'/';
+	$text .= round($downloads->{$_}{size}, $downloads->{$_}{size});
+	$percent =~ s/(\..).*/$1/g;
+	$text .= " (".$percent."%%)";
+	$text .= "\n"
+    }
+    print CLIENTCRAP draw_box("Poison", $text, "Downloads", 1);
+}
+
+
+
+sub cmd_poison ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @args = split(/ /, $args);
+    if (@args == 0) {
+	print_downloads(get_downloads());
+    } elsif ($args[0] eq 'search') {
+	shift @args;
+	if ($forked) {
+	    print CLIENTCRAP '%R>>%n Already searching...';
+	} else {
+	    print CLIENTCRAP '%R>>%n Search in progress...';
+	}
+	bg_do 'search', sub { search_file(join(' ', @args)) }; 
+	#print_results search_file(join(' ', @args));
+    } elsif ($args[0] eq 'get' && $args[1]) {
+	get_file($args[1]);
+    } elsif ($args[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::settings_add_str('poison', 'poison_host', 'localhost');
+Irssi::settings_add_int('poison', 'poison_port', 1213);
+Irssi::settings_add_bool('poison', 'poison_round_filesize', 1);
+
+Irssi::command_bind('poison', \&cmd_poison);
+
+foreach my $cmd ('help', 'search', 'get') {
+    Irssi::command_bind('poison '.$cmd => sub {
+        cmd_poison("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded, /poison help';
+
diff --git a/scripts/postpone.pl b/scripts/postpone.pl
new file mode 100644
index 0000000..72e0a90
--- /dev/null
+++ b/scripts/postpone.pl
@@ -0,0 +1,117 @@
+# by Stefan 'tommie' Tomanek <stefan@pico.ruhr.de>
+#
+#
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "20030208";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "postpone",
+    description => "Postpones messages sent to a splitted user and resends them when the nick rejoins",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    commands     => "postpone"
+);
+
+use Irssi 20020324;
+use vars qw(%messages);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help="Postpone $VERSION
+/postpone help
+    Display this help
+/postpone flush <nick>
+    Flush postponed messages to <nick>
+/postpone list
+    List postponed messages
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("Postpone", $text, "help", 1);
+}
+
+
+sub event_send_text ($$$) {
+    my ($line, $server, $witem) = @_;
+    return unless ($witem && $witem->{type} eq "CHANNEL");
+    if ($line =~ /^(\w+?): (.*)$/) {
+	my ($target, $msg) = ($1,$2);
+	if ($witem->nick_find($target)) {
+	    # Just leave me alone
+	    return;
+	} else {
+	    $witem->print("%B>>%n %U".$target."%U is not here, message has been postponed: \"".$line."\"", MSGLEVEL_CLIENTCRAP);
+	    push @{$messages{$server->{tag}}{$witem->{name}}{$target}}, $line;
+	    Irssi::signal_stop();
+	}
+    }
+}
+
+sub event_message_join ($$$$) {
+    my ($server, $channel, $nick, $address) = @_;
+    return unless (defined $messages{$server->{tag}});
+    return unless (defined $messages{$server->{tag}}{$channel});
+    return unless (defined $messages{$server->{tag}}{$channel}{$nick});
+    return unless (scalar(@{$messages{$server->{tag}}{$channel}{$nick}}) > 0);
+    my $chan = $server->channel_find($channel);
+    $chan->print("%B>>%n Sending postponed messages for ".$nick, MSGLEVEL_CLIENTCRAP);
+    while (scalar(@{$messages{$server->{tag}}{$channel}{$nick}}) > 0) {
+	my $msg = pop @{$messages{$server->{tag}}{$channel}{$nick}};
+	$server->command('MSG '.$channel.' '.$msg);
+    }
+    
+}
+
+sub cmd_postpone ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    if (scalar(@arg) < 1) {
+	#foo
+    } elsif ($arg[0] eq 'flush' && defined $arg[1]) {
+	return unless ($witem && $witem->{type} eq "CHANNEL");
+	while (scalar(@{$messages{$server->{tag}}{$witem->{name}}{$arg[1]}}) > 0) {
+	    my $msg = pop @{$messages{$server->{tag}}{$witem->{name}}{$arg[1]}};
+	    $server->command('MSG '.$witem->{name}.' '.$msg);
+	}
+    } elsif ($arg[0] eq 'list') {
+	my $text;
+	foreach (keys %messages) {
+	    $text .= $_."\n";
+	    foreach my $channel (keys %{$messages{$_}}) {
+		$text .= " %U".$channel."%U \n";
+		foreach my $nick (sort keys %{$messages{$_}{$channel}}) {
+		    $text .= ' |'.$_."\n" foreach @{$messages{$_}{$channel}{$nick}};
+		}
+	    }
+	}
+	print CLIENTCRAP &draw_box('Postpone', $text, 'messages', 1);
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::command_bind('postpone', \&cmd_postpone);
+
+Irssi::signal_add('send text', \&event_send_text);
+Irssi::signal_add('message join', \&event_message_join);
+
+print CLIENTCRAP "%B>>%n Postpone ".$VERSION." loaded: /postpone help for help";
+
diff --git a/scripts/ppl.pl b/scripts/ppl.pl
new file mode 100644
index 0000000..a3d8e5b
--- /dev/null
+++ b/scripts/ppl.pl
@@ -0,0 +1,210 @@
+# Copyright 2001 by Maciek Freudenheim <fahren@bochnia.pl>
+#  /thanks to elluin & lemur/
+# Copyright 2002 by Marco d'Itri <md@linux.it>
+#
+# You can use this software under the terms of the GNU General Public License.
+
+# ppl.pl for Irssi (port of asmodean's /ppl command from skuld3)
+#
+# Usage: /ppl [-o -v -i | -l] [-g | -h] [-p <n!u@h>] [-m <*ircserver*>]
+#             [-N | -H | -M | -D]
+#  To list ops | voices | normal | ircops
+#  To list away / unaway people, and
+#  To list people matching n!u@h or using server matching *ircserver*
+#  Multiple options can be combined
+
+use Irssi;
+use POSIX qw(strftime);
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '20020128';
+%IRSSI = (
+	authors		=> 'Maciek Freudenheim, Marco d\'Itri',
+	contact		=> 'fahren@bochnia.pl, md@linux.it',
+	name		=> 'ppl',
+	description	=> 'port of asmodean\'s /ppl command from skuld3',
+	license		=> 'GPL v2',
+	url			=> 'http://www.linux.it/~md/irssi/',
+);
+
+my $ServerRewrite = '\.openprojects\.net$';
+my $At_Pos = 30;
+
+Irssi::theme_register([
+#	0 mode, 1 nick, 2 filler1, 3 user, 4 host, 5 filler2, 6 server, 7 hops
+	'ppl_line'	=> '%W$0%n$1%K$2%n$3%B@%n$4%K$5%n$6%C$7%n',
+	'ppl_end'	=> '%y>>%n $0 - matched %_$1%_ users '
+				.  '(*=%_$2%_ -o=%_$3%_ +v=%_$4%_ +o=%_$5%_)'
+]);
+
+Irssi::command_bind('ppl' => 'cmd_ppl');
+Irssi::signal_add('redir ppl_line'	=> 'red_ppl_line');
+Irssi::signal_add('redir ppl_end'	=> 'red_ppl_end');
+
+my @users;
+my %ppl;
+
+sub cmd_ppl {
+	my ($pars, $server, $winit) = @_;
+
+	if (not $winit or $winit->{type} ne 'CHANNEL') {
+		Irssi::print('%R>>>%n You have to join channel first :\\',
+			MSGLEVEL_CRAP);
+		return;
+	}
+
+	$ppl{o} = $ppl{v} = $ppl{l} = $ppl{m} = $ppl{i} = 0;
+
+	my $ppl = '';
+	my @data = split(/ /, $pars);
+	while ($_ = shift(@data)) {
+		/^-N$/	and	$ppl{SORT} = 'nick', next;
+		/^-H$/	and	$ppl{SORT} = 'host', next;
+		/^-M$/	and	$ppl{SORT} = 'mode', next;
+		/^-D$/	and	$ppl{SORT} = 'distance', next;
+		/^-o$/	and $ppl{show_o} = 1, next;
+		/^-i$/	and $ppl{show_i} = 1, next;
+		/^-v$/	and $ppl{show_v} = 1, next;
+		/^-l$/	and $ppl{show_l} = 1, next;
+		/^-g$/	and $ppl{only_G} = 1, next;
+		/^-h$/	and $ppl{only_H} = 1, next;
+		/^-s$/	and $ppl{s} = shift(@data), next;
+		/^-p$/	and $ppl{h} = shift(@data), next;
+		Irssi::print("Unknown option: $_");
+		return;
+	}
+
+	$ppl{show_o} = $ppl{show_i} = $ppl{show_v} = $ppl{show_l} = 1
+		unless exists $ppl{show_o} or exists $ppl{show_i}
+			or exists $ppl{show_v} or exists $ppl{show_l};
+
+	$ppl{w} = Irssi::active_win()->{width};
+	$ppl{c} = $winit->{name};
+
+	if (Irssi::settings_get_bool('timestamps')) {
+		my $ts_for = Irssi::settings_get_str('timestamp_format');
+		$ppl{w} -= (length(strftime($ts_for, localtime)) + 1);
+	}
+
+	$server->redirect_event('who', 1, $ppl{c}, 0, undef, {
+		'event 315' => 'redir ppl_end',
+		'event 352' => 'redir ppl_line',
+	});
+	$server->send_raw("WHO :$ppl{c}");
+}
+
+sub red_ppl_line {
+	my ($s, $data) = @_;
+
+	my (undef, undef, $user, $host, $server, $nick, $mode, $hops)
+		= split(/ /, $data);
+
+	return if $mode =~ /^G/ and $ppl{only_H};
+	return if $mode =~ /^H/ and $ppl{only_G};
+
+	if ($ppl{h}) {
+		return unless $s->mask_match($ppl{h}, $nick, $user, $host);
+	}
+	if ($ppl{s}) {
+		return unless $server =~ /$ppl{s}/;
+	}
+
+	if ($mode =~ /\*/) {
+		return unless $ppl{show_i};
+		$ppl{i}++;
+	}
+	if ($mode =~ /@/) {
+		return unless $ppl{show_o};
+		$ppl{o}++;
+	} elsif ($mode =~ /\+/) {
+		return unless $ppl{show_v};
+		$ppl{v}++;
+	} else {
+		return unless $ppl{show_l};
+		$ppl{l}++;
+	}
+	$ppl{m}++;
+
+	$mode = sprintf('%-2.2s', $mode);
+	if (length($nick) + length($user) > $At_Pos - 4) {
+		$user = substr($user, 0, 11);
+		$nick = substr($nick, 0, $At_Pos - 4 - length $user);
+	}
+	$server =~ s/$ServerRewrite//o if $ServerRewrite;
+	if (length($host) + length($server) > $ppl{w} - $At_Pos - 2) {
+		$host = substr($host, 0, $ppl{w} - $At_Pos - 2);
+		my $len = $ppl{w} - $At_Pos - 3 - length($host);
+		$server = substr($server, 0, $len > 0 ? $len : 0);
+	}
+	my $filler1 = '.' x ($At_Pos - 3 - length($nick) - length($user));
+	my $filler2 = '.' x ($ppl{w} - $At_Pos - 2
+		- length($host) - length($server));
+	$hops =~ s/^://;
+
+	if ($ppl{SORT}) {
+		push(@users,
+			[$mode, $nick, $filler1, $user, $host, $filler2, $server, $hops]);
+	} else {
+		$s->printformat($ppl{c}, MSGLEVEL_CLIENTCRAP, 'ppl_line',
+			$mode, $nick, $filler1, $user, $host, $filler2, $server, $hops);
+	}
+}
+
+sub red_ppl_end {
+	my ($server, $data) = @_;
+
+	if ($ppl{SORT}) {
+		if ($ppl{SORT} eq 'host') {
+			@users = sort sort_domain @users;
+		} elsif ($ppl{SORT} eq 'mode') {
+			@users = sort sort_mode @users;
+		} elsif ($ppl{SORT} eq 'nick') {
+			@users = sort { lc $a->[1] cmp lc $b->[1] } @users;
+		} elsif ($ppl{SORT} eq 'distance') {
+			@users = sort { lc $a->[7] cmp lc $b->[7] } @users;
+		}
+
+		foreach (@users) {
+			$server->printformat($ppl{c}, MSGLEVEL_CLIENTCRAP, 'ppl_line', @$_);
+		}
+		undef @users;
+	}
+	$server->printformat($ppl{c}, MSGLEVEL_CLIENTCRAP, 'ppl_end',
+		$ppl{c}, $ppl{m}, $ppl{i}, $ppl{l}, $ppl{v}, $ppl{o});
+	undef %ppl;
+}
+
+sub sort_domain {
+	my @doma = split(/\./, lc $a->[4]);
+	my @domb = split(/\./, lc $b->[4]);
+
+	# sort IP addresses
+	if ($doma[$#doma] =~ /^\d+$/ and $domb[$#domb] =~ /^\d+$/) {
+		return $doma[0] <=> $domb[0] || $doma[1] <=> $domb[1]
+			|| $doma[2] <=> $domb[2] || $doma[3] <=> $domb[3];
+	}
+
+		$doma[$#doma] cmp $domb[$#domb]
+					||
+	$doma[$#doma - 1] cmp $domb[$#domb - 1]
+					||
+	$doma[$#doma - 2] cmp $domb[$#domb - 2]
+}
+
+sub sort_mode {
+	return; # FIXME unfinished
+	my ($sa, $ma) = split(//, $a->[0]);
+	my ($sb, $mb) = split(//, $b->[0]);
+
+#	Irssi::print("=== <$sa> <$ma>");
+
+#	if ($sa eq $sb) {
+#		return ?
+#	}
+	return -1 if $sa eq 'G';
+	return 1 if $sb eq 'G';
+}
+
+# vim: set tabstop=4
diff --git a/scripts/q_username.pl b/scripts/q_username.pl
new file mode 100644
index 0000000..6652ddf
--- /dev/null
+++ b/scripts/q_username.pl
@@ -0,0 +1,26 @@
+# Prints the Q username in right format
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.1";
+%IRSSI = (
+    authors=> "Teemu \'jamov\' Koskinen",
+    contact=> "teemu.koskinen\@mbnet.fi",
+    name=> "q_username",
+    description=> "Prints the Q username in right format",
+    license=> "Public Domain",
+);
+
+Irssi::theme_register([whois_auth => ' authnick : $1']);
+
+sub event_whois_auth {
+	my ($server, $data) = @_;
+	my ($num, $nick, $auth_nick) = split(/ +/, $_[1], 3);
+        $auth_nick =~ s/\:is authed as //;
+
+	$server->printformat($nick, MSGLEVEL_CRAP, 'whois_auth', $nick, $auth_nick);
+	Irssi::signal_stop();
+}
+
+Irssi::signal_add('event 330', 'event_whois_auth');
diff --git a/scripts/query.pl b/scripts/query.pl
new file mode 100644
index 0000000..1d472ea
--- /dev/null
+++ b/scripts/query.pl
@@ -0,0 +1,670 @@
+# query - irssi 0.8.4.CVS
+#
+#    $Id: query.pl,v 1.24 2009/03/29 12:23:10 peder Exp $
+#
+# Copyright (C) 2001, 2002, 2004, 2007 by Peder Stray <peder@ninja.no>
+#
+
+use strict;
+use Irssi 20020428.1608;
+
+use Text::Abbrev;
+use POSIX;
+
+#use Data::Dumper;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.24 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+	  name	      => 'query',
+	  authors     => 'Peder Stray',
+	  contact     => 'peder@ninja.no',
+	  url	      => 'http://ninja.no/irssi/query.pl',
+	  license     => 'GPL',
+	  description => 'Give you more control over when to jump to query windows and when to just tell you one has been created. Enhanced autoclose.',
+	 );
+
+# ======[ Variables ]===================================================
+
+use vars qw(%state);
+*state = \%Query::state;	# used for tracking idletime and state
+
+my($own);
+my(%defaults);			# used for storing defaults
+my($query_opts) = {};		# stores option abbrevs
+
+# ======[ Helper functions ]============================================
+
+# --------[ load_defaults ]---------------------------------------------
+
+sub load_defaults {
+    my $file = Irssi::get_irssi_dir."/query";
+    local *FILE;
+
+    %defaults = ();
+    open FILE, "< $file";
+    while (<FILE>) {
+	my($mask,$maxage,$immortal) = split;
+	$defaults{$mask}{maxage}   = $maxage;
+	$defaults{$mask}{immortal} = $immortal;
+    }
+    close FILE;
+}
+
+# --------[ save_defaults ]---------------------------------------------
+
+sub save_defaults {
+    my $file = Irssi::get_irssi_dir."/query";
+    local *FILE;
+
+    open FILE, "> $file";
+    for (keys %defaults) {
+	my $d = $defaults{$_};
+	print FILE join("\t", $_, 
+			exists $d->{maxage} ? $d->{maxage} : -1,
+			exists $d->{immortal} ? $d->{immortal} : -1,
+		       ), "\n";
+    }
+    close FILE;
+}
+
+# --------[ sec2str ]---------------------------------------------------
+
+sub sec2str {
+    my($sec) = @_;
+    my($ret);
+    use integer;
+
+    $ret = ($sec%60)."s ";
+    $sec /= 60;
+
+    $ret = ($sec%60)."m ".$ret;
+    $sec /= 60;
+
+    $ret = ($sec%24)."h ".$ret;
+    $sec /= 24;
+    
+    $ret = $sec."d ".$ret;
+    
+    $ret =~ s/\b0[dhms] //g;
+    $ret =~ s/ $//;
+    
+    return $ret;
+}
+
+# --------[ str2sec ]---------------------------------------------------
+
+sub str2sec {
+    my($str) = @_;
+
+    for ($str) {
+	s/\s+//g;
+	s/d/*24h/g;
+	s/h/*60m/g;
+	s/m/*60s/g;
+	s/s/+/g;
+	s/\+$//;
+    }
+
+    if ($str =~ /^[0-9*+]+$/) {
+	$str = eval $str;
+    }
+    else {
+	$str = 0;
+    }
+
+    return $str;
+}
+
+# --------[ set_defaults ]----------------------------------------------
+
+sub set_defaults {
+    my($serv,$nick,$address) = @_;
+    my $tag = lc $serv->{tag};
+    
+    return unless $address;
+    $state{$tag}{$nick}{address} = $address;
+
+    for my $mask (sort {userhost_cmp($serv,$a,$b)}keys %defaults) {
+	if ($serv->mask_match_address($mask, $nick, $address)) {
+	    for my $key (keys %{$defaults{$mask}}) {
+		$state{$tag}{$nick}{$key} = $defaults{$mask}{$key}
+		  if $defaults{$mask}{$key} >= 0;
+	    }
+	}
+    }
+}
+
+# --------[ time2str ]--------------------------------------------------
+
+sub time2str {
+    my($time) = @_;
+    return strftime("%c", localtime $time);
+}
+
+# --------[ userhost_cmp ]----------------------------------------------
+
+sub userhost_cmp {
+    my($serv, $am, $bm) = @_;
+    my($an,$aa) = split "!", $am;
+    my($bn,$ba) = split "!", $bm;
+    my($t1,$t2);
+
+    $t1 = $serv->mask_match_address($bm, $an, $aa);
+    $t2 = $serv->mask_match_address($am, $bn, $ba);
+
+    return $t1 - $t2 if $t1 || $t2;
+
+    $an = $bn = '*';
+    $am = "$an!$aa";
+    $bm = "$bn!$ba";
+
+    $t1 = $serv->mask_match_address($bm, $an, $aa);
+    $t2 = $serv->mask_match_address($am, $bn, $ba);
+
+    return $t1 - $t2 if $t1 || $t2;
+
+    for ($am, $bm, $aa, $ba) {
+	s/(\*!)?[^*]*@/$1*/;
+    }
+
+    $t1 = $serv->mask_match_address($bm, $an, $aa);
+    $t2 = $serv->mask_match_address($am, $bn, $ba);
+
+    return $t1 - $t2 if $t1 || $t2;
+
+    return 0;
+
+}
+
+# ======[ Signal Hooks ]================================================
+
+# --------[ sig_message_own_private ]-----------------------------------
+
+sub sig_message_own_private {
+    my($server,$msg,$nick,$orig_target) = @_;
+    $own = $nick;
+}
+
+# --------[ sig_message_private ]---------------------------------------
+
+sub sig_message_private {
+    my($server,$msg,$nick,$addr) = @_;
+    undef $own;
+}
+
+# --------[ sig_print_message ]-----------------------------------------
+
+sub sig_print_message {
+    my($dest, $text, $strip) = @_;
+    
+    return unless $dest->{level} & MSGLEVEL_MSGS;
+
+    my $server = $dest->{server}; 
+
+    return unless $server;
+
+    my $witem  = $server->window_item_find($dest->{target});
+    my $tag    = lc $server->{tag};
+
+    return unless $witem->{type} eq 'QUERY';
+
+    $state{$tag}{$witem->{name}}{time} = time;
+}
+
+# --------[ sig_query_address_changed ]---------------------------------
+
+sub sig_query_address_changed {
+    my($query) = @_;
+
+    set_defaults($query->{server}, $query->{name}, $query->{address});
+
+}
+
+# --------[ sig_query_created ]-----------------------------------------
+
+sub sig_query_created {
+    my ($query, $auto) = @_;
+    my $qwin = $query->window();
+    my $awin = Irssi::active_win();
+
+    my $serv = $query->{server};
+    my $nick = $query->{name};
+    my $tag  = lc $query->{server_tag};
+
+    if ($auto && $qwin->{refnum} != $awin->{refnum}) {
+	if ($own eq $query->{name}) {
+	    if (Irssi::settings_get_bool('query_autojump_own')) {
+		$qwin->set_active();
+	    } else {
+		$awin->printformat(MSGLEVEL_CLIENTCRAP, 'query_created',
+				   $nick, $query->{server_tag},
+				   $qwin->{refnum})
+		  if Irssi::settings_get_bool('query_noisy');
+	    }
+	} else {
+	    if (Irssi::settings_get_bool('query_autojump')) {
+		$qwin->set_active();
+	    } else {
+		$awin->printformat(MSGLEVEL_CLIENTCRAP, 'query_created',
+				   $nick, $query->{server_tag}, 
+				   $qwin->{refnum})
+		  if Irssi::settings_get_bool('query_noisy');
+	    }
+	}
+    }
+    undef $own;
+
+    $state{$tag}{$nick} = { time => time };
+
+    $serv->redirect_event('userhost', 1, ":$nick", -1, undef,
+			  {
+			   "event 302" => "redir query userhost",
+			   "" => "event empty",
+			  });
+    $serv->send_raw("USERHOST :$nick");
+}
+
+# --------[ sig_query_destroyed ]---------------------------------------
+
+sub sig_query_destroyed {
+    my($query) = @_;
+
+    delete $state{lc $query->{server_tag}}{$query->{name}};
+}
+
+
+# --------[ sig_query_nick_changed ]------------------------------------
+
+sub sig_query_nick_changed {
+    my($query,$old_nick) = @_;
+    my($tag) = lc $query->{server_tag};
+
+    $state{$tag}{$query->{name}} = delete $state{$tag}{$old_nick};
+}
+
+# --------[ sig_redir_query_userhost ]----------------------------------
+
+sub sig_redir_query_userhost {
+    my($serv,$data) = @_;
+
+    $data =~ s/^\S*\s*://;
+    for (split " ", $data) {
+	if (/([^=*]+)\*?=.(.+)/) {
+	    set_defaults($serv, $1, $2);
+	}
+    }
+}
+
+# --------[ sig_session_restore ]---------------------------------------
+
+sub sig_session_restore {
+    open STATE, sprintf "< %s/query.state", Irssi::get_irssi_dir;
+    %state = ();	# only needed if bound as command
+    while (<STATE>) {
+	chomp;
+	my($tag,$nick,%data) = split "\t";
+	for my $key (keys %data) {
+	    $state{lc $tag}{$nick}{$key} ||= $data{$key};
+	}
+    }
+    close STATE;
+}
+
+# --------[ sig_session_save ]------------------------------------------
+
+sub sig_session_save {
+    open STATE, sprintf "> %s/query.state", Irssi::get_irssi_dir;
+    for my $tag (keys %state) {
+	for my $nick (keys %{$state{$tag}}) {
+	    print STATE join("\t",$tag,$nick,%{$state{$tag}{$nick}}), "\n";
+	}
+    }
+    close STATE;
+}
+
+# ======[ Timers ]======================================================
+
+# --------[ check_queries ]---------------------------------------------
+
+sub check_queries {
+    my(@queries) = Irssi::queries;
+
+    my($defmax) = Irssi::settings_get_time('query_autoclose')/1000;
+    my($minage) = Irssi::settings_get_time('query_autoclose_grace')/1000;
+    my($win)    = Irssi::active_win;
+
+    for my $query (@queries) {
+	my $tag    = lc $query->{server_tag};
+	my $name   = $query->{name};
+	my $state  = $state{$tag}{$name};
+
+	my $age    = time - $state->{time};
+	my $maxage = $defmax;
+
+	$maxage = $state->{maxage} if defined $state->{maxage};
+
+	# skip the ones we have marked as immortal
+	next if $state->{immortal};
+
+	# maxage = 0 means we have disabled autoclose
+	next unless $maxage;
+
+	# not old enough
+	next if $age < $maxage;
+
+ 	# unseen messages
+	next if $query->{data_level} > 1;
+
+	# active window
+	next if $query->is_active && 
+	  $query->window->{refnum} == $win->{refnum};
+
+	# graceperiod
+	next if time - $query->{last_unread_msg} < $minage;
+
+	# kill it off
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'query_closed',
+			   $query->{name}, $query->{server_tag})
+	    if Irssi::settings_get_bool('query_noisy');
+	$query->destroy;
+
+    }
+}
+
+# ======[ Commands ]====================================================
+
+# --------[ cmd_query ]-------------------------------------------------
+
+sub cmd_query {
+    my($data,$server,$witem) = @_;
+    my(@data) = split " ", $data;
+
+    my(@params,@opts,$query,$tag,$nick);
+    my($state,$info,$save);
+
+    while (@data) {
+	my $param = shift @data;
+
+	if ($param =~ s/^-//) {
+	    my $opt = $query_opts->{lc $param};
+
+	    if ($opt) {
+
+		if ($opt eq 'window') {
+		    push @opts, "-$param";
+		    
+		} elsif ($opt eq 'immortal') {
+		    $state->{immortal} = 1;
+		
+		} elsif ($opt eq 'info') {
+		    $info = 1;
+		
+		} elsif ($opt eq 'mortal') {
+		    $state->{immortal} = 0;
+		
+		} elsif ($opt eq 'timeout') {
+		    $state->{maxage} = str2sec shift @data;
+
+		} elsif ($opt eq 'save') {
+		    $save++;
+
+		} else {
+		    # unhandled known opt
+
+		}
+		
+	    } elsif ($tag = Irssi::server_find_tag($param)) {
+		$tag = $tag->{tag};
+		push @opts, "-$tag";
+
+	    } else {
+		# bogus opt...
+		push @opts, "-$param";
+
+	    }
+
+	} else {
+	    # normal parameter
+	    push @params, $param;
+	    
+	}
+    }
+
+    if (@params) {
+	Irssi::signal_continue("@opts @params",$server,$witem);
+
+	# find the query...
+	my $serv = Irssi::server_find_tag($tag || $server->{tag});
+	return unless $serv;
+	$query = $serv->window_item_find($params[0]);
+
+    } else {
+
+	if ($witem && $witem->{type} eq 'QUERY') {
+	    $query = $witem;
+	}
+
+    }
+
+    if ($query) {
+	$nick = $query->{name};
+	$tag  = lc $query->{server_tag};
+
+	my $opts;
+	for (keys %$state) {
+	    $state{$tag}{$nick}{$_} = $state->{$_};
+	    $opts++;
+	}
+
+	$state = $state{$tag}{$nick};
+
+	if ($info) {
+	    Irssi::signal_stop();
+	    my(@items,$key,$val);
+
+	    my $timeout = Irssi::settings_get_time('query_autoclose')/1000;
+	    $timeout = $state->{maxage} if defined $state->{maxage};
+
+	    if ($timeout) {
+		$timeout .= " (".sec2str($timeout).")";
+	    } else {
+		$timeout .= " (Off)";
+	    }
+	    
+	    @items = (
+		      Server   => $query->{server_tag},
+		      Nick     => $nick,
+		      Address  => $state->{address},
+		      Created  => time2str($query->{createtime}),
+		      Immortal => $state->{immortal}?'Yes':'No',
+		      Timeout  => $timeout,
+		      Idle     => sec2str(time - $state->{time}),
+		     );
+	    
+	    $query->printformat(MSGLEVEL_CLIENTCRAP, 'query_info_header');
+	    while (($key,$val) = splice @items, 0, 2) {
+		$query->printformat(MSGLEVEL_CLIENTCRAP, 'query_info',
+				    $key, $val);
+	    }
+	    $query->printformat(MSGLEVEL_CLIENTCRAP, 'query_info_footer');
+
+	    return;
+	}
+
+	if ($save) {
+	    Irssi::signal_stop;
+
+	    unless ($state->{address}) {
+		$query->printformat(MSGLEVEL_CLIENTCRAP,
+				    'query_crap', 'This query has no address yet');
+		return;
+	    }
+
+	    my $mask = Irssi::Irc::get_mask($nick, $state->{address}, 
+					    Irssi::Irc::MASK_USER | 
+					    Irssi::Irc::MASK_DOMAIN
+					   );
+
+	    for (qw(immortal maxage)) {
+		if (exists $state->{$_}) {
+		    $defaults{$mask}{$_} = $state->{$_};
+		} else {
+		    delete $defaults{$mask}{$_};
+		}
+	    }
+
+	    save_defaults;
+
+	    return;
+	}
+
+	if (!@params) {
+	    Irssi::signal_stop;
+	    return if $opts;
+
+	    if ($state{$tag}{$nick}{immortal}) {
+		$witem->printformat(MSGLEVEL_CLIENTCRAP, 
+				    'query_crap', 'This query is immortal');
+	    } else {
+		$witem->command("unquery")
+		  if Irssi::settings_get_bool('query_unqueries');
+	    }
+
+	}
+
+    }
+
+}
+
+# --------[ cmd_unquery ]-----------------------------------------------
+
+sub cmd_unquery {
+    my($data,$server,$witem) = @_;
+    my($param) = split " ", $data;
+    my($query,$tag,$nick);
+
+    if ($param) {
+	$query = $server->query_find($param) if $server;
+    } else {
+	$query = $witem if $witem && $witem->{type} eq 'QUERY';
+    }
+
+    if ($query) {
+	$nick = $query->{name};
+	$tag  = lc $query->{server_tag};
+
+	if ($state{$tag}{$nick}{immortal}) {
+	    if ($param) {
+		$witem->printformat(MSGLEVEL_CLIENTCRAP, 
+				    'query_crap', 
+				    "Query with $nick is immortal");
+	    } else {
+		$witem->printformat(MSGLEVEL_CLIENTCRAP, 
+				    'query_crap', 
+				    'This query is immortal');
+	    }
+	    Irssi::signal_stop;
+	}
+    }
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind('query', 'cmd_query');
+Irssi::command_bind('unquery', 'cmd_unquery');
+Irssi::command_set_options('query', 'immortal mortal info save +timeout');
+abbrev $query_opts, qw(window immortal mortal info save timeout);
+
+#Irssi::command_bind('debug', sub { print Dumper \%state });
+#Irssi::command_bind('query_save', 'sig_session_save');
+#Irssi::command_bind('query_restore', 'sig_session_restore');
+
+# --------[ Register formats ]------------------------------------------
+
+Irssi::theme_register(
+[
+ 'query_created',
+ '{line_start}{hilight Query:} started with {nick $0} [$1] in window $2',
+
+ 'query_closed',
+ '{line_start}{hilight Query:} closed with {nick $0} [$1]',
+
+ 'query_info_header', '',
+
+ 'query_info_footer', '',
+
+ 'query_crap',
+ '{line_start}{hilight Query:} $0',
+
+ 'query_warn',
+ '{line_start}{hilight Query:} {error Warning:} $0',
+
+ 'query_info',
+ '%#$[8]0: $1',
+
+]);
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_bool('query', 'query_autojump_own', 1);
+Irssi::settings_add_bool('query', 'query_autojump', 0);
+Irssi::settings_add_bool('query', 'query_noisy', 1);
+Irssi::settings_add_bool('query', 'query_unqueries', 
+			 Irssi::version <  20020919.1507 || 
+			 Irssi::version >= 20021006.1620 );
+
+Irssi::settings_add_time('query', 'query_autoclose', 0);
+Irssi::settings_add_time('query', 'query_autoclose_grace', '5min');
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add_last('message own_private', 'sig_message_own_private');
+Irssi::signal_add_last('message private', 'sig_message_private');
+
+Irssi::signal_add_last('query created', 'sig_query_created');
+
+Irssi::signal_add('print text', 'sig_print_message');
+
+Irssi::signal_add('query address changed', 'sig_query_address_changed');
+Irssi::signal_add('query destroyed', 'sig_query_destroyed');
+Irssi::signal_add('query nick changed', 'sig_query_nick_changed');
+
+Irssi::signal_add('redir query userhost', 'sig_redir_query_userhost');
+
+Irssi::signal_add('session save', 'sig_session_save');
+Irssi::signal_add('session restore', 'sig_session_restore');
+
+# --------[ Register timers ]-------------------------------------------
+
+Irssi::timeout_add(5000, 'check_queries', undef);
+
+# ======[ Initialization ]==============================================
+
+load_defaults;
+
+for my $query (Irssi::queries) {
+    my($tag)  = lc $query->{server_tag};
+    my($nick) = $query->{name};
+
+    $state{$tag}{$nick}{time} 
+      ||= $query->{last_unread_msg} || $query->{createtime} || time;
+    
+    set_defaults($query->{server}, $nick, $query->{address});
+}
+
+if (Irssi::settings_get_time("autoclose_query")) {
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'query_warn',
+		       "autoclose_query is set, please set to 0");
+}
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
diff --git a/scripts/queryresume.pl b/scripts/queryresume.pl
new file mode 100644
index 0000000..e45719d
--- /dev/null
+++ b/scripts/queryresume.pl
@@ -0,0 +1,64 @@
+# QueryResume by Stefan Tomanek <stefan@pico.ruhr.de>
+#
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2003021201';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'QueryResume',
+    description => 'restores the last lines of a query on re-creation',
+    license     => 'GPLv2',
+    modules     => 'Date::Format File::Glob',
+    changed     => $VERSION,
+);  
+
+use Irssi 20020324;
+use Date::Format;
+use File::Glob ':glob';
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub sig_window_item_new ($$) {
+    my ($win, $witem) = @_;
+    return unless (ref $witem && $witem->{type} eq 'QUERY');
+    my @data;
+    my $filename = Irssi::settings_get_str('autolog_path');
+    my $servertag = $witem->{server}->{tag};
+    my $name = lc $witem->{name};
+    $filename =~ s/(\$tag|\$1)/$servertag/g;
+    $filename =~ s/\$0/$name/g;
+    my @lt = localtime(time);
+    my $zone;
+    $filename = strftime($filename, @lt, $zone);
+    $filename =~ s/(\[|\])/\\$1/g;
+    local *F;
+    open(F, "<".bsd_glob($filename));
+    my $lines = Irssi::settings_get_int('queryresume_lines');
+    foreach (<F>) {
+	unless (/^--- Log/) {
+	    push(@data, $_);
+	    shift(@data) if (@data > $lines);
+	}
+    }
+    my $text;
+    $text .= $_ foreach @data;
+    $text =~ s/%/%%/g;
+    $witem->print(draw_box('QueryResume', $text, $filename, 1), MSGLEVEL_CLIENTCRAP) if $text;
+}
+
+Irssi::settings_add_int($IRSSI{name}, 'queryresume_lines', 10);
+
+Irssi::signal_add('window item new', 'sig_window_item_new');
+
diff --git a/scripts/quitmsg.pl b/scripts/quitmsg.pl
new file mode 100644
index 0000000..5fd4c6c
--- /dev/null
+++ b/scripts/quitmsg.pl
@@ -0,0 +1,45 @@
+# If quit message isn't given, quit with a random message
+# read from ~/.irssi/irssi.quit
+
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Timo Sirainen',
+    name        => 'quitmsg',
+    description => 'Random quit messages',
+    license     => 'Public Domain',
+    changed	=> 'Sun Mar 10 23:18 EET 2002'
+);
+
+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/scripts/quitrand.pl b/scripts/quitrand.pl
new file mode 100644
index 0000000..8d9e53b
--- /dev/null
+++ b/scripts/quitrand.pl
@@ -0,0 +1,52 @@
+# If quit message isn't given, quit with a random message
+# read from ~/.irssi/irssi.quit
+
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Fernando J. Pereda',
+    contact	=> 'ferdy@ferdyx.org',
+    name        => 'quitrand',
+    description => 'Random quit messages - based on quitmsg (Timo Sirainen)',
+    license     => 'GPLv2',
+);
+
+my $quitfile = glob "~/.irssi/irssi.quit";
+
+sub cmd_quit {
+	my ($data, $server, $channel) = @_;
+	
+	open(f,$quitfile);
+	my @contenido = <f>;
+	close(f);
+
+	my $numlines = 0;
+	
+	foreach my $nada (@contenido) {
+		$numlines++;
+	}
+
+	my $line = int(rand($numlines))+1;
+
+	my $quitmsg = "[IRSSI] ".$contenido[$line];
+
+	chop($quitmsg);
+
+	print($quitmsg);
+
+	foreach my $sv (Irssi::servers()) {
+		foreach my $item ($sv->channels()) {
+			$item->command("PART ".$item->{name}." $quitmsg");
+		}
+	}
+	
+	foreach my $svr (Irssi::servers()) {
+		$svr->command("DISCONNECT ".$svr->{tag}." $quitmsg");
+	}
+}
+
+Irssi::command_bind('quit', 'cmd_quit');
diff --git a/scripts/quiz.pl b/scripts/quiz.pl
new file mode 100644
index 0000000..09ae726
--- /dev/null
+++ b/scripts/quiz.pl
@@ -0,0 +1,451 @@
+# Quiz script for irssi
+# (C) Simon Huggins 2001
+# huggie@earth.li
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc., 59
+# Temple Place, Suite 330, Boston, MA 02111-1307  USA
+#
+# TODO:
+# 	- Do something when people quit (remove from team, readd when
+# 	rejoin?)
+# 	- Store questions asked in a file rather than just in memory so it
+# 	can be restarted without a problem.
+
+use strict;
+use vars qw($VERSION %IRSSI);
+    
+use Irssi 20020217.1542 (); # Version 0.8.1
+$VERSION = "0.7";
+%IRSSI = (
+authors     => "Simon Huggins",
+contact     => "huggie-irssi\@earth.li",
+name        => "Quiz",
+description => "Turns irssi into a quiz bot",
+license     => "GPLv2",
+url         => "http://the.earth.li/~huggie/irssi/",
+changed     => "Wed Apr 24 01:12:01 BST 2002",
+);
+
+use Irssi::Irc;
+use Data::Dumper;
+
+Irssi::settings_add_str("misc","quiz_admin","huggie");
+Irssi::settings_add_str("misc","quiz_passwd","stuff");
+Irssi::settings_add_str("misc","quiz_file","/home/huggie/.irssi/questions");
+
+Irssi::settings_add_int("misc","quiz_qlength",60);
+Irssi::settings_add_int("misc","quiz_hints",4);
+Irssi::settings_add_int("misc","quiz_target_score",10);
+Irssi::settings_add_int("misc","quiz_leave_concealed_chars",1);
+
+Irssi::command("set cmd_queue_speed 2010");
+
+{
+my $s;
+
+sub load_questions($$) {
+	my ($game,$force) = @_;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in load_questions");
+		return;
+	}
+
+	return if $game->{'questions'} and not $force;
+
+	my $file = Irssi::settings_get_str("quiz_file");
+	if (open(QS, "<$file")) {
+		@{$game->{'questions'}}=<QS>;
+		close(QS);
+		Irssi::print("Loaded questions");
+		return 1;
+	} else {
+		$server->command("msg $channel Can't find quiz questions, sorry.");
+		return;
+	}
+}
+
+sub start_game($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in start_game");
+		return;
+	}
+
+	Irssi::timeout_remove($game->{'timeouttag'});
+	undef $game->{'timeouttag'};
+
+	if (!keys %{$game->{'teams'}}) {
+		$server->command("msg $channel Sorry no one joined!");
+		$game->{'state'} = "over";
+		game_over($game);
+		return;
+	}
+	$game->{'state'} = "game";
+
+	$server->command("msg $channel Game starts now. Questions last ".
+		Irssi::settings_get_int("quiz_qlength").
+		" seconds and there are ".
+		(Irssi::settings_get_int("quiz_hints")-1).
+		" hints.  First to reach ".
+		Irssi::settings_get_int("quiz_target_score")." wins.");
+	next_question($game);
+}
+
+sub show_scores($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in show_scores");
+		return;
+	}
+
+	my (@redscorers,@bluescorers);
+
+	foreach my $score (sort keys %{$game->{'scores'}}) {
+		if ($score =~ /^blue/) {
+			$score =~ s/^blue//;
+			push @bluescorers, "$score(".
+				$game->{'scores'}->{"blue".$score}.")";
+		} else {
+			$score =~ s/^red//;
+			push @redscorers, "$score(".
+				$game->{'scores'}->{"red".$score}.")";
+		}
+	}
+
+	$server->command("msg $channel 12Blue: ".$game->{'bluescore'}
+		."  ".join(",",@bluescorers));
+	$server->command("msg $channel 4Red : ".$game->{'redscore'}
+		."  ".join(",",@redscorers));
+	
+	my $ts = Irssi::settings_get_int("quiz_target_score");
+	if ($game->{'bluescore'} == $ts or $game->{'redscore'} == $ts) {
+		if ($game->{'bluescore'} == $ts) {
+			$server->command("msg $channel 12Blue team wins ".
+				$game->{'bluescore'}." to ".
+				$game->{'redscore'});
+		} else {
+			$server->command("msg $channel 4Red team wins ".
+				$game->{'redscore'}." to ".
+				$game->{'bluescore'});
+		}
+		$game->{'state'}="over";
+	} elsif ($game->{'state'} ne "over") {
+		$game->{'state'}="pause";
+		$server->command("msg $channel Next question in 20 seconds.");
+		if ($game->{'timeouttag'}) {
+			Irssi::timeout_remove($game->{'timeouttag'});
+		}
+		$game->{'timeouttag'} = Irssi::timeout_add(20000,
+			"next_question",$game);
+		$game->{'timeout'} = time() + 20;
+	}
+	game_over($game);
+}
+
+sub hint($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in hint");
+		return;
+	}
+
+	return if game_over($game);
+	if ($game->{'end'} <= time()) {
+		$server->command("msg $channel Time's up.  The answer is: ".$game->{'answer'});
+		show_scores($game);
+	} else {
+		$game->{'hint'}++;
+		my $num = $game->{'current_answer'} =~ s/\*/*/g;
+		if ($num <= Irssi::settings_get_int("quiz_leave_concealed_chars")) {
+			return;
+		}
+		my $pos = index($game->{'current_answer'},"*");
+		if ($pos >= 0) {
+			$game->{'current_answer'} =~ s/\*/substr($game->{'answer'},$pos,1)/e;
+		}
+		my $hinttime = $game->{'hint'}*$game->{'hintlen'};
+		if ($hinttime != int($hinttime)) {
+			$hinttime = sprintf("%.2f", $hinttime);
+		}
+		$server->command("msg $channel $hinttime second hint: ".
+			$game->{'current_answer'});
+	}
+}
+
+sub game_over($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in game_over");
+		return;
+	}
+
+	if ($game->{'state'} eq "over") {
+		Irssi::timeout_remove($game->{'timeouttag'});
+		undef $game->{'timeouttag'};
+		undef $game->{'state'};
+		undef $game->{'teams'};
+		undef $game->{'scores'};
+		$server->command("msg $channel Trivia is disabled.  Use !trivon to restart.");
+		return 1;
+	}
+	return;
+}
+
+sub next_question($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in next_question");
+		return;
+	}
+
+	my $len = Irssi::settings_get_int("quiz_qlength")/
+		Irssi::settings_get_int("quiz_hints");
+	if ($game->{'timeouttag'}) {
+		Irssi::timeout_remove($game->{'timeouttag'});
+	}
+	$game->{'timeouttag'} = Irssi::timeout_add($len*1000, "hint",$game);
+	my $t = time();
+	$game->{'timeout'} = $t + $len;
+	$game->{'end'} = Irssi::settings_get_int("quiz_qlength")+$t;
+	$game->{'hint'}=0;
+	$game->{'hintlen'} = $len;
+	if (!@{$game->{'questions'}}) {
+		load_questions($game,1);
+		if (!$game->{'questions'}) {
+			$server->command("msg $channel Hmmm, no questions found sorry");
+			$game->{'state'}="over";
+		}
+		Irssi::print("Questions looped");
+	}
+	return if game_over($game);
+	my $q = splice(@{$game->{'questions'}},rand(@{$game->{'questions'}}),1);
+	chomp $q;
+	$q =~ s/
//;
+	($game->{'answer'} = $q) =~ s/^(.*)\|//;
+	$server->command("msg $channel Question:  $1");
+	($game->{'current_answer'} = $game->{'answer'}) =~ s/[a-zA-Z0-9]/*/g;
+	$q = s/^(.*)\|.*?$/$1/;
+	$server->command("msg $channel Answer:  ".$game->{'current_answer'});
+	$game->{'state'}="question";
+}
+
+sub invite_join($$) {
+	my ($server,$channel) = @_;
+	my $game = $s->{$server->{'tag'}}->{$channel};
+
+	$server->command("msg $channel Team Trivia thingummie v($VERSION) starts in 1 minute.  Type 4!join red or 12!join blue");
+	$game->{'timeouttag'} = Irssi::timeout_add(60000,"start_game",$game);
+	$game->{'timeout'} = time()+60;
+}
+
+sub secstonormal($) {
+	my $seconds = shift;
+	my ($m,$s);
+
+	$s = $seconds % 60;
+	$m = ($seconds - $s)/60;
+	return sprintf("%02d:%02d",$m,$s);
+}
+
+sub do_pubcommand($$$$) {
+	my ($command,$channel,$server,$nick) = @_;
+	my $game = $s->{$server->{'tag'}}->{$channel};
+
+	$command = lc $command;
+	$command =~ s/\s*$//;
+
+	if ($command =~ /^!bang$/) {
+		$server->command("msg $channel Dumping...");
+		foreach (split /\n/,Dumper($s)) {
+			Irssi::print("$_");
+		}
+	} elsif ($command =~ /^!trivon$/) {
+		if ($s->{$server->{'tag'}}->{$channel}) {
+			if ($s->{$server->{'tag'}}->{$channel}->{'state'}) {
+				$server->command("msg $nick Trivia is already on.  Use !trivoff to remove it.");
+				return;
+			}
+			#undef $s->{$server->{'tag'}}->{$channel};
+		} else {
+			# create structure magically
+			$game = $s->{$server->{'tag'}}->{$channel} = {};
+			$game->{'tag'} = $server->{'tag'};
+			$game->{'channel'} = $channel;
+		}
+		$game->{'teams'}={};
+		$game->{'redscore'} = 0;
+		$game->{'bluescore'} = 0;
+		load_questions($game,0);
+		$game->{'state'} = "join";
+		invite_join($server,$channel);
+	} elsif ($command =~ /^!trivoff$/) {
+		return if !$game->{'state'};
+		$game->{'state'}="over";
+		game_over($game);
+	} elsif ($command =~ /^!join/) {
+		if ($command =~ /^!join (red|blue)$/) {
+			return if !$game->{'state'};
+			$game->{'teams'}->{$nick}=$1;
+			if ($1 eq "blue") {
+				$server->command("msg $nick You have joined the 12Blue team");
+			} else {
+				$server->command("msg $nick You have joined the 4Red team");
+			}
+		}
+	} elsif ($command =~ /^!teams/) {
+		return if !$game->{'state'};
+		my @blue=();
+		my @red=();
+		foreach (sort keys %{$game->{'teams'}}) {
+			push @blue, $_ if $game->{'teams'}->{$_} eq "blue";
+			push @red,  $_ if $game->{'teams'}->{$_} eq "red";
+		}
+		$server->command("msg $channel 12Blue: ".join(",",@blue));
+		$server->command("msg $channel 4Red : ".join(",",@red));
+	} elsif ($command =~ /^!timeleft$/) {
+		if ($game->{'state'} eq "join" and $game->{'timeout'}) {
+			my $diff = $game->{'timeout'} - time();
+			if ($diff > 0) {
+				$server->command("msg $channel Time left: ".secstonormal($diff));
+			} else {
+				Irssi::print("Timeleft: $diff ??");
+			}
+		}
+	}
+}
+
+sub do_command($$$) {
+	my ($command,$nick,$server) = @_;
+
+	$command = lc $command;
+	$command =~ s/\s*$//;
+
+	if ($command =~ /^!bang$/) {
+		$server->command("msg $nick BOOM!");
+	} elsif ($command =~ /^admin/) {
+		if ($command !~ /^admin (.*)$/) {
+			$server->command("msg $nick admin needs a nick to change the admin user to!");
+		} else {
+			Irssi::settings_remove("quiz_admin");
+			Irssi::settings_add_str("misc","quiz_admin",$1);
+			$server->command("msg $nick admin user is now $1");
+		}
+	} else {
+		$server->command("msg $nick Unknown command '$command'");
+	}
+}
+
+sub check_answer($$$$) {
+	my ($server,$channel,$nick,$text) = @_;
+	my $game = $s->{$server->{'tag'}}->{$channel};
+
+	return if not exists $game->{'teams'}->{$nick};
+
+	$text =~ s/\s*$//;
+
+	if (lc $text eq lc $game->{'answer'}) {
+		$server->command("msg $channel Correct answer by ".
+		($game->{'teams'}->{$nick} eq "blue"?"12":"4").
+		$nick.": ".$game->{'answer'});
+		$game->{'state'}="won";
+		$game->{$game->{'teams'}->{$nick}."score"}++;
+		$game->{'scores'}->{$game->{'teams'}->{$nick}.$nick}++;
+		show_scores($game);
+		return;
+	}
+
+	my $show=0;
+	my @chars = split //,$text;
+
+	for (my $i=0; $i<length($game->{'answer'}); $i++) {
+		if (lc $chars[$i] eq lc substr($game->{'answer'},$i,1)) {
+			$show = 1 if substr($game->{'current_answer'},$i,1)
+				eq "*";
+			substr($game->{'current_answer'},$i,1) =
+				substr($game->{'answer'},$i,1);
+		}
+	}
+	$server->command("msg $channel Answer: ".$game->{'current_answer'})
+		if $show;
+}
+
+sub event_privmsg {
+	my ($server,$data,$nick,$address) = @_;
+	my ($target, $text) = split / :/,$data,2;
+	my ($command);
+
+	if ($target =~ /^#/) {
+		my $game = $s->{$server->{'tag'}}->{$target};
+		if ($text =~ /^!/) {
+			do_pubcommand($text,$target,$server,$nick);
+		} elsif ($game->{'state'} eq "question") {
+			check_answer($server,$target,$nick,$text);
+		}
+	} else {
+		if ($nick ne Irssi::settings_get_str("quiz_admin")) {
+			my ($passwd);
+			($passwd, $command) = split /\s/,$text,2;
+			if ($passwd ne Irssi::settings_get_str("quiz_passwd")) {
+				Irssi::print("$nick tried to do $command but got the password wrong.");
+			}
+		} else {
+			$command = $text;
+		}
+		do_command($command,$nick,$server);
+	}
+}
+
+sub event_changed_nick {
+	my ($channel,$nick,$oldnick) = @_;
+	my $server = $channel->{'server'};
+	my $game = $s->{$server->{'tag'}}->{$channel->{'name'}};
+
+	return if !$game->{'state'};
+	
+	my $nicktxt = $nick->{'nick'};
+	if ($game->{'teams'}->{$oldnick}) {
+		$game->{'teams'}->{$nicktxt} = $game->{'teams'}->{$oldnick};
+		delete $game->{'teams'}->{$oldnick};
+	}
+}
+
+}
+
+Irssi::signal_add_last("event privmsg", "event_privmsg");
+Irssi::signal_add("nicklist changed", "event_changed_nick");
diff --git a/scripts/quizgr.pl b/scripts/quizgr.pl
new file mode 100644
index 0000000..8e63d30
--- /dev/null
+++ b/scripts/quizgr.pl
@@ -0,0 +1,653 @@
+#!/usr/bin/perl -T
+# Quizgr script for irssi with "KAOS" questions enabled, modified for greek too
+# copyright Athanasius Emilius Arvanitis
+# arvan@kronos.eng.auth.gr
+# based on quiz.pl version 0.7
+# Quiz script for irssi
+# (C) Simon Huggins 2001
+# huggie@earth.li
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc., 59
+# Temple Place, Suite 330, Boston, MA 02111-1307  USA
+#
+# DONE:
+#       - support for many answers (not alternate though) per question
+#       - support for hellenic (aka greek)
+#       - remembers the questions that were answered (stores them in
+#       ./wr/used_questions)
+#       - if nobody says anything for a period of time, game ends
+#       - added !repeat to repeat the question
+#       - it wont crash if you smile!
+# TODO:
+#       - known bug: sometimes it ignores some people (they cant join etc).
+#	if you join #CHANNEL and the bot is on #channel forget it...
+#       - fix kaos hints
+#       - if we have kaos, there should be more time to answer
+#       - CLEAN up the code
+# 	- Do something when people quit (remove from team, readd when rejoin?)
+
+use strict;
+use vars qw($VERSION %IRSSI);
+    
+use Irssi 20020217.1542 (); # Version 0.8.1 or perhaps get the most up to date irssi version
+$VERSION = "0.7GR02";
+%IRSSI = (
+authors     => "Athanasius Emilius Arvanitis based on Simon Huggins quiz 0.7",
+contact     => "arvan",
+name        => "Quizgr",
+description => "Turns irssi into a quiz bot. Has greek language and many answers support",
+license     => "GPLv2",
+url         => "http://kronos.eng.auth.gr/~arvan/irssi/",
+changed     => "Tue Nov 26 13:37:59 EET 2002",
+);
+
+use Irssi::Irc;
+use Data::Dumper;
+
+Irssi::settings_add_str("misc","quiz_admin","jbg");
+Irssi::settings_add_str("misc","quiz_passwd","stuff");
+Irssi::settings_add_str("misc","quiz_file","$ENV{HOME}/.irssi/scripts/autorun/gr_quiz_questions");
+Irssi::settings_add_str("misc","used_file","$ENV{HOME}/.irssi/scripts/autorun/wr/used_questions");
+
+Irssi::settings_add_int("misc","quiz_qlength",70);
+Irssi::settings_add_int("misc","quiz_hints",7);
+Irssi::settings_add_int("misc","quiz_target_score",50);
+Irssi::settings_add_int("misc","quiz_leave_concealed_chars",1);
+
+Irssi::command("set cmd_queue_speed 2010");
+
+{
+# when warnings used $s complains
+my $s;
+my $answerBAKforCHAOS;
+
+sub load_questions($$) {
+	my ($game,$force) = @_;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in load_questions");
+		return;
+	}
+
+	return if $game->{'questions'} and not $force;
+
+	#the next must be checked
+
+	my $file = Irssi::settings_get_str("quiz_file");
+	if (open(QS, "<$file")) { #open for QS
+		@{$game->{'questions'}}=sort <QS>;
+		close(QS);
+		Irssi::print("Loaded questions");
+
+		my $file2 = Irssi::settings_get_str("used_file");
+		if (open(QS2, "<$file2")) { #open for QS2
+			@{$game->{'used_questions'}}=sort <QS2>;
+			close(QS2);
+
+			#from perlfaq copy paste 
+			@{$game->{'intersection'}} = @{$game->{'difference'}} = ();
+			%{$game->{'count'}} = ();
+
+			my $element;
+			foreach $element (@{$game->{'questions'}}, @{$game->{'used_questions'}}) { ${$game->{'count'}}{$element}++ };
+
+			foreach $element (keys %{$game->{'count'}}) { #open foreach
+				push @{ ${$game->{'count'}}{$element} > 1 ? \@{$game->{'intersection'}} : \@{$game->{'difference'}} }, $element;
+				} #close foreach
+
+			my $ts = Irssi::settings_get_int("quiz_target_score");
+			my $qCounter=@{$game->{'questions'}};
+			${$game->{'usedCounter'}}=@{$game->{'used_questions'}};
+
+			my $qGOT=($qCounter - ${$game->{'usedCounter'}}); 
+			my $qNEEDED=(2*($ts)+12);
+			Irssi::print("${$game->{'usedCounter'}} used out of $qCounter total questions");
+
+			if ( $qGOT >= $qNEEDED ) { 
+				@{$game->{'questions'}}=@{$game->{'difference'}};
+				Irssi::print("Loaded not used questions");
+				return 1;#used
+				}
+
+			if ( $qGOT < $qNEEDED ) { 
+				@{$game->{'used_questions'}}=();
+				Irssi::print("Clearing used questions");
+				return 1;#used
+				}
+		} #close QS2
+
+		return 1;#questions
+		} #close QS
+
+	  else {
+		$server->command("msg $channel Can't find quiz questions, sorry.");
+		return;
+		}
+
+
+
+}
+
+sub start_game($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in start_game");
+		return;
+		}
+
+	Irssi::timeout_remove($game->{'timeouttag'});
+	undef $game->{'timeouttag'};
+
+	if (!keys %{$game->{'teams'}}) {
+		$server->command("msg $channel Sorry no one joined!");
+		$game->{'state'} = "over";
+		game_over($game);
+		return;
+		}
+
+	$game->{'state'} = "game";
+
+	$server->command("msg $channel Game starts now. Questions last ".
+		Irssi::settings_get_int("quiz_qlength").
+		" seconds and there are ".
+		(Irssi::settings_get_int("quiz_hints")-1).
+		" hints.  First to reach ".
+		Irssi::settings_get_int("quiz_target_score")." wins.");
+	next_question($game);
+}
+
+sub show_scores($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in show_scores");
+		return;
+		}
+
+	my (@redscorers,@bluescorers);
+
+	foreach my $score (sort keys %{$game->{'scores'}}) {
+		if ($score =~ /^blue/) {
+			$score =~ s/^blue//;
+			push @bluescorers, "$score(".
+				$game->{'scores'}->{"blue".$score}.")";
+		} else {
+			$score =~ s/^red//;
+			push @redscorers, "$score(".
+				$game->{'scores'}->{"red".$score}.")";
+		}
+	}
+
+	$server->command("msg $channel 12Blue: ".$game->{'bluescore'}
+		."  ".join(",",@bluescorers));
+	$server->command("msg $channel 4Red: ".$game->{'redscore'}
+		."  ".join(",",@redscorers));
+	
+	my $ts = Irssi::settings_get_int("quiz_target_score");
+
+	if ($game->{'bluescore'} >= $ts or $game->{'redscore'} >= $ts) {
+		if ($game->{'bluescore'} > $game->{'redscore'}) {
+			$server->command("msg $channel 12Blue team wins ".
+				$game->{'bluescore'}." to ".
+				$game->{'redscore'});
+		} else {
+			$server->command("msg $channel 4Red team wins ".
+				$game->{'redscore'}." to ".
+				$game->{'bluescore'});
+		}
+		$game->{'state'}="over";
+	} elsif ($game->{'state'} ne "over") {
+		$game->{'state'}="pause";
+		$server->command("msg $channel Next question in 6 20 seconds.");
+		if ($game->{'timeouttag'}) {
+			Irssi::timeout_remove($game->{'timeouttag'});
+		}
+		$game->{'timeouttag'} = Irssi::timeout_add(20000,
+			"next_question",$game);
+		$game->{'timeout'} = time() + 20;
+	}
+	game_over($game);
+}
+
+sub hint($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in hint");
+		return;
+		}
+
+	return if game_over($game);
+	if ($game->{'end'} <= time()) {
+		$server->command("msg $channel Time's up.  The answer is: 2  ".$game->{'answer'});
+		show_scores($game);
+	} else {
+		$game->{'hint'}++;
+		my $num = $game->{'current_answer'} =~ s/\*/*/g;
+		if ($num <= Irssi::settings_get_int("quiz_leave_concealed_chars")) {
+			return;
+			}
+
+		my $pos = index($game->{'current_answer'},"*");
+		if ($pos >= 0) {
+			#$game->{'current_answer'} =~ s/\*/substr($game->{'answer'},$pos,1)/e;
+			$game->{'current_answer'} =~ s/\*/substr($answerBAKforCHAOS,$pos,1)/e;
+			}
+
+		my $hinttime = $game->{'hint'}*$game->{'hintlen'};
+		if ($hinttime != int($hinttime)) {
+			$hinttime = sprintf("%.2f", $hinttime);
+			}
+		$server->command("msg $channel 2  $hinttime second hint: 6  ".
+			$game->{'current_answer'});
+	} #else end
+}
+
+sub game_over($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in game_over");
+		return;
+	}
+
+	if ($game->{'state'} eq "over") {
+		Irssi::timeout_remove($game->{'timeouttag'});
+		undef $game->{'timeouttag'};
+		undef $game->{'state'};
+		undef $game->{'teams'};
+		undef $game->{'scores'};
+
+                #save used questions
+                my $file2 = Irssi::settings_get_str("used_file");
+                if (open(QS2, ">$file2")) {
+                        my $line;
+			@{$game->{'used_questions'}}=sort @{$game->{'used_questions'}};
+                        foreach $line (@{$game->{'used_questions'}}){
+                                print QS2 $line ;
+                                }
+                        close(QS2);
+                        Irssi::print("Saved used questions");
+                        }
+
+
+		$server->command("msg $channel Trivia is disabled.  Use !start or !trivon to restart.");
+		return 1;
+	}
+	return;
+}
+
+sub next_question($) {
+	my $game = shift;
+	my $tag = $game->{'tag'};
+	my $channel = $game->{'channel'};
+	my $server = Irssi::server_find_tag($tag);
+
+	if (!defined $server) {
+		Irssi::print("Hrm, couldn't find server for tag ($tag) in next_question");
+		return;
+	}
+
+	#check previous text time and
+	#if noone says anything for 180 seconds end game
+	if (defined $game->{'time_last_text'}) {
+		my $diff2=time() - $game->{'time_last_text'};
+		if ( $diff2 > 180) {
+			$game->{'state'}="over";
+		}
+	}
+
+
+	my $len = Irssi::settings_get_int("quiz_qlength")/
+		Irssi::settings_get_int("quiz_hints");
+	if ($game->{'timeouttag'}) {
+		Irssi::timeout_remove($game->{'timeouttag'});
+	}
+	$game->{'timeouttag'} = Irssi::timeout_add($len*1000, "hint",$game);
+	my $t = time();
+	$game->{'timeout'} = $t + $len;
+	$game->{'end'} = Irssi::settings_get_int("quiz_qlength")+$t;
+	$game->{'hint'}=0;
+	$game->{'hintlen'} = $len;
+	if (!@{$game->{'questions'}}) {
+		load_questions($game,1);
+		if (!$game->{'questions'}) {
+			$server->command("msg $channel Hmmm, no questions found sorry");
+			$game->{'state'}="over";
+		}
+		Irssi::print("Questions looped");
+	}
+	return if game_over($game);
+
+	#random question
+	${$game->{'randIDX'}}= @{$game->{'questions'}};
+	${$game->{'randIDX'}}=rand(${$game->{'randIDX'}});
+	my $q = ${$game->{'questions'}}[${$game->{'randIDX'}}];
+	${$game->{'the_question'}} = $q;
+
+	#removing it from the questions
+	splice (@{$game->{'questions'}}, ${$game->{'randIDX'}}, 1);
+
+	#see faq for splice/random may be bad
+	#my $q = splice(@{$game->{'questions'}},rand(@{$game->{'questions'}}),1);
+	chomp $q;
+	$q =~ s///;
+	#($game->{'answer'} = $q) =~ s/^(.*)\|//;
+
+	($game->{'question'}, $game->{'answer'}) = split(/\|/, $q,2);
+	$answerBAKforCHAOS = $game->{'answer'};
+	if ( $game->{'answer'} =~ /\|/ ) 
+		{ $server->command("msg $channel KAOS CHAOS ×ÁÏÓ!!!"); 
+			$game->{'answer'} = $game->{'answer'}."|";
+
+		}
+	$server->command("msg $channel 13Question: 10 $game->{'question'} ");
+	#added Á-Ùá-ù so it can hide greek too
+	($game->{'current_answer'} = $game->{'answer'}) =~ s/[a-zA-Z0-9Á-Ùá-ù]/*/g;
+	#$q = s/^(.*)\|.*?$/$1/;
+	$server->command("msg $channel Answer:  ".$game->{'current_answer'});
+	$game->{'state'}="question";
+}
+
+sub invite_join($$) {
+	my ($server,$channel) = @_;
+	my $game = $s->{$server->{'tag'}}->{$channel};
+
+	$server->command("msg $channel Team Trivia thingummie v($VERSION) starts in 1 minute.  Type 4!join red or 12!join blue");
+	$game->{'timeouttag'} = Irssi::timeout_add(60000,"start_game",$game);
+	$game->{'timeout'} = time()+60;
+}
+
+sub secstonormal($) {
+	my $seconds = shift;
+	my ($m,$s);
+
+	$s = $seconds % 60;
+	$m = ($seconds - $s)/60;
+	return sprintf("%02d:%02d",$m,$s);
+}
+
+sub do_pubcommand($$$$) {
+	my ($command,$channel,$server,$nick) = @_;
+	my $game = $s->{$server->{'tag'}}->{$channel};
+
+	$command = lc $command;
+	$command =~ s/\s*$//;
+
+	if ($command =~ /^!bang$/) {
+		$server->command("msg $channel Dumping...");
+		foreach (split /\n/,Dumper($s)) {
+			Irssi::print("$_");
+		}
+	} elsif ($command =~ /^!trivon$|^!start$|!ðÜìå$/) {
+		if ($s->{$server->{'tag'}}->{$channel}) {
+			if ($s->{$server->{'tag'}}->{$channel}->{'state'}) {
+				$server->command("msg $nick Trivia is already on.  Use !trivoff or !stop to remove it.");
+				return;
+			}
+			#undef $s->{$server->{'tag'}}->{$channel};
+		} else {
+			# create structure magically
+			$game = $s->{$server->{'tag'}}->{$channel} = {};
+			$game->{'tag'} = $server->{'tag'};
+			$game->{'channel'} = $channel;
+		}
+		$game->{'teams'}={};
+		$game->{'redscore'} = 0;
+		$game->{'bluescore'} = 0;
+		load_questions($game,0);
+		$game->{'state'} = "join";
+		invite_join($server,$channel);
+	} elsif ($command =~ /^!trivoff$|^!stop$|!öôÜíåé$/) {
+		return if !$game->{'state'};
+		$game->{'state'}="over";
+		game_over($game);
+	} elsif ($command =~ /^!join/) {
+		if ($command =~ /^!join (red|blue)$/) {
+			return if !$game->{'state'};
+			$game->{'teams'}->{$nick}=$1;
+			if ($1 eq "blue") {
+				$server->command("notice $nick You have joined the 12Blue team");
+			} else {
+				$server->command("notice $nick You have joined the 4Red team");
+			}
+		}
+	} elsif ($command =~ /^!teams/) {
+		return if !$game->{'state'};
+		my @blue=();
+		my @red=();
+		foreach (sort keys %{$game->{'teams'}}) {
+			push @blue, $_ if $game->{'teams'}->{$_} eq "blue";
+			push @red,  $_ if $game->{'teams'}->{$_} eq "red";
+		}
+		$server->command("msg $channel 12Blue: ".join(",",@blue));
+		$server->command("msg $channel 4Red : ".join(",",@red));
+	} elsif ($command =~ /^!repeat$/) {
+		return if !$game->{'state'};
+		$server->command("msg $channel Question is $game->{'question'}");
+	} elsif ($command =~ /^!timeleft$/) {
+		if ($game->{'state'} eq "join" and $game->{'timeout'}) {
+			my $diff = $game->{'timeout'} - time();
+			if ($diff > 0) {
+				$server->command("msg $channel Time left: ".secstonormal($diff));
+			} else {
+				Irssi::print("Timeleft: $diff ??");
+			}
+		}
+	}
+}
+
+sub do_command($$$) {
+	my ($command,$nick,$server) = @_;
+
+	$command = lc $command;
+	$command =~ s/\s*$//;
+
+	if ($command =~ /^!bang$/) {
+		$server->command("msg $nick BOOM!");
+	} elsif ($command =~ /^admin/) {
+		if ($command !~ /^admin (.*)$/) {
+			$server->command("msg $nick admin needs a nick to change the admin user to!");
+		} else {
+			Irssi::settings_remove("quiz_admin");
+			Irssi::settings_add_str("misc","quiz_admin",$1);
+			$server->command("msg $nick admin user is now $1");
+		}
+	} else {
+		#$server->command("msg $nick Unknown command '$command'");
+	}
+}
+
+#check check_answer for bad { }
+
+sub check_answer($$$$) {
+	my ($server,$channel,$nick,$text) = @_;
+	my $game = $s->{$server->{'tag'}}->{$channel};
+
+	return if not exists $game->{'teams'}->{$nick};
+
+	#if $text exist check time and remembers it for end-game
+	if (defined $text) {
+		$game->{'time_last_text'} = time();
+		}
+
+
+	$text =~ s/\s*$//;
+	$text =~ s/^ //;
+	$text =~ s/ $//;
+	
+	#from cgi input-purify / try without it and it will crash with :( 
+	#dont know if it needs em all, may check it in future
+	
+	if ($text =~ s/([\&;\`'\\\|"*?~<>^\(\)\[\]\{\}\$\n\r])/\\$1/g)
+		{ $text="abcdef";
+		}
+	# is the above the reason it didnt join?
+
+	#if greek supports troubles you comment the next
+	$text =~ y/ÜÝÞßúÀüýûàþ¢¶¸¹ºÚ¼¾Û¿ÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÓÔÕÖ×ØÙ/áåçéééïõõõù¶áåçééïõõùáâãäåæçèéêëìíîïðñóôõö÷øù/;
+
+	my $answerNOtonos = lc $game->{'answer'};
+	#if greek supports troubles you comment the next
+	$answerNOtonos =~ y/ÜÝÞßúÀüýûàþ¢¶¸¹ºÚ¼¾Û¿ÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÓÔÕÖ×ØÙ/áåçéééïõõõù¶áåçééïõõùáâãäåæçèéêëìíîïðñóôõö÷øù/;
+
+	if ( $answerNOtonos =~ /\|/) { 
+
+			if ( ($answerNOtonos =~ /\|$text\|/)||($answerNOtonos =~ /^$text\|/) ) 
+			{
+			$answerNOtonos =~ s/$text\|//;
+
+	 		$game->{'answer'}=$answerNOtonos; 
+
+
+			$server->command("msg $channel  2Correct answer by ".
+			($game->{'teams'}->{$nick} eq "blue"?"12":"4").
+			 $nick.": ".$text);
+
+			$game->{$game->{'teams'}->{$nick}."score"}++;
+			$game->{'scores'}->{$game->{'teams'}->{$nick}.$nick}++;
+
+			if ($answerNOtonos eq "") { 
+
+        			#putting it in used
+				if (@{$game->{'used_questions'}}){
+        			${$game->{'usedCounter'}} = @{$game->{'used_questions'}};
+				} else {my ${$game->{'usedCounter'}}=0;}
+
+        			${$game->{'used_questions'}}[${$game->{'usedCounter'}}]=${$game->{'the_question'}};
+
+				$game->{'state'}="won";
+
+				$server->command("msg $channel 2  $answerBAKforCHAOS") ;
+				show_scores($game);
+				return;
+				}
+
+			#show_scores($game);
+			}
+	}
+
+
+                elsif (( $answerNOtonos !~ /\|/) && (lc $text eq $answerNOtonos))  {
+
+			$server->command("msg $channel 2Correct answer by ".
+			($game->{'teams'}->{$nick} eq "blue"?"12":"4").
+			$nick.": ".$game->{'answer'});
+			$game->{'state'}="won";
+
+        			#putting it in used
+				if (@{$game->{'used_questions'}}){
+        			${$game->{'usedCounter'}} = @{$game->{'used_questions'}};
+				} else {my ${$game->{'usedCounter'}} =0;}
+
+        			${$game->{'used_questions'}}[${$game->{'usedCounter'}}]=${$game->{'the_question'}};
+
+			$game->{$game->{'teams'}->{$nick}."score"}++;
+			$game->{'scores'}->{$game->{'teams'}->{$nick}.$nick}++;
+			show_scores($game);
+			return;
+		}
+
+
+
+	my $show=0;
+	my @chars = split //,$text;
+
+	for (my $i=0; $i<length($game->{'answer'}); $i++) {
+		if (lc $chars[$i] eq lc substr($game->{'answer'},$i,1)) {
+			$show = 1 if substr($game->{'current_answer'},$i,1)
+				eq "*";
+			substr($game->{'current_answer'},$i,1) =
+				substr($game->{'answer'},$i,1);
+		}
+	}
+
+	$server->command("msg $channel Answer: ".$game->{'current_answer'})
+		if $show;
+}
+
+
+
+sub event_privmsg {
+	my ($server,$data,$nick,$address) = @_;
+	my ($target, $text) = split / :/,$data,2;
+	my ($command);
+
+	if ($target =~ /^#/) {
+		my $game = $s->{$server->{'tag'}}->{$target};
+		if ($text =~ /^!/) {
+			do_pubcommand($text,$target,$server,$nick);
+		} elsif ($game->{'state'} eq "question") {
+			check_answer($server,$target,$nick,$text);
+		}
+	} else {
+		if ($nick ne Irssi::settings_get_str("quiz_admin")) {
+			my ($passwd);
+			($passwd, $command) = split /\s/,$text,2;
+			if ($passwd ne Irssi::settings_get_str("quiz_passwd")) {
+				#Irssi::print("$nick tried to do $command but got the password wrong.");
+				Irssi::print("$nick got the password wrong.");
+			}
+		} else {
+			$command = $text;
+		}
+		do_command($command,$nick,$server);
+	}
+}
+
+sub event_changed_nick {
+	my ($channel,$nick,$oldnick) = @_;
+	my $server = $channel->{'server'};
+	my $game = $s->{$server->{'tag'}}->{$channel->{'name'}};
+
+	return if !$game->{'state'};
+	
+	my $nicktxt = $nick->{'nick'};
+	if ($game->{'teams'}->{$oldnick}) {
+		$game->{'teams'}->{$nicktxt} = $game->{'teams'}->{$oldnick};
+		delete $game->{'teams'}->{$oldnick};
+		}
+
+}
+
+
+}
+
+Irssi::signal_add_last("event privmsg", "event_privmsg");
+# Irssi::signal_add_last("massjoin", "sig_massjoin");
+#Irssi::signal_add_last("message nick", "on_nick"); #when /nick
+#Irssi::signal_add_last("message part", "on_part");
+#Irssi::signal_add_last("message join", "on_join");
+#Irssi::signal_add_last("message quit", "on_quit");
+
+# Channel::nicks(channel) Return a list of all nicks in channel.
+
+Irssi::signal_add("nicklist changed", "event_changed_nick");
diff --git a/scripts/quizmaster-fr.pl b/scripts/quizmaster-fr.pl
new file mode 100644
index 0000000..1f5bd7b
--- /dev/null
+++ b/scripts/quizmaster-fr.pl
@@ -0,0 +1,355 @@
+# Quizmaster.pl de Stefan "tommie" Tomanek (stefan@pico.ruhr.de)
+# Traduit par Pec (monsieur.pec@gmail.fr) en français
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '20030208+fr';
+%IRSSI = (
+	   authors     => 'Stefan \'tommie\' Tomanek',
+	   contact     => 'stefan@pico.ruhr.de',
+	   name        => 'quizmaster',
+	   description => 'Un script de quiz pour irssi',
+	   license     => 'GPLv2',
+	   url         => 'http://irssi.org/scripts/ http://pierre.carlot.free.fr/tux/',
+	   changed     =>  $VERSION,
+	   modules     => 'Data::Dumper',
+	   commands    => "quizmaster",
+	   traduction  => 'pec'
+);
+
+use Irssi;
+use Data::Dumper;
+
+use vars qw(%sessions %questions);
+
+sub show_help() {
+    my $help = "quizmaster $VERSION
+/quizmaster
+    Liste les sessions en cours
+/quizmaster import <nom> <fichier>
+    Importe une base de données (au formatmoxxquiz)
+/quizmaster save
+    Sauvegarde les questions importées dans la base de données
+/quizmaster start <db1> <db2>...
+    Commence une nouvelle partie dans le salon courrant avec la base de donnnées nommée. Si vous ne mentionnez pas de db, elles seront toutes prises par défaut.
+/quizmaster score
+    Affiche la table des scores de la partie en cours
+/quizmaster hint <nombre>
+   Donne le nombre d'indice
+";
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("Quizmaster", $text, "quizmaster help", 1);
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub save_quizfile {
+    local *F;
+    my $filename = Irssi::settings_get_str("quizmaster_questions_file");
+    open(F, ">".$filename);
+    my $dumper = Data::Dumper->new([\%questions], ['quest']);
+    $dumper->Purity(1)->Deepcopy(1);
+    my $data = $dumper->Dump;
+    print (F $data);
+    close(F);
+    print CLIENTCRAP '%R>>%n Quizmaster, questions sauvegardées dans '.$filename;
+}
+
+sub load_quizfile ($) {
+    my ($file) = @_;
+    no strict 'vars';
+    return unless -e $file;
+    my $text;
+    local *F;
+    open F, $file;
+    $text .= $_ foreach (<F>);
+    close F;
+    return unless "$text";
+    %questions = %{ eval "$text" };
+}
+
+sub import_quizfile ($$) {
+    my ($name, $file) = @_;
+    local *F;
+    open(F, $file);
+    my @data = <F>;
+    my @questions;
+    my $quest = {};
+    foreach (@data) {
+	if (/^(.*?): (.*?)$/) {
+	    my $item = $1;
+	    my $desc = $2;
+	    if ($item eq 'Question') {
+		$quest->{question} = $desc;
+	    } elsif ($item eq 'Category') {
+		$quest->{category} = $desc;
+	    } elsif ($item eq 'Answer') {
+		my $answer = $desc;
+		if ($answer =~ /(.*?)#(.*?)#(.*?)$/) {
+		    $answer = '';
+		    $answer .= '('.$1.')?' if ($1);
+		    $answer .= $2;
+		    $answer .= '('.$3.')?' if ($3);
+		}
+		push @{$quest->{answers}}, $answer;
+	    } elsif ($item eq 'Regexp') {
+		push @{$quest->{answers}}, $desc;
+	    }
+	} elsif (/^$/) {
+	    if (defined $quest->{question} && defined $quest->{answers}) {
+		push @questions, $quest;
+		$quest = {};
+	    }
+	}
+    }
+    $questions{$name} = \@questions;
+    print CLIENTCRAP "%R>>>%n ".scalar(@questions)." Les questions ont étées importées depuis ".$file;
+}
+
+sub add_questions ($$) {
+    my ($target, $name) = @_;
+    push @{$sessions{$target}{questions}}, $name;
+}
+
+sub ask_question ($) {
+    my ($target) = @_;
+    my ($database, $current) = @{$sessions{$target}{current}};
+    my $question = $questions{$database}->[$current]{question};
+    my $category = '';
+    $category = '['.$questions{$database}->[$current]{category}.']' if defined $questions{$database}->[$current]{category};
+    line2target($target, '>>> '.$category.' '.$question);
+}
+
+sub start_quiz ($) {
+    my ($channel) = @_;
+    line2target($channel, '>>>> Un nouveau quiz vient de débuter. <<<<');
+    new_question($channel);
+}
+
+sub stop_quiz ($) {
+    my ($target) = @_;
+    show_scores($target);
+    line2target($target, '>>>> Le quiz est arrêté. <<<<');
+    delete $sessions{$target};
+}
+
+sub event_public_message ($$$$) {
+    my ($server, $text, $nick, $address, $target) = @_;
+    check_answer($nick, $text, $target) if defined $sessions{$target} and $sessions{$target}{asking};
+}
+
+sub event_message_own_public ($$$) {
+    my ($server, $msg, $target, $otarget) = @_;
+    check_answer($server->{nick}, $msg, $target) if defined $sessions{$target} and $sessions{$target}{asking};
+}
+
+sub check_answer ($$$) {
+    my ($nick, $text, $target) = @_;
+    my ($database, $answer) = @{$sessions{$target}{current}};
+    my @answers = @{$questions{$database}->[$answer]{answers}};
+    foreach (@answers) {
+	my $regexp = $_;
+	if ($text =~ /$regexp/i) {
+	    $sessions{$target}{asking} = 0;
+	    solved_question($nick, $target);
+	    last;
+	}
+    }
+}
+
+sub solved_question ($$) {
+    my ($nick, $target) = @_;
+    line2target($target, '<<< '.$nick.' a correctement répondu(e) à la question');
+    my $witem = Irssi::window_item_find($target);
+    $sessions{$target}{score}{$nick}++;
+    my $max_points = Irssi::settings_get_int('quizmaster_points_to_win');
+    if ($sessions{$target}{score}{$nick} >= $max_points) {
+	line2target($target, '>>> '.$nick.' a '.$sessions{$target}{score}{$nick}.' points et gagne la partie.');
+	stop_quiz($target);
+    } else {
+	$sessions{$target}{solved} = 1;
+	$sessions{$target}{next} = time();
+    }
+}
+
+sub new_question ($) {
+    my ($target) = @_;
+    $sessions{$target}{solved} = 0;
+    my $d_num = int( (scalar(@{$sessions{$target}{questions}})-1)*rand() );
+    my $database = $sessions{$target}{questions}->[$d_num];
+    my $new_question = int(scalar(@{$questions{$database}})*rand());
+    $sessions{$target}{current} = [$database, $new_question];
+    $sessions{$target}{timestamp} = time();
+    ask_question($target);
+    $sessions{$target}{asking} = 1;
+}
+
+sub expire_questions {
+    foreach my $target (keys %sessions) {
+	my $expire = Irssi::settings_get_int('quizmaster_timeout');
+	my $pause = Irssi::settings_get_int('quizmaster_pause');
+	if ($sessions{$target}{timestamp}+$expire <= time()) {
+	    line2target($target, '>>> Pas de bonne réponse durant les '.$expire.' secondes imparties.');
+	    new_question($target);
+	} else {
+	    my $left = ($sessions{$target}{timestamp}+$expire)-time();
+	    #line2target($target, ' >>>> '.$left.' seconds left');
+	}
+	if ($sessions{$target}{solved} && $sessions{$target}{next}+$pause <= time()) {
+	    new_question($target);
+	}
+    }
+}
+
+sub give_hint ($$) {
+    my ($target, $level) = @_;
+    my $database = $sessions{$target}{current}->[0];
+    my $current = $sessions{$target}{current}->[1];
+    my $answer = $questions{$database}->[$current]{answers}->[0];
+    my $tip;
+    # remove RegExp stuff
+    $answer =~ s/\(//g;
+    $answer =~ s/\)//g;
+    $answer =~ s/\?//g;
+    foreach (0..length($answer)-1) {
+	if (substr($answer, $_, 1) eq ' ') {
+	    $tip .= ' ';
+	} else {
+	    $tip .= '_';
+	}
+    }
+    foreach (0..$level) {
+	my $pos = int( rand()*(length($answer)-1) );
+	my $char = substr($answer, $pos, 1);
+	my $pre = substr($tip, 0, $pos);
+	my $post = substr($tip, $pos+1);
+	$tip = $pre.$char.$post;
+    }
+    return $tip;
+}
+
+sub line2target ($$) {
+    my ($target, $line) = @_;
+    my $witem = Irssi::window_item_find($target);
+    $witem->{server}->command('MSG '.$target.' '.$line);
+    #$witem->print('MSG '.$target.' '.$line);
+}
+
+sub show_scores ($) {
+    my ($target) = @_;
+    my $table;
+    foreach (sort {$sessions{$target}{score}{$b} <=> $sessions{$target}{score}{$a}} keys(%{$sessions{$target}{score}})) {
+	 $table .= "$_ a ".$sessions{$target}{score}{$_}." points.\n";
+    }
+    my $box = draw_box('Quizmaster pour Irssi', $table, 'score', 0);
+    line2target($target, $_) foreach (split(/\n/, $box));
+}
+
+sub list_databases {
+    my $msg;
+    my $sum = 0;
+    foreach (sort keys %questions) {
+	$msg .= '%U'.$_.'%U '."\n";
+	$msg .= ' '.scalar(@{$questions{$_}}).' questions disponibles'."\n";
+	$sum += scalar(@{$questions{$_}});
+    }
+    $msg .= '|'."\n";
+    $msg .= '`===> '.$sum.' questions au total'."\n";
+    print CLIENTCRAP &draw_box("Quizmaster", $msg, "databases", 1);
+}
+
+sub list_sessions {
+    my $msg;
+    foreach (sort keys %sessions) {
+        $msg .= '`->%U'.$_.'%U '."\n";
+        $msg .= '     '.scalar(keys %{$sessions{$_}{score}}).' users scored.'."\n";
+    }
+    print CLIENTCRAP &draw_box("Quizmaster", $msg, "sessions", 1);
+}
+
+sub event_nicklist_changed ($$$) {
+    my ($channel, $nick, $oldnick) = @_;
+    my $target = $channel->{name};
+    return unless (defined $sessions{$target} && $sessions{$target}{score}{$oldnick});
+    my $points = $sessions{$target}{score}{$oldnick};
+    $sessions{$target}{score}{$nick->{nick}} = $points;
+    delete $sessions{$target}{score}{$oldnick};
+}
+
+sub init {
+    my $filename = Irssi::settings_get_str('quizmaster_questions_file');
+    load_quizfile($filename);
+}
+
+sub cmd_quizmaster ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    if (scalar(@arg) == 0) {
+	list_sessions();
+    } elsif ($arg[0] eq 'import') {
+	import_quizfile($arg[1], $arg[2]);
+    } elsif ($arg[0] eq 'save') {
+	save_quizfile();
+    } elsif ($arg[0] eq 'load') {
+	init();
+    } elsif ($arg[0] eq 'start') {
+	shift(@arg);
+	if (scalar @arg == 0) {
+	    add_questions($witem->{name}, $_) foreach (keys %questions);
+	} else {
+	    foreach (@arg) {
+		add_questions($witem->{name}, $_) if defined $questions{$_};
+	    }
+	}
+	start_quiz($witem->{name});
+    } elsif ($arg[0] eq 'stop') {
+	stop_quiz($witem->{name});
+    } elsif ($arg[0] eq 'score') {
+	show_scores($witem->{name}) if defined $sessions{$witem->{name}};
+    } elsif ($arg[0] eq 'next') {
+	new_question($witem->{name}) if defined $sessions{$witem->{name}};
+    } elsif ($arg[0] eq 'hint') {
+	line2target($witem->{name}, give_hint($witem->{name}, $arg[1]));
+    } elsif ($arg[0] eq 'list') {
+	list_databases;
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::command_bind($IRSSI{'name'}, \&cmd_quizmaster);
+foreach my $cmd ('import', 'load', 'save', 'list', 'help', 'next', 'hint', 'score', 'stop', 'start') {
+Irssi::command_bind('quizmaster '.$cmd => sub {
+                    cmd_quizmaster("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+
+Irssi::settings_add_int($IRSSI{'name'}, 'quizmaster_points_to_win', 20);
+Irssi::settings_add_int($IRSSI{'name'}, 'quizmaster_timeout', 60);
+Irssi::settings_add_int($IRSSI{'name'}, 'quizmaster_pause', 10);
+Irssi::settings_add_str($IRSSI{'name'}, 'quizmaster_questions_file', "$ENV{HOME}/.irssi/quizmaster_questions");
+
+Irssi::signal_add('message public', 'event_public_message');
+Irssi::signal_add('message own_public', 'event_message_own_public');
+Irssi::signal_add('nicklist changed', 'event_nicklist_changed');
+
+
+Irssi::timeout_add(5000, 'expire_questions', undef);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /quizmaster help pour obtenir une aide';
+
+init();
diff --git a/scripts/quizmaster.pl b/scripts/quizmaster.pl
new file mode 100644
index 0000000..5aec557
--- /dev/null
+++ b/scripts/quizmaster.pl
@@ -0,0 +1,354 @@
+# Quizmaster.pl by Stefan "tommie" Tomanek (stefan@pico.ruhr.de)
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '20030208';
+%IRSSI = (
+	   authors     => 'Stefan \'tommie\' Tomanek',
+	   contact     => 'stefan@pico.ruhr.de',
+	   name        => 'quizmaster',
+	   description => 'a trivia script for Irssi',
+	   license     => 'GPLv2',
+	   url         => 'http://irssi.org/scripts/',
+	   changed     =>  $VERSION,
+	   modules     => 'Data::Dumper',
+	   commands    => "quizmaster"
+);
+
+use Irssi;
+use Data::Dumper;
+
+use vars qw(%sessions %questions);
+
+sub show_help() {
+    my $help = "quizmaster $VERSION
+/quizmaster
+    List the running sessions
+/quizmaster import <name> <filename>
+    Import a database (moxxquiz format)
+/quizmaster save
+    Save all imported questions
+/quizmaster start <db1> <db2>...
+    Start a new game in the current channel using the named databases
+    if all databases are omitted, all available are used
+/quizmaster score
+    Display the scoretable of  the current game
+/quizmaster hint <number>
+    Give a number of hints
+";
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("Quizmaster", $text, "quizmaster help", 1);
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = ''; 
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub save_quizfile {
+    local *F;
+    my $filename = Irssi::settings_get_str("quizmaster_questions_file");
+    open(F, ">".$filename);
+    my $dumper = Data::Dumper->new([\%questions], ['quest']);
+    $dumper->Purity(1)->Deepcopy(1);
+    my $data = $dumper->Dump;
+    print (F $data);
+    close(F);
+    print CLIENTCRAP '%R>>%n Quizmaster questions saved to '.$filename;
+}
+
+sub load_quizfile ($) {
+    my ($file) = @_;
+    no strict 'vars';
+    return unless -e $file;
+    my $text;
+    local *F;
+    open F, $file;
+    $text .= $_ foreach (<F>);
+    close F;
+    return unless "$text";
+    %questions = %{ eval "$text" };
+}
+
+sub import_quizfile ($$) {
+    my ($name, $file) = @_;
+    local *F;
+    open(F, $file);
+    my @data = <F>;
+    my @questions;
+    my $quest = {};
+    foreach (@data) {
+	if (/^(.*?): (.*?)$/) {
+	    my $item = $1;
+	    my $desc = $2;
+	    if ($item eq 'Question') {
+		$quest->{question} = $desc;
+	    } elsif ($item eq 'Category') {
+		$quest->{category} = $desc;
+	    } elsif ($item eq 'Answer') {
+		my $answer = $desc;
+		if ($answer =~ /(.*?)#(.*?)#(.*?)$/) {
+		    $answer = '';
+		    $answer .= '('.$1.')?' if ($1);
+		    $answer .= $2;
+		    $answer .= '('.$3.')?' if ($3);
+		}
+		push @{$quest->{answers}}, $answer;
+	    } elsif ($item eq 'Regexp') {
+		push @{$quest->{answers}}, $desc;
+	    }
+	} elsif (/^$/) {
+	    if (defined $quest->{question} && defined $quest->{answers}) {
+		push @questions, $quest;
+		$quest = {};
+	    }
+	}
+    }
+    $questions{$name} = \@questions;
+    print CLIENTCRAP "%R>>>%n ".scalar(@questions)." questions have been imported from ".$file;
+}
+
+sub add_questions ($$) {
+    my ($target, $name) = @_;
+    push @{$sessions{$target}{questions}}, $name;
+}
+
+sub ask_question ($) {
+    my ($target) = @_;
+    my ($database, $current) = @{$sessions{$target}{current}};
+    my $question = $questions{$database}->[$current]{question};
+    my $category = '';
+    $category = '['.$questions{$database}->[$current]{category}.']' if defined $questions{$database}->[$current]{category};
+    line2target($target, '>>> '.$category.' '.$question);
+}
+
+sub start_quiz ($) {
+    my ($channel) = @_;
+    line2target($channel, '>>>> A new Quiz has been started <<<<');
+    new_question($channel);
+}
+
+sub stop_quiz ($) {
+    my ($target) = @_;
+    show_scores($target);
+    line2target($target, '>>>> The Quiz has been stopped <<<<');
+    delete $sessions{$target};
+}
+
+sub event_public_message ($$$$) {
+    my ($server, $text, $nick, $address, $target) = @_;
+    check_answer($nick, $text, $target) if defined $sessions{$target} and $sessions{$target}{asking};
+}
+
+sub event_message_own_public ($$$) {
+    my ($server, $msg, $target, $otarget) = @_;
+    check_answer($server->{nick}, $msg, $target) if defined $sessions{$target} and $sessions{$target}{asking};
+}
+
+sub check_answer ($$$) {
+    my ($nick, $text, $target) = @_;
+    my ($database, $answer) = @{$sessions{$target}{current}};
+    my @answers = @{$questions{$database}->[$answer]{answers}};
+    foreach (@answers) {
+	my $regexp = $_;
+	if ($text =~ /$regexp/i) {
+	    $sessions{$target}{asking} = 0;
+	    solved_question($nick, $target);
+	    last;
+	}
+    }
+}
+
+sub solved_question ($$) {
+    my ($nick, $target) = @_;
+    line2target($target, '<<< '.$nick.' solved this question');
+    my $witem = Irssi::window_item_find($target);
+    $sessions{$target}{score}{$nick}++;
+    my $max_points = Irssi::settings_get_int('quizmaster_points_to_win');
+    if ($sessions{$target}{score}{$nick} >= $max_points) {
+	line2target($target, '>>> '.$nick.' has '.$sessions{$target}{score}{$nick}.' points and is the winner.');
+	stop_quiz($target);
+    } else {
+	$sessions{$target}{solved} = 1;
+	$sessions{$target}{next} = time();
+    }
+}
+
+sub new_question ($) {
+    my ($target) = @_;
+    $sessions{$target}{solved} = 0;
+    my $d_num = int( (scalar(@{$sessions{$target}{questions}})-1)*rand() );
+    my $database = $sessions{$target}{questions}->[$d_num];
+    my $new_question = int(scalar(@{$questions{$database}})*rand());
+    $sessions{$target}{current} = [$database, $new_question];
+    $sessions{$target}{timestamp} = time();
+    ask_question($target);
+    $sessions{$target}{asking} = 1;
+}
+
+sub expire_questions {
+    foreach my $target (keys %sessions) {
+	my $expire = Irssi::settings_get_int('quizmaster_timeout');
+	my $pause = Irssi::settings_get_int('quizmaster_pause');
+	if ($sessions{$target}{timestamp}+$expire <= time()) {
+	    line2target($target, '>>> No correct answer within '.$expire.' seconds.');
+	    new_question($target);
+	} else {
+	    my $left = ($sessions{$target}{timestamp}+$expire)-time();
+	    #line2target($target, ' >>>> '.$left.' seconds left');
+	}
+	if ($sessions{$target}{solved} && $sessions{$target}{next}+$pause <= time()) {
+	    new_question($target);
+	}
+    }
+}
+
+sub give_hint ($$) {
+    my ($target, $level) = @_;
+    my $database = $sessions{$target}{current}->[0];
+    my $current = $sessions{$target}{current}->[1];
+    my $answer = $questions{$database}->[$current]{answers}->[0];
+    my $tip;
+    # remove RegExp stuff
+    $answer =~ s/\(//g;
+    $answer =~ s/\)//g;
+    $answer =~ s/\?//g;
+    foreach (0..length($answer)-1) {
+	if (substr($answer, $_, 1) eq ' ') {
+	    $tip .= ' ';
+	} else {
+	    $tip .= '_';
+	}
+    }
+    foreach (0..$level) {
+	my $pos = int( rand()*(length($answer)-1) );
+	my $char = substr($answer, $pos, 1);
+	my $pre = substr($tip, 0, $pos);
+	my $post = substr($tip, $pos+1);
+	$tip = $pre.$char.$post;
+    }
+    return $tip;
+}
+
+sub line2target ($$) {
+    my ($target, $line) = @_;
+    my $witem = Irssi::window_item_find($target);
+    $witem->{server}->command('MSG '.$target.' '.$line);
+    #$witem->print('MSG '.$target.' '.$line);
+}
+
+sub show_scores ($) {
+    my ($target) = @_;
+    my $table;
+    foreach (sort {$sessions{$target}{score}{$b} <=> $sessions{$target}{score}{$a}} keys(%{$sessions{$target}{score}})) {
+	 $table .= "$_ now has ".$sessions{$target}{score}{$_}." points.\n";
+    }
+    my $box = draw_box('Quizmaster for Irssi', $table, 'score', 0);
+    line2target($target, $_) foreach (split(/\n/, $box));
+}
+
+sub list_databases {
+    my $msg;
+    my $sum = 0;
+    foreach (sort keys %questions) {
+	$msg .= '%U'.$_.'%U '."\n";
+	$msg .= ' '.scalar(@{$questions{$_}}).' questions available'."\n";
+	$sum += scalar(@{$questions{$_}});
+    }
+    $msg .= '|'."\n";
+    $msg .= '`===> '.$sum.' questions total'."\n";
+    print CLIENTCRAP &draw_box("Quizmaster", $msg, "databases", 1);
+}
+
+sub list_sessions {
+    my $msg;
+    foreach (sort keys %sessions) {
+        $msg .= '`->%U'.$_.'%U '."\n";
+        $msg .= '     '.scalar(keys %{$sessions{$_}{score}}).' users scored.'."\n";
+    }
+    print CLIENTCRAP &draw_box("Quizmaster", $msg, "sessions", 1);
+}
+
+sub event_nicklist_changed ($$$) {
+    my ($channel, $nick, $oldnick) = @_;
+    my $target = $channel->{name};
+    return unless (defined $sessions{$target} && $sessions{$target}{score}{$oldnick});
+    my $points = $sessions{$target}{score}{$oldnick};
+    $sessions{$target}{score}{$nick->{nick}} = $points;
+    delete $sessions{$target}{score}{$oldnick};
+}
+
+sub init {
+    my $filename = Irssi::settings_get_str('quizmaster_questions_file');
+    load_quizfile($filename);
+}
+
+sub cmd_quizmaster ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    if (scalar(@arg) == 0) {
+	list_sessions();
+    } elsif ($arg[0] eq 'import') {
+	import_quizfile($arg[1], $arg[2]);
+    } elsif ($arg[0] eq 'save') {
+	save_quizfile();
+    } elsif ($arg[0] eq 'load') {
+	init();
+    } elsif ($arg[0] eq 'start') {
+	shift(@arg);
+	if (scalar @arg == 0) {
+	    add_questions($witem->{name}, $_) foreach (keys %questions);
+	} else {
+	    foreach (@arg) {
+		add_questions($witem->{name}, $_) if defined $questions{$_};
+	    }
+	}
+	start_quiz($witem->{name});
+    } elsif ($arg[0] eq 'stop') {
+	stop_quiz($witem->{name});
+    } elsif ($arg[0] eq 'score') {
+	show_scores($witem->{name}) if defined $sessions{$witem->{name}};
+    } elsif ($arg[0] eq 'next') {
+	new_question($witem->{name}) if defined $sessions{$witem->{name}};
+    } elsif ($arg[0] eq 'hint') {
+	line2target($witem->{name}, give_hint($witem->{name}, $arg[1]));
+    } elsif ($arg[0] eq 'list') {
+	list_databases;
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::command_bind($IRSSI{'name'}, \&cmd_quizmaster);
+foreach my $cmd ('import', 'load', 'save', 'list', 'help', 'next', 'hint', 'score', 'stop', 'start') {
+Irssi::command_bind('quizmaster '.$cmd => sub {
+                    cmd_quizmaster("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+
+Irssi::settings_add_int($IRSSI{'name'}, 'quizmaster_points_to_win', 20);
+Irssi::settings_add_int($IRSSI{'name'}, 'quizmaster_timeout', 60);
+Irssi::settings_add_int($IRSSI{'name'}, 'quizmaster_pause', 10);
+Irssi::settings_add_str($IRSSI{'name'}, 'quizmaster_questions_file', "$ENV{HOME}/.irssi/quizmaster_questions");
+
+Irssi::signal_add('message public', 'event_public_message');
+Irssi::signal_add('message own_public', 'event_message_own_public');
+Irssi::signal_add('nicklist changed', 'event_nicklist_changed');
+
+
+Irssi::timeout_add(5000, 'expire_questions', undef);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /quizmaster help for help';
+
+init();
diff --git a/scripts/rainbow.pl b/scripts/rainbow.pl
new file mode 100644
index 0000000..3fc2375
--- /dev/null
+++ b/scripts/rainbow.pl
@@ -0,0 +1,146 @@
+#!/usr/bin/perl -w
+
+# USAGE:
+#
+# /RSAY <text>
+#  - same as /say, but outputs a coloured text
+#
+# /RME <text>
+#  - same as /me, but outputs a coloured text
+#
+# /RTOPIC <text>
+#  - same as /topic, but outputs a coloured text :)
+#
+# /RKICK <nick> [reason]
+#  - kicks nick from the current channel with coloured reason
+
+# Written by Jakub Jankowski <shasta@atn.pl>
+# for Irssi 0.7.98.4 and newer
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.4";
+%IRSSI = (
+    authors     => 'Jakub Jankowski',
+    contact     => 'shasta@atn.pl',
+    name        => 'rainbow',
+    description => 'Prints colored text. Rather simple than sophisticated.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.atn.pl/',
+);
+
+use Irssi;
+use Irssi::Irc;
+
+# colors list
+#  0 == white
+#  4 == light red
+#  8 == yellow
+#  9 == light green
+# 11 == light cyan
+# 12 == light blue
+# 13 == light magenta
+my @colors = ('0', '4', '8', '9', '11', '12', '13');
+
+# str make_colors($string)
+# returns random-coloured string
+sub make_colors {
+	my ($string) = @_;
+	my $newstr = "";
+	my $last = 255;
+	my $color = 0;
+
+	for (my $c = 0; $c < length($string); $c++) {
+		my $char = substr($string, $c, 1);
+		if ($char eq ' ') {
+			$newstr .= $char;
+			next;
+		}
+		while (($color = int(rand(scalar(@colors)))) == $last) {};
+		$last = $color;
+		$newstr .= "\003";
+		$newstr .= sprintf("%02d", $colors[$color]);
+		$newstr .= (($char eq ",") ? ",," : $char);
+	}
+
+	return $newstr;
+}
+
+# void rsay($text, $server, $destination)
+# handles /rsay
+sub rsay {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	return unless $dest;
+
+	if ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY") {
+		$dest->command("/msg " . $dest->{name} . " " . make_colors($text));
+	}
+}
+
+# void rme($text, $server, $destination)
+# handles /rme
+sub rme {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	if ($dest && ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY")) {
+		$dest->command("/me " . make_colors($text));
+	}
+}
+
+# void rtopic($text, $server, $destination)
+# handles /rtopic
+sub rtopic {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	if ($dest && $dest->{type} eq "CHANNEL") {
+		$dest->command("/topic " . make_colors($text));
+	}
+}
+
+# void rkick($text, $server, $destination)
+# handles /rkick
+sub rkick {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	if ($dest && $dest->{type} eq "CHANNEL") {
+		my ($nick, $reason) = split(/ +/, $text, 2);
+		return unless $nick;
+		$reason = "Irssi power!" if ($reason =~ /^[\ ]*$/);
+		$dest->command("/kick " . $nick . " " . make_colors($reason));
+	}
+}
+
+Irssi::command_bind("rsay", "rsay");
+Irssi::command_bind("rtopic", "rtopic");
+Irssi::command_bind("rme", "rme");
+Irssi::command_bind("rkick", "rkick");
+
+# changes:
+#
+# 25.01.2002: Initial release (v1.0)
+# 26.01.2002: /rtopic added (v1.1)
+# 29.01.2002: /rsay works with dcc chats now (v1.2)
+# 02.02.2002: make_colors() doesn't assign any color to spaces (v1.3)
+# 23.02.2002: /rkick added
diff --git a/scripts/randaway.pl b/scripts/randaway.pl
new file mode 100644
index 0000000..9f52dc7
--- /dev/null
+++ b/scripts/randaway.pl
@@ -0,0 +1,117 @@
+#!/usr/bin/perl -w
+# $Id: randaway.pl,v 1.12 2003/01/10 10:47:04 lkarsten Exp lkarsten $
+# Irssi script for random away-messages.
+#
+# adds /raway, /awayadd, /awayreasons and /awayreread.
+#
+# Based on simular script written by c0ffee.
+# original version made public in march 2002.
+#
+# changelog: 
+# sep/02 - kuba wszolek (hipis@linux.balta.pl) reported problems with multiple
+# servers in v1.8 .. proposed fix is imported.
+# jan/03 - Wouter Coekaerts (wouter@coekaerts.be) provided fix using 
+# get_irssi_dir() instead of $ENV[]. imported.
+#
+
+use Irssi 20011116;
+use Irssi::Irc;
+
+$VERSION = '1.13';
+%IRSSI = (
+    authors	=> "Lasse Karstensen",
+    contact	=> "lkarsten\@stud.ntnu.no",
+    name 	=> "randaway.pl",
+    description => "Random away-messages",
+    license	=> "Public Domain",
+    url		=> "http://www.stud.ntnu.no/~lkarsten/irssi/",
+);
+
+# file to read random reasons from. It should contain one
+# reason at each line, empty lines and lines starting with # is 
+# skipped.
+$reasonfile = Irssi::get_irssi_dir() . "/awayreasons";
+
+my @awayreasons;
+
+sub readreasons {
+        undef @awayreasons;
+        if (-f $reasonfile) { 
+                Irssi::print("=> Trying to read awayreasons from $reasonfile");
+		open F, $reasonfile;
+
+		# this actually makes the while() work like a while and not
+		# like a read() .. ie, stopping at each \n.
+		local $/ = "\n";
+                while (<F>) {
+		    $reason = $_;
+
+		    # remove any naughty linefeeds.
+		    chomp($reason);
+		    
+		    # skips reason if it's an empty line or line starts with #
+		    if ($reason =~ /^$/ ) { next; }
+		    if ($reason =~ /^#/ ) { next; }
+		    
+		    Irssi::print("\"$reason\"");
+		    
+		    # adds to array.
+		    push(@awayreasons, $reason); 
+                }
+                close F; 
+                Irssi::print("=> Read " . scalar(@awayreasons) . " reasons.");
+        } else {
+	    # some default away-reasons.
+	    Irssi::print("Unable to find $reasonfile, no reasons loaded.");
+	    push(@awayreasons, "i\'m pretty lame!");
+	    push(@awayreasons, "i think i forgot something!"); 
+	};  
+}
+
+sub cmd_away {
+    # only do our magic if we're not away already. 
+    
+    if (Irssi::active_server()->{usermode_away} == 0) {
+        my ($reason) = @_; 
+	# using supplied reason if .. eh, supplied, else find a random one if not.
+	if (!$reason) { $reason = $awayreasons[rand @awayreasons]; }
+	Irssi::print("awayreason used: $reason");
+        my $server = Irssi::servers();	
+        $server->command('AWAY '.$reason);	
+    } else {
+	Irssi::print("you're already away");
+    }
+} 
+
+sub add_reason {
+    my ($reason) = @_;
+    if (!$reason) {
+        Irssi::print("Refusing to add empty reason.");
+    } else {
+	chomp($reason);
+	# adding to current environment.
+	push(@awayreasons, $reason);
+	# and also saving it for later.  
+	open(F, ">> $reasonsfile");
+	print F $reason;
+	close F;
+	Irssi::print("Added: $reason");
+    }
+}
+
+sub reasons {
+    Irssi::print("Listing current awayreasons");
+    foreach $var (@awayreasons) {
+        Irssi::print("=> \"$var\""); 
+    }
+}
+
+# -- main program --
+
+readreasons();
+Irssi::command_bind('raway', 'cmd_away');
+Irssi::command_bind('awayreread', 'readreasons');
+Irssi::command_bind('awayadd', 'add_reason');
+Irssi::command_bind('awayreasons', 'reasons');
+
+# -- end of script --
diff --git a/scripts/randname.pl b/scripts/randname.pl
new file mode 100644
index 0000000..b474c6a
--- /dev/null
+++ b/scripts/randname.pl
@@ -0,0 +1,46 @@
+# RandName 1.0
+# 
+# set a random real name taken from a file
+# 
+# derived from quitmsg.pl by Timo Sirainen
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0';
+%IRSSI = (
+        authors         => 'legion',
+	contact         => 'a.lepore(at)email.it',
+	name            => 'RandName',
+	description     => 'Random "/set real_name" taken from a file.',
+	license         => 'Public Domain',
+	changed         => 'Sat Dec  6 12:28:04 CET 2003',
+);
+
+sub randname {
+
+	my $namefile = glob Irssi::settings_get_str('random_realname_file');
+
+	open (FILE, $namefile) || return;
+	my $lines = 0; while(<FILE>) { $lines++; };
+	my $line = int(rand($lines))+1;
+
+	my $realname;
+	seek(FILE, 0, 0); $. = 0;
+	while(<FILE>) {
+		next if ($. != $line);
+		chomp;
+		$realname = $_;
+		last;
+	}
+	close(f);
+	
+	Irssi::print("%9RandName.pl%_:", MSGLEVEL_CRAP);
+	Irssi::command("set real_name $realname");
+
+} ##
+
+Irssi::signal_add('gui exit', 'randname');
+Irssi::command_bind('randname', 'randname');
+Irssi::settings_add_str('misc', 'random_realname_file', '~/.irssi/irssi.realnames');
diff --git a/scripts/redirect.pl b/scripts/redirect.pl
new file mode 100644
index 0000000..9ff42c4
--- /dev/null
+++ b/scripts/redirect.pl
@@ -0,0 +1,38 @@
+# handle 005 and 010 server messages and reconnect to that server
+#
+# 2002 Thomas Graf <irssi@reeler.org>
+
+use Irssi;
+use Irssi::Irc;
+
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => 'Thomas Graf',
+    contact     => 'irssi@reeler.org',
+    name        => 'redirect',
+    description => 'handle 005 and 010 server messages and reconnect to that server',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.reeler.org/',
+);
+
+sub sig_servermsg
+{
+    my ($server, $line) = @_;
+
+    if ( $line =~ /^005\s.*Try\sserver\s(.*?),.*port\s(.*?)$/ ||
+         $line =~ /^010\s.*?\s(.*?)\s(.*?)\s/ ) {
+
+        my $redirect = $1;
+        my $port = $2;
+
+        Irssi::print "Server suggests to redirect to $redirect $port";
+
+        if ( Irssi::settings_get_bool("follow_redirect") ) {
+            $server->command("SERVER $redirect $port");
+        }
+    }
+}
+
+Irssi::settings_add_bool("server", "follow_redirect", 1);
+
+Irssi::signal_add_last('server event', 'sig_servermsg');
diff --git a/scripts/relm.pl b/scripts/relm.pl
new file mode 100644
index 0000000..96363cb
--- /dev/null
+++ b/scripts/relm.pl
@@ -0,0 +1,88 @@
+## Usage: /RELM [-l || index] [target]
+## to list last 15 messages:
+## /RELM -l
+## to redirect msg #4, 7, 8, 9, 10, 13 to current channel/query:
+## /RELM 4,7-10,13
+## to redirect last message to current channel/query:
+## /RELM
+
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "REdirect Last Message",
+        description     => "Keeps last 15 messages in cache",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Mar 15 15:09:42 CET 2002"
+);
+
+sub cmd_relm {
+	my ($args, $server, $winit) = @_;
+	my $ircnet = lc($server->{tag});
+	my ($which, $where) = split(/ +/, $args, 2);
+	
+	$where = $which unless $which =~ /[0-9]/;
+
+	$which = scalar(@{$relm{lc($ircnet)}}) unless ($which);
+
+	unless (@relm{$ircnet}) {
+		Irssi::print("%R>>%n Nothing in relm buffer on $ircnet.", MSGLEVEL_CRAP);
+		return;
+	}
+
+	if ($where eq "-l") {
+		my $numspace;
+		Irssi::print(">> ---- Context ------------------------", MSGLEVEL_CRAP);
+		for (my $i = 0; $i < scalar(@{$relm{$ircnet}}); $i++) {
+			$numspace = sprintf("%.2d", $i+1);
+			Irssi::print("[%W$numspace%n] $relm{$ircnet}[$i]", MSGLEVEL_CRAP);
+		}
+		return;
+	}
+
+	unless ($where) {
+		unless ($winit && ($winit->{type} eq "CHANNEL" || $winit->{type} eq "QUERY")) {
+			Irssi::print("%R>>%n You have to join channel first", MSGLEVEL_CRAP);
+			return;
+		}
+		$where = $winit->{name};
+	}
+	
+	$which =~ s/,/ /g;
+	my @nums;
+	for my $num (split(/ /, $which)) {
+		if ($num =~ /-/) {
+			my ($start, $end) = $num =~ /([0-9]+)-([0-9]*)/;
+			for (;$start <= $end; $start++) {
+				push(@nums, $start - 1);
+			}
+		} else {
+			push(@nums, $num - 1);
+		}
+	}
+	
+	for my $num (@nums) {
+		unless ($relm{$ircnet}[$num]) {
+			Irssi::print("%R>>%n No such message in relm buffer /" . ($num + 1). "/", MSGLEVEL_CRAP);
+		} else {
+			Irssi::active_server()->command("msg $where $relm{$ircnet}[$num]");
+		}
+	}
+}
+
+sub event_privmsg {
+	my ($server, $data, $nick, $address) = @_;
+	my ($target, $text) = split(/ :/, $data, 2);
+	my $ircnet = lc($server->{tag});
+
+	return if ($server->{nick} ne $target);
+	my $relm = "\00312[ \00310$nick!$address \00312]\003 $text";
+	shift(@{$relm{$ircnet}}) if scalar(@{$relm{$ircnet}}) > 14;
+	push(@{$relm{$ircnet}}, $relm);
+}
+
+Irssi::command_bind("relm", "cmd_relm");
+Irssi::signal_add("event privmsg", "event_privmsg");
diff --git a/scripts/remote.pl b/scripts/remote.pl
new file mode 100644
index 0000000..3557575
--- /dev/null
+++ b/scripts/remote.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl -w
+use Irssi 20010120.0250 ();
+$VERSION = "1";
+%IRSSI = (
+    authors     => 'David Leadbeater',
+    contact     => 'dgl@dgl.cx',
+    name        => 'remote',
+    description => 'Lets you run commands remotely via /msg and a password',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+
+# Usage:
+# as your user /remote on (uncomment the $remote = 1 line below if you want it
+# on by default)
+# /msg user remote login password
+# then /msg user remote command
+# it will execute the command on the same server...
+# so you can do mode #channel +o whoever
+# but it will allow any command, yes it's dangerous if someone knows the
+# password they can access just about anything your user account can....
+use strict;
+# put a crypted password here
+my $password = "pp00000000";
+my($login,$remote);
+# $remote = 1;
+
+sub event{
+   my($server,$text,$nick,$hostmask)=@_;
+# if you're really paranoid change this....
+   if($text =~ s/^remote\s+//i){
+	  my $ok;
+      $ok = 1 if $login eq $nick."!".$hostmask;
+	  $ok = 0 if !defined $remote;
+	  my($command,$options) = split(/ /,$text,2);
+	  if($command eq "login"){
+		 if(crypt($options,substr($password,0,2)) eq $password){
+			$login = $nick."!".$hostmask;
+		 }else{
+			Irssi::print("Invaild login attempt from $nick ($hostmask): $text");
+		 }
+	  }elsif(!$ok){
+		 Irssi::print("Invaild remote use from $nick ($hostmask): $text");
+	  }elsif($ok){
+		 Irssi::command("/".$text);
+	  }
+   }
+}
+
+sub remote{
+   my($args) = shift;
+   if($args eq "enable" or $args eq "on"){
+	  $remote = 1;
+   }else{
+	  $remote = undef;
+   }
+}
+
+Irssi::signal_add_last("message private", "event");
+Irssi::command_bind("remote", "remote");
+
diff --git a/scripts/reorder.pl b/scripts/reorder.pl
new file mode 100644
index 0000000..7bec6b8
--- /dev/null
+++ b/scripts/reorder.pl
@@ -0,0 +1,150 @@
+# Save window layout to an arbitrary file and load layouts upon demand
+# Useful for being able to temporarily reorder your windows and then reverting to your "normal" layout
+# Also useful as an easy way to reorder your windows
+#
+# A special thanks to billnye, Zed` and Bazerka for their help
+#
+# Usage:
+#  /layout_save filename
+#    Saves the layout to the textfile "filename.layout"
+#  /layout_load filename
+#    Loads the layout from the textfile "filename.layout"
+#  /set layout_savepath path
+#    Use to set a default path for layouts
+#
+# TODO:
+#   Check the layout file for a number used twice
+#
+
+use strict;
+use Irssi;
+use Data::Dumper;
+use vars qw($VERSION %IRSSI);
+
+%IRSSI = (
+	authors     => "Isaac G",
+	contact     => "irssi\@isaac.otherinbox.com",
+	name        => "reorder",
+	description => "Reordering windows based on a textfile.",
+	license     => "GPL",
+);
+
+sub doFilenameFixing
+{
+	my ($filename) = @_;
+	unless ($filename)
+	{
+		print "No filename specified!";
+		return;
+	}
+
+	$filename = glob($filename);
+
+	if ($filename =~ /\//)
+	{
+		unless ($filename =~ /^\//)
+		{
+			print "I don't like /'s in filenames. Unless you want to specify an absolute path.";
+			return;
+		}
+		# Let it go?
+	}
+
+	$filename .= '.layout' unless ($filename =~ /.layout$/);
+
+	my $path = Irssi::settings_get_str('layout_savepath');
+	$path .= '/' unless ($path =~ /\/$/);
+	$filename = $path . $filename unless ($filename =~ /\//);
+
+	return $filename;
+}
+
+sub canReadFile
+{
+	my ($filename) = @_;
+	unless (-f $filename)
+	{
+		print "No such file $filename";
+		return;
+	}
+	unless (-r $filename)
+	{
+		print "Can not read file $filename";
+		return;
+	}
+	return 1;
+}
+
+# Save a list of refnum and window info to file
+sub cmd_layout_save
+{
+	my ($filename, $data, $more) = @_;
+	my $FH;
+
+	$filename = doFilenameFixing($filename);
+	return unless ($filename);
+
+	unless(open $FH, ">", $filename)
+	{
+		print "Can not open $filename";
+		return;
+	}
+
+	# Order by ref. Print ref and an id tag
+	for my $win (sort {$a->{'refnum'} <=> $b->{'refnum'}} Irssi::windows())
+	{
+		my $id = $win->{'name'} ? $win->{'name'} : $win->{'active'}->{'name'} . ":" . $win->{'active'}->{'server'}->{'tag'};
+		printf $FH "%d\t%s\n", $win->{'refnum'}, $id;
+	}
+	close $FH;
+	print "Layout saved to $filename";
+}
+
+# Load a list and use it to reorder
+sub cmd_layout_load
+{
+	# Check filename supplied, exists and readable
+	my ($filename, $data, $more) = @_;
+	$filename = doFilenameFixing($filename);
+	return unless ($filename);
+
+	return unless canReadFile($filename);
+
+	my @layout;
+	my ($ref, $id, $FH);
+
+	# Pull the refnum and id
+	unless(open $FH, "<", $filename)
+	{
+		print "Can not open file $filename.";
+		return;
+	}
+	while (my $line = <$FH>)
+	{
+		chomp $line;
+		my ($ref, $id) = split(/\t/, $line, 2);
+		next unless ($ref and $id);
+
+		push @layout, {refnum => $ref, id => $id};
+	}
+	close $FH;
+
+	# For each layout item from the file, find the window and set it's ref to that number
+	for my $position (sort {$a->{'refnum'} <=> $b->{'refnum'}} @layout)
+	{
+		for my $win (Irssi::windows())
+		{
+			$id = $win->{'name'} ? $win->{'name'} : $win->{'active'}->{'name'} . ":" . $win->{'active'}->{'server'}->{'tag'};
+			if ($id eq $position->{'id'})
+			{
+				$win->set_refnum($position->{'refnum'});
+				last;
+			}
+		}
+	}
+}
+
+Irssi::settings_add_str('misc', 'layout_savepath', Irssi::get_irssi_dir());
+
+Irssi::command_bind( 'layout_save', 'cmd_layout_save' );
+Irssi::command_bind( 'layout_load', 'cmd_layout_load' );
\ No newline at end of file
diff --git a/scripts/repeat.pl b/scripts/repeat.pl
new file mode 100644
index 0000000..0d70b72
--- /dev/null
+++ b/scripts/repeat.pl
@@ -0,0 +1,144 @@
+use Irssi;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.2.0";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'repeat',
+	description=> 'Hide duplicate lines',
+	license=> 'GPL v2',
+	url=> 'http://bc-bd.org/blog/irssi/',
+);
+
+# repeal.pl: ignore repeated messages
+# 
+# for irssi 0.8.5 by bd@bc-bd.org
+#
+#########
+# USAGE
+###
+# 
+# This script hides repeated lines from:
+#
+#   dude> Plz Help me!!!
+#   dude> Plz Help me!!!
+#   dude> Plz Help me!!!
+#   guy> foo
+#
+# Becomes:
+#
+#   dude> Plz Help me!!!
+#   guy> foo
+#
+# Or with 'repeat_show' set to ON:
+#
+#   dude> Plz Help me!!!
+# Irssi: Message repeated 3 times
+#   guy> foo
+#
+#########
+# OPTIONS
+#########
+#
+# /set repeat_show <ON|OFF>
+#   * ON  : show info line: 'Message repeated N times'
+#   * OFF : don't show it.
+#
+# /set repeat_count <N>
+#   N : Display a message N times, then ignore it.
+#
+###
+################
+###
+# Changelog
+#
+# Version 0.2.0
+# - addes support for /me
+#
+# Version master
+# - updated url
+#
+# Version 0.1.3
+# - fix: also check before own message (by Wouter Coekaerts)
+#
+# Version 0.1.2
+# - removed stray debug message (duh!)
+#
+# Version 0.1.1
+# - off by one fixed
+# - fixed missing '$'
+#
+# Version 0.1.0
+# - initial release
+#
+my %said;
+my %count;
+
+sub sig_public {
+  my ($server, $msg, $nick, $address, $target) = @_;
+
+	my $maxcount = Irssi::settings_get_int('repeat_count');
+
+	my $window = $server->window_find_item($target);
+	my $refnum = $window->{refnum};
+
+	my $this = $refnum.$nick.$msg;
+
+	my $last = $said{$refnum};
+	my $i = $count{$refnum};
+
+	if ($last eq $this and not $nick eq $server->{nick}) {
+		$count{$refnum} = $i +1;
+
+		if ($i >= $maxcount) {
+			Irssi::signal_stop();
+		}
+	} else {
+		if ($i > $maxcount && Irssi::settings_get_bool('repeat_show')) {
+			$window->print("Message repeated ".($i-1)." times");
+		}
+
+		$count{$refnum} = 1;
+		$said{$refnum} = $this;
+	}
+}
+
+sub sig_own_public {
+	my ($server, $msg, $target) = @_;
+	sig_public ($server, $msg, $server->{nick}, "", $target);
+}
+
+sub remove_window {
+	my ($num) = @_;
+
+	delete($count{$num});
+	delete($said{$num});
+}
+
+sub sig_refnum {
+	my ($window,$old) = @_;
+	my $refnum = $window->{refnum};
+
+	$count{$refnum} = $count{old};
+	$said{$refnum} = $count{old};
+
+	remove_window($old);
+}
+
+sub sig_destroyed {
+	my ($window) = @_;
+	remove_window($window->{refnum});
+}
+
+Irssi::signal_add('message public', 'sig_public');
+Irssi::signal_add('message own_public', 'sig_own_public');
+Irssi::signal_add('message irc action', 'sig_public');
+Irssi::signal_add_last('window refnum changed', 'sig_refnum');
+Irssi::signal_add_last('window destroyed', 'sig_destroyed');
+
+Irssi::settings_add_int('misc', 'repeat_count', 1);
+Irssi::settings_add_bool('misc', 'repeat_show', 1);
+
diff --git a/scripts/resize_split.pl b/scripts/resize_split.pl
new file mode 100644
index 0000000..1744419
--- /dev/null
+++ b/scripts/resize_split.pl
@@ -0,0 +1,62 @@
+use Irssi;
+use strict;
+use vars qw/$VERSION %IRSSI/;
+$VERSION = 1.0;
+%IRSSI = (
+   authors     => 'David Leadbeater',
+   contact     => 'dgl@dgl.cx',
+   name        => 'resize_split',
+   description => 'Resizes a split window when it is made active (see comments in script for details)',
+   license     => 'GNU GPLv2 or later',
+   url         => 'http://irssi.dgl.cx/',
+);
+
+# This script is for if you have a split window for status (or anything else)
+# it makes it bigger when it's active.
+# (The way I have Irssi setup is with a split status window along the top,
+# created with /window show 1 in a channel window).
+ 
+# For example you do a command that outputs a large amount of text into
+# the status window such as /help or /motd (depending on what you put in
+# your status window). Then simply hit alt+up and the status window resizes
+# to give you more room to read the output, when you go back to another window
+# the status window will automatically go back to its previous size.
+
+# BUGS (mostly due to lack of Irssi API for split windows).
+# As far as I can see there is no easy way to find out where in a split a
+# window is displayed, so if more than one window is sticky inside a split
+# and you set that window in the setting below this script will have problems.
+# Also if you have more than 2 split windows things won't work as expected.
+
+# Setting: resize_windows
+# A space seperated list of windows that you want to be resized when you
+# change to them.
+# If it contains something that's not a (permanently displayed) split window
+# then windows will probably end up with incorrect sizes.
+Irssi::settings_add_str("misc", "resize_windows", "1");
+
+Irssi::signal_add("window changed", \&winchg);
+
+sub winchg {
+   my($newwin, $oldwin) = @_;
+   if(is_resized($oldwin->{refnum})) {
+      my $height = $oldwin->{height} - $newwin->{height};
+      return if $height < 0; # Work around bug in Irssi, minus numbers here
+                             # do weird things (i.e. grow without error
+                             # checking)
+      $oldwin->command("window shrink $height");
+   }
+   
+   if(is_resized($newwin->{refnum})) {
+      my $height = $oldwin->{height} - $newwin->{height};
+      return if $height < 0; # same problem as above..
+      $newwin->command("window grow $height");
+   }
+}
+
+sub is_resized {
+   for my $refnum(split ' ', Irssi::settings_get_str("resize_windows")) {
+      return 1 if $refnum == $_[0];
+   }
+}
+
diff --git a/scripts/rhythmbox.pl b/scripts/rhythmbox.pl
new file mode 100644
index 0000000..ec31cc7
--- /dev/null
+++ b/scripts/rhythmbox.pl
@@ -0,0 +1,129 @@
+#=================================================================================
+#
+# rhythmbox.pl
+# script that allows you to control rhythmbox from irssi
+#
+#=================================================================================
+# INITIAL SECTION
+#=================================================================================
+use Irssi;
+use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.30";
+
+%IRSSI = (
+	authors     =>  'Fogel',
+	contact     =>  'fogel@fogel.netmark.pl',
+	name        =>  'rhythmbox',
+	description =>  'Rhythmbox now playing script',
+	license     =>  'BSD',
+	url         =>  "www.fogel.com.pl",
+);
+#=================================================================================
+# NOW PLAYING SECTION
+#=================================================================================
+sub now_playing {
+
+	my ($data, $server, $witem) = @_;
+
+
+	my $title = `rhythmbox-client --print-playing-format %tt`;
+	my $artist = `rhythmbox-client --print-playing-format %ta`;
+	my $number = `rhythmbox-client --print-playing-format %tn`;
+	my $duration = `rhythmbox-client --print-playing-format %td`;
+	my $elapsed = `rhythmbox-client --print-playing-format %te`;
+	my $album_title = `rhythmbox-client --print-playing-format %at`;
+	my $album_artist = `rhythmbox-client --print-playing-format %aa`;
+	my $album_year = `rhythmbox-client --print-playing-format %ay`;
+	my $album_genre = `rhythmbox-client --print-playing-format %ag`;
+	my $disc_number = `rhythmbox-client --print-playing-format %an`;
+
+	if ($number =~ m/^\d*$/i) {
+		
+		my $output = "np: $artist - $title ($elapsed / $duration)"; # here set desired format of output
+
+		if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+
+			$witem->command("me $output")
+		} else {
+			Irssi::print("This is not a channel/query window");
+		}
+
+	} else {
+		Irssi::print("rhythmbox is not playing anything at the moment.");
+	}
+}
+#=================================================================================
+# RHYTHMBOX CONTROL SECTION
+#=================================================================================
+sub pause {
+	system("rhythmbox-client --pause");
+}
+
+sub play {
+	system("rhythmbox-client --play");
+}
+
+sub next {
+        system("rhythmbox-client --next");
+}
+
+sub previous {
+        system("rhythmbox-client --previous");
+}
+
+sub volume_up {
+        system("rhythmbox-client --volume-up");
+} 
+
+sub volume_down {
+        system("rhythmbox-client --volume-down");
+} 
+
+sub volume {
+        my $vol = `rhythmbox-client --print-volume`;
+	Irssi::print("rhythmbox volume: $vol");
+}
+
+sub mute {
+        system("rhythmbox-client --mute");
+}
+
+sub unmute {
+        system("rhythmbox-client --unmute");
+}
+#=================================================================================
+# HELP DISPLAY SECTION SECTION
+#=================================================================================
+sub help {
+	
+	Irssi::print("rhythmbox.pl - rhythmbox control script for irssi");
+	Irssi::print("Copyright Michal \"Fogel\" Fogelman");
+	Irssi::print("List of commands:");
+	Irssi::print("/np - now playing - show others what are you listening to");
+	Irssi::print("/pause, /play");
+	Irssi::print("/prev, /next - previous/next track");
+	Irssi::print("/vup, /vdown - volume up/down");
+	Irssi::print("/volume - displays current volume level");
+	Irssi::print("/mute, /unmute");
+}
+#=================================================================================
+# COMMAND BINDINGS
+#=================================================================================
+Irssi::command_bind('np', 'now_playing');
+Irssi::command_bind('pause', 'pause');
+Irssi::command_bind('play', 'play');
+Irssi::command_bind('next', 'next');
+Irssi::command_bind('prev', 'previous');
+Irssi::command_bind('vup', 'volume_up');
+Irssi::command_bind('vdown', 'volume_down');
+Irssi::command_bind('vol', 'volume');
+Irssi::command_bind('mute', 'mute');
+Irssi::command_bind('unmute', 'unmute');
+
+Irssi::command_bind('rhythmbox_help', 'help');
+#=================================================================================
+# END OF FILE
+#=================================================================================
diff --git a/scripts/rk.pl b/scripts/rk.pl
new file mode 100644
index 0000000..204ad61
--- /dev/null
+++ b/scripts/rk.pl
@@ -0,0 +1,53 @@
+# rk.pl/Irssi/fahren@bochnia.pl
+
+use Irssi 20020300;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.9";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "Random kicker",
+        description     => "/RK [-o | -l | -a] - kicks random nick from ops | lusers | all on channel",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Mar 15 15:09:42 CET 2002"
+);
+
+sub cmd_rk {
+	my ($args, $server, $chan) = @_;
+
+	unless ($chan && $chan->{type} eq "CHANNEL" && $chan->{chanop}) {
+		Irssi::print("%R>>%n You aren't opped / You don't have active channel :/");	
+		return;
+	}
+
+	my @data = split(/ /, $args);
+	my ($rk, @nicks);
+	$rk = 0;
+
+	while ($_ = shift(@data)) {
+		/^-a$/ and $rk = 2, next;
+		/^-o$/ and $rk = 1, next;
+		/^-l$/ and $rk = 0, next;
+	}
+
+	my $channel = $chan->{name};
+	
+	for my $hash ($chan->nicks()) {
+		unless ($rk) {
+			next if $hash->{op};	
+		} elsif ($rk eq 1 && !$hash->{op}) {next};
+
+		next if ($hash->{nick} eq $server->{nick});
+
+		push @nicks, $hash;	
+	}
+
+	my $nnum = scalar(@nicks);
+	my $victim = $nicks[rand($nnum)]->{nick};
+	
+	$server->send_raw("KICK $channel $victim :\002Random Kick\002");
+}
+
+Irssi::command_bind('rk', 'cmd_rk');
diff --git a/scripts/romaji.pl b/scripts/romaji.pl
new file mode 100644
index 0000000..7529ddd
--- /dev/null
+++ b/scripts/romaji.pl
@@ -0,0 +1,273 @@
+#!/usr/bin/perl -w
+#
+# Copyright (c) 2002 Victor Ivanov <v0rbiz@yahoo.com>
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0b3';
+%IRSSI = (
+    authors	=> 'Victor Ivanov',
+    contact	=> 'v0rbiz@yahoo.com',
+    name	=> 'romaji',
+    description => 'translates romaji to hiragana or katakana in text enclosed in ^R',
+    license	=> 'BSD 2-clause',
+    url		=> 'http://irssi.org/scripts/'
+);
+
+
+my(%hira) = (
+    "a"   => "あ", "i"   => "い", "u"   => "う", "e"   => "え", "o"   => "お",
+    "ka"  => "か", "ki"  => "き", "ku"  => "く", "ke"  => "け", "ko"  => "こ",
+    "sa"  => "さ", "shi" => "し", "su"  => "す", "se"  => "せ", "so"  => "そ",
+    "ta"  => "た", "chi" => "ち", "tsu" => "つ", "te"  => "て", "to"  => "と",
+    "na"  => "な", "ni"  => "に", "nu"  => "ぬ", "ne"  => "ね", "no"  => "の",
+    "ha"  => "は", "hi"  => "ひ", "hu"  => "ふ", "he"  => "へ", "ho"  => "ほ", "fu"  => "ふ",
+    "ma"  => "ま", "mi"  => "み", "mu"  => "む", "me"  => "め", "mo"  => "も",
+    "ya"  => "や", "yu"  => "ゆ", "yo"  => "よ",
+    "ra"  => "ら", "ri"  => "り", "ru"  => "る", "re"  => "れ", "ro"  => "ろ",
+    "wa"  => "わ", "wi"  => "ゐ", "we"  => "ゑ", "wo"  => "を",
+    "n"   => "ん",
+    "m"   => "ん",
+
+    "ga"  => "が", "gi"  => "ぎ", "gu"  => "ぐ", "ge"  => "げ", "go"  => "ご",
+    "za"  => "ざ", "ji"  => "じ", "zu"  => "ず", "ze"  => "ぜ", "zo"  => "ぞ",
+    "da"  => "だ", "dzi" => "ぢ", "dzu" => "づ", "de"  => "で", "do"  => "ど",
+    "ba"  => "ば", "bi"  => "び", "bu"  => "ぶ", "be"  => "べ", "bo"  => "ぼ",
+    "pa"  => "ぱ", "pi"  => "ぴ", "pu"  => "ぷ", "pe"  => "ぺ", "po"  => "ぽ",
+
+    "fa"  => "ふぁ", "fi"  => "ふぃ", "fe"  => "ふぇ", "fo"  => "ふぉ",
+    "di"  => "でぃ",
+
+    "kya" => "きゃ", "kyu" => "きゅ", "kyo" => "きょ",
+    "sha" => "しゃ", "shu" => "しゅ", "sho" => "しょ",
+    "cha" => "ちゃ", "chu" => "ちゅ", "cho" => "ちょ",
+    "nya" => "にゃ", "nyu" => "にゅ", "nyo" => "にょ",
+    "hya" => "ひゃ", "hyu" => "ひゅ", "hyo" => "ひょ",
+    "mya" => "みゃ", "myu" => "みゅ", "myo" => "みょ",
+    "rya" => "りゃ", "ryu" => "りゅ", "ryo" => "りょ",
+    "gya" => "ぎゃ", "gyu" => "ぎゅ", "gyo" => "ぎょ",
+    "ja"  => "じゃ", "ju"  => "じゅ", "jo"  => "じょ",
+    "jya" => "じゃ", "jyu" => "じゅ", "jyo" => "じょ",
+    "dza" => "ぢゃ", "dju" => "ぢゅ", "dzo" => "ぢょ",
+    "dja" => "ぢゃ",                  "djo" => "ぢょ",
+    "bya" => "びゃ", "byu" => "びゅ", "byo" => "びょ",
+    "pya" => "ぴゃ", "pyu" => "ぴゅ", "pyo" => "ぴょ",
+
+    "TSU" => "っ"
+);
+
+my(%kata) = (
+    "a"   => "ア", "i"   => "イ", "u"   => "ウ", "e"   => "エ", "o"   => "オ",
+    "ka"  => "カ", "ki"  => "キ", "ku"  => "ク", "ke"  => "ケ", "ko"  => "コ",
+    "sa"  => "サ", "shi" => "シ", "su"  => "ス", "se"  => "セ", "so"  => "ソ",
+    "ta"  => "タ", "chi" => "チ", "tsu" => "ツ", "te"  => "テ", "to"  => "ト",
+    "na"  => "ナ", "ni"  => "ニ", "nu"  => "ヌ", "ne"  => "ネ", "no"  => "ノ",
+    "ha"  => "ハ", "hi"  => "ヒ", "hu"  => "フ", "he"  => "ヘ", "ho"  => "ホ", "fu"  => "フ",
+    "ma"  => "マ", "mi"  => "ミ", "mu"  => "ム", "me"  => "メ", "mo"  => "モ",
+    "ya"  => "ヤ", "yu"  => "ユ", "yo"  => "ヨ", "ye"  => "エ",
+    "ra"  => "ラ", "ri"  => "リ", "ru"  => "ル", "re"  => "レ", "ro"  => "ロ",
+    "wa"  => "ワ", "wi"  => "ヰ", "we"  => "ヱ", "wo"  => "ヲ",
+    "n"   => "ン",
+    "m"   => "ン",
+
+    "ga"  => "ガ", "gi"  => "ギ", "gu"  => "グ", "ge"  => "ゲ", "go"  => "ゴ",
+    "za"  => "ザ", "ji"  => "ジ", "zu"  => "ズ", "ze"  => "ゼ", "zo"  => "ゾ",
+    "da"  => "ダ", "dzi" => "ヂ", "dzu" => "ヅ", "de"  => "デ", "do"  => "ド",
+    "ba"  => "バ", "bi"  => "ビ", "bu"  => "ブ", "be"  => "ベ", "bo"  => "ボ",
+    "pa"  => "パ", "pi"  => "ピ", "pu"  => "プ", "pe"  => "ペ", "po"  => "ポ",
+
+    "va"  => "ヴァ", "vi"  => "ヴィ", "vu"  => "ヴ",   "ve"  => "ヴェ", "vo"  => "ヴォ",
+    "fa"  => "ファ", "fi"  => "フィ", "fe"  => "フェ", "fo"  => "フォ",
+    "di"  => "ディ",
+
+    "dje" => "ヂェ", "dze" => "ヂェ",
+
+    "kya" => "キャ", "kyu" => "キュ", "kyo" => "キョ",
+    "sha" => "シャ", "shu" => "シュ", "sho" => "ショ",
+    "cha" => "チャ", "chu" => "チュ", "cho" => "チョ",
+    "nya" => "ニャ", "nyu" => "ニュ", "nyo" => "ニョ",
+    "hya" => "ヒャ", "hyu" => "ヒュ", "hyo" => "ヒョ",
+    "mya" => "ミャ", "myu" => "ミュ", "myo" => "ミョ",
+    "rya" => "リャ", "ryu" => "リュ", "ryo" => "リョ",
+    "gya" => "ギャ", "gyu" => "ギュ", "gyo" => "ギョ",
+    "ja"  => "ジャ", "ju"  => "ジュ", "jo"  => "ジョ",
+    "jya" => "ジャ", "jyu" => "ジュ", "jyo" => "ジョ",
+    "dza" => "ヂャ", "dju" => "ヂュ", "dzo" => "ヂョ",
+    "dja" => "ヂャ",                  "djo" => "ヂョ",
+    "bya" => "ビャ", "byu" => "ビュ", "byo" => "ビョ",
+    "pya" => "ピャ", "pyu" => "ピュ", "pyo" => "ピョ",
+
+    "TSU" => "ッ"
+);
+
+my(%comn) = (
+    "-"   => "ー",
+    "."   => "。",
+    ","   => "、",
+    "!"   => "！",
+    "?"   => "？",
+    "~"   => "〜",
+    "  "  => "　",
+    "["   => "〔", "]"   => "〕",
+    "{"   => "【", "}"   => "】",
+    "("   => "（", ")"   => "）",
+    "0"   => "０", "1"   => "１", "2"   => "２", "3"   => "３", "4"   => "４",
+    "5"   => "５", "6"   => "６", "7"   => "７", "8"   => "８", "9"   => "９",
+    "*"   => "★", # ☆ is uglier :P
+    # where to put ♪ ?
+);
+
+my(@squot) = ( "「", "」" );
+my($squoti) = 0;
+my(@dquot) = ( "『", "』" );
+my($dquoti) = 0;
+
+sub r2hk ($$) {
+    my($str) = "";
+    my($pos) = 0;
+    my($inlen) = length($_[0]);
+    my($last) = "";
+    my($href) = $_[1];
+    my($inp) = lc($_[0]);
+
+    while ($pos < $inlen) {
+	my($len);
+	my($p) = substr($inp, $pos, 3);
+	my($h) = ${$href}{$p};
+
+	# this could be done with another cycle, but this way's faster i guess
+	if ($h) {
+	    $len = 3;
+	} else {
+	    $p = substr($inp, $pos, 2);
+	    $h = ${$href}{$p};
+	    if ($h) {
+		$len = 2;
+	    } else {
+		$p = substr($inp, $pos, 1);
+		$h = ${$href}{$p};
+		if (!$h) {
+		    if ($p eq "'") {
+			$h = $squot[$squoti];
+			$squoti = 1 - $squoti;
+		    } elsif ($p eq "\"") {
+			$h = $dquot[$dquoti];
+			$dquoti = 1 - $dquoti;
+		    } else {
+			$h = $p;
+		    }
+		}
+		$len = 1;
+	    }
+	}
+
+	if ($h ne $p) {
+	    if ($last) {
+		if ($last eq substr($p, 0, 1)) {
+		    $str .= ${$href}{"TSU"};
+		} else {
+		    $str .= $last;
+		}
+		$last = "";
+	    }
+	} else {
+	    $str .= $last;
+	    $last = $p;
+	    $h = "";
+	}
+
+	$str .= $h;
+	
+	$pos += $len;
+    }
+
+    $str .= $last;
+
+    return $str;
+}
+
+my($lock_ev) = 0;
+
+sub event1 {
+    my ($line, $server, $witem) = @_;
+
+    return unless ref $witem;
+    if ($lock_ev) { return };
+    $squoti = 0;
+    $dquoti = 0;
+
+    my ($str) = "";
+    my (@p) = split(//, $line);
+    my ($i);
+    my ($inside) = 0;
+    my ($empty) = 0;
+
+    for ($i = 0; $i <= $#p; $i++) {
+	if ($inside) {
+	    if (!$p[$i]) {
+		$empty++;
+	    } else {
+		if ($empty == 0) {
+		    $str .= r2hk($p[$i], \%hira);
+		} else {
+		    $str .= r2hk($p[$i], \%kata);
+		}
+		$empty = 0;
+		$inside = 0;
+	    }
+	} else {
+	    $str .= $p[$i];
+	    $inside = 1;
+	}
+    }
+
+    $lock_ev = 1;
+    Irssi::signal_emit('send command', $str, $server, $witem);
+    Irssi::signal_stop();
+    $lock_ev = 0;
+}
+
+sub cmd_romaji {
+    Irssi::print('%BRomaji (with ひらがな and カタカナ support) version '.$VERSION);
+    Irssi::print('(this is amateur product and comes with %Wno warranty%n, see the source)');
+    Irssi::print('Text enclosed in Ctrl-Rs (like this) will be converted to hiragana.');
+    Irssi::print('If the opening ^R is doubled, it will be converted to katakana.');
+    Irssi::print('Example: genki -> げんき and genki -> ゲンキ');
+}
+
+Irssi::signal_add('send command', "event1");
+Irssi::command_bind('romaji', \&cmd_romaji);
+
+Irssi::print('%B'.$IRSSI{name}.' '.$VERSION.'%n loaded; type /romaji for more info');
+
+# Add the common hash to hiragana and kitakana hashes
+my($k, $v);
+
+while (($k, $v) = each %comn) {
+    $hira{$k} = $v;
+    $kata{$k} = $v;
+}
diff --git a/scripts/romajibind.pl b/scripts/romajibind.pl
new file mode 100644
index 0000000..36a8276
--- /dev/null
+++ b/scripts/romajibind.pl
@@ -0,0 +1,300 @@
+#!/usr/bin/perl -w
+#
+# Copyright (c) 2002 Victor Ivanov <v0rbiz@yahoo.com>
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0b";
+%IRSSI = (
+    authors	=> 'Victor Ivanov',
+    contact	=> 'v0rbiz@yahoo.com',
+    name	=> 'romajibind',
+    description	=> 'Dynamic romaji binds',
+    license	=> 'BSD 2-clause',
+    url		=> 'http://irssi.org/scripts/'
+);
+
+# Some help...
+# First, this is UTF-8 script.
+# Press ctrl-R to switch between Hiragana, Katakana and English input
+#
+# When the script is loading, it will install the huge amount of
+# second-level binds. This takes some time.
+#
+# When you press ctrl-R it will install some binds, but not the whole
+# bunch. Still, it takes noticeable amount of time. If you want
+# something faster, try the simple romaji.pl :)
+#
+# The system is mostly Hepburn, but it could have some kunrei mappings also.
+#
+# Because of the irssi bind limits, the small tsu is not automatic as in
+# the romaji.pl. You need to type it explicitly, using 'tt'.
+# Same goes for ん and ン, which are typed with nn or mm.
+#
+# There is a statusbar item which shows a glyph for the current mapping.
+# [英]語 -> [平]仮名 -> [片]仮名
+#
+# If you want it, type
+# /statusbar window add ro1_sb
+# (just once, it will remember it)
+
+use Irssi;
+use Irssi::TextUI;
+
+# Meow
+# These are almost the same as in romaji.pl
+
+my(%hira) = (
+    "a"   => "あ", "i"   => "い", "u"   => "う", "e"   => "え", "o"   => "お",
+    "ka"  => "か", "ki"  => "き", "ku"  => "く", "ke"  => "け", "ko"  => "こ",
+    "sa"  => "さ", "shi" => "し", "su"  => "す", "se"  => "せ", "so"  => "そ",
+    "ta"  => "た", "chi" => "ち", "tsu" => "つ", "te"  => "て", "to"  => "と",
+    "na"  => "な", "ni"  => "に", "nu"  => "ぬ", "ne"  => "ね", "no"  => "の",
+    "ha"  => "は", "hi"  => "ひ", "hu"  => "ふ", "he"  => "へ", "ho"  => "ほ", "fu"  => "ふ",
+    "ma"  => "ま", "mi"  => "み", "mu"  => "む", "me"  => "め", "mo"  => "も",
+    "ya"  => "や", "yu"  => "ゆ", "yo"  => "よ",
+    "ra"  => "ら", "ri"  => "り", "ru"  => "る", "re"  => "れ", "ro"  => "ろ",
+    "wa"  => "わ", "wi"  => "ゐ", "we"  => "ゑ", "wo"  => "を",
+    "nn"  => "ん",
+    "mm"  => "ん",
+
+    "ga"  => "が", "gi"  => "ぎ", "gu"  => "ぐ", "ge"  => "げ", "go"  => "ご",
+    "za"  => "ざ", "ji"  => "じ", "zu"  => "ず", "ze"  => "ぜ", "zo"  => "ぞ",
+    "da"  => "だ", "dzi" => "ぢ", "dzu" => "づ", "de"  => "で", "do"  => "ど",
+    "ba"  => "ば", "bi"  => "び", "bu"  => "ぶ", "be"  => "べ", "bo"  => "ぼ",
+    "pa"  => "ぱ", "pi"  => "ぴ", "pu"  => "ぷ", "pe"  => "ぺ", "po"  => "ぽ",
+
+    "fa"  => "ふぁ", "fi"  => "ふぃ", "fe"  => "ふぇ", "fo"  => "ふぉ",
+    "di"  => "でぃ",
+
+    "kya" => "きゃ", "kyu" => "きゅ", "kyo" => "きょ",
+    "sha" => "しゃ", "shu" => "しゅ", "sho" => "しょ",
+    "cha" => "ちゃ", "chu" => "ちゅ", "cho" => "ちょ",
+    "nya" => "にゃ", "nyu" => "にゅ", "nyo" => "にょ",
+    "hya" => "ひゃ", "hyu" => "ひゅ", "hyo" => "ひょ",
+    "mya" => "みゃ", "myu" => "みゅ", "myo" => "みょ",
+    "rya" => "りゃ", "ryu" => "りゅ", "ryo" => "りょ",
+    "gya" => "ぎゃ", "gyu" => "ぎゅ", "gyo" => "ぎょ",
+    "ja"  => "じゃ", "ju"  => "じゅ", "jo"  => "じょ",
+    "jya" => "じゃ", "jyu" => "じゅ", "jyo" => "じょ",
+    "dza" => "ぢゃ", "dju" => "ぢゅ", "dzo" => "ぢょ",
+    "dja" => "ぢゃ",                  "djo" => "ぢょ",
+    "bya" => "びゃ", "byu" => "びゅ", "byo" => "びょ",
+    "pya" => "ぴゃ", "pyu" => "ぴゅ", "pyo" => "ぴょ",
+
+    "tt"  => "っ"
+);
+
+my(%kata) = (
+    "a"   => "ア", "i"   => "イ", "u"   => "ウ", "e"   => "エ", "o"   => "オ",
+    "ka"  => "カ", "ki"  => "キ", "ku"  => "ク", "ke"  => "ケ", "ko"  => "コ",
+    "sa"  => "サ", "shi" => "シ", "su"  => "ス", "se"  => "セ", "so"  => "ソ",
+    "ta"  => "タ", "chi" => "チ", "tsu" => "ツ", "te"  => "テ", "to"  => "ト",
+    "na"  => "ナ", "ni"  => "ニ", "nu"  => "ヌ", "ne"  => "ネ", "no"  => "ノ",
+    "ha"  => "ハ", "hi"  => "ヒ", "hu"  => "フ", "he"  => "ヘ", "ho"  => "ホ", "fu"  => "フ",
+    "ma"  => "マ", "mi"  => "ミ", "mu"  => "ム", "me"  => "メ", "mo"  => "モ",
+    "ya"  => "ヤ", "yu"  => "ユ", "yo"  => "ヨ", "ye"  => "エ",
+    "ra"  => "ラ", "ri"  => "リ", "ru"  => "ル", "re"  => "レ", "ro"  => "ロ",
+    "wa"  => "ワ", "wi"  => "ヰ", "we"  => "ヱ", "wo"  => "ヲ",
+    "nn"  => "ン",
+    "mm"  => "ン",
+
+    "ga"  => "ガ", "gi"  => "ギ", "gu"  => "グ", "ge"  => "ゲ", "go"  => "ゴ",
+    "za"  => "ザ", "ji"  => "ジ", "zu"  => "ズ", "ze"  => "ゼ", "zo"  => "ゾ",
+    "da"  => "ダ", "dzi" => "ヂ", "dzu" => "ヅ", "de"  => "デ", "do"  => "ド",
+    "ba"  => "バ", "bi"  => "ビ", "bu"  => "ブ", "be"  => "ベ", "bo"  => "ボ",
+    "pa"  => "パ", "pi"  => "ピ", "pu"  => "プ", "pe"  => "ペ", "po"  => "ポ",
+
+    "va"  => "ヴァ", "vi"  => "ヴィ", "vu"  => "ヴ",   "ve"  => "ヴェ", "vo"  => "ヴォ",
+    "fa"  => "ファ", "fi"  => "フィ", "fe"  => "フェ", "fo"  => "フォ",
+    "di"  => "ディ",
+
+    "dje" => "ヂェ", "dze" => "ヂェ",
+
+    "kya" => "キャ", "kyu" => "キュ", "kyo" => "キョ",
+    "sha" => "シャ", "shu" => "シュ", "sho" => "ショ",
+    "cha" => "チャ", "chu" => "チュ", "cho" => "チョ",
+    "nya" => "ニャ", "nyu" => "ニュ", "nyo" => "ニョ",
+    "hya" => "ヒャ", "hyu" => "ヒュ", "hyo" => "ヒョ",
+    "mya" => "ミャ", "myu" => "ミュ", "myo" => "ミョ",
+    "rya" => "リャ", "ryu" => "リュ", "ryo" => "リョ",
+    "gya" => "ギャ", "gyu" => "ギュ", "gyo" => "ギョ",
+    "ja"  => "ジャ", "ju"  => "ジュ", "jo"  => "ジョ",
+    "jya" => "ジャ", "jyu" => "ジュ", "jyo" => "ジョ",
+    "dza" => "ヂャ", "dju" => "ヂュ", "dzo" => "ヂョ",
+    "dja" => "ヂャ",                  "djo" => "ヂョ",
+    "bya" => "ビャ", "byu" => "ビュ", "byo" => "ビョ",
+    "pya" => "ピャ", "pyu" => "ピュ", "pyo" => "ピョ",
+
+    "tt"  => "ッ"
+);
+
+my(%comm) = (
+    "-"   => "ー",
+    "."   => "。",
+    ","   => "、",
+    "!"   => "！",
+    "?"   => "？",
+    "~"   => "〜",
+    "["   => "〔", "]"   => "〕",
+    "{"   => "【", "}"   => "】",
+    "("   => "（", ")"   => "）",
+    "0"   => "０", "1"   => "１", "2"   => "２", "3"   => "３", "4"   => "４",
+    "5"   => "５", "6"   => "６", "7"   => "７", "8"   => "８", "9"   => "９",
+    "*"   => "★", # ☆ is uglier :P
+    # where to put ♪ ?
+);
+
+my(@squot) = ( "「", "」" );
+my($squoti) = 0;
+my(@dquot) = ( "『", "』" );
+my($dquoti) = 0;
+
+my(%hirab); # Contains DIRECT insert_texts and first-level metas for Hiragana
+my(%katab); # Contains DIRECT insert_texts and first-level metas for Katakana
+my(%commb); # Common binds
+my(%persb); # Persistent binds (don't collide and are all second-level or more)
+
+my($currs) = "英"; # Current state eigo -> hiragana -> katakana
+
+# Builds irssi binds from a hash containing romaji -> utf-8 pairs
+# Arguments: sh, dh, pr
+#   sh:  Source Hash (%hira, %kata, %comm)
+#   dh:  Destination Hash (%hirab or %katab)
+#   pr:  Prefix for meta keys (hira or kata)
+# The function uses %persb for all non-direct binds
+sub build_binds ($$$) {
+    my($sh) = $_[0]; # Source hash, %hira or %kata
+    my($dh) = $_[1]; # Destination hash, %hirab or %katab
+    my($pr) = $_[2]; # The prefix
+    my($k, $v);      # for each from the source hash
+
+    while (($k, $v) = each %{$sh}) {
+	my($ll) = length($k); # get the length of the KEY
+	my($tk, $tv);         # used to take apart the KEY into chars
+
+	if ($ll == 1) { # one-char KEYs are easy
+	    ${$dh}{$k} = "insert_text $v";
+	} elsif ($ll >= 2) {
+	    # take the first and the second chars
+	    $tk = substr($k, 0, 1);
+	    $tv = substr($k, 1, 1);
+	    # if the meta-key is not defined yet, define it now
+	    if (!${$dh}{$tk}) {
+		${$dh}{$tk} = "key $pr$tk";
+	    }
+	    # if the KEY is 2-char, define it now
+	    if ($ll == 2) {
+		$persb{"$pr$tk-$tv"} = "insert_text $v";
+	    } else {
+		# otherwise register a new meta key, if not yet registered
+		if (!$persb{"$pr$tk-$tv"}) {
+		    $persb{"$pr$tk-$tv"} = "key $pr$tk$tv";
+		}
+		# and now register the key...
+		$tk .= $tv;
+		$tv = substr($k, 2, 1);
+		$persb{"$pr$tk-$tv"} = "insert_text $v";
+	    }
+	}
+    }
+}
+
+# Applies all binds in a given hash
+sub do_binds ($) {
+    my($h) = $_[0];
+    my($k, $v);
+
+    while (($k, $v) = each %{$h}) {
+	Irssi::command("^bind $k $v");
+    }
+}
+
+# Deletes all binds existing in the given hash
+sub del_binds ($) {
+    my($h) = $_[0];
+    my($k, $v);
+
+    while (($k, $v) = each %{$h}) {
+	Irssi::command("^bind -delete $k");
+    }
+}
+
+# Bindings for hiragana, next Ctrl-R will bind Katakana
+sub cmd_rohira {
+    Irssi::command("^bind ^R /rokata");
+    do_binds \%hirab;
+    do_binds \%commb;
+    $currs = "å¹³";
+    Irssi::statusbar_items_redraw('ro1_sb');
+}
+
+# Bindings for Katakana, next Ctrl-R will restore
+sub cmd_rokata {
+    Irssi::command("^bind ^R /rorest");
+    del_binds \%hirab;
+    do_binds \%katab;
+    # no need to rebind commons from %commb
+    $currs = "片";
+    Irssi::statusbar_items_redraw('ro1_sb');
+}
+
+# Delete bindings (first-level), next Ctrl-R will bind Hiragana
+sub cmd_rorest {
+    Irssi::command("^bind ^R /rohira");
+    del_binds \%katab;
+    del_binds \%commb;
+    $currs = "英";
+    Irssi::statusbar_items_redraw('ro1_sb');
+}
+
+# Display the statusbar item
+sub ro1_sb_show ($$) {
+    my ($item, $get_size_only) = @_;
+
+    $item->{min_size} = $item->{max_size} = 2;
+    $item->default_handler($get_size_only, "{sb " . $currs . "}", 0, 1);
+}
+
+# Register the /commands
+Irssi::command_bind('rohira', 'cmd_rohira');
+Irssi::command_bind('rokata', 'cmd_rokata');
+Irssi::command_bind('rorest', 'cmd_rorest');
+
+# Register the statusbar item
+Irssi::statusbar_item_register('ro1_sb', 0, "ro1_sb_show");
+Irssi::statusbar_items_redraw('ro1_sb');
+
+# Bind Ctrl-R to Hiragana (initial position)
+Irssi::command("^bind ^R /rohira");
+
+# Build the bind hashes
+build_binds \%hira, \%hirab, "hira";
+build_binds \%kata, \%katab, "kata";
+build_binds \%comm, \%commb, "comm";
+
+# Register persistent binds... SLOWwwwwww :(((
+do_binds \%persb;
diff --git a/scripts/rot13.pl b/scripts/rot13.pl
new file mode 100644
index 0000000..2b74fd7
--- /dev/null
+++ b/scripts/rot13.pl
@@ -0,0 +1,77 @@
+# rot13.pl
+# Mariusz "Craig" Cie¶la <craig at fish.mac.edu.pl>
+# ROT13-encodes and decodes messages on the channel :)
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "2003121202";
+
+%IRSSI = (
+	authors		=>	"Mariusz 'Craig' Ciesla",
+	contact		=>	"craig\@fish.mac.edu.pl",
+	name		=>	"rot13",
+	description	=>	"ROT13 encoding and reverse :)",
+	license		=>	"GPLv2",
+	changed		=>	"$VERSION",
+	commands	=>	"rot13 unrot13"
+);
+
+use Irssi 20020324;
+
+sub text2rot ($)
+{
+	my ($text) = @_;
+
+	$text =~ y/N-ZA-Mn-za-m/A-Za-z/;
+
+	return $text."  ";
+}
+
+sub rot2text ($)
+{
+	my ($text) = @_;
+
+	$text =~ y/A-Za-z/N-ZA-Mn-za-m/;
+
+	return $text;
+}
+
+sub rot13_decode ($$$)
+{
+	my ($server, $target, $text) = @_;
+	
+	return unless ($text =~ /(^|.*?)  /g);
+	my $witem = $server->window_item_find($target);
+
+	return unless ($witem);
+	$witem->print("%B[ROT13]>>%n ".rot2text($1), MSGLEVEL_CLIENTCRAP);
+}
+
+sub cmd_rot13 ($$$)
+{
+	my ($arg, $server, $witem) = @_;
+
+	if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'))
+	{
+		$witem->command('MSG '.$witem->{name}.' '.text2rot($arg));
+	} else {
+		print CLIENTCRAP "%B>>%n ".text2rot($arg);
+	}
+}
+
+sub cmd_unrot13 ($$$)
+{
+	my ($arg, $server, $witem) = @_;
+	
+	print CLIENTCRAP "%B>>%n ".rot2text($arg);
+}
+
+Irssi::command_bind('rot13',\&cmd_rot13);
+Irssi::command_bind('unrot13',\&cmd_unrot13);
+
+Irssi::signal_add('message public',sub {rot13_decode($_[0], $_[4], $_[1]);} );
+Irssi::signal_add('message own_public',sub {rot13_decode($_[0], $_[2], $_[1]);});
+
+print "%B>>%n ".$IRSSI{name}." ".$VERSION." loaded";
diff --git a/scripts/rotator.pl b/scripts/rotator.pl
new file mode 100644
index 0000000..71a0522
--- /dev/null
+++ b/scripts/rotator.pl
@@ -0,0 +1,137 @@
+use Irssi;
+use Irssi::TextUI;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.2.1";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'rotator',
+	description=> 'Displaye a small, changeing statusbar item to show irssi is still running',
+	license=> 'GPL v2',
+	url=> 'https://bc-bd.org/svn/repos/irssi/trunk/',
+);
+
+# rotator Displaye a small, changeing statusbar item to show irssi is still running
+# for irssi 0.8.4 by bd@bc-bd.org
+#
+#########
+# USAGE
+###
+# 
+# To use this script type f.e.:
+#
+#		/statusbar window add -after more -alignment right rotator
+#
+# For more info on statusbars read the docs for /statusbar
+#
+#########
+# OPTIONS
+#########
+#
+# /set rotator_seperator <char>
+# 	The character that is used to split the string in elements.
+#
+# /set rotator_chars <string>
+# 	The string to display. Examples are:
+#
+# 		/set rotator_chars . o 0 O
+# 		/set rotator_chars _ ­ ¯
+# 		/set rotator_chars %r­ %Y- %g-
+#
+# /set rotator_speed <int>
+# 	The number of milliseconds to display every char.
+# 	1 second = 1000 milliseconds.
+#
+# /set rotator_bounce <ON|OFF>
+#		* ON  : reverse direction at the end of rotator_chars
+#		* OFF : start from the beginning
+#
+###
+################
+###
+# Changelog
+#
+# Version 0.2.1
+#  - checking rotator_speed to be > 10
+#
+# Version 0.2
+#  - added rotator_bounce
+#  - added rotator_seperator
+#  - added support for elements longer than one char
+#  - fixed displaying of special chars (thx to peder for pointing this one out)
+#
+# Version 0.1
+#  - initial release
+#
+###
+################
+
+my ($pos,$char,$timeout,$boundary,$direction);
+
+$char = '';
+
+sub rotatorTimeout {
+	my @rot = split(Irssi::settings_get_str('rotator_seperator'), Irssi::settings_get_str('rotator_chars'));
+	my $len = scalar @rot;
+
+	$char = quotemeta($rot[$pos]);
+
+	if ($pos == $boundary) {
+		if (Irssi::settings_get_bool('rotator_bounce')) {
+			if ($direction < 0) {
+				$boundary = $len -1;
+			} else {
+				$boundary = 0;
+			}
+			$direction *= -1;
+		} else {
+			$pos = -1;
+		}
+	}
+
+	$pos += $direction;
+
+	Irssi::statusbar_items_redraw('rotator');
+}
+
+sub rotatorStatusbar() {
+	my ($item, $get_size_only) = @_;
+
+	$item->default_handler($get_size_only, "{sb ".$char."}", undef, 1);
+}
+
+sub rotatorSetup() {
+	my $time = Irssi::settings_get_int('rotator_speed');
+
+	Irssi::timeout_remove($timeout);
+
+	$boundary = scalar split(Irssi::settings_get_str('rotator_seperator'), Irssi::settings_get_str('rotator_chars')) -1;
+	$direction = +1;
+	$pos = 0;
+
+	if ($time < 10) {
+		Irssi::print("rotator: rotator_speed must be > 10");
+	} else {
+		$timeout = Irssi::timeout_add($time, 'rotatorTimeout' , undef);
+	}
+}
+
+Irssi::signal_add('setup changed', 'rotatorSetup');
+
+Irssi::statusbar_item_register('rotator', '$0', 'rotatorStatusbar');
+
+Irssi::settings_add_str('misc', 'rotator_chars', '. o 0 O 0 o');
+Irssi::settings_add_str('misc', 'rotator_seperator', ' ');
+Irssi::settings_add_int('misc', 'rotator_speed', 2000);
+Irssi::settings_add_bool('misc', 'rotator_bounce', 1);
+
+if (Irssi::settings_get_int('rotator_speed') < 10) {
+	Irssi::print("rotator: rotator_speed must be > 10");
+} else {
+	$timeout = Irssi::timeout_add(Irssi::settings_get_int('rotator_speed'), 'rotatorTimeout' , undef);
+}
+
+rotatorSetup();
diff --git a/scripts/sana_cmd.pl b/scripts/sana_cmd.pl
new file mode 100644
index 0000000..5278871
--- /dev/null
+++ b/scripts/sana_cmd.pl
@@ -0,0 +1,57 @@
+# /sana command, translates english-finnish-english.
+
+# BUGS: Doesn't handle UTF-8.
+
+use warnings;
+use strict;
+use HTML::Entities ();
+use Irssi ();
+use LWP::Simple ();
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => 'Johan "Ion" Kiviniemi, idea taken from Riku Voipio\'s sana.pl',
+    contact     => 'ion at hassers.org',
+    name        => 'sana-cmd',
+    description => '/sana command, translates english-finnish-english.',
+    license     => 'Public Domain',
+    url         => 'http://ion.amigafin.org/irssi/',
+    changed     => 'Sat Mar 16 06:20 EET 2002',
+);
+
+Irssi::command_bind(
+    'sana' => sub {
+        my @params = split /\s+/, shift;
+        unless (@params) {
+            Irssi::print("Sana: Usage: "
+                . (substr(Irssi::settings_get_str('cmdchars'), 0, 1) || "/")
+                . "sana word");
+            return;
+        }
+
+        my $word = $params[0];
+        $word =~ s/ /+/g;
+        $word =~ s/(\W)/'%' . unpack "H*", $1/eg;
+
+        if (my $content =
+            LWP::Simple::get(
+                'http://www.tracetech.net:8081/?word=' . $word))
+        {
+            $content = HTML::Entities::decode($content);
+            $content =~ s/\015?\012/ /g;
+            $content =~ s/<[^>]+>/ /g;     # Ugly, but it does the trick here.
+
+            my @words = $content =~ /(\S+)\s+(\(\S+?\))/g;
+
+            if (@words) {
+                Irssi::print("Sana: $word: @words");
+            } else {
+                Irssi::print("Sana: $word: No translations.");
+            }
+        } else {
+            Irssi::print("Sana failed.");
+        }
+    }
+);
diff --git a/scripts/schwaebisch.pl b/scripts/schwaebisch.pl
new file mode 100644
index 0000000..a8f2832
--- /dev/null
+++ b/scripts/schwaebisch.pl
@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+#
+#  Schwaebisch (irssi) 1.0.0
+#
+#  (c) 2000-2003 by Robert Scheck <irssi@robert-scheck.de>
+#
+#  Schwaebisch (irssi) is adapted from "schwob", a swabian translator 
+#  by Jens Schweikhardt <schweikh@noc.dfn.de>
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc.,
+#  59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.0";
+%IRSSI = (
+    authors     => "Robert Scheck",
+    contact     => "irssi\@robert-scheck.de",
+    name        => "Schwaebisch",
+    description => "/schwäbisch - translates your messages from german to swabian",
+    license     => "GNU GPL v2",
+    url         => "http://ftp.robert-scheck.de/linux/irssi/scripts/",
+    modules     => "",
+    changed     => "$VERSION",
+    commands    => "schwäbisch"
+);
+
+use Irssi 20020324;
+
+sub schwaebisch ($)
+{
+  my ($text) = @_;
+
+  # Komplette Wortersetzungen:
+  $text =~ s/\b([Dd])a\b([^ß])/$1o$2/g;
+  $text =~ s/\bdann\b/no/g;
+  $text =~ s/\bEs\b/S/g;
+  $text =~ s/\bes\b/s/g;
+  $text =~ s/\beine([sm])\b/oi$1/g;
+  $text =~ s/\bEine([sm])\b/Oi$1/g;
+  $text =~ s/\b([DdMmSs])eine?\b/$1ei/g;
+  $text =~ s/\b([DdMmSs])eins\b/$1eis/g;
+  $text =~ s/\b([DdMmSs])einer\b/$1einr/g;
+  $text =~ s/\beine\b/a/g;
+  $text =~ s/\bEine\b/A/g;
+  $text =~ s/\beiner\b/oinr/g;
+  $text =~ s/\bEiner\b/Oinr/g;
+  $text =~ s/\b([Ee])inen\b/$1n/g;        # einen -> en
+  $text =~ s/\b([Dd])as/$1es/g;           # das -> des
+  $text =~ s/\b[Ii]ch\b/I/g;              # ich -> i
+  $text =~ s/\b([Nn])icht\b/$1ed/g;       # nicht -> ned
+  $text =~ s/\b([Ss])ie\b/$1e/g;          # sie -> se
+  $text =~ s/\bwir\b/mir/g;
+  $text =~ s/\bWir\b/Mir/g;
+  $text =~ s/\b(he)?([Rr])unter/$2a/g;
+  $text =~ s/\b([Hh])at\b/$1ott/g;
+  $text =~ s/\b([Hh])aben\b/$1enn/g;
+  $text =~ s/\b([Hh])abe\b/$1ann/g;
+  $text =~ s/\b([Gg])ehen\b/$1anga/g;
+  $text =~ s/\b([Kk])ann\b/$1a/g;
+  $text =~ s/\b([Kk])önnen\b/$1enna/g;
+  $text =~ s/\b([Ww])ollen\b/$1ella/g;
+  $text =~ s/\b([Ss])ollten\b/$1oddad/g;
+  $text =~ s/\b([Ss])ollt?e?\b/$1odd/g;
+  $text =~ s/\bdiese?r?\b/sell/g;
+  $text =~ s/\bDiese?r?\b/Sell/g;
+  $text =~ s/\b([Aa])uch\b/$1o/g;        # auch -> ao
+  $text =~ s/\b([Nn])och\b/$1o/g;        # noch -> no
+  $text =~ s/\b([Ss])ind\b/$1end/g;      # sind -> send
+  $text =~ s/\b([Ss])chon\b/$1cho/g;     # schon -> scho
+  $text =~ s/\b([Mm])an\b/$1r/g;         # man -> mr
+  $text =~ s/\b([Dd])ie\b/$1/g;          # die -> d
+  $text =~ s/\b([Dd])a?rauf\b/$1ruff/g;  # darauf -> druff
+  $text =~ s/\bviele?s?\b/en Haufa/g;
+  $text =~ s/\bViele?s?\b/En Haufa/g;
+  $text =~ s/\bAuto|Daimler\b/Heilix Blechle/g;
+  $text =~ s/Marmelade|Konfitüre/Xälz/g;
+  $text =~ s/\b2\b/zwoi/g;
+  $text =~ s/\b5\b/fempf/g;
+  $text =~ s/\b15\b/fuffzehn/g;
+  $text =~ s/\b50\b/fuffzig/g;
+
+  # Am Wortanfang und Großgeschriebenes:
+  $text =~ s/\bAuf/Uff/g;
+  $text =~ s/\bauf/uff/g;
+  $text =~ s/\bEin/Oi/g;
+  $text =~ s/\bein/oi/g;
+  $text =~ s/\bMal/Mol/g;
+  $text =~ s/\bUm/Om/g;
+  $text =~ s/\bunge/og/g;
+  $text =~ s/\bUnge/Og/g;
+  $text =~ s/\bunver/ovr/g;
+  $text =~ s/\bUnver/Ovr/g;
+  $text =~ s/\bUn/On/g;
+  $text =~ s/\bun/on/g;
+  $text =~ s/\bUnd/Ond/g;
+  $text =~ s/\bin(s?)/en$1/g;            # in -> en,   ins -> ens
+  $text =~ s/\bIn(s?)/En$1/g;            # In -> En,   Ins -> Ens
+  $text =~ s/\bim/em/g;
+  $text =~ s/\bIm/Em/g;
+  $text =~ s/\b([Kk])ein/$1oin/g;
+  $text =~ s/\b([Nn])ein/$1oi/g;
+  $text =~ s/\b([Zz])usa/$1a/g;          # zusammen -> zamma
+
+  # Am Wortende:
+  $text =~ s/\Ben\b/a/g;                 # latschen -> latscha
+  $text =~ s/\Bel\b/l/g;                 # Sessel -> Sessl
+  $text =~ s/([^h])er\b/$1r/g;           # der -> dr
+  $text =~ s/([h])es\b/$1s/g;            # manches -> manchs
+  $text =~ s/\Bau\b/ao/g;                # lau -> lao
+  $text =~ s/([lt])ein\b/$1oi/g;         # Stein -> Stoi
+
+  # Beliebige Position:
+  $text =~ s/([Ff])rag/$1rog/g;
+  $text =~ s/teil/doil/g;
+  $text =~ s/Teil/Doil/g;
+  $text =~ s/([Hh])eim/$1oim/g;
+  $text =~ s/steht/stoht/g;
+  $text =~ s/um/om/g;
+  $text =~ s/imm/emm/g;                  # schlimm -> schlemm
+  $text =~ s/mal/mol/g;
+  $text =~ s/zwei/zwoi/g;
+  $text =~ s/ck/gg/g;
+  $text =~ s/([Ee])u/$1i/g;
+  $text =~ s/([Vv])er/$1r/g;
+  $text =~ s/([Gg])e([aflmnrs])/$1$2/g;  # angenommen -> angnommen
+  $text =~ s/([Ss])t/$1chd/g;            # st -> schd
+  $text =~ s/([Ss])p/$1chb/g;            # sp -> schb
+  $text =~ s/tio/zio/g;                  # Information -> Informazion
+  $text =~ s/\?/, ha?/g;
+  $text =~ s/!!/, Sagg Zemend!/g;
+  $text =~ s/!/, haidanai!/g;
+
+  # Spezielles:
+  $text =~ tr/TtPpÖöÜü/DdBbEeIi/;        # Globale Transformationen zum Schluss
+
+  # Was nach 'tr' stehen muss:
+  $text =~ s/ung/ong/g;
+  $text =~ s/und/ond/g;
+  $text =~ s/ind/end/g;
+
+  return $text;
+}
+
+sub cmd_schwaebisch ($$$)
+{
+  my ($arg, $server, $witem) = @_;
+  if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY'))
+  {
+    $witem->command('MSG '.$witem->{name}.' '.schwaebisch($arg));
+  }
+  else
+  {
+    print CLIENTCRAP "%B>>%n ".schwaebisch($arg);
+  }
+}
+
+Irssi::command_bind('schwäbisch', \&cmd_schwaebisch);
diff --git a/scripts/screen_away.pl b/scripts/screen_away.pl
new file mode 100644
index 0000000..86e3087
--- /dev/null
+++ b/scripts/screen_away.pl
@@ -0,0 +1,243 @@
+use Irssi;
+use strict;
+use FileHandle;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.9.7.1";
+%IRSSI = (
+    authors     => 'Andreas \'ads\' Scherbaum <ads@wars-nicht.de>',
+    name        => 'screen_away',
+    description => 'set (un)away, if screen is attached/detached',
+    license     => 'GPL v2',
+    url         => 'none',
+);
+
+# screen_away irssi module
+#
+# written by Andreas 'ads' Scherbaum <ads@ufp.de>
+#
+# changes:
+#  07.02.2004 fix error with away mode
+#             thanks to Michael Schiansky for reporting and fixing this one
+#  07.08.2004 new function for changing nick on away
+#  24.08.2004 fixing bug where the away nick was not storedcorrectly
+#             thanks for Harald Wurpts for help debugging this one
+#  17.09.2004 rewrote init part to use $ENV{'STY'}
+#  05.12.2004 add patch for remember away state
+#             thanks to Jilles Tjoelker <jilles@stack.nl>
+#             change "chatnet" to "tag"
+#  18.05.2007 fix '-one' for SILC networks
+#
+#
+# usage:
+#
+# put this script into your autorun directory and/or load it with
+#  /SCRIPT LOAD <name>
+#
+# there are 5 settings available:
+#
+# /set screen_away_active ON/OFF/TOGGLE
+# /set screen_away_repeat <integer>
+# /set screen_away_message <string>
+# /set screen_away_window <string>
+# /set screen_away_nick <string>
+#
+# active means, that you will be only set away/unaway, if this
+#   flag is set, default is ON
+# repeat is the number of seconds, after the script will check the
+#   screen status again, default is 5 seconds
+# message is the away message sent to the server, default: not here ...
+# window is a window number or name, if set, the script will switch
+#   to this window, if it sets you away, default is '1'
+# nick is the new nick, if the script goes away
+#   will only be used it not empty
+#
+# normal you should be able to rename the script to something other
+# than 'screen_away' (as example, if you dont like the name) by simple
+# changing the 'name' parameter in the %IRSSI hash at the top of this script
+
+
+# variables
+my $timer_name = undef;
+my $away_status = 0;
+my %old_nicks = ();
+my %away = ();
+
+# Register formats
+Irssi::theme_register(
+[
+ 'screen_away_crap', 
+ '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0'
+]);
+
+# if we are running
+my $screen_away_used = 0;
+
+# try to find out, if we are running in a screen
+# (see, if $ENV{STY} is set
+if (!defined($ENV{STY})) {
+  # just return, we will never be called again
+  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
+    "could not open status file for parent process (pid: " . getppid() . "): $!");
+  return;
+}
+
+my ($socket_name, $socket_path);
+
+# search for socket
+# normal we could search the socket file, ... if we know the path
+# but so we have to call one time the screen executable
+# disable locale
+# the quotes around C force perl 5.005_03 to use the shell
+# thanks to Jilles Tjoelker <jilles@stack.nl> for pointing this out
+my $socket = `LC_ALL="C" screen -ls`;
+
+
+
+my $running_in_screen = 0;
+# locale doesnt seems to be an problem (yet)
+if ($socket !~ /^No Sockets found/s) {
+  # ok, should have only one socket
+  $socket_name = $ENV{'STY'};
+  $socket_path = $socket;
+  $socket_path =~ s/^.+\d+ Sockets? in ([^\n]+)\.\n.+$/$1/s;
+  if (length($socket_path) != length($socket)) {
+    # only activate, if string length is different
+    # (to make sure, we really got a dir name)
+    $screen_away_used = 1;
+  } else {
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
+      "error reading screen informations from:");
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
+      "$socket");
+    return;
+  }
+}
+
+# last check
+if ($screen_away_used == 0) {
+  # we will never be called again
+  return;
+}
+
+# build complete socket name
+$socket = $socket_path . "/" . $socket_name;
+
+# register config variables
+Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1);
+Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5);
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_message', "not here ...");
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_window', "1");
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_nick', "");
+
+# init process
+screen_away();
+
+# screen_away()
+#
+# check, set or reset the away status
+#
+# parameter:
+#   none
+# return:
+#   0 (OK)
+sub screen_away {
+  my ($away, @screen, $screen);
+
+  # only run, if activated
+  if (Irssi::settings_get_bool($IRSSI{'name'} . '_active') == 1) {
+    if ($away_status == 0) {
+      # display init message at first time
+      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
+        "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)");
+    }
+    # get actual screen status
+    my @screen = stat($socket);
+    # 00100 is the mode for "user has execute permissions", see stat.h
+    if (($screen[2] & 00100) == 0) {
+      # no execute permissions, Detached
+      $away = 1;
+    } else {
+      # execute permissions, Attached
+      $away = 2;
+    }
+
+    # check if status has changed
+    if ($away == 1 and $away_status != 1) {
+      # set away
+      if (length(Irssi::settings_get_str($IRSSI{'name'} . '_window')) > 0) {
+        # if length of window is greater then 0, make this window active
+        Irssi::command('window goto ' . Irssi::settings_get_str($IRSSI{'name'} . '_window'));
+      }
+      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
+        "Set away");
+      my $message = Irssi::settings_get_str($IRSSI{'name'} . '_message');
+      if (length($message) == 0) {
+        # we have to set a message or we wouldnt go away
+        $message = "not here ...";
+      }
+      my ($server);
+      foreach $server (Irssi::servers()) {
+        if (!$server->{usermode_away}) {
+          # user isnt yet away
+          $away{$server->{'tag'}} = 0;
+          $server->command("AWAY " . (($server->{chat_type} ne 'SILC') ? "-one " : "") . "$message") if (!$server->{usermode_away});
+          if (length(Irssi::settings_get_str($IRSSI{'name'} . '_nick')) > 0) {
+            # only change, if actual nick isnt already the away nick
+            if (Irssi::settings_get_str($IRSSI{'name'} . '_nick') ne $server->{nick}) {
+              # keep old nick
+              $old_nicks{$server->{'tag'}} = $server->{nick};
+              # set new nick
+              $server->command("NICK " . Irssi::settings_get_str($IRSSI{'name'} . '_nick'));
+            }
+          }
+        } else {
+          # user is already away, remember this
+          $away{$server->{'tag'}} = 1;
+        }
+      }
+      $away_status = $away;
+    } elsif ($away == 2 and $away_status != 2) {
+      # unset away
+      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
+        "Reset away");
+      my ($server);
+      foreach $server (Irssi::servers()) {
+        if ($away{$server->{'tag'}} == 1) {
+          # user was already away, dont reset away
+          $away{$server->{'tag'}} = 0;
+          next;
+        }
+        $server->command("AWAY" . (($server->{chat_type} ne 'SILC') ? " -one" : "")) if ($server->{usermode_away});
+        if (defined($old_nicks{$server->{'tag'}}) and length($old_nicks{$server->{'tag'}}) > 0) {
+          # set old nick
+          $server->command("NICK " . $old_nicks{$server->{'tag'}});
+          $old_nicks{$server->{'tag'}} = "";
+        }
+      }
+      $away_status = $away;
+    }
+  }
+  # but everytimes install a new timer
+  register_screen_away_timer();
+  return 0;
+}
+
+# register_screen_away_timer()
+#
+# remove old timer and install a new one
+#
+# parameter:
+#   none
+# return:
+#   none
+sub register_screen_away_timer {
+  if (defined($timer_name)) {
+    # remove old timer, if defined
+    Irssi::timeout_remove($timer_name);
+  }
+  # add new timer with new timeout (maybe the timeout has been changed)
+  $timer_name = Irssi::timeout_add(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'screen_away', '');
+}
+
diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl
new file mode 100644
index 0000000..8b63139
--- /dev/null
+++ b/scripts/scriptassist.pl
@@ -0,0 +1,1160 @@
+# by Stefan "tommie" Tomanek
+#
+# scriptassist.pl
+
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2003020803';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'scriptassist',
+    description => 'keeps your scripts on the cutting edge',
+    license     => 'GPLv2',
+    url         => 'http://irssi.org/scripts/',
+    changed     => $VERSION,
+    modules     => 'Data::Dumper LWP::UserAgent (GnuPG)',
+    commands	=> "scriptassist"
+);
+
+use vars qw($forked %remote_db $have_gpg);
+
+use Irssi 20020324;
+use Data::Dumper;
+use LWP::UserAgent;
+use POSIX;
+
+# GnuPG is not always needed
+use vars qw($have_gpg @complist);
+$have_gpg = 0;
+eval "use GnuPG qw(:algo :trust);";
+$have_gpg = 1 if not ($@);
+
+sub show_help() {
+    my $help = "scriptassist $VERSION
+/scriptassist check
+    Check all loaded scripts for new available versions
+/scriptassist update <script|all>
+    Update the selected or all script to the newest version
+/scriptassist search <query>
+    Search the script database
+/scriptassist info <scripts>
+    Display information about <scripts>
+/scriptassist ratings <scripts>
+    Retrieve the average ratings of the the scripts
+/scriptassist top <num>
+    Retrieve the first <num> top rated scripts
+/scriptassist new <num>
+    Display the newest <num> scripts
+/scriptassist rate <script> <stars>
+    Rate the script with a number of stars ranging from 0-5
+/scriptassist contact <script>
+    Write an email to the author of the script
+    (Requires OpenURL)
+/scriptassist cpan <module>
+    Visit CPAN to look for missing Perl modules
+    (Requires OpenURL)
+/scriptassist install <script>
+    Retrieve and load the script
+/scriptassist autorun <script>
+    Toggles automatic loading of <script>
+";  
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("ScriptAssist", $text, "scriptassist help", 1);
+    #theme_box("ScriptAssist", $text, "scriptassist help", 1);
+}
+
+sub theme_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_header', $title);
+    foreach (split(/\n/, $text)) {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_inside', $_);
+    }
+    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_footer', $footer);
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }                                                                               $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub call_openurl ($) {
+    my ($url) = @_;
+    no strict "refs";
+    # check for a loaded openurl
+    if (defined %{ "Irssi::Script::openurl::" }) {
+        &{ "Irssi::Script::openurl::launch_url" }($url);
+    } else {
+        print CLIENTCRAP "%R>>%n Please install openurl.pl";
+    }
+    use strict;
+}
+
+sub bg_do ($) {
+    my ($func) = @_; 
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    if ($forked) {
+	print CLIENTCRAP "%R>>%n Please wait until your earlier request has been finished.";
+	return;
+    }
+    my $pid = fork();
+    $forked = 1;
+    if ($pid > 0) {
+	print CLIENTCRAP "%R>>%n Please wait...";
+        close $wh;
+        Irssi::pidwait_add($pid);
+        my $pipetag;
+        my @args = ($rh, \$pipetag, $func);
+        $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	eval {
+	    my @items = split(/ /, $func);
+	    my %result;
+	    my $ts1 = $remote_db{timestamp};
+	    my $xml = get_scripts();
+	    my $ts2 = $remote_db{timestamp};
+	    if (not($ts1 eq $ts2) && Irssi::settings_get_bool('scriptassist_cache_sources')) {
+		$result{db} = $remote_db{db};
+		$result{timestamp} = $remote_db{timestamp};
+	    }
+	    if ($items[0] eq 'check') {
+		$result{data}{check} = check_scripts($xml);
+	    } elsif ($items[0] eq 'update') {
+		shift(@items);
+		$result{data}{update} = update_scripts(\@items, $xml);
+	    } elsif ($items[0] eq 'search') {
+		shift(@items);
+		#$result{data}{search}{-foo} = 0;
+		foreach (@items) {
+		    $result{data}{search}{$_} = search_scripts($_, $xml);
+		}
+	    } elsif ($items[0] eq 'install') {
+		shift(@items);
+		$result{data}{install} = install_scripts(\@items, $xml);
+	    } elsif ($items[0] eq 'debug') {
+		shift(@items);
+		$result{data}{debug} = debug_scripts(\@items);
+	    } elsif ($items[0] eq 'ratings') {
+		shift(@items);
+		@items = @{ loaded_scripts() } if $items[0] eq "all";
+		#$result{data}{rating}{-foo} = 1;
+		my %ratings = %{ get_ratings(\@items, '') };
+		foreach (keys %ratings) {
+		    $result{data}{rating}{$_}{rating} = $ratings{$_}->[0];
+		    $result{data}{rating}{$_}{votes} = $ratings{$_}->[1];
+		}
+	    } elsif ($items[0] eq 'rate') {
+		#$result{data}{rate}{-foo} = 1;
+		$result{data}{rate}{$items[1]} = rate_script($items[1], $items[2]);
+	    } elsif ($items[0] eq 'info') {
+		shift(@items);
+		$result{data}{info} = script_info(\@items);
+	    } elsif ($items[0] eq 'echo') {
+		$result{data}{echo} = 1;
+	    } elsif ($items[0] eq 'top') {
+		my %ratings = %{ get_ratings([], $items[1]) };
+		foreach (keys %ratings) {
+                    $result{data}{rating}{$_}{rating} = $ratings{$_}->[0];
+                    $result{data}{rating}{$_}{votes} = $ratings{$_}->[1];
+                }
+	    } elsif ($items[0] eq 'new') {
+		my $new = get_new($items[1]);
+		$result{data}{new} = $new;
+	    } elsif ($items[0] eq 'unknown') {
+		my $cmd = $items[1];
+		$result{data}{unknown}{$cmd} = get_unknown($cmd, $xml);
+	    }
+	    my $dumper = Data::Dumper->new([\%result]);
+	    $dumper->Purity(1)->Deepcopy(1)->Indent(0);
+	    my $data = $dumper->Dump;
+	    print($wh $data);
+	};
+	close($wh);
+	POSIX::_exit(1);
+    }
+}
+
+sub get_unknown ($$) {
+    my ($cmd, $db) = @_;
+    foreach (keys %$db) {
+	next unless defined $db->{$_}{commands};
+	foreach my $item (split / /, $db->{$_}{commands}) {
+	    return { $_ => $db->{$_} } if ($item =~ /^$cmd$/i);
+	}
+    }
+    return undef;
+}
+
+sub script_info ($) {
+    my ($scripts) = @_;
+    no strict "refs";
+    my %result;
+    my $xml = get_scripts();
+    foreach (@{$scripts}) {
+	next unless (defined $xml->{$_.".pl"} || (defined %{ 'Irssi::Script::'.$_.'::' } && defined %{ 'Irssi::Script::'.$_.'::IRSSI' }));
+	$result{$_}{version} = get_remote_version($_, $xml);
+	my @headers = ('authors', 'contact', 'description', 'license', 'source');
+	foreach my $entry (@headers) {
+	    $result{$_}{$entry} = ${ 'Irssi::Script::'.$_.'::IRSSI' }{$entry};
+	    if (defined $xml->{$_.".pl"}{$entry}) {
+		$result{$_}{$entry} = $xml->{$_.".pl"}{$entry};
+	    }
+	}
+	if ($xml->{$_.".pl"}{signature_available}) {
+	    $result{$_}{signature_available} = 1;
+	}
+	if (defined $xml->{$_.".pl"}{modules}) {
+	    my $modules = $xml->{$_.".pl"}{modules};
+	    #$result{$_}{modules}{-foo} = 1;
+	    foreach my $mod (split(/ /, $modules)) {
+		my $opt = ($mod =~ /\((.*)\)/)? 1 : 0;
+		$mod = $1 if $1;
+		$result{$_}{modules}{$mod}{optional} = $opt;
+		$result{$_}{modules}{$mod}{installed} = module_exist($mod);
+	    }
+	} elsif (defined ${ 'Irssi::Script::'.$_.'::IRSSI' }{modules}) {
+	    my $modules = ${ 'Irssi::Script::'.$_.'::IRSSI' }{modules};
+	    foreach my $mod (split(/ /, $modules)) {
+		my $opt = ($mod =~ /\((.*)\)/)? 1 : 0;
+		$mod = $1 if $1;
+		$result{$_}{modules}{$mod}{optional} = $opt;
+		$result{$_}{modules}{$mod}{installed} = module_exist($mod);
+	    }
+	}
+	if (defined $xml->{$_.".pl"}{depends}) {
+	    my $depends = $xml->{$_.".pl"}{depends};
+	    foreach my $dep (split(/ /, $depends)) {
+		$result{$_}{depends}{$dep}{installed} = 1; #(defined ${ 'Irssi::Script::'.$dep }); 
+	    }
+	}
+    }
+    return \%result;
+}
+
+sub rate_script ($$) {
+    my ($script, $stars) = @_;
+    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
+    $ua->agent('ScriptAssist/'.$VERSION);
+    my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?&stars='.$stars.'&mode=rate&script='.$script);
+    my $response = $ua->request($request);
+    unless ($response->is_success() && $response->content() =~ /You already rated this script/) {
+	return 1;
+    } else {
+	return 0;
+    }
+}
+
+sub get_ratings ($$) {
+    my ($scripts, $limit) = @_;
+    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
+    $ua->agent('ScriptAssist/'.$VERSION);
+    my $script = join(',', @{$scripts});
+    my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?script='.$script.'&sort=rating&limit='.$limit);
+    my $response = $ua->request($request);
+    my %result;
+    if ($response->is_success()) {
+	foreach (split /\n/, $response->content()) {
+	    if (/<tr><td><a href=".*?">(.*?)<\/a>/) {
+		my $entry = $1;
+		if (/"><\/td><td>([0-9.]+)<\/td><td>(.*?)<\/td><td>/) {
+		    $result{$entry} = [$1, $2];
+		}
+	    }
+	}
+    }
+    return \%result;
+}
+
+sub get_new ($) {
+    my ($num) = @_;
+    my $result;
+    my $xml = get_scripts();
+    foreach (sort {$xml->{$b}{last_modified} cmp $xml->{$a}{last_modified}} keys %$xml) {
+	my %entry = %{ $xml->{$_} };
+	$result->{$_} = \%entry;
+	$num--;
+	last unless $num;
+    }
+    return $result;
+}
+sub module_exist ($) {
+    my ($module) = @_;
+    $module =~ s/::/\//g;
+    foreach (@INC) {
+	return 1 if (-e $_."/".$module.".pm");
+    }
+    return 0;
+}
+
+sub debug_scripts ($) {
+    my ($scripts) = @_;
+    my %result;
+    foreach (@{$scripts}) {
+	my $xml = get_scripts();
+	if (defined $xml->{$_.".pl"}{modules}) {
+	    my $modules = $xml->{$_.".pl"}{modules};
+	    foreach my $mod (split(/ /, $modules)) {
+                my $opt = ($mod =~ /\((.*)\)/)? 1 : 0;
+                $mod = $1 if $1;
+                $result{$_}{$mod}{optional} = $opt;
+                $result{$_}{$mod}{installed} = module_exist($mod);
+	    }
+	}
+    }
+    return(\%result);
+}
+
+sub install_scripts ($$) {
+    my ($scripts, $xml) = @_;
+    my %success;
+    #$success{-foo} = 1;
+    my $dir = Irssi::get_irssi_dir()."/scripts/";
+    foreach (@{$scripts}) {
+	if (get_local_version($_) && (-e $dir.$_.".pl")) {
+	    $success{$_}{installed} = -2;
+	} else {
+	    $success{$_} = download_script($_, $xml);
+	}
+    }
+    return \%success;
+}
+
+sub update_scripts ($$) {
+    my ($list, $database) = @_;
+    $list = loaded_scripts() if ($list->[0] eq "all" || scalar(@$list) == 0);
+    my %status;
+    #$status{-foo} = 1;
+    foreach (@{$list}) {
+	my $local = get_local_version($_);
+	my $remote = get_remote_version($_, $database);
+	next if $local eq '' || $remote eq '';
+	if (compare_versions($local, $remote) eq "older") {
+	    $status{$_} = download_script($_, $database);
+	} else {
+	    $status{$_}{installed} = -2;
+	}
+	$status{$_}{remote} = $remote;
+	$status{$_}{local} = $local;
+    }
+    return \%status;
+}
+
+sub search_scripts ($$) {
+    my ($query, $database) = @_;
+    my %result;
+    #$result{-foo} = " ";
+    foreach (sort keys %{$database}) {
+	my %entry = %{$database->{$_}};
+	my $string = $_." ";
+	$string .= $entry{description} if defined $entry{description};
+	if ($string =~ /$query/i) {
+	    my $name = $_;
+	    $name =~ s/\.pl$//;
+	    if (defined $entry{description}) {
+		$result{$name}{desc} = $entry{description};
+	    } else {
+		$result{$name}{desc} = "";
+	    }
+	    if (defined $entry{authors}) {
+		$result{$name}{authors} = $entry{authors};
+	    } else {
+		$result{$name}{authors} = "";
+	    }
+	    if (get_local_version($name)) {
+		$result{$name}{installed} = 1;
+	    } else {
+		$result{$name}{installed} = 0;
+	    }
+	}
+    }
+    return \%result;
+}
+
+sub pipe_input {
+    my ($rh, $pipetag) = @{$_[0]};
+    my @lines = <$rh>;
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    $forked = 0;
+    my $text = join("", @lines);
+    unless ($text) {
+	print CLIENTCRAP "%R<<%n Something weird happend";
+	return();
+    }
+    no strict "vars";
+    my $incoming = eval("$text");
+    if ($incoming->{db} && $incoming->{timestamp}) {
+    	$remote_db{db} = $incoming->{db};
+    	$remote_db{timestamp} = $incoming->{timestamp};
+    }
+    unless (defined $incoming->{data}) {
+	print CLIENTCRAP "%R<<%n Something weird happend";
+	return;
+    }
+    my %result = %{ $incoming->{data} };
+    @complist = ();
+    if (defined $result{new}) {
+	print_new($result{new});
+	push @complist, $_ foreach keys %{ $result{new} };
+    }
+    if (defined $result{check}) {
+	print_check(%{$result{check}});
+	push @complist, $_ foreach keys %{ $result{check} };
+    }
+    if (defined $result{update}) {
+	print_update(%{ $result{update} });
+	push @complist, $_ foreach keys %{ $result{update} };
+    }
+    if (defined $result{search}) {
+	foreach (keys %{$result{search}}) {
+	    print_search($_, %{$result{search}{$_}});
+	    push @complist, keys(%{$result{search}{$_}});
+	}
+    }
+    if (defined $result{install}) {
+	print_install(%{ $result{install} });
+	push @complist, $_ foreach keys %{ $result{install} };
+    }
+    if (defined $result{debug}) {
+	print_debug(%{ $result{debug} });
+    }
+    if (defined $result{rating}) {
+	print_ratings(%{ $result{rating} });
+	push @complist, $_ foreach keys %{ $result{rating} };
+    }
+    if (defined $result{rate}) {
+	print_rate(%{ $result{rate} });
+    }
+    if (defined $result{info}) {
+	print_info(%{ $result{info} });
+    }
+    if (defined $result{echo}) {
+	Irssi::print "ECHO";
+    }
+    if ($result{unknown}) {
+        print_unknown($result{unknown});
+    }
+
+}
+
+sub print_unknown ($) {
+    my ($data) = @_;
+    foreach my $cmd (keys %$data) {
+	print CLIENTCRAP "%R<<%n No script provides '/$cmd'" unless $data->{$cmd};
+	foreach (keys %{ $data->{$cmd} }) {
+	    my $text .= "The command '/".$cmd."' is provided by the script '".$data->{$cmd}{$_}{name}."'.\n";
+	    $text .= "This script is currently not installed on your system.\n";
+	    $text .= "If you want to install the script, enter\n";
+	    my ($name) = /(.*?)\.pl$/;
+	    $text .= "  %U/script install ".$name."%U ";
+	    my $output = draw_box("ScriptAssist", $text, "'".$_."' missing", 1);
+	    print CLIENTCRAP $output;
+	}
+    }
+}
+
+sub check_autorun ($) {
+    my ($script) = @_;
+    my $dir = Irssi::get_irssi_dir()."/scripts/";
+    if (-e $dir."/autorun/".$script.".pl") {
+	if (readlink($dir."/autorun/".$script.".pl") eq "../".$script.".pl") {
+	    return 1;
+	}
+    }
+    return 0;
+}
+
+sub array2table {
+    my (@array) = @_;
+    my @width;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)-1) {
+            my $l = $line->[$_];
+            $l =~ s/%[^%]//g;
+            $l =~ s/%%/%/g;
+            $width[$_] = length($l) if $width[$_]<length($l);
+        }
+    }   
+    my $text;
+    foreach my $line (@array) {
+        for (0..scalar(@$line)-1) {
+            my $l = $line->[$_];
+            $text .= $line->[$_];
+            $l =~ s/%[^%]//g;
+            $l =~ s/%%/%/g;
+            $text .= " "x($width[$_]-length($l)+1) unless ($_ == scalar(@$line)-1);
+        }
+        $text .= "\n";
+    }
+    return $text;
+}
+
+
+sub print_info (%) {
+    my (%data) = @_;
+    my $line;
+    foreach my $script (sort keys(%data)) {
+	my ($local, $autorun);
+	if (get_local_version($script)) {
+	    $line .= "%go%n ";
+	    $local = get_local_version($script);
+	} else {
+	    $line .= "%ro%n ";
+	    $local = undef;
+	}
+	if (defined $local || check_autorun($script)) {
+	    $autorun = "no";
+	    $autorun = "yes" if check_autorun($script);
+	} else {
+	    $autorun = undef;
+	}
+	$line .= "%9".$script."%9\n";
+	$line .= "  Version    : ".$data{$script}{version}."\n";
+	$line .= "  Source     : ".$data{$script}{source}."\n";
+	$line .= "  Installed  : ".$local."\n" if defined $local;
+	$line .= "  Autorun    : ".$autorun."\n" if defined $autorun;
+	$line .= "  Authors    : ".$data{$script}{authors};
+	$line .= " %Go-m signed%n" if $data{$script}{signature_available};
+	$line .= "\n";
+	$line .= "  Contact    : ".$data{$script}{contact}."\n";
+	$line .= "  Description: ".$data{$script}{description}."\n";
+	$line .= "\n" if $data{$script}{modules};
+	$line .= "  Needed Perl modules:\n" if $data{$script}{modules};
+
+        foreach (sort keys %{$data{$script}{modules}}) {
+            if ( $data{$script}{modules}{$_}{installed} == 1 ) {
+                $line .= "  %g->%n ".$_." (found)";
+            } else {
+                $line .= "  %r->%n ".$_." (not found)";
+            }
+	    $line .= " <optional>" if $data{$script}{modules}{$_}{optional};
+            $line .= "\n";
+        }
+	#$line .= "  Needed Irssi scripts:\n";
+	$line .= "  Needed Irssi Scripts:\n" if $data{$script}{depends};
+	foreach (sort keys %{$data{$script}{depends}}) {
+	    if ( $data{$script}{depends}{$_}{installed} == 1 ) {
+		$line .= "  %g->%n ".$_." (loaded)";
+	    } else {
+		$line .= "  %r->%n ".$_." (not loaded)";
+	    }
+	    #$line .= " <optional>" if $data{$script}{depends}{$_}{optional};
+	    $line .= "\n";
+	}
+    }
+    print CLIENTCRAP draw_box('ScriptAssist', $line, 'info', 1) ;
+}
+
+sub print_rate (%) {
+    my (%data) = @_;
+    my $line;
+    foreach my $script (sort keys(%data)) {
+	if ($data{$script}) {
+            $line .= "%go%n %9".$script."%9 has been rated";
+        } else {
+            $line .= "%ro%n %9".$script."%9 : Already rated this script";
+        }
+    }
+    print CLIENTCRAP draw_box('ScriptAssist', $line, 'rating', 1) ;
+}
+
+sub print_ratings (%) {
+    my (%data) = @_;
+    my @table;
+    foreach my $script (sort {$data{$b}{rating}<=>$data{$a}{rating}} keys(%data)) {
+	my @line;
+	if (get_local_version($script)) {
+	    push @line, "%go%n";
+	} else {
+	    push @line, "%yo%n";
+	}
+        push @line, "%9".$script."%9";
+	push @line, $data{$script}{rating};
+	push @line, "[".$data{$script}{votes}." votes]";
+	push @table, \@line;
+    }
+    print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'ratings', 1) ;
+}
+
+sub print_new ($) {
+    my ($list) = @_;
+    my @table;
+    foreach (sort {$list->{$b}{last_modified} cmp $list->{$a}{last_modified}} keys %$list) {
+	my @line;
+	my ($name) = /^(.*?)\.pl$/;
+        if (get_local_version($name)) {
+            push @line, "%go%n";
+        } else {
+            push @line, "%yo%n";
+        }
+	push @line, "%9".$name."%9";
+	push @line, $list->{$_}{last_modified};
+	push @table, \@line;
+    }
+    print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'new scripts', 1) ;
+}
+
+sub print_debug (%) {
+    my (%data) = @_;
+    my $line;
+    foreach my $script (sort keys %data) {
+	$line .= "%ro%n %9".$script."%9 failed to load\n";
+	$line .= "  Make sure you have the following perl modules installed:\n";
+	foreach (sort keys %{$data{$script}}) {
+	    if ( $data{$script}{$_}{installed} == 1 ) {
+		$line .= "  %g->%n ".$_." (found)";
+	    } else {
+		$line .= "  %r->%n ".$_." (not found)\n";
+		$line .= "     [This module is optional]\n" if $data{$script}{$_}{optional};
+		$line .= "     [Try /scriptassist cpan ".$_."]";
+	    }
+	    $line .= "\n";
+	}
+	print CLIENTCRAP draw_box('ScriptAssist', $line, 'debug', 1) ;
+    }
+}
+
+sub load_script ($) {
+    my ($script) = @_;
+    Irssi::command('script load '.$script);
+}
+
+sub print_install (%) {
+    my (%data) = @_;
+    my $text;
+    my ($crashed, @installed);
+    foreach my $script (sort keys %data) {
+	my $line;
+	if ($data{$script}{installed} == 1) {
+	    my $hacked;
+	    if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) {
+		if ($data{$script}{signed} >= 0) {
+		    load_script($script) unless (lc($script) eq lc($IRSSI{name}));
+		} else {
+		    $hacked = 1;
+		}
+	    } else {
+		load_script($script) unless (lc($script) eq lc($IRSSI{name}));
+	    }
+    	    if (get_local_version($script) && not lc($script) eq lc($IRSSI{name})) {
+		$line .= "%go%n %9".$script."%9 installed\n";
+		push @installed, $script;
+	    } elsif (lc($script) eq lc($IRSSI{name})) {
+		$line .= "%yo%n %9".$script."%9 installed, please reload manually\n";
+	    } else {
+    		$line .= "%Ro%n %9".$script."%9 fetched, but unable to load\n";
+		$crashed .= $script." " unless $hacked;
+	    }
+	    if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) {
+		foreach (split /\n/, check_sig($data{$script})) {
+		    $line .= "  ".$_."\n";
+		}
+	    }
+	} elsif ($data{$script}{installed} == -2) {
+	    $line .= "%ro%n %9".$script."%9 already loaded, please try \"update\"\n";
+	} elsif ($data{$script}{installed} <= 0) {
+	    $line .= "%ro%n %9".$script."%9 not installed\n";
+    	    foreach (split /\n/, check_sig($data{$script})) {
+		$line .= "  ".$_."\n";
+	    }
+	} else {
+	    $line .= "%Ro%n %9".$script."%9 not found on server\n";
+	}
+	$text .= $line;
+    }
+    # Inspect crashed scripts
+    bg_do("debug ".$crashed) if $crashed;
+    print CLIENTCRAP draw_box('ScriptAssist', $text, 'install', 1);
+    list_sbitems(\@installed);
+}
+
+sub list_sbitems ($) {
+    my ($scripts) = @_;
+    my $text;
+    foreach (@$scripts) {
+	no strict 'refs';
+	next unless defined %{ "Irssi::Script::${_}::" };
+	next unless defined %{ "Irssi::Script::${_}::IRSSI" };
+	my %header = %{ "Irssi::Script::${_}::IRSSI" };
+	next unless $header{sbitems};
+	$text .= '%9"'.$_.'"%9 provides the following statusbar item(s):'."\n";
+	$text .= '  ->'.$_."\n" foreach (split / /, $header{sbitems});
+    }
+    return unless $text;
+    $text .= "\n";
+    $text .= "Enter '/statusbar window add <item>' to add an item.";
+    print CLIENTCRAP draw_box('ScriptAssist', $text, 'sbitems', 1);
+}
+
+sub check_sig ($) {
+    my ($sig) = @_;
+    my $line;
+    my %trust = ( -1 => 'undefined',
+                   0 => 'never',
+		   1 => 'marginal',
+		   2 => 'fully',
+		   3 => 'ultimate'
+		 );
+    if ($sig->{signed} == 1) {
+	$line .= "Signature found from ".$sig->{sig}{user}."\n";
+	$line .= "Timestamp  : ".$sig->{sig}{date}."\n";
+	$line .= "Fingerprint: ".$sig->{sig}{fingerprint}."\n";
+	$line .= "KeyID      : ".$sig->{sig}{keyid}."\n";
+	$line .= "Trust      : ".$trust{$sig->{sig}{trust}}."\n";
+    } elsif ($sig->{signed} == -1) {
+	$line .= "%1Warning, unable to verify signature%n\n";
+    } elsif ($sig->{signed} == 0) {
+	$line .= "%1No signature found%n\n" unless Irssi::settings_get_bool('scriptassist_install_unsigned_scripts');
+    }
+    return $line;
+}
+
+sub print_search ($%) {
+    my ($query, %data) = @_;
+    my $text;
+    foreach (sort keys %data) {
+	my $line;
+	$line .= "%go%n" if $data{$_}{installed};
+	$line .= "%yo%n" if not $data{$_}{installed};
+	$line .= " %9".$_."%9 ";
+	$line .= $data{$_}{desc};
+	$line =~ s/($query)/%U$1%U/gi;
+	$line .= ' ('.$data{$_}{authors}.')';
+	$text .= $line." \n";
+    }
+    print CLIENTCRAP draw_box('ScriptAssist', $text, 'search: '.$query, 1) ;
+}
+
+sub print_update (%) { 
+    my (%data) = @_;
+    my $text;
+    my @table;
+    my $verbose = Irssi::settings_get_bool('scriptassist_update_verbose');
+    foreach (sort keys %data) {
+	my $signed = 0;
+	if ($data{$_}{installed} == 1) {
+	    my $local = $data{$_}{local};
+	    my $remote = $data{$_}{remote};
+	    push @table, ['%yo%n', '%9'.$_.'%9', 'upgraded ('.$local.'->'.$remote.')'];
+	    foreach (split /\n/, check_sig($data{$_})) {
+		push @table, ['', '', $_];
+	    }
+	    if (lc($_) eq lc($IRSSI{name})) {
+		push @table, ['', '', "%R%9Please reload manually%9%n"];
+	    } else {
+		load_script($_);
+	    }
+	} elsif ($data{$_}{installed} == 0 || $data{$_}{installed} == -1) {
+	    push @table, ['%yo%n', '%9'.$_.'%9', 'not upgraded'];
+            foreach (split /\n/, check_sig($data{$_})) {
+		push @table, ['', '', $_];
+            } 
+	} elsif ($data{$_}{installed} == -2 && $verbose) {
+	    my $local = $data{$_}{local};
+	    push @table, ['%go%n', '%9'.$_.'%9', 'already at the latest version ('.$local.')'];
+    	}
+    }
+    $text = array2table(@table);
+    print CLIENTCRAP draw_box('ScriptAssist', $text, 'update', 1) ;
+}
+
+sub contact_author ($) {
+    my ($script) = @_;
+    no strict 'refs';
+    return unless defined %{ "Irssi::Script::${script}::" };
+    my %header = %{ "Irssi::Script::${script}::IRSSI" };
+    if (defined $header{contact}) {
+	my @ads = split(/ |,/, $header{contact});
+	my $address = $ads[0];
+	$address .= '?subject='.$script;
+	$address .= '_'.get_local_version($script) if defined get_local_version($script);
+	call_openurl($address);
+    }
+}
+
+sub get_scripts {
+    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
+    $ua->agent('ScriptAssist/'.$VERSION);
+    $ua->env_proxy();
+    my @mirrors = split(/ /, Irssi::settings_get_str('scriptassist_script_sources'));
+    my %sites_db;
+    my $fetched = 0;
+    my @sources;
+    foreach my $site (@mirrors) {
+	my $request = HTTP::Request->new('GET', $site);
+	if ($remote_db{timestamp}) {
+	    $request->if_modified_since($remote_db{timestamp});
+	}
+	my $response = $ua->request($request);
+	next unless $response->is_success;
+	$fetched = 1;
+	my $data = $response->content();
+	my ($src, $type);
+	if ($site =~ /(.*\/).+\.(.+)/) {
+	    $src = $1;
+	    $type = $2;
+	}
+	push @sources, $src;
+	#my @header = ('name', 'contact', 'authors', 'description', 'version', 'modules', 'last_modified');
+	if ($type eq 'dmp') {
+	    no strict 'vars';
+	    my $new_db = eval "$data";
+	    foreach (keys %$new_db) {
+		if (defined $sites_db{script}{$_}) {
+		    my $old = $sites_db{$_}{version};
+		    my $new = $new_db->{$_}{version};
+		    next if (compare_versions($old, $new) eq 'newer');
+		}
+		#foreach my $key (@header) {
+		foreach my $key (keys %{ $new_db->{$_} }) {
+		    next unless defined $new_db->{$_}{$key};
+		    $sites_db{$_}{$key} = $new_db->{$_}{$key};
+		}
+		$sites_db{$_}{source} = $src;
+	    }
+	} else {
+	    ## FIXME Panic?!
+	}
+	
+    }
+    if ($fetched) {
+	# Clean database
+	foreach (keys %{$remote_db{db}}) {
+	    foreach my $site (@sources) {
+		if ($remote_db{db}{$_}{source} eq $site) {
+		    delete $remote_db{db}{$_};
+		    last;
+		}
+	    }
+	}
+	$remote_db{db}{$_} = $sites_db{$_} foreach (keys %sites_db);
+	$remote_db{timestamp} = time();
+    }
+    return $remote_db{db};
+}
+
+sub get_remote_version ($$) {
+    my ($script, $database) = @_;
+    return $database->{$script.".pl"}{version};
+}
+
+sub get_local_version ($) {
+    my ($script) = @_;
+    no strict 'refs';
+    return unless defined %{ "Irssi::Script::${script}::" };
+    my $version = ${ "Irssi::Script::${script}::VERSION" };
+    return $version;
+}
+
+sub compare_versions ($$) {
+    my ($ver1, $ver2) = @_;
+    my @ver1 = split /\./, $ver1;
+    my @ver2 = split /\./, $ver2;
+    #if (scalar(@ver2) != scalar(@ver1)) {
+    #    return 0;
+    #}       
+    my $cmp = 0;
+    ### Special thanks to Clemens Heidinger
+    $cmp ||= $ver1[$_] <=> $ver2[$_] || $ver1[$_] cmp $ver2[$_] for 0..scalar(@ver2);
+    return 'newer' if $cmp == 1;
+    return 'older' if $cmp == -1;
+    return 'equal';
+}
+
+sub loaded_scripts {
+    no strict 'refs';
+    my @modules;
+    foreach (sort grep(s/::$//, keys %Irssi::Script::)) {
+        #my $name    = ${ "Irssi::Script::${_}::IRSSI" }{name};
+        #my $version = ${ "Irssi::Script::${_}::VERSION" };
+	push @modules, $_;# if $name && $version;
+    }
+    return \@modules;
+
+}
+
+sub check_scripts {
+    my ($data) = @_;
+    my %versions;
+    #$versions{-foo} = 1;
+    foreach (@{loaded_scripts()}) {
+        my $remote = get_remote_version($_, $data);
+        my $local =  get_local_version($_);
+	my $state;
+	if ($local && $remote) {
+	    $state = compare_versions($local, $remote);
+	} elsif ($local) {
+	    $state = 'noversion';
+	    $remote = '/';
+	} else {
+	    $state = 'noheader';
+	    $local = '/';
+	    $remote = '/';
+	}
+	if ($state) {
+	    $versions{$_}{state} = $state;
+	    $versions{$_}{remote} = $remote;
+	    $versions{$_}{local} = $local;
+	}
+    }
+    return \%versions;
+}
+
+sub download_script ($$) {
+    my ($script, $xml) = @_;
+    my %result;
+    my $site = $xml->{$script.".pl"}{source};
+    $result{installed} = 0;
+    $result{signed} = 0;
+    my $dir = Irssi::get_irssi_dir();
+    my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
+    $ua->agent('ScriptAssist/'.$VERSION);
+    my $request = HTTP::Request->new('GET', $site.'/scripts/'.$script.'.pl');
+    my $response = $ua->request($request);
+    if ($response->is_success()) {
+	my $file = $response->content();
+	mkdir $dir.'/scripts/' unless (-e $dir.'/scripts/');
+	local *F;
+	open(F, '>'.$dir.'/scripts/'.$script.'.pl.new');
+	print F $file;
+	close(F);
+	if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) {
+	    my $ua2 = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
+	    $ua->agent('ScriptAssist/'.$VERSION);
+	    my $request2 = HTTP::Request->new('GET', $site.'/signatures/'.$script.'.pl.asc');
+	    my $response2 = $ua->request($request2);
+	    if ($response2->is_success()) {
+		local *S;
+		my $sig_dir = $dir.'/scripts/signatures/';
+		mkdir $sig_dir unless (-e $sig_dir);
+		open(S, '>'.$sig_dir.$script.'.pl.asc');
+		my $file2 = $response2->content();
+		print S $file2;
+		close(S);
+		my $sig;
+		foreach (1..2) {
+		    # FIXME gpg needs two rounds to load the key
+		    my $gpg = new GnuPG();
+		    eval {
+			$sig = $gpg->verify( file => $dir.'/scripts/'.$script.'.pl.new', signature => $sig_dir.$script.'.pl.asc' );
+		    };
+		}
+		if (defined $sig->{user}) {
+		    $result{installed} = 1;
+		    $result{signed} = 1;
+		    $result{sig}{$_} = $sig->{$_} foreach (keys %{$sig});
+		} else {
+		    # Signature broken?
+		    $result{installed} = 0;
+		    $result{signed} = -1;
+		}
+	    } else {
+		$result{signed} = 0;
+		$result{installed} = -1;
+		$result{installed} = 1 if Irssi::settings_get_bool('scriptassist_install_unsigned_scripts');
+	    }
+	} else {
+	    $result{signed} = 0;
+	    $result{installed} = -1;
+	    $result{installed} = 1 if Irssi::settings_get_bool('scriptassist_install_unsigned_scripts');
+	}
+    }
+    if ($result{installed}) {
+	my $old_dir = "$dir/scripts/old/";
+	mkdir $old_dir unless (-e $old_dir);
+	rename "$dir/scripts/$script.pl", "$old_dir/$script.pl.old" if -e "$dir/scripts/$script.pl";
+	rename "$dir/scripts/$script.pl.new", "$dir/scripts/$script.pl";
+    }
+    return \%result;
+}
+
+sub print_check (%) {
+    my (%data) = @_;
+    my $text;
+    my @table;
+    foreach (sort keys %data) {
+	my $state = $data{$_}{state};
+	my $remote = $data{$_}{remote};
+	my $local = $data{$_}{local};
+	if (Irssi::settings_get_bool('scriptassist_check_verbose')) {
+	    push @table, ['%go%n', '%9'.$_.'%9', 'Up to date. ('.$local.')'] if $state eq 'equal';
+	}
+	push @table, ['%mo%n', '%9'.$_.'%9', "No version information available on network."] if $state eq "noversion";
+	push @table, ['%mo%n', '%9'.$_.'%9', 'No header in script.'] if $state eq "noheader";
+	push @table, ['%bo%n', '%9'.$_.'%9', "Your version is newer (".$local."->".$remote.")"] if $state eq "newer";
+	push @table, ['%ro%n', '%9'.$_.'%9', "A new version is available (".$local."->".$remote.")"] if $state eq "older";;
+    }
+    $text = array2table(@table);
+    print CLIENTCRAP draw_box('ScriptAssist', $text, 'check', 1) ;
+}
+
+sub toggle_autorun ($) {
+    my ($script) = @_;
+    my $dir = Irssi::get_irssi_dir()."/scripts/";
+    mkdir $dir."autorun/" unless (-e $dir."autorun/");
+    return unless (-e $dir.$script.".pl");
+    if (check_autorun($script)) {
+	if (readlink($dir."/autorun/".$script.".pl") eq "../".$script.".pl") {
+	    if (unlink($dir."/autorun/".$script.".pl")) {
+		print CLIENTCRAP "%R>>%n Autorun of ".$script." disabled";
+	    } else {
+		print CLIENTCRAP "%R>>%n Unable to delete link";
+	    }
+	} else {
+	    print CLIENTCRAP "%R>>%n ".$dir."/autorun/".$script.".pl is not a correct link";
+	}
+    } else {
+	symlink("../".$script.".pl", $dir."/autorun/".$script.".pl");
+    	print CLIENTCRAP "%R>>%n Autorun of ".$script." enabled";
+    }
+}
+
+sub sig_script_error ($$) {
+    my ($script, $msg) = @_;
+    return unless Irssi::settings_get_bool('scriptassist_catch_script_errors');
+    if ($msg =~ /Can't locate (.*?)\.pm in \@INC \(\@INC contains:(.*?) at/) {
+        my $module = $1;
+        $module =~ s/\//::/g;
+	missing_module($module);
+    }
+}
+
+sub missing_module ($$) {
+    my ($module) = @_;
+    my $text;
+    $text .= "The perl module %9".$module."%9 is missing on your system.\n";
+    $text .= "Please ask your administrator about it.\n";
+    $text .= "You can also check CPAN via '/scriptassist cpan ".$module."'.\n";
+    print CLIENTCRAP &draw_box('ScriptAssist', $text, $module, 1);
+}
+
+sub cmd_scripassist ($$$) {
+    my ($arg, $server, $witem) = @_;
+    my @args = split(/ /, $arg);
+    if ($args[0] eq 'help' || $args[0] eq '-h') {
+	show_help();
+    } elsif ($args[0] eq 'check') {
+	bg_do("check");
+    } elsif ($args[0] eq 'update') {
+	shift @args;
+	bg_do("update ".join(' ', @args));
+    } elsif ($args[0] eq 'search' && defined $args[1]) {
+	shift @args;
+	bg_do("search ".join(" ", @args));
+    } elsif ($args[0] eq 'install' && defined $args[1]) {
+	shift @args;
+	bg_do("install ".join(' ', @args));
+    } elsif ($args[0] eq 'contact' && defined $args[1]) {
+	contact_author($args[1]);
+    } elsif ($args[0] eq 'ratings' && defined $args[1]) {
+	shift @args;
+	bg_do("ratings ".join(' ', @args));
+    } elsif ($args[0] eq 'rate' && defined $args[1] && defined $args[2]) {
+	shift @args;
+	bg_do("rate ".join(' ', @args)) if ($args[2] >= 0 && $args[2] < 6);
+    } elsif ($args[0] eq 'info' && defined $args[1]) {
+	shift @args;
+	bg_do("info ".join(' ', @args));
+    } elsif ($args[0] eq 'echo') {
+	bg_do("echo");
+    } elsif ($args[0] eq 'top') {
+	my $number = defined $args[1] ? $args[1] : 10;
+	bg_do("top ".$number);
+    } elsif ($args[0] eq 'cpan' && defined $args[1]) {
+	call_openurl('http://search.cpan.org/search?mode=module&query='.$args[1]);
+    } elsif ($args[0] eq 'autorun' && defined $args[1]) {
+	toggle_autorun($args[1]);
+    } elsif ($args[0] eq 'new') {
+	my $number = defined $args[1] ? $args[1] : 5;
+	bg_do("new ".$number);
+    }
+}
+
+sub sig_command_script_load ($$$) {
+    my ($script, $server, $witem) = @_;
+    no strict;
+    $script = $2 if $script =~ /(.*\/)?(.*?)\.pl$/;
+    if (defined %{ "Irssi::Script::${script}::" }) {
+	if (defined &{ "Irssi::Script::${script}::pre_unload" }) {
+	    print CLIENTCRAP "%R>>%n Triggering pre_unload function of $script...";
+	    &{ "Irssi::Script::${script}::pre_unload" }();
+	}
+    }
+}
+
+sub sig_default_command ($$) {
+    my ($cmd, $server) = @_;
+    return unless Irssi::settings_get_bool("scriptassist_check_unknown_commands");
+    bg_do('unknown '.$cmd);
+}
+
+sub sig_complete ($$$$$) {
+    my ($list, $window, $word, $linestart, $want_space) = @_;
+    return unless $linestart =~ /^.script(assist)? (install|rate|ratings|update|check|contact|info|autorun)/;
+    my @newlist;
+    my $str = $word;
+    foreach (@complist) {
+	if ($_ =~ /^(\Q$str\E.*)?$/) {
+	    push @newlist, $_;
+	}
+    }
+    foreach (@{loaded_scripts()}) {
+	push @newlist, $_ if /^(\Q$str\E.*)?$/;
+    }
+    $want_space = 0;
+    push @$list, $_ foreach @newlist;
+    Irssi::signal_stop();
+}
+
+
+Irssi::settings_add_str($IRSSI{name}, 'scriptassist_script_sources', 'http://www.irssi.org/scripts/scripts.dmp');
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_cache_sources', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_update_verbose', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_verbose', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_catch_script_errors', 1);
+
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_install_unsigned_scripts', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_use_gpg', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_integrate', 1);
+Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_unknown_commands', 1);
+
+Irssi::signal_add_first("default command", \&sig_default_command);
+Irssi::signal_add_first('complete word', \&sig_complete);
+Irssi::signal_add_first('command script load', \&sig_command_script_load);
+Irssi::signal_add_first('command script unload', \&sig_command_script_load);
+
+if (defined &Irssi::signal_register) {
+    Irssi::signal_register({ 'script error' => [ 'Irssi::Script', 'string' ] });
+    Irssi::signal_add_last('script error', \&sig_script_error);
+}
+
+Irssi::command_bind('scriptassist', \&cmd_scripassist);
+
+Irssi::theme_register(['box_header', '%R,--[%n$*%R]%n',
+'box_inside', '%R|%n $*',
+'box_footer', '%R`--<%n$*%R>->%n',
+]);
+
+foreach my $cmd ( ( 'check', 'install', 'update', 'contact', 'search', '-h', 'help', 'ratings', 'rate', 'info', 'echo', 'top', 'cpan', 'autorun', 'new') ) {
+    Irssi::command_bind('scriptassist '.$cmd => sub {
+			cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); });
+    if (Irssi::settings_get_bool('scriptassist_integrate')) {
+	Irssi::command_bind('script '.$cmd => sub {
+    			    cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); });
+    }
+}
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /scriptassist help for help';
diff --git a/scripts/scripthelp.pl b/scripts/scripthelp.pl
new file mode 100644
index 0000000..316aeb2
--- /dev/null
+++ b/scripts/scripthelp.pl
@@ -0,0 +1,37 @@
+use Irssi;
+
+use vars qw($VERSION %IRSSI %HELP);
+$VERSION = "0.9";
+%IRSSI = (
+	authors         => "Maciek \'fahren\' Freudenheim",
+	contact         => "fahren\@bochnia.pl",
+	name            => "Scripts help",
+	description     => "Provides access to script\'s help",
+	license         => "GNU GPLv2 or later",
+	changed         => "Sat Apr 13 02:23:37 CEST 2002"
+);
+$HELP{scripthelp} = "
+Provides help for irssi's perl scripts.
+
+All what you have to do is to add
+\$HELP{commandname} = \"
+    your help goes here
+\";
+to your script.
+";
+
+sub cmd_help {
+	my ($args, $server, $win) = @_;
+
+	# from scriptinfo.pl
+	for (sort grep s/::$//, keys %Irssi::Script::) {
+		my $help = ${ "Irssi::Script::${_}::HELP" }{$args};
+		if ($help) {
+			Irssi::signal_stop();
+			Irssi::print("$help");
+			return;
+		}
+	}		
+}
+
+Irssi::command_bind("help", "cmd_help");
diff --git a/scripts/scriptinfo.pl b/scripts/scriptinfo.pl
new file mode 100644
index 0000000..7de21f2
--- /dev/null
+++ b/scripts/scriptinfo.pl
@@ -0,0 +1,118 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+# This script assumes all windows have the same width, which will
+# practically always be true.
+
+use Irssi qw(active_win command_bind);
+$VERSION = '1.20';
+%IRSSI = (
+    authors	=> 'Juerd',
+    contact	=> 'juerd@juerd.nl',
+    name	=> 'Script Information',
+    description	=> 'Access script information',
+    license	=> 'Public Domain',
+    url		=> 'http://juerd.nl/irssi/',
+    changed	=> 'Tue Mar 19 11:00 CET 2002',
+);
+
+sub iprint {
+    Irssi::print(join('', @_), MSGLEVEL_CRAP);
+}
+
+command_bind 'script info' => sub {
+    my ($data, $server) = @_;
+    if ($data !~ /\S/) {
+        iprint 'Usage: /script info <scriptname>';
+        return;    
+    }
+
+    no strict 'refs';
+    iprint "\c_== Script info for $data ==";
+
+    if (not exists $Irssi::Script::{ "${data}::" }) {
+        iprint 'Script is not loaded.';
+        return;
+    }
+	
+    my %info = %{ "Irssi::Script::${data}::IRSSI" };
+    $info{version} = ${ "Irssi::Script::${data}::VERSION" };
+	
+    if (join('', values %info) eq '') {
+	iprint 'Script has no $VERSION and no %IRSSI. ',
+	       'Please ask the author to read ',
+	       'http://juerd.nl/irssi/proposal.txt';
+
+	return;
+    }
+    my $max = 0;
+    length > $max and $max = length for keys %info;
+    my $width = active_win->{width} - 14 - $max;
+    s/([^\n]{$width})/$1\n/g      for values %info;
+    s/(?<=\n)/' ' x ($max + 2)/eg for values %info;
+    for (qw/name version description authors contact/) {
+        if (exists $info{$_}) {
+    	    iprint"\cC5$_\cC", ' ' x (2 + $max - length $_), $info{$_};
+    	    delete $info{$_};
+        }
+    }
+    for (sort keys %info) {
+        iprint "\cC5$_\cC", ' ' x (2 + $max - length $_), $info{$_};
+    }
+};
+
+command_bind 'script sv' => sub {
+    my ($data, $server) = @_;
+    if ($data !~ /\S/) {
+	iprint 'Usage: /script sv <scriptname>';
+        return;
+    }
+
+    no strict 'refs';
+    if (not exists $Irssi::Script::{ "${data}::" }) {
+        iprint 'Module is not loaded.';
+        return;
+    }
+
+    my $name    = ${ "Irssi::Script::${data}::IRSSI" }{name};
+    my $url     = ${ "Irssi::Script::${data}::IRSSI" }{url};
+    my $version = ${ "Irssi::Script::${data}::VERSION" };
+
+    my $text = "$name $version";
+    $text .= " - $url" if $url;
+
+    if ($text !~ /\S/) {
+        iprint 'Script has no information.';
+        return;
+    }
+
+    active_win->command("say $text");
+};
+
+command_bind 'script versions' => sub {
+    # Actually, upgrading them would be quite easy :)
+    # Update: Actually, it's possible now! use scriptadmin.pl :)
+    my ($data, $server) = @_;
+
+    no strict 'refs';
+    my @modules;
+    for (sort grep s/::$//, keys %Irssi::Script::) {
+        my $name    = ${ "Irssi::Script::${_}::IRSSI" }{name};
+	my $version = ${ "Irssi::Script::${_}::VERSION" };
+	push @modules, [$_, $name, $version] if $name && $version;
+    }
+    my @max;
+    for (@modules) {
+	my $i = -1;;
+	length > $max[++$i] and $max[$i] = length for @$_; 
+    }
+    my $i;
+    my $text = join "\n", map {
+        $i = 0 ||
+        join ' ', map {
+	    $_ . ' ' x ($max[$i++] - length)
+	} @$_
+    } @modules;
+    iprint $text;
+};    
+
diff --git a/scripts/scrmable.pl b/scripts/scrmable.pl
new file mode 100644
index 0000000..e49c30d
--- /dev/null
+++ b/scripts/scrmable.pl
@@ -0,0 +1,80 @@
+#!/usr/bin/perl -w
+# Coyprgiht © 2003 Jamie Zawinski <jwz@jwz.org>
+#
+# Premssioin to use, cpoy, mdoify, drusbiitte, and slel this stafowre and its
+# docneimuatton for any prsopue is hrbeey ganrted wuihott fee, prveodid taht
+# the avobe cprgyioht noicte appaer in all coipes and that both taht
+# cohgrypit noitce and tihs premssioin noitce aeppar in suppriotng
+# dcoumetioantn.  No rpeersneatiotns are made about the siuatbliity of tihs
+# srofawte for any puorpse.  It is provedid "as is" wiuotht exerpss or 
+# ilmpied waanrrty.
+#
+# Cretaed: 13-Sep-2003.
+# Fix0red: 15-Sep-2003.
+# Irssified: 15-Dec-2003.
+
+require 5;
+use diagnostics;
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+#TODO make it work on /me too, feel free to contribute
+
+$VERSION = '1.01';
+%IRSSI = (
+  authors => 'jwz, irssified by Mikachu',
+  contact => 'Mikachu @ freenode',
+  description => 'wtires lkie tihs',
+  name => 'scrmable',
+  license => 'as is'
+);
+
+sub atuo_scrmable {
+  return unless Irssi::settings_get_bool('scrmable_on');
+  my ($msg, $server, $witem) = @_;
+  Irssi::signal_stop();
+  Irssi::signal_remove('send text', 'atuo_scrmable');
+  Irssi::signal_emit('send text', scrmable("$msg"), $server, $witem);
+  Irssi::signal_add('send text', 'atuo_scrmable');
+}
+
+sub cmd_scrmable {
+  my ($msg, $server, $nick, $address, $channel) = @_;
+  Irssi::active_win()->command(Irssi::settings_get_str('cmdchars') . " " .scrmable("$msg"));
+}
+  
+sub scrmable {
+  my $endresult;
+  my ($msg) = @_;
+
+  foreach (split (/(\w+)/, "$msg")) {
+
+    if (m/\w/) {
+      my @w = split (//);
+      my $A = shift @w;
+      my $Z = pop @w;
+      $endresult = $endresult . $A;
+      if (defined ($Z)) {
+        my $i = $#w+1;
+        while ($i--) {
+          my $j = int rand ($i+1);
+          @w[$i,$j] = @w[$j,$i];
+        }
+        foreach (@w) {
+          $endresult = $endresult . $_;
+        }
+        $endresult = $endresult . $Z;
+      }
+    } else {
+      $endresult = $endresult . "$_";
+    }
+  }
+  return $endresult;
+}
+
+Irssi::command_bind('scrmable', 'cmd_scrmable');
+Irssi::settings_add_bool('scrmable', 'scrmable_on', 0);
+Irssi::signal_add('send text', 'atuo_scrmable');
+
+print CLIENTCRAP "Type /set scrmable_on on to enable automatic molesting and /scrmable to use it manually";
diff --git a/scripts/scroller.pl b/scripts/scroller.pl
new file mode 100644
index 0000000..5bc4abb
--- /dev/null
+++ b/scripts/scroller.pl
@@ -0,0 +1,95 @@
+#DEMONENS SCROLLER SCRIPT!
+#scroller.pl
+
+#This script will create a small 10-character scroller on the irssi status bar.
+#It is pretty much useless.
+#I use it to remind myself about meetings, phonecalls I'm supposed to make etc
+#
+#Enjoy to the extent possible.
+#
+# -Demonen
+#
+#To make it show up in irrsi, do this:
+# 1) put scroller.pl in ~/.irssi/scripts
+#    This is where irssi expects to find scripts
+#
+# 2) in irssi, give the command /script load scroller
+#    Some stuff will appear in your status window.
+#
+# 3) in irssi, give the command /statusbar window add -after more -alignment right scroller
+#    This will enable the scroller element on the status bar.
+#
+# 4) in irssi, give the command /set scrollerText <something>
+#    This will scroll the text <something>
+#
+# 5) in irssi, give the command /set scrollerSpeed <something>
+#    This is the delay in milliseconds before it cycles to the next character.
+#    I use 200 here, but anything above 10 is just fine.
+
+
+use Irssi;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.01";
+%IRSSI = (
+	authors=> 'Demonen',
+	contact=> 'demmydemon@gmail.com',
+	name=> 'scroller',
+	description=> 'Scrolls specified text on the status bar',
+	license=> 'Public Domain',
+);
+
+
+my ($scalarSize, $subset, $start, $end, $timeout, $count, $time, $scalar);
+
+
+sub scrollerStatusbar() {
+    my ($item, $get_size_only) = @_;
+        $item->default_handler($get_size_only, "{sb ".$subset."}", undef, 1);
+}
+
+
+sub scrollerTimeout() {
+    if ($count > $scalarSize){
+        $count = 0;
+    }else{
+        $count++;
+    }
+    $start = $count;
+    $end   = 10;
+    $subset = (substr $scalar, $start, $end);    
+    Irssi::statusbar_items_redraw('scroller');
+}
+
+
+sub scrollerUpdate() {
+    $scalar = Irssi::settings_get_str('scrollerText');
+    $scalar = "- - - ->".$scalar."- - - ->";
+    print "Scrolling: \" $scalar \"";
+    $scalarSize = length($scalar) -11;
+    $count = 0;
+    Irssi::timeout_remove($timeout);
+    if (Irssi::settings_get_int('scrollerSpeed') < 10){
+        Irssi::settings_set_int('scrollerSpeed', 10);
+        print "Sorry, minimum delay for timeouts in irssi is 10 ms.  Delay set to 10 ms.";
+    }
+    $timeout = Irssi::timeout_add(Irssi::settings_get_int('scrollerSpeed'), 'scrollerTimeout' , undef);
+}
+
+
+sub scrollerStart() {
+    Irssi::settings_add_str('misc', 'scrollerText', 'Scrolling text not defined.  Use "/set scrollerText <something>" to define it');
+    Irssi::settings_add_int('misc', 'scrollerSpeed', 200);
+    $timeout = Irssi::timeout_add(Irssi::settings_get_int('scrollerSpeed'), 'scrollerTimeout' , undef);
+    Irssi::statusbar_item_register('scroller', '$0', 'scrollerStatusbar');
+    Irssi::command_bind scrollthis => \&scrollthis;
+    Irssi::signal_add('setup changed', 'scrollerUpdate');
+    &scrollerUpdate();
+}
+
+
+&scrollerStart();
+print "Use \"/set scrollerText <something>\" to scroll <something>";
+print "Use \"/set scrollerSpeed <int>\" to set the delay in milliseconds";
diff --git a/scripts/securemsg.pl b/scripts/securemsg.pl
new file mode 100644
index 0000000..c719482
--- /dev/null
+++ b/scripts/securemsg.pl
@@ -0,0 +1,509 @@
+# Thanks to Geert and Karl "Sique" Siegemund on their work on the whitelist.pl script that is the basis for my work.
+# 
+# Supports multiple servers
+#
+# /set securemsg_nicks phyber etc
+# nicks that are allowed to msg us (whitelist checks for a valid nick before a valid host)
+#
+# /set securemsg_hosts *!*@*isp.com *!ident@somewhere.org
+# Hosts that are allowed to message us, space delimited
+#
+# /sm add nick <list of nicks>
+# puts new nicks into the whitelist_nicks list
+#
+# /sm add host <list of hosts>
+# puts new hosts into the whitelist_hosts list
+#
+# /sm del nick <list of nicks>
+# removes the nicks from whitelist_nicks
+#
+# /sm del host <list of hosts>
+# removes the hosts from whitelist_hosts
+#
+# /sm nicks
+# shows the current whitelist_nicks
+#
+# /sm hosts
+# shows the current whitelist_hosts
+#
+# /sm accept <nick> [message]
+# accept chat from nick
+#
+# /sm reject <nick> [message]
+# reject chat from nick
+#
+# /sm clear <nick>
+# clears messages from nick without ignoring
+#
+##
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use Irssi::UI;
+use Irssi::TextUI;
+
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2.1";
+my $APPVERSION = "Securemsg v2.1";
+%IRSSI = (
+	  authors	=> "Jari Matilainen, a lot of code borrowed from whitelist.pl by David O\'Rourke and Karl Siegemund",
+	  contact	=> "vague`!#irssi\@freenode on irc ",
+	  name		=> "securemsg",
+	  description	=> "An irssi adaptation of securequery.mrc found in the Acidmax mIRC script. :), now with multiserver support",
+	  licence	=> "GPLv2",
+	  changed	=> "10.09.2007 11:30pm GST"
+);
+
+my $whitenick;
+my $whitehost;
+my $tstamp;
+my %messages = ();
+
+# A mapping to convert simple regexp (* and ?) into Perl regexp
+my %htr = ( );
+foreach my $i (0..255) {
+    my $ch = chr($i);
+    $htr{$ch} = "\Q$ch\E";
+}
+$htr{'?'} = '.';
+$htr{'*'} = '.*';
+
+# A list of settings we can use and change
+my %types = ( 'nicks'    => 'securemsg_nicks',
+	      'hosts'    => 'securemsg_hosts' );
+
+sub lc_host($) {
+    my ($host) = @_;
+    $host =~ s/(.+)\@(.+)/sprintf("%s@%s", $1, lc($2));/eg;
+    return $host;
+}
+
+sub timestamp {
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+    my @timestamp = ($year+1900,$mon+1,$mday,$hour,$min,$sec);
+    if($timestamp[1]<10) {
+        $timestamp[1] = "0".$timestamp[1];
+    }
+    if($timestamp[2]<10) {
+        $timestamp[2] = "0".$timestamp[2];
+    }
+    if($timestamp[3]<10) {
+        $timestamp[3] = "0".$timestamp[3];
+    }
+    if($timestamp[4]<10) {
+        $timestamp[4] = "0".$timestamp[4];
+    }
+    $tstamp = "$timestamp[0]/$timestamp[1]/$timestamp[2] $timestamp[3]:$timestamp[4] ";
+}
+
+# This one gets called from IRSSI if we get a private message (PRIVMSG)
+sub securemsg_check {
+    my ($server, $msg, $nick, $address) = @_;
+    my $nicks         = Irssi::settings_get_str('securemsg_nicks');
+    my $hosts         = Irssi::settings_get_str('securemsg_hosts');
+    my $mmsg          = Irssi::settings_get_str('securemsg_customhold');
+    my $hostmask      = "$nick!$address";
+    $nick = lc($nick);
+    return if $server->ignore_check($nick,"","","",MSGLEVEL_MSGS);
+
+    # Are we already talking?
+    return if $server->query_find($nick);
+    return if $server->{nick} eq $nick;
+
+    # Nicks are the easiest to handle with the least computational effort.
+    # So do them before hosts and networks.
+    foreach my $whitenick (split(/\s+/, "$nicks")) {
+        $nick = lc($nick);
+        $whitenick = lc($whitenick);
+	# Simple check first: Is the nick itself whitelisted?
+	return if ($nick eq $whitenick);
+    }
+    
+    # Hostmasks are somewhat more sophisticated, because they allow wildcards
+    foreach my $whitehost (split(/\s+/, "$hosts")) {
+	# Allow if the hostmask matches
+	return if $server->mask_match_address($whitehost,"*",$hostmask);
+    }
+
+    # stop if the message isn't from a whitelisted address
+    # print a notice if that setting is enabled
+    # this could flood your status window if someone is flooding you with messages
+
+    if ((!defined $mmsg) || ($mmsg eq " ") || ($mmsg eq "")) {
+        $mmsg = "Please standby for acknowledgement. I am using «$APPVERSION» for irssi. You will be notified if accepted. Until then your messages will be ignored.";
+    }
+    else {
+	$mmsg = $mmsg." «$APPVERSION»";
+    }
+
+    $server->command("^NOTICE $nick $mmsg") if(!exists $messages{$nick}{$server->{tag}});
+
+    #Save message from $nick
+    timestamp();
+    my $channel;
+    my @channels = $server->channels();
+    foreach my $chan (@channels) {
+        if($chan->nick_find_mask($nick)) {
+            $channel = $chan;
+            last;
+        }
+    }
+    
+    my $tmpmsg = $tstamp."<".$nick."!".(($channel)?$channel->{name}:"none")."@".lc($server->{tag})."> ".$msg;
+    push @{$messages{$nick}{lc($server->{tag})}{messages}},$tmpmsg;
+
+    refresh_securemsg();
+    Irssi::command_bind("sm accept $nick",\&cmd_accept);
+    Irssi::command_bind("sm reject $nick",\&cmd_reject);
+    Irssi::command_bind("sm accept $nick net",\&cmd_accept);
+    Irssi::command_bind("sm reject $nick net",\&cmd_reject);
+    Irssi::command_bind("sm accept $nick net ".lc($server->{tag}),\&cmd_accept);
+    Irssi::command_bind("sm reject $nick net ".lc($server->{tag}),\&cmd_reject);
+    Irssi::command_bind("sm show $nick",\&cmd_show);
+    Irssi::command_bind("sm show $nick net ",\&cmd_show);
+    Irssi::command_bind("sm show $nick net ".lc($server->{tag}),\&cmd_show);
+    Irssi::signal_stop();
+    return;
+}
+
+sub usage {
+    print("Usage: sm add|del <nick>|<host> list of nicks/hosts | sm nicks|hosts | sm accept|reject <nick> [net <chatnet>] [message] | sm show <nick> [net <chatnet>] | sm help");
+}
+
+sub cmd_accept {
+    my ($args, $active_server, $witem) = @_;
+    my ($nick, $rest) = split /\s+/, $args, 2;
+    my ($arg, $net);
+    my $server;
+    my $mmsg          = Irssi::settings_get_str('securemsg_customaccept');
+    my $msg;
+
+    if($rest =~ /^net/) {
+	($arg, $net, $rest) = split /\s+/, $rest, 3;
+    }
+
+    $nick = lc($nick);
+    $net = lc($net);
+
+    if((!defined $nick) || ($nick eq "")) {
+	usage;
+	return;
+    }
+
+    return if(!exists $messages{$nick});
+
+    if((!defined $rest) || ($rest eq " ") || ($rest eq "")) {
+	if((!defined $mmsg) || ($mmsg eq " ") || ($mmsg eq "")) {
+            $rest = "Hold on, I'm switching windows...";
+	}
+	else {
+	    $rest = $mmsg;
+	}
+    }
+
+    if(defined $net && !(($net eq " ") || ($net eq ""))) {
+	foreach (keys %{$messages{$nick}}) {
+	    if(lc($_) eq $net) {
+		$server = Irssi::server_find_tag($_);
+		last;
+	    }
+	}
+    }
+    elsif(keys(%{$messages{$nick}}) == 1) {
+	foreach (keys %{$messages{$nick}}) {
+	    $server = Irssi::server_find_tag($_);
+	}
+    }
+    else {
+	print("You have to specify a chatnet, for example /sm accept john net EFNet");
+	return;
+    }
+
+    $server->command("MSG $nick $rest");
+
+    my $query = $server->query_find($nick);
+    $query->set_active();
+    foreach $msg (@{$messages{$nick}{lc($server->{tag})}{messages}}) {
+        $query->print("%B-%W!%B-%n $msg", MSGLEVEL_CLIENTCRAP);
+    }
+
+    if(keys(%{$messages{$nick}}) > 1) {
+        delete $messages{$nick}{lc($server->{tag})};
+    }
+    else {
+        delete $messages{$nick};
+    }
+
+    Irssi::command_unbind("sm accept $nick",\&cmd_accept);
+    Irssi::command_unbind("sm reject $nick",\&cmd_reject);
+    Irssi::command_unbind("sm accept $nick net",\&cmd_accept);
+    Irssi::command_unbind("sm reject $nick net",\&cmd_reject);
+    Irssi::command_unbind("sm accept $nick net ".lc($server->{tag}),\&cmd_accept);
+    Irssi::command_unbind("sm reject $nick net ".lc($server->{tag}),\&cmd_reject);
+    Irssi::command_unbind("sm show $nick",\&cmd_show);
+    Irssi::command_unbind("sm show $nick net ",\&cmd_show);
+    Irssi::command_unbind("sm show $nick net ".lc($server->{tag}),\&cmd_show);
+    refresh_securemsg();
+}
+
+sub cmd_reject {
+    my ($args, $active_server, $winit) = @_;
+    my ($nick, $rest) = split /\s+/, $args, 2;
+    my $time          = Irssi::settings_get_str('securemsg_ignoretime');
+    my ($arg, $net);
+    my $server;
+
+    if($rest =~ /^net/) {
+        ($arg, $net, $rest) = split /\s+/, $rest, 3;
+    }
+
+    if((!defined $time) || ($time eq "") || ($time eq " ")) {
+	$time = "600";
+    }
+
+    $nick = lc($nick);
+    $net = lc($net);
+
+    if((!defined $nick) || ($nick eq "")) {
+	usage;
+	return;
+    }
+
+    if(defined $net && !(($net eq " ") || ($net eq ""))) {
+        foreach (keys %{$messages{$nick}}) {
+            if(lc($_) eq $net) {
+                $server = Irssi::server_find_tag($_);
+                last;
+            }
+        }
+    }
+    elsif(keys(%{$messages{$nick}}) == 1) {
+        foreach (keys %{$messages{$nick}}) {
+            $server = Irssi::server_find_tag($_);
+        }
+    }
+    else {
+        print("You have to specify a chatnet, for example /sm reject john net EFNet");
+        return;
+    }
+
+    if((defined $rest) && !(($rest eq " ") || ($rest eq ""))) {
+        $server->command("^NOTICE $nick $rest");
+    }
+
+    if(keys(%{$messages{$nick}}) > 1) {
+	delete $messages{$nick}{lc($server->{tag})};
+    }
+    else {
+	delete $messages{$nick};
+    }
+
+    Irssi::command_unbind("sm accept $nick",\&cmd_accept);
+    Irssi::command_unbind("sm reject $nick",\&cmd_reject);
+    Irssi::command_unbind("sm accept $nick net",\&cmd_accept);
+    Irssi::command_unbind("sm reject $nick net",\&cmd_reject);
+    Irssi::command_unbind("sm accept $nick net ".lc($server->{tag}),\&cmd_accept);
+    Irssi::command_unbind("sm reject $nick net ".lc($server->{tag}),\&cmd_reject);
+    Irssi::command_unbind("sm show $nick",\&cmd_show);
+    Irssi::command_unbind("sm show $nick net ",\&cmd_show);
+    Irssi::command_unbind("sm show $nick net ".lc($server->{tag}),\&cmd_show);
+    $server->command("^IGNORE -time $time $nick MSGS DCCMSGS NOTICES");
+    refresh_securemsg();
+}
+
+sub cmd_add {
+    my ($args, $server, $witem) = @_;
+    my $str = '';
+    my @list = ( );
+    my ($type, $rest) = split /\s+/, $args, 2;
+
+    # What type of settings we want to change?
+    if (($type eq "nick") || ($type eq "host")) {
+        $type = $type."s";
+    } 
+    my $settings = $types{$type};
+
+    # If we didn't get a syntactically correct command, put out an error
+    if(!defined $settings && defined $type) {
+        usage;
+        return;
+    }
+
+    # Get the current value of the setting we want to change
+    my $str = Irssi::settings_get_str($settings) if defined $settings;
+    # What are we doing?
+    # Add the list to the end
+    $str .= " $rest";
+    # Convert into an array
+    @list = split /\s+/, $str;
+    # Make the array unique (see Perl FAQ)
+    undef my %saw;
+    @list = grep(!$saw{$_}++, @list);
+    # Put the array together
+    $str = join ' ', @list;
+
+    print "SecureMsg ${type}: $str";
+    Irssi::settings_set_str($settings, $str);
+}
+
+sub cmd_del {
+    my ($args, $server, $witem) = @_;
+    my @list = ( );
+    my ($type, $rest) = split /\s+/, $args, 2;
+
+    # What type of settings we want to change?
+    if (($type eq "nick") || ($type eq "host")) {
+        $type = $type."s";
+    }
+    my $settings = $types{$type};
+
+    # If we didn't get a syntactically correct command, put out an error
+    if(!defined $settings && defined $type) {
+        usage;
+        return;
+    }
+
+    my $str = Irssi::settings_get_str($settings);
+
+    # Convert the list into an array
+    @list = split /\s+/, $str;
+    # Escape all letters to protect the Perl Regexp special characters
+    $rest =~ s/(.)/$htr{$1}/g;
+    # Convert the removal list into a Perl regexp
+    $rest =~ s/\s+/$|^/g;
+    # Use grep() to filter out all occurences of the removal list
+    $str = join(' ', grep {!/^$rest$/} @list);
+
+    print "SecureMsg ${type}: $str";
+    Irssi::settings_set_str($settings, $str);
+}
+
+sub cmd_nicks {
+    print "SecureMsg nicks: ".Irssi::settings_get_str($types{nicks});
+}
+
+sub cmd_hosts {
+    print "SecureMsg hosts: ".Irssi::settings_get_str($types{hosts});
+}
+
+sub cmd_help {
+#    usage;
+    print ( <<EOF
+Commands:
+SM HELP                                    - SHOWS THIS HELP
+SM ADD NICK|HOST <nicks>|<hosts>           - ADDS/DELETES A SPACE SEPARATED LIST OF NICKS OR HOSTS
+SM NICKS|HOSTS                             - DISPLAYS THE CURRENT WHITELISTED NICKS OR HOSTS
+SM ACCEPT <nick> [net <chatnet>] [message] - ALLOWS MSG'S FROM nick
+SM REJECT <nick> [net <chatnet>] [message] - DOESN'T ALLOW MESSAGES FROM nick
+SM SHOW <nick> [net <chatnet>]             - SHOWS CURRENT MESSAGES FROM nick WITHOUT ACCEPTING OR REJECTING nick
+EOF
+    );
+}
+
+sub cmd_show {
+    my ($args, $server, $witem) = @_;
+    my ($nick, $rest) = split /\s+/, $args, 2;
+    my ($arg, $net);
+    my $server;
+
+    if($rest =~ /^net/) {
+        ($arg, $net) = split /\s+/, $rest, 2;
+    }
+
+    $net = lc($net);
+
+    if((!defined $nick) || (!exists $messages{$nick})) {
+	usage;
+	return;
+    }
+
+    if(defined $net && !(($net eq " ") || ($net eq ""))) {
+        foreach (keys %{$messages{$nick}}) {
+            if($_ eq $net) {
+                $server = Irssi::server_find_tag($_);
+                last;
+            }
+        }
+    }
+    elsif(keys(%{$messages{$nick}}) == 1) {  
+        foreach (keys %{$messages{$nick}}) {
+            $server = Irssi::server_find_tag($_);
+        }
+    }
+    else {
+        print("You have to specify a chatnet, for example /sm reject john net EFNet");
+        return;
+    }
+
+    foreach my $msg (@{$messages{$nick}{lc($server->{tag})}{messages}}) {
+        print CLIENTCRAP "%B-%W!%B-%n $msg";
+    }
+}
+
+sub securemsg {
+    my ($item,$get_size_only) = @_;
+    my $result = 0;
+    my $nicks = "";
+    foreach my $nick (keys %messages) {
+	foreach my $tag (keys %{$messages{$nick}}) {
+	    if ($nicks eq "") {
+		if(keys %{$messages{$nick}} > 1) {
+		    $nicks = $nick."@".$tag;
+		}
+		else {
+		    $nicks = $nick;
+		}
+	    }
+	    else {
+		if(keys %{$messages{$nick}} > 1) {
+		    $nicks = $nicks.", ".$nick."@".$tag;
+		}
+		else {
+		    $nicks = $nicks.", ".$nick;
+		}
+	    }
+	    $result++;
+	}
+    }
+    if ($result ne 0) {
+        $result = $result." - \%_$nicks\%_";
+    }
+    $item->default_handler($get_size_only, undef, $result, 0);
+}
+
+sub refresh_securemsg {
+  Irssi::statusbar_items_redraw('securemsg');
+}
+
+foreach (keys(%types)) {
+    Irssi::settings_add_str('SecureMsg', $types{$_}, '');
+}
+
+Irssi::settings_add_str('Securemsg', 'securemsg_customhold', '');
+Irssi::settings_add_str('Securemsg', 'securemsg_customaccept', '');
+Irssi::settings_add_str('Securemsg', 'securemsg_ignoretime', '');
+
+Irssi::signal_add_first('message private', \&securemsg_check);
+Irssi::statusbar_item_register('securemsg', '{sb msgs: $0-}', 'securemsg');
+
+Irssi::command_bind 'sm' => sub {
+    my ( $data, $server, $item ) = @_;
+    $data =~ s/\s+$//g;
+    Irssi::command_runsub ('sm', $data, $server, $item ) ;
+};
+Irssi::command_bind('sm add',\&cmd_add);
+Irssi::command_bind('sm del',\&cmd_del);
+Irssi::command_bind('sm nicks',\&cmd_nicks);
+Irssi::command_bind('sm hosts',\&cmd_hosts);
+Irssi::command_bind('sm show',\&cmd_show);
+Irssi::command_bind('sm accept',\&cmd_accept);
+Irssi::command_bind('sm reject',\&cmd_reject);
+Irssi::command_bind('sm help',\&cmd_help);
+Irssi::command_bind('sm add host',\&cmd_add);
+Irssi::command_bind('sm add nick',\&cmd_add);
+Irssi::command_bind('sm del host',\&cmd_del);
+Irssi::command_bind('sm del nick',\&cmd_del);
+
+refresh_securemsg();
diff --git a/scripts/seen.pl b/scripts/seen.pl
new file mode 100644
index 0000000..9d811b4
--- /dev/null
+++ b/scripts/seen.pl
@@ -0,0 +1,1198 @@
+use strict;
+use 5.005_62;       # for 'our'
+use Irssi 20020428; # for Irssi::signal_continue
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.8";
+%IRSSI = (
+    authors     => 'Marcin \'Qrczak\' Kowalczyk',
+    contact     => 'qrczak@knm.org.pl',
+    name        => 'Seen',
+    description => 'Tell people when other people were online',
+    license     => 'GPL',
+    url         => 'http://qrnik.knm.org.pl/~qrczak/irssi/seen.pl',
+);
+
+######## User interface ########
+
+# COMMANDS
+# ========
+#
+# /seen <nick>
+#     Show last seen info about nick.
+#
+# /say_seen [<to_whom>] <nick>
+#     Say last seen info about nick in the current window. If to_whom
+#     is present, answer as if that person issued a seen request.
+#
+# /listen on [[<chatnet>] <channel>]
+#     Turn on listening for seen requests in the current or given channel.
+#
+# /listen off [[<chatnet>] <channel>]
+#     Turn off listening for seen requests in the current or given channel.
+#
+# /listen delay [[<chatnet>] <channel>]
+#     Turn on listening for seen requests in the current or given channel.
+#     We will reply only if nobody else replies with a message containing
+#     the given nick (probably a seen reply from another bot) in seen_delay
+#     seconds.
+#
+# /listen private [[<chatnet>] <channel>]
+#     Turn on listening for seen requests in the current or given channel.
+#     The reply will be sent as a private notice.
+#
+# /listen disable [[<chatnet>] <channel>]
+#     Same as "off", used to distinguish channels where we won't listen
+#     for sure from channels we didn't specify anything about.
+#
+# /listen list
+#     Show which channels we are listening for seen requests on.
+
+# Forms of seen requests from other people:
+#     Public message "<our_nick>: seen <nick>".
+#     Public message "seen <nick>" on channels where we are listening.
+#     Private message "seen <nick>".
+#     Any of the above with "!seen" instead of "seen".
+#     Any of the above with a question mark at the end.
+#     Any of the above with "jest <nick>?", "by³ <nick>?", "by³a <nick>?",
+#       "<nick> jest?", "<nick> by³?", "<nick> by³a?", with optional
+#       "czy" at the beginning - provided that we know that nick
+#       (to avoid treating some other message as a seen request).
+
+# VARIABLES
+# =========
+#
+# seen_expire_after
+#     After that number of days we forget about nicks and addresses.
+#     Default 30.
+#
+# seen_expire_asked_after
+#     After that number of days we forget that that somebody was
+#     searched for and don't send a notice. Default 7.
+#
+# seen_delay   
+#     On channels set to '/listen delay' we reply if after that number
+#     of seconds nobody else replies. Default 60.
+
+######## Internal structure of the database in memory ########
+
+# %listen_on      = (chatnet => {channel => listening})
+# %address_absent = (chatnet => {address => time})
+# %nicks          = (chatnet => {address => [nick]})
+# %last_nicks     = (chatnet => {address => nick})
+# %how_quit       = (chatnet => {address => how_quit})
+# %spoke          = (chatnet => {address => time})
+# %nick_absent    = (chatnet => {nick => time})
+# %addresses      = (chatnet => {nick => address})
+# %orig_nick      = (chatnet => {nick => nick})
+# %channels       = (chatnet => {nick => [channel]})
+# %asked          = (chatnet => {nick => {nick_asks => time}})
+
+# listening:
+#   'on', undef = 'off', 'delay', 'private', 'disable'
+
+# how_quit:
+#   ['disappeared']
+#   ['was_left', kanal]
+#   ['left', channel, reason]
+#   ['quit', channels, reason]
+#   ['was_kicked', channel, kicker, reason]
+
+######## Global variables ########
+
+our %listen_on = ();
+our %address_absent = ();
+our %nicks = ();
+our %last_nicks = ();
+our %how_quit = ();
+our %spoke = ();
+our %nick_absent = ();
+our %addresses = ();
+our %orig_nick = ();
+our %channels = ();
+our %asked = ();
+
+Irssi::settings_add_int "seen", "seen_expire_after", 30;      # days
+Irssi::settings_add_int "seen", "seen_expire_asked_after", 7; # days
+Irssi::settings_add_int "seen", "seen_delay", 60;             # seconds
+
+our $database     = Irssi::get_irssi_dir . "/seen.dat";
+our $database_tmp = Irssi::get_irssi_dir . "/seen.tmp";
+our $database_old = Irssi::get_irssi_dir . "/seen.dat~";
+
+######## Utilities ########
+
+our $nick_regexp = qr/
+  [A-Z\[\\\]^_`a-z{|}\200-\377]
+  [\-0-9A-Z\[\\\]^_`a-z{|}\200-\377]*
+  /x;
+our $seen_regexp = qr/^ *!?seen +($nick_regexp) *\?* *$/i;
+our $maybe_seen_regexp1 = qr/
+  ^\ *
+  (?:a\ +)?
+  (?:(?:if|when|here)\ +)?
+  (?:(?:dzi[¶s]|today|last time|recently|ju[¿z]|here|tutaj|mo[¿z]e)\ +)*
+  (?:in|by[³l]a?)\ +
+  (?:(?:dzi[¶s]|today|last time|recently|ju[¿z]|here|tutaj|mo[¿z]e)\ +)*
+  ($nick_regexp)
+  (?:\ +(?:dzi[¶s]|today|last time|recently|ju[¿z]|here|tutaj|mo[¿z]e))*
+  \ *\?+\ *$/ix;
+our $maybe_seen_regexp2 = qr/
+  ^\ *
+  (?:a\ +)?
+  (?:(?:czy|kiedy|gdzie)\ +)?
+  (?:(?:dzi[¶s]|today|last time|recently|ju[¿z]|here|tutaj|mo[¿z]e)\ +)*
+  ($nick_regexp)?\ +
+  (?:(?:dzi[¶s]|today|last time|recently|ju[¿z]|here|tutaj|mo[¿z]e)\ +)*
+  (?:in|by[³l]a?)
+  (?:\ +(?:dzi[¶s]|today|last time|recently|ju[¿z]|here|tutaj|mo[¿z]e))*
+  \ *\?+\ *$/ix;
+our $exclude_regexp = qr/^(?:kto[¶s]?|who?|that?|that|ladna|i|a)$/i;
+
+sub lc_irc($) {
+    my ($str) = @_;
+    $str =~ tr/A-Z[\\]/a-z{|}/;
+    return $str;
+}
+
+sub uc_irc($) {
+    my ($str) = @_;
+    $str =~ tr/a-z{|}/A-Z[\\]/;
+    return $str;
+}
+
+our %lc_regexps = ();
+
+sub lc_irc_regexp($) {
+    my ($str) = @_;
+    $str =~ s/(.)/my $lc = lc_irc $1; my $uc = uc_irc $1; "[\Q$lc$uc\E]"/eg;
+    return $str;
+}
+
+sub canonical($) {
+    my ($address) = @_;
+    $address =~ s/^[\^~+=-]//;
+    return $address;
+}
+
+sub show_list(@) {
+    @_ == 0 and return "";
+    @_ == 1 and return $_[0];
+    return join(", ", @_[0..$#_-1]) . " i " . $_[$#_];
+}
+
+sub show_time_since($) {
+    my ($time) = @_;
+    my $diff = time() - $time;
+    $diff >= 0 or return "nie wiem kiedy (zegarek mi sie popsul)";
+    my $s = $diff % 60; $diff = int(($diff - $s) / 60);
+    my $m = $diff % 60; $diff = int(($diff - $m) / 60);
+    my $h = $diff % 24; $diff = int(($diff - $h) / 24);
+    my $d = $diff;
+    my $s_txt = $s ? "${s}s " : "";
+    my $m_txt = $m ? "${m}m " : "";
+    my $h_txt = $h ? "${h}h " : "";
+    my $d_txt = $d ? "${d}d " : "";
+    return
+      $d ? "$d_txt${h_txt}ago" :
+      $h ? "$h_txt${m_txt}ago" :
+      $m ? "$m_txt${s_txt}ago" :
+      "${s}s ago";
+}
+
+sub all_channels($@) {
+    my ($chatnet, @nicks) = @_;
+    my %chans = ();
+    foreach my $nick (@nicks) {
+        if ($channels{$chatnet}{lc_irc $nick}) {
+            foreach my $channel (@{$channels{$chatnet}{lc_irc $nick}}) {
+                $chans{$channel} = 1;
+            }
+        }
+    }
+    return keys %chans;
+}
+
+sub is_private($) {
+    my ($channel) = @_;
+    return $channel && $channel->{mode} =~ /^[^ ]*[ps]/;
+}
+
+sub mark_private($$) {
+    my ($channel, $name) = @_;
+    return is_private $channel ? "-$name" : $name;
+}
+
+######## Actions on the database in memory ########
+
+sub do_listen($$$) {
+    my ($chatnet, $channel, $state) = @_;
+    if ($state eq 'off') {
+        delete $listen_on{$chatnet}{$channel};
+    } else {
+        $listen_on{$chatnet}{$channel} = $state;
+    }
+}
+
+sub do_join($$$$) {
+    my ($chatnet, $address, $nick, $channel) = @_;
+    my $lc_nick = lc_irc $nick;
+    my $lc_channel = lc_irc $channel;
+    delete $address_absent{$chatnet}{$address};
+    push @{$nicks{$chatnet}{$address}}, $nick
+      unless grep {lc_irc $_ eq $lc_nick} @{$nicks{$chatnet}{$address}};
+    push @{$channels{$chatnet}{$lc_nick}}, $channel
+      unless grep {lc_irc $_ eq $lc_channel} @{$channels{$chatnet}{$lc_nick}};
+    delete $how_quit{$chatnet}{$address};
+    delete $nick_absent{$chatnet}{$lc_nick};
+    $addresses{$chatnet}{$lc_nick} = $address;
+    $orig_nick{$chatnet}{$lc_nick} = $nick;
+}
+
+sub do_quit_all($$$$$) {
+    my ($time, $chatnet, $address, $nick, $reason) = @_;
+    $address_absent{$chatnet}{$address} = $time;
+    delete $nicks{$chatnet}{$address};
+    $last_nicks{$chatnet}{$address} = $nick;
+    $how_quit{$chatnet}{$address} = $reason;
+}
+
+sub do_quit($$$$) {
+    my ($time, $chatnet, $address, $nick) = @_;
+    my $lc_nick = lc_irc $nick;
+    $nicks{$chatnet}{$address} =
+      [grep {lc_irc $_ ne $lc_nick} @{$nicks{$chatnet}{$address}}];
+    delete $channels{$chatnet}{$lc_nick};
+    $nick_absent{$chatnet}{$lc_nick} = $time;
+    $addresses{$chatnet}{$lc_nick} = $address;
+    $orig_nick{$chatnet}{$lc_nick} = $nick;
+}
+
+sub do_part($$$$) {
+    my ($chatnet, $address, $nick, $channel) = @_;
+    my $lc_nick = lc_irc $nick;
+    my $lc_channel = lc_irc $channel;
+    $channels{$chatnet}{$lc_nick} =
+      [grep {lc_irc $_ ne $lc_channel} @{$channels{$chatnet}{$lc_nick}}];
+}
+
+sub do_nick($$$$$) {
+    my ($time, $chatnet, $address, $old_nick, $new_nick) = @_;
+    my $lc_old_nick = lc_irc $old_nick;
+    my $lc_new_nick = lc_irc $new_nick;
+    $nicks{$chatnet}{$address} =
+      [(grep {lc_irc $_ ne $lc_old_nick} @{$nicks{$chatnet}{$address}}), $new_nick];
+    my $chans = $channels{$chatnet}{$lc_old_nick};
+    delete $channels{$chatnet}{$lc_old_nick};
+    $channels{$chatnet}{$lc_new_nick} = $chans;
+    $nick_absent{$chatnet}{$lc_old_nick} = $time;
+    delete $nick_absent{$chatnet}{$lc_new_nick};
+    $addresses{$chatnet}{$lc_new_nick} = $address;
+    $orig_nick{$chatnet}{$lc_new_nick} = $new_nick;
+}
+
+sub do_spoke($$$) {
+    my ($time, $chatnet, $address) = @_;
+    my $old_time = $spoke{$chatnet}{$address};
+    $spoke{$chatnet}{$address} = $time
+      unless defined $old_time && $old_time > $time;
+}
+
+sub do_ask($$$$) {
+    my ($time, $chatnet, $nick, $nick_asks) = @_;
+    my $lc_nick = lc_irc $nick;
+    my $lc_nick_asks = lc_irc $nick_asks;
+    my $old_time = $asked{$chatnet}{$lc_nick}{$lc_nick_asks};
+    $asked{$chatnet}{$lc_nick}{$lc_nick_asks} = $time
+      unless defined $old_time && $old_time > $time;
+}
+
+sub do_forget_ask($$$) {
+    my ($chatnet, $nick, $nick_asks) = @_;
+    my $lc_nick = lc_irc $nick;
+    my $lc_nick_asks = lc_irc $nick_asks;
+    delete $asked{$chatnet}{$lc_nick}{$lc_nick_asks};
+}
+
+######## Actions on the database in memory and in the file ########
+
+sub append_to_database(@) {
+    open DATABASE, ">>$database";
+    print DATABASE map {"$_\n"} @_;
+    close DATABASE;
+}
+
+sub on_listen($$$) {
+    my ($chatnet, $channel, $state) = @_;
+    do_listen $chatnet, $channel, $state;
+    append_to_database "listen $state $chatnet $channel";
+}
+
+sub on_join($$$$) {
+    my ($chatnet, $address, $nick, $channel) = @_;
+    do_join $chatnet, $address, $nick, $channel;
+    append_to_database "join $chatnet $address $nick $channel";
+}
+
+sub on_quit_all($$$$) {
+    my ($chatnet, $address, $nick, $reason) = @_;
+    my $time = time();
+    do_quit_all $time, $chatnet, $address, $nick, $reason;
+    append_to_database "quit_all $time $chatnet $address $nick @$reason";
+}
+
+sub on_quit($$$$) {
+    my ($chatnet, $address, $nick, $reason) = @_;
+    my $time = time();
+    do_quit $time, $chatnet, $address, $nick;
+    append_to_database "quit $time $chatnet $address $nick";
+    on_quit_all $chatnet, $address, $nick, $reason
+      unless @{$nicks{$chatnet}{$address}};
+}
+
+sub on_part($$$$$) {
+    my ($chatnet, $address, $nick, $channel, $reason) = @_;
+    do_part $chatnet, $address, $nick, $channel;
+    append_to_database "part $chatnet $address $nick $channel";
+    on_quit $chatnet, $address, $nick, $reason
+      unless @{$channels{$chatnet}{lc_irc $nick}};
+}
+
+sub on_nick($$$$) {
+    my ($chatnet, $address, $old_nick, $new_nick) = @_;
+    my $time = time();
+    do_nick $time, $chatnet, $address, $old_nick, $new_nick;
+    append_to_database "nick $time $chatnet $address $old_nick $new_nick";
+}
+
+sub on_spoke($$) {
+    my ($chatnet, $address) = @_;
+    my $time = time();
+    return if $spoke{$chatnet}{$address} == $time;
+    do_spoke $time, $chatnet, $address;
+    append_to_database "spoke $time $chatnet $address";
+}
+
+sub on_ask($$$) {
+    my ($chatnet, $nick, $nick_asks) = @_;
+    my $time = time();
+    do_ask $time, $chatnet, $nick, $nick_asks;
+    append_to_database "ask $time $chatnet $nick $nick_asks";
+}
+
+######## Reading the database from file ########
+
+sub syntax_error() {
+    die "Syntax error in $database: $_";
+}
+
+our %parse_how_quit = (
+    disappeared => sub {
+        return ['disappeared'];
+    },
+    was_left => sub {
+        $_[0] =~ /^ ([^ ]*)$/ or syntax_error;
+        return ['was_left', $1];
+    },
+    left => sub {
+        $_[0] =~ /^ ([^ ]*) (.*)$/ or syntax_error;
+        return ['left', $1, $2];
+    },
+    quit => sub {
+        $_[0] =~ /^ ([^ ]*) (.*)$/ or syntax_error;
+        return ['quit', $1, $2];
+    },
+    was_kicked => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) (.*)$/ or syntax_error;
+        return ['was_kicked', $1, $2, $3];
+    },
+);
+
+sub parse_how_quit($) {
+    my ($how_quit) = @_;
+    $how_quit =~ /^([^ ]*)(| .*)$/ or syntax_error;
+    my $func = $parse_how_quit{$1} or syntax_error;
+    return $func->($2);
+}
+
+our %parse_database = (
+    listen => sub {
+        $_[0] =~ /^ (on|off|delay|private|disable) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_listen $2, $3, $1;
+    },
+    join => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_join $1, $2, $3, $4;
+    },
+    quit_all => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*) (.*)$/ or syntax_error;
+        my ($time, $chatnet, $address, $nick, $how_quit) = ($1, $2, $3, $4, $5);
+        do_quit_all $time, $chatnet, $address, $nick, parse_how_quit($how_quit);
+    },
+    quit => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_quit $1, $2, $3, $4;
+    },
+    part => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_part $1, $2, $3, $4;
+    },
+    nick => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_nick $1, $2, $3, $4, $5;
+    },
+    spoke => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_spoke $1, $2, $3;
+    },
+    ask => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_ask $1, $2, $3, $4;
+    },
+    forget_ask => sub {
+        $_[0] =~ /^ ([^ ]*) ([^ ]*) ([^ ]*)$/ or syntax_error;
+        do_forget_ask $1, $2, $3;
+    },
+);
+
+sub read_database() {
+    open DATABASE, $database or return;
+    while (<DATABASE>) {
+        chomp;
+        /^([^ ]*)(| .*)$/ or syntax_error;
+        my $func = $parse_database{$1} or syntax_error;
+        $func->($2);
+    }
+    close DATABASE;
+}
+
+######## Writing the database to file ########
+
+sub write_database {
+    open DATABASE, ">$database_tmp";
+    foreach my $chatnet (keys %listen_on) {
+        foreach my $channel (keys %{$listen_on{$chatnet}}) {
+            my $state = $listen_on{$chatnet}{$channel};
+            print DATABASE "listen $state $chatnet $channel\n";
+        }
+    }
+    foreach my $chatnet (keys %nick_absent) {
+        foreach my $nick (keys %{$nick_absent{$chatnet}}) {
+            my $time = $nick_absent{$chatnet}{$nick};
+            my $address = $addresses{$chatnet}{$nick};
+            my $orig = $orig_nick{$chatnet}{$nick};
+            print DATABASE "quit $time $chatnet $address $orig\n";
+        }
+    }
+    foreach my $chatnet (keys %address_absent) {
+        foreach my $address (keys %{$address_absent{$chatnet}}) {
+            my $time = $address_absent{$chatnet}{$address};
+            my $nick = $last_nicks{$chatnet}{$address};
+            my $reason = $how_quit{$chatnet}{$address};
+            print DATABASE "quit_all $time $chatnet $address $nick @$reason\n";
+        }
+    }
+    foreach my $chatnet (keys %spoke) {
+        foreach my $address (keys %{$spoke{$chatnet}}) {
+            my $time = $spoke{$chatnet}{$address};
+            print DATABASE "spoke $time $chatnet $address\n";
+        }
+    }
+    foreach my $chatnet (keys %nicks) {
+        foreach my $address (keys %{$nicks{$chatnet}}) {
+            foreach my $nick (@{$nicks{$chatnet}{$address}}) {
+                foreach my $channel (@{$channels{$chatnet}{lc_irc $nick}}) {
+                    print DATABASE "join $chatnet $address $nick $channel\n";
+                }
+            }
+        }
+    }
+    foreach my $chatnet (keys %asked) {
+        foreach my $nick (keys %{$asked{$chatnet}}) {
+            foreach my $nick_asked (keys %{$asked{$chatnet}{$nick}}) {
+                my $time = $asked{$chatnet}{$nick}{$nick_asked};
+                print DATABASE "ask $time $chatnet $nick $nick_asked\n";
+            }
+        }
+    }
+    close DATABASE;
+    rename $database, $database_old;
+    rename $database_tmp, $database;
+}
+
+######## Update the database to reflect currently joined users ########
+
+sub initialize_database() {
+    my $time = time();
+    foreach my $chatnet (keys %nicks) {
+        my @addresses = keys %{$nicks{$chatnet}};
+        foreach my $address (@addresses) {
+            my @nicks = @{$nicks{$chatnet}{$address}};
+            foreach my $nick (@nicks) {
+                do_quit $time, $chatnet, $address, $nick;
+            }
+            do_quit_all $time, $chatnet, $address, $nicks[0], ['disappeared'];
+        }
+    }
+    foreach my $server (Irssi::servers()) {
+        foreach my $channel ($server->channels()) {
+            foreach my $nick ($channel->nicks()) {
+                do_join lc $server->{chatnet},
+                  canonical $nick->{host}, $nick->{nick}, $channel->{name}
+                  if $nick->{host} ne "";
+            }
+        }
+    }
+}
+
+######## Expire old entries ########
+
+sub expire_database() {
+    my $days = Irssi::settings_get_int("seen_expire_after");
+    my $time = time() - $days*24*60*60;
+    my %reachable_addresses = ();
+    foreach my $chatnet (keys %addresses) {
+        foreach my $address (values %{$addresses{$chatnet}}) {
+            $reachable_addresses{$chatnet}{$address} = 1;
+        }
+    }
+    foreach my $chatnet (keys %address_absent) {
+        foreach my $address (keys %{$address_absent{$chatnet}}) {
+            if ($address_absent{$chatnet}{$address} <= $time ||
+                !$reachable_addresses{$chatnet}{$address}) {
+                delete $address_absent{$chatnet}{$address};
+                delete $last_nicks{$chatnet}{$address};
+                delete $how_quit{$chatnet}{$address};
+            }
+        }
+    }
+    foreach my $chatnet (keys %spoke) {
+        foreach my $address (keys %{$spoke{$chatnet}}) {
+            if ($spoke{$chatnet}{$address} <= $time ||
+                !$reachable_addresses{$chatnet}{$address}) {
+                delete $spoke{$chatnet}{$address};
+            }
+        }
+    }
+    foreach my $chatnet (keys %nick_absent) {
+        foreach my $nick (keys %{$nick_absent{$chatnet}}) {
+            if ($nick_absent{$chatnet}{$nick} <= $time) {
+                delete $nick_absent{$chatnet}{$nick};
+                delete $addresses{$chatnet}{$nick};
+                delete $orig_nick{$chatnet}{$nick};
+            }
+        }
+    }
+    my $days_asked = Irssi::settings_get_int("seen_expire_asked_after");
+    my $time_asked = time() - $days_asked*24*60*60;
+    foreach my $chatnet (keys %asked) {
+        foreach my $nick (keys %{$asked{$chatnet}}) {
+            foreach my $nick_asks (keys %{$asked{$chatnet}{$nick}}) {
+                if ($asked{$chatnet}{$nick}{$nick_asks} <= $time_asked) {
+                    delete $asked{$chatnet}{$nick}{$nick_asks};
+                }
+            }
+        }
+    }
+}
+
+######## Compose a description when did we see that person ########
+
+sub show_reason($) {
+    my ($reason) = @_;
+    return ":" if $reason eq "";
+    $reason =~ s/\cc\d\d?(,\d\d?)?|[\000-\037]//g;
+    return ": $reason";
+}
+
+sub only_public(@$) {
+    my $can_show = pop @_;
+    my @channels = ();
+    foreach my $channel (@_) {
+        if ($channel =~ /^-(.*)$/) {
+            push @channels, $1 if $can_show->($1);
+        } else {
+            push @channels, $channel;
+        }
+    }
+    return wantarray ? @channels : $channels[0];
+}
+
+sub is_here(\@$) {
+    my ($channels, $where_asks) = @_;
+    return if !defined $where_asks;
+    my $lc_where_asks = lc_irc $where_asks;
+    foreach my $i (0..$#{$channels}) {
+        if (lc_irc $channels->[$i] eq $lc_where_asks) {
+            splice @{$channels}, $i, 1;
+            return 1;
+        }
+    }
+    return 0;
+}
+
+sub on_channels(@) {
+    return @_ == 1 ? "on the channel $_[0]" : "on the channels " . show_list(@_);
+}
+
+our %show_how_quit = (
+    disappeared => sub {
+        return "they disappeared.  No more information is available.";
+    },
+    was_left => sub {
+        my ($true_channel, $where_asks, $can_show) = @_;
+        my $channel = only_public $true_channel, $can_show;
+        return
+          defined $channel ?
+            lc_irc $channel eq lc_irc $where_asks ?
+              "byla here i wtedy stad wyszedlem." :
+              "byla na kanale $channel, z ktorego wtedy wyszedlem." :
+            "byla na kanale, z ktorego wtedy wyszedlem.";
+    },
+    left => sub {
+        my ($true_channel, $reason, $where_asks, $can_show) = @_;
+        my $channel = only_public $true_channel, $can_show;
+        return
+          (defined $channel ?
+            lc_irc $channel eq lc_irc $where_asks ?
+              "person left" : "they left the channel $channel" :
+            "left because") .
+          show_reason($reason);
+    },
+    quit => sub {
+        my ($true_channels, $reason, $where_asks, $can_show) = @_;
+        my @channels = only_public split(/,/, $true_channels), $can_show;
+        my $is_here = is_here @channels, $where_asks;
+        return
+          (@channels == 0 ?
+            $is_here ? "they left " : "" :
+            ($is_here ? "byla tutaj oraz " : "they were seen quitting ") .
+            on_channels(@channels) .
+            " ") .
+          "with the message" . show_reason($reason);
+    },
+    was_kicked => sub {
+        my ($true_channel, $kicker, $reason, $where_asks, $can_show) = @_;
+        my $channel = only_public $true_channel, $can_show;
+        return
+          "they " .
+          (defined $channel ?
+            lc_irc $channel eq lc_irc $where_asks ?
+              "were kicked" : "were kicked from $channel" :
+            "kicked") .
+          " by $kicker" . show_reason($reason);
+    },
+);
+
+sub show_how_quit($$$) {
+    my ($how_quit, $where_asks, $can_show) = @_;
+    return $show_how_quit{$how_quit->[0]}
+      (@{$how_quit}[1..$#{$how_quit}], $where_asks, $can_show);
+}
+
+sub show_where_is($$$$$$$) {
+    my ($server, $nick, $address, $where_asks, $can_show, $asked_and, $spoke_and) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my $lc_nick = lc_irc $nick;
+    my @nicks = @{$nicks{$chatnet}{$address}};
+    @nicks = sort @nicks;
+    my @channels = all_channels($chatnet, @nicks);
+    @channels =
+      only_public
+      map ({mark_private($server->channel_find($_), $_)} sort @channels),
+      $can_show;
+    my $is_here = is_here @channels, $where_asks;
+    my $this_nick_absent = $nick_absent{$chatnet}{$lc_nick};
+    return
+      (defined $this_nick_absent ?
+        "Osoba, ktora uzywala nicka $nick " .
+        show_time_since($this_nick_absent) .
+        ", $asked_and${spoke_and}teraz jest jako " .
+        show_list(@nicks) .
+        " " :
+        "Queried user $asked_and${spoke_and}$nick is currently " .
+        (@nicks == 1 ? "" : "(rowniez jako " .
+          show_list(grep {lc_irc $_ ne $lc_nick} @nicks) . ") ")) .
+      (@channels == 0 ?
+        $is_here ? "in this channel" : "on IRC" :
+        ($is_here ? "here on " : "") . on_channels(@channels)) .
+      ".";
+}
+
+sub seen($$$$$$) {
+    my ($server, $nick, $who_asks, $where_asks, $can_show, $asked) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my $lc_nick = lc_irc $nick;
+    my $address = $addresses{$chatnet}{$lc_nick};
+    unless (defined $address) {
+        if (defined $asked) {return "You asked- $asked about $nick.", 0, 0}
+        return "Sorry, I don't know of $nick.", 0, 0;
+    }
+    $nick = $orig_nick{$chatnet}{$lc_nick};
+    if ($address eq canonical $server->{userhost}) {
+        return "I am $nick!", 1, 0;
+    }
+    if (defined $who_asks && $address eq $who_asks) {
+        return "You are $nick!", 1, 0;
+    }
+    my $asked_and = defined $asked ? "$asked; " : "";
+    my $spoke = $spoke{$chatnet}{$address};
+    my $spoke_and = defined $spoke ?
+      "last spoke " . show_time_since($spoke) . ".  " : "";
+    if (defined $address_absent{$chatnet}{$address}) {
+        my $last_nick = $last_nicks{$chatnet}{$address};
+        my $when_address = show_time_since $address_absent{$chatnet}{$address};
+        if (lc_irc $last_nick eq $lc_nick) {
+            return "The person with the nick $nick $asked_and$spoke_and$when_address " .
+              show_how_quit($how_quit{$chatnet}{$address},
+                            $where_asks, $can_show), 1, 1;
+        } else {
+            my $when_nick = show_time_since $nick_absent{$chatnet}{$lc_nick};
+            return "Person, who $when_nick used nick $nick, " .
+              "$asked_and$spoke_and$when_address jako $last_nick " .
+              show_how_quit($how_quit{$chatnet}{$address},
+                            $where_asks, $can_show), 1, 1;
+        }
+    } else {
+        return show_where_is($server, $nick, $address,
+                             $where_asks, $can_show,
+                             $asked_and, $spoke_and), 1, 0;
+    }
+}
+
+######## Initialization ########
+
+read_database;
+expire_database;
+initialize_database;
+write_database;
+
+Irssi::timeout_add 60*60*1000, sub {expire_database; write_database}, undef;
+
+######## Irssi signal handlers ########
+
+sub can_show_this_channel($) {
+    my ($channel) = @_;
+    my $lc_channel = lc_irc $channel;
+    return sub {lc_irc $_[0] eq $lc_channel};
+}
+
+sub can_show_his_channels($$) {
+    my ($chatnet, $nick) = @_;
+    my $lc_nick = lc_irc $nick;
+    my @channels = $channels{$chatnet}{$lc_nick} ?
+      @{$channels{$chatnet}{$lc_nick}} : ();
+    return sub {
+        my $channel = lc_irc $_[0];
+        return grep {lc_irc $_ eq $channel} @channels;
+    };
+}
+
+sub check_asked($$$) {
+    my ($chatnet, $server, $nick) = @_;
+    my $lc_nick = lc_irc $nick;
+    my $who_asked = $asked{$chatnet}{$lc_nick};
+    return unless $who_asked;
+    foreach my $nick_asked (sort {$who_asked->{$a} <=> $who_asked->{$b}}
+                            keys %{$who_asked}) {
+        my $when_asked = show_time_since $who_asked->{$nick_asked};
+        my ($reply, $found, $remember_asked) =
+          seen $server, $nick_asked, undef, undef,
+          can_show_his_channels($chatnet, $nick),
+          "szukala Cie $when_asked";
+        $server->command("notice $nick $reply");
+        do_forget_ask $chatnet, $nick, $nick_asked;
+        append_to_database "forget_ask $chatnet $nick $nick_asked";
+    }
+}
+
+Irssi::signal_add "channel wholist", sub {
+    my ($channel) = @_;
+    my $server = $channel->{server};
+    my $chatnet = lc $server->{chatnet};
+    foreach my $nick ($channel->nicks()) {
+        my $lc_nick = lc_irc $nick->{nick};
+        my $lc_channel = lc_irc $channel->{name};
+        on_join $chatnet, canonical $nick->{host}, $nick->{nick}, $channel->{name}
+          unless $nick->{host} eq "" ||
+          $channels{$chatnet}{$lc_nick} &&
+          grep {lc_irc $_ eq $lc_channel} @{$channels{$chatnet}{$lc_nick}};
+        check_asked $chatnet, $server, $nick->{nick};
+    }
+};
+
+Irssi::signal_add_first "channel destroyed", sub {
+    my ($channel) = @_;
+    my $chatnet = lc $channel->{server}{chatnet};
+    foreach my $nick ($channel->nicks()) {
+        on_part $chatnet, canonical $nick->{host}, $nick->{nick}, $channel->{name},
+          ['was_left', mark_private($channel, $channel->{name})]
+          unless $nick->{host} eq "";
+    }
+};
+
+Irssi::signal_add "event join", sub {
+    my ($server, $args, $nick, $address) = @_;
+    $args =~ /^:(.*)$/ or $args =~ /^([^ ]+)$/ or return;
+    my $channel = $1;
+    my $chatnet = lc $server->{chatnet};
+    on_join $chatnet, canonical $address, $nick, $channel;
+    check_asked $chatnet, $server, $nick;
+};
+
+Irssi::signal_add "event part", sub {
+    my ($server, $args, $nick, $address) = @_;
+    $args =~ /^([^ ]+) +:(.*)$/ or $args =~ /^([^ ]+) +([^ ]+)$/ or $args =~ /^([^ ]+)()$/ or return;
+    my ($channel, $reason) = ($1, $2);
+    my $chatnet = lc $server->{chatnet};
+    return if defined $nick_absent{$chatnet}{lc_irc $nick};
+    $reason = "" if $reason eq $nick;
+    on_part $chatnet, canonical $address, $nick, $channel,
+      ['left', mark_private($server->channel_find($channel), $channel), $reason];
+};
+
+Irssi::signal_add "event quit", sub {
+    my ($server, $args, $nick, $address) = @_;
+    $args =~ /^:(.*)$/ or $args =~ /^([^ ]+)$/ or $args =~ /^()$/ or return;
+    my $reason = $1;
+    my $chatnet = lc $server->{chatnet};
+    my $lc_nick = lc_irc $nick;
+    return if defined $nick_absent{$chatnet}{$lc_nick};
+    $reason = "" if $reason =~ /^(Quit: )?(leaving)?$/;
+    my @channels = $channels{$chatnet}{$lc_nick} ?
+      @{$channels{$chatnet}{$lc_nick}} : ();
+    on_quit $chatnet, canonical $address, $nick,
+      ['quit', join(",", map {mark_private($server->channel_find($_), $_)} sort @channels), $reason];
+};
+
+Irssi::signal_add "event kick", sub {
+    my ($server, $args, $kicker, $kicker_address) = @_;
+    $args =~ /^([^ ]+) +([^ ]+) +:(.*)$/ or $args =~ /^([^ ]+) +([^ ]+) +([^ ]+)$/ or
+      $args =~ /^([^ ]+) +([^ ]+)()$/ or return;
+    my ($channel, $nick, $reason) = ($1, $2, $3);
+    my $chatnet = lc $server->{chatnet};
+    $reason = "" if $reason eq $kicker;
+    on_part $chatnet, $addresses{$chatnet}{lc_irc $nick}, $nick, $channel,
+      ['was_kicked', mark_private($server->channel_find($channel), $channel), $kicker, $reason];
+};
+
+Irssi::signal_add "event nick", sub {
+    my ($server, $args, $old_nick, $address) = @_;
+    $args =~ /^:(.*)$/ or $args =~ /^([^ ]+)$/ or return;
+    my $new_nick = $1;
+    return if $address eq "";
+    my $chatnet = lc $server->{chatnet};
+    on_nick $chatnet, canonical $address, $old_nick, $new_nick;
+    check_asked $chatnet, $server, $new_nick;
+};
+
+######## Commands ########
+
+Irssi::command_bind "seen", sub {
+    my ($args, $server, $target) = @_;
+    my $nick;
+    if ($args =~ /^ *([^ ]+) *$/) {
+        $nick = $1;
+    } else {
+        Irssi::print "Usage: /seen <nick>";
+        return;
+    }
+    unless ($server && $server->{connected}) {
+        Irssi::print "Not connected to server";
+        return;
+    }
+    my ($reply, $found, $remember_asked) =
+      seen $server, $nick, undef, undef, sub {1}, undef;
+    Irssi::print $reply;
+};
+
+Irssi::command_bind "say_seen", sub {
+    my ($args, $server, $target) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my ($nick_asks, $prefix, $nick);
+    if ($args =~ /^ *([^ ]+) *$/) {
+        $nick_asks = undef;
+        $prefix = "";
+        $nick = $1;
+    } elsif ($args =~ /^ *([^ ]+) +([^ ]+) *$/) {
+        $nick_asks = $1;
+        $prefix = "$1: ";
+        $nick = $2;
+    } else {
+        Irssi::print "Usage: /say_seen [<to_whom>] <nick>";
+        return;
+    }
+    unless ($server && $server->{connected}) {
+        Irssi::print "Not connected to server";
+        return;
+    }
+    unless ($target) {
+        Irssi::print "Not in a channel or query";
+        return;
+    }
+    my $can_show =
+      $target->{type} eq 'CHANNEL' ?
+        can_show_this_channel($target->{name}) :
+      $target->{type} eq 'QUERY' ?
+        can_show_his_channels($chatnet, $target->{name}) :
+      sub {0};
+    my ($reply, $found, $remember_asked) =
+      seen $server, $nick, undef, $target->{name}, $can_show, undef;
+    on_ask $chatnet, $nick, $nick_asks
+      if defined $nick_asks && $remember_asked;
+    $server->command("msg $target->{name} $prefix$reply");
+};
+
+sub cmd_listen_switch($$$$) {
+    my ($state, $args, $server, $target) = @_;
+    if ($args =~ /^ *$/) {
+        unless ($server && $server->{connected}) {
+            Irssi::print "Not connected to server";
+            return;
+        }
+        unless ($target && $target->{type} eq 'CHANNEL') {
+            Irssi::print "Not in a channel";
+            return;
+        }
+        on_listen lc $server->{chatnet}, lc_irc $target->{name}, $state;
+    } elsif ($args =~ /^ *([^ ]+) *$/)
+    {
+        unless ($server && $server->{connected}) {
+            Irssi::print "Not connected to server";
+            return;
+        }
+        on_listen lc $server->{chatnet}, lc_irc $1, $state;
+    } elsif ($args =~ /^ *([^ ]+) +([^ ]+) *$/)
+    {
+        on_listen lc $1, lc_irc $2, $state;
+    } else {
+        Irssi::print "Usage: /listen $state [[<chatnet>] <channel>]";
+    }
+}
+
+Irssi::command_bind "listen", sub {
+    my ($args, $server, $target) = @_;
+    Irssi::command_runsub "listen", $args, $server, $target;
+};
+
+Irssi::command_bind "listen on", sub {
+    my ($args, $server, $target) = @_;
+    cmd_listen_switch "on", $args, $server, $target;
+};
+
+Irssi::command_bind "listen off", sub {
+    my ($args, $server, $target) = @_;
+    cmd_listen_switch "off", $args, $server, $target;
+};
+
+Irssi::command_bind "listen delay", sub {
+    my ($args, $server, $target) = @_;
+    cmd_listen_switch "delay", $args, $server, $target;
+};
+
+Irssi::command_bind "listen private", sub {
+    my ($args, $server, $target) = @_;
+    cmd_listen_switch "private", $args, $server, $target;
+};
+
+Irssi::command_bind "listen disable", sub {
+    my ($args, $server, $target) = @_;
+    cmd_listen_switch "disable", $args, $server, $target;
+};
+
+our @joined_text = ("      ", "joined");
+
+Irssi::command_bind "listen list", sub {
+    my ($args, $server, $target) = @_;
+    if ($args =~ /^ *$/) {
+        my %all_channels = ();
+        foreach my $server (Irssi::servers()) {
+            my $chatnet = lc $server->{chatnet};
+            foreach my $channel ($server->channels()) {
+                $all_channels{$chatnet}{lc_irc $channel->{name}}[0] = 1;
+            }
+        }
+        foreach my $chatnet (keys %listen_on) {
+            foreach my $channel (keys %{$listen_on{$chatnet}}) {
+                $all_channels{$chatnet}{$channel}[1] = $listen_on{$chatnet}{$channel};
+            }
+        }
+        my $max_chatnet_width = 1;
+        my $max_channel_width = 1;
+        foreach my $chatnet (keys %all_channels) {
+            $max_chatnet_width = length $chatnet
+              if length $chatnet > $max_chatnet_width;
+            foreach my $channel (keys %{$all_channels{$chatnet}}) {
+                $max_channel_width = length $channel
+                  if length $channel > $max_channel_width;
+            }
+        }
+        Irssi::print "'seen' is listening:";
+        foreach my $chatnet (sort keys %all_channels) {
+            foreach my $channel (sort keys %{$all_channels{$chatnet}}) {
+                Irssi::print
+                  $chatnet .
+                  " " x ($max_chatnet_width - length ($chatnet) + 1) .
+                  $channel .
+                  " " x ($max_channel_width - length ($channel) + 3) .
+                  $joined_text[$all_channels{$chatnet}{$channel}[0]] .
+                  "   " .
+                  $all_channels{$chatnet}{$channel}[1];
+            }
+        }
+    } else {
+        Irssi::print "Usage: /listen list";
+    }
+};
+
+Irssi::command_bind "forget", sub {
+    my ($args, $server, $target) = @_;
+    my $nick;
+    if ($args =~ /^ *([^ ]+) *$/) {
+        $nick = $1;
+    } else {
+        Irssi::print "Usage: /forget <nick>";
+        return;
+    }
+    unless ($server) {
+        Irssi::print "Not connected to server";
+        return;
+    }
+    my $chatnet = lc $server->{chatnet};
+    return unless $asked{$chatnet}{$nick};
+    foreach my $nick_asked (keys %{$asked{$chatnet}{$nick}}) {
+        do_forget_ask $chatnet, $nick, $nick_asked;
+        append_to_database "forget_ask $chatnet $nick $nick_asked";
+    }
+};
+
+######## Listen to seen requests from other people ########
+
+our $last_reply = undef;
+our $last_asked = undef;
+
+our %pending_replies = ();
+
+sub seen_reply($$$$$$) {
+    my ($server, $nick_asks, $address, $target, $nick, $sure) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my ($reply, $found, $remember_asked) =
+      seen $server, $nick, $address, $target,
+        can_show_this_channel($target), undef;
+    return unless $sure || $found;
+    unless ($reply eq $last_reply && $nick eq $last_asked) {
+        Irssi::print "[$target] $nick_asks: $reply";
+        $server->command("msg $target $nick_asks: $reply");
+        $last_reply = $reply;
+        $last_asked = $nick;
+    }
+    on_ask $chatnet, $nick, $nick_asks if $remember_asked;
+}
+
+sub private_seen_reply($$$$$$) {
+    my ($server, $nick_asks, $address, $target, $nick, $sure) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my ($reply, $found, $remember_asked) =
+      seen $server, $nick, $address, undef,
+        can_show_his_channels($chatnet, $nick_asks), undef;
+    return unless $sure || $found;
+    $server->command("notice $nick_asks $reply");
+    $server->command("notice $nick_asks " .
+      "Pytac o obecnosc ludzi mozesz mnie tez prywatnie, np. /msg $server->{nick} seen $nick");
+    on_ask $chatnet, $nick, $nick_asks if $remember_asked;
+}
+
+sub delayed_seen_reply($$$$$$) {
+    my ($server, $nick_asks, $address, $target, $nick, $sure) = @_;
+    my $chatnet = lc $server->{chatnet};
+    my $lc_nick = lc_irc $nick;
+    return if defined $pending_replies{$chatnet}{$target}{$lc_nick};
+    my $timeout = Irssi::settings_get_int("seen_delay") * 1000;
+    $pending_replies{$chatnet}{$target}{$lc_nick} = Irssi::timeout_add_once $timeout, sub {
+        delete $pending_replies{$chatnet}{$target}{$lc_nick};
+        seen_reply $server, $nick_asks, $address, $target, $nick, $sure;
+    }, undef;
+}
+
+our %reply_method = (
+    on => \&seen_reply,
+    off => undef,
+    delay => \&delayed_seen_reply,
+    private => \&private_seen_reply,
+    disable => undef,
+);
+
+sub check_another_seen($$$$) {
+    my ($chatnet, $channel, $msg, $nick_asks) = @_;
+    my $lc_channel = lc_irc $channel;
+    if ($listen_on{$chatnet}{$lc_channel} eq 'delay') {
+        foreach my $nick (keys %{$pending_replies{$chatnet}{$channel}}) {
+            my $nick_regexp = lc_irc_regexp $nick;
+            if ($msg =~ /(^|[ \cb])$nick_regexp($|[ !,.:;?\cb])/ ||
+                lc_irc $nick_asks eq $nick) {
+                my $tag = $pending_replies{$chatnet}{$channel}{$nick};
+                Irssi::timeout_remove $tag;
+                delete $pending_replies{$chatnet}{$channel}{$nick};
+            }
+        }
+    }
+}
+
+Irssi::signal_add "message public", sub {
+    my ($server, $msg, $nick_asks, $address, $channel) = @_;
+    my $chatnet = lc $server->{chatnet};
+    $address = canonical $address;
+    on_spoke $chatnet, $address;
+    my $lc_channel = lc_irc $channel;
+    my ($msg_body, $func) =
+      $msg =~ /^\Q$server->{nick}\E(?:|:|\cb:\cb) +(.*)$/i ? ($1, \&seen_reply) :
+      ($msg, $reply_method{$listen_on{$chatnet}{$lc_channel} || 'off'});
+    if (defined $func) {
+        my $sure =
+          $msg_body =~ $seen_regexp ? 1 :
+          $msg_body =~ $maybe_seen_regexp1 ||
+          $msg_body =~ $maybe_seen_regexp2 ? 0 :
+          undef;
+        if (defined $sure) {
+            my $nick = $1;
+            return if $sure == 0 && $nick =~ $exclude_regexp;
+            Irssi::signal_continue @_;
+            $func->($server, $nick_asks, $address, $channel, $nick, $sure);
+            return;
+        }
+    }
+    check_another_seen $chatnet, $channel, $msg, $nick_asks;
+};
+
+Irssi::signal_add "message irc notice", sub {
+    my ($server, $msg, $nick_asks, $address, $target) = @_;
+    my $chatnet = lc $server->{chatnet};
+    check_another_seen $chatnet, $target, $msg, $nick_asks;
+};
+
+Irssi::signal_add "message private", sub {
+    my ($server, $msg, $nick_asks, $address) = @_;
+    my $chatnet = lc $server->{chatnet};
+    on_spoke $chatnet, canonical $address;
+    check_asked $chatnet, $server, $nick_asks;
+    my $sure =
+      $msg =~ $seen_regexp ? 1 :
+      $msg =~ $maybe_seen_regexp1 ||
+      $msg =~ $maybe_seen_regexp2 ? 0 :
+      undef;
+    if (defined $sure) {
+        my $nick = $1;
+        my ($reply, $found, $remember_asked) =
+          seen $server, $nick, canonical $address, undef,
+          can_show_his_channels($chatnet, $nick_asks), undef;
+        return unless $sure || $found;
+        Irssi::signal_continue @_;
+        $server->command("msg $nick_asks $reply");
+        on_ask $chatnet, $nick, $nick_asks if $remember_asked;
+    }
+};
+
+Irssi::signal_add "message irc action", sub {
+    my ($server, $msg, $nick, $address, $target) = @_;
+    on_spoke lc $server->{chatnet}, canonical $address;
+};
diff --git a/scripts/servercomplete.pl b/scripts/servercomplete.pl
new file mode 100644
index 0000000..4d92f96
--- /dev/null
+++ b/scripts/servercomplete.pl
@@ -0,0 +1,85 @@
+use Irssi 20020101.0250 ();
+$VERSION = "2";
+%IRSSI = (
+    authors     => 'David Leadbeater',
+    contact     => 'dgl@dgl.cx',
+    name        => 'servercomplete',
+    description => 'Tab complete servers and userhosts (irc. -> irc server, user@ -> user@host). Useful for lazy ircops for /squit and so on :)',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+use strict;
+my %servers;
+
+sub sig_complete {
+  my ($complist, $window, $word, $linestart, $want_space) = @_;
+  my $tag = $window->{active_server}->{tag};
+
+  if($word =~ /[!*@]/) {
+	 my $wi = Irssi::active_win()->{active};
+	 return unless ref $wi and $wi->{type} eq 'CHANNEL';
+	 my $server = $wi->{server};
+	 return unless ref $server;
+
+	 my($nick,$ident,$host) = ('','','');
+
+	 $nick = $1 if $word =~ /([^!]+)!/ && $1;
+	 $ident = $1 if $word !~ /!$/ && $word =~ /!?([^@]+)(@|$)/ && $1;
+	 $host = $1 if $word =~ /@(.*)$/ && $1;
+
+	 for my $n ($wi->nicks()) {
+		next if not_wild($nick) and $n->{nick} !~ /^\Q$nick\E/i;
+
+		my($user,$addr) = split(/@/, $n->{host});
+
+		next if not_wild($ident) and $user !~ /^\Q$ident\E/i;
+		next if not_wild($host) and $addr !~ /^\Q$host\E/i;
+
+		if($word =~ /!/) {
+		   push @$complist, get_match($n->{nick}, $nick) . '!' . get_match($user, $ident) . '@' . get_match($addr,$host);
+		}else{
+		   push @$complist, get_match($user, $ident) . '@' . get_match($addr,$host);
+		}
+	 }
+  }
+  
+  return unless $servers{$tag};
+  for (keys %{$servers{$tag}}) {
+	 push @$complist, $_ if /^\Q$word\E/;
+  }
+}
+
+sub get_match {
+   my($match, $thing) = @_;
+   return $thing eq '*' ? '*' : $match;
+}
+
+sub not_wild {
+   return 0 if($_[0] eq '*' || $_[0] eq '');
+   1;
+}
+
+sub add_server {
+   my($tag,$data,$offset) = @_;
+   $servers{$tag}{(split(/ /,$data))[$offset]} = 1;
+}
+
+Irssi::signal_add_last('complete word', 'sig_complete');
+
+Irssi::signal_add('event 352', sub {
+   my($server,$data) = @_;
+   add_server($server->{tag}, $data, 4);
+} );
+
+Irssi::signal_add('event 312', sub { 
+   my($server,$data) = @_;
+   add_server($server->{tag}, $data, 2);
+} );
+
+Irssi::signal_add('event 364', sub { 
+   my($server,$data) = @_;
+   add_server($server->{tag}, $data, 1);
+   add_server($server->{tag}, $data, 2);
+} );
+
diff --git a/scripts/seti.pl b/scripts/seti.pl
new file mode 100644
index 0000000..01678ac
--- /dev/null
+++ b/scripts/seti.pl
@@ -0,0 +1,50 @@
+# This is not a well written script, but it works. I hope.
+
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.1';
+%IRSSI = (
+  authors	=> 'optical',
+  contact	=> 'optical@linux.nu',
+  name		=> 'SETI@home info',
+  description	=> 'Tell ppl how far you\'ve gotten with you SETI\@home workunit.',
+  license	=> 'GPL',
+  url		=> 'http://optical.kapitalet.org/seti/',
+  changed	=> 'Sat Jul 13 12:03:42 CEST 2002',
+  commands	=> '/seti <#channel>|<nick>',
+  note		=> 'Make sure you set the seti_state_sah with /set'
+);
+
+sub seti_info {
+
+  $WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah');
+
+  my ($data, $server, $witem) = @_;
+  $args =~ s/\s+$//; 
+
+  open(INFO, "$WHERES_SETI_STATE_SAH");
+  for($tmp = 0; $tmp < 5; $tmp++) {
+    $line = <INFO>;
+  }
+  close(INFO);
+  $proc = substr($line, 7, 4)/100;
+  my $output = "progress of this SETI@home workunit: $proc%";
+
+  if($data)
+  {
+    $server->command("MSG $data $output");
+  }
+  elsif($witem && ($witem->{type} == "QUERY" ||
+		   $witem->{type} == "CHANNEL"))
+  {
+    $witem->command("MSG ".$witem->{name}." $output");
+  }
+  else
+  {
+    Irssi::print("$output");
+  }
+}
+
+Irssi::command_bind('seti', 'seti_info');
+Irssi::settings_add_str('misc', 'seti_state_sah', '~/setiathome-3.03.i386-pc-linux-gnu-gnulibc2.1/state.sah');
diff --git a/scripts/shortenurl.pl b/scripts/shortenurl.pl
new file mode 100644
index 0000000..8428842
--- /dev/null
+++ b/scripts/shortenurl.pl
@@ -0,0 +1,170 @@
+# shortenurl.pl v 0.7.1 by Marcin Ró¿ycki (derwan@irssi.pl)
+#
+# Usage:
+#   /shortenurl [url]
+#   /shortenurl -L
+#   /shortenurl [index]
+#
+# Settings:
+#   shortenurl_autoconvert_minlen [length]
+#      if shortenurl_autoconvert_minlen is greater than 0 and length of url is
+#      greater than shortenurl_autoconvert_minlen then link will be
+#      converted automaticaly
+#
+# Simultaneously there can be three links converted!
+# 
+# Special thanks to Piotr Kucharski (Beeth) for changes in 42.pl/url/ service which
+# made communication between script and web easier.
+#
+
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use LWP::UserAgent;
+use POSIX '_exit';
+use IO::File;
+use Irssi qw( command_bind version settings_add_int settings_get_int signal_add_last theme_register active_win );
+
+$VERSION = '0.7.1';
+%IRSSI = (
+  authors      => 'Marcin Rozycki',
+  contact      => 'derwan@irssi.pl',
+  name         => 'shortenurl',
+  description  => 'shortenurl',
+  license      => 'GNU GPL v2',
+  url          => 'http://derwan.irssi.pl',
+  changed      => 'Sat Jun 26 19:17:02 CEST 2004',
+);
+
+our $agent = sprintf("Irssi %s ", version);
+our $active = 0;
+our $active_max = 3;
+our @url = ();
+our %tags = ();
+our %cache = ();
+our $maxlength = 0;
+
+theme_register([
+   'shortenurl_url_list', '[%_$0%_] url %_$1%_ [by $2 ($3), $4 secs ago]',
+   'shortenurl_url_show', 'Shortened url $0 => %_$1%_',
+   'shortenurl_connect', 'Connecting to http://42.pl/url, this may take a while...',
+   'shortenurl_url_error', 'Cannot connect to http://42.pl/url service!'
+]);
+
+sub shortenurl ($$$) {
+  my ($data, $server, $witem) = @_;
+  $witem = $server->window_item_find($1) if ( $data =~ s/^-w\s([^\s]+)\s// );
+  $witem = active_win() unless $witem;
+  if ( $data =~ /^-L/i ) {
+     my $time = time();
+     for (my $idx = 0; $idx <= $#url; $idx++) {
+        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'shortenurl_url_list', sprintf('%2d',($idx + 1)),
+	   url2short($url[$idx]->[0]), $url[$idx]->[1], $url[$idx]->[2], ($time - $url[$idx]->[3]) );
+     }
+     return;
+  } elsif ( $data =~ m/^\d+$/ ) {
+     if ( my $url = $url[--$data] ) {
+        $server->command('shortenurl ' . $url->[0]);
+     } else {
+        Irssi::print("shortenurl: index too high", MSGLEVEL_CRAP);
+     }
+     return;
+  } elsif ( not $data ) {
+    Irssi::print('Usage: /shortenurl [url]', MSGLEVEL_CRAP);
+    Irssi::print('Usage: /shortenurl -L', MSGLEVEL_CRAP);
+    Irssi::print('Usage: /shortenurl [index]', MSGLEVEL_CRAP);
+    return;
+  }
+  
+  my $url = $data;
+  $url =~ s/([^\w])/sprintf("%%%02X",ord($1))/ge;
+
+  my $hash = unpack('H*', $url);
+  if ( exists $cache{$hash} ) {
+     $witem->printformat(MSGLEVEL_CRAP, 'shortenurl_url_show', url2short($data), $cache{$hash});
+     return;
+  }
+     
+  return if ( $active > $active_max );
+
+  my $reader = IO::File->new() or return;
+  my $writer = IO::File->new() or return;
+  pipe($reader, $writer);
+  my $pid = fork();
+
+  if ( $pid ) {
+    $active++;
+    close($writer);
+    Irssi::pidwait_add($pid);
+    $witem->printformat(MSGLEVEL_CRAP, 'shortenurl_connect');
+    $tags{$reader} = [ Irssi::input_add(fileno($reader), INPUT_READ, \&do_fork, $reader), $server->{tag}, $witem->{name} ];
+  } elsif ( defined $pid ) {
+    close($reader);
+    my $ua = new LWP::UserAgent;
+    $ua->agent($agent . $ua->agent);
+    my $request = new HTTP::Request GET => "http://42.pl/url/?auto=1&url=$url";
+    my $s = $ua->request($request);
+    my $content = $s->content();
+    my $buf = ( $content =~ m/(http\:\/\/[^\s]+)/  ) ? "$1 -- $hash -- $data\n" : 0;
+    print($writer "$buf\n");
+    close($writer);
+    POSIX::_exit(1);
+  } else {
+    close($reader);
+    close($writer);
+    Irssi::print("Cannot fork!");
+  }
+}
+
+sub url2short ($) {
+  my $url = shift;
+  my $length = length($url);
+  substr($url, 15, $length - 32) = '...' if ( $length - 32 > 0 );
+  return $url;		 
+}
+
+sub do_fork {
+  my $reader = shift();
+  my $data = <$reader>;
+  Irssi::input_remove($tags{$reader}->[0]);
+  close($reader);
+  my $server = Irssi::server_find_tag($tags{$reader}->[1]);
+  my $window = ( $server ) ? $server->window_item_find($tags{$reader}->[2]) : undef;
+  $tags{$reader} = ();
+  delete $tags{$reader};
+  $active--;
+  $window = active_win() unless $window;
+  if ( $data =~ m/(.*) -- (.*) -- (.*)/ ) {
+     $window->printformat(MSGLEVEL_CRAP, 'shortenurl_url_show', url2short($3), $1);
+     $cache{$2} = $1;
+  } else {
+     $window->printformat(MSGLEVEL_CRAP, 'shortenurl_url_error');
+  }
+}
+
+sub do_shortenurl ($$$$$) {
+  my ($server, $data, $who, $where, $winname) = @_;
+  while ( $data =~ m/((http|ftp|https):\/\/[^\s]+)/g ) {
+     my ($test, $url) = (0, $1);
+     $server->command(sprintf('shortenurl -w %s %s', $winname, $url)) if
+        ( $url !~ m/^http:\/\/42\.pl\/url/ and $maxlength > 0 and length($url) > $maxlength );
+     foreach my $u ( @url ) {  
+        $test = 1, last if ( $u->[0] eq $url );
+     }
+     next if $test;
+     unshift @url, [ $url, $who, $where, time ];
+     $#url = 9 if ( $#url > 9 );
+  }
+}
+
+sub do_setup { $maxlength = settings_get_int('shortenurl_autoconvert_minlen'); };
+
+command_bind('shortenurl', 'shortenurl');
+command_bind('42.pl', 'shortenurl');
+signal_add_last('message public' => sub { do_shortenurl($_[0], $_[1], $_[2], $_[4], $_[4]) });
+signal_add_last('message private' => sub { do_shortenurl($_[0], $_[1], $_[2], $_[3], $_[2]) });
+signal_add_last('setup changed', 'do_setup');
+settings_add_int('misc', 'shortenurl_autoconvert_minlen', $maxlength);
+
+do_setup();
diff --git a/scripts/shorturl.pl b/scripts/shorturl.pl
new file mode 100644
index 0000000..e041bd5
--- /dev/null
+++ b/scripts/shorturl.pl
@@ -0,0 +1,245 @@
+#!/usr/bin/perl -w
+# This Irssi script automatically converts incoming http/https links into shorter "tinyurl" style links
+$VERSION = "20090904"; # Fixed and enhanced by tsaavik (dave000@hellspark.com)
+#
+# Irssi /set Options
+# you can view your current settigns by running "/set shorturl" in Irssi
+#
+# /set shorturl_debug <on|off>           -- (off) if you have a problem try turning this on to debug
+# /set shorturl_send_to_channel <on|off> -- (off) send the converted tinyurl publicly to everyone in your channels
+# /set shorturl_chans <"#channel1, #channel2, etc"> -- Channels to automatically convert. Empty Defaults to all
+# /set shorturl_min_url_length <35> -- (35) How long a url has to be to trigger automatic url shortening
+#
+# Optional manual usage is
+# /shorturl http://yourlongurl.com/blahblahblah
+
+# No user servicable parts below this line :D
+#--------------------------------------------------------------------- 
+use strict;
+use vars qw($VERSION %IRSSI);
+
+%IRSSI = (
+	authors					=>	"eo, tsaavik",
+	contact					=>	'irssi@eosin.org, dave001@hellspark.com',
+	name						=>	"shorturl.pl",
+	description	   		=>	"Private/Public url reduction script.",
+	license					=>	"GPLv2",
+	changed					=>	"$VERSION"
+);
+
+use Irssi;
+use Irssi::Irc;
+#
+# If you dont have either of these,
+# I suggest: perl -MCPAN -e 'install "Bundle::LWP" '
+# or whatever perl module install method you find
+# suitable.
+use LWP::Simple;
+use LWP::UserAgent;
+
+# Each one of these have different methods of 
+# getting a url back. So dont go adding any 
+# others unless you wish to write in the retrieval
+# code for it. Or email me. -
+my @lookups = ("tinyurl", "metamark");
+
+#these are overwritten by irssi settings via setuphandler()
+my ($min_url_length, $send_to_channel, $debug, $channel_list);
+
+sub setuphandler{
+   # The script no longers sends translations to channel by default
+   # You can enable the older functionality here.
+   # it is controlled via the irssi /set command (see above)
+   Irssi::settings_add_bool("shorturl", "shorturl_send_to_channel", 0);
+   if( Irssi::settings_get_bool("shorturl_send_to_channel") ) {
+      print "shorturl: sending of shorturl's to public channels enabled";
+      $send_to_channel=1;
+   }
+
+   #what channels should be parsed (default is empty, which is all)
+   # it is controlled via the irssi /set command (see above)
+   Irssi::settings_add_str("shorturl", "shorturl_chans", "");
+	$channel_list = Irssi::settings_get_str("shorturl_chans");
+   if ($channel_list) {
+      print "shorturl: Following channels are now parsed $channel_list";
+   }
+
+   # Max chars per url. No sense in translating already short urls :)
+   # it is controlled via the irssi /set command (see above)
+   Irssi::settings_add_int("shorturl", "shorturl_min_url_length", 35);
+   my $old_min_url_length=$min_url_length;
+   $min_url_length=Irssi::settings_get_int("shorturl_min_url_length");
+   if ($min_url_length != $old_min_url_length) {
+      print "shorturl: min_url_length sucessfully set to $min_url_length";
+   }
+
+   # Debug messages (prints what url shorterner is used, error messages, etc)
+   # it is controlled via the irssi /set command (see above)
+   Irssi::settings_add_bool("shorturl", "shorturl_debug", 0);
+   my $old_debug=$debug;
+   $debug=Irssi::settings_get_bool("shorturl_debug");
+   if ($debug != $old_debug) {
+      if ($debug){
+         print "shorturl: Debug Mode Enabled";
+         $debug=1;
+      }else{
+         print "shorturl: Debug Mode Disabled";
+         $debug=0;
+      }
+   }
+   
+}
+
+sub InjectUrl {
+    # data - contains the parameters for /shorturl
+    # server - the active server in window
+    # target - the active window item (eg. channel, query)
+    #         or undef if the window is empty
+    my ($data, $server, $target) = @_;
+
+    if (!$server || !$server->{connected}) {
+      Irssi::print("Not connected to server");
+      return;
+    }
+
+    if ($data) {
+      GotUrl($server, $data, undef, undef, $target);
+    }
+}
+
+sub GotUrl {
+	my ($server, $data, $nick, $addr, $target) = @_;
+   if (!$server || !$server->{connected}) {
+      Irssi::print("Not connected to server");
+      return;
+    }
+	return unless(goodchan($target));	
+	$data =~ s/^\s+//;
+	$data =~ s/\s+$//;
+	my @urls = ();
+	my ($url, $a, $return, $char, $ch, $result, $choice) = "";;
+	my $same = 0;
+	my $sitewas = "t";
+	my @chars = ();
+
+	return unless (($data =~ /\bhttp\:/) || ($data =~ /\bhttps\:/));
+	deb("$target triggered GotUrl() with url: $data");
+
+	# split on whitespace and get the url(s) out
+	# done this way in case there are more than 
+	# one url per line.
+	foreach(split(/\s/, $data)) {
+		if (($_ =~ /^http\:/) || ($_ =~ /^https\:/)){
+			foreach $a (@urls) {
+				if ($_ eq $a) {
+					# incase they use the same url on the line.
+					$same = 1;
+					next;
+				}
+			}
+
+			if ($same == 0) {
+				$same = 0;
+				push(@urls, $_);
+			}
+		}
+	}
+
+	# Go through the resulting urls
+	foreach (@urls) {
+
+		#Minimum url length.
+		return unless (count($_) > $min_url_length);
+		@chars = split(//, $_);
+		
+		# Originally I used uri_escape() for this
+		# But tinyurl didnt like it.. might be because
+		# of the post method I was using at the time.
+		foreach $char (@chars) {
+			if ($char !~ /[A-Za-z0-9]/) {
+				$ch = sprintf("%%%02x",ord($char));
+				$result .= $ch;
+			} else {
+				$result .= $char;
+			}
+		}
+
+		# Get a random provider from the list.
+		$choice = $lookups[ rand(@lookups) ];
+		if ($choice eq "metamark") {
+		   deb("$target Generating metamark url for $result");
+			$url = "http://metamark.net/api/rest/simple?long_url=" . $result;
+			eval { $return = get($url) };
+			next unless ($return);
+			next if ($return =~ /ERROR\:/);
+         if ($send_to_channel == 1) {
+			   $server->command("msg $target $return");
+         }else{
+			   $server->print("$target", "$return", MSGLEVEL_CLIENTCRAP);
+			   #Irssi::print("$target: $return");
+         }
+		} else {
+         deb("$target Generating tinyurl url for $result");
+         deb("tinyurl(\$server, $target, $result)");
+ 			tinyurl($server, $target, $result);
+		}
+		
+	}
+	return;
+}
+
+sub tinyurl {
+	my ($server, $chan, $longurl) = @_;
+   my $url = 'http://tinyurl.com/api-create.php?url='.$longurl;
+   deb("getting url:($url)");
+   my $browser = LWP::UserAgent->new;
+	$browser->agent("tinyurl for irssi/0.8.12 ");
+   my $response = $browser->get($url);
+   my $tinyurl = $response->content;
+   my $ua = LWP::UserAgent->new;
+   if ($response->is_success) {
+	   if ($send_to_channel == 1) {
+	      $server->command("msg $chan $tinyurl");
+      }else{
+			$server->print("$chan", "$tinyurl", MSGLEVEL_CLIENTCRAP);
+	      #Irssi::print("$chan: $tinyurl");
+      }
+   }else{
+      deb("ERROR: tinyurl: tinyurl is down or not pingable");
+   }
+}
+
+# conditinal print.
+sub deb($) {
+	Irssi::print(shift) if ($debug == 1);
+}
+
+
+# returns the character count.
+sub count($) {
+	my @array = split(//, shift);
+	return($#array + 1);
+}
+
+# Checks if we should be translating 
+# urls for the requesting channel.
+# returns True if the list is not set
+# thus, it will translate for ALL channels.
+# returns True if channel matches one in the list.
+# returns undef otherwise.
+sub goodchan {
+	my $chan = shift;
+	return("OK") if (! $channel_list);
+	foreach(split(/\,/, $channel_list)) {
+		return("$_") if ($_ =~ /$chan/i);
+	}
+	return undef;
+}
+
+setuphandler(); #initilize variables on first run
+Irssi::signal_add("setup changed", "setuphandler");
+Irssi::signal_add_last("message public", "GotUrl");
+Irssi::signal_add_last("ctcp action", "GotUrl");
+Irssi::command_bind('shorturl', 'InjectUrl');
+
+
diff --git a/scripts/showhilight.pl b/scripts/showhilight.pl
new file mode 100644
index 0000000..6ff00ad
--- /dev/null
+++ b/scripts/showhilight.pl
@@ -0,0 +1,30 @@
+# Print hilighted messages with MSGLEVEL_PUBLIC  to active window 
+# for irssi 0.7.99 by Pawe³ 'Styx' Chuchma³a based on hilightwin.pl by Timo Sirainen
+use Irssi;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.1";
+%IRSSI = (
+        authors         => "Pawe³ \'Styx\' Chuchma³a",
+	contact         => "styx\@irc.pl",
+	name            => "showhilight",
+	description     => "Show hilight messages in active window",
+	license         => "GNU GPLv2",
+	changed         => "Fri Jun 28 11:09:42 CET 2002"
+						
+);
+
+sub sig_printtext {
+  my ($dest, $text, $stripped) = @_;
+
+  my $window = Irssi::active_win();
+
+  if (($dest->{level} & MSGLEVEL_HILIGHT) && ($dest->{level} & MSGLEVEL_PUBLIC) && 
+       ($window->{refnum} != $dest->{window}->{refnum}) && ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
+
+    $text = $dest->{target}.":%K[".Irssi::settings_get_str(hilight_color).$dest->{window}->{refnum}."%K]:".$text;
+
+    $window->print($text, MSGLEVEL_CLIENTCRAP);
+  }
+}
+
+Irssi::signal_add('print text', 'sig_printtext');
diff --git a/scripts/showhost.pl b/scripts/showhost.pl
new file mode 100644
index 0000000..9f2841b
--- /dev/null
+++ b/scripts/showhost.pl
@@ -0,0 +1,68 @@
+use strict;
+use Irssi 20021028;
+use vars qw($VERSION %IRSSI);
+
+# Usage:
+# To add the host by a kick, for example, use:
+#     /format kick {channick $0} {chanhost $host{$0}} was kicked from {channel $1} by {nick $2} {reason $3}
+#
+# Result:
+#     19:23:42 -!- Nick [user@leet.hostname.org] was kicked from #channel by MyNick [leet reason]
+
+
+
+$VERSION = "0.2";
+%IRSSI = (
+	authors         => "Michiel v Vaardegem",
+	contact         => "michielv\@zeelandnet.nl",
+	name            => "showhost",
+	description     => "show host kicks",
+	license         => "GPL",
+	changed         => "Mon Dec  8 19:23:51 CET 2003"
+);
+
+my $lasthost;
+
+sub setlast
+{
+	my ($server, $channelname, $nickname) = @_;
+	my @channels;
+	$lasthost = {};
+	if (defined($channelname))
+	{
+		$channels[0] = $server->channel_find($channelname);
+		if (!defined($channels[0]))
+		{
+			return;
+		}
+	}
+	else
+	{
+		@channels = $server->channels();
+	}
+
+	foreach my $channel (@channels)
+	{
+		my $nick = $channel->nick_find($nickname);
+		if (defined($nick))
+		{
+			$lasthost->{$channel->{'name'}} = $nick->{host};
+		}
+	}
+}
+
+sub expando_mode
+{
+	my ($server,$item,$mode2) = @_;
+	if (!defined($item) || $item->{'type'} ne 'CHANNEL' )
+	{
+		return '';
+	}
+	return $lasthost->{$item->{'name'}};
+}
+
+
+Irssi::signal_add_first('message kick', sub {setlast($_[0],$_[1],$_[2]); });
+
+Irssi::expando_create('host', sub {expando_mode($_[0],$_[1],0)},{ 'message part' => 'None'});
+
diff --git a/scripts/showmode.pl b/scripts/showmode.pl
new file mode 100644
index 0000000..3095b2c
--- /dev/null
+++ b/scripts/showmode.pl
@@ -0,0 +1,83 @@
+# This script shows modes in parts, quits, kicks, topic changes or actions, like show_nickmode does for public messages
+#
+# Usage:
+# You must change your formats to include the $mode, for example:
+# default format for part is:
+#    {channick $0} {chanhost $1} has left {channel $2} {reason $3}
+# to include the mode, do
+#  /format part $mode{channick $0} {chanhost $1} has left {channel $2} {reason $3}
+# for quits:
+#  /format $mode{channick $0} {chanhost $1} has quit {reason $2}
+
+# Copyright (C) 2003-2007  Wouter Coekaerts <coekie@irssi.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+use strict;
+use Irssi 20021028;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.3";
+%IRSSI = (
+	authors         => "Wouter Coekaerts",
+	contact         => "wouter\@coekaerts.be",
+	name            => "showmode",
+	description     => "show modes in parts, quits, kicks, topic changes or actions, like show_nickmode does for public messages",
+	license         => "GPLv2 or later",
+	changed         => "2007-07-28"
+);
+
+my @lastmode;
+
+# $mode2 is 0 for $mode, 1 for $mode2 (only used for 'the kicker')
+sub setlast {
+	my ($mode2, $server, $channelname, $nickname) = @_;
+	my @channels;
+	@lastmode[$mode2] = {};
+	if (defined($channelname)) {
+		$channels[0] = $server->channel_find($channelname);
+		if (!defined($channels[0])) {
+			return;
+		}
+	} else {
+		@channels = $server->channels();
+
+	}
+
+	foreach my $channel (@channels) {
+		my $nick = $channel->nick_find($nickname);
+		if (defined($nick)) {
+			$lastmode[$mode2]->{$channel->{'name'}} = $nick->{'op'} ? '@' : $nick->{halfop} ? '%' : $nick->{voice} ? '+' : '' ;			
+		}
+	}
+}
+
+sub expando_mode {
+	my ($server,$item,$mode2) = @_;
+	if (!defined($item) || $item->{'type'} ne 'CHANNEL' ) {
+		return '';
+	}
+	return $lastmode[$mode2]->{$item->{'name'}};
+}
+
+Irssi::signal_add_first('message part', sub {setlast(0,$_[0],$_[1],$_[2]);});
+Irssi::signal_add_first('message quit', sub {setlast(0,$_[0],undef,$_[1]);});
+Irssi::signal_add_first('message topic', sub {setlast(0,$_[0],$_[1],$_[2]);});
+Irssi::signal_add_first('message kick', sub {setlast(0,$_[0],$_[1],$_[2]); setlast(1,$_[0],$_[1],$_[3]);});
+Irssi::signal_add_first('message irc action', sub {setlast(0,$_[0],$_[4],$_[2]);});
+Irssi::signal_add_first('message irc own_action', sub {setlast(0,$_[0],$_[2],$_[0]->{nick});});
+
+Irssi::expando_create('mode', sub {expando_mode($_[0],$_[1],0)},{ 'message part' => 'None'});
+Irssi::expando_create('mode2', sub {expando_mode($_[0],$_[1],1)},{ 'message part' => 'None'});
diff --git a/scripts/smiley.pl b/scripts/smiley.pl
new file mode 100644
index 0000000..d81437b
--- /dev/null
+++ b/scripts/smiley.pl
@@ -0,0 +1,43 @@
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = '0.69';
+
+%IRSSI = (
+	authors		=> 'Jonne Piittinen',
+	contact		=> 'jip@loota.org',
+	name		=> 'Smiley',
+	description	=> 'Very useful smiley-flooder',
+	license		=> 'Public Domain',
+);
+
+print "<--------[------------------------------]-------->";
+print "<--------[    smiley-script v. $VERSION.    ]-------->";
+print "<--------[ /smiley to generate a smiley ]-------->";
+print "<--------[------------------------------]-------->";
+
+sub gen_smiley {
+
+	my ($data, $server, $witem) = @_;
+	my @smilies;
+	my $string;
+	my $i;
+
+	@smilies = (':)',':D',';D',':P',':>','=D','=)',':E',':]');
+
+	for ($i = 0; $i < 100; $i++) {
+		if (rand(4) > 2 && $i > 0 && $string !~ / $/) {
+			$string .= " ";
+		} else {
+			$string .= @smilies[rand($#smilies-1)];
+		}
+	}
+	
+	if ($witem) {
+		$witem->command("MSG ".$witem->{name}." ".$string);
+	} else {
+		Irssi::print("No active channel or query in this window.");
+	}
+}
+
+Irssi::command_bind('smiley', 'gen_smiley');
diff --git a/scripts/sms.pl b/scripts/sms.pl
new file mode 100644
index 0000000..cdc39ec
--- /dev/null
+++ b/scripts/sms.pl
@@ -0,0 +1,438 @@
+use Irssi 20020300;
+use 5.6.0;
+use Socket;
+use POSIX;
+
+use vars qw($VERSION %IRSSI %HELP);
+$HELP{sms} = "
+SMS <handle or phone number> <text>
+
+Sends sms to handle from addressbook (see HELP addsms and listsms)
+or phone number.
+";
+$HELP{addsms} = "
+ADDSMS <handle> <phone number>
+
+Adds 'handle' with phone 'phone number' to addressbook,
+or change phone number of existing handle.
+";
+$HELP{delsms} = "
+DELSMS <handle or number from listsms>
+
+Deletes entry from addressbook.
+";
+$HELP{listsms} = "
+LISTSMS [handle match]
+
+Lists addressbook.
+";
+$VERSION = "1.5b";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "SMS",
+        description     => "/ADDSMS, /DELSMS, /LISTSMS and /SMS - phone address-book with smssender, for now supports only Polish operators",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Jan 10 03:54:07 CET 2003"
+);
+
+Irssi::theme_register([
+	'sms_sending', '>> Sending SMS to %_$0%_ /$1/',
+	'sms_sent', '>> Message to %_$0%_ has been sent.',
+	'sms_esent', '>> Message $1/$2 to %_$0%_ has been sent.',
+	'sms_notsent', '>> Message to %_$0%_ has %_NOT%_ been sent.',
+	'sms_enotsent', '>> Message $1/$2 to %_$0%_ has %_NOT%_ been sent.',
+	'sms_stat', '>> Total of %_$0%_ entries: %_$1%_ from PLUS, %_$2%_ from ERA, %_$3%_ from IDEA.',
+	'sms_listline', '[%W$[!-2]0%n]%| $[9]1%_:%_ $2 /$[-4]3/',
+]);
+
+# Chanelog:
+## version 1.5b
+# $ENV{HOME}/.irssi -> Irssi::get_irssi_dir
+## version 1.5
+# - added new prefixes
+## version 1.4
+# - sorting /smslist
+# - do not lowercasing handles
+## version 1.3
+# - fixed smsfork(), ifork()
+# - added help
+## version 1.2d
+# - ... more ERA() fixes
+## version 1.2c
+# - added parsing of 'request cannot be processed at this time' in IDEA()
+# - added [act/total] in ERA() split messages
+## version 1.2b
+# - more fixes in ERA() messages spliting
+## version 1.2
+# - fixed long message spliting in ERA()
+## version 1.1
+# - fixed IDEA()
+# - inf. ifork() loop fixed (found by Lam)
+# - fixed regex matching in /delsms, /listsms and /sms
+# - changed kill() to POSIX::_exit()
+## version 1.0
+# - forking before sending SMS
+
+my $smssender = getlogin || getpwuid($<) || "anonymous";
+my $smsfile = Irssi::get_irssi_dir . "/smslist";
+my (@smslist, $fh, %ftag);
+
+sub cmd_sms {
+	my ($target, $text) = split(/ +/, $_[0], 2);
+	my $window = Irssi::active_win();
+	my $phone;
+
+	if ($text eq "") {
+		Irssi::print("Usage: /SMS <handle or phone number> <text>");	
+		return;
+	}
+
+	if (isnumber($target)) {
+		if ($phone = corrnum($target)) {
+			my $net = smsnet($phone);
+			$window->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_sending', smsnum($phone), $net);
+			&$net($phone, $text) unless &smsfork;
+		} else {
+			Irssi::print("%R>>%n Wrong number.");
+		}
+	} else {
+		my $i = 0;
+		my $handle = lc($target);
+		my $all = $handle eq "*"? 1 : 0;
+		for my $sms (@smslist) {
+			next unless ($all || lc($sms->{handle}) eq $handle);
+			$i++;
+			my $net = smsnet($sms->{phone});
+			$window->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_sending', $sms->{handle}, $net);
+			&$net($sms->{phone}, $text) unless &smsfork;
+		}
+		Irssi::print("%R>>%n Can't find %_$target%_ in address book.") unless $i;
+	}
+}
+
+sub cmd_addsms {
+	my ($handle, $num) = split(/ +/, $_[0], 2);
+	my $phone;
+	
+	unless ($phone = corrnum($num)) {
+		Irssi::print("Usage: /ADDSMS <handle> <phone number>");
+		return;
+	}
+
+	for my $sms (@smslist) {
+		if (lc($sms->{handle}) eq lc($handle)) {
+			Irssi::print(">> Changing phone number for %_$handle%_ /to $phone/");
+			$sms->{phone} = $phone;
+			&savesms;
+			return;
+		}
+	}
+	my $sms = {};
+	$sms->{handle} = $handle;
+	$sms->{phone}  = $phone;
+	Irssi::print(">> Adding %_$handle%_ with num %_$phone%_.");
+	push @smslist, $sms;
+	&savesms;
+}
+
+sub cmd_delsms {
+	my $handle = shift;
+
+	if ($handle eq "") {
+		Irssi::print("Usage: /DELSMS <handle or number from listsms>");
+		return;
+	}
+	
+	my @num;
+	$handle = lc($handle);
+	
+	if ($handle =~ /^[0-9]+$/) {
+		push @num, $handle - 1;
+	} else {
+		my $all = $handle eq "*"? 1 : 0;
+		@smslist = sort { lc($a->{handle}) cmp lc($b->{handle}) } @smslist;
+		for (my $i = 0; $i < @smslist; $i++) {
+			push @num, $i if ($all || lc($smslist[$i]->{handle}) eq $handle);
+		}
+	}
+	for my $n (reverse(@num)) {
+		if (my($sms) = splice(@smslist, $n, 1)) {
+			Irssi::print(">> Deleted %_$sms->{handle}%_.");
+		}
+	}
+	
+	&savesms;
+}
+
+sub cmd_listsms {
+	my $match = shift || "*";
+	my $window = Irssi::active_win();
+	
+	if (@smslist == 0) {
+		Irssi::print("%R>>%n Your SMSLIST is empty.");
+		return;
+	}
+	my $all = $match eq "*"? 1 : 0;
+	@smslist = sort { lc($a->{handle}) cmp lc($b->{handle}) } @smslist;
+	my $i = 1;
+	for my $sms (@smslist) {
+		next unless $all || $sms->{handle} =~ /\Q$match\E/i;
+		$window->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_listline', $i++, $sms->{handle}, $sms->{phone}, smsnet($sms->{phone}));
+	}
+	&smsstat if $match eq "*";
+}
+
+sub smsstat {
+	my ($plus, $era, $idea) = (0, 0, 0);
+	
+	for my $sms (@smslist) {
+		for ($sms->{phone}) {
+			/^6(0[1,3,5,7,9]|91)/ and $plus++;
+			/^6(0[0,2,4,6,8]|92)/ and $era++;
+			/^50/ and $idea++;
+		}
+	}
+	Irssi::active_win()->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_stat', scalar(@smslist), $plus, $era, $idea);
+}
+
+sub savesms {
+	local *fp;
+	open (fp, ">$smsfile") or die "Couldn't open $smsfile for writing";
+	for my $sms (@smslist) {
+		print(fp "$sms->{handle} $sms->{phone}\n");
+	}
+	close(fp);
+}
+
+sub loadsms {
+	@smslist = ();
+	return unless (-e $smsfile);
+	local *fp;
+	open(fp, "<$smsfile");
+	local $/ = "\n";
+	while (<fp>) {
+		chop;
+		my $sms = {};
+		($sms->{handle}, $sms->{phone}) = split(/ /);
+		push(@smslist, $sms);
+	}
+	close(fp);
+	Irssi::print("Loaded address book:");
+	&smsstat;
+}
+
+sub isnumber {
+	return ($_[0] =~ /^([+]|[0-9])[0-9]{6,}$/);
+}
+
+sub corrnum {
+	my $num = shift;
+
+	return 0 unless isnumber($num);
+	
+	if ($num =~ /^\+/) {
+		return 0 unless $num =~ s/^(\+48)//g;
+	}
+	$num =~ s/^(48)//;
+
+	return $num;
+}
+
+sub smsnum {
+	my $num = shift;
+	for my $sms (@smslist) {
+		if ($sms->{phone} eq $num) {
+			return $sms->{handle}
+		}
+	}
+	return $num;
+}
+
+sub smsnet {
+	for (@_) {
+		/^6(0[13579]|9[135])/ and return "PLUS";
+		/^6(0[02468]|9[24])/ and return "ERA";
+		/^50/ and return "IDEA";
+	}
+	return "UNKNOWN";
+}
+
+sub urlencode {
+	my $ret = shift;
+	$ret =~ s/([^a-zA-Z0-9])/sprintf("%%%.2x", ord($1));/eg;
+	return $ret;
+}
+
+sub smsfork {
+	my ($rh, $wh);
+	pipe($rh, $wh);
+	my $pid = fork();
+	unless (defined $pid) {
+		Irssi::print("%R>>%n Failed to fork() :/ -  $!");
+		close $rh; close $wh;
+		return 1;
+	} elsif ($pid) { 	# parent
+		close $wh;
+		$ftag{$rh} = Irssi::input_add(fileno($rh), INPUT_READ, \&ifork, $rh);
+		Irssi::pidwait_add($pid);
+	} else { 		# child
+		close $rh;
+		$fh = $wh;
+	}
+	return $pid;
+}
+
+sub smskill {
+	print($fh "finished\n");
+	close $fh;
+	POSIX::_exit(1);
+}
+
+sub ifork {
+	my $rh= shift;
+	my $ret = 0;
+	while (<$rh>) {
+		/^sent (.+)/ and Irssi::active_win()->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_sent', smsnum($1)), last;
+		/^esent ([0-9]+)\s([0-9]+)\s([0-9]+)$/ and Irssi::active_win()->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_esent', smsnum($1), $2, $3), last;
+		/^notsent (.+)/ and Irssi::active_win()->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_notsent', smsnum($1)), last; 
+		/^enotsent ([0-9]+)\s([0-9]+)\s([0-9]+)$/ and Irssi::active_win()->printformat(MSGLEVEL_CLIENTNOTICE, 'sms_enotsent', smsnum($1), $2, $3), last; 
+		/^info (.+)/ and Irssi::print("$1"), last;
+		/^finished$/ and $ret = 1, last;
+	}	
+	return unless $ret;
+	Irssi::input_remove($ftag{$rh});
+	delete $ftag{$rh};
+	close $rh;
+}
+
+sub sconnect {
+	my $target = shift;
+	my ($proto, $iaddr, $saddr);
+	
+	$proto = getprotobyname('tcp');
+	$iaddr = inet_aton($target);
+	socket(SOCK, PF_INET, SOCK_STREAM, $proto) || return 0;
+	local $SIG{ALRM} = sub {
+		print($fh "info %R>>%n connect() to $target timeouted :/\n");	
+		close SOCK;
+		return 0;	
+	};
+	alarm 10;
+	unless (connect(SOCK, sockaddr_in(80, $iaddr))) {
+		print($fh "info %R>>%n Couldn't connect to $target: $!\n");
+		close SOCK;
+		return 0;
+	}
+	alarm 0;
+	my $old = select(SOCK); $| = 1; select($old);
+	return 1;
+}
+
+sub PLUS {
+	my ($phone, $text) = @_;
+	&smskill unless sconnect("sms.plusgsm.pl");
+	my $tosend = "tprefix=" . substr($phone, 0, 3) . "&numer=" . substr($phone, 3) . "&odkogo=$smssender&tekst=" . urlencode($text) . "&dzien=dzisiaj&godz=&min=";
+	print SOCK "POST /sms/sendsms.php HTTP/1.0\n";
+	print SOCK "Host: www.text.plusgsm.pl:80\n";
+	print SOCK "Accept: */*\n";
+	print SOCK "Content-type: application/x-www-form-urlencoded\n";
+	print SOCK "Content-length: " . length($tosend) . "\n\n";
+	print SOCK "$tosend\r\n";
+	while (<SOCK>) {
+		/wiadomo¶æ zosta³a wys³ana/ and print($fh "sent $phone\n"), last;
+		/nie zosta³ wys³any/ and print($fh "notsent $phone\n"), last; 
+	}
+	close SOCK;
+	&smskill;
+}
+
+sub ERA {
+	my ($phone, $cutme) = @_;
+	my $ml = 126 - length($smssender);
+	my $cl = length($cutme);
+	my $total = int($cl / $ml) + (($cl%$ml)? 1 : 0);
+	if ($total > 1) {
+		$ml -= (4 + length($total) * 2);
+		$total = int($cl / $ml) + (($cl%$ml)? 1 : 0);
+		printf($fh "info >> Spliting SMS to $total messages.\n");
+	}
+	my $act = 0;
+	while ($cutme =~ s/.{1,$ml}//) {
+		my ($cookie, $code, $tosend, $text);
+		&smskill unless sconnect("boa.eragsm.pl");
+		$act++;
+		$text = "<$act/$total> " if $total > 1;
+		$text .= $&;
+		print SOCK "POST /sms/sendsms.asp?sms=1 HTTP/1.0\n";
+		print SOCK "Host: boa.eragsm.com.pl:80\n";
+		print SOCK "Accept: */*\n\r\n";
+		while (<SOCK>) {
+			$cookie = $1 if /Set\-Cookie\:\ ([^\;]+?)\;/;
+			$code = $1 if /name\=\"Code\"\ value\=\"(.+?)\"/;
+		}
+		close SOCK;
+		$tosend = "numer=$phone&bookopen=&message=" . urlencode($text) . "&podpis=$smssender&kontakt=&Nadaj=Nadaj&code=$code&Kasuj=Kasuj&Telefony=Telefony";
+		&smskill unless sconnect("boa.eragsm.pl");
+		print SOCK "POST /sms/sendsms.asp HTTP/1.0\n";
+		print SOCK "Host: boa.eragsm.com.pl:80\n";
+		print SOCK "Accept: */*\n";
+		print SOCK "Cookie: $cookie\n";
+		print SOCK "Referer: http://boa.eragsm.com.pl/sms/sendsms.asp\n";
+		print SOCK "Content-type: application/x-www-form-urlencoded\n";
+		print SOCK "Content-length: " . length($tosend) . "\n\n";
+		print SOCK "$tosend\r\n";
+		if ($total > 1) {
+			while (<SOCK>) {
+				/nie zosta³a wys³ana!/ and print($fh "enotsent $phone $act $total\n"), last;
+				/zosta³a wys³ana/ and print($fh "esent $phone $act $total\n"), last;
+			}	
+		} else {
+			while (<SOCK>) {
+				/nie zosta³a wys³ana!/ and print($fh "notsent $phone\n"), last;
+				/zosta³a wys³ana/ and print($fh "sent $phone\n"), last;
+			}
+		}
+		close SOCK;
+	}
+	&smskill;
+}
+
+sub IDEA {
+	my ($phone, $text) = @_;
+	my ($sec, $min, $hour, $day, $mon, $year) = (localtime)[0,1,2,3,4,5];
+	$year += 1900;
+	$mon += 1;
+	&smskill unless sconnect("sms.idea.pl");
+        my $tosend = "LANGUAGE=pl&NETWORK=smsc1&DELIVERY_TIME=0&SENDER=$smssender&RECIPIENT=$phone&VALIDITY_PERIOD=24&DELIVERY_DATE=$day&DELIVERY_MONTH=$mon&DELIVERY_YEAR=$year&DELIVERY_HOUR=$hour&DELIVERY_MIN=$min&NOTIFICATION_FLAG=false&NOTIFICATION_ADDRESS=&SHORT_MESSAGE=" . urlencode($text) . "&SUBMIT=Wyslij";
+	print SOCK "POST /sendsms.asp HTTP/1.0\n";
+	print SOCK "Host: sms.idea.pl:80\n";
+	print SOCK "Accept: */*\n";
+	print SOCK "Content-type: application/x-www-form-urlencoded\n";
+	print SOCK "Content-length: " . length($tosend) . "\n\n";
+	print SOCK "$tosend\r\n";
+	while (<SOCK>) {
+		/SMS nie zostanie/ and print($fh "notsent $phone\n"), last;
+		/doby zosta³ wyczerpany/ and print($fh "notsent $phone\n"), last;
+		/zosta³a wys³ana/ and print($fh "sent $phone\n"), last;
+		/request cannot be processed/ and print($fh "notsent $phone\n"), last;
+	}
+	close SOCK;
+	&smskill;
+}
+
+sub UNKNOWN {
+	print($fh "info %R>>%n Sorry, sms.pl supports only polish operators :/\n");
+	&smskill;
+}
+
+&loadsms;
+
+Irssi::command_bind("sms", "cmd_sms");
+Irssi::command_bind("addsms", "cmd_addsms");
+Irssi::command_bind("smsadd", "cmd_addsms");
+Irssi::command_bind("smsdel", "cmd_delsms");
+Irssi::command_bind("delsms", "cmd_delsms");
+Irssi::command_bind("listsms", "cmd_listsms");
+Irssi::command_bind("smslist", "cmd_listsms");
+Irssi::command_bind("smsstat", "smsstat");
diff --git a/scripts/snmpup.pl b/scripts/snmpup.pl
new file mode 100644
index 0000000..7a37950
--- /dev/null
+++ b/scripts/snmpup.pl
@@ -0,0 +1,101 @@
+use strict;
+use Net::SNMP;
+use vars qw($VERSION %IRSSI);
+
+# Changes:
+# Apr 6:
+# - Added debug option
+# - Checks for remote OS type.. Windows' snmpd is somewhat different
+# - Included load averages
+# - Multiple hosts support
+# Mar 13:
+# - Typofixes
+
+$VERSION = "2.00";
+%IRSSI = (
+	authors => "Rick (strlen) Jansen",
+	contact => "strlen\@shellz.nl",
+	name => "snmpup",
+	description => "This script queries remote hosts (/snmpup <host1> <host2> <hostN>) running snmpd for it's uptime and cpu usage",
+	license => "GPL/2",
+	changed => "Sun Apr 6 17:57:28 CET 2002"
+);
+
+use Irssi;
+sub snmpup {
+	my ($input, $server, $data) = @_;
+
+	# Assume $input are hostnames if no debug flag is given
+	my (@hostnames, $debug, @mibs, $hostname);
+	
+	if ($input !~ /^\-d/) {
+		@hostnames = split(" ",$input);
+		$debug = 0;
+	} else {
+		$input =~ s/^\-d //;
+		@hostnames = split(" ",$input);
+		$debug = 1;
+	}
+	if (!@hostnames) { Irssi::print("snmpup: invalid syntax: $input"); return }
+
+	my $hostUpTime = '1.3.6.1.2.1.25.1.1.0';
+	my $sysSystem = '1.3.6.1.2.1.1.1.0';
+	my $sysUpTime = '1.3.6.1.2.1.1.3.0';
+	my $hrLoad = '1.3.6.1.2.1.25.3.3.1.2.1';
+	my $laLoadInt1 = '1.3.6.1.4.1.2021.10.1.5.1';
+	my $laLoadInt5 = '1.3.6.1.4.1.2021.10.1.5.2';
+	my $laLoadInt15 = '1.3.6.1.4.1.2021.10.1.5.3';
+	
+	foreach $hostname (@hostnames) {
+		my ($session, $error) = Net::SNMP->session(
+					-hostname	=>	$hostname,
+					-community	=>	'public',
+					-port		=>	'161',
+					);
+		if (!defined($session)) {
+			$server->command("/msg ".$data->{name}." Unable to create SNMP connection: $error");
+			return;
+		} elsif ($debug) {
+			Irssi::print("Net::SNMP session created.");
+		}
+
+		my $a = $session->get_request(-varbindlist=>[$sysSystem]);
+
+		my $system = $a->{$sysSystem};
+
+		if ($debug) {
+			Irssi::print("Remote system type is $system");
+		}
+
+		if ($system =~ /Windows/) { 
+			@mibs = [$sysUpTime,$hrLoad];
+		} else {
+			@mibs = [$hostUpTime,$laLoadInt1,$laLoadInt5,$laLoadInt15];
+		}
+
+		my $result = $session->get_request(-varbindlist=>@mibs);
+
+		if (!defined($result)) {
+			my $err = $session->error;
+			$server->command("/msg ".$data->{name}." SNMP get error: $err");
+			$session->close();
+		} else {
+			my $host = $session->hostname; 
+			my ($uptime, $load);
+			if ($system =~ /Windows/) {
+				$uptime = $result->{$sysUpTime};
+				$load = sprintf("CPU Usage: %d%",$result->{$hrLoad});
+			} else {
+				$uptime = $result->{$hostUpTime};
+				$load = sprintf("load averages: %.2f, %.2f, %.2f",
+						   $result->{$laLoadInt1} / 100,
+						   $result->{$laLoadInt5} / 100,
+					   	$result->{$laLoadInt15} / 100);
+			}
+			$server->command("/msg ".$data->{name}." SNMP uptime for host '$host' is $uptime, $load");
+			$session->close();
+		}
+		$session->close();
+	}
+}
+Irssi::command_bind("snmpup","snmpup");
diff --git a/scripts/spambot.pl b/scripts/spambot.pl
new file mode 100644
index 0000000..e466a1c
--- /dev/null
+++ b/scripts/spambot.pl
@@ -0,0 +1,80 @@
+# This script was originally written by Mike McDonald of 
+# FoxChat.Net for the X-Chat Client to be used by Opers 
+# to Kline/kill spam bots that message you  or say in 
+# open channel -
+# "Come watch me on my webcam and chat /w me :-) http://some.domain.com/me.mpg".
+# 
+# This is my first script so I'm sure there is a more
+# efficient way of doing this.
+#
+# --------[ Note ]-------------------------------------------------------------
+# I symlink this to my ~/.irssi/scripts/autorun
+# Just know that it will not work if you are not op'd.
+#
+#------------------------------------------------------------------------------
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI $SCRIPT_NAME);
+
+%IRSSI = (
+    authors       => 'Daemon @ ircd.foxchat.net',
+    name          => 'Spam Bot Killer',
+    description   => 'Oper script to kill Spam Bots.',
+    license       => 'Public Domain'
+);
+($VERSION) = '$Revision: 1.2 $' =~ / (\d+\.\d+) /;
+
+$SCRIPT_NAME = 'Spam Bot Killer';
+
+# ======[ Credits ]============================================================
+#
+# Thanks to:
+#
+# Mike - For letting me use parts of his bot_killer.pl which was written for 
+# the X-Chat client.
+#
+# Garion - Let me use parts of his "ho_easykline" to make this work with 
+# Irssi and gave me - 
+# return unless $server->{server_operator};
+# so the script won't try to run if you aren't oper'd.
+#
+# mannix and lestefer of ircd.foxchat.net for letting me kline them :)
+#
+#------------------------------------------------------------------------------
+    sub event_privmsg
+    {
+    # $data = "nick/#channel :text"
+        my ($server, $data, $nick, $host, $user, $address) = @_;
+	
+
+	# Set Temp K-Line time here in minutes.
+	my $klinetime = 1440;
+	my $msg = "Spamming is lame ... go spam somewhere else.";
+        my ($target, $text) = split(/ :/, $data, 2);
+
+        if ($text =~ /chat \/w me/ || / \/me.mpg/)
+        {
+# --------[ Notice ]-----------------------------------------------------------
+	  # Uncomment this line if you  don't want to use temp klines 
+	  # and comment the following line.
+
+	  # $server->command("quote kline $host :$msg");
+
+	    $server->command("quote kline $klinetime $host :$msg");
+
+#------------------------------------------------------------------------------
+
+	      Irssi::print("K-lined $nick :$msg");
+
+	  # Do a Kill in case they are on another server 
+	  # and the local Kline doesn't get them.
+
+	  $server->command("quote kill $nick :$msg");
+        }
+    }
+
+Irssi::signal_add("event privmsg", "event_privmsg");
+
+Irssi::print("\00311::          Spam Bot Killer loaded              ::\003\n");
+Irssi::print("\00311::You can only use this script if you are Oper. ::\003\n");
diff --git a/scripts/special_complete.pl b/scripts/special_complete.pl
new file mode 100644
index 0000000..d8f0672
--- /dev/null
+++ b/scripts/special_complete.pl
@@ -0,0 +1,30 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+$VERSION = '1.1';
+%IRSSI = (
+	authors  	=> 'Wouter Coekaerts',
+	contact  	=> 'wouter@coekaerts.be, coekie@#irssi',
+	name    	=> 'special_complete',
+	description 	=> '(tab)complete irssi special variables (words that start with $) by evaluating them',
+	license 	=> 'GPLv2',
+	url     	=> 'http://wouter.coekaerts.be/irssi/',
+	changed  	=> '28/07/03',
+);
+
+Irssi::signal_add_last 'complete word', sub {
+	my ($complist, $window, $word, $linestart, $want_space) = @_;
+	if ($word =~ /^\$/){
+		my $evaluated;
+		if (Irssi::active_win->{'active'}) {
+			$evaluated = Irssi::active_win->{'active'}->parse_special($word);
+		} elsif (Irssi::active_win->{'active_server'}) {
+			$evaluated = Irssi::active_win->{'active_server'}->parse_special($word);
+		} else {
+			$evaluated = Irssi::parse_special($word);
+		}
+		if ($evaluated ne '') {
+			push @$complist, $evaluated;
+		}
+	}
+};
diff --git a/scripts/spell.pl b/scripts/spell.pl
new file mode 100644
index 0000000..97dcc94
--- /dev/null
+++ b/scripts/spell.pl
@@ -0,0 +1,125 @@
+#!/usr/bin/perl -w
+#
+# Michael Kowalchuk <michael_kowalchuk@umanitoba.ca> presents:
+#
+# A spell checker for irssi
+# Requires Lingua::Ispell and ispell
+#
+# Usage:
+#  Load the script
+#  Type /bind meta-s /_spellcheck
+#  Hit meta+s (alt+s) to check your spelling
+#
+# This script also implements /spell <line> which shows more spelling suggestions than
+# the hotkey (99).
+#
+# Options:
+#   spell_max_guesses (def: 1)
+#   spell_error_effect (def: %U = underline, others are %8 = reverse, %9 = bold)
+#                                            see http://irssi.org/documentation/formats
+#                                      
+#
+# History
+#   First version: inline spellchecking, terrible, unreleased [Tue Aug  2 00:32:27 CDT 2005]
+#   New version: Spellcheck on request [Mon Jan  2 17:02:12 CST 2006]
+#
+# Todo
+#   Is there a way for a script to clear its mess like '/lastlog -clear' does?
+#
+
+use strict;
+use Irssi;
+use List::Util qw( min );
+use Irssi::TextUI;
+use Lingua::Ispell;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'Michael Kowalchuk',
+    contact     => 'michael_kowalchuk@umanitoba.ca',
+    name        => 'spell',
+    description => 'A spell checker for irssi.  Hit alt+s and your line will echoed to the active window with mistakes underlined and suggestions noted.  /spell is also provided.  Requires Lingua::Ispell and Ispell.',
+    license     => 'MIT',
+    url         => 'http://home.cc.umanitoba.ca/~umkowa17/',
+    changed     => 'Mon Jan  2 17:02:12 CST 2006'
+);
+
+sub check_line {
+	my ($inputline, $guesses) = @_;
+
+	my $error_start = Irssi::settings_get_str($IRSSI{'name'}.'_error_effect');
+	my $error_end = "%n"; # previous colour
+
+	# ISpell has a limit of 99 characters in a word
+	if ( $inputline =~ /\w{99}/ ) {
+		return "unable to spellcheck";
+	}
+
+	# Reads in a list of hashes for each error with the keys term, type, and offset
+	my @errs = Lingua::Ispell::spellcheck( $inputline );
+	
+	if( @errs > 0 ) {
+		# Reconstruct the line with suggestions built in
+		my $outputline;
+		my $last_end = 0;
+		foreach(@errs) {
+			my $off=$_->{'offset'}-1; # ispell counts from 1
+			my $before = substr($inputline, $last_end, $off - $last_end);
+			
+			$last_end = $off + length($_->{'term'});
+
+			# Give speling [spelling, spelunking?] suggestions
+			my $extra_info = "";
+			if( $guesses > 0 ) {
+				if( $_->{'type'} eq 'miss' ) {
+					# Show near-misses, there will be 1..n of them
+					my @misses = @{$_->{'misses'}};
+
+					my $miss_len = @misses;
+					my $shown_guesses = min( $miss_len, $guesses);
+
+					my @shown = @misses[0..$shown_guesses - 1];
+
+					$extra_info = " (" . join(", ", @shown ) . "?)";
+				}
+				elsif( $_->{'type'} eq 'root' ) {
+					# Show root suggestions, there will be exactly 1
+					$extra_info = " (" . $_->{'root'} . "?)";
+				}
+			}
+			
+ 			$outputline .= $before . $error_start . $_->{'term'} . $error_end . $extra_info;
+		}
+		$outputline .= substr($inputline, $last_end);
+	
+		return $outputline;
+	}
+	else {
+		return "no errors";
+	}
+}
+
+# Read from the input line
+sub cmd_spellcheck {
+	my $inputline = Irssi::parse_special("\$L");
+	my $guesses = Irssi::settings_get_int($IRSSI{'name'}.'_max_guesses');	
+
+	Irssi::active_win()->print("spell: " . check_line($inputline, $guesses), MSGLEVEL_CRAP );
+}
+
+# Read from the argument list
+sub cmd_spell {
+	my ($inputline) = @_;
+	my $guesses = 99;
+
+	Irssi::active_win()->print("spell: " . check_line($inputline, $guesses), MSGLEVEL_CRAP );
+}
+
+
+Irssi::settings_add_str('misc', $IRSSI{'name'} . '_error_effect', "%U");
+Irssi::settings_add_int('misc', $IRSSI{'name'} . '_max_guesses', 1);
+
+Irssi::command_bind('_spellcheck', 'cmd_spellcheck');
+Irssi::command_bind('spell', 'cmd_spell');
+
diff --git a/scripts/spellcheck.pl b/scripts/spellcheck.pl
new file mode 100644
index 0000000..158ea3c
--- /dev/null
+++ b/scripts/spellcheck.pl
@@ -0,0 +1,213 @@
+#!/usr/bin/perl -w
+
+# ** This script is a 10-minutes-hack, so it's EXPERIMENTAL. **
+#
+# Requires:
+#  - Irssi 0.8.12 or newer (http://irssi.org/).
+#  - GNU Aspell with appropriate dictionaries (http://aspell.net/).
+#  - Perl module Text::Aspell (available from CPAN).
+#
+#
+# Description:
+#  Works as you type, printing suggestions when Aspell thinks
+#  your last word was misspelled. 
+#  It also adds suggestions to the list of tabcompletions,
+#  so once you know last word is wrong, you can go back 
+#  and tabcomplete through what Aspell suggests.
+#
+#
+# Settings:
+#
+#  spellcheck_languages  -- a list of space and/or comma
+#    separated languages to use on certain networks/channels.
+#    Example: 
+#    /set spellcheck_languages netA/#chan1/en_US, #chan2/fi_FI, netB/!chan3/pl_PL
+#    will use en_US for #chan1 on network netA, fi_FI for #chan2
+#    on every network, and pl_PL for !chan3 on network netB.
+#    By default this setting is empty.
+#
+#  spellcheck_default_language  -- language to use in empty
+#    windows, or when nothing from spellcheck_languages matches.
+#    Defaults to 'en_US'.
+#
+#  spellcheck_enabled [ON/OFF]  -- self explaining. Sometimes
+#    (like when pasting foreign-language text) you don't want
+#    the script to spit out lots of suggestions, and turning it
+#    off for a while is the easiest way. By default it's ON.
+#
+#
+# BUGS:
+#  - won't catch all mistakes
+#  - picking actual words from what you type is very kludgy,
+#    you may occasionally see some leftovers like digits or punctuation
+#  - works every time you press space or a dot (so won't work for
+#    the last word before pressing enter, unless you're using dot
+#    to finish your sentences)
+#  - when you press space and realize that the word is wrong,
+#    you can't tabcomplete to the suggestions right away - you need
+#    to use backspace and then tabcomplete. With dot you get an extra
+#    space after tabcompletion.
+#  - all words will be marked and no suggestions given if 
+#    dictionary is missing (ie. wrong spellcheck_default_language)
+#  - probably more, please report to $IRSSI{'contact'}
+#
+#
+# $Id: spellcheck.pl 5 2008-05-28 22:31:06Z shasta $
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi 20070804;
+use Text::Aspell;
+
+$VERSION = '0.3';
+%IRSSI = (
+    authors     => 'Jakub Jankowski',
+    contact     => 'shasta@toxcorp.com',
+    name        => 'Spellcheck',
+    description => 'Checks for spelling errors using Aspell.',
+    license     => 'GPLv2',
+    url         => 'http://toxcorp.com/irc/irssi/spellcheck/',
+);
+
+my %speller;
+
+sub spellcheck_setup
+{
+    return if (exists $speller{$_[0]} && defined $speller{$_[0]});
+    $speller{$_[0]} = Text::Aspell->new or return undef;
+    $speller{$_[0]}->set_option('lang', $_[0]) or return undef;
+    $speller{$_[0]}->set_option('sug-mode', 'fast') or return undef;
+    return 1;
+}
+
+# add_rest means "add (whatever you chopped from the word before
+# spellchecking it) to the suggestions returned"
+sub spellcheck_check_word
+{
+    my ($lang, $word, $add_rest) = @_;
+    my $win = Irssi::active_win();
+    my @suggestions = ();
+
+    # setup Text::Aspell for that lang if needed
+    if (!exists $speller{$lang} || !defined $speller{$lang})
+    {
+	if (!spellcheck_setup($lang))
+	{
+	    $win->print("Error while setting up spellchecker for $lang");
+	    # don't change the message
+	    return @suggestions;
+	}
+    }
+
+    # do the spellchecking
+    my ($stripped, $rest) = $word =~ /([^[:punct:][:digit:]]{2,})(.*)/; # HAX
+    # Irssi::print("Debug: stripped $word is '$stripped', rest is '$rest'");
+    if (defined $stripped && !$speller{$lang}->check($stripped))
+    {
+	push(@suggestions, $add_rest ? $_ . $rest : $_) for ($speller{$lang}->suggest($stripped));
+    }
+    return @suggestions;
+}
+
+sub spellcheck_find_language
+{
+    my ($network, $target) = @_;
+    return Irssi::settings_get_str('spellcheck_default_language') unless (defined $network && defined $target);
+
+    # support !channels correctly
+    $target = '!' . substr($target, 6) if ($target =~ /^\!/);
+
+    # lowercase net/chan
+    $network = lc($network);
+    $target  = lc($target);
+
+    # possible settings: network/channel/lang  or  channel/lang
+    my @languages = split(/[ ,]/, Irssi::settings_get_str('spellcheck_languages'));
+    for my $langstr (@languages)
+    {
+	# strip trailing slashes
+	$langstr =~ s=/+$==;
+	# Irssi::print("Debug: checking network $network target $target against langstr $langstr");
+	my ($s1, $s2, $s3) = split(/\//, $langstr, 3);
+	my ($t, $c, $l);
+	if (defined $s3 && $s3 ne '')
+	{
+	    # network/channel/lang
+	    $t = lc($s1); $c = lc($s2); $l = $s3;
+	}
+	else
+	{
+	    # channel/lang
+	    $c = lc($s1); $l = $s2;
+	}
+
+	if ($c eq $target && (!defined $t || $t eq $network))
+	{
+	    # Irssi::print("Debug: language found: $l");
+	    return $l;
+	}
+    }
+
+    # Irssi::print("Debug: language not found, using default");
+    # no match, use defaults
+    return Irssi::settings_get_str('spellcheck_default_language');
+}
+
+sub spellcheck_key_pressed
+{
+    my ($key) = @_;
+    my $win = Irssi::active_win();
+
+    # I know no way to *mark* misspelled words in the input line,
+    # that's why there's no spellcheck_print_suggestions -
+    # because printing suggestions is our only choice.
+    return unless Irssi::settings_get_bool('spellcheck_enabled');
+
+    # don't bother unless pressed key is space or dot
+    return unless (chr $key eq ' ' or chr $key eq '.');
+
+    # get current inputline
+    my $inputline = Irssi::parse_special('$L');
+
+    # check if inputline starts with any of cmdchars
+    # we shouldn't spellcheck commands
+    my $cmdchars = Irssi::settings_get_str('cmdchars');
+    my $re = qr/^[$cmdchars]/;
+    return if ($inputline =~ $re);
+
+    # get last bit from the inputline
+    my ($word) = $inputline =~ /\s*([^\s]+)$/;
+
+    # find appropriate language for current window item
+    my $lang = spellcheck_find_language($win->{active_server}->{tag}, $win->{active}->{name});
+
+    my @suggestions = spellcheck_check_word($lang, $word, 0);
+    # Irssi::print("Debug: spellcheck_check_word($word) returned array of " . scalar @suggestions);
+    return if (scalar @suggestions == 0);
+
+    # we found a mistake, print suggestions
+    $win->print("Suggestions for $word - " . join(", ", @suggestions));
+}
+
+
+sub spellcheck_complete_word
+{
+    my ($complist, $win, $word, $lstart, $wantspace) = @_;
+
+    return unless Irssi::settings_get_bool('spellcheck_enabled');
+
+    # find appropriate language for the current window item
+    my $lang = spellcheck_find_language($win->{active_server}->{tag}, $win->{active}->{name});
+
+    # add suggestions to the completion list
+    push(@$complist, spellcheck_check_word($lang, $word, 1));
+}
+
+
+Irssi::settings_add_bool('spellcheck', 'spellcheck_enabled', 1);
+Irssi::settings_add_str( 'spellcheck', 'spellcheck_default_language', 'en_US');
+Irssi::settings_add_str( 'spellcheck', 'spellcheck_languages', '');
+
+Irssi::signal_add_first('gui key pressed', 'spellcheck_key_pressed');
+Irssi::signal_add_last('complete word', 'spellcheck_complete_word');
diff --git a/scripts/sping.pl b/scripts/sping.pl
new file mode 100644
index 0000000..49d8d78
--- /dev/null
+++ b/scripts/sping.pl
@@ -0,0 +1,36 @@
+use Irssi;
+use Irssi::Irc;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.9";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "Server Ping",
+        description     => "/SPING [server] - checks latency between current server and [server]",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Mar 15 15:09:42 CET 2002"
+);
+
+my %askping;
+
+sub cmd_sping {
+	my ($target, $server, $winit) = @_;
+	
+	$target = $server->{address} unless $target;
+	$askping{$target} = time();
+	$server->send_raw("PING $server->{address} $target");	
+}
+
+sub event_pong {
+	my ($server, $args, $sname) = @_;
+	
+	Irssi::signal_stop() if ($askping{$sname});
+
+	Irssi::print(">> $sname latency: " . (time() - $askping{$sname}) . "s");
+	undef $askping{$sname};
+}
+
+Irssi::signal_add("event pong", "event_pong");
+Irssi::command_bind("sping", "cmd_sping");
diff --git a/scripts/splitlong.pl b/scripts/splitlong.pl
new file mode 100644
index 0000000..e88840b
--- /dev/null
+++ b/scripts/splitlong.pl
@@ -0,0 +1,60 @@
+# /set splitlong_max_length
+#   specifies the maximum length of a msg, automatically chosen when set to "0"
+#   default: 0
+#
+# /set splitlong_line_start
+# /set splitlong_line_end
+#   self-explanatory
+#   defaults: "... ", " ..."
+###
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20011001;
+
+$VERSION = "0.20";
+%IRSSI = (
+	authors     => "Bjoern \'fuchs\' Krombholz",
+	contact     => "bjkro\@gmx.de",
+	name        => "splitlong",
+	licence     => "Public Domain",
+	description => "Split overlong PRIVMSGs to msgs with length allowed by ircd",
+	changed     => "Wed Jun 25 00:17:00 CET 2003",
+	changes     => "Actually the real 0.19 (now 0.20), but upload didn't work some month ago, target problem fixed..."
+);
+
+sub sig_command_msg {
+	my ($cmd, $server, $winitem) = @_;
+	my ( $param, $target,$data) = $cmd =~ /^(-\S*\s)?(\S*)\s(.*)/;
+    
+	my $maxlength = Irssi::settings_get_int('splitlong_max_length');
+	my $lstart    = Irssi::settings_get_str('splitlong_line_start');
+	my $lend      = Irssi::settings_get_str('splitlong_line_end');
+
+	if ($maxlength == 0) {
+		# 497 = 510 - length(":" . "!" . " PRIVMSG " . " :");
+		$maxlength = 497 - length($server->{nick} . $server->{userhost} . $target);
+	}
+	my $maxlength2 = $maxlength - length($lend);
+
+	if (length($data) > ($maxlength)) {
+		my @spltarr;
+
+		while (length($data) > ($maxlength2)) {
+			my $pos = rindex($data, " ", $maxlength2);
+			push @spltarr, substr($data, 0, ($pos < ($maxlength/10 + 4)) ? $maxlength2  : $pos)  . $lend;
+			$data = $lstart . substr($data, ($pos < ($maxlength/10 + 4)) ? $maxlength2 : $pos+1);
+		}
+
+		push @spltarr, $data;
+		foreach (@spltarr) {
+			Irssi::signal_emit("command msg", "$target $_", $server, $winitem);
+		}
+		Irssi::signal_stop();
+	}
+}
+
+Irssi::settings_add_int('misc', 'splitlong_max_length', 0);
+Irssi::settings_add_str('misc', 'splitlong_line_start', "... ");
+Irssi::settings_add_str('misc', 'splitlong_line_end', " ...");
+Irssi::command_bind('msg', 'sig_command_msg');
diff --git a/scripts/stocks.pl b/scripts/stocks.pl
new file mode 100644
index 0000000..2bd2ec9
--- /dev/null
+++ b/scripts/stocks.pl
@@ -0,0 +1,431 @@
+#!/usr/bin/env perl
+
+use strict;
+use LWP::Simple;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+use HTML::Entities;
+
+$VERSION = '0.9';
+%IRSSI = (
+    authors     => 'Marcus \'darix\' Rückert, tira, Stefan \'tommie\' Tomanek',
+    contact     => 'darix@irssi.de, tira@isx.de, stefan@pico.ruhr.de',
+    name        => 'stocks',
+    description => 'prints the stats for german stocks',
+    license     => 'Public Domain',
+    url         => 'http://irssi.org/scripts/',
+    sbitems     => 'stocks_ticker'
+);
+
+my %stocklist = (
+    DE => 'FSE+DTB+MUN+HAM+HAN+BRE+STU+BER+ETR+DUS+FFM+FFI+FFK+FFC+DFK+FFT',
+    EU =>
+'LIF+LCE+MSE+MAT+LME+NLK+ZRH+SFF+EOE+ROT+MEE+MIF+BBA+PSE+ASX+BSE+MSX+HSE+MIX+ISE+WSE+KSX+SSE+OSX+ENM+POP+BAS+BRN+MOP+SQ2+LTO+PAB+ISS+SQ1+ATH+LIS+LUX',
+    OTHERS =>
+'FX1+IPE+CSC+FNX+TSE+PAR+TYO+OPR+IMM+FFX+IOM+SMX+HFE+TOR+TIF+OSE+MRF+MRV+TFE+TOC+BIS+TGE+CSH+ICP+NXC+IMC+CBC+HOX+OPA+CBQ+SON+MAS+RDW+BHL+AUS+SSW+ALB+COC+TOE+VSE+CBF+NAT+MBF+TWI+TGT',
+    US =>
+'NYS+IND+NAS+CBT+CME+KBT+WPG+NYC+NYM+CMX+NYF+SFE+MIN+ASE+MAC+CEC+FOX+FRE+DOA+BOE+NAP',
+    ASE => 'ASE',
+    ASX => 'ASX',
+    ATH => 'ATH',
+    BER => 'BER',
+    BRE => 'BRE',
+    BSE => 'BSE',
+    C05 => 'C05',
+    CBT => 'CBT',
+    CME => 'CME',
+    DFK => 'DFK',
+    DTB => 'DTB',
+    DUS => 'DUS',
+    ENM => 'ENM',
+    ETR => 'ETR',
+    FFC => 'FFC',
+    FFI => 'FFI',
+    FFM => 'FFM',
+    FFT => 'FFT',
+    FSE => 'FSE',
+    FX1 => 'FX1',
+    HAM => 'HAM',
+    HAN => 'HAN',
+    IND => 'IND',
+    ISE => 'ISE',
+    ISS => 'ISS',
+    MIX => 'MIX',
+    MUN => 'MUN',
+    NAP => 'NAP',
+    NAS => 'NAS',
+    NYS => 'NYS',
+    PAR => 'PAR',
+    PSE => 'PSE',
+    SFF => 'SFF',
+    SON => 'SON',
+    SQ1 => 'SQ1',
+    SQ2 => 'SQ2',
+    SSE => 'SSE',
+    STU => 'STU',
+    TGT => 'TGT',
+    TWI => 'TWI',
+    WSE => 'WSE',
+    ZRH => 'ZRH'
+);
+
+my %stockhelp = (
+    DE =>
+'Deutschland (FSE DTB MUN HAM HAN BRE STU BER ETR DUS FFM FFI FFK FFC DFK FFT)',
+    EU =>
+'Europa (LIF LCE MSE MAT LME NLK ZRH SFF EOE ROT MEE MIF BBA PSE ASX BSE MSX HSE MIX ISE WSE KSX SSE OSX ENM POP BAS BRN MOP SQ2 LTO PAB ISS SQ1 ATH LIS LUX)',
+    OTHERS =>
+'Andere (FX1 IPE CSC FNX TSE PAR TYO OPR IMM FFX IOM SMX HFE TOR TIF OSE MRF MRV TFE TOC BIS TGE CSH ICP NXC IMC CBC HOX OPA CBQ SON MAS RDW BHL AUS SSW ALB COC TOE VSE CBF NAT MBF TWI TGT)',
+    US =>
+'USA (NYS IND NAS CBT CME KBT WPG NYC NYM CMX NYF SFE MIN ASE MAC CEC FOX FRE DOA BOE NAP)',
+    ASE => 'AMEX',
+    ASX => 'Amsterdam',
+    ATH => 'Athen',
+    BER => 'Berlin',
+    BRE => 'Bremen',
+    BSE => 'Brüssel',
+    C05 => 'LiveTrading',
+    CBT => 'CBoT',
+    CME => 'CME',
+    DFK => 'Fonds DE',
+    DTB => 'EUREX',
+    DUS => 'Düsseldorf',
+    ENM => 'EURO.NM',
+    ETR => 'XETRA',
+    FFC => 'Frankfurt',
+    FFI => 'FFM Indizes 2',
+    FFM => 'FFM Indizes 1',
+    FFT => 'Frankfurt STOXX',
+    FSE => 'Frankfurt',
+    FX1 => 'FOREX',
+    HAM => 'Hamburg',
+    HAN => 'Hannover',
+    IND => 'USA Indizes',
+    ISE => 'London',
+    ISS => 'London Inl.',
+    MIX => 'Mailand',
+    MUN => 'München',
+    NAP => 'Nasdaq OTC',
+    NAS => 'Nasdaq',
+    NYS => 'NYSE',
+    PAR => 'Int. Indizes',
+    PSE => 'Paris',
+    SFF => 'SOFFEX',
+    SON => 'Sonderwerte',
+    SQ1 => 'London Auslandsak.',
+    SQ2 => 'London Auslandsak.',
+    SSE => 'Stockholm',
+    STU => 'Stuttgart',
+    TGT => 'TD GT',
+    TWI => 'TD Indizes',
+    WSE => 'Wien',
+    ZRH => 'Zürich'
+);
+
+my %WPArt = (
+    STK => 'Aktie',
+    BND => 'Anleihe',
+    FND => 'Fonds',
+    FUT => 'Future',
+    IND => 'Index',
+    OPT => 'Option',
+    WNT => 'Optionsschein',
+    OTC => 'Over The Counter',
+    MSC => 'Sonstige',
+    SPC => 'Sonderwert',
+    CUR => 'Währung',
+    RTE => 'Zinssatz'
+);
+
+# search
+#  -boerse {eu|de|us|others|}
+
+sub cmd_kurs {
+    my $XsearchWPArt   = 'UKN';
+    my $XsearchBoersen = 'UKN';
+    my $params         = shift ();
+
+    if ( $params =~ m/-help/ ) {
+        if ( $params =~ m/stocks/ ) {
+            Irssi::print( "\cBhelp for stocks\cB", MSGLEVEL_CRAP );
+            foreach my $key ( sort keys %stockhelp ) {
+                Irssi::print( "$key - $stockhelp{$key}", MSGLEVEL_CRAP );
+            }
+        }
+        else {
+            if ( $params =~ m/bonds/ ) {
+                Irssi::print( "\cBhelp for kind of bonds\cB", MSGLEVEL_CRAP );
+                foreach my $key ( sort keys %WPArt ) {
+                    Irssi::print( "$key - $WPArt{$key}", MSGLEVEL_CRAP );
+                }
+            }
+            else {
+                Irssi::print(
+"\cBSTOCKS\cB [-stocks <stocklist>] [-bonds <wplist>] <querysting>",
+                    MSGLEVEL_CRAP
+                );
+                Irssi::print( "",                    MSGLEVEL_CRAP );
+                Irssi::print( "\cBSee also:\cB",     MSGLEVEL_CRAP );
+                Irssi::print( "  STOCKS -help stocks", MSGLEVEL_CRAP );
+                Irssi::print( "  STOCKS -help bonds",     MSGLEVEL_CRAP );
+            }
+        }
+        return;
+    }
+
+    while ( $params =~ m/-(\S+) (\S+)/ ) {
+
+        #    Irssi::print($2." ".$3, MSGLEVEL_CRAP);
+        my $vars   = $2;
+        my $option = $1;
+        if ( $option eq "stocks" ) {
+            my @stocks = split ( ',', $vars );
+            for my $stock (@stocks) {
+                if ( exists $stocklist{$stock} ) {
+                    $stock = $stocklist{$stock};
+                }
+                else {
+                    Irssi::print( "stock $stock does not exists see /STOCKS -help stocks",
+                        MSGLEVEL_CRAP );
+                    return;
+                }
+            }
+            $XsearchBoersen = join ( "+", @stocks );
+        }
+        else {
+            if ( $option eq "bonds" ) {
+                my @wps = split ( ',', $vars );
+                for my $wp (@wps) {
+                    if ( !exists $WPArt{$wp} ) {
+                        Irssi::print( "Kind of bond $wp does not exists see /STOCKS -help bonds",
+                            MSGLEVEL_CRAP );
+                        return;
+                    }
+                }
+                $XsearchWPArt = join ( "+", @wps );
+            }
+            else {
+                Irssi::print( "unknown option $option see /STOCKS -help", MSGLEVEL_CRAP );
+                return;
+            }
+        }
+        $params =~ s/-(\S+) (\S+)//;
+    }
+    $params =~ s/\^s+//;
+
+    #  Irssi::print($XsearchBoersen, MSGLEVEL_CRAP);
+    #  Irssi::print($XsearchWPArt, MSGLEVEL_CRAP);
+    #  Irssi::print($params, MSGLEVEL_CRAP);
+    if ( $params eq "" ) {
+        Irssi::print( "empty query string see /STOCKS -help", MSGLEVEL_CRAP );
+        return;
+    }
+    my $searchfor = $params;
+    $searchfor =~ s/ /\%20/g;
+    my $host         = "http://informer2.comdirect.de";
+    my $path         = '/de/suche/main.html?';
+    my $searchButton = 'Exakt';
+    my $querystring  =
+"&searchButton=$searchButton&XsearchWPArt=$XsearchWPArt&XsearchBoersen=$XsearchBoersen&searchfor=$searchfor";
+    
+    my $content = get( $host . $path . $querystring );
+
+    my ( $oldcompany, $comp, $nbr, $boerse ) = "";
+
+    $searchfor =~ s/\%20/ /g;
+
+    if ( $content =~ m/Suchbegriff/s ) {
+        if ( $content =~ m/Kurszeit/ ) {
+            Irssi::print( "\cB" . $searchfor . " found:\cB", MSGLEVEL_CRAP );
+            $content =~ s/\&nbsp//g;
+            $content =~ m/Kurszeit.*?<\/tr>(.*?)<\/table>/s;
+            $content = $1;
+            while ( $content =~
+m/<td.*?>(.*?)<\/td>.*?<td.*?>(.*?)<\/td>.*?<td.*?>(.*?)<\/td>.*?<td.*?>(.*?)<\/td>.*?/s
+              )
+            {
+                $comp   = $1;
+                $nbr    = $3;
+                $boerse = $2;
+                decode_entities($comp);
+                decode_entities($nbr);
+                decode_entities($boerse);
+                if ($comp) {
+                    Irssi::print( "  " . $nbr . " " . $boerse . ": " . $comp,
+                        MSGLEVEL_CRAP );
+                    $oldcompany = $comp;
+                }
+                else {
+                    Irssi::print(
+                        "  " . $nbr . " " . $boerse . ": " . $oldcompany,
+                        MSGLEVEL_CRAP );
+                }
+                $content =~ m/<tr.*?>.*?<\/tr>(.*)/s;
+                $content = $1;
+            }
+        }
+        else {
+            Irssi::print( "\cBcould not find:\cB $searchfor", MSGLEVEL_CRAP );
+        }
+        return;
+    }
+
+    if ( $content =~
+m/<th width="99%" class="news">(.*?)<\/th>.*?<td.*?>WKN.*?class="sym">(\d+)/s
+      )
+    {
+        Irssi::print( "\c_WKN " . $2 . " - " . $1 . "\c_", MSGLEVEL_CRAP );
+    }
+
+    if ( $content =~ m/<td.*?>(Aktueller Kurs)<\/td>\s+<td>(.*?)<\/td>/s ) {
+        Irssi::print( "  \cB" . $1 . ":\cB " . $2, MSGLEVEL_CRAP );
+    }
+
+    if ( $content =~ m/<td.*?>R&uuml;cknahmepreis<\/td>\s+<td>(.*?)<\/td>/s ) {
+        Irssi::print( "  \cBRücknahmepreis:\cB " . $1, MSGLEVEL_CRAP );
+    }
+
+    if ( $content =~ m/<td.*?>(Ausgabepreis)<\/td>\s+<td>(.*?)<\/td>/s ) {
+        Irssi::print( "  \cB" . $1 . ":\cB " . $2, MSGLEVEL_CRAP );
+    }
+
+    if ( $content =~ m/<td.*?>(Differenz)<\/td>\s+<td>(.*?)<\/td>/s ) {
+        Irssi::print( "  \cB" . $1 . ":\cB " . $2, MSGLEVEL_CRAP );
+    }
+}
+
+
+# added by Stefan 'tommie' Tomanek
+use vars qw{$ticker_shift $ticker_text $update_tag $refresh_tag};
+
+sub get_stock {
+    my ($wkn, $exchange) = @_;
+
+    my $XsearchWPArt   = 'STK';
+    my $XsearchBoersen = $exchange;
+    
+    my $searchfor = $wkn;
+    #$searchfor =~ s/ /\%20/g;
+    my $host         = "http://informer2.comdirect.de";
+    my $path         = '/de/suche/main.html?';
+    my $searchButton = 'Exakt';
+    my $querystring = "&searchfor=".$wkn."&searchButton=Exakt&XsearchWPArt=STK&XsearchBoersen=".$exchange;
+
+    my $content = get( $host . $path . $querystring );
+
+    my ( $oldcompany, $comp, $nbr, $boerse ) = "";
+
+    my %stock;
+    if ( $content =~
+m/<th width="99%" class="news">(.*?)<\/th>.*?<td.*?>WKN.*?class="sym">(\d+)/s
+      )
+    {
+	$stock{'wkn'} = $2;
+	$stock{'company'} = $1;
+    }
+
+    if ( $content =~ m/<td.*?>(Aktueller Kurs)<\/td>\s+<td>(.*?)<\/td>/s ) {
+	$stock{'price'} = $2;
+	$stock{'price'} =~ s/&nbsp;<small>.*<\/small>//;
+    }
+    if ( $content =~ m/<td.*?>(Differenz)<\/td>\s+<td>(.*?)<\/td>/s ) {
+	$stock{'diff'} = $2;
+    }
+    return %stock;
+}
+
+sub update_ticker {
+    fork_get();
+}
+
+sub fork_get {
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    my $pid = fork();
+    if ($pid > 0) {
+	close $wh;
+	Irssi::pidwait_add($pid);
+	my $pipetag;
+	my @args = ($rh, \$pipetag);
+	$pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	eval {
+	    my $data = get_ticker_data();
+	    print($wh $data);
+	    close($wh)
+	};
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($) {
+    my ($rh, $pipetag) = @{$_[0]};
+    my @lines = <$rh>;
+    close($rh);
+    Irssi::input_remove($pipetag);
+    my $text = join("", @lines);
+    $ticker_text = $text;
+}
+
+sub shift_string {
+    my ($string, $pos) = @_;
+    my $first = substr($string, 0, $pos);
+    my $middle = substr($string, $pos);
+    return $middle.$first;
+}
+
+$ticker_shift = 0;
+sub show_ticker {
+    my ($item, $get_size_only) = @_;
+    my $ticker_string = $ticker_text;
+    unless ($get_size_only) {
+        $ticker_shift = 0 if ($ticker_shift >= length($ticker_string));
+    }
+    my $max_width = Irssi::settings_get_int('stocks_ticker_max_width');
+    my $ticker_text = shift_string($ticker_string, $ticker_shift);
+    $ticker_text = substr($ticker_text, 0, $max_width-3) if (length($ticker_text)+2 > $max_width);
+    $item->{min_size} = $item->{max_size} = length("$ticker_text")+2;
+    $ticker_text =~ s/\%/\%\%/g;
+    $ticker_text = '>'.$ticker_text.'%n>';
+    $ticker_text =~ s/\(\-/\%R\(\-/g;
+    $ticker_text =~ s/\(\+/\%G\(\+/g;
+    $ticker_text =~ s/\)/\)\%n/g;
+    my $format = "{sb ".$ticker_text."}";
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub ticker_redraw {
+    $ticker_shift++;
+    Irssi::statusbar_items_redraw('stocks_ticker');
+}
+
+sub get_ticker_data {
+    my @stocks = split(/,/, Irssi::settings_get_str('stocks_ticker_stocks'));
+    my $tape='';
+    foreach (@stocks) {
+	my ($wkn, $exchange, $name) = split(/\//, $_);
+	my %stock = get_stock($wkn, $exchange);
+	if ($name eq '') { $name = $stock{'company'}; };
+	$tape = $tape.'| '.$name.': '.$stock{'price'}.'/'.$stock{'diff'};
+    }
+    return $tape;
+}
+
+sub load_config {
+    Irssi::timeout_remove($update_tag);
+    Irssi::timeout_remove($refresh_tag);
+    $update_tag = Irssi::timeout_add(Irssi::settings_get_int('stocks_ticker_update_delay'), 'update_ticker', undef);
+    $refresh_tag = Irssi::timeout_add(Irssi::settings_get_int('stocks_ticker_scroll_delay'), 'ticker_redraw', undef);
+    update_ticker();
+}
+
+Irssi::statusbar_item_register('stocks_ticker', 0, 'show_ticker');
+Irssi::settings_add_int('misc', 'stocks_ticker_max_width', 20);
+Irssi::settings_add_int('misc', 'stocks_ticker_update_delay', 120000);
+Irssi::settings_add_int('misc', 'stocks_ticker_scroll_delay', 2000);
+Irssi::settings_add_str('misc', 'stocks_ticker_stocks', '');
+
+Irssi::command_bind( 'stocks', 'cmd_kurs' );
+Irssi::command_bind( 'stocks_ticker_update', 'load_config' );
+
+load_config();
diff --git a/scripts/studivz_bitlbee_rename.pl b/scripts/studivz_bitlbee_rename.pl
new file mode 100644
index 0000000..ec1d523
--- /dev/null
+++ b/scripts/studivz_bitlbee_rename.pl
@@ -0,0 +1,74 @@
+# See this script's repository at
+# http://github.com/avar/irssi-bitlbee-facebook-rename for further
+# information.
+
+use strict;
+use warnings;
+use Irssi;
+use Irssi::Irc;
+
+our $VERSION = '0.01';
+our %IRSSI = (
+    authors => "Enno Boland",
+    contact => 'g@s01.de',
+    name => 'studivz-bitlbee-rename',
+    description => 'Rename XMPP *vz.net network contacts in bitlbee to human-readable names based on http://github.com/avar/irssi-bitlbee-facebook-rename',
+    license => 'GPL',
+);
+
+my $bitlbeeChannel = "&bitlbee";
+my $vzhost = "vz.net";
+my %nicksToRename = ();
+
+sub message_join
+{
+  # "message join", SERVER_REC, char *channel, char *nick, char *address
+  my ($server, $channel, $nick, $address) = @_;
+  my ($username, $host) = split /@/, $address;
+
+  if ($host eq $vzhost and $channel =~ m/$bitlbeeChannel/ and $nick =~ m/$username/)
+  {
+    $nicksToRename{$nick} = $channel;
+    $server->command("whois -- $nick");
+  }
+}
+
+sub whois_data
+{
+  my ($server, $data) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+
+  if (exists($nicksToRename{$nick}))
+  {
+    my $channel = $nicksToRename{$nick};
+    delete($nicksToRename{$nick});
+
+    my $ircname = substr($data, index($data,':')+1);
+
+    $ircname = munge_nickname( $ircname );
+
+    if ($ircname ne $nick)
+    {
+      $server->command("msg $channel rename $nick $ircname");
+      $server->command("msg $channel save");
+    }
+  }
+}
+
+sub munge_nickname
+{
+  my ($nick) = @_;
+
+  $nick =~ s/ä/ae/g;
+  $nick =~ s/ü/ue/g;
+  $nick =~ s/ö/oe/g;
+  $nick =~ s/ß/ss/g;
+  $nick =~ s/[^A-Za-z0-9-]/_/g;
+  $nick = "svz_" . $nick;
+  $nick = substr $nick, 0, 24;
+
+  return $nick;
+}
+
+Irssi::signal_add_first 'message join' => 'message_join';
+Irssi::signal_add_first 'event 311' => 'whois_data';
diff --git a/scripts/synccheck.pl b/scripts/synccheck.pl
new file mode 100644
index 0000000..0bce93c
--- /dev/null
+++ b/scripts/synccheck.pl
@@ -0,0 +1,346 @@
+#
+# usage: /sync-check [channel (servers)|-stop]
+#   examples:
+#		/sync-check *.de
+#		/sync-check
+#		/sync-check #irssi
+#		/sync-check poznan.irc.pl
+#		/sync-check #irssi poznan.irc.pl *.de
+#		/sync-check -stop
+# usage: /SET synccheck_show_all_errors [On/Off]
+#
+
+use strict;
+use Irssi 20020313 ();
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.4.9.1";
+%IRSSI = (
+	authors		=> 'Marcin Rozycki',
+	contact		=> 'derwan@irssi.pl',
+	name		=> 'sync-check',
+	description	=> 'Script checking channel synchronization. Usage: /sync-check [channel (servers)|-stop]',
+	license		=> 'GNU GPL v2',
+	url		=> 'http://derwan.irssi.pl',
+	changed		=> 'Fri Aug  9 23:00:00 CEST 2002'
+);
+
+my $synccheck = undef;
+
+sub _print ($$$)
+{
+	my ($server, $level, $msg) = @_;
+	if (defined $synccheck and $server and my $win = $server->channel_find($synccheck->{name})) {
+		$win->print($msg, $level);
+	}
+}
+
+sub _endof
+{
+	%$synccheck = (), undef $synccheck if (defined $synccheck);
+	Irssi::print(shift) if (@_);
+}
+
+sub _new ($)
+{
+	_endof; my $server = shift;
+	return 0 unless ($server and $server->{type} eq 'SERVER' and $server->{connected});
+
+	$synccheck = {};
+	$synccheck->{time} = time;
+	$synccheck->{server} = $server->{address};
+	$synccheck->{tag} = $server->{tag};
+	$synccheck->{_error} = 0;
+	$synccheck->{_tested} = 0;
+	$synccheck->{_info} = 0;
+
+	return $synccheck;
+}
+
+sub _setchan ($)
+{
+	if (defined $synccheck) {
+		$synccheck->{name} = shift;
+		$synccheck->{channel} = lc($synccheck->{name});
+	}
+}
+
+sub _addlink ($)
+{
+	my $link = shift;
+	if (defined $synccheck and $link and $link ne $synccheck->{server}) {
+		push (@{$synccheck->{links}}, $link);
+	}
+}
+
+sub _register
+{
+	my $server = shift; my $nick = lc(shift); my $sig = shift;
+	%{$synccheck->{names}->{$server}->{$nick}} = (
+		NULL		=> 1,
+		op		=> 0,
+		voice		=> 0,
+		$sig		=> 1,
+	) if (defined $synccheck);
+}
+
+sub _isregister ($$)
+{
+	my $server = shift; my $nick = lc(shift);
+	return ((defined $synccheck and defined $synccheck->{names}->{$server}->{$nick}->{NULL}) ? 1 : 0);
+}
+
+sub _isop ($$)
+{
+	my $server = shift; my $nick = lc(shift);
+	return ((_isregister($server, $nick) and $synccheck->{names}->{$server}->{$nick}->{op}) ? 1 : 0);
+}
+
+sub _isvoice ($$)
+{
+	my $server = shift; my $nick = lc(shift);
+	return ((_isregister($server, $nick) and $synccheck->{names}->{$server}->{$nick}->{voice}) ? 1 : 0);
+}
+
+sub _rec2mod ($)
+{
+	my $hash = shift;
+	my $mod = ($hash->{voice}) ? '+' : undef; $mod .= ($hash->{op}) ? '@' : undef;
+	return $mod;
+}
+
+sub _reg2mod ($$)
+{
+	my $server = shift; my $nick = lc(shift); my $mod = undef;
+	if (_isregister($server, $nick)) {
+		$mod .= ($synccheck->{names}->{$server}->{$nick}->{voice}) ? '+' : ($synccheck->{names}->{$server}->{$nick}->{op}) ? '@' : '';
+	}
+	return $mod;
+}
+
+sub _errorregister ($$) {
+	my ($nick, $sig) = @_; my $retval = 1;
+	unless (Irssi::settings_get_bool("synccheck_show_all_errors")) {
+		$retval = ($synccheck->{registered_errors}->{$nick}->{$sig}) ? 0 : 1;
+	}
+	$synccheck->{registered_errors}->{$nick}->{$sig}++;
+	return $retval;
+}
+
+sub _adderror ($$$$)
+{
+	my ($nick, $sig, $server, $error) = @_;
+	if (_errorregister $nick, $sig) {
+		push @{$synccheck->{errors}->{$server}}, $error;
+	}
+}
+
+sub _flusherrors ($$)
+{
+	my ($local, $remote) = @_;
+	if ($#{$synccheck->{errors}->{$remote}} >= 0) {
+		_print($local, MSGLEVEL_CLIENTCRAP, "(error in synchronization will be shown only once for the first server where the error exists, but it can exists on more servers; if you want to show all errors use /set synccheck_show_all_errors On)")
+			if (!Irssi::settings_get_bool("synccheck_show_all_errors") and !$synccheck->{_info}++);
+		_print($local, MSGLEVEL_CLIENTCRAP, "%RPossible channel %n%_$synccheck->{name}%_%R desynced%n%_ $synccheck->{server} <-> $remote%_:");
+		for (@{$synccheck->{errors}->{$remote}})
+		{
+			_print($local, MSGLEVEL_CLIENTCRAP, "%_".sprintf("%03d", ++$synccheck->{_error}).".%_ $_");
+		}
+		delete $synccheck->{errors}->{$remote};
+	}
+}
+
+sub _addnames
+{
+	my $remote = shift; return unless ($remote and defined $synccheck);
+	for (@_)
+	{
+		/^\@/ and substr($_, 0, 1) = "", _register($remote, $_, "op"), next;
+		/^\+/ and substr($_, 0, 1) = "", _register($remote, $_, "voice"), next;
+		_register($remote, $_, "NULL");
+	}
+}
+
+sub _numlinks
+{
+	return ((defined $synccheck and defined $synccheck->{links}) ? scalar(@{$synccheck->{links}}) : 0);
+}
+
+sub tdiff ($)
+{
+	my $end = time(); my $start = shift;
+	return (($start and $start =~ /^\d+$/ and $start <= $end) ? ($end - $start) : 0);
+}
+
+sub _synccheck ($)
+{
+	my $local = shift; my $remote = ${$synccheck->{links}}[$synccheck->{_tested}++];
+
+	_endof("End of sync-check (canceled)"), return
+		if (!$synccheck or !$local->channel_find($synccheck->{name}));
+
+	unless ($remote) {
+		_print($local, MSGLEVEL_CLIENTCRAP, "%_Sync-check%_ in $synccheck->{name} ($synccheck->{tag}) %_finished in ".tdiff($synccheck->{time})." secs%_");
+		_endof; return;
+	}
+
+	_print($local, MSGLEVEL_CLIENTCRAP, "%K->%n checking $synccheck->{name}: $synccheck->{server} %_<-> $remote%_ %K[%n$synccheck->{_tested}/"._numlinks."%K]%n");
+
+	$local->redirect_event("names", 0, '', 1, undef, {
+		'event 353'	=> 'redir names line',
+		'event 366'	=> 'redir names done',
+		'event 402',	=> 'redir names split',
+		''		=> 'event empty' });
+
+	$local->send_raw("NAMES $synccheck->{channel} :$remote");
+}
+
+sub _test
+{
+	my ($local, $remote) = @_;
+
+	unless (_isregister $remote, $local->{nick}) {
+		_adderror($local->{nick}, "notexsit", $remote, "%_you\'re%_ not in channel $synccheck->{name} on $remote");
+		_flusherrors($local, $remote);
+		delete $synccheck->{names}->{$remote};
+		return;
+	}
+
+	my $channel = $local->channel_find($synccheck->{name});
+	_endof, return unless $channel;
+
+	my %orig = (); map($orig{lc($_->{nick})} = $_, $channel->nicks());
+
+	foreach my $nick (keys %{$synccheck->{names}->{$remote}})
+	{
+		if (!$orig{$nick}) {
+			_adderror($nick, "notexist", $remote, "%_*notexist%_($synccheck->{server}) %_!= "._reg2mod($remote, $nick)."$nick%_($remote)");
+			$orig{$nick} = 0; next;
+		}
+
+		my $op = _isop $remote, $nick; my $voice = _isvoice $remote, $nick;
+		if ($orig{$nick}->{op} != $op) {
+			my $mod1 = _rec2mod($orig{$nick}); my $mod2 = _reg2mod($remote, $nick);
+			_adderror($nick, "op", $remote, "%_$mod1%_$nick($synccheck->{server}) %_!= $mod2%_$nick($remote)");
+
+		} elsif (!$op and $orig{$nick}->{voice} != $voice) {
+			my $mod1 = _rec2mod($orig{$nick}); my $mod2 = _reg2mod($remote, $nick);
+			_adderror($nick, "voice", $remote, "%_$mod1%_$nick($synccheck->{server}) %_!= $mod2%_$nick($remote)");
+		}
+		$orig{$nick} = 0;
+	}
+	delete $synccheck->{names}->{$remote};
+
+	foreach my $nick (keys %orig)
+	{
+		next unless $orig{$nick};
+		_adderror($nick, "notexist", $remote, _rec2mod($orig{$nick})."%_$nick%_($synccheck->{server}) %_!= *notexist%_($remote)");
+	}
+
+	_flusherrors($local, $remote);
+	_synccheck $local;
+}
+
+Irssi::command_bind 'sync-check' => sub
+{
+	my $usage = "/%_sync-check%_ [%_channel%_ (%_servers%_)|%_-stop%_]";
+
+	unless ($_[1] and $_[1]->{type} eq 'SERVER' and $_[1]->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	if (defined $synccheck) {
+		if ($_[0] !~ /^-stop/) {
+			Irssi::print("Sync-check already running " . tdiff($synccheck->{time}) . " secs ago for channel %_$synccheck->{name}%_, wait...");
+		} else {
+			_endof("%_Stopping%_ sync-checker for channel %_$synccheck->{name}%_ in $synccheck->{tag}")
+		}
+		return;
+	}
+
+	return unless _new($_[1]);
+
+	foreach (split / +/, $_[0])
+	{
+		/^-yes/i and $synccheck->{_yes} = 1, next;
+		/^-stop$/ and _endof("Not running any sync-checker"), return;
+		/^-/ and _endof("Unknown argument: %_$_%_, usage: $usage"), return;
+		if ($_[1]->ischannel($_)) { _setchan $_; } else { _addlink $_; }
+	}
+
+	if ($synccheck->{channel} and !$_[1]->channel_find($synccheck->{channel})) {
+		_endof("You\'re not in channel %_$synccheck->{name}%_"); return;
+	} elsif (!$synccheck->{channel}) {
+		if ($_[2] and $_[2]->{type} eq 'CHANNEL') {
+			_setchan $_[2]->{name};
+		} else {
+			_endof("Not joined to any channel"); return;
+		}
+	}
+
+	if (!_numlinks) {
+		_endof("Doing this is not a good idea. Add -YES option to command if you really mean it"), return unless ($synccheck->{_yes});
+
+		_print($_[1], MSGLEVEL_CLIENTCRAP, "Checking for %_links%_ from %_$synccheck->{server}%_ in %_$synccheck->{tag}%_, wait...");
+		$_[1]->redirect_event('links', 0, '', 1, undef, {
+			'event 364'	=> 'redir links line',
+			'event 365'	=> 'redir links done',
+			''		=> 'event empty' });
+		$_[1]->send_raw('LINKS :*');
+
+	} else {
+		if (_numlinks) {
+			_print($_[1], MSGLEVEL_CLIENTCRAP, "%_Checking channel $synccheck->{name} synchronization%_ in: $synccheck->{server} %_<->%_ @{$synccheck->{links}}. This will take a while..");
+			_synccheck $_[1];
+		}
+	}
+};
+
+Irssi::Irc::Server::redirect_register(
+	"links", 0, 0,
+	{ "event 364" => 1, },
+	{ "event 402" => 1, "event 263" => 1, "event 365" => 1, },
+	undef,
+);
+
+Irssi::Irc::Server::redirect_register(
+	"names", 0, 0,
+	{ "event 353" => 1, },
+	{ "event 366" => 1,
+	  "event 402" => 1, },
+	undef,
+);
+
+Irssi::signal_add 'redir links line' => sub {
+	$_[1] =~ /(.*) (.*) (.*) :(.*)/;
+	_addlink $2;
+};
+
+Irssi::signal_add 'redir links done' => sub {
+	if (_numlinks) {
+		_print($_[0], MSGLEVEL_CLIENTCRAP, "%_Checking channel $synccheck->{name} synchronization%_ in: $synccheck->{server} %_<->%_ @{$synccheck->{links}}. This will take a while..");
+		_synccheck $_[0];
+	}
+};
+
+Irssi::signal_add 'redir names line' => sub {
+	$_[1] =~ /(.*) (.*) :(.*)/;
+	_addnames($_[2], split(" ", $3)) if (defined $synccheck and lc($2) eq $synccheck->{channel});
+};
+
+Irssi::signal_add 'redir names done' => sub
+{
+	$_[1] =~ /(.*) (.*) :(.*)/;
+	_test($_[0], $_[2]) if (defined $synccheck and lc($2) eq $synccheck->{channel});;
+};
+
+Irssi::signal_add 'redir names split' => sub
+{
+	$_[1] =~ /(.*) (.*) :(.*)/;
+	_print($_[0], MSGLEVEL_CLIENTCRAP, "%K->%n%_ $2%_: cannot find link (".lc($3)."), skipping");
+	_synccheck $_[0];
+};
+
+Irssi::settings_add_bool('misc', 'synccheck_show_all_errors', 0);
+
diff --git a/scripts/sysinfo270-irssi.pl b/scripts/sysinfo270-irssi.pl
new file mode 100644
index 0000000..5027549
--- /dev/null
+++ b/scripts/sysinfo270-irssi.pl
@@ -0,0 +1,540 @@
+#
+# Copyright (c) 2002, 2003 David Rudie
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# $ident: sysinfo270-irssi.pl,v 2.70 2003/07/30 22:52:24 drudie Exp $
+#
+
+
+$VERSION = '2.70';
+%IRSSI = (
+ authors	=> 'David Rudie',
+ contact	=> 'david@inexistent.com',
+ name		=> 'SysInfo',
+ description	=> 'Cross-platform/architecture system information script.',
+ license	=> 'BSD',
+ url		=> 'http://www.inexistent.com/',
+ changed	=> 'Wed Jul 30 22:52 PST 2003',
+ bugs		=> 'Probably some if it cannot read /proc.'
+);
+
+
+use Irssi;
+use POSIX qw(floor);
+
+
+sub cmd_sysinfo {
+ $nic_1			= Irssi::settings_get_str('sysinfo_nic_1');
+ $nic_2			= Irssi::settings_get_str('sysinfo_nic_2');
+ $nic_3			= Irssi::settings_get_str('sysinfo_nic_3');
+ $nic_1_name		= Irssi::settings_get_str('sysinfo_nic_1_name');
+ $nic_2_name		= Irssi::settings_get_str('sysinfo_nic_2_name');
+ $nic_3_name		= Irssi::settings_get_str('sysinfo_nic_3_name');
+
+
+ if($nic_1 ne '') { $n1 = 1; }
+ if($nic_2 ne '') { $n2 = 1; }
+ if($nic_3 ne '') { $n3 = 1; }
+
+
+ $os			= `uname -s`; chop($os);
+ $osn			= `uname -n`; chop($osn);
+ $osv			= `uname -r`; chop($osv);
+ $osm			= `uname -m`; chop($osm);
+ $uname			= "$os $osv/$osm";
+
+
+ if($os =~ /^Darwin$/)	{ $darwin	= 1; }
+ if($os =~ /^FreeBSD$/)	{ $freebsd	= 1; }
+ if($os =~ /^Linux$/)	{ $linux	= 1; }
+ if($os =~ /^NetBSD$/)	{ $netbsd	= 1; }
+ if($os =~ /^OpenBSD$/)	{ $openbsd	= 1; }
+
+
+ if($osm =~ /^alpha$/)	 { $alpha	= 1; }
+ if($osm =~ /^armv4l$/)	 { $armv4l	= 1; }
+ if($osm =~ /^i586$/)	 { $i586	= 1; }
+ if($osm =~ /^i686$/)	 { $i686	= 1; }
+ if($osm =~ /^ia64$/)	 { $ia64	= 1; }
+ if($osm =~ /^mips$/)	 { $mips	= 1; }
+ if($osm =~ /^parisc64$/){ $parisc64	= 1; }
+ if($osm =~ /^ppc$/)	 { $ppc		= 1; }
+
+
+ if($osv =~ /^2\.6/)	{ $l26		= 1; }
+
+
+ $cpuinfo	= "";
+ $meminfo	= "";
+ $netdev	= "";
+ $uptime	= "";
+ $dmesgboot	= "";
+
+
+ if($linux) {
+  open(CPUINFO, "/proc/cpuinfo");
+  while($data = <CPUINFO>) {
+   $cpuinfo		.= $data;
+   @cpuinfo		= split(/\n/, $cpuinfo);
+  }
+  close(CPUINFO);
+  open(MEMINFO, "/proc/meminfo");
+  while($data = <MEMINFO>) {
+   $meminfo		.= $data;
+   @meminfo		= split(/\n/, $meminfo);
+  }
+  close(MEMINFO);
+  open(NETDEV, "/proc/net/dev");
+  while($data = <NETDEV>) {
+   $netdev		.= $data;
+   @netdev		= split(/\n/, $netdev);
+  }
+  close(NETDEV);
+  open(UPTIME, "/proc/uptime");
+  while($data = <UPTIME>) {
+   $uptime		.= $data;
+   @uptime		= split(/\n/, $uptime);
+  }
+  close(UPTIME);
+ } else {
+  open(DMESG, "/var/run/dmesg.boot");
+  while($data = <DMESG>) {
+   $dmesgboot		.= $data;
+   @dmesgboot		= split(/\n/, $dmesgboot);
+  }
+  close(DMESG);
+  @netstat		= `netstat -ibn`;
+  if($darwin) {
+   $sysctl		= '/usr/sbin/sysctl';
+  } else {
+   $sysctl		= '/sbin/sysctl';
+  }
+ }
+
+
+ if($armv4l) {
+  $df			= 'df -k';
+ } else {
+  $df			= 'df -lk';
+ }
+
+
+ if($freebsd) {
+  if($alpha) {
+   @cpu			= grep(/^COMPAQ/, @dmesgboot);
+   $cpu			= join("\n", $cpu[0]);
+  } else {
+   @cpu			= grep(/CPU: /, @dmesgboot);
+   $cpu			= join("\n", @cpu);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @smp			= grep(/ cpu/, @dmesgboot);
+   $smp			= scalar @smp;
+  }
+ }
+ if($netbsd) {
+  if($alpha) {
+   @cpu			= grep(/^COMPAQ/, @dmesgboot);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/, /, $cpu);
+   $cpu			= $cpu[0];
+  } else {
+   @cpu			= grep(/cpu0: /, @dmesgboot);
+   @cpu			= grep(!/apic/, @cpu);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @smp			= grep(/cpu\d+:/, @dmesgboot);
+   @smp			= grep(/MHz/, @smp);
+   $smp			= scalar @smp;
+  }
+ }
+ if($openbsd) {
+  @cpu			= grep(/cpu0: /, @dmesgboot);
+  @cpu			= grep(/[M|G]Hz/, @cpu);
+  $cpu			= join("\n", @cpu);
+  @cpu			= split(/: /, $cpu);
+  $cpu			= $cpu[1];
+ }
+ if($linux) {
+  if($alpha) {
+   @cpu			= grep(/cpu\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @model		= grep(/cpu model\s+: /, @cpuinfo);
+   $model		= join("\n", $model[0]);
+   @model		= split(/: /, $model);
+   $model		= $model[1];
+   $cpu			= "$cpu $model";
+   @smp			= grep(/cpus detected\s+: /, @cpuinfo);
+   $smp			= join("\n", @smp);
+   @smp			= split(/: /, $smp);
+   $smp			= $smp[1];
+  }
+  if($armv4l) {
+   @cpu			= grep(/Processor\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+  }
+  if($i686 || $i586) {
+   @cpu			= grep(/model name\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   $cpu			=~ s/(.+) CPU family\t+\d+MHz/$1/g;
+   $cpu			=~ s/(.+) CPU .+GHz/$1/g;
+   @mhz			= grep(/cpu MHz\s+: /, @cpuinfo);
+   $mhz			= join("\n", $mhz[0]);
+   @mhz			= split(/: /, $mhz);
+   $mhz			= $mhz[1];
+   $cpu			= "$cpu ($mhz MHz)";
+   @smp			= grep(/processor\s+: /, @cpuinfo);
+   $smp			= scalar @smp;
+  }
+  if($ia64) {
+   @cpu			= grep(/vendor\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @model		= grep(/family\s+: /, @cpuinfo);
+   $model		= join("\n", $model[0]);
+   @model		= split(/: /, $model);
+   $model		= $model[1];
+   @mhz			= grep(/cpu MHz\s+: /, @cpuinfo);
+   $mhz			= join("\n", $mhz[0]);
+   @mhz			= split(/: /, $mhz);
+   $mhz			= sprintf("%.2f", $mhz[1]);
+   $cpu			= "$cpu $model ($mhz MHz)";
+   @smp			= grep(/processor\s+: /, @cpuinfo);
+   $smp			= scalar @smp;
+  }
+  if($mips) {
+   @cpu			= grep(/cpu\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @model		= grep(/cpu model\s+: /, @cpuinfo);
+   $model		= join("\n", $model[0]);
+   @model		= split(/: /, $model);
+   $model		= $model[1];
+   $cpu			= "$cpu $model";
+  }
+  if($parisc64) {
+   @cpu			= grep(/cpu\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @model		= grep(/model name\s+: /, @cpuinfo);
+   $model		= join("\n", $model[0]);
+   @model		= split(/: /, $model);
+   $model		= $model[1];
+   @mhz			= grep(/cpu MHz\s+: /, @cpuinfo);
+   $mhz			= join("\n", $mhz[0]);
+   @mhz			= split(/: /, $mhz);
+   $mhz			= sprintf("%.2f", $mhz[1]);
+   $cpu			= "$model $cpu ($mhz MHz)";
+  }
+  if($ppc) {
+   @cpu			= grep(/cpu\s+: /, @cpuinfo);
+   $cpu			= join("\n", $cpu[0]);
+   @cpu			= split(/: /, $cpu);
+   $cpu			= $cpu[1];
+   @mhz			= grep(/clock\s+: /, @cpuinfo);
+   $mhz			= join("\n", $mhz[0]);
+   @mhz			= split(/: /, $mhz);
+   $mhz			= $mhz[1];
+   if($cpu =~ /^9.+/) {
+    $model		= "IBM PowerPC G5";
+   } elsif($cpu =~ /^74.+/) {
+    $model		= "Motorola PowerPC G4";
+   } else {
+    $model		= "IBM PowerPC G3";
+   }
+   $cpu			= "$model $cpu ($mhz)";
+  }
+ } elsif($darwin) {
+  $cpu			= `hostinfo | grep 'Processor type' | cut -f2 -d':'`; chop($cpu);
+  $cpu			= "$cpu," . `AppleSystemProfiler | grep 'Machine speed' | cut -f2 -d'='`;
+ }
+ if($smp && $smp gt 1) {
+  $cpu = "$smp x $cpu";
+ }
+
+
+ $procs			= `ps ax | grep -v PID | wc -l`; chop($procs);
+ $procs			= $procs;
+ $procs			=~ s/^\s+//;
+ $procs			=~ s/\s+$//;
+
+
+ if($freebsd) {
+  $boottime		= `$sysctl -n kern.boottime | awk '{print \$4}'`;
+ }
+ if($netbsd || $openbsd || $darwin) {
+  $boottime		= `$sysctl -n kern.boottime`;
+ }
+ if($linux) {
+  @uptime		= split(/ /, $uptime[0]);
+  $ticks		= $uptime[0];
+ } else {
+  chop($boottime);
+  $boottime		=~ s/,//g;
+  $currenttime		= `date +%s`; chop($currenttime);
+  $ticks		= $currenttime - $boottime;
+ }
+ $ticks			= sprintf("%2d", $ticks);
+ $days			= floor($ticks / 86400);
+ $ticks			%= 86400;
+ $hours			= floor($ticks / 3600);
+ $ticks			%= 3600;
+ $mins			= floor($ticks / 60);
+ if($days  eq 0) { $days  = ''; } elsif($days  >= 1) { $days  = $days.  'd '; }
+ if($hours eq 0) { $hours = ''; } elsif($hours >= 1) { $hours = $hours. 'h '; }
+ if($mins  eq 0) { $mins  = ''; } elsif($mins  >= 1) { $mins  = $mins.  'm';  }
+ $uptime = $days . $hours . $mins;
+
+
+ $load			= `uptime`; chop($load);
+ if($linux) {
+  @load			= split(/average: /,  $load, 2);
+ } else {
+  @load			= split(/averages: /, $load, 2);
+ }
+ @load			= split(/, /, $load[1], 2);
+ $load			= $load[0];
+
+
+ if($linux) {
+  if($l26) {
+   @memtotal		= grep(/MemTotal:/, @meminfo);
+   $memtotal		= join("\n", @memtotal);
+   @memtotal		= split(/\s+/, $memtotal);
+   $memtotal		= $memtotal[1] * 1024;
+   @membuffers		= grep(/Buffers:/, @meminfo);
+   $membuffers		= join("\n", @membuffers);
+   @membuffers		= split(/\s+/, $membuffers);
+   $membuffers		= $membuffers[1] * 1024;
+   @memcached		= grep(/Cached:/, @meminfo);
+   $memcached		= join("\n", @memcached);
+   @memcached		= split(/\s+/, $memcached);
+   $memcached		= $memcached[1] * 1024;
+   @memused		= grep(/MemFree:/, @meminfo);
+   $memused		= join("\n", @memused);
+   @memused		= split(/\s+/, $memused);
+   $memused		= ($memtotal - ($memused[1] * 1024)) - $membuffers - $memcached;
+  } else {
+   @meminfo		= grep(/Mem:/, @meminfo);
+   $meminfo		= join("\n", @meminfo);
+   @meminfo		= split(/\s+/, $meminfo);
+   $memtotal		= $meminfo[1];
+   $memused		= $meminfo[2] - $meminfo[5] - $meminfo[6];
+  }
+ } elsif($darwin) {
+  $memused		= `vm_stat | grep 'Pages active' | awk '{print \$3}'` * 4096;
+  $memtotal		= `$sysctl -n hw.physmem`;
+ } else {
+  $memused		= `vmstat -s | grep 'pages active' | awk '{print \$1}'` * `vmstat -s | grep 'per page' | awk '{print \$1}'`;
+  $memtotal		= `$sysctl -n hw.physmem`;
+ }
+ $mempused		= sprintf("%.2f", $memused / $memtotal * 100);
+ $memtotal		= sprintf("%.2f", $memtotal / 1024 / 1024);
+ $memused		= sprintf("%.2f", $memused / 1024 / 1024);
+
+
+ $hddtotal		= `$df | grep -v Filesystem | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chop($hddtotal);
+ $hddused		= `$df | grep -v Filesystem | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chop($hddused);
+ $hddpused		= sprintf("%.2f", $hddused / $hddtotal * 100);
+ $hddtotal		= sprintf("%.2f", $hddtotal);
+ $hddused		= sprintf("%.2f", $hddused);
+
+
+ if($n1) {
+  if($darwin || $freebsd) {
+   @lan_in_1		= grep(/$nic_1/, @netstat);
+   @lan_in_1		= grep(/Link/, @lan_in_1);
+   $lan_in_1		= join("\n", @lan_in_1);
+   @lan_in_1		= split(/\s+/, $lan_in_1);
+   $lan_in_1		= $lan_in_1[6] / 1024 / 1024;
+  }
+  if($netbsd || $openbsd) {
+   @lan_in_1		= grep(/$nic_1/, @netstat);
+   @lan_in_1		= grep(/Link/, @lan_in_1);
+   $lan_in_1		= join("\n", @lan_in_1);
+   @lan_in_1		= split(/\s+/, $lan_in_1);
+   $lan_in_1		= $lan_in_1[4] / 1024 / 1024;
+  }
+  if($linux) {
+   @lan_in_1		= grep(/$nic_1/, @netdev);
+   $lan_in_1		= join("\n", @lan_in_1);
+   @lan_in_1		= split(/:\s*/, $lan_in_1);
+   @lan_in_1		= split(/\s+/, $lan_in_1[1]);
+   $lan_in_1		= $lan_in_1[0] / 1024 / 1024;
+  }
+  $lan_in_1		= sprintf("%.2f", $lan_in_1);
+  if($darwin || $freebsd) {
+   @lan_out_1		= grep(/$nic_1/, @netstat);
+   @lan_out_1		= grep(/Link/, @lan_out_1);
+   $lan_out_1		= join("\n", @lan_out_1);
+   @lan_out_1		= split(/\s+/, $lan_out_1);
+   $lan_out_1		= $lan_out_1[9] / 1024 / 1024;
+  }
+  if($netbsd || $openbsd) {
+   @lan_out_1		= grep(/$nic_1/, @netstat);
+   @lan_out_1		= grep(/Link/, @lan_out_1);
+   $lan_out_1		= join("\n", @lan_out_1);
+   @lan_out_1		= split(/\s+/, $lan_out_1);
+   $lan_out_1		= $lan_out_1[5] / 1024 / 1024;
+  }
+  if($linux) {
+   @lan_out_1		= grep(/$nic_1/, @netdev);
+   $lan_out_1		= join("\n", @lan_out_1);
+   @lan_out_1		= split(/:\s*/, $lan_out_1);
+   @lan_out_1		= split(/\s+/, $lan_out_1[1]);
+   $lan_out_1		= $lan_out_1[8] / 1024 / 1024;
+  }
+  $lan_out_1		= sprintf("%.2f", $lan_out_1);
+ }
+
+
+ if($n2) {
+  if($darwin || $freebsd) {
+   @lan_in_2		= grep(/$nic_2/, @netstat);
+   @lan_in_2		= grep(/Link/, @lan_in_2);
+   $lan_in_2		= join("\n", @lan_in_2);
+   @lan_in_2		= split(/\s+/, $lan_in_2);
+   $lan_in_2		= $lan_in_2[6] / 1024 / 1024;
+  }
+  if($netbsd || $openbsd) {
+   @lan_in_2		= grep(/$nic_2/, @netstat);
+   @lan_in_2		= grep(/Link/, @lan_in_2);
+   $lan_in_2		= join("\n", @lan_in_2);
+   @lan_in_2		= split(/\s+/, $lan_in_2);
+   $lan_in_2		= $lan_in_2[4] / 1024 / 1024;
+  }
+  if($linux) {
+   @lan_in_2		= grep(/$nic_2/, @netdev);
+   $lan_in_2		= join("\n", @lan_in_2);
+   @lan_in_2		= split(/:\s*/, $lan_in_2);
+   @lan_in_2		= split(/\s+/, $lan_in_2[1]);
+   $lan_in_2		= $lan_in_2[0] / 1024 / 1024;
+  }
+  $lan_in_2		= sprintf("%.2f", $lan_in_2);
+  if($darwin || $freebsd) {
+   @lan_out_2		= grep(/$nic_2/, @netstat);
+   @lan_out_2		= grep(/Link/, @lan_out_2);
+   $lan_out_2		= join("\n", @lan_out_2);
+   @lan_out_2		= split(/\s+/, $lan_out_2);
+   $lan_out_2		= $lan_out_2[9] / 1024 / 1024;
+  }
+  if($netbsd || $openbsd) {
+   @lan_out_2		= grep(/$nic_2/, @netstat);
+   @lan_out_2		= grep(/Link/, @lan_out_2);
+   $lan_out_2		= join("\n", @lan_out_2);
+   @lan_out_2		= split(/\s+/, $lan_out_2);
+   $lan_out_2		= $lan_out_2[4] / 1024 / 1024;
+  }
+  if($linux) {
+   @lan_out_2		= grep(/$nic_2/, @netdev);
+   $lan_out_2		= join("\n", @lan_out_2);
+   @lan_out_2		= split(/:\s*/, $lan_out_2);
+   @lan_out_2		= split(/\s+/, $lan_out_2[1]);
+   $lan_out_2		= $lan_out_2[8] / 1024 / 1024;
+  }
+  $lan_out_2		= sprintf("%.2f", $lan_out_2);
+ }
+
+
+ if($n3) {
+  if($darwin || $freebsd) {
+   @lan_in_3		= grep(/$nic_3/, @netstat);
+   @lan_in_3		= grep(/Link/, @lan_in_3);
+   $lan_in_3		= join("\n", @lan_in_3);
+   @lan_in_3		= split(/\s+/, $lan_in_3);
+   $lan_in_3		= $lan_in_3[6] / 1024 / 1024;
+  }
+  if($netbsd || $openbsd) {
+   @lan_in_3		= grep(/$nic_3/, @netstat);
+   @lan_in_3		= grep(/Link/, @lan_in_3);
+   $lan_in_3		= join("\n", @lan_in_3);
+   @lan_in_3		= split(/\s+/, $lan_in_3);
+   $lan_in_3		= $lan_in_3[4] / 1024 / 1024;
+  }
+  if($linux) {
+   @lan_in_3		= grep(/$nic_3/, @netdev);
+   $lan_in_3		= join("\n", @lan_in_3);
+   @lan_in_3		= split(/:\s*/, $lan_in_3);
+   @lan_in_3		= split(/\s+/, $lan_in_3[1]);
+   $lan_in_3		= $lan_in_3[0] / 1024 / 1024;
+  }
+  $lan_in_3		= sprintf("%.2f", $lan_in_3);
+  if($darwin || $freebsd) {
+   @lan_out_3		= grep(/$nic_3/, @netstat);
+   @lan_out_3		= grep(/Link/, @lan_out_3);
+   $lan_out_3		= join("\n", @lan_out_3);
+   @lan_out_3		= split(/\s+/, $lan_out_3);
+   $lan_out_3		= $lan_out_3[9] / 1024 / 1024;
+  }
+  if($netbsd || $openbsd) {
+   @lan_out_3		= grep(/$nic_3/, @netstat);
+   @lan_out_3		= grep(/Link/, @lan_out_3);
+   $lan_out_3		= join("\n", @lan_out_3);
+   @lan_out_3		= split(/\s+/, $lan_out_3);
+   $lan_out_3		= $lan_out_3[4] / 1024 / 1024;
+  }
+  if($linux) {
+   @lan_out_3		= grep(/$nic_3/, @netdev);
+   $lan_out_3		= join("\n", @lan_out_3);
+   @lan_out_3		= split(/:\s*/, $lan_out_3);
+   @lan_out_3		= split(/\s+/, $lan_out_3[1]);
+   $lan_out_3		= $lan_out_3[8] / 1024 / 1024;
+  }
+  $lan_out_3		= sprintf("%.2f", $lan_out_3);
+ }
+
+
+ $output  = "Hostname: $osn - ";
+ $output .= "OS: $uname - ";
+ $output .= "CPU: $cpu - ";
+ $output .= "Processes: $procs - ";
+ $output .= "Uptime: $uptime - ";
+ $output .= "Load Average: $load - ";
+ $output .= "Memory Usage: $memused" . "mb/$memtotal" . "mb ($mempused%) - ";
+ $output .= "Disk Usage: $hddused" . "gb/$hddtotal" . "gb ($hddpused%) - ";
+ if($n1) { $output .= "$nic_1_name Traffic ($nic_1): $lan_in_1" . "mb/" . $lan_out_1 . "mb - "; }
+ if($n2) { $output .= "$nic_2_name Traffic ($nic_2): $lan_in_2" . "mb/" . $lan_out_2 . "mb - "; }
+ if($n3) { $output .= "$nic_3_name Traffic ($nic_3): $lan_in_3" . "mb/" . $lan_out_3 . "mb - "; }
+ $output =~ s/ - $//g;
+ Irssi::active_win()->command("/ $output");
+}
+
+Irssi::settings_add_str("sysinfo", "sysinfo_nic_1", "");
+Irssi::settings_add_str("sysinfo", "sysinfo_nic_2", "");
+Irssi::settings_add_str("sysinfo", "sysinfo_nic_3", "");
+Irssi::settings_add_str("sysinfo", "sysinfo_nic_1_name", "External");
+Irssi::settings_add_str("sysinfo", "sysinfo_nic_2_name", "Internal");
+Irssi::settings_add_str("sysinfo", "sysinfo_nic_3_name", "Wireless");
+
+Irssi::command_bind("sysinfo", "cmd_sysinfo");
diff --git a/scripts/sysinfo277-irssi.pl b/scripts/sysinfo277-irssi.pl
new file mode 100644
index 0000000..242812e
--- /dev/null
+++ b/scripts/sysinfo277-irssi.pl
@@ -0,0 +1,540 @@
+#!/usr/bin/perl -w
+#
+# Copyright (c) 2002, 2003 David Rudie
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# $ident: sysinfo277-irssi.pl,v 2.77 2003/09/01 04:20:02 drudie Exp $
+#
+
+
+$VERSION = '2.77';
+%IRSSI = (
+  authors	=> 'David Rudie',
+  contact	=> 'david@inexistent.com',
+  name		=> 'SysInfo',
+  description	=> 'Cross-platform/architecture system information script.',
+  license	=> 'BSD',
+  url		=> 'http://www.inexistent.com/',
+  changed	=> 'Mon Sep 01 04:20 PDT 2003',
+  bugs		=> 'Probably some if it cannot read /proc.'
+);
+
+
+use Irssi;
+use POSIX qw(floor);
+use strict;
+
+
+# Set up the arrays and variables first.
+use vars qw(
+  @arr
+  @arr1
+  @arr2
+  $cpu
+  @cpu
+  @cpuinfo
+  $data
+  @data
+  $df
+  @dmesgboot
+  @hinv
+  @meminfo
+  $mhz
+  @mhz
+  $model
+  @netdev
+  @netstat
+  @nic
+  @nicname
+  $smp
+  @smp
+  $stream
+  $sysctl
+  @uptime
+  $var
+  $vara
+  $varb
+  $varc
+  $vard
+  $varh
+  $varm
+  $varp
+  $varx
+  $vary
+  $varz
+);
+
+
+my $os		= `uname -s`; chop($os);
+my $osn		= `uname -n`; chop($osn);
+my $osv		= `uname -r`; chop($osv);
+my $osm		= `uname -m`; chop($osm);
+my $uname	= "$os $osv/$osm";
+
+
+my $darwin	= 1 if $os =~ /^Darwin$/;
+my $freebsd	= 1 if $os =~ /^FreeBSD$/;
+my $linux	= 1 if $os =~ /^Linux$/;
+my $netbsd	= 1 if $os =~ /^NetBSD$/;
+my $openbsd	= 1 if $os =~ /^OpenBSD$/;
+my $irix	= 1 if $os =~ /^IRIX$/;
+my $irix64	= 1 if $os =~ /^IRIX64$/;
+
+
+my $alpha	= 1 if $osm =~ /^alpha$/;
+my $armv4l	= 1 if $osm =~ /^armv4l$/;
+my $armv5l	= 1 if $osm =~ /^armv5l$/;
+my $i586	= 1 if $osm =~ /^i586$/;
+my $i686	= 1 if $osm =~ /^i686$/;
+my $ia64	= 1 if $osm =~ /^ia64$/;
+my $mips	= 1 if $osm =~ /^mips$/;
+my $parisc64	= 1 if $osm =~ /^parisc64$/;
+my $ppc		= 1 if $osm =~ /^ppc$/;
+my $x86_64	= 1 if $osm =~ /^x86_64$/;
+
+
+my $l26 = 1 if $osv =~ /^2\.6/;
+
+
+sub cmd_sysinfo {
+  # Specify your NIC interface name (eth0, rl0, fxp0, etc) and a name for it.
+  #
+  # Example: @nic     = ('eth0', 'eth1');
+  #          @nicname = ('External', 'Internal');
+  #
+  # NOTE: If you set one then you HAVE to set the other.
+  @nic		= split(/;/, Irssi::settings_get_str('sysinfo_nics'));
+  @nicname	= split(/;/, Irssi::settings_get_str('sysinfo_nicnames'));
+
+
+  # These are the default settings for which information gets displayed.
+  # 0 = Off; 1 = On
+  my $showHostname	= 1;
+  my $showOS		= 1;
+  my $showCPU		= 1;
+  my $showProcesses	= 1;
+  my $showUptime	= 1;
+  my $showLoadAverage	= 1;
+  my $showBattery	= 0;
+  my $showMemoryUsage	= 1;
+  my $showDiskUsage	= 1;
+  my $showNetworkTraffic= 1;
+
+
+  ###############################################
+  ### Nothing below here should need changed. ###
+  ###############################################
+
+
+  if($linux) {
+    @cpuinfo		= &openfile("/proc/cpuinfo");
+    @meminfo		= &openfile("/proc/meminfo");
+    @netdev		= &openfile("/proc/net/dev");
+    @uptime		= &openfile("/proc/uptime");
+  } elsif($irix || $irix64) {
+    @hinv		= `hinv`;
+  } else {
+    @dmesgboot		= &openfile("/var/run/dmesg.boot");
+    @netstat		= `netstat -ibn`;
+    if($darwin) {
+      $sysctl		= '/usr/sbin/sysctl';
+    } else {
+      $sysctl		= '/sbin/sysctl';
+    }
+  }
+
+
+  if($armv4l || $armv5l) {
+    $df			= 'df -k';
+  } else {
+    $df			= 'df -lk';
+  }
+
+
+  if($showCPU) {
+    if($freebsd) {
+      if($alpha) {
+        @cpu		= grep(/^COMPAQ/, @dmesgboot);
+        $cpu		= join("\n", $cpu[0]);
+      } else {
+        @cpu		= grep(/CPU: /, @dmesgboot);
+        $cpu		= join("\n", @cpu);
+        @cpu		= split(/: /, $cpu);
+        $cpu		= $cpu[1];
+        @smp		= grep(/ cpu/, @dmesgboot);
+        $smp		= scalar @smp;
+      }
+    }
+    if($netbsd) {
+      if($alpha) {
+        @cpu		= grep(/^COMPAQ/, @dmesgboot);
+        $cpu		= join("\n", $cpu[0]);
+        @cpu		= split(/, /, $cpu);
+        $cpu		= $cpu[0];
+      } else {
+        @cpu		= grep(/cpu0: /, @dmesgboot);
+        @cpu		= grep(!/apic/, @cpu);
+        $cpu		= join("\n", $cpu[0]);
+        @cpu		= split(/: /, $cpu);
+        $cpu		= $cpu[1];
+        @smp		= grep(/cpu\d+:/, @dmesgboot);
+        @smp		= grep(/MHz/, @smp);
+        $smp		= scalar @smp;
+      }
+    }
+    if($openbsd) {
+      @cpu		= grep(/cpu0: /, @dmesgboot);
+      @cpu		= grep(/[M|G]Hz/, @cpu);
+      $cpu		= join("\n", @cpu);
+      @cpu		= split(/: /, $cpu);
+      $cpu		= $cpu[1];
+    }
+    if($irix || $irix64) {
+      @cpu		= grep(/CPU:/, @hinv);
+      $cpu		= join("\n", @cpu);
+      $cpu		=~ s/^.*(R[0-9]*) .*$/$1/;
+      @mhz		= grep(/MHZ/, @hinv);
+      $mhz		= join("\n", @mhz);
+      $mhz		= $mhz[0];
+      $mhz		=~ s/^.* ([0-9]*) MHZ.*$/$1/;
+      @smp		= grep(/ IP/, @hinv);
+      $smp		= scalar @smp;
+      chop($cpu);
+      chop($mhz);
+      $cpu		= "MIPS $cpu ($mhz MHz)";
+    }
+    if($linux) {
+      if($alpha) {
+        $cpu		= &cpuinfo("cpu\\s+: ");
+        $model		= &cpuinfo("cpu model\\s+: ");
+        $cpu		= "$cpu $model";
+        $smp		= &cpuinfo("cpus detected\\s+: ");
+      }
+      if($armv4l || $armv5l) {
+        $cpu		= &cpuinfo("Processor\\s+: ");
+      }
+      if($i686 || $i586 || $x86_64) {
+        $cpu		= &cpuinfo("model name\\s+: ");
+        $cpu		=~ s/(.+) CPU family\t+\d+MHz/$1/g;
+        $cpu		=~ s/(.+) CPU .+GHz/$1/g;
+        $mhz		= &cpuinfo("cpu MHz\\s+: ");
+        $cpu		= "$cpu ($mhz MHz)";
+        @smp		= grep(/processor\s+: /, @cpuinfo);
+        $smp		= scalar @smp;
+      }
+      if($ia64) {
+        $cpu		= &cpuinfo("vendor\\s+: ");
+        $model		= &cpuinfo("family\\s+: ");
+        $mhz		= &cpuinfo("cpu MHz\\s+: ");
+        $mhz		= sprintf("%.2f", $mhz);
+        $cpu		= "$cpu $model ($mhz MHz)";
+        @smp		= grep(/processor\s+: /, @cpuinfo);
+        $smp		= scalar @smp;
+      }
+      if($mips) {
+        $cpu		= &cpuinfo("cpu\\s+: ");
+        $model		= &cpuinfo("cpu model\\s+: ");
+        $cpu		= "$cpu $model";
+      }
+      if($parisc64) {
+        $cpu		= &cpuinfo("cpu\\s+: ");
+        $model		= &cpuinfo("model name\\s+: ");
+        $mhz		= &cpuinfo("cpu MHz\\s+: ");
+        $mhz		= sprintf("%.2f", $mhz);
+        $cpu		= "$model $cpu ($mhz MHz)";
+      }
+      if($ppc) {
+        $cpu		= &cpuinfo("cpu\\s+: ");
+        $mhz		= &cpuinfo("clock\\s+: ");
+        if($cpu =~ /^9.+/) {
+          $model	= "IBM PowerPC G5";
+        } elsif($cpu =~ /^74.+/) {
+          $model	= "Motorola PowerPC G4";
+        } else {
+          $model	= "IBM PowerPC G3";
+        }
+        $cpu		= "$model $cpu ($mhz)";
+      }
+    } elsif($darwin) {
+      $cpu		= `hostinfo | grep 'Processor type' | cut -f2 -d':'`; chomp($cpu);
+      $cpu		=~ s/^\s*(.+)\s*$/$1/g;
+      if($cpu =~ /^ppc7.+/) {
+        $cpu		= "Motorola PowerPC G4";
+      }
+      $mhz		= `$sysctl -n hw.cpufrequency`; chomp($mhz);
+      $mhz		= sprintf("%.2f", $mhz / 1000000);
+      $cpu		= "$cpu ($mhz MHz)";
+      $smp		= `hostinfo | grep "physically available" | cut -f1 -d' '`; chomp($smp);
+    }
+    if($smp && $smp gt 1) {
+      $cpu = "$smp x $cpu";
+    }
+  }
+
+
+  my $output;
+  if($showHostname)		{ $output  = "Hostname: $osn - "; }
+  if($showOS)			{ $output .= "OS: $uname - "; }
+  if($showCPU)			{ $output .= "CPU: $cpu - "; }
+  if($showProcesses)		{ $output .= "Processes: ".&processes." - "; }
+  if($showUptime)		{ $output .= "Uptime: ".&uptime." - "; }
+  if($showLoadAverage)		{ $output .= "Load Average: ".&loadaverage." - "; }
+  if($showBattery)		{ $output .= "Battery: ".&battery." - "; }
+  if($showMemoryUsage)		{ $output .= "Memory Usage: ".&memoryusage." - "; }
+  if($showDiskUsage)		{ $output .= "Disk Usage: ".&diskusage." - "; }
+  if($showNetworkTraffic)	{ $output .= &networktraffic; }
+  $output =~ s/ - $//g;
+  Irssi::active_win()->command("/ $output");
+  return 1;
+}
+
+
+sub battery {
+  $data = "";
+  if(open(FD, '/proc/apm')) {
+    while($stream = <FD>) {
+      $data .= $stream;
+      @data = split(/\n/, $data);
+    }
+    close(FD);
+  }
+  $data = $data[0];
+  $data =~ s/.+\s(\d+%).+/$1/;
+  return $data;
+}
+
+
+sub cpuinfo {
+  my $string = shift;
+  @arr = grep(/$string/, @cpuinfo);
+  $var = join("\n", $arr[0]);
+  @arr = split(/: /, $var);
+  $var = $arr[1];
+  return $var;
+}
+
+
+sub diskusage {
+  if($irix || $irix64) {
+    $vara = `$df | grep -v Filesystem | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vara);
+    $vard = `$df | grep -v Filesystem | awk '{ sum+=\$4 / 1024 / 1024}; END { print sum }'`; chomp($vard);
+  } else {
+    $vara = `$df | grep -v Filesystem | awk '{ sum+=\$2 / 1024 / 1024}; END { print sum }'`; chomp($vara);
+    $vard = `$df | grep -v Filesystem | awk '{ sum+=\$3 / 1024 / 1024}; END { print sum }'`; chomp($vard);
+  }
+  $varp = sprintf("%.2f", $vard / $vara * 100);
+  $vara = sprintf("%.2f", $vara);
+  $vard = sprintf("%.2f", $vard);
+  return $vard."GB/".$vara."GB ($varp%)";
+}
+
+
+sub loadaverage {
+  $var = `uptime`; chomp($var);
+  if($irix || $irix64 || $linux) {
+    @arr = split(/average: /, $var, 2);
+  } else {
+    @arr = split(/averages: /, $var, 2);
+  }
+  @arr = split(/, /, $arr[1], 2);
+  $var = $arr[0];
+  return $var;
+}
+
+
+sub meminfo {
+  my $string = shift;
+  @arr = grep(/$string/, @meminfo);
+  $var = join("\n", $arr[0]);
+  @arr = split(/\s+/, $var);
+  $var = $arr[1];
+  return $var;
+}
+
+
+sub memoryusage {
+  if($linux) {
+    if($l26) {
+      $vara = &meminfo("MemTotal:") * 1024;
+      $varb = &meminfo("Buffers:") * 1024;
+      $varc = &meminfo("Cached:") * 1024;
+      $vard = &meminfo("MemFree:") * 1024;
+    } else {
+      @arr = grep(/Mem:/, @meminfo);
+      $var = join("\n", @arr);
+      @arr = split(/\s+/, $var);
+      $vara = $arr[1];
+      $varb = $arr[5];
+      $varc = $arr[6];
+      $vard = $arr[3];
+    }
+    $vard = ($vara - $vard) - $varb - $varc;
+  } elsif($darwin) {
+    $vard = `vm_stat | grep 'Pages active' | awk '{print \$3}'` * 4096;
+    $vara = `$sysctl -n hw.physmem`;
+  } elsif($irix || $irix64) {
+    $var = `top -d1 | grep Memory`; chomp($var);
+    $vara = $var;
+    $vard = $var;
+    $vara =~ s/^.* ([0-9]*)M max.*$/$1/;
+    $vara *= 1024 * 1024;
+    $vard =~ s/^.* ([0-9]*)M free,.*$/$1/;
+    $vard = $vara - ($vard * 1024 * 1024);
+  } else {
+    $vard = `vmstat -s | grep 'pages active' | awk '{print \$1}'` * `vmstat -s | grep 'per page' | awk '{print \$1}'`;
+    $vara = `$sysctl -n hw.physmem`;
+  }
+  $varp = sprintf("%.2f", $vard / $vara * 100);
+  $vara = sprintf("%.2f", $vara / 1024 / 1024);
+  $vard = sprintf("%.2f", $vard / 1024 / 1024);
+  return $vard."MB/".$vara."MB ($varp%)";
+}
+
+
+sub networkinfobsd {
+  $varc = shift;
+  $vard = shift;
+  @arr = grep(/$varc/, @netstat);
+  @arr = grep(/Link/, @arr);
+  $var = join("\n", @arr);
+  @arr = split(/\s+/, $var);
+  $var = $arr[$vard] / 1024 / 1024;
+  $var = sprintf("%.2f", $var);
+  return $var;
+}
+
+
+sub networkinfolinux {
+  $varc = shift;
+  $vard = shift;
+  @arr = grep(/$varc/, @netdev);
+  $var = join("\n", @arr);
+  @arr = split(/:\s*/, $var);
+  @arr = split(/\s+/, $arr[1]);
+  $var = $arr[$vard] / 1024 / 1024;
+  $var = sprintf("%.2f", $var);
+  return $var;
+}
+
+
+sub networktraffic {
+  $vara = 0;
+  $varz = "";
+  $varb = scalar @nic;
+  if($nic[$vara] ne "") {
+    while($vara lt $varb) {
+      if($nic[$vara] ne "") {
+        if($darwin || $freebsd) {
+          $varx = &networkinfobsd($nic[$vara], 6);
+          $vary = &networkinfobsd($nic[$vara], 9);
+        }
+        if($netbsd || $openbsd) {
+          $varx = &networkinfobsd($nic[$vara], 4);
+          $vary = &networkinfobsd($nic[$vara], 5);
+        }
+        if($linux) {
+          $varx = &networkinfolinux($nic[$vara], 0);
+          $vary = &networkinfolinux($nic[$vara], 8);
+        }
+        $varz .= $nicname[$vara]." Traffic (".$nic[$vara]."): ".$varx."MB In/".$vary."MB Out - ";
+      }
+      $vara++;
+    }
+    return $varz;
+  }
+}
+
+
+sub openfile {
+  my $string = shift;
+  $data = "";
+  if(open(FD, $string)) {
+    while($stream = <FD>) {
+      $data .= $stream;
+      @data = split(/\n/, $data);
+    }
+    close(FD);
+  }
+  return @data;
+}
+
+
+sub processes {
+  if($irix || $irix64) {
+    $var = `ps -e | grep -v PID | wc -l`;
+  } else {
+    $var = `ps ax | grep -v PID | wc -l`;
+  }
+  chomp($var);
+  $var = $var;
+  $var =~ s/^\s+//;
+  $var =~ s/\s+$//;
+  return $var;
+}
+
+
+sub uptime {
+  if($irix || $irix64) {
+    $var = `uptime`; chomp($var);
+    if($var =~ /day/) {
+      $var =~ s/^.* ([0-9]*) day.* ([0-9]*):([0-9]*), .*$/$1d $2h $3m/;
+    } elsif($var =~/min/) {
+      $var =~ s/^.* ([0-9]*) min.*$/0d 0h $1m/;
+    } else {
+      $var =~ s/^.* ([0-9]*):([0-9]*),.*$/0d $1h $2m/;
+    }
+    return $var;
+  } else {
+    if($freebsd) {
+      $var = `$sysctl -n kern.boottime | awk '{print \$4}'`;
+    }
+    if($netbsd || $openbsd || $darwin) {
+      $var = `$sysctl -n kern.boottime`;
+    }
+    if($linux) {
+      @arr = split(/ /, $uptime[0]);
+      $varx = $arr[0];
+    } else {
+      chomp($var);
+      $var =~ s/,//g;
+      $vary = `date +%s`; chomp($vary);
+      $varx = $vary - $var;
+    }
+    $varx = sprintf("%2d", $varx);
+    $vard = floor($varx / 86400);
+    $varx %= 86400;
+    $varh = floor($varx / 3600);
+    $varx %= 3600;
+    $varm = floor($varx / 60);
+    if($vard eq 0) { $vard = ''; } elsif($vard >= 1) { $vard = $vard.'d '; }
+    if($varh eq 0) { $varh = ''; } elsif($varh >= 1) { $varh = $varh.'h '; }
+    if($varm eq 0) { $varm = ''; } elsif($varm >= 1) { $varm = $varm.'m'; }
+    return $vard.$varh.$varm;
+  }
+}
+
+Irssi::settings_add_str("sysinfo", "sysinfo_nics", "");
+Irssi::settings_add_str("sysinfo", "sysinfo_nicnames", "");
+
+Irssi::command_bind("sysinfo", "cmd_sysinfo");
diff --git a/scripts/sysinfo_dg.pl b/scripts/sysinfo_dg.pl
new file mode 100644
index 0000000..1510d33
--- /dev/null
+++ b/scripts/sysinfo_dg.pl
@@ -0,0 +1,329 @@
+#!/usr/bin/perl
+use Irssi 20011210.0250 ();
+$VERSION = "1.2";
+%IRSSI = (
+    authors     => 'David Leadbeater',
+    contact     => 'dgl@dgl.cx',
+    name        => 'sysinfo-dg',
+    description => 'Adds a /sysinfo command which prints system information (linux only).',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+#This script is mostly my own work but some ideas where taken from /sinfo by
+#Laurens Buhler and Alain van Acker. Please leave this credit in the script and
+#if you edit it and think the change is worthwhile tell me and i may add it into
+#the script and credit you
+
+use strict;
+use vars qw/$colour $graphs $graphs2 $colour2 $style/;
+Irssi::command_bind("sysinfo","sysinfo");
+
+sub sysinfo{
+   my @options = split(/ /,$_[0]);
+   my %info;
+   my($hostname,$uname,$procs) = basicinfo();
+   my($distro) = distro();
+   my($uptime,$users,$loadavg) = uptime();
+   my($memsize,$memfree) = meminfo();
+   my($swapsize,$swapfree) = swapinfo();
+   my($cpumodel,$cpumhz,$cpucache,$bogomips) = cpuinfo();
+   my %netinfo = netinfo();
+   my($disktotal,$diskused,$hddtype) = df();
+   my($videocard,$ethernet) = pciinfo();
+   my($screenres,$screendepth);
+   ($screenres,$screendepth) = screenres() if $ENV{DISPLAY};
+
+   ($colour,$graphs,$graphs2,$colour2,$style) = parseoptions(\%netinfo,@options);
+
+   %info = (   
+      'os' => "$uname - $distro",
+      'up' => $uptime,
+      'cpu' => "$cpumodel, $cpumhz MHz ($bogomips bogomips)",
+      'cache' => $cpucache,
+      'mem' => ($memsize-$memfree) . "/$memsize MB (" . percent(($memsize-$memfree),$memsize) . ")",
+      'host' => $hostname,
+      'users' => $users,
+      'load' => $loadavg,
+      'procs' => $procs,
+      'swap' => ($swapsize-$swapfree) . "/$swapsize MB (" . percent(($swapsize-$swapfree),$swapsize) . ")",
+      'disk' => "$diskused/$disktotal MB (" . percent($diskused,$disktotal) . ") ($hddtype)",
+      'video' => "$videocard at $screenres ($screendepth bits)",
+      'ethernet' => $ethernet,
+   );
+
+   for(keys %netinfo){
+      $info{$_} = "in: $netinfo{$_}{in} MB, out: $netinfo{$_}{out} MB";
+   }
+
+   my $tmp;
+   for(split(/ /,$style)){
+      $tmp .= ircbit($_,$info{$_}) . " ";
+   }
+   $tmp =~ s/ $//;
+   Irssi::active_win()->command('say ' . $tmp);
+   ($colour,$graphs,$graphs2,$colour2,$style) = undef;
+}
+
+sub parseoptions{
+   my($netinfo,@options) = @_;
+
+   my $tmp = shift(@options) if $options[0] =~ /^\-/;
+   $tmp =~ s/^\-//;
+   for(split //,$tmp){
+	  if($_ eq "c"){
+		 $tmp =~ /c(\d+)/;
+		 $colour = $1;
+		 if(!$colour){
+			$colour = 3;
+		 }
+	  }elsif($_ eq "g"){
+		 $tmp =~ /g(\d+)/;
+		 $graphs = $1;
+		 if(!$graphs){
+			$graphs = 9;
+		 }
+	  }elsif($_ eq "G"){
+		 $tmp =~ /G(\d+)/;
+		 $graphs2 = $1;
+	  }elsif($_ eq "C"){
+		 $tmp =~ /C(\d+)/;
+		 $colour2 = $1;
+	  }
+   }
+   if(!defined $colour2 && $colour){
+	  $colour2 = 15;
+   }
+   if(defined $graphs && !defined $graphs2){
+	  $graphs2 = 3;
+   }
+
+# We got the names on the command line
+   if($options[1]){
+      $style = join(" ",@options);
+# style name
+   }elsif($options[0]){
+      if($options[0] eq "std"){
+	     $style = "os up cpu mem video";
+      }elsif($options[0] eq "bigger"){
+	     $style = "os up cpu cache mem load procs disk video";
+      }elsif($options[0] eq "full"){
+	     $style = "host os up cpu cache mem users load procs swap disk video ethernet ".join(" ",keys %{$netinfo});
+      }elsif($options[0] eq "net"){
+	     $style = join(" ",keys %{$netinfo});
+      }elsif($options[0] eq "uptime"){
+	     $style = "os up";
+      }elsif($options[0] eq "use"){
+	     $style = "mem swap disk";
+      }
+   }else{
+# no input - default
+      $style = "os up cpu mem video";
+   }
+   
+   return($colour,$graphs,$graphs2,$colour2,$style);
+}
+
+sub ircbit{
+   my($name,$text) = @_;
+   $name = " " . $name if $name =~ /^\d/;
+   $text = " " . $text if $text =~ /^\d/;
+   if($colour){
+	  return "$colour$name$colour2\[$text$colour2\]";
+   }else{
+      return "$name\[$text\]";
+   }
+}
+
+sub percent{
+   my $percent = sprintf("%.1f",(($_[0]/$_[1])*100));
+   if($graphs){
+	  my $tmp = "[";
+	  for(1..10){
+	     if($_ > sprintf("%.0f",$percent / 10)){
+			$tmp .= "-" if !defined $colour;
+			$tmp .= "$graphs2-" if defined $colour;
+	     }else{
+		    $tmp .= "|" if !defined $colour;
+		    $tmp .= "$graphs|" if defined $colour;
+	     }
+	  }
+	  $tmp .= "]";
+	  return $percent."% ".$tmp;
+   }
+   return $percent."%";
+}
+
+sub uptime{
+   my $uptimeinfo = `uptime`;
+   if ($uptimeinfo =~ /^\s+(\d+:\d+\w+|\d+:\d+:\d+)\s+up\s+(\d+)\s+day.?\W\s+(\d+):(\d+)\W\s+(\d+)\s+\w+\W\s+\w+\s+\w+\W\s+(\d+).(\d+)/igx) {
+     return("$2 days, $3 hours, $4 minutes", $5, "$6.$7");
+   }elsif ($uptimeinfo =~ /^\s+(\d+:\d+\w+|\d+:\d+:\d+)\s+up+\s+(\d+):(\d+)\W\s+(\d+)\s+\w+\W\s+\w+\s+\w+\W\s+(\d+).(\d+)/igx) {
+	  return("$2 hours, $3 minutes", $4, "$5.$6");
+   }elsif ($uptimeinfo =~ /^\s+(\d+:\d+\w+|\d+:\d+:\d+)\s+up\s+(\d+)\s+day.?\W\s+(\d+)\s+min\W\s+(\d+)\s+\w+\W\s+\w+\s+\w+\W\s+(\d+).(\d+)/igx) {
+	  return("$2 days, $3 minutes", $4, "$5.$6");
+   }elsif ($uptimeinfo =~ /^\s+(\d+:\d+\w+|\d+:\d+:\d+)\s+up+\s+(\d+)\s+min\W\s+(\d+)\s+\w+\W\s+\w+\s+\w+\W\s+(\d+).(\d+)/igx) {
+	  return("$2 minutes", $3, "$4.$5");
+   }
+   return undef;
+}
+
+sub meminfo{
+   my($memsize,$memfree);
+   open(MEMINFO, "/proc/meminfo") or return undef;
+   while(<MEMINFO>){
+      chomp;
+      if(/^MemTotal:\s+(\d+)/){
+	     $memsize = sprintf("%.2f",$1/1024);
+      }elsif(/^MemFree:\s+(\d+)/){
+	     $memfree = sprintf("%.2f",$1/1024);
+      }
+   }
+   close(MEMINFO);
+   return($memsize,$memfree);
+}
+
+sub swapinfo{
+   my($swapsize,$swapused);
+   open(SWAPINFO, "/proc/swaps");
+   while(<SWAPINFO>){
+	  chomp;
+	  next if !/^\//;
+	  /\S+\s+\S+\s+(\S+)\s+(\S+)/;
+	  $swapsize += $1;
+	  $swapused += $2;
+   }
+   close(SWAPINFO);
+   my $swapfree =  sprintf("%.2f",($swapsize - $swapused) / 1024);
+   $swapsize = sprintf("%.2f", $swapsize / 1024);
+   return($swapsize,$swapfree);
+}
+
+sub netinfo{
+   my(%netinfo);
+   open(NETINFO, "/proc/net/dev") or return undef;
+   while(<NETINFO>){
+	  chomp;
+	  next if /^(\s+)?(Inter|face|lo)/;
+	  /^\s*(\w+):\s*(\d+)\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+(\d+)\s+/;
+	  $netinfo{$1}{in} = sprintf("%.2f",$2 / 1048576);
+	  $netinfo{$1}{out} = sprintf("%.2f",$3 / 1048576);
+   }
+   close(NETINFO);
+   return %netinfo;
+}
+
+sub distro{
+   my $distro;
+   if(-f "/etc/coas"){
+      $distro = firstline("/etc/coas");
+   }elsif(-f "/etc/environment.corel"){
+      $distro = firstline("/etc/environment.corel");
+   }elsif(-f "/etc/debian_version"){
+      $distro = "Debian ".firstline("/etc/debian_version");
+   }elsif(-f "/etc/mandrake-release"){
+      $distro = firstline("/etc/mandrake-release");
+   }elsif(-f "/etc/SuSE-release"){
+      $distro = firstline("/etc/SuSE-release");
+   }elsif(-f "/etc/turbolinux-release"){
+      $distro = firstline("/etc/turbolinux-release");
+   }elsif(-f "/etc/slackware-release"){
+      $distro = firstline("/etc/slackware-release");
+   }elsif(-f "/etc/redhat-release"){
+      $distro = firstline("/etc/redhat-release");
+   }
+   return $distro;
+}
+
+sub df{
+   my($disktotal,$diskused,$mainhd);
+   for(`df`){
+      chomp;
+      next if !/^\/dev\/\S+/;
+      next if /(cd|cdrom|fd|floppy)/;
+      /^(\S+)\s+(\S+)\s+(\S+)/;
+	  $mainhd = $1 if !defined $mainhd;
+	  next if not defined $1 or not defined $2;
+      $disktotal += $2;
+      $diskused += $3;
+   }
+   $disktotal = sprintf("%.2f",$disktotal / 1024);
+   $diskused = sprintf("%.2f",$diskused / 1024);
+
+   $mainhd =~ s/\/dev\/([a-z]+)\d+/$1/;
+   my $hddtype = firstline("/proc/ide/$mainhd/model");
+
+   return($disktotal,$diskused,$hddtype);
+}
+
+sub basicinfo{
+   my($hostname,$sysinfo,$procs);
+   chomp($hostname = `hostname`);
+   chomp($sysinfo = `uname -sr`);
+   opendir(PROC, "/proc");
+   $procs = scalar grep(/^\d/,readdir PROC);
+   return($hostname,$sysinfo,$procs);
+}
+
+sub cpuinfo{
+   my($cpumodel,$cpusmp,$cpumhz,$cpucache,$bogomips);
+   open(CPUINFO, "/proc/cpuinfo") or return undef;
+   while(<CPUINFO>){
+      if(/^model name\s+\:\s+(.*?)$/){
+	     if(defined $cpumodel){
+		    if(defined $cpusmp){
+			   $cpusmp++;
+		    }else{
+		       $cpusmp=2;
+		    }
+	     }else{
+	        $cpumodel = $1;
+	     }
+      }elsif(/^cpu MHz\s+:\s+([\d\.]*)/){
+	     $cpumhz = $1;
+      }elsif(/^cache size\s+:\s+(.*)/){
+	     $cpucache = $1;
+      }elsif(/^bogomips\s+:\s+([\d\.]*)/){
+		 $bogomips += $1;
+	  }
+   }
+   $cpumodel .= " SMP ($cpusmp processors)" if defined $cpusmp;
+   return($cpumodel,$cpumhz,$cpucache,$bogomips);
+}
+
+sub pciinfo{
+   my($videocard,$ethernet);
+   open(PCI, "/proc/pci") or return undef;
+   while(<PCI>){
+      chomp;
+      if(/VGA compatible controller: (.*?)$/){
+         $videocard .= "${1}+ ";
+      }elsif(/Ethernet controller: (.*?)$/){
+	     $ethernet = $1;
+      }
+   }
+   close(PCI);
+   $videocard =~ s/\+ $//;
+   return($videocard,$ethernet);
+}
+
+sub screenres{
+   my ($res,$depth);
+   for(`xdpyinfo`){
+	  if(/\s+dimensions:\s+(\S+)/){
+		 $res = $1;
+	  }elsif(/\s+depth:\s+(\S+)/){
+		 $depth = $1;
+	  }
+   }
+   return($res,$depth);
+}
+
+sub firstline{
+   my $file = shift;
+   open(FILE, "$file") or return undef;
+   chomp(my $line = <FILE>);
+   close(FILE);
+   return $line;
+}
+
diff --git a/scripts/sysinfo_juerd.pl b/scripts/sysinfo_juerd.pl
new file mode 100644
index 0000000..cc82d0d
--- /dev/null
+++ b/scripts/sysinfo_juerd.pl
@@ -0,0 +1,106 @@
+
+# Those <censored> mIRC'ers have all those irritating system info "remotes" to
+# brag about their system.
+# Now, it's up to Irssi users to brag about their pentium 75's and 2 Gio harddisks.
+# :)
+
+# Differences to Juerd-only-version:
+# -YASFU units (Mio, Gio) - http://snull.cjb.net/?yasfu
+# -Free memory and free swap are displayed (previously only total swap/mem)
+# -Reorganized and tuned output
+# -Displays length of your virtual penis (this is quite tricky, so you might want to disable it by commenting)
+# -Doesn't display info on nfs/smbfs/none-type mounts (edit script if you want those)
+
+# Vpenis is not 100% compatible with Cras' vpenis.sh - I have fixed some bugs:
+# -More network filesystems excluded (originally only NFS was excluded)
+# -Total amount of memory counts (not the used amount, as before)
+
+# Changelog 2.10 -> 2.20: memory/swap info is displayed now (it was broken previously) and code is properly indented
+
+$VERSION = "2.20";
+%IRSSI = (
+	  authors     => "Juerd, Tronic",
+	  contact     => "trn\@iki.fi",
+	  name        => "SysinfoPlus",
+	  description => "Linux system information (with vPenis and other stuff)",
+	  license     => "Public Domain",
+	  url         => "http://juerd.nl/irssi/",
+	  changed     => "Mon Nov 04 15:17:30 EET 2002"
+	  );
+
+BEGIN{
+    use vars '$console';
+    eval q{
+	use Irssi;
+	Irssi::version();
+    };
+    $console = !!$@;
+}
+
+use strict;
+
+# Tronic has no time for maintaining this and Juerd hates braces, so it might be better
+# not to expect any new versions ...
+
+sub sysinfo{
+    # This should really need indenting, but I'm kinda lazy.
+    
+    my (@uname, $ret, @pci, $usr, $avg, $up, $vpenis);
+    
+    @uname = (split ' ', `uname -a`)[0..2];
+    
+    $ret = "Host '@uname[1]', running @uname[0] @uname[2] - ";
+    
+    open FOO, '/proc/cpuinfo';
+    while (<FOO>){
+	/^processor\s*:\s*(\d+)/         ? $ret .= "Cpu$1: "
+	  : /^model name\s*:\s*(\w+[ A-Za-z]*)/ ? do { my $t = $1; $t =~ s/\s+$//; $ret .= "$t " }
+	: /^cpu MHz\s*:\s*([\.\d]+)/       ? $ret .= int(.5+$1) . ' MHz '
+	  : undef;
+    }
+    close FOO;
+    $ret =~ s/( ?)$/;$1/;
+    open FOO, '/proc/pci';
+    while (<FOO>){
+	/^\s*(?:multimedia )?(.*?)( storage| compatible)? controller/i and push @pci, $1;
+    }
+    close FOO;
+    $ret .= 'PCI: ' . join(',', map ucfirst, @pci) . '; ' if @pci;
+    if (`uptime` =~ /^.*?up\s*(.*?),\s*(\d+) users?,.*: ([\d\.]+)/){
+	($usr, $avg) = ($2, $3);
+	($up = $1) =~ s/\s*days?,\s*|\+/d+/;
+	$ret .= "Up: $up; Users: $usr; Load: $avg; ";
+    }
+    
+    # Free space
+    $ret .= "Free:";
+    if (`free` =~ /Mem:\s*(\d*)\s*\d*\s*(\d*)/) { $ret .= " [Mem: " . int(.5 + $2/2**10) . "/" . int(.5 + $1/2**10) . " Mio]"; } # For compatibility: replace $1 with $2
+    if (`free` =~ /Swap:\s*(\d*)\s*\d*\s*(\d*)/) { $ret .= " [Swap: " . int(.5 + $2/2**10) . "/" . int(.5 + $1/2**10) . " Mio]"; } # For compatibility: replace $1 with $2
+
+    for (`df -m -x nfs -x smbfs -x none`) {
+	/^\/\S*\s*(\S*)\s*\S*\s*(\S*)\s*\S*\s*(\S*)/ and $ret .= " [$3: $2/$1 Mio]";
+    }
+    $ret .= ";";
+    
+    # Vpenis (derived from vpenis.sh)
+    $vpenis = 70;
+    if (`cat /proc/uptime` =~ /(\d*)/) { $vpenis += int($1/3600/24)/10; }
+    if (`cat /proc/cpuinfo` =~ /MHz\s*:\s*(\S*)/) { $vpenis += $1/30; }
+    if (`free` =~ /Mem:\s*(\d*)\s*(\d*)/) { $vpenis += $1/1024/3; } # For compatibility: replace $1 with $2
+    for (`df -P -k -x nfs -x smbfs -x none|grep -v blocks`) { # For compatibility: remove -x smbfs -x none
+	if (/^\S*\s*(\S*)/) { $usr = $1; $vpenis += ((/^\/dev\/(scsi|sd)/) ? 2*$usr : $usr)/1024/50/15; }
+    }
+    $ret .= " Vpenis: " . int($vpenis)/10 . " cm;";
+    
+    if ($console){
+	print "$ret\n";
+    }else{
+	Irssi::active_win->command("/say $ret");
+    }
+} #end of sub
+  
+if ($console){
+    sysinfo();
+}else{
+    Irssi::command_bind('sysinfo', 'sysinfo')
+}
diff --git a/scripts/sysinfoplus.pl b/scripts/sysinfoplus.pl
new file mode 100644
index 0000000..cc82d0d
--- /dev/null
+++ b/scripts/sysinfoplus.pl
@@ -0,0 +1,106 @@
+
+# Those <censored> mIRC'ers have all those irritating system info "remotes" to
+# brag about their system.
+# Now, it's up to Irssi users to brag about their pentium 75's and 2 Gio harddisks.
+# :)
+
+# Differences to Juerd-only-version:
+# -YASFU units (Mio, Gio) - http://snull.cjb.net/?yasfu
+# -Free memory and free swap are displayed (previously only total swap/mem)
+# -Reorganized and tuned output
+# -Displays length of your virtual penis (this is quite tricky, so you might want to disable it by commenting)
+# -Doesn't display info on nfs/smbfs/none-type mounts (edit script if you want those)
+
+# Vpenis is not 100% compatible with Cras' vpenis.sh - I have fixed some bugs:
+# -More network filesystems excluded (originally only NFS was excluded)
+# -Total amount of memory counts (not the used amount, as before)
+
+# Changelog 2.10 -> 2.20: memory/swap info is displayed now (it was broken previously) and code is properly indented
+
+$VERSION = "2.20";
+%IRSSI = (
+	  authors     => "Juerd, Tronic",
+	  contact     => "trn\@iki.fi",
+	  name        => "SysinfoPlus",
+	  description => "Linux system information (with vPenis and other stuff)",
+	  license     => "Public Domain",
+	  url         => "http://juerd.nl/irssi/",
+	  changed     => "Mon Nov 04 15:17:30 EET 2002"
+	  );
+
+BEGIN{
+    use vars '$console';
+    eval q{
+	use Irssi;
+	Irssi::version();
+    };
+    $console = !!$@;
+}
+
+use strict;
+
+# Tronic has no time for maintaining this and Juerd hates braces, so it might be better
+# not to expect any new versions ...
+
+sub sysinfo{
+    # This should really need indenting, but I'm kinda lazy.
+    
+    my (@uname, $ret, @pci, $usr, $avg, $up, $vpenis);
+    
+    @uname = (split ' ', `uname -a`)[0..2];
+    
+    $ret = "Host '@uname[1]', running @uname[0] @uname[2] - ";
+    
+    open FOO, '/proc/cpuinfo';
+    while (<FOO>){
+	/^processor\s*:\s*(\d+)/         ? $ret .= "Cpu$1: "
+	  : /^model name\s*:\s*(\w+[ A-Za-z]*)/ ? do { my $t = $1; $t =~ s/\s+$//; $ret .= "$t " }
+	: /^cpu MHz\s*:\s*([\.\d]+)/       ? $ret .= int(.5+$1) . ' MHz '
+	  : undef;
+    }
+    close FOO;
+    $ret =~ s/( ?)$/;$1/;
+    open FOO, '/proc/pci';
+    while (<FOO>){
+	/^\s*(?:multimedia )?(.*?)( storage| compatible)? controller/i and push @pci, $1;
+    }
+    close FOO;
+    $ret .= 'PCI: ' . join(',', map ucfirst, @pci) . '; ' if @pci;
+    if (`uptime` =~ /^.*?up\s*(.*?),\s*(\d+) users?,.*: ([\d\.]+)/){
+	($usr, $avg) = ($2, $3);
+	($up = $1) =~ s/\s*days?,\s*|\+/d+/;
+	$ret .= "Up: $up; Users: $usr; Load: $avg; ";
+    }
+    
+    # Free space
+    $ret .= "Free:";
+    if (`free` =~ /Mem:\s*(\d*)\s*\d*\s*(\d*)/) { $ret .= " [Mem: " . int(.5 + $2/2**10) . "/" . int(.5 + $1/2**10) . " Mio]"; } # For compatibility: replace $1 with $2
+    if (`free` =~ /Swap:\s*(\d*)\s*\d*\s*(\d*)/) { $ret .= " [Swap: " . int(.5 + $2/2**10) . "/" . int(.5 + $1/2**10) . " Mio]"; } # For compatibility: replace $1 with $2
+
+    for (`df -m -x nfs -x smbfs -x none`) {
+	/^\/\S*\s*(\S*)\s*\S*\s*(\S*)\s*\S*\s*(\S*)/ and $ret .= " [$3: $2/$1 Mio]";
+    }
+    $ret .= ";";
+    
+    # Vpenis (derived from vpenis.sh)
+    $vpenis = 70;
+    if (`cat /proc/uptime` =~ /(\d*)/) { $vpenis += int($1/3600/24)/10; }
+    if (`cat /proc/cpuinfo` =~ /MHz\s*:\s*(\S*)/) { $vpenis += $1/30; }
+    if (`free` =~ /Mem:\s*(\d*)\s*(\d*)/) { $vpenis += $1/1024/3; } # For compatibility: replace $1 with $2
+    for (`df -P -k -x nfs -x smbfs -x none|grep -v blocks`) { # For compatibility: remove -x smbfs -x none
+	if (/^\S*\s*(\S*)/) { $usr = $1; $vpenis += ((/^\/dev\/(scsi|sd)/) ? 2*$usr : $usr)/1024/50/15; }
+    }
+    $ret .= " Vpenis: " . int($vpenis)/10 . " cm;";
+    
+    if ($console){
+	print "$ret\n";
+    }else{
+	Irssi::active_win->command("/say $ret");
+    }
+} #end of sub
+  
+if ($console){
+    sysinfo();
+}else{
+    Irssi::command_bind('sysinfo', 'sysinfo')
+}
diff --git a/scripts/tab_stop.pl b/scripts/tab_stop.pl
new file mode 100644
index 0000000..8039a34
--- /dev/null
+++ b/scripts/tab_stop.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+#
+# Created by Stefan "tommie" Tomanek [stefan@kann-nix.org]
+# to free the world from  the evil inverted I
+#
+# 23.02.2002
+# *First release
+#
+# 01.03.200
+# *Changed to GPL
+
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+
+$VERSION = "2002123102";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "tab_stop",
+    description => "This script replaces the evil inverted 'I' with a configurable number of whitespaces ",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+);
+
+sub event_server_incoming {
+    my ($server, $data) = @_;
+    my $newdata;
+    if (has_tab($data)) {
+	$newdata = replace_tabs($data);
+	Irssi::signal_continue($server, $newdata);
+    }
+}
+
+# FIXME Experimental!
+sub sig_gui_print_text {
+    my ($win, $fg, $bg, $flags, $text, $dest) = @_;
+    return unless $text =~ /\t/;
+    my $newtext = replace_tabs($text);
+    Irssi::signal_continue($win, $fg, $bg, $flags, $newtext, $dest);
+}
+
+sub has_tab {
+    my ($text) = @_;
+    return $text =~ /\t/;
+}
+
+sub replace_tabs {
+    my ($text) = @_;
+    my $replacement = Irssi::settings_get_str('tabstop_replacement');
+    $text =~ s/\t/$replacement/g;
+    return($text);
+}
+
+#Irssi::signal_add('gui print text', \&sig_gui_print_text);
+Irssi::signal_add_first('server incoming', \&event_server_incoming);
+
+Irssi::settings_add_str('misc', 'tabstop_replacement', "    ");
+
diff --git a/scripts/talk.pl b/scripts/talk.pl
new file mode 100644
index 0000000..82d2374
--- /dev/null
+++ b/scripts/talk.pl
@@ -0,0 +1,230 @@
+# -*- CPerl -*-
+#       $Id$
+use Irssi;
+use vars qw($VERSION %IRSSI);
+$VERSION = '1.01';
+%IRSSI = (
+    authors     => 'Alexander Mieland',
+    contact     => 'dma147\@mieland-programming.de',
+    name        => 'Talk',
+    description => 'This script talks to you *g*. It reads the chat-msgs for you.',
+    license     => 'GPL2',
+);
+
+##########################################################################
+#
+#	Change your preferred language here
+my $language = "en";	# (en|de)
+#
+#	should I say all of the joins, parts and quits?
+my $sayjpq = "0";		# (1|0)
+#
+#	should I say all of the nickchanges?
+my $saynickchg = "0";	# (1|0)
+#
+##########################################################################
+
+
+Irssi::theme_register(
+[
+ 'talk_loaded', 
+ '{line_start}{hilight Talk:} $0',
+]);
+
+Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'talk_loaded', "Version 1.0 loaded. Type /talk_help, if you have any questions or problems.");
+
+sub cmd_talk_help
+	{
+	my $help = "
+[talk.pl]
+
+This script is a text2speech engine for your irssi. It reads the msgs from 
+your irssi client and speaks them through your soundcard.
+
+It is highly recommended, that you\'ve set up your txt2speech in linux with 
+a tutorial, which provides a little bash-script, called \'say\', which must 
+be able to be useed in a pipe.
+
+Because this irssi-script makes use of the bash-script /usr/(local/)bin/say 
+and it uses it in a pipe. 
+Otherwise this irssi-script will *not* work.
+
+For german people, I would prefer:
+http://www.linux-magazin.de/Artikel/ausgabe/2000/05/Sprachsynthese/sprachsynthese.html
+
+==========================================================================
+
+Commands:
+
+/say [message]   :  Speaks the given message through your soundcard
+/talk_about      :  Licence and Information about this script
+/talk_help       :  This helptext
+";
+	Irssi::print($help, MSGLEVEL_CLIENTCRAP);
+	}
+
+sub cmd_talk_about
+	{
+	my $about = "
+[talk.pl]
+
+This script is a text2speech engine for your irssi. It reads the msgs from 
+your irssi client and speaks them through your soundcard.
+
+For information how to use, type /talk_help
+
+This script is written and copyrighted 2004 by Alexander Mieland
+Contact: dma147 in #gentoo.de @ irc.freenode.net
+This script is licenced under the terms of GNU - General Public Licence 
+Version 2.
+";
+	Irssi::print($about, MSGLEVEL_CLIENTCRAP);
+	}
+
+sub RepCrap
+	{
+	my $string = lc(shift) || return;
+	$string =~ s/['#\`]//g;
+	$string =~ s/ä/ae/g;
+	$string =~ s/ö/oe/g;
+	$string =~ s/ü/ue/g;
+	$string =~ s/ß/ss/g;
+	if ($language eq "de")
+		{
+		$string =~ s/([ ]+[0-9]*)mbit/\1megabit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*kbit/\1kilobit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*bit/\1bit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*mbyte/\1megabeit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*kbyte/\1megabeit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*byte/\1beit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*mb/\1megabeit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*kb/\1kilobeit/g;
+		$string =~ s/\"/anfuehrungszeichen/g;
+		$string =~ s/_/unterstrich/g;
+		$string =~ s/;\)/zwinkernder smeili/g;
+		$string =~ s/;-\)/zwinkernder smeili/g;
+		$string =~ s/:\)/smeili/g;
+		$string =~ s/:-\)/smeili/g;
+		$string =~ s/:\(/trauriger smeili/g;
+		$string =~ s/:-\(/trauriger smeili/g;
+		$string =~ s/\*g\*/grins/g;
+		$string =~ s/\*gg\*/grins grins/g;
+		$string =~ s/\*fg\*/freches grinsen/g;
+		$string =~ s/\*ffg\*/sehr freches grinsen/g;
+		$string =~ s/afaik/so weit ich weiss/g;
+		$string =~ s/imho/meiner meinung nach/g;
+		$string =~ s/([^ ]+)\.([^ ]+)/\1punkt\2/g;
+		}
+	else
+		{
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*mbit/\1megabit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*kbit/\1kilobit/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*mbyte/\1megabyte/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*kbyte/\1megabyte/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*mb/\1megabyte/g;
+		$string =~ s/([ ]+[0-9,\.]*)[ ]*kb/\1kilobyte/g;
+		$string =~ s/\"/quote/g;
+		$string =~ s/_/underscore/g;
+		$string =~ s/;\)/winking smilie/g;
+		$string =~ s/;-\)/winking smilie/g;
+		$string =~ s/:\)/smilie/g;
+		$string =~ s/:-\)/smilie/g;
+		$string =~ s/:\(/sad smilie/g;
+		$string =~ s/:-\(/sad smilie/g;
+		$string =~ s/\*g\*/grin/g;
+		$string =~ s/\*gg\*/grin grin/g;
+		$string =~ s/\*fg\*/sassy grin/g;
+		$string =~ s/\*ffg\*/very sassy grin/g;
+		$string =~ s/afaik/as far as i know/g;
+		$string =~ s/imho/in my humble opinion/g;
+		$string =~ s/([^ ]+)\.([^ ]+)/\1point\2/g;
+		}
+	$string =~ s/;/semicolon/g;
+	$string =~ s/-/minus/g;
+	$string =~ s/\+/plus/g;
+	return($string);
+	}
+
+sub Say
+	{
+	my $text = lc(shift) || return;
+	$text = " ".$text." ";
+	$text = RepCrap($text);
+	system("bash -c \"echo \\\"$text\\\" | say\" &");
+	}
+
+sub on_privmsg
+	{
+	my ($server, $data, $nick, $hostmask) = @_;
+	my ($channel, $text) = split(/ :/, $data, 2);
+	if ($language eq "de")
+		{ Say("$nick sagt: $text"); }
+	else
+		{ Say("$nick says: $text"); }
+	return 0;
+	}
+
+sub on_join
+	{
+	my ($server, $channel, $nick, $hostmask) = @_;
+	if ($language eq "de")
+		{ Say("$nick hat den Channel $channel betreten."); }
+	else
+		{ Say("$nick has entered the channel $channel."); }
+	return 0;
+	}
+
+sub on_quit
+	{
+	my ($server, $data, $nick, $hostmask) = @_;
+	my ($channel, $text) = split(/ :/, $data, 2);
+	if ($language eq "de")
+		{ Say("$nick hat den Server verlassen."); }
+	else
+		{ Say("$nick has left the server."); }
+	return 0;
+	}
+
+sub on_part
+	{
+	my ($server, $data, $nick, $hostmask) = @_;
+	my ($channel, $text) = split(/ :/, $data, 2);
+	if ($language eq "de")
+		{ Say("$nick hat den Channel $channel verlassen."); }
+	else
+		{ Say("$nick has left the channel $channel."); }
+	return 0;
+	}
+
+sub on_nick
+	{
+	my ($server, $newnick, $nick, $hostmask) = @_;
+	if ($language eq "de")
+		{ Say("$nick heisst nun $newnick"); }
+	else
+		{ Say("$nick is now known as $newnick"); }
+	return 0;
+	}
+
+sub cmd_say
+	{
+	Say(@_);
+	return 0;
+	}
+
+Irssi::command_bind('say', 'cmd_say', 'talk.pl');
+Irssi::command_bind('talk_about', 'cmd_talk_about', 'talk.pl');
+Irssi::command_bind('talk_help', 'cmd_talk_help', 'talk.pl');
+Irssi::signal_add("event privmsg", 'on_privmsg');
+if ($sayjpq eq "1")
+	{
+	Irssi::signal_add("event join", 'on_join');
+	Irssi::signal_add("event quit", 'on_quit');
+	Irssi::signal_add("event part", 'on_part');
+	}
+if ($saynickchg eq "1")
+	{
+	Irssi::signal_add("event nick", 'on_nick');
+	}
+
+#end
diff --git a/scripts/target.pl b/scripts/target.pl
new file mode 100644
index 0000000..b049cb9
--- /dev/null
+++ b/scripts/target.pl
@@ -0,0 +1,163 @@
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003020801";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "Target",
+    description => "advances IRC warfare to the next level ;)",
+    license     => "GPLv2",
+    url         => "http://scripts.irssi.org",
+    sbitems     => 'target',
+    changed     => "$VERSION",
+    commands	=> "target"
+);
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use vars qw(%target);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }                                                                               $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help=$IRSSI{name}." ".$VERSION."
+/target lock <nick>
+    Target <nick> for current channel
+/target unlock
+    Unlock current target
+/target kick [reason]
+    Kick the locked target
+/target ban [reason]
+    Knockout the selected target
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box($IRSSI{name}." help", $text, "help", 1) ;
+}
+
+
+sub lock_target ($$$) {
+    my ($server, $channel, $nick) = @_;
+    my $witem = $server->window_find_item($channel);
+    $witem->print("%R>>%n Target acquired: +>".$nick."<+", MSGLEVEL_CLIENTCRAP) if (ref $witem && not $target{$server->{tag}}{$channel} eq $nick);
+    $target{$server->{tag}}{$channel} = $nick;
+    Irssi::statusbar_items_redraw('target');
+}
+
+sub unlock_target ($$) {
+    my ($server, $channel) = @_;
+    delete $target{$server->{tag}}{$channel};
+    delete $target{$server->{tag}} unless (keys %{ $target{$server->{tag}} });
+    Irssi::statusbar_items_redraw('target');
+}
+
+sub kick_target ($$$$) {
+    my ($server, $witem, $ban, $reason) = @_;
+    my $nick = $target{$server->{tag}}{$witem->{name}};
+    return unless $nick;
+    #my $reason = 'Target destroyed';
+    my $cmd = 'kick '.$nick.' '.$reason;
+    if ($ban) {
+	$cmd = 'kn '.$nick.' '.$reason;
+    }
+    $witem->command($cmd);
+}
+
+sub sb_target ($$) {
+    my ($item, $get_size_only) = @_;
+    my $line = '';
+    my $witem = Irssi::active_win()->{active};
+    if (ref $witem && $witem->{type} eq 'CHANNEL') {
+	my $tag = $witem->{server}->{tag};
+	if ($target{$tag}{$witem->{name}}) {
+	    $line .= '+>';
+	    if ($witem->nick_find($target{$tag}{$witem->{name}})) {
+		$line .= '%R';
+	    } else {
+		$line .= '%y';
+	    }
+	    $line .= $target{$tag}{$witem->{name}};
+	    $line .= '%n';
+	    $line .= '<+';
+	}
+    }
+    my $format = "{sb ".$line."}";
+    $item->{min_size} = $item->{max_size} = length($line);
+    $item->default_handler($get_size_only, $format, 0, 1);
+}
+
+sub sig_message_kick ($$$$$$) {
+    my ($server, $channel, $nick, $kicker, $address, $reason) = @_;
+    if (Irssi::settings_get_bool('target_lock_only_on_own_kicks')) {
+	return unless ($kicker eq $server->{nick});
+    }
+    lock_target($server, $channel, $nick);
+    Irssi::statusbar_items_redraw('target');
+}
+
+sub cmd_target ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ +/, $args);
+    if (@arg == 0) {
+	# list targets
+	show_help();
+    } elsif ($arg[0] eq 'lock') {
+	return unless $server;
+	return unless ref $witem;
+	return unless $witem->{type} eq 'CHANNEL';
+	return unless defined $arg[1];
+	lock_target($server, $witem->{name}, $arg[1]);
+    } elsif ($arg[0] eq 'unlock') {
+	return unless $server;
+        return unless ref $witem;
+        return unless $witem->{type} eq 'CHANNEL';
+	unlock_target($server, $witem->{name});
+    } elsif ($arg[0] eq 'kick') {
+	shift @arg;
+	return unless $server;
+	return unless ref $witem;
+	return unless $witem->{type} eq 'CHANNEL';
+        my $reason = @arg ? join(" ", @arg) : 'Target destroyed';;
+	kick_target($server, $witem, 0, $reason);
+    } elsif ($arg[0] eq 'ban') {
+	shift @arg;
+        return unless $server;
+        return unless ref $witem;
+        return unless $witem->{type} eq 'CHANNEL';
+        my $reason = @arg ? join(" ", @arg) : 'Target destroyed';;
+        kick_target($server, $witem, 1, $reason);
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+
+Irssi::signal_add('message join', sub { Irssi::statusbar_items_redraw('target'); });
+Irssi::signal_add('message part', sub { Irssi::statusbar_items_redraw('target'); });
+Irssi::signal_add('window item changed', sub { Irssi::statusbar_items_redraw('target'); });
+Irssi::signal_add('window changed', sub { Irssi::statusbar_items_redraw('target'); });
+Irssi::signal_add('message kick', \&sig_message_kick);
+Irssi::statusbar_item_register('target', 0, 'sb_target');
+
+Irssi::settings_add_bool($IRSSI{name}, 'target_lock_only_on_own_kicks', 0);
+
+Irssi::command_bind('target', \&cmd_target);
+foreach my $cmd ('lock', 'unlock', 'kick', 'ban', 'help') {
+    Irssi::command_bind('target '.$cmd => sub {
+        cmd_openurl("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /target help for help';
diff --git a/scripts/thankop.pl b/scripts/thankop.pl
new file mode 100644
index 0000000..023b041
--- /dev/null
+++ b/scripts/thankop.pl
@@ -0,0 +1,134 @@
+use Irssi 0.8.10 ();
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION="0.1.7";
+%IRSSI = (
+	authors=> 'BC-bd',
+	contact=> 'bd@bc-bd.org',
+	name=> 'thankop',
+	description=> 'Remembers the last person oping you on a channel',
+	license=> 'GPL v2',
+	url=> 'https://bc-bd.org/svn/repos/irssi/trunk/',
+);
+
+# $Id #
+# 
+#########
+# USAGE
+###
+#
+# Type '/thankop' in a channel window to thank the person opping you
+#
+##########
+# OPTIONS
+####
+#
+# /set thankop_command [command]
+#		* command  : to be executed. The following $'s are expanded
+#		    $N : Nick (some dude)
+#		    
+#		eg:
+#		
+#		  /set thankop_command say $N: w00t!
+#
+#		Would say
+#
+#		  <nick>: w00t!
+#
+#		To the channel you got op in, with <nick> beeing the nick who
+#		opped you
+#
+################
+###
+# Changelog
+#
+# Version 0.1.7
+#  - fix crash if used in a window != CHANNEL
+#  - do not thank someone who has already left
+#
+# Version 0.1.6
+#  - added support for multiple networks, thanks to senneth
+#  - adapted to signal changes in 0.8.10
+#
+# Version 0.1.5
+#  - change back to setting instead of theme item
+#
+# Version 0.1.4
+#  - added theme item to customize the message (idea from mordeth)
+#
+# Version 0.1.3
+#  - removed '/' from the ->command (thx to mordeth)
+#  - removed debug messages (where commented out)
+#  
+# Version 0.1.2
+#  - added version dependency, since some 0.8.4 users complained about a not
+#      working script
+#  
+# Version 0.1.1
+#  - unsetting of hash values is done with delete not unset.
+#
+# Version 0.1.0
+#  - initial release
+#  
+###
+################
+
+my %op;
+
+sub cmd_thankop {
+	my ($data, $server, $witem) = @_;
+
+	if (!$witem || ($witem->{type} =! "CHANNEL")) {
+		Irssi::print("thankop: Window not of type CHANNEL");
+		return;
+	}
+
+	my $tag = $witem->{server}->{tag}.'/'.$witem->{name};
+
+	# did we record who opped us here
+	if (!exists($op{$tag})) {
+		$witem->print("thankop: I don't know who op'ed you in here");
+		return;
+	}
+
+	my $by = $op{$tag};
+
+	# still here?
+	if (!$witem->nick_find($by)) {
+		$witem->print("thankop: $by already left");
+		return;
+	}
+
+	my $cmd = Irssi::settings_get_str('thankop_command');
+				
+	$cmd =~ s/\$N/$by/;
+	$witem->command($cmd);
+}
+
+sub mode_changed {
+	my ($channel, $nick, $by, undef, undef) = @_;
+
+	return if ($channel->{server}->{nick} ne $nick->{nick});
+
+	# since 0.8.10 this is set after signals have been processed
+	return if ($channel->{chanop});
+
+	my $tag = $channel->{server}->{tag}.'/'.$channel->{name};
+
+	$op{$tag} = $by;
+}
+
+sub channel_destroyed {
+	my ($channel) = @_;
+
+	my $tag = $channel->{server}->{tag}.'/'.$channel->{name};
+
+	delete($op{$tag});
+}
+
+Irssi::command_bind('thankop','cmd_thankop');
+Irssi::signal_add_last('nick mode changed', 'mode_changed');
+
+Irssi::settings_add_str('thankop', 'thankop_command', 'say $N: opthx');
diff --git a/scripts/thistory.pl b/scripts/thistory.pl
new file mode 100644
index 0000000..a1f5b3a
--- /dev/null
+++ b/scripts/thistory.pl
@@ -0,0 +1,159 @@
+# thistory.pl v1.05 [10.03.2002]
+# Copyright (C) 2001, 2002 Teemu Hjelt <temex@iki.fi>
+#
+# Written for irssi 0.7.98 and later, idea from JSuvanto.
+#
+# Many thanks to fuchs, shasta, Paladin, Koffa and people 
+# on #irssi for their help and suggestions.
+#
+# Keeps information about the most recent topics of the 
+# channels you are on.
+# Usage: /thistory [channel] and /tinfo [channel]
+# 
+# v1.00 - Initial release.
+# v1.02 - Months and topics with formatting were shown
+#         incorrectly. (Found by fuchs and shasta)
+# v1.03 - event_topic was occasionally using the wrong
+#         server tag. Also added few variables to ease
+#         changing the settings and behaviour of this
+#         script.
+# v1.04 - Minor bug-fixes.
+# v1.05 - Made the script more consistent with other
+#         Irssi scripts.
+
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+# Formatting character.
+my $fchar = '%';
+
+# Format of the line.
+my $format = '"%topic" %nick (%address) [%mday.%mon.%year %hour:%min:%sec]';
+
+# Amount of topics stored.
+my $tamount = 10;
+
+###### Don't edit below this unless you know what you're doing ######
+
+$VERSION = "1.05";
+%IRSSI = (
+	authors     => "Teemu Hjelt",
+	contact     => "temex\@iki.fi",
+	name        => "topic history",
+	description => "Keeps information about the most recent topics of the channels you are on.",
+	license     => "GNU GPLv2 or later",
+	url         => "http://www.iki.fi/temex/",
+	changed     => "Sun Mar 10 14:53:59 EET 2002",
+);
+
+sub cmd_topicinfo {
+	my ($channel) = @_;
+	my $tag = Irssi::active_server()->{'tag'};
+	$channel =~ s/\s+//;
+	$channel =~ s/\s+$//;
+
+	if ($channel eq "") {
+		if (Irssi::channel_find(Irssi::active_win()->get_active_name())) {
+			$channel = Irssi::active_win()->get_active_name();
+		}
+	}
+	if ($channel ne "") {
+		if ($topiclist{lc($tag)}{lc($channel)}{0}) {
+			Irssi::print("%W$channel%n: " . $topiclist{lc($tag)}{lc($channel)}{0}, MSGLEVEL_CRAP);
+		} else {
+			Irssi::print("No topic information for %W$channel%n", MSGLEVEL_CRAP);
+		}
+	} else {
+		Irssi::print("Usage: /tinfo <channel>");
+	}
+}
+
+sub cmd_topichistory {
+	my ($channel) = @_;
+	my $tag = Irssi::active_server()->{'tag'};
+	$channel =~ s/\s+//;
+	$channel =~ s/\s+$//;
+
+        if ($channel eq "") {
+                if (Irssi::channel_find(Irssi::active_win()->get_active_name())) {
+                        $channel = Irssi::active_win()->get_active_name();
+                }
+        }
+	if ($channel ne "") {
+		if ($topiclist{lc($tag)}{lc($channel)}{0}) {
+			my $amount = &getamount($tag, $channel);
+			Irssi::print("Topic history for %W$channel%n:", MSGLEVEL_CRAP);
+			for (my $i = 0; $i < $amount; $i++) {
+				if ($topiclist{lc($tag)}{lc($channel)}{$i}) {
+					my $num = $i + 1;
+					if (length($amount) >= length($tamount) && length($i + 1) < length($tamount)) {
+						for (my $j = length($tamount); $j > length($i + 1); $j--) {
+							$num = " " . $num;
+						}
+					}
+					Irssi::print($num . ". " . $topiclist{lc($tag)}{lc($channel)}{$i}, MSGLEVEL_CRAP);
+				} else {
+					last;
+				}
+			}
+		} else {
+			Irssi::print("No topic history for %W$channel%n", MSGLEVEL_CRAP);
+		}
+	} else {
+		Irssi::print("Usage: /thistory <channel>");
+	}
+}
+
+sub event_topic {
+	my ($server, $data, $nick, $address) = @_;
+	my ($channel, $topic) = split(/ :/, $data, 2);
+	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
+	my $tag = $server->{'tag'};
+	my $output = $format;
+
+	$topic =~ s/%/%%/g;
+	$topic .= '%n';
+
+	$val{'sec'} = $sec < 10 ? "0$sec" : $sec;
+	$val{'min'} = $min < 10 ? "0$min" : $min;
+	$val{'hour'} = $hour < 10 ? "0$hour" : $hour;
+	$val{'mday'} = $mday < 10 ? "0$mday" : $mday;
+	$val{'mon'} = $mon + 1 < 10 ? "0" . ($mon + 1) : $mon + 1;
+	$val{'year'} = $year + 1900;
+
+	$val{'nick'} = $nick;
+	$val{'address'} = $address;
+	$val{'channel'} = $channel;
+	$val{'topic'} = $topic;
+	$val{'tag'} = $tag;
+
+	$output =~ s/$fchar(\w+)/$val{$1}/g;
+
+        for (my $i = (&getamount($tag, $channel) - 1); $i >= 0; $i--) {
+		if ($topiclist{lc($tag)}{lc($channel)}{$i}) {
+			$topiclist{lc($tag)}{lc($channel)}{$i + 1} = $topiclist{lc($tag)}{lc($channel)}{$i};
+		} 
+        }
+        $topiclist{lc($tag)}{lc($channel)}{0} = $output;
+}
+
+sub getamount {
+	my ($tag, $channel) = @_;
+	my $amount = 0;
+	
+	for (my $i = 0; $i < $tamount; $i++) {
+		if ($topiclist{lc($tag)}{lc($channel)}{$i}) {
+			$amount++;
+		}
+	}
+	return $amount;
+}
+
+Irssi::command_bind("topichistory", "cmd_topichistory");
+Irssi::command_bind("thistory", "cmd_topichistory");
+Irssi::command_bind("topicinfo", "cmd_topicinfo");
+Irssi::command_bind("tinfo", "cmd_topicinfo");
+Irssi::signal_add("event topic", "event_topic");
+
+Irssi::print("Loaded thistory.pl v$VERSION");
diff --git a/scripts/timer.pl b/scripts/timer.pl
new file mode 100644
index 0000000..1f5452c
--- /dev/null
+++ b/scripts/timer.pl
@@ -0,0 +1,175 @@
+# Fixes for multiple servers and window items by dg
+#
+# 2003-08-27 coekie:
+# - use item names and server tags, fixes irssi crash if window item or server is destroyed
+#
+# 2003-08-19
+#  - changed timer stop code a bit.
+#    should fix the random timer o.O never happened to me before.
+#
+# 2002-12-21 darix:
+#  - nearly complete rewrite ;) the old version wasnt "use strict;" capable =)
+#  - still some warnings with "use warnings;"
+#  - use of command_runsub now :)
+#
+
+use strict;
+use Data::Dumper;
+use warnings;
+use vars  qw ($VERSION %IRSSI);
+use Irssi 20020325 qw (command_bind command_runsub command timeout_add timeout_remove signal_add_first);
+
+$VERSION = '0.5';
+%IRSSI = (
+    authors     => 'Kimmo Lehto, Marcus Rueckert',
+    contact     => 'kimmo@a-men.org, darix@irssi.org' ,
+    name        => 'Timer',
+    description => 'Provides /timer command for mIRC/BitchX type timer functionality.',
+    license     => 'Public Domain',
+    changed     => '2003-08-27'
+);
+
+our %timers;
+# my %timer = { repeat => \d+, command => '' , windowitem => NULL , server=> NULL, timer = NULL};
+
+sub timer_command {
+    my ( $name ) = @_;
+    if ( exists ( $timers{$name} ) ) {
+        if ( $timers{$name}->{'repeat'} != -1 ) {
+            if ( $timers{$name}->{'repeat'}-- == 0) {
+                cmd_timerstop( $name );
+                return;
+            }
+        }
+
+        my ($server, $item);
+        if ($timers{$name}->{'server'}) {
+            $server = Irssi::server_find_tag( $timers{$name}->{'server'} );
+        }
+        if ( $server ) {
+	    if ( $timers{$name}->{'windowitem'}) {
+                $item = $server->window_find_item( $timers{$name}->{'windowitem'} );
+            }
+            ($item ? $item : $server)->command( $timers{$name}->{'command'} );
+        } else {
+            command( $timers{$name}->{'command'} );
+        }
+    }
+}
+
+sub cmd_timerstop {
+    my ( $name ) = @_;
+
+    if ( exists ( $timers{$name} ) ) {
+        timeout_remove($timers{$name}->{'timer'});
+        $timers{$name} = ();
+        delete ( $timers{$name} );
+        print( CRAP "Timer \"$name\" stopped." );
+    }
+    else {
+        print( CRAP "\cBTimer:\cB No such timer \"$name\"." );
+    }
+}
+
+sub cmd_timer_help {
+    print ( <<EOF
+
+TIMER LIST
+TIMER ADD  <name> <internal in seconds> [<repeat>] <command>
+TIMER STOP <name>
+
+repeat value of 0 means unlimited too
+
+EOF
+    );
+}
+
+command_bind 'timer add' => sub {
+    my ( $data, $server, $item ) = @_;
+    my ( $name, $interval, $times, $command );
+
+    if ( $data =~ /^\s*(\w+)\s+(\d+)\s+(-?\d+)\s+(.*)$/ ) {
+        ( $name, $interval, $times, $command ) = ( $1, $2, $3, $4 );
+        $times = -1 if ( $times == 0 );
+    }
+    elsif ( $data =~ /^\s*(\w+)\s+(\d+)\s+(.*)$/ )
+    {
+        ( $name, $interval, $times, $command ) = ( $1, $2, -1, $3 );
+    }
+    else {
+        print( CRAP "\cBTimer:\cB parameters not understood. commandline was: timer add $data");
+        return;
+    };
+
+    if ( $times < -1 ) {
+        print( CRAP "\cBTimer:\cB repeat should be greater or equal to -1" );
+        return;
+    };
+
+    if ( $command eq "" ) {
+        print( CRAP "\cBTimer:\cB command is empty commandline was: timer add $data" );
+        return;
+    };
+
+    if ( exists ( $timers{$name} ) ) {
+        print( CRAP "\cBTimer:\cB Timer \"$name\" already active." );
+    }
+    else {
+        #$timers{$name} = {};
+        $timers{$name}->{'repeat'}     = $times;
+        $timers{$name}->{'interval'}   = $interval;
+        $timers{$name}->{'command'}    = $command;
+	if ($item) {
+            $timers{$name}->{'windowitem'} = $item->{'name'};
+	}
+	if ($server) {
+            $timers{$name}->{'server'}     = $server->{'tag'};
+	}
+
+        if ( $times == -1 ) {
+            $times = 'until stopped.';
+        }
+        else {
+            $times .= " times.";
+        }
+
+        print( CRAP "Starting timer \"$name\" repeating \"$command\" every $interval seconds $times" );
+
+        $timers{$name}->{'timer'} = timeout_add( $interval * 1000, \&timer_command, $name );
+    }
+};
+
+command_bind 'timer list' => sub {
+    print( CRAP "Active timers:" );
+    foreach my $name ( keys %timers ) {
+        if ( $timers{$name}->{repeat} == -1 ) {
+            print( CRAP "$name = $timers{$name}->{'command'} (until stopped)");
+        }
+        else {
+            print( CRAP "$name = $timers{$name}->{'command'} ($timers{$name}->{'repeat'} repeats left)" );
+        }
+    }
+    print( CRAP "End of /timer list" );
+};
+
+command_bind 'timer stop' => sub {
+    my ( $data, $server, $item ) = @_;
+    cmd_timerstop ($data);
+};
+
+command_bind 'timer help' => sub { cmd_timer_help() };
+
+command_bind 'timer' => sub {
+    my ( $data, $server, $item ) = @_;
+    $data =~ s/\s+$//g;
+    command_runsub ( 'timer', $data, $server, $item ) ;
+};
+
+
+signal_add_first 'default command timer' => sub {
+#
+# gets triggered if called with unknown subcommand
+#
+    cmd_timer_help()
+}
+
diff --git a/scripts/timezones.pl b/scripts/timezones.pl
new file mode 100644
index 0000000..f05bfa0
--- /dev/null
+++ b/scripts/timezones.pl
@@ -0,0 +1,61 @@
+#
+# Add the statusbar item to its own statusbar with
+# /statusbar sb_timezones enable
+# /statusbar sb_timezones add -alignment left barstart
+# /statusbar sb_timezones add -after barstart timezones
+# /statusbar sb_timezones add -alignment right barend
+#
+# or add it to an existing one with
+# /statusbar window add timezones (window is an exaple, see /statusbar and /help statusbar for comprehensive help)
+
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => "Jari Matilainen",
+    contact     => "irc: vague`\@freenode",
+    name        => "timezones",
+    description => "timezones displayer",
+    license     => "Public Domain",
+    url         => "http://vague.se"
+);
+
+use strict;
+use Irssi::TextUI;
+use DateTime;
+
+my $refresh_tag;
+
+sub timezones {
+  my ($item,$get_size_only) = @_;
+  my ($datetime) = Irssi::settings_get_str("timezones_clock_format");
+  my ($div) = Irssi::settings_get_str("timezones_divider");
+  my (@timezones) = split ' ', Irssi::settings_get_str("timezones");
+
+  my $result = "";
+
+  foreach(@timezones) {
+    if(length($result)) { $result .= $div; }
+    my ($nick, $timezone) = split /:/, $_;
+    my $now = DateTime->now(time_zone => $timezone);
+    $result .= $nick . ": " . $now->strftime("$datetime");
+  }
+
+  $item->default_handler($get_size_only, undef, $result, 1);
+}
+
+sub refresh_timezones {
+  Irssi::statusbar_items_redraw('timezones');
+}
+
+sub init_timezones {
+  Irssi::timeout_remove($refresh_tag) if ($refresh_tag);
+  $refresh_tag = Irssi::timeout_add(1000, \&refresh_timezones, undef);
+}
+
+Irssi::statusbar_item_register('timezones', '{sb $0-}', 'timezones');
+Irssi::settings_add_str('timezones', 'timezones_clock_format', '%H:%M:%S');
+Irssi::settings_add_str('timezones', 'timezones_divider', ' ');
+Irssi::settings_add_str('timezones', 'timezones', 'Mike:GMT Sergey:EST');
+
+init_timezones();
+Irssi::signal_add('setup changed', \&init_timezones);
+refresh_timezones();
diff --git a/scripts/tinyurl.pl b/scripts/tinyurl.pl
new file mode 100644
index 0000000..31a097b
--- /dev/null
+++ b/scripts/tinyurl.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+#
+# by Atoms
+
+use strict;
+use IO::Socket;
+use LWP::UserAgent;
+
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind active_win);
+$VERSION = '1.0';
+%IRSSI = (
+    authors	=> 'Atoms',
+    contact	=> 'atoms@tups.lv',
+	patch   => 'spowers@dimins.com',
+    name	=> 'tinyurl',
+    description	=> 'create a tinyurl from a long one',
+    license	=> 'GPL',
+);
+
+command_bind(
+    tinyurl => sub {
+      my ($msg, $server, $witem) = @_;
+      my $answer = tinyurl($msg);
+      if ($answer) {
+        print CLIENTCRAP "$answer";
+        if ($witem && ($witem->{type} eq 'CHANNEL' || $witem->{type} eq 'QUERY')) {
+  	      $witem->command("MSG " . $witem->{name} ." ". $answer);
+        }
+      }
+    }
+);
+
+sub tinyurl {
+	my $url = shift;
+        
+        #added to fix URLs containing a '&'
+        $url=url_encode($url);
+
+  my $ua = LWP::UserAgent->new;
+  $ua->agent("tinyurl for irssi/1.0 ");
+  my $req = HTTP::Request->new(POST => 'http://tinyurl.com/create.php');
+  $req->content_type('application/x-www-form-urlencoded');
+  $req->content("url=$url");
+  my $res = $ua->request($req);
+
+  if ($res->is_success) {
+	  return get_tiny_url($res->content);
+  } else {
+    print CLIENTCRAP "ERROR: tinyurl: tinyurl is down or not pingable";
+		return "";
+	}
+}
+
+#added because the URL was not being url_encoded. This would cause only 
+#the portion of the URL before the first "&" to be properly sent to tinyurl.
+sub url_encode {
+        my $url = shift;
+        $url =~ s/([\W])/"%" . uc(sprintf("%2.2x",ord($1)))/eg;
+        return $url;
+}
+
+sub get_tiny_url($) {
+	
+	my $tiny_url_body = shift;
+	$tiny_url_body =~ /(.*)(tinyurl\svalue=\")(.*)(\")(.*)/;
+
+	return $3;
+}
diff --git a/scripts/title.pl b/scripts/title.pl
new file mode 100644
index 0000000..6e31ffc
--- /dev/null
+++ b/scripts/title.pl
@@ -0,0 +1,144 @@
+use Irssi 20020120.0250 ();
+$VERSION = "3.2";
+%IRSSI = (
+    authors     => 'Timo Sirainen, David Leadbeater',
+    contact     => 'tss@iki.fi, dgl@dgl.cx',
+    name        => 'title',
+    description => 'Display configurable title as XTerm title',
+    license     => 'GNU GPL',
+    url         => 'http://irssi.dgl.cx/',
+);
+
+
+# Settings:
+# title_string: The string used in the title, see below for explaination
+# title_topic_length: The length to truncate the topic to (some terminals have
+# problems with long titles).
+# title_screen_window: (EXPERIMENTAL), sets the screen window title rather than
+# the Xterm title.
+
+# The $vars are normal Irssi vars (docs/special_vars.txt).
+# $.var does some magic, adds a space at the begining and brackets around 
+# the item but only if it produces output.
+
+# Here is some examples:
+# The default:
+# /set title_string Irssi: [$N@$tag]$.C$.winname$.act
+# Quite nice with lots of info:
+# /set title_string $cumode$winname$C$.M$.act$.topic
+# Nickname with usermode
+# /set title_string $N(+$usermode)
+
+my %act;
+use IO::Handle;
+
+sub xterm_topic {
+	my($text) = @_;
+
+	STDERR->autoflush(1);
+   if(Irssi::settings_get_bool('title_screen_window')) {
+      print STDERR "\033k$text\033\\";
+   }else{
+	   print STDERR "\033]0;$text\007";
+   }
+}
+
+sub refresh_topic {
+	my $title = Irssi::settings_get_str('title_string');
+	$title =~ s/\$([A-Za-z.,;:]+)/special_var($1)/eg;
+	xterm_topic($title);
+}
+
+sub special_var {
+   my($str) = @_;
+
+   my($begin,$end);
+   if($str =~ s/^\.//) {
+	  $begin = ' [';
+      $end = ']';
+   }else{
+	  $begin = $end = '';
+   }
+
+   my $result;
+   if($str eq 'topic') {
+	  $result = topic_str();
+   }elsif($str eq 'act') {
+	  $result = act_str();
+   }else{
+	  my $item = ref Irssi::active_win() ? Irssi::active_win()->{active} : '';
+	  $item = Irssi::active_server() unless ref $item;
+	  return '' unless ref $item;
+
+	  $result = $item->parse_special('$' . $str);
+   }
+
+   $begin = '(+', $end = ')' if $str eq 'M' && $begin;
+
+   return $result ? $begin . $result . $end : '';
+}
+
+sub topic_str {
+	my $server = Irssi::active_server();
+	my $item = ref Irssi::active_win() ? Irssi::active_win()->{active} : '';
+
+	if(ref $server && ref $item && $item->{type} eq 'CHANNEL') {
+	   my $topic = $item->{topic};
+       # Remove colour and bold from topic...
+	   $topic =~ s/\003(\d{1,2})(\,(\d{1,2})|)//g;
+	   $topic =~ s/[\x00-\x1f]//g;
+	   $topic = substr($topic, 0,Irssi::settings_get_int('title_topic_length'));
+	   return $topic if length $topic;
+	}
+	return '';
+}
+
+sub act_str {
+   my @acts;
+   for my $winref(keys %act) {
+      # handle windows with items and not gracefully
+      my $window = Irssi::window_find_refnum($winref);
+      if(defined($window)) {
+         for my $win ($window->items or $window) {
+	          if($win->{data_level} >= 3 || $win->{data_lev} >= 3) {
+	              push(@acts,$win->{name});
+             } else {
+		           delete($act{$winref});
+             }
+	       }
+      } else {
+		   delete($act{$winref});
+	   }
+   }
+   return join(', ',@acts);
+}
+
+sub topic_changed {
+   my($chan) = @_;
+   return unless ref Irssi::active_win() &&
+	  Irssi::active_win()->{active}->{type} eq 'CHANNEL';
+   return unless lc $chan->{name} eq lc Irssi::active_win()->{active}->{name};
+
+   refresh_topic();
+}
+
+sub hilight_win {
+   my($win) = @_;
+   return unless ref $win && $win->{data_level} >= 3;
+   $act{$win->{refnum}}++;
+
+   refresh_topic();
+}
+
+Irssi::signal_add_last('window changed', 'refresh_topic');
+Irssi::signal_add_last('window item changed', 'refresh_topic');
+Irssi::signal_add_last('window server changed', 'refresh_topic');
+Irssi::signal_add_last('server nick changed', 'refresh_topic');
+Irssi::signal_add_last('channel topic changed', 'topic_changed');
+Irssi::signal_add_last('window hilight', 'hilight_win');
+Irssi::signal_add_last('setup changed', 'refresh_topic');
+
+Irssi::settings_add_str('misc', 'title_string', 'Irssi: [$N@$tag]$.C$.winname$.act');
+Irssi::settings_add_int('misc', 'title_topic_length', 250);
+Irssi::settings_add_bool('misc', 'title_screen_window', 0);
+
diff --git a/scripts/tlock.pl b/scripts/tlock.pl
new file mode 100644
index 0000000..33a586e
--- /dev/null
+++ b/scripts/tlock.pl
@@ -0,0 +1,81 @@
+use Irssi 20020300;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.1";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "Topic Lock",
+        description     => "/TLOCK [-d] [channel] [topic] - locks current or specified topic on [channel]",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Mar 15 15:09:42 CET 2002"
+);
+
+my %tlock = ();
+
+sub cmd_tlock {
+	my ($args, $server, $win) = @_;
+
+	my $tag = $server->{tag};
+	my $delete = ($args =~ s/^-d\s//)? 1 : 0;
+	my ($chan) = $args =~ /^([^\s]+)/;
+
+	unless ($chan) {
+		my $i = 0;
+		for my $ch (keys %{$tlock{$tag}}) {
+			if ($tlock{$tag}{$ch}) {
+				$i = 1;
+				Irssi::print("Lock on $tag%W/%n$ch%W:%n $tlock{$tag}{$ch}");
+			}
+		}
+		Irssi::print("%R>>%n You dont have any active topic locks at this moment.") unless $i;
+		return;
+	}
+
+	$chan = lc($chan);
+	if ($delete) {
+		Irssi::print("%W>>%n topic lock on $chan removed") if $tlock{$tag}{$chan};
+		undef $tlock{$tag}{$chan};
+		return;
+	} 
+
+	my $channel = $server->channel_find($chan);
+	unless ($channel && $channel->{chanop}) {
+		Irssi::print("%R>>%n You are not channel operator/not on channel on $chan.");
+		return;
+	}
+
+	$args =~ s/^$chan\s?//;
+	my $topic = ($args)? $args : $channel->{topic};
+
+	if ($tlock{$tag}{$chan}) {
+		Irssi::print("Changed tlock on $chan to%W:%n $topic");
+	} else {
+		Irssi::print("Set tlock on $chan to%W:%n $topic");
+	}
+
+	$server->send_raw("TOPIC $chan :$topic") if $channel->{topic} ne $topic;
+
+	$tlock{$tag}{$chan} = $topic;	
+	
+}
+
+sub sub_tlock {
+	# "event "<cmd>, SERVER_REC, char *args, char *sender_nick, char *sender_address
+	my ($server, $args, $nick, $uh) = @_;
+
+	return if $server->{nick} eq $nick;
+	my ($chan, $topic) = split(/ :/, $args);
+	return unless $server->channel_find($chan)->{chanop};
+	$chan = lc($chan);
+	my $tag = $server->{tag};
+	
+	if ($tlock{$tag}{$chan} && $topic ne $tlock{$tag}{$chan}) {
+		Irssi::print("%W>>%n tlock: changing topic back on $chan");
+		$server->send_raw("TOPIC $chan :$tlock{$tag}{$chan}");
+	}
+}
+
+Irssi::signal_add('event topic', 'sub_tlock');
+Irssi::command_bind('tlock', 'cmd_tlock');
diff --git a/scripts/topics.pl b/scripts/topics.pl
new file mode 100644
index 0000000..61a672b
--- /dev/null
+++ b/scripts/topics.pl
@@ -0,0 +1,126 @@
+
+# by Stefan 'tommie' Tomanek
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '2003020801';
+%IRSSI = (
+    authors     => 'Stefan \'tommie\' Tomanek',
+    contact     => 'stefan@pico.ruhr.de',
+    name        => 'topics',
+    description => 'records a topic history and locks the channel topic',
+    license     => 'GPLv2',
+    url         => 'http://irssi.org/scripts/',
+    changed     => $VERSION,
+    commands     => 'topics'
+);
+
+use Irssi 20020324;
+use vars qw(%topics);
+
+sub show_help() {
+    my $help = "$IRSSI{name} $VERSION
+/topics
+    List all topics that have been set in the current channel
+/topics <num>
+    Restore topic <num>
+/topics lock
+    Lock the current topic
+/topics unlock
+    Unlock the channeltopic
+";
+    my $text='';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("Topics", $text, "topics help", 1);
+}
+
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub sig_channel_topic_changed ($) {
+    my ($channel) = @_;
+    my $ircnet = $channel->{server}->{tag};
+    my $name = $channel->{name};
+    my $data = {'topic'      => $channel->{topic}, 
+                'topic_by'   => $channel->{topic_by},
+		'topic_time' => $channel->{topic_time}
+    };
+    push @{$topics{$ircnet}{$name}{list}}, $data;
+    if ($topics{$ircnet}{$name}{lock}) {
+	my $topic = $topics{$ircnet}{$name}{lock}{topic};
+	return if ($topic eq $channel->{topic});
+	$channel->print("%B>>%n Restoring locked topic...", MSGLEVEL_CLIENTCRAP);
+	$channel->command("TOPIC -- ".$topic);
+    }
+}
+
+sub cmd_topics ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @args = split / /, $args;
+    if ($args[0] =~ /^\d+$/) {
+	return unless (ref $witem && $witem->{type} eq 'CHANNEL');
+	my $ircnet = $server->{tag};
+	my $name = $witem->{name};
+	if (defined $topics{$ircnet}{$name}{list}->[$args]) {
+	    $witem->print("%B>>%n Restoring Topic ".$args, MSGLEVEL_CLIENTCRAP);
+	    my $topic = $topics{$ircnet}{$name}{list}->[$args]->{topic};
+	    $witem->command("TOPIC -- ".$topic);
+	}
+    } elsif ($args[0] eq 'lock') {
+	return unless (ref $witem && $witem->{type} eq 'CHANNEL');
+	my $ircnet = $server->{tag};
+	my $name = $witem->{name};
+	my $data = {'topic'      => $witem->{topic},
+		    'topic_by'   => $witem->{topic_by},
+		    'topic_time' => $witem->{topic_time}
+	};
+	$topics{$ircnet}{$name}{lock} = $data;
+	$witem->print("%B>>%n %ro-m%n Topic locked", MSGLEVEL_CLIENTCRAP);
+    } elsif ($args[0] eq 'unlock') {
+	return unless (ref $witem && $witem->{type} eq 'CHANNEL');
+	my $ircnet = $server->{tag};
+	my $name = $witem->{name};
+	delete $topics{$ircnet}{$name}{lock};
+	$witem->print("%B>>%n %gø-m%n Topic unlocked", MSGLEVEL_CLIENTCRAP);
+    } elsif ($args[0] eq 'help') {
+	show_help();
+    } else {
+        return unless (ref $witem && $witem->{type} eq 'CHANNEL');
+        my $ircnet = $server->{tag};
+        my $name = $witem->{name};
+	my $i = 0;
+	my $text;
+	foreach (@{$topics{$ircnet}{$name}{list}}) {
+	    $text .= "%r[".$i."]%n ".$_->{topic_time}." (by ".$_->{topic_by}.")\n";
+	    my $topic = $_->{topic};
+	    $topic =~ s/%/%%/g;
+	    $text .= '     "'.$topic.'"'."\n";
+	    $i++;
+	}
+	$witem->print($_, MSGLEVEL_CLIENTCRAP) foreach (split(/\n/, draw_box('Topics', $text, $name, 1)));
+    }
+}
+
+Irssi::signal_add('channel topic changed', \&sig_channel_topic_changed);
+sig_channel_topic_changed($_) foreach (Irssi::channels());
+
+Irssi::command_bind('topics', \&cmd_topics);
+foreach my $cmd ('lock', 'unlock', 'help') {
+    Irssi::command_bind('topics '.$cmd => sub {
+			cmd_topics("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /topics help for help';
diff --git a/scripts/topicsed.pl b/scripts/topicsed.pl
new file mode 100644
index 0000000..d56ed3d
--- /dev/null
+++ b/scripts/topicsed.pl
@@ -0,0 +1,60 @@
+#
+# Topicsed edits channel topics by perl regexps via the command /topicsed.
+#
+# Thanks to Mikael Magnusson for the idea and patch to implement a
+# preview functionality. ;]
+#
+
+use Irssi;
+
+use vars %IRSSI;
+%IRSSI = (
+	authors		=> "Gabor Nyeki",
+	contact		=> "bigmac\@vim.hu",
+	name		=> "topicsed",
+	description	=> "editing channel topics by regexps",
+	license		=> "public domain",
+	changed		=> "Fri Aug 13 19:27:38 CEST 2004"
+);
+
+
+sub topicsed {
+	my ($regexp, $server, $winit) = @_;
+
+	my $preview = 0;
+	if ($regexp =~ m/^-p(review|) ?/) {
+		$preview = 1;
+		$regexp =~ s/^-p\w* ?//;
+	}
+
+	unless ($regexp) {
+		Irssi::print("Usage: /topicsed [-p[review]] <regexp>");
+		return;
+	}
+	return if (!$server || !$server->{connected} ||
+		!$winit || $winit->{type} != 'CHANNEL');
+
+	my $topic = $winit->{topic};
+	my $x = $topic;
+
+	unless (eval "\$x =~ $regexp") {
+		Irssi::print("topicsed:error: An error occured with your regexp.");
+		return;
+	}
+
+	if ($x eq $topic) {
+		Irssi::print("topicsed:error: The topic wouldn't be changed.");
+		return;
+	} elsif ($x eq "") {
+		Irssi::print("topicsed:error: Edited topic is empty;  try '/topic -delete' instead.");
+		return;
+	}
+
+	if ($preview) {
+		Irssi::print("topicsed: Edited topic for $winit->{name}: $x");
+	} else {
+		$server->send_raw("TOPIC $winit->{name} :$x");
+	}
+}
+
+Irssi::command_bind('topicsed', 'topicsed');
diff --git a/scripts/tordetect.pl b/scripts/tordetect.pl
new file mode 100644
index 0000000..4f4cd89
--- /dev/null
+++ b/scripts/tordetect.pl
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+use strict;
+use Irssi;
+use Net::DNS;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.0.1";
+%IRSSI = (
+    authors     => "Sebastian 'yath' Schmidt",
+    contact     => "yath+irssiscripts\@yath.de",
+    name        => "Tor autodetection for Irssi",
+    description => "This script will automatically detect people using the ".
+                   "Tor anonymity network and append \".TOR\" to their ".
+                   "hostname, to make things like /ignore -time 3600 ".
+                   "*!*\@*.TOR possible (e.g. when your favourite ".
+                   "channel gets flooded).",
+    license     => "Public domain"
+);
+
+use constant {
+    HOSTSUFFIX => ".TOR",
+    DNSBL      => "tor-irc.dnsbl.oftc.net",
+    CACHETIME  => 3600,
+};
+
+my %cache;
+
+sub resolve_host($) {
+    my $hostname = shift;
+    return $hostname if "$hostname." =~ (/^(\d{1,3}\.){4}$/); # yes, that sucks
+
+    my $res = Net::DNS::Resolver->new();
+    my $q = $res->search($hostname, "A");
+    return unless $q;
+    return map { $_->address } grep { $_->type eq "A" } $q->answer;
+}
+
+sub reverse_addr($) {
+    return join(".", reverse(split(/\./, $_[0])));
+}
+
+sub istor($) {
+    my $hostname = shift;
+    if (exists($cache{$hostname})) {
+        if (time >= $cache{$hostname}->[0]) {
+            delete $cache{$hostname};
+        } else {
+            return $cache{$hostname}->[1];
+        }
+    }
+
+    my $result = 0;
+
+    foreach my $addr (resolve_host($hostname)) {
+        if (grep /^127\.0\.0\.1$/,
+                resolve_host(reverse_addr($addr).".".DNSBL)) {
+            $result = 1;
+            last;
+        }
+    }
+
+    $cache{$hostname} = [time+CACHETIME, $result];
+    return $result;
+}
+
+sub handler_server_event {
+    my ($server, $data, $sender_nick, $sender_addr) = @_;
+    return unless ($sender_nick ne "" and $sender_addr =~ /.+@(.+)/);
+    $sender_addr .= HOSTSUFFIX if istor($1);
+    Irssi::signal_continue($server, $data, $sender_nick, $sender_addr);
+}
+
+Irssi::signal_add("server event", \&handler_server_event);
diff --git a/scripts/trackbar.pl b/scripts/trackbar.pl
new file mode 100644
index 0000000..7123330
--- /dev/null
+++ b/scripts/trackbar.pl
@@ -0,0 +1,189 @@
+# trackbar.pl
+# 
+# This little script will do just one thing: it will draw a line each time you
+# switch away from a window. This way, you always know just upto where you've
+# been reading that window :) It also removes the previous drawn line, so you
+# don't see double lines.
+#
+# Usage: 
+#
+#     The script works right out of the box, but if you want you can change
+#     the working by /set'ing the following variables:
+#
+#     trackbar_string       The characters to repeat to draw the bar
+#     trackbar_style        The style for the bar, %r is red for example
+#                           See formats.txt that came with irssi
+#
+#     /mark is a command that will redraw the line at the bottom.  However!  This
+#     requires irssi version after 20021228.  otherwise you'll get the error
+#     redraw: unknown command, and your screen is all goofed up :)
+#
+#     /upgrade & buf.pl notice: This version tries to remove the trackbars before 
+#     the upgrade is done, so buf.pl does not restore them, as they are not removeable
+#     afterwards by trackbar.  Unfortiounatly, to make this work, trackbar and buf.pl
+#     need to be loaded in a specific order.  Please experiment to see which order works
+#     for you (strangely, it differs from configuration to configuration, something I will
+#     try to fix in a next version) 
+#
+# Authors:
+#   - Main maintainer & author: Peter 'kinlo' Leurs
+#   - Many thanks to Timo 'cras' Sirainen for placing me on my way
+#   - on-upgrade-remove-line patch by Uwe Dudenhoeffer
+#
+# Version history:
+#  1.4: - Changed our's by my's so the irssi script header is valid
+#       - Removed utf-8 support.  In theory, the script should work w/o any
+#         problems for utf-8, just set trackbar_string to a valid utf-8 character
+#         and everything *should* work.  However, this script is being plagued by
+#         irssi internal bugs.  The function Irssi::settings_get_str does NOT handle
+#         unicode strings properly, hence you will notice problems when setting the bar
+#         to a unicode char.  For changing your bar to utf-8 symbols, read the line sub.
+#  1.3: - Upgrade now removes the trackbars. 
+#       - Some code cleanups, other defaults
+#       - /mark sets the line to the bottom
+#  1.2: - Support for utf-8
+#       - How the bar looks can now be configured with trackbar_string 
+#         and trackbar_style
+#  1.1: - Fixed bug when closing window
+#  1.0: - Initial release
+#
+#
+#  Call for help!
+#
+#  There is a trackbar version 2.0 that properly handles resizes and immediate config change
+#  activation.  However, there is/are some bug(s) in irssi's main buffer/window code that causes
+#  irssi to 'forget' lines, which is ofcourse completly unaccepteable.  I haven't found the time
+#  nor do I know the irssi's internals enough to find and fix this bug, if you want to help, please
+#  contact me, I'll give you a copy of the 2.0 version that will immediatly show you the problems.
+#
+# Known bugs:
+#  - if you /clear a window, it will be uncleared when returning to the window
+#  - UTF-8 characters in the trackbar_string doesnt work.  This is an irssi bug.
+#  - if you resize your irssi (in xterm or so) the bar is not resized 
+#  - changing the trackbar style is only visible after returning to a window
+#  however, changing style/resize takes in effect after you left the window.
+#
+# Whishlist/todo:
+#  - instead of drawing a line, just invert timestamp or something, 
+#    to save a line (but I don't think this is possible with current irssi)
+#  - some pageup keybinding possibility, to scroll up upto the trackbar
+#  - <@coekie> kinlo: if i switch to another window, in another split window, i 
+#              want the trackbar to go down in the previouswindow in  that splitwindow :)
+#  - < bob_2> anyway to clear the line once the window is read?
+#  - < elho> kinlo: wishlist item: a string that gets prepended to the repeating pattern
+#  - < elho> an option to still have the timestamp in front of the bar
+#  - < elho> oh and an option to not draw it in the status window :P
+#
+# BTW: when you have feature requests, mailing a patch that works is the fastest way
+# to get it added :p
+
+use strict;
+use 5.6.1;
+use Irssi;
+use Irssi::TextUI;
+
+my $VERSION = "1.4";
+
+my %IRSSI = (
+    authors     => "Peter 'kinlo' Leurs",
+    contact     => "peter\@pfoe.be",
+    name        => "trackbar",
+    description => "Shows a bar where you've last read a window",
+    license     => "GPLv2",
+    url         => "http://www.pfoe.be/~peter/trackbar/",
+    changed     => "Thu Feb 20 16:18:08 2003",
+);
+
+my %config;
+
+Irssi::settings_add_str('trackbar', 'trackbar_string' => '-');
+$config{'trackbar_string'} = Irssi::settings_get_str('trackbar_string');
+
+Irssi::settings_add_str('trackbar', 'trackbar_style' => '%K');
+$config{'trackbar_style'} = Irssi::settings_get_str('trackbar_style');
+
+Irssi::signal_add(
+    'setup changed' => sub {
+        $config{'trackbar_string'} = Irssi::settings_get_str('trackbar_string');
+        $config{'trackbar_style'}  = Irssi::settings_get_str('trackbar_style');
+        if ($config{'trackbar_style'} =~ /(?<!%)[^%]|%%|%$/) {
+            Irssi::print(
+                "trackbar: %RWarning!%n 'trackbar_style' seems to contain "
+                . "printable characters. Only use format codes (read "
+                . "formats.txt).", MSGLEVEL_CLIENTERROR);
+        }
+    }
+);
+
+Irssi::signal_add(
+    'window changed' => sub {
+        my (undef, $oldwindow) = @_;
+
+        if ($oldwindow) {
+            my $line = $oldwindow->view()->get_bookmark('trackbar');
+            $oldwindow->view()->remove_line($line) if defined $line;
+            $oldwindow->print(line($oldwindow->{'width'}), MSGLEVEL_NEVER);
+            $oldwindow->view()->set_bookmark_bottom('trackbar');
+        }
+    }
+);
+
+sub line {
+    my $width  = shift;
+    my $string = $config{'trackbar_string'};
+    $string = '-' unless defined $string;
+
+    # There is a bug in irssi's utf-8 handling on config file settings, as you 
+    # can reproduce/see yourself by the following code sniplet:
+    #
+    #   my $quake = pack 'U*', 8364;    # EUR symbol
+    #   Irssi::settings_add_str 'temp', 'temp_foo' => $quake;
+    #   Irssi::print length $quake;
+    #       # prints 1
+    #   Irssi::print length Irssi::settings_get_str 'temp_foo';
+    #       # prints 3
+    #
+    #
+    # Trackbar used to have a workaround, but on recent versions of perl/irssi
+    # it does no longer work.  Therefore, if you want your trackbar to contain
+    # unicode characters, uncomment the line below for a nice full line, or set
+    # the string to whatever char you want.
+
+    # $string = pack('U*', 0x2500);
+
+
+    my $length = length $string;
+
+    if ($length == 0) {
+        $string = '-';
+        $length = 1;
+    }
+
+    my $times = $width / $length;
+    $times = int(1 + $times) if $times != int($times);
+    $string =~ s/%/%%/g;
+    return $config{'trackbar_style'} . substr($string x $times, 0, $width);
+}
+
+# Remove trackbars on upgrade - but this doesn't really work if the scripts are not loaded in the correct order... watch out!
+
+Irssi::signal_add_first( 'session save' => sub {
+	    for my $window (Irssi::windows) {	
+		next unless defined $window;
+		my $line = $window->view()->get_bookmark('trackbar');
+		$window->view()->remove_line($line) if defined $line;
+	    }
+	}
+);
+
+sub cmd_mark {
+    my $window = Irssi::active_win();
+#    return unless defined $window;
+    my $line = $window->view()->get_bookmark('trackbar');
+    $window->view()->remove_line($line) if defined $line;
+    $window->print(line($window->{'width'}), MSGLEVEL_NEVER);
+    $window->view()->set_bookmark_bottom('trackbar');
+    Irssi::command("redraw");    
+}
+
+Irssi::command_bind('mark',   'cmd_mark');
diff --git a/scripts/tracknick.pl b/scripts/tracknick.pl
new file mode 100644
index 0000000..66d1e29
--- /dev/null
+++ b/scripts/tracknick.pl
@@ -0,0 +1,178 @@
+# created for irssi 0.7.98, Copyright (c) 2000 Timo Sirainen
+
+# Are you ever tired of those people who keep changing their nicks?
+# Or maybe you just don't like someone's nick?
+# This script lets you see them with the real nick all the time no matter
+# what nick they're currently using.
+
+# Features:
+#  - when you first join to channel the nick is detected from real name
+#  - when the nick join to channel, it's detected from host mask
+#  - keeps track of parts/quits/nick changes
+#  - /find[realnick] command for seeing the current "fake nick"
+#  - all public messages coming from the nick are displayed as coming from
+#    the real nick.
+#  - all other people's replies to the fake nick are changed to show the
+#    real nick instead ("fakenick: hello" -> "realnick: hello")
+#  - if you reply to the real nick, it's automatically changed to the 
+#    fake nick
+
+# TODO:
+#  - ability to detect always from either address or real name (send whois
+#    requests after join)
+#  - don't force the trackchannel
+#  - nick completion should complete to the real nick too (needs changes
+#    to irssi code, perl module doesn't recognize "completion word" signal)
+#  - support for runtime configuration + multiple nicks
+#  - support for /whois and some other commands? private messages?
+
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI); 
+$VERSION = "0.01";
+%IRSSI = (
+    authors     => "Timo Sirainen",
+    contact	=> "tss\@iki.fi", 
+    name        => "track nick",
+    description => "Are you ever tired of those people who keep changing their nicks? Or maybe you just don't like someone's nick? This script lets you see them with the real nick all the time no matter what nick they're currently using.",
+    license	=> "Public Domain",
+    url		=> "http://irssi.org/",
+    changed	=> "2002-03-04T22:47+0100"
+);
+
+# change these to the values you want them to be
+# change these to the values you want them to be
+my $trackchannel = '#channel';
+my $realnick = 'nick';
+my $address_regexp = 'user@address.fi$';
+my $realname_regexp = 'first.*lastname';
+
+my $fakenick = '';
+
+sub event_nick {
+	my ($newnick, $server, $nick, $address) = @_;
+	$newnick = substr($newnick, 1) if ($newnick =~ /^:/);
+
+	$fakenick = $newnick if ($nick eq $fakenick)
+}
+
+sub event_join {
+	my ($data, $server, $nick, $address) = @_;
+
+	if (!$fakenick && $data eq $trackchannel && 
+	    $address =~ /$address_regexp/) {
+		$fakenick = $nick;
+	}
+}
+
+sub event_part {
+	my ($data, $server, $nick, $address) = @_;
+        my ($channel, $reason) = $data =~ /^(\S*)\s:(.*)/;
+
+	$fakenick = '' if ($fakenick eq $nick && $channel eq $trackchannel);
+}
+
+sub event_quit {
+	my ($data, $server, $nick, $address) = @_;
+
+	$fakenick = '' if ($fakenick eq $nick);
+}
+
+sub event_wholist {
+	my ($channel) = @_;
+
+	find_realnick($channel) if ($channel->{name} eq $trackchannel);
+}
+
+sub find_realnick {
+	my ($channel) = @_;
+
+	my @nicks = $channel->nicks();
+	$fakenick = '';
+	foreach $nick (@nicks) {
+		my $realname = $nick->{realname};
+		if ($realname =~ /$realname_regexp/i) {
+			$fakenick = $nick->{nick};
+			break;
+		}
+	}
+}
+
+sub sig_public {
+	my ($server, $msg, $nick, $address, $target) = @_;
+
+	return if ($target ne $trackchannel || !$fakenick ||
+		   $fakenick eq $realnick);
+
+	if ($nick eq $fakenick) {
+		# text sent by fake nick - change it to real nick
+		send_real_public($server, $msg, $nick, $address, $target);
+		return;
+	}
+
+	if ($msg =~ /^$fakenick([:',].*)/) {
+		# someone's message starts with the fake nick,
+		# automatically change it to real nick
+		$msg = $realnick.$1;
+		Irssi::signal_emit("message public", $server, $msg,
+				   $nick, $address, $target);
+		Irssi::signal_stop();
+	}
+}
+
+sub send_real_public
+{
+	my ($server, $msg, $nick, $address, $target) = @_;
+
+	my $channel = $server->channel_find($target);
+	return if (!$channel);
+
+	my $nickrec = $channel->nick_find($nick);
+	return if (!$nickrec);
+
+	# create temporarily the nick to the nick list so that
+	# nick mode can be displayed correctly
+	my $newnick = $channel->nick_insert($realnick,
+		$nickrec->{op}, 
+		$nickrec->{voice}, 0);
+
+	Irssi::signal_emit("message public", $server, $msg,
+			   $realnick, $address, $target);
+	$channel->nick_remove($newnick);
+	Irssi::signal_stop();
+}
+
+sub sig_send_text {
+	my ($data, $server, $item) = @_;
+
+	return if (!$fakenick || !$item || 
+		   $item->{name} ne $trackchannel);
+
+	if ($fakenick ne $realnick && $data =~ /^$realnick([:',].*)/) {
+		# sending message to realnick, change it to fakenick
+		$data = $fakenick.$1;
+		Irssi::signal_emit("send text", $data, $server, $item);
+		Irssi::signal_stop();
+	}
+}
+
+sub cmd_realnick {
+	if ($fakenick) {
+		Irssi::print("$realnick is currently with nick: $fakenick");
+	} else {
+		Irssi::print("I can't find $realnick currently.");
+	}
+}
+
+my $channel = Irssi::channel_find($trackchannel);
+find_realnick($channel) if ($channel);
+
+Irssi::signal_add('event nick', 'event_nick');
+Irssi::signal_add('event join', 'event_join');
+Irssi::signal_add('event part', 'event_part');
+Irssi::signal_add('event quit', 'event_quit');
+Irssi::signal_add('message public', 'sig_public');
+Irssi::signal_add('send text', 'sig_send_text');
+Irssi::signal_add('channel wholist', 'event_wholist');
+
+Irssi::command_bind("find$realnick", 'cmd_realnick');
diff --git a/scripts/translit.pl b/scripts/translit.pl
new file mode 100644
index 0000000..478dd50
--- /dev/null
+++ b/scripts/translit.pl
@@ -0,0 +1,102 @@
+use strict;
+use vars qw(%IRSSI);
+
+use Irssi;
+%IRSSI = (
+  authors     => 'dreg',
+  contact     => 'dreg@fine.lv',
+  name        => 'translit',
+  description => 'translitiratar',
+  license     => 'GPL',
+);
+
+my $stripped_out = 0;
+
+sub translit_out {
+  if(Irssi::settings_get_bool('translit') && !$stripped_out) {
+    my $emitted_signal = Irssi::signal_get_emitted();
+    my ($msg, $dummy1, $dummy2) = @_;
+
+    $dummy1 =~ s/à/a/g;
+    $dummy1 =~ s/á/b/g;
+    $dummy1 =~ s/â/v/g;
+    $dummy1 =~ s/ã/g/g;
+    $dummy1 =~ s/ä/d/g;
+    $dummy1 =~ s/å/e/g;
+    $dummy1 =~ s/¸/jo/g;
+    $dummy1 =~ s/æ/zh/g;
+    $dummy1 =~ s/ç/z/g;
+    $dummy1 =~ s/è/i/g;
+    $dummy1 =~ s/é/j/g;
+    $dummy1 =~ s/ê/k/g;
+    $dummy1 =~ s/ë/l/g;
+    $dummy1 =~ s/ì/m/g;
+    $dummy1 =~ s/í/n/g;
+    $dummy1 =~ s/î/o/g;
+    $dummy1 =~ s/ï/p/g;
+    $dummy1 =~ s/ð/r/g;
+    $dummy1 =~ s/ñ/s/g;
+    $dummy1 =~ s/ò/t/g;
+    $dummy1 =~ s/ó/u/g;
+    $dummy1 =~ s/ô/f/g;
+    $dummy1 =~ s/õ/h/g;
+    $dummy1 =~ s/ö/c/g;
+    $dummy1 =~ s/÷/ch/g;
+    $dummy1 =~ s/ø/sh/g;
+    $dummy1 =~ s/ù/sch/g;
+    $dummy1 =~ s/ú/`/g;
+    $dummy1 =~ s/û/y/g;
+    $dummy1 =~ s/ü/`/g;
+    $dummy1 =~ s/ý/e/g;
+    $dummy1 =~ s/þ/ju/g;
+    $dummy1 =~ s/ÿ/ja/g;
+
+    $dummy1 =~ s/À/A/g;
+    $dummy1 =~ s/Á/B/g;
+    $dummy1 =~ s/Â/V/g;
+    $dummy1 =~ s/Ã/G/g;
+    $dummy1 =~ s/Ä/D/g;
+    $dummy1 =~ s/Å/E/g;
+    $dummy1 =~ s/¨/JO/g;
+    $dummy1 =~ s/Æ/ZH/g;
+    $dummy1 =~ s/Ç/Z/g;
+    $dummy1 =~ s/È/I/g;
+    $dummy1 =~ s/É/J/g;
+    $dummy1 =~ s/Ê/K/g;
+    $dummy1 =~ s/Ë/L/g;
+    $dummy1 =~ s/Ì/M/g;
+    $dummy1 =~ s/Í/N/g;
+    $dummy1 =~ s/Î/O/g;
+    $dummy1 =~ s/Ï/P/g;
+    $dummy1 =~ s/Ð/R/g;
+    $dummy1 =~ s/Ñ/S/g;
+    $dummy1 =~ s/Ò/T/g;
+    $dummy1 =~ s/Ó/U/g;
+    $dummy1 =~ s/Ô/F/g;
+    $dummy1 =~ s/Õ/H/g;
+    $dummy1 =~ s/Ö/C/g;
+    $dummy1 =~ s/×/CH/g;
+    $dummy1 =~ s/Ø/SH/g;
+    $dummy1 =~ s/Ù/SCH/g;
+    $dummy1 =~ s/Ú/`/g;
+    $dummy1 =~ s/Û/Y/g;
+    $dummy1 =~ s/Ü/`/g;
+    $dummy1 =~ s/Ý/E/g;
+    $dummy1 =~ s/Þ/JU/g;
+    $dummy1 =~ s/ß/JA/g;
+
+    $stripped_out=1;
+
+    Irssi::signal_emit("$emitted_signal", $msg, $dummy1, $dummy2 );
+    Irssi::signal_stop();
+    $stripped_out=0;
+  }
+}
+
+Irssi::settings_add_bool('lookandfeel', 'translit', 1);
+
+#output filters:
+#Irssi::signal_add_first('send command', 'translit_out');
+Irssi::signal_add_first('message own_public', 'translit_out');
+Irssi::signal_add_first('message own_private', 'translit_out');
+
diff --git a/scripts/trigger.pl b/scripts/trigger.pl
new file mode 100644
index 0000000..02f8951
--- /dev/null
+++ b/scripts/trigger.pl
@@ -0,0 +1,1225 @@
+# trigger.pl - execute a command or replace text, triggered by an event in irssi
+# Do /TRIGGER HELP or look at http://wouter.coekaerts.be/irssi/ for help
+
+# Copyright (C) 2002-2006  Wouter Coekaerts <wouter@coekaerts.be>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+use strict;
+use Irssi 20020324 qw(command_bind command_runsub command signal_add_first signal_continue signal_stop signal_remove);
+use Text::ParseWords;
+use IO::File;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.0';
+%IRSSI = (
+	authors     => 'Wouter Coekaerts',
+	contact     => 'wouter@coekaerts.be',
+	name        => 'trigger',
+	description => 'execute a command or replace text, triggered by an event in irssi',
+	license     => 'GPLv2 or later',
+	url         => 'http://wouter.coekaerts.be/irssi/',
+	changed     => '$LastChangedDate: 2006-01-23 13:10:19 +0100 (Mon, 23 Jan 2006) $',
+);
+
+sub cmd_help {
+	Irssi::print (<<'SCRIPTHELP_EOF', MSGLEVEL_CLIENTCRAP);
+
+TRIGGER LIST
+TRIGGER SAVE
+TRIGGER RELOAD
+TRIGGER MOVE <number> <number>
+TRIGGER DELETE <number>
+TRIGGER CHANGE <number> ...
+TRIGGER ADD ...
+
+When to match:
+On which types of event to trigger:
+     These are simply specified by -name_of_the_type
+     The normal IRC event types are:
+          publics, %|privmsgs, pubactions, privactions, pubnotices, privnotices, joins, parts, quits, kicks, topics, invites, nick_changes, dcc_msgs, dcc_actions, dcc_ctcps
+          mode_channel: %|a mode on the (whole) channel (like +t, +i, +b)
+          mode_nick: %|a mode on someone in the channel (like +o, +v)
+     -all is an alias for all of those.
+     Additionally, there is:
+          rawin: %|raw text incoming from the server
+          send_command: %|commands you give to irssi
+          send_text: %|lines you type that aren't commands
+          beep: %|when irssi beeps
+          notify_join: %|someone in you notify list comes online
+          notify_part: %|someone in your notify list goes offline
+          notify_away: %|someone in your notify list goes away
+          notify_unaway: %|someone in your notify list goes unaway
+          notify_unidle: %|someone in your notify list stops idling
+
+Filters (conditions) the event has to satisfy. They all take one parameter.
+If you can give a list, seperate elements by space and use quotes around the list.
+     -pattern: %|The message must match the given pattern. ? and * can be used as wildcards
+     -regexp: %|The message must match the given regexp. (see man perlre)
+       %|if -nocase is given as an option, the regexp or pattern is matched case insensitive
+     -tags: %|The servertag must be in the given list of tags
+     -channels: %|The event must be in one of the given list of channels.
+                Examples: %|-channels '#chan1 #chan2' or -channels 'IRCNet/#channel'
+                          %|-channels 'EFNet/' means every channel on EFNet and is the same as -tags 'EFNet'
+     -masks: %|The person who triggers it must match one of the given list of masks
+     -hasmode: %|The person who triggers it must have the give mode
+               Examples: %|'-o' means not opped, '+ov' means opped OR voiced, '-o&-v' means not opped AND not voiced
+     -hasflag: %|Only trigger if if friends.pl (friends_shasta.pl) or people.pl is loaded and the person who triggers it has the given flag in the script (same syntax as -hasmode)
+     -other_masks
+     -other_hasmode
+     -other_hasflag: %|Same as above but for the victim for kicks or mode_nick.
+
+What to do when it matches:
+     -command: Execute the given Irssi-command
+                %|You are able to use $1, $2 and so on generated by your regexp pattern.
+                %|For multiple commands ; (or $;) can be used as seperator
+                %|The following variables are also expanded:
+                   $T: %|Server tag
+                   $C: %|Channel name
+                   $N: %|Nickname of the person who triggered this command
+                   $A: %|His address (foo@bar.com),
+                   $I: %|His ident (foo)
+                   $H: %|His hostname (bar.com)
+                   $M: %|The complete message
+                   ${other}: %|The victim for kicks or mode_nick
+                   ${mode_type}: %|The type ('+' or '-') for a mode_channel or mode_nick
+                   ${mode_char}: %|The mode char ('o' for ops, 'b' for ban,...)
+                   ${mode_arg} : %|The argument to the mode (if there is one)
+                %|$\X, with X being one of the above expands (e.g. $\M), escapes all non-alphanumeric characters, so it can be used with /eval or /exec. Don't use /eval or /exec without this, it's not safe.
+
+     -replace: %|replaces the matching part with the given replacement in the event (requires a -regexp or -pattern)
+     -once: %|remove the trigger if it is triggered, so it only executes once and then is forgotten.
+     -stop: %|stops the signal. It won't get displayed by Irssi. Like /IGNORE
+     -debug: %|print some debugging info
+
+Other options:
+     -disabled: %|Same as removing it, but keeps it in case you might need it later
+     -name: %|Give the trigger a name. You can refer to the trigger with this name in add/del/change commands
+
+Examples:
+ Knockout people who do a !list:
+   /TRIGGER ADD %|-publics -channels "#channel1 #channel2" -nocase -regexp ^!list -command "KN $N This is not a warez channel!"
+ React to !echo commands from people who are +o in your friends-script:
+   /TRIGGER ADD %|-publics -regexp '^!echo (.*)' -hasflag '+o' -command 'say echo: $1'
+ Ignore all non-ops on #channel:
+   /TRIGGER ADD %|-publics -actions -channels "#channel" -hasmode '-o' -stop
+ Send a mail to yourself every time a topic is changed:
+   /TRIGGER ADD %|-topics -command 'exec echo $\N changed topic of $\C to: $\M | mail you@somewhere.com -s topic'
+
+
+Examples with -replace:
+ %|Replace every occurence of shit with sh*t, case insensitive:
+   /TRIGGER ADD %|-all -nocase -regexp shit -replace sh*t
+ %|Strip all colorcodes from *!lamer@*:
+   /TRIGGER ADD %|-all -masks *!lamer@* -regexp '\x03\d?\d?(,\d\d?)?|\x02|\x1f|\x16|\x06' -replace ''
+ %|Never let *!bot1@foo.bar or *!bot2@foo.bar hilight you
+ %|(this works by cutting your nick in 2 different parts, 'myn' and 'ick' here)
+ %|you don't need to understand the -replace argument, just trust that it works if the 2 parts separately don't hilight:
+   /TRIGGER ADD %|-all masks '*!bot1@foo.bar *!bot2@foo.bar' -regexp '(myn)(ick)' -nocase -replace '$1\x02\x02$2'
+ %|Avoid being hilighted by !top10 in eggdrops with stats.mod (but show your nick in bold):
+   /TRIGGER ADD %|-publics -regexp '(Top.0\(.*\): 1.*)(my)(nick)' -replace '$1\x02$2\x02\x02$3\x02'
+ %|Convert a Windows-1252 Euro to an ISO-8859-15 Euro (same effect as euro.pl):
+   /TRIGGER ADD %|-regexp '\x80' -replace '\xA4'
+ %|Show tabs as spaces, not the inverted I (same effect as tab_stop.pl):
+   /TRIGGER ADD %|-all -regexp '\t' -replace '    '
+SCRIPTHELP_EOF
+} # /
+
+my @triggers; # array of all triggers
+my %triggers_by_type; # hash mapping types on triggers of that type
+my $recursion_depth = 0;
+my $changed_since_last_save = 0;
+
+###############
+### formats ###
+###############
+
+Irssi::theme_register([
+	'trigger_header' => 'Triggers:',
+	'trigger_line' => '%#$[-4]0 $1',
+	'trigger_added' => 'Trigger $0 added: $1',
+	'trigger_not_found' => 'Trigger {hilight $0} not found',
+	'trigger_saved' => 'Triggers saved to $0',
+	'trigger_loaded' => 'Triggers loaded from $0'
+]);
+
+#########################################
+### catch the signals & do your thing ###
+#########################################
+
+# trigger types with a message and a channel
+my @allchanmsg_types = qw(publics pubactions pubnotices pubctcps pubctcpreplies parts quits kicks topics);
+# trigger types with a message
+my @allmsg_types = (@allchanmsg_types, qw(privmsgs privactions privnotices privctcps privctcpreplies dcc_msgs dcc_actions dcc_ctcps));
+# trigger types with a channel
+my @allchan_types = (@allchanmsg_types, qw(mode_channel mode_nick joins invites));
+# trigger types in -all
+my @all_types = (@allmsg_types, qw(mode_channel mode_nick joins invites nick_changes));
+# trigger types with a server
+my @all_server_types = (@all_types, qw(rawin notify_join notify_part notify_away notify_unaway notify_unidle));
+# all trigger types
+my @trigger_types = (@all_server_types, qw(send_command send_text beep));
+#trigger types that are not in -all
+#my @notall_types = grep {my $a=$_; return (!grep {$_ eq $a} @all_types);} @trigger_types;
+my @notall_types = qw(rawin notify_join notify_part notify_away notify_unaway notify_unidle send_command send_text beep);
+
+my @signals = (
+# "message public", SERVER_REC, char *msg, char *nick, char *address, char *target
+{
+	'types' => ['publics'],
+	'signal' => 'message public',
+	'sub' => sub {check_signal_message(\@_,1,$_[0],$_[4],$_[2],$_[3],'publics');},
+},
+# "message private", SERVER_REC, char *msg, char *nick, char *address
+{
+	'types' => ['privmsgs'],
+	'signal' => 'message private',
+	'sub' => sub {check_signal_message(\@_,1,$_[0],undef,$_[2],$_[3],'privmsgs');},
+},
+# "message irc action", SERVER_REC, char *msg, char *nick, char *address, char *target
+{
+	'types' => ['privactions','pubactions'],
+	'signal' => 'message irc action',
+	'sub' => sub {
+		if ($_[4] eq $_[0]->{nick}) {
+			check_signal_message(\@_,1,$_[0],undef,$_[2],$_[3],'privactions');
+		} else {
+			check_signal_message(\@_,1,$_[0],$_[4],$_[2],$_[3],'pubactions');
+		}
+	},
+},
+# "message irc notice", SERVER_REC, char *msg, char *nick, char *address, char *target
+{
+	'types' => ['privnotices','pubnotices'],
+	'signal' => 'message irc notice',
+	'sub' => sub {
+		if ($_[4] eq $_[0]->{nick}) {
+			check_signal_message(\@_,1,$_[0],undef,$_[2],$_[3],'privnotices');
+		} else {
+			check_signal_message(\@_,1,$_[0],$_[4],$_[2],$_[3],'pubnotices');
+		}
+	}
+},
+# "message join", SERVER_REC, char *channel, char *nick, char *address
+{
+	'types' => ['joins'],
+	'signal' => 'message join',
+	'sub' => sub {check_signal_message(\@_,-1,$_[0],$_[1],$_[2],$_[3],'joins');}
+},
+# "message part", SERVER_REC, char *channel, char *nick, char *address, char *reason
+{
+	'types' => ['parts'],
+	'signal' => 'message part',
+	'sub' => sub {check_signal_message(\@_,4,$_[0],$_[1],$_[2],$_[3],'parts');}
+},
+# "message quit", SERVER_REC, char *nick, char *address, char *reason
+{
+	'types' => ['quits'],
+	'signal' => 'message quit',
+	'sub' => sub {check_signal_message(\@_,3,$_[0],undef,$_[1],$_[2],'quits');}
+},
+# "message kick", SERVER_REC, char *channel, char *nick, char *kicker, char *address, char *reason
+{
+	'types' => ['kicks'],
+	'signal' => 'message kick',
+	'sub' => sub {check_signal_message(\@_,5,$_[0],$_[1],$_[3],$_[4],'kicks',{'other'=>$_[2]});}
+},
+# "message topic", SERVER_REC, char *channel, char *topic, char *nick, char *address
+{
+	'types' => ['topics'],
+	'signal' => 'message topic',
+	'sub' => sub {check_signal_message(\@_,2,$_[0],$_[1],$_[3],$_[4],'topics');}
+},
+# "message invite", SERVER_REC, char *channel, char *nick, char *address
+{
+	'types' => ['invites'],
+	'signal' => 'message invite',
+	'sub' => sub {check_signal_message(\@_,-1,$_[0],$_[1],$_[2],$_[3],'invites');}
+},
+# "message nick", SERVER_REC, char *newnick, char *oldnick, char *address
+{
+	'types' => ['nick_changes'],
+	'signal' => 'message nick',
+	'sub' => sub {check_signal_message(\@_,-1,$_[0],undef,$_[1],$_[3],'nick_changes');}
+},
+# "message dcc", DCC_REC *dcc, char *msg
+{
+	'types' => ['dcc_msgs'],
+	'signal' => 'message dcc',
+	'sub' => sub {check_signal_message(\@_,1,$_[0]->{'server'},undef,$_[0]->{'nick'},undef,'dcc_msgs');
+	}
+},
+# "message dcc action", DCC_REC *dcc, char *msg
+{
+	'types' => ['dcc_actions'],
+	'signal' => 'message dcc action',
+	'sub' => sub {check_signal_message(\@_,1,$_[0]->{'server'},undef,$_[0]->{'nick'},undef,'dcc_actions');}
+},
+# "message dcc ctcp", DCC_REC *dcc, char *cmd, char *data
+{
+	'types' => ['dcc_ctcps'],
+	'signal' => 'message dcc ctcp',
+	'sub' => sub {check_signal_message(\@_,1,$_[0]->{'server'},undef,$_[0]->{'nick'},undef,'dcc_ctcps');}
+},
+# "server incoming", SERVER_REC, char *data
+{
+	'types' => ['rawin'],
+	'signal' => 'server incoming',
+	'sub' => sub {check_signal_message(\@_,1,$_[0],undef,undef,undef,'rawin');}
+},
+# "send command", char *args, SERVER_REC, WI_ITEM_REC
+{
+	'types' => ['send_command'],
+	'signal' => 'send command',
+	'sub' => sub {
+		sig_send_text_or_command(\@_,1);
+	}
+},
+# "send text", char *line, SERVER_REC, WI_ITEM_REC
+{
+	'types' => ['send_text'],
+	'signal' => 'send text',
+	'sub' => sub {
+		sig_send_text_or_command(\@_,0);
+	}
+},
+# "beep"
+{
+	'types' => ['beep'],
+	'signal' => 'beep',
+	'sub' => sub {check_signal_message(\@_,-1,undef,undef,undef,undef,'beep');}
+},
+# "event "<cmd>, SERVER_REC, char *args, char *sender_nick, char *sender_address
+{
+	'types' => ['mode_channel', 'mode_nick'],
+	'signal' => 'event mode',
+	'sub' => sub {
+		my ($server, $event_args, $nickname, $address) = @_;
+		my ($target, $modes, $modeargs) = split(/ /, $event_args, 3);
+		return if (!$server->ischannel($target));
+		my (@modeargs) = split(/ /,$modeargs);
+		my ($pos, $type, $event_type, $arg) = (0, '+');
+		foreach my $char (split(//,$modes)) {
+			if ($char eq "+" || $char eq "-") {
+				$type = $char;
+			} else {
+				if ($char =~ /[Oovh]/) { # mode_nick
+					$event_type = 'mode_nick';
+					$arg = $modeargs[$pos++];
+				} elsif ($char =~ /[beIqdk]/ || ( $char =~ /[lfJ]/ && $type eq '+')) { # chan_mode with arg
+					$event_type = 'mode_channel';
+					$arg = $modeargs[$pos++];
+				} else { # chan_mode without arg
+					$event_type = 'mode_channel';
+					$arg = undef;
+				}
+				check_signal_message(\@_,-1,$server,$target,$nickname,$address,$event_type,{
+					'mode_type' => $type,
+					'mode_char' => $char,
+					'mode_arg' => $arg,
+					'other' => ($event_type eq 'mode_nick') ? $arg : undef
+				});
+			}
+		}
+	}
+},
+# "notifylist joined", SERVER_REC, char *nick, char *user, char *host, char *realname, char *awaymsg
+{
+	'types' => ['notify_join'],
+	'signal' => 'notifylist joined',
+	'sub' => sub {check_signal_message(\@_, 5, $_[0], undef, $_[1], $_[2].'@'.$_[3], 'notify_join', {'realname' => $_[4]});}
+},
+{
+	'types' => ['notify_part'],
+	'signal' => 'notifylist left',
+	'sub' => sub {check_signal_message(\@_, 5, $_[0], undef, $_[1], $_[2].'@'.$_[3], 'notify_left', {'realname' => $_[4]});}
+},
+{
+	'types' => ['notify_unidle'],
+	'signal' => 'notifylist unidle',
+	'sub' => sub {check_signal_message(\@_, 5, $_[0], undef, $_[1], $_[2].'@'.$_[3], 'notify_unidle', {'realname' => $_[4]});}
+},
+{
+	'types' => ['notify_away', 'notify_unaway'],
+	'signal' => 'notifylist away changed',
+	'sub' => sub {check_signal_message(\@_, 5, $_[0], undef, $_[1], $_[2].'@'.$_[3], ($_[5] ? 'notify_away' : 'notify_unaway'), {'realname' => $_[4]});}
+},
+# "ctcp msg", SERVER_REC, char *args, char *nick, char *addr, char *target
+{
+	'types' => ['pubctcps', 'privctcps'],
+	'signal' => 'ctcp msg',
+	'sub' => sub {
+		my ($server, $args, $nick, $addr, $target) = @_;
+		if ($target eq $server->{'nick'}) {
+			check_signal_message(\@_, 1, $server, undef, $nick, $addr, 'privctcps');
+		} else {
+			check_signal_message(\@_, 1, $server, $target, $nick, $addr, 'pubctcps');
+		}
+	}
+},
+# "ctcp reply", SERVER_REC, char *args, char *nick, char *addr, char *target
+{
+	'types' => ['pubctcpreplies', 'privctcpreplies'],
+	'signal' => 'ctcp reply',
+	'sub' => sub {
+		my ($server, $args, $nick, $addr, $target) = @_;
+		if ($target eq $server->{'nick'}) {
+			check_signal_message(\@_, 1, $server, undef, $nick, $addr, 'privctcps');
+		} else {
+			check_signal_message(\@_, 1, $server, $target, $nick, $addr, 'pubctcps');
+		}
+	}
+}
+);
+
+sub sig_send_text_or_command {
+	my ($signal, $iscommand) = @_;
+	my ($line, $server, $item) = @$signal;
+	my ($channelname,$nickname,$address) = (undef,undef,undef);
+	if ($item && (ref($item) eq 'Irssi::Irc::Channel' || ref($item) eq 'Irssi::Silc::Channel')) {
+		$channelname = $item->{'name'};
+	} elsif ($item && ref($item) eq 'Irssi::Irc::Query') { # TODO Silc query ?
+		$nickname = $item->{'name'};
+		$address = $item->{'address'}
+	}
+	# TODO pass context also for non-channels (queries and other stuff)
+	check_signal_message($signal,0,$server,$channelname,$nickname,$address,$iscommand ? 'send_command' : 'send_text');
+
+}
+
+my %filters = (
+'tags' => {
+	'types' => \@all_server_types,
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		
+		if (!defined($server)) {
+			return 0;
+		}
+		my $matches = 0;
+		foreach my $tag (split(/ /,$param)) {
+			if (lc($server->{'tag'}) eq lc($tag)) {
+				$matches = 1;
+				last;
+			}
+		}
+		return $matches;
+	}
+},
+'channels' => {
+	'types' => \@allchan_types,
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		
+		if (!defined($channelname) || !defined($server)) {
+			return 0;
+		}
+		my $matches = 0;
+		foreach my $trigger_channel (split(/ /,$param)) {
+			if (lc($channelname) eq lc($trigger_channel)
+				|| lc($server->{'tag'}.'/'.$channelname) eq lc($trigger_channel)
+				|| lc($server->{'tag'}.'/') eq lc($trigger_channel)) {
+				$matches = 1;
+				last; # this channel matches, stop checking channels
+			}
+		}
+		return $matches;
+	}
+},
+'masks' => {
+	'types' => \@all_types,
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return  (defined($nickname) && defined($address) && defined($server) && $server->masks_match($param, $nickname, $address));
+	}
+},
+'other_masks' => {
+	'types' => ['kicks', 'mode_nick'],
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return 0 unless defined($extra->{'other'});
+		my $other_address = get_address($extra->{'other'}, $server, $channelname);
+		return defined($other_address) && $server->masks_match($param, $extra->{'other'}, $other_address);
+	}
+},
+'hasmode' => {
+	'types' => \@all_types,
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return hasmode($param, $nickname, $server, $channelname);
+	}
+},
+'other_hasmode' => {
+	'types' => ['kicks', 'mode_nick'],
+	'sub' => sub {
+		my ($param,$signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return defined($extra->{'other'}) && hasmode($param, $extra->{'other'}, $server, $channelname);
+	}
+},
+'hasflag' => {
+	'types' => \@all_types,
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return 0 unless defined($nickname) && defined($address) && defined($server);
+		my $flags = get_flags ($server->{'chatnet'},$channelname,$nickname,$address);
+		return defined($flags) && check_modes($flags,$param);
+	}
+},
+'other_hasflag' => {
+	'types' => ['kicks', 'mode_nick'],
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return 0 unless defined($extra->{'other'});
+		my $other_address = get_address($extra->{'other'}, $server, $channelname);
+		return 0 unless defined($other_address);
+		my $flags = get_flags ($server->{'chatnet'},$channelname,$extra->{'other'},$other_address);
+		return defined($flags) && check_modes($flags,$param);
+	}
+},
+'mode_type' => {
+	'types' => ['mode_channel', 'mode_nick'],
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return (($param) eq $extra->{'mode_type'});
+	}
+},
+'mode_char' => {
+	'types' => ['mode_channel', 'mode_nick'],
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return (($param) eq $extra->{'mode_char'});
+	}
+},
+'mode_arg' => {
+	'types' => ['mode_channel', 'mode_nick'],
+	'sub' => sub {
+		my ($param, $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra) = @_;
+		return (($param) eq $extra->{'mode_arg'});
+	}
+}
+);
+
+sub get_address {
+	my ($nick, $server, $channel) = @_;
+	my $nickrec = get_nickrec($nick, $server, $channel);
+	return $nickrec ? $nickrec->{'host'} : undef;
+}
+sub get_nickrec {
+	my ($nick, $server, $channel) = @_;
+	return unless defined($server) && defined($channel) && defined($nick);
+	my $chanrec = $server->channel_find($channel);
+	return $chanrec ? $chanrec->nick_find($nick) : undef;
+}
+
+sub hasmode {
+	my ($param, $nickname, $server, $channelname) = @_;
+	my $nickrec = get_nickrec($nickname, $server, $channelname);
+	return 0 unless defined $nickrec;
+	my $modes =
+		($nickrec->{'op'} ? 'o' : '')
+		. ($nickrec->{'voice'} ? 'v' : '')
+		. ($nickrec->{'halfop'} ? 'h' : '')
+	;
+	return check_modes($modes, $param);
+}
+
+# list of all switches
+my @trigger_switches = (@trigger_types, qw(all nocase stop once debug disabled));
+# parameters (with an argument)
+my @trigger_params = qw(pattern regexp command replace name);
+# list of all options (including switches) for /TRIGGER ADD
+my @trigger_add_options = (@trigger_switches, @trigger_params, keys(%filters));
+# same for /TRIGGER CHANGE, this includes the -no<option>'s
+my @trigger_options = map(($_,'no'.$_) ,@trigger_add_options);
+
+# check the triggers on $signal's $parammessage parameter, for triggers with $condition set
+#  on $server in $channelname, for $nickname!$address
+# set $parammessage to -1 if the signal doesn't have a message
+# for signal without channel, nick or address, set to undef
+sub check_signal_message {
+	my ($signal, $parammessage, $server, $channelname, $nickname, $address, $condition, $extra) = @_;
+	my ($changed, $stopped, $context, $need_rebuild);
+	my $message = ($parammessage == -1) ? '' : $signal->[$parammessage];
+
+	return if (!$triggers_by_type{$condition});
+	
+	if ($recursion_depth > 10) {
+		Irssi::print("Trigger error: Maximum recursion depth reached, aborting trigger.", MSGLEVEL_CLIENTERROR);
+		return;
+	}
+	$recursion_depth++;
+
+TRIGGER:	
+	foreach my $trigger (@{$triggers_by_type{$condition}}) {
+		# check filters
+		foreach my $trigfilter (@{$trigger->{'filters'}}) {
+			if (! ($trigfilter->[2]($trigfilter->[1], $signal,$parammessage,$server,$channelname,$nickname,$address,$condition,$extra))) {
+			
+				next TRIGGER;
+			}
+		}
+		
+		# check regexp (and keep matches in @- and @+, so don't make a this a {block})
+		next if ($trigger->{'compregexp'} && ($parammessage == -1 || $message !~ m/$trigger->{'compregexp'}/));
+		
+		# if we got this far, it fully matched, and we need to do the replace/command/stop/once
+		my $expands = $extra;
+		$expands->{'M'} = $message,;
+		$expands->{'T'} = (defined($server)) ? $server->{'tag'} : '';
+		$expands->{'C'} = $channelname;
+		$expands->{'N'} = $nickname;
+		$expands->{'A'} = $address;
+		$expands->{'I'} = ((!defined($address)) ? '' : substr($address,0,index($address,'@')));
+		$expands->{'H'} = ((!defined($address)) ? '' : substr($address,index($address,'@')+1));
+		$expands->{'$'} = '$';
+		$expands->{';'} = ';';
+
+		if (defined($trigger->{'replace'})) { # it's a -replace
+			$message =~ s/$trigger->{'compregexp'}/do_expands($trigger->{'compreplace'},$expands,$message)/ge;
+			$changed = 1;
+		}
+		
+		if ($trigger->{'command'}) { # it's a (nonempty) -command
+			my $command = $trigger->{'command'};
+			# $1 = the stuff behind the $ we want to expand: a number, or a character from %expands
+			$command = do_expands($command, $expands, $message);
+			
+			if (defined($server)) {
+				if (defined($channelname) && $server->channel_find($channelname)) {
+					$context = $server->channel_find($channelname);
+				} else {
+					$context = $server;
+				}
+			} else {
+				$context = undef;
+			}
+			
+			if (defined($context)) {
+				$context->command("eval $command");
+			} else {
+				Irssi::command("eval $command");
+			}
+		}
+
+		if ($trigger->{'debug'}) {
+			print("DEBUG: trigger $condition pmesg=$parammessage message=$message server=$server->{tag} channel=$channelname nick=$nickname address=$address " . join(' ',map {$_ . '=' . $extra->{$_}} keys(%$extra)));
+		}
+		
+		if ($trigger->{'stop'}) {
+			$stopped = 1;
+		}
+		
+		if ($trigger->{'once'}) {
+			# find this trigger in the real trigger list, and remove it
+			for (my $realindex=0; $realindex < scalar(@triggers); $realindex++) {
+				if ($triggers[$realindex] == $trigger) {
+					splice (@triggers,$realindex,1);
+					last;
+				}
+			}
+			$need_rebuild = 1;
+		}
+	}
+
+	if ($need_rebuild) {
+		rebuild();
+		$changed_since_last_save = 1;
+	}
+	if ($stopped) { # stopped with -stop
+		signal_stop();
+	} elsif ($changed) { # changed with -replace
+		$signal->[$parammessage] = $message;
+		signal_continue(@$signal);
+	}
+	$recursion_depth--;
+}
+
+# used in check_signal_message to expand $'s
+# $inthis is a string that can contain $ stuff (like 'foo$1bar$N')
+sub do_expands {
+	my ($inthis, $expands, $from) = @_;
+	# @+ and @- are copied because there are two s/// nested, and the inner needs the $1 and $2,... of the outer one
+	my @plus = @+;
+	my @min = @-;
+	my $p = \@plus; my $m = \@min;
+	$inthis =~ s/\$(\\*(\d+|[^0-9x{]|x[0-9a-fA-F][0-9a-fA-F]|{.*?}))/expand_and_escape($1,$expands,$m,$p,$from)/ge;	
+	return $inthis;
+}
+
+# \ $ and ; need extra escaping because we use eval
+sub expand_and_escape {
+	my $retval = expand(@_);
+	$retval =~ s/([\\\$;])/\\\1/g;
+	return $retval;
+}
+
+# used in do_expands (via expand_and_escape), to_expand is the part after the $
+sub expand {
+	my ($to_expand, $expands, $min, $plus, $from) = @_;
+	if ($to_expand =~ /^\d+$/) { # a number => look up in $vars
+		# from man perlvar:
+		# $3 is the same as "substr $var, $-[3], $+[3] - $-[3])"
+		return ($to_expand > @{$min} ? '' : substr($from,$min->[$to_expand],$plus->[$to_expand]-$min->[$to_expand]));
+	} elsif ($to_expand =~ s/^\\//) { # begins with \, so strip that from to_expand
+		my $exp = expand($to_expand,$expands,$min,$plus,$from); # first expand without \
+		$exp =~ s/([^a-zA-Z0-9])/\\\1/g; # escape non-word chars
+		return $exp;
+	} elsif ($to_expand =~ /^x([0-9a-fA-F]{2})/) { # $xAA
+		return chr(hex($1));
+	} elsif ($to_expand =~ /^{(.*?)}$/) { # ${foo}
+		return expand($1, $expands, $min, $plus, $from);
+	} else { # look up in $expands
+		return $expands->{$to_expand};
+	}
+}
+
+sub check_modes {
+	my ($has_modes, $need_modes) = @_;
+	my $matches;
+	my $switch = 1; # if a '-' if found, will be 0 (meaning the modes should not be set)
+	foreach my $need_mode (split /&/, $need_modes) {
+		$matches = 0;
+		foreach my $char (split //, $need_mode) {
+			if ($char eq '-') {
+				$switch = 0;
+			} elsif ($char eq '+') {
+				$switch = 1;
+			} elsif ((index($has_modes, $char) != -1) == $switch) {
+				$matches = 1;
+				last;
+			}
+		}
+		if (!$matches) {
+			return 0;
+		}
+	}
+	return 1;
+}
+
+# get someones flags from people.pl or friends(_shasta).pl
+sub get_flags {
+	my ($chatnet, $channel, $nick, $address) = @_;
+	my $flags;
+	no strict 'refs';
+	if (defined %{ 'Irssi::Script::people::' }) {
+		if (defined ($channel)) {
+			$flags = (&{ 'Irssi::Script::people::find_local_flags' }($chatnet,$channel,$nick,$address));
+		} else {
+			$flags = (&{ 'Irssi::Script::people::find_global_flags' }($chatnet,$nick,$address));
+		}
+		$flags = join('',keys(%{$flags}));
+	} else {
+		my $shasta;
+		if (defined %{ 'Irssi::Script::friends_shasta::' }) {
+			$shasta = 'friends_shasta';
+		} elsif (defined &{ 'Irssi::Script::friends::get_idx' }) {
+			$shasta = 'friends';
+		} else {
+			return undef;
+		}
+		my $idx = (&{ 'Irssi::Script::'.$shasta.'::get_idx' }($nick, $address));
+		if ($idx == -1) {
+			return '';
+		}
+		$flags = (&{ 'Irssi::Script::'.$shasta.'::get_friends_flags' }($idx,undef));
+		if ($channel) {
+			$flags .= (&{ 'Irssi::Script::'.$shasta.'::get_friends_flags' }($idx,$channel));
+		}
+	}
+	return $flags;
+}
+
+########################################################
+### internal stuff called by manage, needed by above ###
+########################################################
+
+my %mask_to_regexp = ();
+foreach my $i (0..255) {
+    my $ch = chr $i;
+    $mask_to_regexp{$ch} = "\Q$ch\E";
+}
+$mask_to_regexp{'?'} = '(.)';
+$mask_to_regexp{'*'} = '(.*)';
+
+sub compile_trigger {
+	my ($trigger) = @_;
+	my $regexp;
+	
+	if ($trigger->{'regexp'}) {
+		$regexp = $trigger->{'regexp'};
+	} elsif ($trigger->{'pattern'}) {
+		$regexp = $trigger->{'pattern'};
+		$regexp =~ s/(.)/$mask_to_regexp{$1}/g;
+	} else {
+		delete $trigger->{'compregexp'};
+		return;
+	}
+	
+	if ($trigger->{'nocase'}) {
+		$regexp = '(?i)' . $regexp;
+	}
+	
+	$trigger->{'compregexp'} = qr/$regexp/;
+	
+	if(defined($trigger->{'replace'})) {
+		(my $replace = $trigger->{'replace'}) =~ s/\$/\$\$/g;
+		$trigger->{'compreplace'} = Irssi::parse_special($replace);
+	}
+}
+
+# rebuilds triggers_by_type and updates signal binds
+sub rebuild {
+	%triggers_by_type = ();
+	foreach my $trigger (@triggers) {
+		if (!$trigger->{'disabled'}) {
+			if ($trigger->{'all'}) {
+				# -all is an alias for all types in @all_types for which the filters can apply
+ALLTYPES:
+				foreach my $type (@all_types) {
+					# check if all filters can apply to $type
+					foreach my $filter (@{$trigger->{'filters'}}) {
+						if (! grep {$_ eq $type} $filters{$filter->[0]}->{'types'}) {
+							next ALLTYPES;
+						}
+					}
+					push @{$triggers_by_type{$type}}, ($trigger);
+				}
+			}
+			
+			foreach my $type ($trigger->{'all'} ? @notall_types : @trigger_types) {
+				if ($trigger->{$type}) {
+					push @{$triggers_by_type{$type}}, ($trigger);
+				}
+			}
+		}
+	}
+	
+	foreach my $signal (@signals) {
+		my $should_bind = 0;
+		foreach my $type (@{$signal->{'types'}}) {
+			if (defined($triggers_by_type{$type})) {
+				$should_bind = 1;
+			}
+		}
+		if ($should_bind && !$signal->{'bind'}) {
+			signal_add_first($signal->{'signal'}, $signal->{'sub'});
+			$signal->{'bind'} = 1;
+		} elsif (!$should_bind && $signal->{'bind'}) {
+			signal_remove($signal->{'signal'}, $signal->{'sub'});
+			$signal->{'bind'} = 0;
+		}
+	}
+}
+
+################################
+### manage the triggers-list ###
+################################
+
+my $trigger_file; # cached setting
+
+sub sig_setup_changed {
+	$trigger_file = Irssi::settings_get_str('trigger_file');
+}
+
+sub autosave {
+	cmd_save() if ($changed_since_last_save);
+}
+
+# TRIGGER SAVE
+sub cmd_save {
+	my $io = new IO::File $trigger_file, "w";
+	if (defined $io) {
+		$io->print("#Triggers file version $VERSION\n");
+		foreach my $trigger (@triggers) {
+			$io->print(to_string($trigger) . "\n");
+		}
+		$io->close;
+	}
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'trigger_saved', $trigger_file);
+	$changed_since_last_save = 0;
+}
+
+# save on unload
+sub UNLOAD {
+	cmd_save();
+}
+
+# TRIGGER LOAD
+sub cmd_load {
+	sig_setup_changed(); # make sure we've read the trigger_file setting
+	my $converted = 0;
+	my $io = new IO::File $trigger_file, "r";
+	if (not defined $io) {
+		if (-e $trigger_file) {
+			Irssi::print("Error opening triggers file", MSGLEVEL_CLIENTERROR);
+		}
+		return;
+	}
+	if (defined $io) {
+		@triggers = ();
+		my $text;
+		$text = $io->getline;
+		my $file_version = '';
+		if ($text =~ /^#Triggers file version (.*)\n/) {
+			$file_version = $1;
+		}
+		if ($file_version lt '0.6.1+2') {
+			no strict 'vars';
+			$text .= $_ foreach ($io->getlines);
+			my $rep = eval "$text";
+			if (! ref $rep) {
+				Irssi::print("Error in triggers file");
+				return;
+			}
+			my @old_triggers = @$rep;
+		
+			for (my $index=0;$index < scalar(@old_triggers);$index++) { 
+				my $trigger = $old_triggers[$index];
+	
+				if ($file_version lt '0.6.1') {
+					# convert old names: notices => pubnotices, actions => pubactions
+					foreach $oldname ('notices','actions') {
+						if ($trigger->{$oldname}) {
+							delete $trigger->{$oldname};
+							$trigger->{'pub'.$oldname} = 1;
+							$converted = 1;
+						}
+					}
+				}
+				if ($file_version lt '0.6.1+1' && $trigger->{'modifiers'}) {
+					if ($trigger->{'modifiers'} =~ /i/) {
+						$trigger->{'nocase'} = 1;
+						Irssi::print("Trigger: trigger ".($index+1)." had 'i' in it's modifiers, it has been converted to -nocase");
+					}
+					if ($trigger->{'modifiers'} !~ /^[ig]*$/) {
+						Irssi::print("Trigger: trigger ".($index+1)." had unrecognised modifier '". $trigger->{'modifiers'} ."', which couldn't be converted.");
+					}
+					delete $trigger->{'modifiers'};
+					$converted = 1;
+				}
+				
+				if (defined($trigger->{'replace'}) && ! $trigger->{'regexp'}) {
+					Irssi::print("Trigger: trigger ".($index+1)." had -replace but no -regexp, removed it");
+					splice (@old_triggers,$index,1);
+					$index--; # nr of next trigger now is the same as this one was
+				}
+				
+				# convert to text with compat, and then to new trigger hash
+				$text = to_string($trigger,1);
+				my @args = &shellwords($text . ' a');
+				my $trigger = parse_options({},@args);
+				if ($trigger) {
+					push @triggers, $trigger;
+				}
+			}
+		} else { # new format
+			while ( $text = $io->getline ) {
+				chop($text);
+				my @args = &shellwords($text . ' a');
+				my $trigger = parse_options({},@args);
+				if ($trigger) {
+					push @triggers, $trigger;
+				}
+			}
+		}
+	}
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'trigger_loaded', $trigger_file);
+	if ($converted) {
+		Irssi::print("Trigger: Triggers file will be in new format next time it's saved.");
+	}
+	rebuild();
+}
+
+# escape for printing with to_string
+# <<abcdef>>      => << 'abcdef' >>
+# <<abc'def>>     => << "abc'def" >>
+# <<abc'def\x02>> => << 'abc'\''def\x02' >>
+sub param_to_string {
+	my ($text) = @_;
+	# avoid ugly escaping if we can use "-quotes without other escaping (no " or \)
+	if ($text =~ /^[^"\\]*'[^"\\]$/) {
+		return ' "' . $text . '" ';
+	}
+	# "'" signs without a (odd number of) \ in front of them, need be to escaped as '\''
+	# this is ugly :(
+	$text =~ s/(^|[^\\](\\\\)*)'/$1'\\''/g;
+	return " '$text' ";
+}
+
+# converts a trigger back to "-switch -options 'foo'" form
+# if $compat, $trigger is in the old format (used to convert)
+sub to_string {
+	my ($trigger, $compat) = @_;
+	my $string;
+	
+	foreach my $switch (@trigger_switches) {
+		if ($trigger->{$switch}) {
+			$string .= '-'.$switch.' ';
+		}
+	}
+	
+	if ($compat) {
+		foreach my $filter (keys(%filters)) {
+			if ($trigger->{$filter}) {
+				$string .= '-' . $filter . param_to_string($trigger->{$filter});
+			}
+		}
+	} else {
+		foreach my $trigfilter (@{$trigger->{'filters'}}) {
+			$string .= '-' . $trigfilter->[0] . param_to_string($trigfilter->[1]);
+		}
+	}
+
+	foreach my $param (@trigger_params) {
+		if ($trigger->{$param} || ($param eq 'replace' && defined($trigger->{'replace'}))) {
+			$string .= '-' . $param . param_to_string($trigger->{$param});
+		}
+	}
+	return $string;
+}
+
+# find a trigger (for REPLACE and DELETE), returns index of trigger, or -1 if not found
+sub find_trigger {
+	my ($data) = @_;
+	if ($data =~ /^[0-9]*$/ and defined($triggers[$data-1])) {
+		return $data-1;
+	} else {
+		for (my $i=0; $i < scalar(@triggers); $i++) {
+			if ($triggers[$i]->{'name'} eq $data) {
+				return $i;
+			}
+		}
+	}
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trigger_not_found', $data);
+	return -1; # not found
+}
+
+
+# TRIGGER ADD <options>
+sub cmd_add {
+	my ($data, $server, $item) = @_;
+	my @args = shellwords($data . ' a');
+	
+	my $trigger = parse_options({}, @args);
+	if ($trigger) {
+		push @triggers, $trigger;
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trigger_added', scalar(@triggers), to_string($trigger));
+		rebuild();
+		$changed_since_last_save = 1;
+	}
+}
+
+# TRIGGER CHANGE <nr> <options>
+sub cmd_change {
+	my ($data, $server, $item) = @_;
+	my @args = shellwords($data . ' a');
+	my $index = find_trigger(shift @args);
+	if ($index != -1) {
+		if(parse_options($triggers[$index], @args)) {
+			Irssi::print("Trigger " . ($index+1) ." changed to: ". to_string($triggers[$index]));
+		}
+		rebuild();
+		$changed_since_last_save = 1;
+	}
+}
+
+# parses options for TRIGGER ADD and TRIGGER CHANGE
+# if invalid args returns undef, else changes $thetrigger and returns it
+sub parse_options {
+	my ($thetrigger,@args) = @_;
+	my ($trigger, $option);
+	
+	if (pop(@args) ne 'a') {
+		Irssi::print("Syntax error, probably missing a closing quote", MSGLEVEL_CLIENTERROR);
+		return undef;
+	}
+	
+	%$trigger = %$thetrigger; # make a copy to prevent changing the given trigger if args doesn't parse
+ARGS:	for (my $arg = shift @args; $arg; $arg = shift @args) {
+		# expand abbreviated options, put in $option
+		$arg =~ s/^-//;
+		$option = undef;
+		foreach my $ioption (@trigger_options) {
+			if (index($ioption, $arg) == 0) { # -$opt starts with $arg
+				if ($option) { # another already matched
+					Irssi::print("Ambiguous option: $arg", MSGLEVEL_CLIENTERROR);
+					return undef;
+				}
+				$option = $ioption;
+				last if ($arg eq $ioption); # exact match is unambiguous
+			}
+		}
+		if (!$option) {
+			Irssi::print("Unknown option: $arg", MSGLEVEL_CLIENTERROR);
+			return undef;
+		}
+
+		# -<param> <value> or -no<param>
+		foreach my $param (@trigger_params) {
+			if ($option eq $param) {
+				$trigger->{$param} = shift @args;
+				next ARGS;
+			}
+			if ($option eq 'no'.$param) {
+				$trigger->{$param} = undef;
+				next ARGS;
+			}
+		}
+
+		# -[no]<switch>
+		foreach my $switch (@trigger_switches) {
+			# -<switch>
+			if ($option eq $switch) {
+				$trigger->{$switch} = 1;
+				next ARGS;
+			}
+			# -no<switch>
+			elsif ($option eq 'no'.$switch) {
+				$trigger->{$switch} = undef;
+				next ARGS;
+			}
+		}
+		
+		# -<filter> <value>
+		if ($filters{$option}) {
+			push @{$trigger->{'filters'}}, [$option, shift @args, $filters{$option}->{'sub'}];
+			next ARGS;
+		}
+		
+		# -<nofilter>
+		if ($option =~ /^no(.*)$/ && $filters{$1}) {
+			my $filter = $1;
+			# the new filters are the old grepped for everything except ones with name $filter
+			@{$trigger->{'filters'}} = grep( $_->[0] ne $filter, @{$trigger->{'filters'}} );
+		}
+	}
+	
+	if (defined($trigger->{'replace'}) && ! $trigger->{'regexp'} && !$trigger->{'pattern'}) {
+		Irssi::print("Trigger error: Can't have -replace without -regexp", MSGLEVEL_CLIENTERROR);
+		return undef;
+	}
+
+	if ($trigger->{'pattern'} && $trigger->{'regexp'}) {
+		Irssi::print("Trigger error: Can't have -pattern and -regexp in same trigger", MSGLEVEL_CLIENTERROR);
+		return undef;
+	}
+	
+	# remove types that are implied by -all
+	if ($trigger->{'all'}) {
+		foreach my $type (@all_types) {
+			delete $trigger->{$type};
+		}
+	}
+	
+	# remove types for which the filters don't apply
+	foreach my $type (@trigger_types) {
+		if ($trigger->{$type}) {
+			foreach my $filter (@{$trigger->{'filters'}}) {
+				if (!grep {$_ eq $type} @{$filters{$filter->[0]}->{'types'}}) {
+					Irssi::print("Warning: the filter -" . $filter->[0] . " can't apply to an event of type -$type, so I'm removing that type from this trigger.");
+					delete $trigger->{$type};
+				}
+			}
+		}
+	}
+
+	# check if it has at least one type
+	my $has_a_type;
+	foreach my $type (@trigger_types) {
+		if ($trigger->{$type}) {
+			$has_a_type = 1;
+			last;
+		}
+	}
+	if (!$has_a_type && !$trigger->{'all'}) {
+		Irssi::print("Warning: this trigger doesn't trigger on any type of message. you probably want to add -publics or -all");
+	}
+	
+	compile_trigger($trigger);
+	%$thetrigger = %$trigger; # copy changes to real trigger
+	return $thetrigger;
+}
+
+# TRIGGER DELETE <num>
+sub cmd_del {
+	my ($data, $server, $item) = @_;
+	my @args = shellwords($data);
+	my $index = find_trigger(shift @args);
+	if ($index != -1) {
+		Irssi::print("Deleted ". ($index+1) .": ". to_string($triggers[$index]));
+		splice (@triggers,$index,1);
+		rebuild();
+		$changed_since_last_save = 1;
+	}
+}
+
+# TRIGGER MOVE <num> <num>
+sub cmd_move {
+	my ($data, $server, $item) = @_;
+	my @args = &shellwords($data);
+	my $index = find_trigger(shift @args);
+	if ($index != -1) {
+		my $newindex = shift @args;
+		if ($newindex < 1 || $newindex > scalar(@triggers)) {
+			Irssi::print("$newindex is not a valid trigger number");
+			return;
+		}
+		Irssi::print("Moved from ". ($index+1) ." to $newindex: ". to_string($triggers[$index]));
+		$newindex -= 1; # array starts counting from 0
+		my $trigger = splice (@triggers,$index,1); # remove from old place
+		splice (@triggers,$newindex,0,($trigger)); # insert at new place
+		rebuild();
+		$changed_since_last_save = 1;
+	}
+}
+
+# TRIGGER LIST
+sub cmd_list {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trigger_header');
+	my $i=1;
+	foreach my $trigger (@triggers) {
+		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trigger_line', $i++, to_string($trigger));
+	}
+}
+
+######################
+### initialisation ###
+######################
+
+command_bind('trigger help',\&cmd_help);
+command_bind('help trigger',\&cmd_help);
+command_bind('trigger add',\&cmd_add);
+command_bind('trigger change',\&cmd_change);
+command_bind('trigger move',\&cmd_move);
+command_bind('trigger list',\&cmd_list);
+command_bind('trigger delete',\&cmd_del);
+command_bind('trigger save',\&cmd_save);
+command_bind('trigger reload',\&cmd_load);
+command_bind 'trigger' => sub {
+    my ( $data, $server, $item ) = @_;
+    $data =~ s/\s+$//g;
+    command_runsub('trigger', $data, $server, $item);
+};
+
+Irssi::signal_add('setup saved', \&autosave);
+Irssi::signal_add('setup changed', \&sig_setup_changed);
+
+# This makes tab completion work
+Irssi::command_set_options('trigger add',join(' ',@trigger_add_options));
+Irssi::command_set_options('trigger change',join(' ',@trigger_options));
+
+Irssi::settings_add_str($IRSSI{'name'}, 'trigger_file', Irssi::get_irssi_dir()."/triggers");
+
+cmd_load();
diff --git a/scripts/trustweb.pl b/scripts/trustweb.pl
new file mode 100644
index 0000000..0fb60ba
--- /dev/null
+++ b/scripts/trustweb.pl
@@ -0,0 +1,374 @@
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "2003020801";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "TrustWeb",
+    description => "Illustrates the trust between ops",
+    license     => "GPLv2",
+    modules     => "Data::Dumper IO::File POSIX",
+    changed     => "$VERSION",
+    commands	=> "trustweb"
+);
+
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use Data::Dumper;
+use IO::File;
+use POSIX;
+use vars qw(%database);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }                                                                               $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help = $IRSSI{name}." ".$VERSION."
+/trustweb help
+    Display this help
+/trustweb save/load
+    Load or save the database
+/trustweb show <nick>
+    Display the trust for <nick>
+/trustweb scan
+    Scan all buffers for modechanges
+/trustweb trace <nick1> <nick2>
+    Search the shortest connection between two nicks
+/trustweb merge <nick1> <nick2>
+    Move all trustdata from nick1 to nick2
+";
+    my $text = "";
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box($IRSSI{name}, $text, "Help", 1);
+}
+
+
+sub save_db {
+    my $filename = Irssi::settings_get_str('trustweb_db_file');
+    my $io = new IO::File $filename, "w";
+    if (defined $io) {
+	my $dumper = Data::Dumper->new([\%database]);
+	$dumper->Purity(1)->Deepcopy(1);
+	$io->print($dumper->Dump);
+	$io->close;
+    }
+    print CLIENTCRAP "%B>>%n Trustweb database saved to ".$filename;
+}
+
+sub load_db {
+    my $filename = Irssi::settings_get_str('trustweb_db_file');
+    my $io = new IO::File $filename, "r";
+    if (defined $io) {
+	no strict 'vars';
+	my $text;
+	$text .= $_ foreach ($io->getlines);
+	my $database = eval "$text";
+	%database = %$database if ref $database;
+    }
+    print CLIENTCRAP "%B>>%n Trustweb database loaded from ".$filename;
+}
+
+sub scan_buffers {
+    foreach my $channel (Irssi::channels()) {
+    	my $win = $channel->window();
+	my $name = $channel->{name};
+	my $server = $channel->{server};
+	my $view = $win->view();
+	my $line = $view->get_lines();
+	my $lines  = 0;
+	while (defined $line) {
+	    my $text = $line->get_text(0);
+	    if ($line->{info}{level} == 2048) {
+		if ($text =~ /\[([\+\-].*?)\] by (.*)/) {
+		    sig_message_irc_mode($server, $name, $2, undef, $1);
+		}
+	    }
+	    $line = $line->next;
+	    $lines++;
+	}
+    }
+}
+
+sub sig_message_irc_mode ($$$$$) {
+    my ($server, $channel, $nick, $addr, $mode) = @_;
+    return if ($nick =~ /\./);
+    my $state;
+    my @pipe;
+    my %result;
+    my $tag = lc $server->{tag};
+    my ($modes, $nicks) = split(/ /, $mode, 2);
+    foreach (split(//, $modes)) {
+	if ($_ eq '+' || $_ eq '-') {
+	    $state = $_;
+	} else {
+	    push @pipe, $state.$_;
+	}
+    }
+
+    foreach (split(/ /, $nicks)) {
+	my $change = shift(@pipe);
+	if ($change eq '+o') {
+	    foreach my $active (split /, ?/, $nick) {
+		$database{$tag}{lc $active}{lc $_} = 1;
+	    }
+	} elsif ($change eq '-o') {
+	    foreach my $active (split /, ?/, $nick) {
+		$database{$tag}{lc $active}{lc $_} = -1;
+	    }
+	}
+    }
+}
+
+sub sig_nicklist_changed ($$$) {
+    my ($channel, $nick, $old) = @_;
+    my $server = $channel->{server};
+    my $new = lc $nick->{nick};
+    my $tag = lc $server->{tag};
+    merge_nicks($tag, $old, $new);
+}
+
+sub merge_nicks ($$$) {
+    my ($tag, $old, $new) = @_;
+    $tag = lc $tag;
+    $new = lc $new;
+    $old = lc $old;
+    return if $old eq $new;
+    if (defined $database{$tag}{$old}) {
+	foreach (keys %{ $database{$tag}{$old} }) {
+	    $database{$tag}{$new}{$_} = $database{$tag}{$old}{$_};
+	}
+	delete $database{$tag}{$old}
+    }
+    foreach (keys %{ $database{$tag} }) {
+	if (defined $database{$tag}{$_}{$old}) {
+	    $database{$tag}{$_}{$new} = $database{$tag}{$_}{$old};
+	    delete $database{$tag}{$_}{$old};
+	}
+    }
+}
+
+sub show_trust ($$) {
+    my ($nicks, $tag) = @_;
+    my $text;
+    foreach (@$nicks) {
+	$text .= draw_trust($_, $tag);
+    }
+    print CLIENTCRAP &draw_box('TrustWeb', $text, $tag, 1);
+}
+
+sub draw_trust ($$) {
+    my ($nick, $tag) = @_;
+    my (@opfrom,  @opto);
+    my $text;
+    #return unless $database{$nick};
+    my ($maxfrom, $maxto)  = (0, 0);
+    my $distrust = Irssi::settings_get_bool('trustweb_show_distrust');
+    foreach (sort keys %{ $database{$tag} }) {
+	next unless defined $database{$tag}{$_}{lc $nick};
+	push @opfrom, [$_,1] if $database{$tag}{$_}{lc $nick} > 0;
+	push @opfrom, [$_,-1] if ($database{$tag}{$_}{lc $nick} < 0 && $distrust);
+	$maxfrom = length($_) if length($_) > $maxfrom;
+    }
+    if (defined $database{$tag}{lc $nick}) {
+	foreach (sort keys %{$database{$tag}{lc $nick}}) {
+	    push @opto, [$_,1] if $database{$tag}{lc $nick}{$_} > 0;
+	    push @opto, [$_,-1] if ($database{$tag}{lc $nick}{$_} < 0 && $distrust);
+	    $maxto = length($_) if length($_) > $maxto;
+	}
+    }
+    my $items = @opfrom > @opto ? @opfrom-1 : @opto-1;
+    my $i = 0;
+    my $center = sprintf("%.0f", $items/2);
+    $center = @opfrom-1 if (@opfrom && not(defined $opfrom[$center]));
+    $center = @opto-1 if (@opto && not(defined $opto[$center]));
+    foreach (0..$items) {
+	my $line;
+	if (defined $opfrom[$_]) {
+	    $line .= '<'.$opfrom[$_][0];
+	    $line .= ' ' x ($maxfrom - length($opfrom[$_][0]));
+	    $line .= '>';
+            $line .= '-' if $opfrom[$_][1] > 0;
+            $line .= '%' if $opfrom[$_][1] < 0;
+	    $line .= "," if $_ < $center;
+	    $line .= "+" if $_ == $center;
+	    $line .= "'" if $_ > $center;
+	} else {
+	    $line .= ' ' x ($maxfrom+4) if $maxfrom;
+	}
+	if ($_ == $center) {
+	    $line .= '-' if @opfrom;
+	    $line .= '(%9'.$nick.'%9)';
+	    $line .= '-' if @opto;
+	} else {
+	    $line .= ' ' if @opfrom;
+	    $line .= ' ' x (length($nick)+2);
+	    $line .= ' ' if @opto;
+	}
+	if (defined $opto[$_]) {
+            $line .= "," if $_ < $center;
+            $line .= "+" if $_ == $center;
+            $line .= "'" if $_ > $center;
+	    $line .= '-' if $opto[$_][1] > 0;
+	    $line .= '%' if $opto[$_][1] < 0;
+	    $line .= '<'.$opto[$_][0];
+	    $line .= ' ' x ($maxto - length($opto[$_][0]));
+	    $line .= '>';
+	} else {
+	    $line .= ' ' x ($maxto+4) if $maxto;
+	}
+	$text .= $line."\n";
+	$i++;
+    }
+    return $text;
+}
+
+sub bg_trace ($$$) {
+    my ($tag, $from, $to) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    my $pid = fork();
+    if ($pid > 0) {
+	close $wh;
+	Irssi::pidwait_add($pid);
+        my $pipetag;
+        my @args = ($tag, $from, $to, $rh, \$pipetag);
+        $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	my $result = walk($from, $to, $database{$tag}, {}, [], [], 0);
+	my $dumper = Data::Dumper->new([$result]);
+	$dumper->Purity(1)->Deepcopy(1);
+	print($wh $dumper->Dump());
+	close $wh;
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($) {
+    my ($tag, $from, $to, $rh, $pipetag) = @{$_[0]};
+    my $text;
+    $text .= $_ foreach (<$rh>);
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    no strict 'vars';
+    my $result = eval "$text";
+    draw_trace($tag, $from, $to, $result);
+}
+
+sub walk ($$$$$$) {
+    my ($pos, $goal, $data, $visited, $street, $ideal) = @_;
+    my @road = @$street;
+    
+    return $ideal if $visited->{$pos};
+    return $ideal if (@$ideal && not(Irssi::settings_get_bool('trustweb_trace_find_shortest_path')));
+    return \@road if ($pos eq $goal);
+    return $ideal if (@$ideal && @$street >= @$ideal);
+    return $ideal if (Irssi::settings_get_int('trustweb_trace_max_depth') && @road > Irssi::settings_get_int('trustweb_trace_max_depth'));
+    
+    $visited->{$pos} = 1;
+    my $nodistrust = not Irssi::settings_get_bool('trustweb_trace_distrust');
+    foreach (keys %{ $data->{$pos} }) {
+	next if ($data->{$pos}{$_} < 1 && $nodistrust);
+	push @road, [ $_, 1, $data->{$pos}{$_} ];
+	$ideal = walk($_, $goal, $data, $visited, \@road, $ideal);
+	pop @road;
+    }
+    foreach (keys %$data) {
+	next unless defined $data->{$_}{$pos};
+	next if ($data->{$_}{$_} < 1 && $nodistrust);
+	push @road, [ $_, 0, $data->{$_}{$pos} ];
+	$ideal = walk($_, $goal, $data, $visited, \@road, $ideal);
+	pop @road;
+    }
+    $visited->{$pos} = 0;
+    return $ideal;
+}
+
+
+sub draw_trace ($$$$) {
+    my ($tag, $from, $to, $route) = @_;
+    my $line = "%B<<%n ";
+    if (ref $route && @$route) {
+	$line .= $from;
+	foreach (@$route) {
+	    if ($_->[1]) { 
+		$line .= ' ';
+		$line .= $_->[2] > 0 ? '=' : '%%';
+		$line .= '> ';
+	    } else {
+		$line .= ' <';
+		$line .= $_->[2] > 0 ? '=' : '%';
+		$line .= ' ';
+	    }
+	    $line .= $_->[0];
+	}
+    } else {
+	$line .= "No connection between ".$from." and ".$to." could be found.";
+    }
+    print $line;
+}
+
+sub pre_unload {
+    save_db();
+}
+
+sub cmd_trustweb ($$$) {
+    my ($args, $server, $witem) = @_;
+    my $tag = ref $server ? lc $server->{tag} : lc Irssi::settings_get_str('trustweb_default_ircnet');
+    my @arg = split(/ +/, $args);
+    if (not(@arg) || $arg[0] eq 'help') {
+	show_help();
+    } elsif ($arg[0] eq 'scan') {
+	scan_buffers();
+	print CLIENTCRAP "%R>>%n All buffers scanned for modes";
+    } elsif ($arg[0] eq 'show' && defined $arg[1]) {
+	shift @arg;
+	show_trust(\@arg, $tag);
+    } elsif ($arg[0] eq 'save') {
+	save_db;
+    } elsif ($arg[0] eq 'load') {
+	load_db;
+    } elsif ($arg[0] eq 'trace' && defined $arg[1] && defined $arg[2]) {
+	bg_trace($tag, lc $arg[1], lc $arg[2]);
+	print CLIENTCRAP "%B>>%n Searching connection between ".$arg[1]." and ".$arg[2]."...";
+    } elsif ($arg[0] eq 'merge' && defined $arg[1] && defined $arg[2]) {
+	return unless ref $server;
+	merge_nicks($server->{tag}, $arg[1], $arg[2]);
+	print CLIENTCRAP "%B>>%n '".$arg[1]."' has been merged with '".$arg[2]."'";
+    }
+}
+
+Irssi::settings_add_str($IRSSI{name}, 'trustweb_default_ircnet', '');
+Irssi::settings_add_str($IRSSI{name}, 'trustweb_db_file', Irssi::get_irssi_dir()."/trustweb_database");
+Irssi::settings_add_bool($IRSSI{name}, 'trustweb_show_distrust' , 1);
+
+Irssi::settings_add_bool($IRSSI{name}, 'trustweb_trace_distrust' , 1);
+Irssi::settings_add_bool($IRSSI{name}, 'trustweb_trace_find_shortest_path' , 1);
+Irssi::settings_add_int($IRSSI{name}, 'trustweb_trace_max_depth' , 0);
+
+Irssi::signal_add('setup saved', 'save_db');
+Irssi::signal_add('message irc mode', \&sig_message_irc_mode);
+Irssi::signal_add_first('nicklist changed', \&sig_nicklist_changed);
+
+Irssi::command_bind('trustweb', \&cmd_trustweb);
+
+foreach my $cmd ('save', 'load', 'scan', 'show', 'help', 'trace', 'merge') {
+    Irssi::command_bind('trustweb '.$cmd =>
+        sub { cmd_trustweb("$cmd ".$_[0], $_[1], $_[2]); } );
+}
+
+load_db();
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /trustweb help for help';
diff --git a/scripts/tvmusor.pl b/scripts/tvmusor.pl
new file mode 100644
index 0000000..6a4ad9f
--- /dev/null
+++ b/scripts/tvmusor.pl
@@ -0,0 +1,139 @@
+#!/usr/pkg/bin/perl
+#
+# $Id: porthu-irssi.pl,v 1.7 2003/06/14 21:14:46 bigmac Exp $
+#
+# Irssi Client for PORT.HU
+# Copyright (C) 2003, Gabor Nyeki (bigmac@home.sirklabs.hu).
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+# 3. Neither the name of the author nor the names of its contributors
+#    may be used to endorse or promote products derived from this software
+#    without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+
+use Irssi;
+use Irssi::Irc;
+use IO::Socket;
+
+use vars %IRSSI;
+%IRSSI = (
+	authors		=> "Gabor Nyeki",
+	contact		=> "bigmac@home.sirklabs.hu",
+	name		=> "tvmusor",
+	description	=> "asks for the current tv-lineup from http://www.port.hu/",
+	license		=> "BSDL",
+	changed		=> "Tue Jun  3 18:48:02 CEST 2003"
+);
+
+my %chans = (
+	m1		=> "1",
+	m2		=> "2",
+	dunatv		=> "6",
+	tv2		=> "3",
+	rtlklub		=> "5",
+	viasat3		=> "21",
+	fixtv		=> "96",
+	spektrum	=> "9",
+	hbo		=> "8",
+	atv		=> "15"
+);
+
+
+sub tvmusor {
+	my ($args) = @_;
+
+	split / /, $args;
+	$chan = @_[0];
+	$list = @_[1];
+
+	if (!$chan) {
+		Irssi::print "Hasznalat: /tvmusor list|csatorna [lista hossza]";
+		return;
+	}
+	if ($chan eq "list") {
+		Irssi::print "Elerheto csatornak listaja:";
+		foreach $buf (sort(keys %chans)) {
+			Irssi::print "-> $buf";
+		}
+		return;
+	}
+
+	if (!$chans{$chan}) {
+		Irssi::print "$chan nem letezik!";
+		return;
+	}
+
+	if (!$list) {
+		$num = 5;
+	} else {
+		$num = $list;
+	}
+
+
+	$sd = IO::Socket::INET->new(Proto => "tcp",
+				    PeerAddr => "www.port.hu",
+				    PeerPort => "80") or die;
+	print $sd "GET /pls/tv/tv.prog?i_days=1&i_ch=$chans{$chan}&i_ch_nr=1 HTTP/1.0\n";
+	print $sd "Host: www.port.hu\n";
+	print $sd "User-Agent: Irssi\n";
+	print $sd "\n";
+
+	Irssi::print "$chan:";
+
+	$i = 0;
+	while (<$sd>) {
+		if ($_ =~ /<tr><td align="right" valign="top" bgcolor="/) {
+			split /<strong>/, $_;
+
+			if (@_[1] =~ /<blink>(.*)<\/blink>/) {
+				$i = 1;
+				$x = $1;
+			} else {
+				if ($i) {
+					$i++;
+				}
+				@_[1] =~ /(.*)<\/strong>/;
+				$x = $1;
+			}
+
+			if ($i eq 0) {
+				next;
+			}
+
+			@_[2] =~ /(.*)<\/strong>/;
+			$y = $1;
+
+			Irssi::print "-> [$x] $y";
+			if ($i eq $num) {
+				last;
+			}
+		}
+	}
+
+	close $sd;
+
+	if ($i ne $num) {
+		Irssi::print "-> --- nincs tobb ---";
+	}
+}
+
+Irssi::command_bind('tvmusor', 'tvmusor');
diff --git a/scripts/twprompt.pl b/scripts/twprompt.pl
new file mode 100644
index 0000000..0710419
--- /dev/null
+++ b/scripts/twprompt.pl
@@ -0,0 +1,96 @@
+use vars qw($VERSION %IRSSI);
+use Irssi;
+use Irssi::Irc;
+ 
+$instrut =
+  ".--------------------------------------------------.\n".
+  "| 1.) shell> mkdir ~/.irssi/scripts                |\n".
+  "| 2.) shell> cp twprompt.pl ~/.irssi/scripts/      |\n".
+  "| 3.) shell> cp twprompt.pl ~/.irssi/scripts/      |\n".
+  "| 4.) shell> mkdir ~/.irssi/scripts/autorun        |\n".
+  "| 5.) shell> ln -s ~/.irssi/scripts/twprompt.pl \\  |\n".
+  "|            ~/.irssi/scripts/autorun/twprompt.pl  |\n".
+  "| 6.) /sbar prompt remove prompt                   |\n".
+  "| 7.) /sbar prompt remove prompt_empty             |\n".
+  "| 8.) /sbar prompt add -before input -priority 100 |\n". 
+  "|           -alignment left twprompt               |\n".
+  "| 9.) /toggle twprompt_instruct and last /save     |\n".
+  "|--------------------------------------------------|\n".
+  "|  Options:                               Default: |\n".
+  "|  /set twprompt_refresh <speed>              100  |\n".
+  "|  /set twprompt_color_a <string>             %%C   |\n".
+  "|  /set twprompt_color_b <string>             %%c   |\n".
+  "|  /toggle twprompt_instruct |Startup instructions |\n".
+  "\`--------------------------------------------------'";
+
+ 
+$VERSION = '1.00';
+%IRSSI = (
+   authors	=> 'John Engelbrecht',
+   contact	=> 'jengelbr@yahoo.com',
+   name	        => 'twprompt.pl',
+   description	=> 'BitchX\'s CrackRock3 animated prompt bar.',
+   license	=> 'Public Domain',
+   changed	=> 'Wed Sep 29 02:58:28 CDT 2004',
+   url		=> 'http://irssi.darktalker.net'."\n",
+);
+
+my $twprompt_file = "$ENV{HOME}/.irssi/twprompt.data";
+my $num = 1;
+my $jk=0;
+
+sub reload { Irssi::statusbar_items_redraw('twprompt'); }
+ 
+sub setup {
+   my $time = Irssi::settings_get_int('twprompt_refresh');
+   Irssi::timeout_remove($timeout);
+   $timeout = Irssi::timeout_add($time, 'reload' , undef);
+}
+ 
+sub show {
+   my ($item, $get_size_only) = @_;
+   $text = get();
+   $item->default_handler($get_size_only, "{prompt ".$text."}", undef, 1);
+}
+ 
+sub get {
+   my $str = Irssi::active_win()->{active}->{name};
+   $str = "Status" if($str eq "");
+   my @chars = split //, $str;
+   my $total = $#chars;
+   my $text = "";
+   my $col_a = Irssi::settings_get_str('twprompt_color_a');
+   my $col_b = Irssi::settings_get_str('twprompt_color_b');
+   for my $cx (0..$total) {
+      if($cx == ($num - 1)) {
+         $text.=$col_a.$chars[$cx];
+      } else {
+         $text.=$col_b.$chars[$cx];
+         }
+      }   
+   if(!$jk)  {
+      $jk=1;
+      return $text;
+      }
+   if($num <= ($total + 1)) { 
+      $num++; 
+      } 
+   else {
+      $num = 1;
+      }
+   $jk=0;
+   return $text;
+}
+ 
+Irssi::statusbar_item_register('twprompt', '$0', 'show');
+Irssi::settings_add_str('tech_addon', 'twprompt_color_b',"%c");
+Irssi::settings_add_str('tech_addon', 'twprompt_color_a',"%C");
+Irssi::settings_remove('twprompt_instruct');
+Irssi::settings_add_bool('tech_addon', 'twprompt_instruct', 1);
+Irssi::settings_add_int('tech_addon', 'twprompt_refresh', 100);
+Irssi::signal_add('setup changed', 'setup');
+$timeout = Irssi::timeout_add(Irssi::settings_get_int('twprompt_refresh'), 'reload' , undef);
+
+if(Irssi::settings_get_bool('twprompt_instruct')) {
+   print $instrut;
+   }
diff --git a/scripts/twsocials.pl b/scripts/twsocials.pl
new file mode 100644
index 0000000..de7fd2f
--- /dev/null
+++ b/scripts/twsocials.pl
@@ -0,0 +1,1133 @@
+use vars qw($VERSION %IRSSI);
+use Irssi;
+use Irssi::Irc;
+use DBI;
+
+$VERSION = '1.02';
+%IRSSI = (
+   authors      => 'John Engelbrecht',
+   contact      => 'jengelbr@yahoo.com',
+   name         => 'twsocials.pl',
+   description  => 'IRC version of Social Commands',
+   license      => 'Public Domain',
+   changed      => 'Sat Nov 20 18:25:12 CST 2004',
+   url          => 'http://irssi.darktalker.net/',
+);
+
+my $instrut =
+  ".------------------------------------------------------.\n".
+  "| 1.) shell> mkdir ~/.irssi/scripts                    |\n".
+  "| 2.) shell> cp twsocials.pl ~/.irssi/scripts/         |\n".
+  "| 3.) shell> mkdir ~/.irssi/scripts/autorun            |\n".
+  "| 4.) shell> ln -s ~/.irssi/scripts/twsocials.pl \\     |\n".
+  "|            ~/.irssi/scripts/autorun/twsocials.pl     |\n".
+  "| 5.) /help            (Will list all your socials)    |\n".
+  "|     /socials         (Shows you a list of arguments) |\n".
+  "|     /socials list    (Shows a list of socials)       |\n".
+  "|     /socials <social>(Contents of the Social command)|\n".
+  "| 6.) /toggle twsocials_instruct and last /save        |\n".
+  "|------------------------------------------------------|\n".
+  "|  Options:                                   Default: |\n".
+  "|  /toggle twsocials_remote                     OFF    |\n".
+  "|  /toggle twtopic_instruct     |Startup instructions  |\n".
+  "|------------------------------------------------------|\n".
+  "|  Note:                                               |\n".
+  "|  If twsocials_remote is ON, that will enable public  |\n".
+  "|  and private social commands to work, such as the    |\n".
+  "|  the following.                                      |\n".
+  "|                                                      |\n".
+  "|  < TechWizard> !social                               |\n".
+  "|  < TechWizard> !social list                          |\n".
+  "|  < TechWizard> !social blist                         |\n".
+  "|  < TechWizard> !hug                                  |\n".
+  "|  < TechWizard> !hug JohnDoe                          |\n".
+  "|  < TechWizard> !hug JohnDoe 1                        |\n".
+  "\`------------------------------------------------------'";
+
+
+my $maxsize=62;
+my $lastcmd="";
+my $home_chan="";
+my $path = "~/.irssi/socials";
+my @colname = ("Dark Black","Dark Red","Dark Green","Dark Yellow","Dark Blue","Dark Magenta","Dark Cyan","Dark White","Bold Black","Bold Red","Bold Green","Bold Yellow","Bold Blue","Bold Magenta","Bold Cyan","Bold White","Reset","O");
+my @mirc_color_name = ("~R0","~R1","~R2","~R3","~R4","~R5","~R6","~R7","~B0","~B1","~B2","~B3","~B4","~B5","~B6","~B7","~RS");
+my @mirc_color_arr = ("\0031","\0035","\0033","\0037","\0032","\0036","\00310","\0030","\00314","\0034","\0039","\0038","\00312","\00313","\00311","\00315","\017");
+my ($r0,$r1,$r2,$r3,$r4,$r5,$r6,$r7,$b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$rs) = @mirc_color_arr;
+   $path =~ s/^~\//$ENV{'HOME'}\//;
+my $bc=$r4;
+my $bt=$r2;
+my $m1=$r1;
+my $m2=$b1;
+
+################ Checking Social's home Directory #############
+init_socpath();   
+###############################################################
+
+sub message_public {
+  my($server, $data, $nick, $address, $target) = @_;
+  if(!Irssi::settings_get_bool('twsocials_remote')) { return; }
+  $home_chan=$target;
+  $data =~ s/\r//;
+  @data_arr = split " ", $data;
+  if(@data_arr[0] eq "!social") {
+     if(!$#data_arr) {
+        syntax($server,$target);
+        return; 
+        }
+     if(@data_arr[1] eq "color") {
+        colorlist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "list") {
+        soclist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "blist") {
+        socblist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "add") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 add$rs <social>$r3 :$rs$r2 Adds a new Social.");
+           return; 
+           } 
+        $socname = @data_arr[2];
+        addsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "del") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 dels$rs <social> $r3:$r2 Deletes a Social.");
+           return; 
+           }        
+        $socname = @data_arr[2];
+        delsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "set") {
+        if($#data_arr <= 3) {
+           set_syntax($server, $target, $socname);
+           return; 
+           }
+        $socname = @data_arr[2];
+        $set = @data_arr[3];
+        $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] ";
+        $data =~ s/$cutstr//;
+        setsoc($server,$target,$socname,$set,$data);
+        return; 
+        }     
+     $socname = @data_arr[1];
+     print_social($server, $target, $socname);
+     return;
+     }
+  if(@data_arr[0] eq "!soclist") {
+     soclist($server,$target);
+     return; 
+     }
+  $chr="!";
+  $socname = @data_arr[0];
+  @socname_arr = split //, $socname;
+  if(@socname_arr[0] ne $chr) { return; }
+  $socname =~ s/$chr//;
+  if(!ifexist_social($socname)) { return; }
+  if($#data_arr == 0) {
+     $nick2 = "UNSET";
+     $msgsw=0;
+     }
+  if($#data_arr == 1) {
+     $nick2 = @data_arr[1];
+     $msgsw=0;
+     }
+  if($#data_arr == 2) {
+     $nick2 = @data_arr[1];
+     $msgsw=1;
+     }  
+  $chan = Irssi::Irc::Server->channel_find($home_chan);
+  $nick_obj = $chan->nick_find($nick2);
+  if($nick_obj->{nick} eq "" && $nick2 ne "UNSET") { 
+     $server->command("msg $target nickname does not exist.");
+     return;
+     }
+  do_social($server,$target,$socname,$nick,$nick2,$msgsw);
+}
+
+sub message_private {
+  my($server, $data, $nick, $address) = @_;
+  if(!Irssi::settings_get_bool('twsocials_remote')) { return; }
+  $target=$nick;
+  $home_chan=$target;
+  $data =~ s/\r//;
+  @data_arr = split " ", $data;
+  if(@data_arr[0] eq "!social") {
+     if(!$#data_arr) {
+        syntax($server,$target);
+        return; 
+        }
+     if(@data_arr[1] eq "color") {
+        colorlist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "list") {
+        soclist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "blist") {
+        socblist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "add") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 add$rs <social>$r3 :$rs$r2 Adds a new Social.");
+           return; 
+           } 
+        $socname = @data_arr[2];
+        addsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "del") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 dels$rs <social> $r3:$r2 Deletes a Social.");
+           return; 
+           }        
+        $socname = @data_arr[2];
+        delsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "set") {
+        if($#data_arr <= 3) {
+           set_syntax($server, $target, $socname);
+           return; 
+           }
+        $socname = @data_arr[2];
+        $set = @data_arr[3];
+        $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] ";
+        $data =~ s/$cutstr//;
+        setsoc($server,$target,$socname,$set,$data);
+        return; 
+        }     
+     $socname = @data_arr[1];
+     print_social($server, $target, $socname);
+     return;
+     }
+  if(@data_arr[0] eq "!soclist") {
+     soclist($server,$target);
+     return; 
+     }
+  $chr="!";
+  $socname = @data_arr[0];
+  @socname_arr = split //, $socname;
+  if(@socname_arr[0] ne $chr) { return; }
+  $socname =~ s/$chr//;
+  if(!ifexist_social($socname)) { return; }
+  if($#data_arr == 0) {
+     $nick2 = "UNSET";
+     $msgsw=0;
+     }
+  if($#data_arr == 1) {
+     $nick2 = @data_arr[1];
+     $msgsw=0;
+     }
+  if($#data_arr == 2) {
+     $nick2 = @data_arr[1];
+     $msgsw=1;
+     }  
+  $nick1 = $nick;
+  do_social($server,$target,$socname,$nick1,$nick2,$msgsw);
+}
+
+sub on_public {
+  my($server, $data, $nick, $address, $target) = @_;
+  if(!Irssi::settings_get_bool('twsocials_remote')) { return; }
+  if($data !~ /^!/) { return; } 
+  $home_chan=$nick;
+  $target=Irssi::active_win()->{active}->{name};
+  $home_chan=$target;
+  $data =~ s/\r//;
+  @data_arr = split " ", $data;
+  if(@data_arr[0] eq "!social") {
+     if(!$#data_arr) {
+        syntax($server,$target);
+        return; 
+        }
+     if(@data_arr[1] eq "color") {
+        colorlist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "list") {
+        soclist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "blist") {
+        socblist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "add") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 add$rs <social>$r3 :$rs$r2 Adds a new Social.");
+           return; 
+           }
+        $socname = @data_arr[2];
+        addsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "del") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 dels$rs <social> $r3:$r2 Deletes a Social.");
+           return; 
+           }
+        $socname = @data_arr[2];
+        delsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "set") {
+        if($#data_arr <= 3) {
+           set_syntax($server, $target, $socname);
+           return;
+           }
+        $socname = @data_arr[2];
+        $set = @data_arr[3];
+        $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] ";
+        $data =~ s/$cutstr//;
+        setsoc($server,$target,$socname,$set,$data);
+        return; 
+        }     
+     $socname = @data_arr[1];
+     print_social($server, $target, $socname);
+     return;
+     }
+  if(@data_arr[0] eq "!soclist") {
+     soclist($server,$target);
+     return; 
+     }
+  $chr="!";  
+  $socname = @data_arr[0];
+  @socname_arr = split //, $socname;
+  if(@socname_arr[0] ne $chr) { return; }
+  $socname =~ s/$chr//;
+  if(!ifexist_social($socname)) {
+     return;
+     }
+  if($#data_arr == 0) {
+     $nick2 = "UNSET";
+     $msgsw=0;
+     }
+  if($#data_arr == 1) {
+     $nick2 = @data_arr[1];
+     $msgsw=0;
+     }
+  if($#data_arr == 2) {
+     $nick2 = @data_arr[1];
+     $msgsw=1;
+     }  
+  $nick1 = $server->{nick};
+  $chan = Irssi::Irc::Server->channel_find($home_chan);
+  $nick_obj = $chan->nick_find($nick2);
+  if($nick_obj->{nick} eq "" && $nick2 ne "UNSET") { 
+     $server->command("msg $target nickname does not exist.");
+     return;
+     }
+  do_social($server,$target,$socname,$nick1,$nick2,$msgsw);
+}
+
+sub on_private {
+  my($server, $data, $nick, $address, $target) = @_;
+  if(!Irssi::settings_get_bool('twsocials_remote')) { return; }
+  if($data !~ /^!/) { return; } 
+  $home_chan=$nick;
+  $target=$nick;
+  $data =~ s/\r//;
+  @data_arr = split " ", $data;
+  if(@data_arr[0] eq "!social") {
+     if(!$#data_arr) {
+        syntax($server,$target);
+        return; 
+        }
+     if(@data_arr[1] eq "color") {
+        colorlist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "list") {
+        soclist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "blist") {
+        socblist($server,$target);
+        return; 
+        }     
+     if(@data_arr[1] eq "add") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 add$rs <social>$r3 :$rs$r2 Adds a new Social.");
+           return; 
+           }
+        $socname = @data_arr[2];
+        addsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "del") {
+        if($#data_arr == 1) {
+           $server->command("msg $target $r3(USAGE) $rs!social$b4 dels$rs <social> $r3:$r2 Deletes a Social.");
+           return; 
+           }
+        $socname = @data_arr[2];
+        delsoc($server,$target,$socname);
+        return; 
+        }     
+     if(@data_arr[1] eq "set") {
+        if($#data_arr <= 3) {
+           set_syntax($server, $target, $socname);
+           return;
+           }
+        $socname = @data_arr[2];
+        $set = @data_arr[3];
+        $cutstr = "@data_arr[0] @data_arr[1] @data_arr[2] @data_arr[3] ";
+        $data =~ s/$cutstr//;
+        setsoc($server,$target,$socname,$set,$data);
+        return; 
+        }     
+     $socname = @data_arr[1];
+     print_social($server, $target, $socname);
+     return;
+     }
+  if(@data_arr[0] eq "!soclist") {
+     soclist($server,$target);
+     return; 
+     }
+  $chr="!";  
+  $socname = @data_arr[0];
+  @socname_arr = split //, $socname;
+  if(@socname_arr[0] ne $chr) { return; }
+  $socname =~ s/$chr//;
+  if(!ifexist_social($socname)) {
+     return;
+     }
+  if($#data_arr == 0) {
+     $nick2 = "UNSET";
+     $msgsw=0;
+     }
+  if($#data_arr == 1) {
+     $nick2 = @data_arr[1];
+     $msgsw=0;
+     }
+  if($#data_arr == 2) {
+     $nick2 = @data_arr[1];
+     $msgsw=1;
+     }  
+  $nick1 = $server->{nick};
+  $target = $nick;
+  do_social($server,$target,$socname,$nick1,$nick2,$msgsw);
+}
+
+sub addsoc {
+   my ($server,$target,$socname) = @_;
+   if(ifexist_social($socname)) {
+      $server->command("msg $target $r3social: $rs$socname already exist.");
+      return;
+      }
+   #write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem) 
+   write_social($socname,"0","UNSET","UNSET","UNSET","UNSET","UNSET");
+   irssicmd_socials();
+   $server->command("msg $target $r2 done.");   
+   return;
+}
+
+sub irssi_addsoc {
+   my ($data, $server, $witem) = @_;
+   @data_arr = split / /, $data;
+   if(@data_arr[0] eq "") { 
+      irssi_syntax();
+      return;
+      }
+   $socname = @data_arr[0];
+   if(ifexist_social($socname)) {
+      print "$rs$socname already exist.";
+      return;
+      }
+   write_social($socname,"0","UNSET","UNSET","UNSET","UNSET","UNSET");
+   irssicmd_socials();
+   print "$r2 done.";
+   return;
+}
+
+sub delsoc {
+   my ($server,$target,$socname) = @_;
+   if(!ifexist_social($socname)) {
+      $server->command("msg $target $r3 DELETE $socname: $rs$socname social does not exist.");
+      return;
+      }
+   $filename ="$path/$socname.txt";
+   unlink($filename);
+   irssicmd_socials();
+   $server->command("msg $target $r2 done.");   
+   return;
+}
+
+sub irssi_delsoc {
+   my ($data, $server, $witem) = @_;
+   @data_arr = split / /, $data;
+   if(@data_arr[0] eq "") { 
+      irssi_syntax();
+      return;
+      }
+   $socname = @data_arr[0];
+   if(!ifexist_social($socname)) {
+      print "$r3 DELETE $socname: $rs$socname social does not exist.";
+      return;
+      }
+   $filename ="$path/$socname.txt";
+   unlink($filename);
+   irssicmd_socials();
+   print "$r2 done.";
+   return;
+}
+
+sub setsoc {
+   my ($server,$target,$socname,$set,$data) = @_;
+   my @sets = ("priv","nobody","public","self","them","you");
+   if(!ifexist_social($socname)) {
+      $server->command("msg $target $r3 SET $social: $rs$socname does not exist.");
+      return;
+      }
+   $set = "\L$set";
+   $found=0;
+   foreach(@sets) { if($set eq $_) { $found=1; } }
+   if(!$found) {
+      $server->command("msg $target $r3 social:$rs invalid field name.");
+      return;
+      }  
+   $filename = "$path/$socname.txt";
+   $cx=0;
+   open(FILE,"<$filename") or do {
+      print "File ".$filename." Not found.";
+      return;
+      };
+   while (<FILE>) {
+      chomp;
+      $fpriv = $_ if($cx == 0);
+      $fnobody = $_ if($cx == 1);
+      $fpublic = $_ if($cx == 2);
+      $fself = $_ if($cx == 3);
+      $fthem = $_ if($cx == 4);
+      $fyou = $_ if($cx == 5);
+      $cx++;
+      }
+   close FILE;
+   $fpriv   = $data if($set eq "priv");
+   $fnobody = $data if($set eq "nobody");
+   $fpublic = $data if($set eq "public");
+   $fself   = $data if($set eq "self");
+   $fthem   = $data if($set eq "them");
+   $fyou    = $data if($set eq "you");
+   write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem);
+   $server->command("msg $target $r2 done.");   
+   irssicmd_socials();
+   return;   
+}
+
+sub irssi_setsoc {
+   my ($data, $server, $witem) = @_;
+   @data_arr = split / /, $data;
+   if($#data_arr <=1) { 
+      irssi_set_syntax();
+      return;
+      }
+   $cutstr = "/";
+   $socname = @data_arr[0];
+   $set = @data_arr[1];
+   $cutstr = "$socname $set ";
+   $data =~ s/$cutstr//g;
+   my @sets = ("priv","nobody","public","self","them","you");
+   if(!ifexist_social($socname)) {
+      print "$r3 SET $social: $rs$socname does not exist.";
+      return;
+      }
+   $set = "\L$set";
+   $found=0;
+   foreach(@sets) { if($set eq $_) { $found=1; } }
+   if(!$found) {
+      print "$r3 social:$rs invalid field name.";
+      return;
+      }  
+   $filename = "$path/$socname.txt";
+   $cx=0;
+   open(FILE,"<$filename") or do {
+      print "File ".$filename." Not found.";
+      return;
+      };
+   while (<FILE>) {
+      chomp;
+      $fpriv = $_ if($cx == 0);
+      $fnobody = $_ if($cx == 1);
+      $fpublic = $_ if($cx == 2);
+      $fself = $_ if($cx == 3);
+      $fthem = $_ if($cx == 4);
+      $fyou = $_ if($cx == 5);
+      $cx++;
+      }
+   close FILE;
+   $fpriv   = $data if($set eq "priv");
+   $fnobody = $data if($set eq "nobody");
+   $fpublic = $data if($set eq "public");
+   $fself   = $data if($set eq "self");
+   $fthem   = $data if($set eq "them");
+   $fyou    = $data if($set eq "you");
+   write_social($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem);
+   print "$r2 done.";
+   irssicmd_socials();
+   return;   
+}
+
+sub syntax {
+   my ($server,$target) = @_;
+   $server->command("msg $target $r3(USAGE) $rs!social             $r3 :$r2 Prints this screen.");
+   $server->command("msg $target         !social <social>   $r3  :$r2 Displays the social msgs");
+   $server->command("msg $target         !social$b4 add $rs<social>$r3 :$r2 Adds a new Social.");
+   $server->command("msg $target         !social$b4 del $rs<social>$r3 :$r2 Dels a Social.");
+   $server->command("msg $target         !social$b4 set $rs<social>$r3 :$r2 Sets The social msg per line.");
+   $server->command("msg $target         !social$b4 list    $r3     :$r2 A list of socials.");
+   $server->command("msg $target         !social$b4 blist   $r3     :$r2 A list of socials in a box.");
+   $server->command("msg $target         !social$b4 color   $r3     :$r2 A list of color codes.");
+   $server->command("msg $target         !soclist           $r3  :$r2 Prints a list of socials.");
+   $server->command("msg $target         !<social>          $r3  :$r2 does the Social.");
+}
+
+sub irssi_syntax {
+   my ($server,$target) = @_;
+   print "$r3(USAGE) $rs!social             $r3 :$r2 Prints this screen.";
+   print "        !social <social>   $r3  :$r2 Displays the social msgs";
+   print "        !social$b4 add $rs<social>$r3 :$r2 Adds a new Social.";
+   print "        !social$b4 del $rs<social>$r3 :$r2 Dels a Social.";
+   print "        !social$b4 set $rs<social>$r3 :$r2 Sets The social msg per line.";
+   print "        !social$b4 list    $r3     :$r2 A list of socials.";
+   print "        !social$b4 blist   $r3     :$r2 A list of socials in a box.";
+   print "        !social$b4 color   $r3     :$r2 A list of color codes.";
+   print "        !soclist           $r3  :$r2 Prints a list of socials.";
+   print "        !<social>          $r3  :$r2 does the Social.";
+}
+
+sub colorlist {
+   my ($server,$target) = @_;
+   my $title = "$bc($bt Color List $bc)";
+   my $spc = ' 'x50;
+   my $text = "";
+   my $tmp = "";
+   $cx=0;
+   $bar = "------------------------------------------------------------------";
+   $bar = ".".substr($bar,0,int(($maxsize-13)/2)).$title.substr($bar,0,int(($maxsize-13)/2)).".";
+   $server->command("msg $target $bc$bar$rs");
+
+   foreach (@colname)  {
+   $col = substr("@mirc_color_name[$cx] = @colname[$cx]$spc",0,20);
+      $tmp = $text.$col;
+      if(strsize($tmp) >= $maxsize) {
+         $text.=' 'x50;
+         $blah =~ s/\003//;
+         $blah = @mirc_color_arr[$cx];
+         $text = substr(" $text",0,$maxsize);
+         $text = "$bc|$rs$text$bc|$rs";
+         $server->command("msg $target $text");
+         $text="";
+         }
+      $text=$text.$col;
+      $cx++;
+      }
+   $bar = "-------------------------------------------------------------------------------------------";
+   $bar = "`".substr($bar,0,$maxsize)."\'";
+   $server->command("msg $target $bc$bar$rs");
+   return;
+}
+
+sub irssi_colorlist {
+   my ($server,$target) = @_;
+   $spc = ' 'x50;
+   my $title = "$bc($bt Color List $bc)";
+   $bar = "------------------------------------------------------------------";
+   $bar = ".".substr($bar,0,int(($maxsize-13)/2)).$title.substr($bar,0,int(($maxsize-13)/2)).".";
+   print "$bc$bar$rs";
+   foreach (@colname)  {
+   $col = substr("@mirc_color_name[$cx] = @colname[$cx]$spc",0,20);
+      $tmp = $text.$col;
+      if(strsize($tmp) >= $maxsize) {
+         $text.=' 'x50;
+         $blah =~ s/\003//;
+         $blah = @mirc_color_arr[$cx];
+         $text = substr(" $text",0,$maxsize);
+         $text = "$bc|$rs$text$bc|$rs";
+         print $text;
+         $text="";
+         }
+      $text=$text.$col;
+      $cx++;
+      }
+   $bar = "-------------------------------------------------------------------------------------------";
+   $bar = "`".substr($bar,0,$maxsize)."\'";
+   print "$bc$bar$rs";
+   return;
+}
+
+sub set_syntax {
+   my ($server,$target) = @_;
+   $server->command("msg $target $r3(USAGE) $rs!social$b4 set$rs <social>$b4 nobody $rs<msg>: Sets the message when no nickname is set.");
+   $server->command("msg $target        !social$b4 set $rs<social>$b4 public $rs<msg> : Sets the message for the channel");
+   $server->command("msg $target        !social$b4 set $rs<social>$b4 self   $rs<msg> : Sets the message when you social yourself.");
+   $server->command("msg $target        !social$b4 set $rs<social>$b4 you    $rs<msg> : Sets message that will be messaged to you.");
+   $server->command("msg $target        !social$b4 set $rs<social>$b4 them   $rs<msg> : Sets The social message that will be sent to them.");
+   return;
+}
+
+sub irssi_set_syntax {
+   my ($server,$target) = @_;
+   print "$r3(USAGE)";
+   print "!social$b4 set$rs <social>$b4 nobody $rs<msg>: Sets the message when no nickname is set.";
+   print "!social$b4 set $rs<social>$b4 public $rs<msg>: Sets the message for the channel";
+   print "!social$b4 set $rs<social>$b4 self   $rs<msg>: Sets the message when you social yourself.";
+   print "!social$b4 set $rs<social>$b4 you    $rs<msg>: Sets message that will be messaged to you.";
+   print "!social$b4 set $rs<social>$b4 them   $rs<msg>: Sets The social message that will be sent to them.";
+   return;
+}
+
+sub soclist{
+   my ($server,$target) = @_;
+   my $text="";
+   my $cutstr=".txt";
+   my @array;
+   opendir(DIR,$path) or return 0;
+   while (defined(my $file = readdir(DIR))) {
+      if($file =~ m".txt") { 
+         $tmp=$file;
+         $tmp =~ s/$cutstr//;
+         push(@array,$tmp); 
+         }
+      }
+   closedir(DIR);
+   @array = sort(@array);
+   foreach(@array) { $text.=" $_"; }
+   $server->command("msg $target $text");
+   return;
+}
+
+sub socblist {
+   my ($server,$target) = @_;
+   my @array;
+   my $text="";
+   opendir(DIR,$path) or return 0;
+   my $title = "$bc($bt Social List $bc)";
+   $bar = "------------------------------------------------------------------";
+   $bar = ".".substr($bar,0,int(($maxsize-15)/2)).$title.substr($bar,0,int(($maxsize-15)/2)+1).".";
+   $server->command("msg $target $bc$bar$rs");
+   $spc = "                                ";
+   $cutstr=".txt";
+   opendir(DIR,$path) or return 0;
+   while (defined(my $file = readdir(DIR))) {
+      if($file =~ m".txt") { 
+         $tmp=$file;
+         $tmp =~ s/$cutstr//;
+         push(@array,$tmp); 
+         }
+      }
+   closedir(DIR);
+   @array = sort(@array);
+   foreach(@array) {
+     $socname=$_;
+     $socname =~ s/$cutstr//;
+     if(!get_social_str($socname,"priv")) { 
+        $name = substr(" $socname$spc",0,10); 
+        }
+     else { 
+        $name = substr("*$socname$spc",0,10); 
+        }
+     my $tmp = $text.$name;
+     if(strsize($tmp) >= $maxsize) {
+         $text.="                                                                           ";
+         $text = substr(" $text",0,($maxsize));
+         $text = "$bc|$rs$text$bc|$rs";
+         $server->command("msg $target $text");
+         $text="";
+         }
+      $text=$text.$name;
+      }
+   $text.="                                                                           ";
+   $text = substr(" $text",0,($maxsize));
+   $text = "$bc|$rs$text$bc|$rs";
+   $server->command("msg $target $text");
+   $bar = "-------------------------------------------------------------------------------------------";
+   $bar = "`".substr($bar,0,$maxsize)."\'";
+   $server->command("msg $target $bc$bar$rs");
+   return;
+}
+
+sub irssi_socblist {
+   my ($data, $server, $witem) = @_;
+   my @array;
+   my $text="";
+   opendir(DIR,$path) or return 0;
+   my $title = "$bc($bt Social List $bc)";
+   $bar = "------------------------------------------------------------------";
+   $bar = ".".substr($bar,0,int(($maxsize-15)/2)).$title.substr($bar,0,int(($maxsize-15)/2)+1).".";
+   print "$bc$bar$rs";
+   $spc = "                                ";
+   $cutstr=".txt";
+   opendir(DIR,$path) or return 0;
+   while (defined(my $file = readdir(DIR))) {
+      if($file =~ m".txt") { 
+         $tmp=$file;
+         $tmp =~ s/$cutstr//;
+         push(@array,$tmp); 
+         }
+      }
+   closedir(DIR);
+   @array = sort(@array);
+   foreach(@array) {
+     $socname=$_;
+     $socname =~ s/$cutstr//;
+     if(!get_social_str($socname,"priv")) { 
+        $name = substr(" $socname$spc",0,10); 
+        }
+     else { 
+        $name = substr("*$socname$spc",0,10); 
+        }
+     my $tmp = $text.$name;
+     if(strsize($tmp) >= $maxsize) {
+         $text.="                                                                           ";
+         $text = substr(" $text",0,($maxsize));
+         $text = "$bc|$rs$text$bc|$rs";
+         print "$text";
+         $text="";
+         }
+      $text=$text.$name;
+      }
+   $text.="                                                                           ";
+   $text = substr(" $text",0,($maxsize));
+   $text = "$bc|$rs$text$bc|$rs";
+   print "$text";
+   $bar = "-------------------------------------------------------------------------------------------";
+   $bar = "`".substr($bar,0,$maxsize)."\'";
+   print "$bc$bar$rs";
+   return;
+}
+
+sub do_social {
+   my ($server,$target,$socname,$name1,$name2,$msgsw) = @_;
+   if($name1 eq $name2) {
+      $text = get_social_str($socname,"self");
+      $text= social_parse($name1,$name2,$text);
+      $server->command("msg $target $text");
+      return;
+      }
+   if($name2 eq "UNSET") {
+      $text = get_social_str($socname,"nobody");
+      $text= social_parse($name1,$name2,$text);
+      $server->command("msg $target $text");
+      return;
+      }
+   if(get_social_str("priv")) {
+      $text = get_social_str($socname,"public");
+      $text= social_parse($name1,$name2,$text);
+      $server->command("msg $target $text");
+      if($msgsw) {
+         $text = get_social_str($socname,"you");
+         $text= social_parse($name1,$name2,$text);
+         $server->command("msg $name1 $text");
+         $text = get_social_str($socname,"them");
+         $text= social_parse($name1,$name2,$text);
+         $server->command("msg $name2 $text");
+         }
+      }
+   else {
+      $text = get_social_str($socname,"you");
+      $text= social_parse($name1,$name2,$text);
+      $server->command("msg $name1 $text");
+      $text = get_social_str($socname,"them");
+      $text= social_parse($name1,$name2,$text);
+      $server->command("msg $name2 $text");
+      }
+   return;
+}
+
+sub print_social {
+   my ($server,$target,$socname) = @_;
+   my $text="";
+   $filename = "$path/$socname.txt";
+   $cx=0;
+   open(FILE,"<$filename") or do {
+      $server->command("msg $target $socname does not exist.");   
+      return;
+      };
+   while (<FILE>) {
+      chomp;
+      $fpriv = $_ if($cx == 0);
+      $fnobody = $_ if($cx == 1);
+      $fpublic = $_ if($cx == 2);
+      $fself = $_ if($cx == 3);
+      $fthem = $_ if($cx == 4);
+      $fyou = $_ if($cx == 5);
+      $cx++;
+      }
+   close FILE;
+   $server->command("msg $target $r3    Name:$r2 $socname");
+   $server->command("msg $target $r3 Private:$r2 $fpriv");
+   $server->command("msg $target $r3  Nobody:$r2 ".colsocial($fnobody));
+   $server->command("msg $target $r3  Public:$r2 ".colsocial($fpublic));
+   $server->command("msg $target $r3    Self:$r2 ".colsocial($fself));
+   $server->command("msg $target $r3    Them:$r2 ".colsocial($fthem));
+   $server->command("msg $target $r3     You:$r2 ".colsocial($fyou));
+   return;
+}
+
+sub irssi_print_social {
+   my ($data, $server, $witem) = @_;
+   @data_arr = split / /, $data;
+   $cutstr = "/";
+   if (@data_arr[0] =~ m/^[(set)|(blist)|(add)|(list)|(del)|(color)]/i && !ifexist_social(@data_arr[0])) {
+    Irssi::command_runsub ('social', $data, $server, $item);
+    return;
+    }
+   $socname = @data_arr[0];
+   my $text="";
+   $filename = "$path/$socname.txt";
+   $cx=0;
+   open(FILE,"<$filename") or do {
+      print "$socname does not exist."; 
+      return;
+      };
+   while (<FILE>) {
+      chomp;
+      $fpriv = $_ if($cx == 0);
+      $fnobody = $_ if($cx == 1);
+      $fpublic = $_ if($cx == 2);
+      $fself = $_ if($cx == 3);
+      $fthem = $_ if($cx == 4);
+      $fyou = $_ if($cx == 5);
+      $cx++;
+      }
+   close FILE;
+   print"$r3    Name:$r2 $socname";
+   print"$r3 Private:$r2 $fpriv";
+   print"$r3  Nobody:$r2 ".colsocial($fnobody);
+   print"$r3  Public:$r2 ".colsocial($fpublic);
+   print"$r3    Self:$r2 ".colsocial($fself);
+   print"$r3    Them:$r2 ".colsocial($fthem);
+   print"$r3     You:$r2 ".colsocial($fyou);
+   return;
+}
+
+sub colsocial {
+    my ($str) = @_;
+    my $name1 = "$r2 name1$rs";
+    my $name2 = "$r2 name2$rs";
+    return $str;
+}
+
+sub color_parse {
+    my ($str) = @_;
+    my $cx=0;
+    foreach(@mirc_color_name) { 
+       $old = @mirc_color_name[$cx];
+       $new = @mirc_color_arr[$cx];
+       $str =~ s/$old/$new/g;
+       $cx++;
+       }
+    return $str;
+}
+
+sub social_parse {
+   my ($name1,$name2,$str) = @_;
+   $name1 = "$r2$name1$rs";
+   $name2 = "$r2$name2$rs";
+   $str =~ s/name1/$name1/g;
+   $str =~ s/name2/$name2/g;
+   return $str;
+}
+
+sub get_social_str {
+   my ($social,$colum) = @_;
+   $filename = "$path/$social.txt";
+   $cx=0;
+   open(FILE,"<$filename");
+   while (<FILE>) {
+      chomp;
+      $fpriv = color_parse($_) if($cx == 0);
+      $fnobody = color_parse($_) if($cx == 1);
+      $fpublic = color_parse($_) if($cx == 2);
+      $fself = color_parse($_) if($cx == 3);
+      $fthem = color_parse($_) if($cx == 4);
+      $fyou = color_parse($_) if($cx == 5);
+      $cx++;
+      }
+   close FILE;
+   return $fpriv if($colum eq "priv");
+   return $fself if($colum eq "self");
+   return $fnobody if($colum eq "nobody");
+   return $fpublic if($colum eq "public");
+   return $fyou if($colum eq "you");
+   return $fthem if($colum eq "them");
+   return "UNSET";
+}
+
+sub ifexist_social {
+   my ($social) = @_;
+   my $cutstr= ".txt";
+   $filename = "$path/$socname.txt";
+   opendir(DIR,$path) or return 0;
+   while (defined(my $file = readdir(DIR))) {
+      if($file =~ m".txt") { 
+         $tmp=$file;
+         $tmp =~ s/$cutstr//;
+         return 1 if($social eq $tmp);
+         }
+      }
+   return 0;
+}
+
+sub strsize {
+   my ($word) = @_;
+   @word_arr = split //, $word;
+   return $#word_arr+1;
+}
+
+sub write_social {
+   my ($socname,$fpriv,$fself,$fnobody,$fpublic,$fyou,$fthem) = @_;
+   $filename = "$path/$socname.txt";
+   open(FILE,">$filename");
+   print FILE "$fpriv\n";
+   print FILE "$fnobody\n";
+   print FILE "$fpublic\n";
+   print FILE "$fself\n";
+   print FILE "$fthem\n";
+   print FILE "$fyou\n";
+   close FILE;
+   return;
+}
+
+sub irssicmd_reset {
+   for my $cmd (Irssi::commands()) {
+      if($cmd->{category} eq "Social Commands") {
+         $tmp=$cmd->{cmd};
+         Irssi::command_unbind($tmp,on_cmd);
+         }
+      }
+}
+
+sub irssicmd_socials {
+   my ($social) = @_;
+   irssicmd_reset();
+   my $cutstr= ".txt";
+   $filename = "$path/$socname.txt";
+   opendir(DIR,$path) or return 0;
+   while (defined(my $file = readdir(DIR))) {
+      if($file =~ m".txt") { 
+         $tmp=$file;
+         $tmp =~ s/$cutstr//;
+         Irssi::command_bind($tmp,on_cmd,'Social Commands');
+         }
+      }
+}
+
+sub on_cmd {
+   my ($data, $server, $witem) = @_;
+   @data_arr = split / /, $lastcmd;
+   $cutstr = "/";
+   $socname = @data_arr[0];
+   $socname =~ s/$cutstr//;
+   $target=Irssi::active_win()->{active}->{name};
+   $home_chan=$target;
+   $nick = "TechWizard";
+   if($#data_arr == 0) {
+      $nick2 = "UNSET";
+      $msgsw=0;
+      }
+   if($#data_arr == 1) {
+      $nick2 = @data_arr[1];
+      $msgsw=0;
+      }
+   if($#data_arr == 2) {
+      $nick2 = @data_arr[1];
+      $msgsw=1;
+      }  
+   if($home_chan =~ /^#/) {
+      $chan = Irssi::Irc::Server->channel_find($home_chan);
+      $nick_obj = $chan->nick_find($nick2);
+      if($nick_obj->{nick} eq "" && $nick2 ne "UNSET") { 
+         $server->command("msg $target nickname does not exist.");
+         return;
+         }
+      }
+   do_social($server,$target,$socname,$nick,$nick2,$msgsw);
+}
+
+sub cmd_sig {
+   my($args) = @_;
+   irssicmd_socials();
+   $lastcmd=$args;
+}
+
+sub check_dir {
+    $sw=1;
+    opendir(DIR,$path) or $sw=0;
+    closedir(DIR);
+    return $sw;
+}
+
+sub init_socpath {
+   if(check_dir()) { return; }
+   @socnam_arr = ("beer","bslap","chains","cut","drp","fart","french","halo",
+                  "hug","hump","kiss","smacks","smooch","spank","stab","staple",
+                  "strip","trout","whips","yawn"
+   );
+   @socline_arr = (
+               "0\nWho wants Beer!?!?!?\nname1 throws name2 a fresh cold beer out of the fridge.\nname1 opens up a nice cold beer, and drinks it.\nname1 tosses you a nice cold beer, better catch it!!\nyou just tossed name2 a nice cold beer.\n",
+               "0\nLook OUT!!!! name1 is ready to Bitch slap someone!!!!\nname1 Bitch slaps name2 Violently, OUWWW that gotta hurt!\nname1 Bitch Slaps themself hard, Are they Crazy or what???\nyou gotten Bitch Slapped by name1, can you call 911?.\nyou violently bitch slap name2.\n",
+               "0\nname1 looks around swinging the chains around, who shall be my victim?\nname1 chains name2 up, Ohh... Boy, name2 is gonna get it...\nname1 chain themself up, and swallowed the keys.\nname1 chained you up, aren't you wondering what they will do next?\nyou just chained up name2, whats next? torchure?\n",
+               "0\nname1 wants to cut something......\nname1 cut name2 arms and legs off with blood on your face\nname1 cut something on them off\nyou cut everything off of their body\nyou cut name2 arms and legs off and blood flies everywhere\n",
+               "0\nname1 goes out and buys a box of ~R1Dr.Pepper~RS.\nname1 tosses a ~R1Dr.Pepper~RS can to name2, If you waste it, You're Dead.\nname1 grabs a ~R1Dr.Pepper~RS, pops it open and gulps it down... aaahhhh.....\nname1 tosses you a can of ~R1Dr.Pepper~RS.\nyou gave name2 a can of ~R1Dr.Pepper~RS.\n",
+               "0\nname1 farts, Roam roam!!!! Can ya hear it?\nname1 farts towards name2!! QUICK Wear a Gas Mask!!!!\nname1 farts up a storm and kills themself.\nname1 farts towards you, EWWWWW!!! can ya smell it????\nyou farted towards name2! you B*stard!\n",
+               "0\nname1 need to be french\nname1 french name2 until name2 cant breathe\nname1 want to be french\nname1 french them until name1 cant breathe\nyou french name2 with all you got\n",
+               "0\nname1 looks around seeing whoes innocent.\nname1 does their best best to look innocent.\nname1 looks and the mirror and finds a gold circle.\nblah\n",
+               "0\nname1 needs a hug.\nname1 hugs name2 tightly.\nname1 hugs themself tightly.\nname1 hugs you tightly.\nyou hugs name2 tightly.\n",
+               "0\nname1 wants to be hump........\nname1 hump name2 until name1 drop\nname1 hump themself\nname1 hump them hard and passionately\nyou hump name2 with all you got\n",
+               "0\nname1 needs a kiss.\nname1 kisses name2 passionately.\nname1 kisses themself passionately.\nname1 kisses them passionately.\nyou kisses name2 passionately.\n",
+               "0\nname1 smacks his monkey slowly.\nname1 smacks name2 for being an idiot, What were they thinking???\nname1 smacks and smacks until his face burns red.\nname1 smacks you for being an idiot.\nyou smacked name2, that damn idiot, what were they thinking???\n",
+               "0\nname1 smooches everyone in the channel.\nname1 smooches name2. AWW aint that cute.. NOT!!!\nname1 tries to smooch themself, but can't. Anyone got a mirror????\nname1 smooches you very passionately.\nyou have smooched name2 on the lips.\n",
+               "0\nname1 looks for a paddle to spank someone's ass with.\nname1 spanks name2 ass for being naughty.....\nname1 is trying to spank their own ass, does somebody have a paddle?\nyou felt something on your ass, you turned around a look, did name1 spank you?\nhow did feel spanking name2's ass.\n",
+               "0\nLook OUT!!!! name1 is ready to Stab someone with a knife!!!!\nname1 Stabs name2 Violently, I  hope they got life insurance\nname1 tries to Stab themself with a knife, 911, SUICIDE!!!\nname1 slaps ya with their dirty trout, are you going to let them get away with that???\nyou slapped name2 with your trout, I hope ya cleaned it first.\n",
+               "0\nname1 grabs a staple gun and reloads the gun.\nname1 staples name2 to the wall, now they can't run, MUahahaha....\nname1 tries to staple themself to the wall, OUWWWW!!\nyou got stapled to the wall by name1.\nyou have stapled name2 to the wall.\n",
+               "0\nname1 is waiting for someone to strip down, any volunteers?\nname1 strips name2 down one clothes after another.\nname1 watches themself in a mirror while stripping down.\nname1 is removing ya clothes.\nyou are removing name2's clothes, you better hope that camera is ready.\n",
+               "0\nname1 is juggling the trout while looking for their victim.\nname1 slaps name2 with their dirty trout, *SPLAT*!!!\nname1 slaps himself with a dead trout, EWWWWWWW\nname1 slaps you with a dead trout, EWWWWWWW!!!\nyou slapped name2 with a dead trout, EWWWWWWW!!!\n",
+               "0\nname1 is looking for a whip to torture someone.......RUN............\nname1 whips name2 until name1 sees blood.....\nname1 whips themself without mercy\nname1 whips them violently\nyou whips name2 with everything you have\n",
+               "0\nname1 yawns and stretches.\nname1 yawns at name2, mann.. You're boring.\nname1 yawns and stretches and then falls over, WHOOPS!!\nname1 yawns at you, they are very bored.\nyou yawned at name2, how rude....\n",
+   );
+   my $cx=0;
+   print "Mkdir $path.";
+   mkdir($path);
+   print "Inserting socials into $path.";
+   foreach $socname (@socnam_arr) {
+      $filename = "$path/$socname.txt";
+      open(FILE,">$filename");
+      print FILE @socline_arr[$cx];
+      close FILE;
+      $cx++;
+      }
+}
+
+Irssi::command_bind('social','irssi_print_social','tech_addon');
+Irssi::command_bind('social set','irssi_setsoc','tech_addon');
+Irssi::command_bind('social color','irssi_colorlist','tech_addon');
+Irssi::command_bind('social reset','irssicmd_reset','tech_addon');
+Irssi::command_bind('social add','irssi_addsoc','tech_addon');
+Irssi::command_bind('social del','irssi_delsoc','tech_addon');
+Irssi::command_bind('social list','irssi_socblist','tech_addon');
+Irssi::command_bind('soclist','irssi_socblist','tech_addon');
+Irssi::command_bind('soccolor','irssi_socblist','tech_addon');
+
+Irssi::signal_add_first('send command', 'cmd_sig');
+Irssi::signal_add_last('message public', 'message_public');
+Irssi::signal_add_last('message private', 'message_private');
+Irssi::signal_add_last("message own_public", "on_public");
+Irssi::signal_add_last("message own_private", "on_private");
+Irssi::settings_add_bool('tech_addon', 'twsocials_instruct', 1);
+Irssi::settings_add_bool('tech_addon', 'twsocials_remote', 0);
+irssicmd_socials();
+
+if(Irssi::settings_get_bool('twsocials_instruct')) {
+   print $instrut;
+   }
+
diff --git a/scripts/twtopic.pl b/scripts/twtopic.pl
new file mode 100644
index 0000000..3404409
--- /dev/null
+++ b/scripts/twtopic.pl
@@ -0,0 +1,108 @@
+use vars qw($VERSION %IRSSI);
+use Irssi;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+$VERSION = '1.01';
+%IRSSI = (
+   authors	=> 'John Engelbrecht',
+   contact	=> 'jengelbr@yahoo.com',
+   name	        => 'twtopic.pl',
+   description	=> 'Animated Topic bar.',
+   license	=> 'Public Domain',
+   changed	=> 'Sat Nov 20 14:15:18 CST 2004',
+   url		=> 'http://irssi.darktalker.net'."\n",
+);
+
+my $instrut = 
+  ".--------------------------------------------------.\n".
+  "| 1.) shell> mkdir ~/.irssi/scripts                |\n".
+  "| 2.) shell> cp twtopic.pl ~/.irssi/scripts/       |\n".
+  "| 3.) shell> mkdir ~/.irssi/scripts/autorun        |\n".
+  "| 4.) shell> ln -s ~/.irssi/scripts/twtopic.pl \\   |\n".
+  "|            ~/.irssi/scripts/autorun/twtopic.pl   |\n".
+  "| 5.) /sbar topic remove topic                     |\n".
+  "| 6.) /sbar topic remove topic_empty               |\n".
+  "| 7.) /sbar topic add -after topicbarstart         |\n".
+  "|        -priority 100 -alignment left twtopic     |\n".
+  "| 9.) /toggle twtopic_instruct and last /save      |\n".
+  "|--------------------------------------------------|\n".
+  "|  Options:                               Default: |\n".
+  "|  /set twtopic_refresh <speed>              150   |\n".
+  "|  /set twtopic_size <size>                  20    |\n".
+  "|  /toggle twtopic_instruct |Startup instructions  |\n".
+  "\`--------------------------------------------------'";
+
+
+my $start_pos=0;
+my $flipflop=0; 
+my @mirc_color_arr = ("\0031","\0035","\0033","\0037","\0032","\0036","\00310","\0030","\00314","\0034","\0039","\0038","\00312","\00313","\00311","\00315","\017");
+
+
+sub setup {
+   my $time = Irssi::settings_get_int('twtopic_refresh');
+   Irssi::timeout_remove($timeout);
+   $timeout = Irssi::timeout_add($time, 'reload' , undef);
+}
+ 
+sub show { 
+   my ($item, $get_size_only) = @_;  
+   $text = get();
+   $text="[".$text."]";
+   $item->default_handler($get_size_only,$text, undef, 1);
+}
+ 
+sub get_topic {
+   $topic = "";
+   $name = Irssi::active_win()->{active}->{name};
+   $type = Irssi::active_win()->{active}->{type};
+   $name = "Status" if($name eq "");
+   if($name eq "Status") { return "Irssi website: http://www.irssi.org, Irssi IRC channel: #irssi @ irc://irc.freenode:6667, twtopic has been written by Tech Wizard"; }
+   if($type eq "QUERY") {
+      $text = "You are now talking too...... ".$name;
+      return $text;
+      }
+   $channel = Irssi::Irc::Server->channel_find($name);
+   $topic = $channel->{topic};
+   foreach (@mirc_color_arr) { $topic =~ s/$_//g; }
+   return $topic;
+}
+
+sub get {
+   $str=get_topic();
+   $str =~ s/(\00313)+//;
+   $str =~ s/(\002)+//;
+   $str =~ s/(\001)+//;
+   $extra_str= "                                                                                                         ";
+   $size    = Irssi::settings_get_int('twtopic_size');
+   if($str eq "") {
+      my $str = "=-=-=-=-= No Topic=-=-=-=-=-=-=-";
+      }
+   @str_arr = split //, $str;
+   my $total = $#str_arr;
+   $str=substr($extra_str,0,$size).$str.$extra_str;
+   $text = substr($str,$start_pos,$size);
+   if($start_pos > $total+$size) {
+      $start_pos=0;
+      }
+   if(!$flipflop) {
+      $flipflop=1;
+      return $text;
+      }
+   $start_pos++;
+   $flipflop=0;
+   return $text;
+}
+
+Irssi::statusbar_item_register('twtopic', '$0', 'show');
+Irssi::signal_add('setup changed', 'setup');
+Irssi::settings_add_int('tech_addon', 'twtopic_refresh', 150);
+Irssi::settings_add_bool('tech_addon', 'twtopic_instruct', 1);
+Irssi::settings_add_int('tech_addon', 'twtopic_size',20);
+$timeout = Irssi::timeout_add(Irssi::settings_get_int('twtopic_refresh'), 'reload' , undef);
+sub reload { Irssi::statusbar_items_redraw('twtopic'); }
+
+if(Irssi::settings_get_bool('twtopic_instruct')) {
+   print $instrut;
+   }
+
diff --git a/scripts/u.pl b/scripts/u.pl
new file mode 100644
index 0000000..a552da7
--- /dev/null
+++ b/scripts/u.pl
@@ -0,0 +1,69 @@
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION = "1.2";
+%IRSSI = (
+    authors	=> "Michiel",
+    contact	=> "michiel\@dotgeek.org",
+    name	=> "List nicks in channel",
+    description	=> "BitchX /u clone. Use /u <regex> to show all nicks (including ident\@host) matching regex in the current channel.",
+    license	=> "GNU GPL",
+    url		=> "http://otoria.freecode.nl/~michiel/u.pl",
+    changed	=> "Thu Jun  3 11:04:27 CEST 2004",
+);
+
+
+sub cmd_u
+{
+	my ($data, $server, $channel) = @_;
+	my @nicks;
+	my $space;
+	my $msg;
+	my $match;
+	my $nick;
+
+	if ($channel->{type} ne "CHANNEL")
+	{
+		Irssi::print("You are not on a channel");
+		return;
+	}
+
+	@nicks = $channel->nicks();
+
+	$space = ' 'x50;
+
+	foreach $nick (@nicks)
+	{
+
+		# user status?
+		$msg = ($nick->{serverop} ? '[*' : '[ ');
+		$msg .= ($nick->{other} ? chr($nick->{other}) : ($nick->{op} ? '@' : ($nick->{halfop} ? '%' : ($nick->{voice} ? '+' : ' '))));
+
+		# if nick is too long, cut it off
+		if (length($nick->{nick}) > 10)
+		{
+			$msg .= substr($nick->{nick}, 0, 10)."] ";
+		}
+		else # if it is too short, add some spaces
+		{
+			$msg .= $nick->{nick}.substr($space, 0, 10-length($nick->{nick}))."] ";
+		}
+
+		# if host is too long, cut it off
+		if (length($nick->{host}) > 50)
+		{
+			$msg .= '['.substr($nick->{host}, 0, 50).']';
+		}
+		else # if it is too short, add some spaces
+		{
+			$msg .= '['.$nick->{host}.substr($space, 0, 50-length($nick->{host})).']';
+		}
+		
+		$match = $nick->{nick}.'!'.$nick->{host}; # For regexp matching
+
+		$channel->print($msg) if $match =~ /$data/i;
+		
+	}
+}
+
+Irssi::command_bind('u','cmd_u');
diff --git a/scripts/upgradeinfo.pl b/scripts/upgradeinfo.pl
new file mode 100644
index 0000000..eb28057
--- /dev/null
+++ b/scripts/upgradeinfo.pl
@@ -0,0 +1,132 @@
+# upgradeinfo - irssi 0.8.6.CVS 
+#
+#    $Id: upgradeinfo.pl,v 1.7 2003/02/04 02:29:57 peder Exp $
+#
+# Copyright (C) 2002, 2003 by Peder Stray <peder@ninja.no>
+#
+
+use strict;
+use Irssi 20021204.1123;
+use Irssi::TextUI;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.7 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'upgradeinfo',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/upgradeinfo.pl',
+          license     => 'GPL',
+          description => 'Statusbaritem notifying you about updated binary',
+	  sbitems     => 'upgradeinfo',
+         );
+
+# ======[ Variables ]===================================================
+
+my($load_time) = 0;		# modification time of binary at load
+my($file_time) = 0;		# modification time of binary file
+my($timer) = 0;			# ID of current timer
+
+# ======[ Commands ]====================================================
+
+# --------[ UPGRADEINFO ]-----------------------------------------------
+
+sub cmd_upgradeinfo {
+    my($param,$serv,$chan) = @_;
+
+    print CLIENTCRAP sprintf ">> load: %s", scalar localtime $load_time;
+    print CLIENTCRAP sprintf ">> file: %s", scalar localtime $file_time;
+
+}
+
+# ======[ Signal Hooks ]================================================
+
+# --------[ sig_setup_changed ]-----------------------------------------
+
+sub sig_setup_changed {
+    my($interval) = Irssi::settings_get_int('upgrade_check_interval');
+
+    Irssi::timeout_remove($timer);
+
+    if ($interval < 1) {
+	$interval = 0;
+    }
+
+    return unless $interval;
+
+    $interval *= 1000;
+    $timer = Irssi::timeout_add($interval, 'ui_check' , undef);
+}
+
+# ======[ Statusbar Hooks ]=============================================
+
+# --------[ sb_upgradeinfo ]--------------------------------------------
+
+sub sb_upgradeinfo {
+    my($item, $get_size_only) = @_;
+    my $format = "";
+    my($time);
+    my($timefmt) = Irssi::settings_get_str('upgrade_time_format');
+    
+    $time = $file_time - $load_time;
+    
+    if ($time) {
+	$time = sprintf($timefmt, 
+			$time/60/60/24,
+			$time/60/60%24,
+			$time/60%60,
+			$time%60
+		       );
+	$time =~ s/^(0+\D+)+//;
+	$format = "{sb %r$time%n}";
+    }
+    
+    $item->default_handler($get_size_only, $format, undef, 1);
+}
+
+# ======[ Timers ]======================================================
+
+# --------[ ui_check ]--------------------------------------------------
+
+sub ui_check {
+    $file_time = (stat Irssi::get_irssi_binary)[9];
+
+    Irssi::statusbar_items_redraw('upgradeinfo');
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind('upgradeinfo', 'cmd_upgradeinfo');
+
+# --------[ Register formats ]------------------------------------------
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_int('upgrade', 'upgrade_check_interval', 300);
+Irssi::settings_add_str('upgrade', 'upgrade_time_format', '%d+%02d:%02d');
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add('setup changed', 'sig_setup_changed');
+
+# --------[ Register statusbar items ]----------------------------------
+
+Irssi::statusbar_item_register('upgradeinfo', undef, 'sb_upgradeinfo');
+
+# --------[ Other setup ]-----------------------------------------------
+
+$load_time = (stat Irssi::get_irssi_binary)[9];
+$file_time = $load_time;
+
+sig_setup_changed;
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
diff --git a/scripts/upsidedown.pl b/scripts/upsidedown.pl
new file mode 100644
index 0000000..2f60976
--- /dev/null
+++ b/scripts/upsidedown.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# 
+# Irssi plugin to place text upside down
+# V0.1 - Initial script - Ivo Schooneman, 08-11-2012
+# V0.2 - usay/ume - Ivo Schooneman, 08-11-2012
+#
+use strict;
+use Text::UpsideDown;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.2";
+%IRSSI = (
+    authors     => "Ivo Schooneman",
+    contact     => "ivo\@schooneman.net",
+    name        => "upsidedown",
+    description => "Plugin to place text upsidedown",
+    license     => "GNU GPLv2",
+    url         => "https://github.com/Ivo-tje/Irssi-plugin-upsidedown",
+);
+
+sub ume {
+    my ($text, $server, $dest) = @_;
+
+    # Check if connected to server
+    if (!$server || !$server->{connected}) {
+  	Irssi::print("Not connected to server");
+   	return;
+    }
+
+    return unless $dest;
+
+    if ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY") {
+        $dest->command("me " . upside_down($text));
+    }
+}
+
+sub usay {
+    my ($text, $server, $dest) = @_;
+
+    # Check if connected to server
+    if (!$server || !$server->{connected}) {
+  	Irssi::print("Not connected to server");
+   	return;
+    }
+
+    return unless $dest;
+
+    if ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY") {
+        $dest->command("msg " . $dest->{name} . " " . upside_down($text));
+    }
+}
+
+Irssi::command_bind('usay', 'usay');
+Irssi::command_bind('ume', 'ume');
diff --git a/scripts/uptime.pl b/scripts/uptime.pl
new file mode 100644
index 0000000..114070c
--- /dev/null
+++ b/scripts/uptime.pl
@@ -0,0 +1,192 @@
+# uptime - irssi 0.7.98.CVS 
+#
+#    $Id: uptime.pl,v 1.6 2003/02/04 02:43:06 peder Exp $
+#
+# Copyright (C) 2002, 2003 by Peder Stray <peder@ninja.no>
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use Irssi::TextUI;
+
+# ======[ Script Header ]===============================================
+
+use vars qw{$VERSION %IRSSI};
+($VERSION) = '$Revision: 1.6 $' =~ / (\d+\.\d+) /;
+%IRSSI = (
+          name        => 'uptime',
+          authors     => 'Peder Stray',
+          contact     => 'peder@ninja.no',
+          url         => 'http://ninja.no/irssi/uptime.pl',
+          license     => 'GPL',
+          description => 'Try a little harder to figure out client uptime',
+	  sbitems     => 'uptime',
+         );
+
+# ======[ Variables ]===================================================
+
+my($timer) = 0;			# ID of current timer
+
+# ======[ Helper functions ]============================================
+
+# --------[ uptime_linux ]----------------------------------------------
+
+sub uptime_linux {
+    my($sys_uptime);
+    my($irssi_start);
+    local(*FILE);
+
+    open FILE, "< /proc/uptime";
+    $sys_uptime = (split " ", <FILE>)[0];
+    close FILE;
+
+    open FILE, "< /proc/$$/stat";
+    $irssi_start = (split " ", <FILE>)[21];
+    close FILE;
+
+    return $sys_uptime - $irssi_start/100;
+}
+
+# --------[ uptime_solaris ]--------------------------------------------
+
+sub uptime_solaris {
+    my($irssi_start);
+
+    $irssi_start = time - (stat("/proc/$$"))[9];
+
+    return $irssi_start;
+}
+
+# --------[ uptime ]----------------------------------------------------
+
+sub uptime {
+    my($sysname) = @_;
+    my($time);
+
+    if ($sysname eq 'Linux') {
+	$time = uptime_linux;
+    } elsif ($sysname eq 'SunOS') {
+	$time = uptime_solaris;
+    } else {
+	$time = time - $^T;
+    }
+
+    return $time;
+}
+
+# --------[ format_interval ]-------------------------------------------
+
+sub format_interval {
+    my($interval) = @_;
+
+    my(@interval,$str);
+    for (60, 60, 24, 365) {
+	push @interval, $interval%$_;
+	$interval = int($interval/$_);
+    }
+    $str = sprintf "%dy %dd %dh %dm %ds", $interval, @interval[3,2,1,0];
+    $str =~ s/^(0. )+//;
+
+    return $str;
+}
+
+# ======[ Commands ]====================================================
+
+# --------[ cmd_uptime ]------------------------------------------------
+
+sub cmd_uptime {
+    my($data,$server,$witem) = @_;
+    my($sysname) = Irssi::parse_special('$sysname');
+    my($uptime) = uptime($sysname);
+    my($str) = format_interval($uptime);
+
+    if ($data && $server) {
+	$server->command("MSG $data uptime: $str");
+    } elsif ($witem && ($witem->{type} eq "CHANNEL" ||
+                        $witem->{type} eq "QUERY")) {
+	$witem->command("MSG ".$witem->{name}." uptime: $str");
+    } else {
+	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'uptime',
+			   $str, $sysname);
+    }
+}
+
+# ======[ Signal Hooks ]================================================
+
+# --------[ sig_setup_changed ]-----------------------------------------
+
+sub sig_setup_changed {
+    my($interval) = Irssi::settings_get_int('uptime_refresh_interval');
+
+    Irssi::timeout_remove($timer);
+
+    if ($interval < 1) {
+	$interval = 0;
+    }
+
+    return unless $interval;
+
+    $interval *= 1000;
+    $timer = Irssi::timeout_add($interval, 'uptime_refresh' , undef);
+}
+
+# ======[ Statusbar Hooks ]=============================================
+
+# --------[ sb_uptime ]-------------------------------------------------
+
+sub sb_uptime {
+    my($item, $get_size_only) = @_;
+    my $format = "";
+    my($uptime) = uptime(Irssi::parse_special('$sysname'));
+    my($time) = format_interval($uptime);
+    
+    $format = "{sb %g$time%n}";
+    
+    $item->default_handler($get_size_only, $format, undef, 1);
+}
+
+# ======[ Timers ]======================================================
+
+# --------[ uptime_refresh ]--------------------------------------------
+
+sub uptime_refresh {
+    Irssi::statusbar_items_redraw('uptime');
+}
+
+# ======[ Setup ]=======================================================
+
+# --------[ Register commands ]-----------------------------------------
+
+Irssi::command_bind('uptime', 'cmd_uptime');
+
+# --------[ Register formats ]------------------------------------------
+
+Irssi::theme_register(
+[
+ 'uptime',
+ '{line_start}{hilight Uptime:} $0 ($1)',
+]);
+
+# --------[ Register settings ]-----------------------------------------
+
+Irssi::settings_add_int('upgrade', 'uptime_refresh_interval', 12);
+
+# --------[ Register signals ]------------------------------------------
+
+Irssi::signal_add('setup changed', 'sig_setup_changed');
+
+# --------[ Register statusbar items ]----------------------------------
+
+Irssi::statusbar_item_register('uptime', undef, 'sb_uptime');
+
+# --------[ Other setup ]-----------------------------------------------
+
+sig_setup_changed;
+
+# ======[ END ]=========================================================
+
+# Local Variables:
+# header-initial-hide: t
+# mode: header-minor
+# end:
diff --git a/scripts/url_log.pl b/scripts/url_log.pl
new file mode 100644
index 0000000..fdcf09e
--- /dev/null
+++ b/scripts/url_log.pl
@@ -0,0 +1,393 @@
+# url grabber, yes it sucks
+#
+# infected with the gpl virus
+#
+# Thomas Graf <tgraf@europe.com>
+#
+# version: 0.2
+#
+# Commands:
+#
+#   /URL LIST
+#   /URL CLEAR
+#   /URL OPEN [<nr>]
+#   /URL QUOTE [<nr>]
+#   /URL HEAD [<nr>]            !! Blocking !!
+#   /HEAD <url>                 !! Blocking !!
+#
+# Config Values
+#
+# [url logfile]
+#  url_log                log urls to url_log_file
+#  url_log_file           file to save urls
+#  url_log_format         format in url logfile
+#  url_log_timestamp      format of timestamp in url logfile
+#
+# [url log in memory]
+#  url_log_browser        command to execute to open url, %f will be replaced with the url
+#  url_log_size           keep that many urls in the list
+#
+# [http head stuff]
+#  url_head_format        format of HEAD output
+#  url_auto_head          do a head on every url received
+#  url_auto_head_format   format of auto head output
+#
+#
+# Database installation
+# - create database and user
+# - create table url ( id INT UNSIGNED NOT NULL PRIMARY KEY AUTO_INCREMENT,
+#      time INT UNSIGNED, nick VARCHAR(25), target VARCHAR(25), url VARCHAR(255));
+#   or similiar :)
+#
+#
+# todo:
+#
+#  - fix XXX marks
+#  - xml output?
+#  - don't output "bytes" if content-length is not available
+#  - prefix with http:// if no prefix is given
+
+use Irssi;
+use Irssi::Irc;
+
+$VERSION = "0.2";
+%IRSSI = (
+    authors     => 'Thomas Graf',
+    contact     => 'irssi@reeler.org',
+    name        => 'url_log',
+    description => 'logs urls to textfile or/and database, able to list, quote, open or `http head` saved urls.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.reeler.org/url/',
+);
+
+use LWP;
+use LWP::UserAgent;
+use HTTP::Status;
+use DBI;
+
+use POSIX qw(strftime);
+
+use strict;
+
+my @urls;
+my $user_agent = new LWP::UserAgent;
+
+$user_agent->agent("IrssiUrlLog/0.2");
+
+# hmm... stolen..
+# -verbatim- import expand
+sub expand {
+  my ($string, %format) = @_;
+  my ($exp, $repl);
+  $string =~ s/%$exp/$repl/g while (($exp, $repl) = each(%format));
+  return $string;
+}
+# -verbatim- end
+
+sub print_msg
+{
+    Irssi::active_win()->print("@_");
+}
+
+#
+# open url in brower using url_log_brower command
+#
+sub open_url
+{
+    my ($data) = @_;
+
+    my ($nick, $target, $url) = split(/ /, $data);
+
+    my $pid = fork();
+
+    if ($pid) {
+        Irssi::pidwait_add($pid);
+    } elsif (defined $pid) { # $pid is zero here if defined
+        my $data = expand(Irssi::settings_get_str("url_log_browser"), "f", $url);
+        # XXX use exec
+        system $data;
+        exit;
+    } else {
+        # weird fork error
+        print_msg "Can't fork: $!";
+    }
+}
+
+sub head
+{
+    my ($url) = @_;
+    my $req = new HTTP::Request HEAD => $url;
+    my $res = $user_agent->request($req);
+    return $res;
+}
+
+#
+# do a HEAD
+#
+sub do_head
+{
+    my ($url) = @_;
+
+    my $res = head($url);
+
+    if ($res->code ne RC_OK) {
+        Irssi::active_win()->printformat(MSGLEVEL_CRAP, 'url_head', $url, "\n" .
+            $res->status_line());
+    } else {
+
+        my $t = expand(Irssi::settings_get_str("url_head_format"),
+           "u", $url,
+           "t", scalar $res->content_type,
+           "l", scalar $res->content_length,
+           "s", scalar $res->server);
+
+        Irssi::active_win()->printformat(MSGLEVEL_CRAP, 'url_head', $url, $t);
+    }
+}
+
+#
+# called if url is detected, should do a HEAD and print a 1-liner
+#
+sub do_auto_head
+{
+    my ($url, $window) = @_;
+
+    return if ($url !~ /^http:\/\//);
+
+    my $res = head($url);
+
+    if ($res->code ne RC_OK) {
+        $window->printformat(MSGLEVEL_CRAP, 'url_auto_head', $res->status_line());
+    } else {
+
+        my $t = expand(Irssi::settings_get_str("url_auto_head_format"),
+           "u", $url,
+           "c", $res->code,
+           "t", scalar $res->content_type,
+           "l", scalar $res->content_length,
+           "s", scalar $res->server);
+
+        $window->printformat(MSGLEVEL_CRAP, 'url_auto_head', $t);
+    }
+}
+
+#
+# log url to file
+#
+sub log_to_file
+{
+    my ($nick, $target, $text) = @_;
+    my ($lfile) = glob Irssi::settings_get_str("url_log_file");
+
+    if ( open(LFD, ">> $lfile") ) {
+
+        my %h = {
+            time => time,
+            nick => $nick,
+            target => $target,
+            url => $text
+        };
+
+        print LFD expand(Irssi::settings_get_str("url_log_format"),
+          "s", strftime(Irssi::settings_get_str("url_log_timestamp_format"), localtime),
+          "n", $nick,
+          "t", $target,
+          "u", $text), "\n";
+
+        close LFD;
+    } else {
+        print_msg "Warning: Unable to open file $lfile $!";
+    }
+}
+
+
+#
+# log url to database
+#
+sub log_to_database
+{
+    my ($nick, $target, $text) = @_;
+
+    # this is quite expensive, but...
+    my $dbh = DBI->connect(Irssi::settings_get_str("url_log_db_dsn"),
+                           Irssi::settings_get_str("url_log_db_user"),
+                           Irssi::settings_get_str("url_log_db_password"))
+    or print_msg "Can't connect to database " . $DBI::errstr;
+
+    if ($dbh) {
+
+        my $sql = "INSERT INTO url (time, nick, target, url) VALUES (UNIX_TIMESTAMP()," .
+          $dbh->quote($nick) . "," . $dbh->quote($target) . "," . $dbh->quote($text) . ")";
+
+        $dbh->do($sql) or print_msg "Can't execute sql command: " . $DBI::errstr;
+
+        $dbh->disconnect();
+    }
+}
+
+#
+# head command handler
+#
+sub sig_head
+{
+    my ($cmd_line, $server, $win_item) = @_;
+    my @args = split(' ', $cmd_line);
+
+    my $url;
+
+    if (@args <= 0) {
+
+        if ($#urls eq 0) {
+            return;
+        }
+
+        $url = $urls[$#urls];
+        $url =~ s/^.*?\s.*?\s//;
+    } else {
+        $url = lc(shift(@args));
+    }
+
+    do_head($url);
+}
+
+#
+# msg handler
+#
+sub sig_msg
+{
+    my ($server, $data, $nick, $address) = @_;
+    my ($target, $text) = split(/ :/, $data, 2);
+
+    # very special, but better than just \w::/* and www.*
+    while ($text =~ s#.*?(^|\s)(\w+?://.+?|[\w\.]{3,}/[\w~\.]+?(/|/\w+?\.\w+?))(\s|$)(.*)#$5#i) {
+
+        return if ($1 =~ /^\.\./);
+
+        push @urls, "$nick $target $2";
+
+        # XXX resize correctly if delta is > 1
+        if ($#urls >= Irssi::settings_get_int("url_log_size")) {
+            shift @urls;
+        }
+
+        my $ischannel = $server->ischannel($target);
+        my $level = $ischannel ? MSGLEVEL_PUBLIC : MSGLEVEL_MSGS;
+        $target = $nick unless $ischannel;
+        my $window = $server->window_find_closest($target, $level);
+
+        if ( Irssi::settings_get_bool("url_log_auto_head") ) {
+            do_auto_head($2, $window);
+        }
+
+        if ( Irssi::settings_get_bool("url_log") ) {
+            log_to_file($nick, $target, $2);
+        }
+
+        if ( Irssi::settings_get_bool("url_log_db") ) {
+            log_to_database($nick, $target, $2);
+        }
+    }
+}
+
+sub print_url_list_item
+{
+    my ($n, $data) = @_;
+    my ($src, $dst, $url) = split(/ /, $data);
+
+    Irssi::active_win()->printformat(MSGLEVEL_CRAP, 'url_list', $n, $src, $dst, $url);
+}
+
+#
+# url command handler
+#
+sub sig_url
+{
+    my ($cmd_line, $server, $win_item) = @_;
+    my @args = split(' ', $cmd_line);
+
+    if (@args <= 0) {
+        print_msg "URL LIST [<nr>]       list all url(s)";
+        print_msg "    OPEN [<nr>]       open url in browser";
+        print_msg "    QUOTE [<nr>]      quote url (print to current channel)";
+        print_msg "    HEAD              send HEAD to server";
+        print_msg "    CLEAR             clear url list";
+        return;
+    }
+
+    my $action = lc(shift(@args));
+
+    if ($action eq "list") {
+
+        if (@args > 0) {
+            my $i = shift(@args);
+            print_url_list_item($i, $urls[$i]);
+        } else {
+            my $i = 0;
+            foreach my $l (@urls) {
+                print_url_list_item($i, $l);
+                $i++;
+            }
+        }
+
+    } elsif($action eq "open") {
+
+        my $i = $#urls;
+        if (@args > 0) {
+            $i = shift(@args);
+        }
+        open_url($urls[$i]);
+
+    } elsif ($action eq "quote") {
+
+        my $i = $#urls;
+        if (@args > 0) {
+            $i = shift(@args);
+        }
+        Irssi::active_win()->command("SAY URL: " . $urls[$i]);
+
+    } elsif ($action eq "clear") {
+
+        splice @urls;
+
+    } elsif ($action eq "head") {
+
+        my $i = $#urls;
+        if (@args > 0) {
+            $i = shift(@args);
+        }
+        my $url = $urls[$i];
+        $url =~ s/^.*?\s.*?\s//;
+
+        do_head($url);
+
+    } else {
+        print_msg "Unknown action";
+    }
+}
+
+
+Irssi::command_bind('head', 'sig_head');
+Irssi::command_bind('url', 'sig_url');
+Irssi::signal_add_first('event privmsg', 'sig_msg');
+
+Irssi::settings_add_bool("url_log", "url_log", 1);
+Irssi::settings_add_bool("url_log", "url_log_auto_head", 1);
+Irssi::settings_add_bool("url_log", "url_log_db", 0);
+Irssi::settings_add_str("url_log", "url_log_db_dsn", 'DBI:mysql:irc_url:localhost');
+Irssi::settings_add_str("url_log", "url_log_db_user", 'irc_url');
+Irssi::settings_add_str("url_log", "url_log_db_password", 'nada');
+Irssi::settings_add_str("url_log", "url_log_file", "~/.irssi/url");
+Irssi::settings_add_str("url_log", "url_log_timestamp_format", '%c');
+Irssi::settings_add_str("url_log", "url_log_format", '%s %n %t %u');
+Irssi::settings_add_str("url_log", "url_log_browser", 'galeon -n -x %f > /dev/null');
+Irssi::settings_add_int("url_log", "url_log_size", 25);
+Irssi::settings_add_str("url_log", "url_auto_head_format", '%c %t %l bytes');
+Irssi::settings_add_str("url_log", "url_head_format", '
+Content-Type: %t
+Length:       %l bytes
+Server:       %s');
+
+
+Irssi::theme_register(['url_head', '[%gHTTP Head%n %g$0%n]$1-',
+                       'url_auto_head', '[%gHEAD%n] $0-',
+                       'url_list', '[$0] $1 %W$2%n $3-']);
diff --git a/scripts/urlfeed.pl b/scripts/urlfeed.pl
new file mode 100644
index 0000000..7d9a8f0
--- /dev/null
+++ b/scripts/urlfeed.pl
@@ -0,0 +1,258 @@
+#!/usr/bin/perl -w
+#
+# this is a VERY experimental code, use at own risk
+#
+# WARNING:
+#  Because of XML::RSS brokeness, this code won't work as expected with
+#  characters codes >127. You might try to workaround it, by adding
+#  binmode(OUT, "encoding($self->{'encoding'})"); to XML/RSS.pm:save()
+#  but even then, UTF8 stuff will break your script.
+#  Somebody should really fix XML::RSS.
+#
+# TODO:
+#  - make urlfeed_title, urlfeed_link, urlfeed_description work for
+#    already-created feeds, not only the new ones
+#  - some exclude-list would be useful I guess
+#  - enhance urlfeed_find_url() maybe
+#  - TEST IT! it's not idiot-proof at the moment
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+use POSIX qw(strftime);
+use Irssi;
+use Irssi::Irc;
+use XML::RSS;
+
+$VERSION = '1.28';
+
+%IRSSI = (
+    authors     => 'Jakub Jankowski',
+    contact     => 'shasta@toxcorp.com',
+    name        => 'URLfeed',
+    description => 'Provides RSS feeds with URLs pasted on your channels.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://toxcorp.com/irc/irssi/urlfeed/',
+    changed     => '$Date: 2008-06-16 20:10:41 +0200 (pon, 16 cze 2008) $'
+);
+
+# $stripchan is replaced with channel name, BUT with stripped #!&+
+# $chan is replaced with channel name
+# $tag is replaced with server tag
+
+my $rss_title = 'URLs on $chan';
+my $rss_link = 'http://toxcorp.com/irc/irssi/';
+my $rss_description = 'List of URLs recently pasted on $chan $tag channel';
+my $rss_path = $ENV{HOME}.'/public_html/rss/$tag/$stripchan.rdf';
+my $rss_bundle_path = $ENV{HOME}.'/public_html/rss/all.rdf';
+my $max_items = 15;
+my $bundle_max_items = 40;
+my $debug = 1;
+my $provide_bundle = 0;
+
+sub urlfeed_build_path {
+  my ($tag, $chan) = @_;
+  my ($stripchan) = $chan =~ /^[\!\#\&\+](.+)/g;
+  my $str = Irssi::settings_get_str('urlfeed_path');
+  $str =~ s/\$tag/$tag/gi;
+  $str =~ s/\$chan/$chan/gi;
+  $str =~ s/\$stripchan/$stripchan/gi;
+  $str .= $chan . ".rdf" if ($str =~ /\/$/);
+  return $str;
+}
+
+sub urlfeed_replace ($$$) {
+  my ($str, $tag, $chan) = @_;
+  my ($stripchan) = $chan =~ /^[\!\#\&\+](.+)/g;
+  $str =~ s/\$tag/$tag/gi;
+  $str =~ s/\$chan/$chan/gi;
+  $str =~ s/\$stripchan/$stripchan/gi;
+  return $str;
+}
+
+sub urlfeed_touch_file ($) {
+  my ($f) = @_;
+  my ($basedir) = $f =~ /(.*)\/[^\/]*$/;
+  my @dirs = split(/[\/]+/, $basedir);
+  local *FH;
+  my $path = "";
+
+  foreach my $idx (1..$#dirs) {
+    $path .= "/" . $dirs[$idx];
+    if (! -d $path) {
+      Irssi::print("URLfeed warning: $path is not a dir, trying to mkdir");
+      eval { mkdir($path); };
+      if ($@) {
+	Irssi::print("URLfeed error: couldn't mkdir($path): $@");
+	return 0;
+      }
+    }
+  }
+
+  if (! -w $basedir) {
+    Irssi::print("URLfeed error: $basedir isn't writable");
+    return 0;
+  }
+
+  eval { open(FH, "+<$f"); };
+  if ($@) {
+    Irssi::print("URLfeed error: couldn't open $f for writing: $@");
+    return 0;
+  }
+
+  close(FH);
+
+  return 1;
+}
+
+sub urlfeed_format_time ($) {
+  my @t = localtime($_[0]);
+  my $time = strftime("%Y-%m-%dT%H:%M:%S", @t);
+  my $tzd = strftime("%z", @t);
+  return sprintf("%s%s:%s", $time, substr($tzd,0,3), substr($tzd,3));
+}
+
+# we might make use of timestamp someday
+sub urlfeed_rss_add {
+  my ($timestamp, $tag, $chan, $nickname, $text, $url) = @_;
+
+  return 0 unless (defined $url && defined $tag && defined $chan);
+
+  $nickname = "guest" unless (defined $nickname);
+  $text = $url unless (defined $text);
+
+  my $filename = urlfeed_build_path($tag, $chan);
+  if (!urlfeed_touch_file($filename)) {
+    Irssi::print("URLfeed error: Couldn't touch $filename");
+    return 0;
+  }
+
+  my $rss = new XML::RSS (version => '1.0', encoding => 'ISO-8859-1');
+  eval { $rss->parsefile($filename); };
+  if ($@) {
+    Irssi::print("URLfeed notice: rss->parsefile($filename) failed. Creating new RSS") if (Irssi::settings_get_bool('urlfeed_debug'));
+    $rss->channel(
+      title        => urlfeed_replace(Irssi::settings_get_str('urlfeed_title'), $tag, $chan),
+      link         => urlfeed_replace(Irssi::settings_get_str('urlfeed_link'), $tag, $chan),
+      description  => urlfeed_replace(Irssi::settings_get_str('urlfeed_description'), $tag, $chan)
+    );
+  }
+
+  # tiny spam protection
+  foreach my $item (@{$rss->{'items'}}) {
+    return 0 if (lc($url) eq lc($item->{'link'}));
+  }
+
+  my $guard = 0;
+  while (@{$rss->{'items'}} >= Irssi::settings_get_int('urlfeed_max_items') && $guard++ < 10000) {
+    pop(@{$rss->{'items'}});
+  }
+
+  $rss->add_item(title => $text,
+                 link  => $url,
+		 dc    => { creator => $nickname, date => urlfeed_format_time($timestamp) },
+                 mode  => 'insert'
+            );
+
+  $rss->save($filename);
+
+  return 1 unless (Irssi::settings_get_bool('urlfeed_provide_bundle'));
+
+  # now do the bundle part
+  $filename = Irssi::settings_get_str('urlfeed_bundle_path');
+  if (!urlfeed_touch_file($filename)) {
+    Irssi::print("URLfeed error: Couldn't touch $filename");
+    return 0;
+  }
+  my $brss = new XML::RSS (version => '1.0', encoding => 'ISO-8859-1');
+  eval { $brss->parsefile($filename); };
+  if ($@) {
+    Irssi::print("URLfeed notice: rss->parsefile($filename) failed. Creating new RSS") if (Irssi::settings_get_bool('urlfeed_debug'));
+    $brss->channel(
+      title        => 'URL feed from IRC',
+      link         => 'http://toxcorp.com/irc/irssi/',
+      description  => 'RSS feed with URLs pasted on IRC networks'
+    );
+  }
+
+  # tiny spam protection
+  foreach my $item (@{$brss->{'items'}}) {
+    return 0 if (lc($url) eq lc($item->{'link'}));
+  }
+
+  my $guard = 0;
+  while (@{$brss->{'items'}} >= Irssi::settings_get_int('urlfeed_bundle_max_items') && $guard++ < 10000) {
+    pop(@{$brss->{'items'}});
+  }
+
+  $brss->add_item(title => $text,
+                 link  => $url,
+		 dc    => { creator => $nickname . " on " . $tag, date => urlfeed_format_time($timestamp) },
+                 mode  => 'insert'
+            );
+
+  $brss->save($filename);
+
+  return 1;
+}
+
+# based on urlgrab.pl by David Leadbeater
+sub urlfeed_find_urls {
+  my ($text) = @_;
+  my @chunks = split(/[ \t]+/, $text);
+  my @urls = ();
+
+  foreach my $chunk (@chunks) {
+    if($chunk =~ /((ftp|http|https):\/\/[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~\,]+)/i) {
+      push(@urls, $1);
+    } elsif ($chunk =~ /(www\.[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~\,]+)/i) {
+      push(@urls, "http://" . $1);
+    }
+  }
+  return @urls;
+}
+
+sub urlfeed_process {
+  my ($time, $tag, $target, $nick, $text) = @_;
+
+  my @urls = urlfeed_find_urls($text);
+
+  foreach my $url (@urls) {
+    my $retval = urlfeed_rss_add($time, $tag, $target, $nick, $text, $url);
+    if (Irssi::settings_get_bool('urlfeed_debug')) {
+      # escape url, in case it needs to be Irssi::print()ed
+      $url =~ s/\%/\%\%/g;
+      if ($retval == 1) {
+	Irssi::print("URLfeed notice: URL $url (pasted by $nick on $target/$tag) successfully added to RSS feed.");
+      } elsif ($retval == 0) {
+	Irssi::print("URLfeed notice: Adding URL $url (pasted by $nick on $target/$tag) to RSS failed.");
+      }
+    }
+  }
+}
+
+sub urlfeed_message_own_public {
+  my ($server, $text, $target) = @_;
+  return unless ($target =~ /^[\!\#\&\+]/);
+  $target = '!' . substr($target, 6) if ($target =~ /^\!/);
+  urlfeed_process(time, $server->{tag}, lc($target), $server->{nick}, $text);
+}
+
+sub urlfeed_message_public {
+  my ($server, $text, $nick, $hostmask, $target) = @_;
+  return unless ($target =~ /^[\!\#\&\+]/);
+  urlfeed_process(time, $server->{tag}, lc($target), $nick, $text);
+}
+
+Irssi::settings_add_bool('urlfeed', 'urlfeed_debug',     $debug);
+Irssi::settings_add_bool('urlfeed', 'urlfeed_provide_bundle', $provide_bundle);
+Irssi::settings_add_int ('urlfeed', 'urlfeed_max_items', $max_items);
+Irssi::settings_add_int ('urlfeed', 'urlfeed_bundle_max_items', $bundle_max_items);
+Irssi::settings_add_str ('urlfeed', 'urlfeed_title',     $rss_title);
+Irssi::settings_add_str ('urlfeed', 'urlfeed_link',      $rss_link);
+Irssi::settings_add_str ('urlfeed', 'urlfeed_description', $rss_description);
+Irssi::settings_add_str ('urlfeed', 'urlfeed_path',      $rss_path);
+Irssi::settings_add_str ('urlfeed', 'urlfeed_bundle_path',      $rss_bundle_path);
+
+Irssi::signal_add_last('message public',     'urlfeed_message_public');
+Irssi::signal_add_last('message own_public', 'urlfeed_message_own_public');
diff --git a/scripts/urlgrab.pl b/scripts/urlgrab.pl
new file mode 100644
index 0000000..ad32655
--- /dev/null
+++ b/scripts/urlgrab.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+use Irssi 20010120.0250 ();
+$VERSION = "0.2";
+%IRSSI = (
+    authors     => 'David Leadbeater',
+    contact     => 'dgl@dgl.cx',
+    name        => 'urlgrab',
+    description => 'Captures urls said in channel and private messages and saves them to a file, also adds a /url command which loads the last said url into mozilla.',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+use strict;
+my $lasturl;
+
+# Change the file path below if needed
+my $file = "$ENV{HOME}/.urllog";
+
+sub url_public{
+   my($server,$text,$nick,$hostmask,$channel)=@_;
+   my $url = find_url($text);
+   url_log($nick, $channel, $url) if defined $url;
+}
+
+sub url_private{
+   my($server,$text,$nick,$hostmask)=@_;
+   my $url = find_url($text);
+   url_log($nick, $server->{nick}, $url) if defined $url;
+}
+
+sub url_cmd{
+   if(!$lasturl){
+	  Irssi::print("No url captured yet");
+	  return;
+   }
+   system("netscape-remote -remote 'openURL($lasturl)' &>/dev/null");
+}
+
+sub find_url {
+   my $text = shift;
+   if($text =~ /((ftp|http):\/\/[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~]*)/i){
+	  return $1;
+   }elsif($text =~ /(www\.[a-zA-Z0-9\/\\\:\?\%\.\&\;=#\-\_\!\+\~]*)/i){
+	  return "http://".$1;
+   }
+   return undef;
+}
+
+sub url_log{
+   my($where,$channel,$url) = @_;
+   return if lc $url eq lc $lasturl; # a tiny bit of protection from spam/flood
+   $lasturl = $url;
+   open(URLLOG, ">>$file") or return;
+   print URLLOG time." $where $channel $lasturl\n";
+   close(URLLOG);
+}
+
+Irssi::signal_add_last("message public", "url_public");
+Irssi::signal_add_last("message private", "url_private");
+Irssi::command_bind("url", "url_cmd");
+
diff --git a/scripts/urlplot.pl b/scripts/urlplot.pl
new file mode 100644
index 0000000..cbc9ba4
--- /dev/null
+++ b/scripts/urlplot.pl
@@ -0,0 +1,841 @@
+use strict;
+#use warnings;	# Not a default module in perl 5.005
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.2';
+%IRSSI = (
+	authors		=> 'bwolf',
+	contact		=> 'bwolf@geekmind.org',
+	name		=> 'urlplot',
+	description	=> 'URL grabber with HTML generation and cmd execution',
+	license		=> 'BSD',
+	url		=> 'http://www.geekmind.net',
+	changed		=> 'Sun Jun 16 14:00:13 CEST 2002'
+);
+
+# To read the documentation you may use one of the following commands:
+#
+# pod2man urlplot.pl | nroff -man | more
+# pod2text urlplot.pl | more
+# pod2man urlplot.pl | troff -man -Tps -t > urlplot.ps
+
+=head1 NAME
+
+urlplot
+
+=head1 SYNOPSIS
+
+All URL loggers suck. This one just sucks less.
+
+=head1 DESCRIPTION
+
+urlplot watches your channels for URLs and creates nice HTML logfiles of it.
+Actually it parses normal text and topic changes for URLs. Internally it uses
+two caches to prevent flooding and logging of duplicate URLs. As an additional
+feature urlplot can create CSV datafiles. Logfiles can be created for all
+channels and for separate channels. Logging can be allowed and denied on a per
+channel/nick basis. A lockfile is used to protect the caches and logfiles from
+accessing them by multiple irssi instances. A command allows you to send a
+logged URL to your webbrowser of choice.  
+
+The format of the CSV logfiles is as follows:
+date nick channel url
+
+=head1 GETTING STARTED
+
+Copy urlplot.pl intoF< $HOME/.irssi/scripts> and create the necessary
+directories withC< mkdir -p>F< $HOME/.irssi/urlplot/urls>. 
+Look for the settingsC< url_log_basedir> andC< url_db_basedir> if you want to
+change the directories urlplot will populate with files.
+Follow the documentation and configure urlplot to fit your needs.
+
+=head1 COMMANDS
+
+=head2 /url <integer>
+
+Executes the commandC< url_command> with an URL from the cache as its
+argument. If no number has been specified it defaults to nth URL logged which
+references the most recently logged URL.
+
+=head2 /url -list
+
+Displays a list of all logged URLs.
+
+=head2 /url -clearcache
+
+Clears the cache databases.
+
+=head /url -showlog 
+ 
+ExecutesC< url_command> withC< url_navigate> as its argument. It can be used
+to display the main logfile in your favourite webbrowser.
+
+=head1 SETTINGS
+
+=head2 Pathnames
+
+Please note that you can't use $HOME or any environment variables in the
+settings because irssi/urlplot isn't a shell ;)
+
+=head2 /set url_command <string>
+
+Command to be executed to display an URL (see /url). The command string should
+contain the sequence C<__URL__> which will be replaced by a certain URL.
+
+The default is:
+C< mozilla -remote "openURL(__URL__)" E<gt> /dev/null 2E<gt>&1 || \ >
+C< mozilla "__URL__"& >
+
+This will send a certain URL to mozilla or it will start mozilla if it is not
+already there. The string can be anything. For example I use the following:
+C< ssh host /home/user/bin/mozopenurl "'__URL__'" >/dev/null 2>&1 &>
+where mozopenurl is a shell script that contains similar code as the mozilla
+-remote example above.
+
+=head2 /set url_cache_max <integer>
+
+Specifies the maximum count of items which will be held in the persisten URL
+caches. A value of zero disables automatic cache resizing (round-robbin). The
+default is to keep the last 90 URLs.
+
+=head2 /set url_log_basedir <path>
+
+Specifies the logging base directory used to create the log files beneath it.
+The default isF< $HOME/.irssi/urlplot/urls/>. You have to create directories
+by yourself:C< mkdir -p>F< $HOME/.irssi/urlplot/urls>.
+
+=head2 /set url_log_file_name <relative-filename>
+
+Defines the filename of the full logfile.  It will be passed to I<
+strftime(3)>. This can be usefull to create logfiles with a timestamp.
+The file will be created relative toC< url_log_basedir>. The default 
+isF< ircurls.html>.
+
+=head2 /set url_chan_prefix <string>
+
+Defines the filename prefix for channel logfiles. The leadingC< # >of the
+channel name will be replaced by this prefix. It will be passed to
+I<strftime(3)>. The file will be created relative toC< url_log_basedir>. The
+default isF< chan_>.
+
+=head2 /set url_chan_logging <bool>
+
+Enables or disable channel logging globally.
+The default isC< ON>.
+
+=head2 /set url_log_csv_file_name <relative-filename>
+
+Defines the filename of the full CSV logfile. It will be passed to
+I<strftime(3)>. The file will be created relative toC< url_log_basedir>. The
+default isF< ircurls.csv>.
+
+=head2 /set url_log_csv_file_max_size <integer>
+
+Defines the maximum size of the full CSV logfile. If it reaches the specified
+maximum size in bytes it will be simply resized to zero. The default isC< 30*1024> 
+bytes.
+
+=head2 /set url_log_csv_separator <string>
+
+Defines the separator used as a delimeter for the fields of the CSV files.
+The default isC< |>.
+
+=head2 /set url_csv_logging <bool>
+
+Conditionally turns on or off CSV logging for the full logfile. The default
+isC< OFF>.
+
+=head2 /set url_csv_chan_logging <bool>
+
+Conditionally turns on or off CSV logging of the channel logfiles. The default isC< OFF>.
+
+=head2 /set url_time_format <string>
+
+Specifies the time format that will be passed toI< strftime(3)> to produce an
+ASCII representation of the time/date when an URL was grabbed. It will be used
+in the logfiles. The default isC< %Y:%m:%d - %H:%M:%S>.
+
+=head2 /set url_log_file_max_size <integer>
+
+Defines the maximum size of the full logfile and the channel logfile. If it
+reaches the specified maximum size in bytes it will be simply resized to zero.
+The default isC< 30*1024> bytes.
+
+=head2 /set url_log_file_autoreload_time <integer>
+
+Intervall in seconds used for the HTML logfile header. The logfile reloads
+itself every N seconds. The default isC< 90> seconds.
+
+=head2 /set url_db_basedir <path>
+
+Specifies the database base directory where two database files and a lockfile
+will be created. The default isF< $HOME/.irssi/urlplot>. You have to create
+the directory by yourself.
+
+=head2 /set url_db_cache_a_filename <relative-filename>
+
+Defines the filename of the index URL database. The file will be created
+relative toC< url_db_basedir>. The default isF< a_cache>.
+
+=head2 /set url_db_cache_h_filename <relative-filename>
+
+Defines the filename of the hash URL database. The file will be created
+relative toC< url_db_basedir>. The default isF< h_cache>.
+
+=head2 /set url_db_lock_filename <relative-filename>
+
+Defines the filename of the lockfile used to lock all logfiles and the cache
+databases. It will be created relative toC< url_db_basedir>. The default 
+isF< lockfile>.
+
+=head2 /set url_policy_default <allow|deny>
+
+Specifies the default policy that will be used to decide if logging ist
+permitted for a certain nick or channel. This can be eitherC< allow> 
+orC< deny>. If you set this toC< deny> you will have to allow explicitly those
+channels and nicks for which logging should be permitted. In contrast if you
+set it to allow, you can deny logging for certain nicks and channels.
+The keysC< url_policy_chans> andC< url_policy_nicks> control the allow, deny
+behaviour depending onC< url_policy_default>. The default isC< allow> which
+permits logging of all channels and nicks.
+
+=head2 /set url_policy_chans <string>
+
+Specifies those channels for whoom logging is permitted or denied. Multiple
+channels may be specified by usingC< ,>C< ;>C< :> or a space to separate the
+items.
+
+=head2 /set url_policy_nicks <string>
+
+SeeC< url_policy_chans> and replace the word channel by nick.
+
+=head2 /set url_navigate <string>
+
+ExecutesC< url_command> withC< url_navigate> as its argument. It can be used
+to display the main logfile in your favourite webbrowser. Because you may pass
+this command at anytime to your webbrowser it will not be passed to strftime.
+Thus you can only specify a static file here.
+
+=head1 AUTHOR
+
+Marcus Geiger <bwolf@geekmind.org>
+
+=cut
+
+use integer;
+use Irssi;
+use POSIX qw(strftime);
+use Fcntl qw(:DEFAULT :flock);
+use DB_File;
+
+# Regexps
+sub URL_SCHEME_REGEX()			{ '(http|ftp|https|news|irc)' }
+sub URL_GUESS_REGEX()			{ '(www|ftp)' }
+sub URL_BASE_REGEX()			{ '[a-z0-9_\-+\\/:?%.&!~;,=\#<>]' }
+
+# Other
+sub BACKWARD_SEEK_BYTES()		{ 130 }
+sub LOG_FILE_MARKER()			{ '<!-- bottom-line -->' }
+
+# Keys for settings
+sub KEY_URL_COMMAND()			{ 'url_command' } 
+sub KEY_URL_CACHE_MAX()			{ 'url_cache_max' }
+sub KEY_URL_LOG_BASEDIR()		{ 'url_log_basedir' }
+sub KEY_URL_LOG_FILE_NAME()		{ 'url_log_file_name' }
+sub KEY_URL_CHAN_PREFIX()		{ 'url_chan_prefix' }
+sub KEY_URL_CHAN_LOGGING()		{ 'url_chan_logging' }
+sub KEY_URL_LOG_CSV_FILE_NAME()		{ 'url_log_csv_file_name' }
+sub KEY_URL_LOG_CSV_FILE_MAX_SIZE() 	{ 'url_log_csv_file_max_size' }
+sub KEY_URL_LOG_CSV_SEPARATOR()		{ 'url_log_csv_separator' }
+sub KEY_URL_CSV_LOGGING()		{ 'url_csv_logging' }
+sub KEY_URL_CSV_CHAN_LOGGING()		{ 'url_csv_chan_logging' }
+sub KEY_URL_TIME_FORMAT()		{ 'url_time_format' }
+sub KEY_URL_LOG_FILE_MAX_SIZE()		{ 'url_log_file_max_size' }
+sub KEY_URL_LOG_FILE_AUTORELOAD_TIME()	{ 'url_log_file_autoreload_time' }
+sub KEY_URL_DB_BASEDIR()		{ 'url_db_basedir' }
+sub KEY_URL_DB_CACHE_A_FILENAME()	{ 'url_db_cache_a_filename' }
+sub KEY_URL_DB_CACHE_H_FILENAME()	{ 'url_db_cache_h_filename' }
+sub KEY_URL_DB_LOCK_FILENAME()		{ 'url_db_lock_filename' }
+sub KEY_URL_POLICY_DEFAULT()		{ 'url_policy_default' }
+sub KEY_URL_POLICY_CHANS()		{ 'url_policy_chans' }
+sub KEY_URL_POLICY_NICKS()		{ 'url_policy_nicks' }
+sub KEY_URL_NAVIGATE()			{ 'url_navigate' }
+
+# Defaults
+sub DEF_URL_COMMAND() { 
+	'mozilla -remote "openURL(__URL__)" > /dev/null 2>&1 || mozilla "__URL__"&' }
+sub DEF_URL_CACHE_MAX()			{ 90 } 
+sub DEF_URL_LOG_FILE_AUTORELOAD_TIME()	{ 120 }
+sub DEF_URL_TIME_FORMAT()		{ '%Y:%m:%d - %H:%M:%S' }
+sub DEF_URL_DO_FILE_RESIZE()		{ '0' }
+sub DEF_URL_LOG_FILE_MAX_SIZE()		{ 1024 * 30 }
+sub DEF_URL_LOG_BASEDIR()		{ '.irssi/urlplot/urls/' }
+sub DEF_URL_LOG_FILE_NAME()		{ 'ircurls.html' }
+sub DEF_URL_CHAN_PREFIX()		{ 'chan_' }
+sub DEF_URL_CHAN_LOGGING()		{ '1' }
+sub DEF_URL_LOG_CSV_FILE_NAME()		{ 'ircurls.csv' }
+sub DEF_URL_LOG_CSV_FILE_MAX_SIZE()	{ 1024 * 30 }
+sub DEF_URL_LOG_CSV_SEPARATOR()		{ '|' }
+sub DEF_URL_CSV_LOGGING()		{ '' }
+sub DEF_URL_CSV_CHAN_LOGGING()		{ '' }
+sub DEF_URL_DB_BASEDIR()		{ '.irssi/urlplot/' }
+sub DEF_URL_DB_CACHE_A_FILENAME()	{ 'a_cache' }
+sub DEF_URL_DB_CACHE_H_FILENAME()	{ 'h_cache' }
+sub DEF_URL_DB_LOCK_FILENAME()		{ 'lockfile' }
+sub DEF_URL_POLICY_DEFAULT()		{ 'allow' }
+sub DEF_URL_POLICY_CHANS()		{ '' }
+sub DEF_URL_POLICY_NICKS()		{ '' }
+sub DEF_URL_NAVIGATE()			{ '.irssi/urlplot/urls/ircurls.html' }
+
+sub print_full_log_file_template {
+	my ($fh, $reload) = @_;
+	print $fh <<EOT;
+<?xml version="1.0" encoding="iso-8859-1"?>
+	<!DOCTYPE html
+		PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+		"DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+	<head>
+		<title>IRC-URLs</title>
+		<meta http-equiv="cache-control" content="no-cache" />
+		<meta http-equiv="refresh" content="$reload;" />
+		<style type="text/css">
+		<!--
+			.small { font-size: small; }
+			.xsmall { font-size: x-small; }
+		-->
+		</style>
+	</head>
+	<body>
+		<h1>IRC-URLs</h1>
+		<p class="xsmall">
+			Visit <a href="http://www.geekmind.net">geekmind.net</a>
+		</p>
+		<p>This page reloads itself every $reload seconds.</p>
+		<p>
+			<a name="top" />
+			<a class="small" href="#bottom">Page bottom</a>
+			<br />
+			<br />
+		</p>
+		<table rules="rows" frame="void" width="100%" cellpadding="5">
+			<tr align="left">
+				<th><b>Date/Time</b></th>
+				<th><b>Nick</b></th>
+				<th><b>Channel/Nick</b></th>
+				<th><b>URL</b></th>
+			</tr>
+EOT
+}
+
+sub print_chan_log_file_template {
+	my ($fh, $reload, $channel, $full_log) = @_;
+	print $fh <<EOT;
+<?xml version="1.0" encoding="iso-8859-1"?>
+	<!DOCTYPE html
+		PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+		"DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+	<head>
+		<title>IRC-URLs of $channel</title>
+		<meta http-equiv="cache-control" content="no-cache" />
+		<meta http-equiv="refresh" content="$reload;" />
+		<style type="text/css">
+		<!--
+			.small { font-size: small; }
+			.xsmall { font-size: x-small; }
+		-->
+		</style>
+	</head>
+	<body>
+		<h1>IRC-URLs of $channel</h1>
+		<p class="xsmall">
+			Visit <a href="http://www.geekmind.net">geekmind.net</a>
+		</p>
+		<p>This page reloads itself every $reload seconds.</p>
+		<p><a href="$full_log">Complete</a> listing.</p>
+		<p>
+			<a name="top" />
+			<a class="small" href="#bottom">Page bottom</a>
+			<br />
+			<br />
+		</p>
+		<table rules="rows" frame="void" width="100%" cellpadding="5">
+			<tr align="left">
+				<th><b>Date/Time</b></th>
+				<th><b>Nick</b></th>
+				<th><b>URL</b></th>
+			</tr>
+EOT
+}
+
+sub LOG_FILE_TAIL () {
+	return <<"EOT";
+
+			@{[ LOG_FILE_MARKER ]}
+		</table>
+		<p>
+			<a class="small" href="#top">Page top</a>
+			<a name="bottom" />
+		</p>
+	</body>
+</html>
+EOT
+}
+
+sub print_chan_log_file_entry {
+	my ($fh, $date, $nick, $channel, $url) = @_;
+	print $fh <<EOURL;
+			<tr>
+				<td>$date</td>
+				<td><em>$nick</em></td>
+				<td><a href=\"$url\">$url</a></td>
+			</tr>
+EOURL
+	print $fh LOG_FILE_TAIL;
+};
+
+sub print_full_log_file_entry {
+	my ($fh, $date, $nick, $channel, $chan_log, $url) = @_;
+	print $fh <<EOURL;
+			<tr>
+				<td>$date</td>
+				<td><em>$nick</em></td>
+				<td><a href="$chan_log">$channel</a></td>
+				<td><a href=\"$url\">$url</a></td>
+			</tr>
+EOURL
+	print $fh LOG_FILE_TAIL;
+}
+
+sub p_error { # Error printing (directly to the current window)
+	Irssi::print("urlplot: @_");
+}
+
+sub p_normal { # Normal printing (to the msg window)
+	Irssi::print("@_", MSGLEVEL_MSGS+MSGLEVEL_NOHILIGHT);
+}
+
+sub scan_url {
+	my $rawtext = shift;
+	return $1 if $rawtext =~ m|(@{[ URL_SCHEME_REGEX ]}://@{[ URL_BASE_REGEX ]}+)|io;
+	# The URL misses a scheme, try to be smart
+	if ($rawtext =~ m|@{[ URL_GUESS_REGEX ]}\.@{[ URL_BASE_REGEX ]}+|io) { 
+		my $preserve = $&;
+		return "http://$preserve" if $1 =~ /^www/;
+		return "ftp://$preserve"  if $1 =~ /^ftp/;
+	}
+	return undef;
+}
+
+sub aquire_lock {
+	my $db_base = Irssi::settings_get_str(KEY_URL_DB_BASEDIR)
+		|| die "missing setting for @{[ KEY_URL_DB_BASEDIR ]}";
+	my $lockfile = Irssi::settings_get_str(KEY_URL_DB_LOCK_FILENAME)
+		|| die "missing setting for @{[ KEY_URL_DB_LOCK_FILENAME ]}";
+
+	local *LOCK_F;
+	my $fh;
+	$db_base .= '/' if $db_base !~ m#/$#;
+	$lockfile = "${db_base}${lockfile}";
+
+	die "directory $db_base doesn't exist or isn't readable"
+		unless -d $db_base and -r $db_base;
+
+	sysopen(LOCK_F, $lockfile, O_RDONLY | O_CREAT)
+		|| die "can't open/create lockfile $lockfile: $!";
+	flock(LOCK_F, LOCK_EX | LOCK_NB)
+		|| die "can't exclusively lock $lockfile: $!";
+	# Can't pass back localized typeglob reference
+	$fh = *LOCK_F;
+	return $fh;
+}
+
+sub open_caches {
+	my $db_base = Irssi::settings_get_str(KEY_URL_DB_BASEDIR)
+		|| die "missing setting for @{[ KEY_URL_DB_BASEDIR ]}";
+	my $dbfile_a = Irssi::settings_get_str(KEY_URL_DB_CACHE_A_FILENAME)
+		|| die "missing setting for @{[ KEY_URL_DB_CACHE_A_FILENAME ]}";
+	my $dbfile_h = Irssi::settings_get_str(KEY_URL_DB_CACHE_H_FILENAME)
+		|| die "missing setting for @{[ KEY_URL_DB_CACHE_H_FILENAME ]}";
+
+	my (@cache, %cache);
+	$db_base .= '/' if $db_base !~ m#/$#;
+	$dbfile_a = "${db_base}${dbfile_a}";
+	$dbfile_h = "${db_base}${dbfile_h}";
+
+	die "directory $db_base doesn't exist or isn't readable"
+		unless -d $db_base and -r $db_base;
+
+	tie @cache, 'DB_File', $dbfile_a, O_RDWR | O_CREAT, 0666, $DB_RECNO
+		or die "can't tie urlcache db $dbfile_a: $!";
+	tie %cache, 'DB_File', $dbfile_h, O_RDWR | O_CREAT, 0666
+		or die "can't tie urlcache db $dbfile_h: $!";
+	return \(@cache, %cache);
+}
+
+sub create_chan_template {
+	my ($full_log, $file, $channel) = @_;
+	my $reload = Irssi::settings_get_int(KEY_URL_LOG_FILE_AUTORELOAD_TIME);
+	local *FH;
+	open(FH, "> $file") 
+		|| die "can't create logfile $file: $!";
+	print_chan_log_file_template(\*FH, $reload, $channel, $full_log);
+	print FH LOG_FILE_TAIL;
+	close(FH);
+}
+
+sub create_full_template {
+	my $file = shift;
+	my $reload = Irssi::settings_get_int(KEY_URL_LOG_FILE_AUTORELOAD_TIME);
+	local *FH;
+	open(FH, "> $file") 
+		|| die "can't create logfile $file: $!";
+	print_full_log_file_template(\*FH, $reload);
+	print FH LOG_FILE_TAIL;
+	close(FH);
+}
+
+sub create_csv_file {
+	my $file = shift;
+	open(FH, "> $file") 
+		|| die "can't create $file: $!";
+	close FH;
+}
+
+sub log_csv {
+	my $csv_log = shift;
+	my $sep = Irssi::settings_get_str(KEY_URL_LOG_CSV_SEPARATOR);
+	my $fields = join $sep, @_;
+	local *FH;
+	open(FH, ">> $csv_log") 
+		|| die "can't open $csv_log: $!";
+	print FH "$fields\n";
+	close FH;
+}
+
+sub position_log_file {
+	my $file = shift;
+	my ($fh, $pos, $buf, @lines, $off, $got_it);
+	local *FH;
+	my $hint = "Conside manual removal of this file";
+	sysopen(FH, $file, O_RDWR) 
+		|| die "can't open $file: $!";
+	$pos = sysseek(FH, 0, 2) 
+		|| die "can't seek to EOF in $file. ${hint}: $!";
+	$pos -= BACKWARD_SEEK_BYTES;
+	sysseek(FH, $pos, 0) 
+		|| die "can't seek backwards to $pos in $file. ${hint}: $!";
+	sysread(FH, $buf, 2048)
+		|| die "can't read rest of $file. ${hint}: $!";
+	$off = 0;
+	@lines = split /\n/, $buf;
+	for (@lines) {
+		$off += length;
+		$off += 1;
+		chomp;
+		next if /^$/;
+		if (/@{[ LOG_FILE_MARKER ]}/io) {
+			$got_it = 1;
+			$off -= length;
+			$off -= 1;
+			last;
+		}
+	}
+	die "Can't locate @{[ LOG_FILE_MARKER ]} in $file. ${hint}" 
+		unless $got_it;
+	$pos += $off;
+	sysseek(FH, $pos, 0)
+		|| die "Can't seek to $pos in $file. ${hint}: $!";
+	# Can't pass back localized typeglob reference
+	$fh = *FH;
+	return $fh;
+}
+
+sub log_url {
+	my ($nick, $channel, $url) = @_;
+	my $log_base =  Irssi::settings_get_str(KEY_URL_LOG_BASEDIR)
+		|| die "missing setting for @{[ KEY_URL_LOG_BASEDIR ]}";
+	my $fullfile = Irssi::settings_get_str(KEY_URL_LOG_FILE_NAME)
+		|| die "missing setting for @{[ KEY_URL_LOG_FILE_NAME ]}";
+	my $csvfile = Irssi::settings_get_str(KEY_URL_LOG_CSV_FILE_NAME)
+		|| die "missing setting for @{[ KEY_URL_LOG_CSV_FILE_NAME ]}";
+	my $csv_max = Irssi::settings_get_int(KEY_URL_LOG_CSV_FILE_MAX_SIZE);
+	my $csv_logging = Irssi::settings_get_bool(KEY_URL_CSV_LOGGING);
+	my $csv_chan_logging = Irssi::settings_get_bool(KEY_URL_CSV_CHAN_LOGGING);
+	my $time_fmt = Irssi::settings_get_str(KEY_URL_TIME_FORMAT)
+		|| die "missing setting for @{[ KEY_URL_TIME_FORMAT ]}";
+	my $max = Irssi::settings_get_int(KEY_URL_LOG_FILE_MAX_SIZE);
+	my $chan_prefix = Irssi::settings_get_str(KEY_URL_CHAN_PREFIX)
+		|| die "missing setting for @{[ KEY_URL_CHAN_PREFIX ]}";
+	my $chan_logging = Irssi::settings_get_bool(KEY_URL_CHAN_LOGGING);
+
+	my @curr_time = localtime(time());
+	$log_base .= '/' if $log_base !~ m#/$#;
+
+	die "directory $log_base doesn't exist or isn't readable"
+		unless -d $log_base and -r $log_base;
+
+	# Make channel filename
+	my $tmp = POSIX::strftime($chan_prefix, @curr_time);
+	my $chan_fname = lc $channel;
+	$chan_fname =~ s/^#/$tmp/;
+	my $chan_log = "${log_base}${chan_fname}.html";
+
+	# Make full filename
+	$tmp = POSIX::strftime($fullfile, @curr_time);
+	my $full_fname = $tmp;
+	my $full_log = $log_base . $tmp;
+
+	# Replace spaces in date string to show up as '&#160;' to prevent line
+	# breaks.
+	my $date = POSIX::strftime($time_fmt, @curr_time);
+	my $html_date = $date;
+	$html_date =~ s/ /\&#160;/g;
+
+	my $fh;
+
+	# Channel logging
+	if ($chan_logging) {
+		create_chan_template $full_fname, $chan_log, $channel 
+			if not -r $chan_log or ($max > 0 and (stat($chan_log))[7] > $max);
+		$fh = undef;
+		$fh = position_log_file $chan_log;
+		print_chan_log_file_entry($fh, $html_date, $nick, $channel, $url);
+		close $fh;
+	}
+
+	# Full logging
+	create_full_template $full_log
+		if not -r $full_log or ($max > 0 and (stat($full_log))[7] > $max);
+	$fh = undef;
+	$fh = position_log_file $full_log;
+	print_full_log_file_entry($fh, $html_date, $nick, $channel,
+		"${chan_fname}.html", $url);
+	close $fh;
+
+	# CSV logging
+	if ($csv_logging) {
+		$tmp = POSIX::strftime($csvfile, @curr_time);
+		my $log = $log_base . $tmp;
+		create_csv_file $log 
+			if not -r $log or ($csv_max > 0 and (stat($log))[7] > $max);
+		log_csv($log, $date, $nick, $channel, $url);	
+	}
+
+	# CSV channel logging
+	if ($csv_chan_logging) {
+		my $log = "${log_base}${chan_fname}.csv";
+		create_csv_file $log 
+			if not -r $log or ($csv_max > 0 and (stat($log))[7] > $max);
+		log_csv($log, $date, $nick, $channel, $url);
+	}
+}
+
+sub mk_home($) {
+	my $arg = shift;
+	return "$ENV{HOME}/$arg";
+}
+
+sub logging_permited {
+	my ($nick, $chan_or_nick) = @_;
+	my $default_policy = Irssi::settings_get_str(KEY_URL_POLICY_DEFAULT)
+		|| die "missing setting for @{[ KEY_URL_POLICY_DEFAULT ]}";
+	my $chans = Irssi::settings_get_str(KEY_URL_POLICY_CHANS);
+	my $nicks = Irssi::settings_get_str(KEY_URL_POLICY_NICKS);
+	my @policy_chans = split /[,;: ]/, $chans; 
+	my @policy_nicks = split /[,;: ]/, $nicks;
+	my $permit;
+
+	if ($default_policy eq 'deny') {
+		# logging must be explicitly permited
+		$permit = 0;
+		for (@policy_chans) {
+			return 1 if $_ eq $chan_or_nick;
+		}
+		for (@policy_nicks) {
+			return 1 if $_ eq $nick;
+		}
+	} elsif ($default_policy eq 'allow') {
+		# logging must be explicitly denied
+		$permit = 1; 
+		for (@policy_chans) {
+			return 0 if $_ eq $chan_or_nick;
+		}
+		for (@policy_nicks) {
+			return 0 if $_ eq $nick;
+		}
+	} else {
+		p_error("setting @{[ KEY_URL_POLICY_DEFAULT ]} can be either " .
+			"'allow' or 'deny'");
+		return undef;
+	}
+	return $permit;
+}
+
+sub do_locked {
+	my $f = shift or die "missing function argument " . caller;
+	my $lockf;
+	eval { $lockf = aquire_lock };
+	if ($@) {
+		p_error("$@");
+		return;
+	}
+	eval { $f->(@_) };
+	p_error("$@") if $@;
+	eval { close $lockf };
+}
+
+sub do_with_caches {
+	my $f = shift or die "missing function argument " . caller;
+	my ($cache_a, $cache_h) = ();
+	eval { ($cache_a, $cache_h) = open_caches };
+	if ($@) {
+		p_error("$@");
+		eval { untie %$cache_h } if defined $cache_h;
+		eval { untie @$cache_a } if defined $cache_a;
+		return;
+	}
+	eval { $f->($cache_a, $cache_h, @_) };
+	p_error("$@") if $@;
+	eval { untie %$cache_h };
+	eval { untie @$cache_a };
+}
+
+sub url_msg_log {
+	my ($cache_a, $cache_h, $nick, $chan_or_nick, $url) = @_;
+	my ($cache_size, $tmp);
+	my $max_cache = Irssi::settings_get_int(KEY_URL_CACHE_MAX);
+
+	unless (exists $cache_h->{$url}) {
+		$cache_size = scalar(@$cache_a) + 1;
+		$cache_h->{$url} = '1';
+		# push the URL to the end of the file seems to work better on
+		# some systems in contrast to unshift.
+		push @$cache_a, $url;
+		if ($max_cache > 0 && $cache_size > $max_cache) {
+			$tmp = shift @$cache_a;
+			delete $cache_h->{$tmp};
+		}
+		log_url($nick, $chan_or_nick, $url);
+	} 
+}
+
+sub url_topic {
+	my ($server, $channel, $topic, $nick, $hostmask) = @_;
+	url_message($server, $topic, $nick, $hostmask, $channel);
+}
+
+sub url_message {
+	my ($server, $rawtext, $nick, $hostmask, $channel) = @_;
+	my ($url, $permit, $chan_or_nick);
+
+	if (defined($url = scan_url($rawtext))) {
+		$chan_or_nick = defined $channel ? $channel : $server->{nick};
+		if (defined($permit = logging_permited($nick, $chan_or_nick)) && $permit) {
+			do_locked(\&do_with_caches, \&url_msg_log, $nick, $chan_or_nick, $url); 
+		}
+	}
+}
+
+sub url_cmd_show {
+	my ($cache_a, $cache_h) = @_;
+	my $n = 0;
+	p_normal("urlplot: total of " . scalar(@$cache_a) . " URLs");
+	foreach my $url (@$cache_a) {
+		 p_normal(sprintf("%02d - %s", $n++, $url));
+	}
+}
+
+sub url_cmd_clearcaches {
+	my ($cache_a, $cache_h) = @_;
+	@$cache_a = ();
+	%$cache_h = ();
+}
+
+sub url_cmd_real_navigate {
+	my ($url) = @_;
+	die 'no URLs captured so far' unless $url;
+	my $url_cmd = Irssi::settings_get_str(KEY_URL_COMMAND)
+		|| die "missing setting for @{[ KEY_URL_COMMAND ]}";
+	unless ($url_cmd =~ s/__URL__/$url/g) {
+		die "setting url_cmd doesn't contain an URL placeholder '__URL__'";
+	}
+	system($url_cmd);
+}
+
+sub url_cmd_navigate {
+	my ($cache_a, $cache_h, $n) = @_;
+	my ($len, $url) = scalar @$cache_a;
+	unless (defined $n) {
+		$n = $len > 0 ? $len - 1 : $len;
+	}
+	die "no such URL; I've only $len" unless $n < $len;
+	$url = $cache_a->[$n];
+	die 'no URLs captured so far' unless $url;
+	url_cmd_real_navigate $url;
+}
+
+sub url_command {
+	my ($data, $server, $witem) = @_;
+	$_ = $data;
+	if (/^-list/) {
+		do_locked(\&do_with_caches, \&url_cmd_show);
+	} elsif (/^-clearcache/) {
+		do_locked(\&do_with_caches, \&url_cmd_clearcaches);
+	} elsif (/^-showlog/) {
+		my $nav_url = Irssi::settings_get_str(KEY_URL_NAVIGATE)
+			|| die "missing setting for @{[ KEY_URL_NAVIGATE ]}";
+		url_cmd_real_navigate $nav_url;
+	} else {
+		my $n;
+		if (/^(\d+)/) {
+			$n = $1;
+			if ($n < 0) {
+				p_error("argument must be a positive integer");
+				return;
+			}
+		} elsif (/^$/) {
+			$n = undef;
+		} else {
+			p_error("usage for /url [-list|-showlog|-clearcache|<digit>]");
+			return;
+		}
+		do_locked(\&do_with_caches, \&url_cmd_navigate, $n);
+	}
+}
+
+Irssi::signal_add_last('message public', 'url_message');
+Irssi::signal_add_last('message private', 'url_message');
+Irssi::signal_add_last('message topic', 'url_topic');
+Irssi::command_bind('url', 'url_command');
+
+Irssi::settings_add_str('misc', KEY_URL_COMMAND, DEF_URL_COMMAND);
+Irssi::settings_add_int('misc', KEY_URL_CACHE_MAX, DEF_URL_CACHE_MAX);
+Irssi::settings_add_str('misc', KEY_URL_LOG_BASEDIR, mk_home(DEF_URL_LOG_BASEDIR));
+Irssi::settings_add_str('misc', KEY_URL_LOG_FILE_NAME, DEF_URL_LOG_FILE_NAME);
+Irssi::settings_add_str('misc', KEY_URL_CHAN_PREFIX, DEF_URL_CHAN_PREFIX);
+Irssi::settings_add_bool('misc', KEY_URL_CHAN_LOGGING, DEF_URL_CHAN_LOGGING);
+Irssi::settings_add_str('misc', KEY_URL_LOG_CSV_FILE_NAME, DEF_URL_LOG_CSV_FILE_NAME);
+Irssi::settings_add_int('misc', KEY_URL_LOG_CSV_FILE_MAX_SIZE, DEF_URL_LOG_CSV_FILE_MAX_SIZE);
+Irssi::settings_add_str('misc', KEY_URL_LOG_CSV_SEPARATOR, DEF_URL_LOG_CSV_SEPARATOR);
+Irssi::settings_add_bool('misc', KEY_URL_CSV_LOGGING, DEF_URL_CSV_LOGGING);
+Irssi::settings_add_bool('misc', KEY_URL_CSV_CHAN_LOGGING, DEF_URL_CSV_CHAN_LOGGING);
+Irssi::settings_add_str('misc', KEY_URL_TIME_FORMAT, DEF_URL_TIME_FORMAT);
+Irssi::settings_add_int('misc', KEY_URL_LOG_FILE_MAX_SIZE, DEF_URL_LOG_FILE_MAX_SIZE);
+Irssi::settings_add_int('misc', KEY_URL_LOG_FILE_AUTORELOAD_TIME, 
+				DEF_URL_LOG_FILE_AUTORELOAD_TIME);
+Irssi::settings_add_str('misc', KEY_URL_DB_BASEDIR, mk_home(DEF_URL_DB_BASEDIR));
+Irssi::settings_add_str('misc', KEY_URL_DB_CACHE_A_FILENAME, DEF_URL_DB_CACHE_A_FILENAME);
+Irssi::settings_add_str('misc', KEY_URL_DB_CACHE_H_FILENAME, DEF_URL_DB_CACHE_H_FILENAME);
+Irssi::settings_add_str('misc', KEY_URL_DB_LOCK_FILENAME, DEF_URL_DB_LOCK_FILENAME);
+
+Irssi::settings_add_str('misc', KEY_URL_POLICY_DEFAULT, DEF_URL_POLICY_DEFAULT);
+Irssi::settings_add_str('misc', KEY_URL_POLICY_CHANS, DEF_URL_POLICY_CHANS);
+Irssi::settings_add_str('misc', KEY_URL_POLICY_NICKS, DEF_URL_POLICY_NICKS);
+Irssi::settings_add_str('misc', KEY_URL_NAVIGATE, 'file://' . mk_home(DEF_URL_NAVIGATE));
+
+#
+# $Log$
+#
diff --git a/scripts/usercount.pl b/scripts/usercount.pl
new file mode 100644
index 0000000..8bbc9e0
--- /dev/null
+++ b/scripts/usercount.pl
@@ -0,0 +1,172 @@
+use Irssi 20020101.0250 ();
+$VERSION = "1.16";
+%IRSSI = (
+    authors     => 'David Leadbeater, Timo Sirainen, Georg Lukas',
+    contact     => 'dgl@dgl.cx, tss@iki.fi, georg@boerde.de',
+    name        => 'usercount',
+    description => 'Adds a usercount for a channel as a statusbar item',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.dgl.yi.org/',
+);
+
+# Once you have loaded this script run the following command:
+# /statusbar window add usercount
+# You can also add -alignment left|right option
+
+# /set usercount_show_zero on or off to show users when 0 users of that type
+# /set usercount_show_ircops (default off)
+# /set usercount_show_halfops (default on)
+
+# you can customize the look of this item from theme file:
+#  sb_usercount = "{sb %_$0%_ nicks ($1-)}";
+#  sb_uc_ircops = "%_*%_$*";
+#  sb_uc_ops = "%_@%_$*";
+#  sb_uc_halfops = "%_%%%_$*";
+#  sb_uc_voices = "%_+%_$*";
+#  sb_uc_normal = "$*";
+#  sb_uc_space = " ";
+
+
+use strict;
+use Irssi::TextUI;
+
+my ($ircops, $ops, $halfops, $voices, $normal, $total);
+my ($timeout_tag, $recalc);
+
+# Called to make the status bar item
+sub usercount {
+  my ($item, $get_size_only) = @_;
+  my $wi = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
+
+  if(!ref $wi || $wi->{type} ne "CHANNEL") { # only works on channels
+    return unless ref $item;
+    $item->{min_size} = $item->{max_size} = 0;
+    return;
+  }
+
+  if ($recalc) {
+    $recalc = 0;
+    calc_users($wi);
+  }
+
+  my $theme = Irssi::current_theme();
+  my $format = $theme->format_expand("{sb_usercount}");
+  if ($format) {
+    # use theme-specific look
+    my $ircopstr = $theme->format_expand("{sb_uc_ircops $ircops}",
+          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
+    my $opstr = $theme->format_expand("{sb_uc_ops $ops}",
+          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
+    my $halfopstr = $theme->format_expand("{sb_uc_halfops $halfops}",
+          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
+    my $voicestr = $theme->format_expand("{sb_uc_voices $voices}", 
+          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
+    my $normalstr = $theme->format_expand("{sb_uc_normal $normal}",
+          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
+	my $space = $theme->format_expand('{sb_uc_space}',
+         Irssi::EXPAND_FLAG_IGNORE_EMPTY);
+	$space = " " unless $space;
+
+    my $str = "";
+    $str .= $ircopstr.$space if defined $ircops;
+    $str .= $opstr.$space  if defined $ops;
+    $str .= $halfopstr.$space if defined $halfops;
+    $str .= $voicestr.$space if defined $voices;
+    $str .= $normalstr.$space if defined $normal;
+    $str =~ s/\Q$space\E$//;
+
+    $format = $theme->format_expand("{sb_usercount $total $str}",
+				    Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+  } else {
+    # use the default look
+    $format = "{sb \%_$total\%_ nicks \%c(\%n";
+    $format .= '*'.$ircops.' ' if (defined $ircops);
+    $format .= '@'.$ops.' ' if (defined $ops);
+    $format .= '%%'.$halfops.' ' if (defined $halfops);
+    $format .= "+$voices " if (defined $voices);
+    $format .= "$normal " if (defined $normal);
+    $format =~ s/ $//;
+    $format .= "\%c)}";
+  }
+
+  $item->default_handler($get_size_only, $format, undef, 1);
+}
+
+sub calc_users() {
+  my $channel = shift;
+  my $server = $channel->{server};
+
+  $ircops = $ops = $halfops = $voices = $normal = 0;
+  for ($channel->nicks()) {
+    if ($_->{serverop}) {
+      $ircops++;
+	}
+
+    if ($_->{op}) {
+      $ops++;
+	} elsif ($_->{halfop}) {
+	   $halfops++;
+    } elsif ($_->{voice}) {
+      $voices++;
+    } else {
+      $normal++;
+    }
+  }
+
+  $total = $ops+$halfops+$voices+$normal;
+  if (!Irssi::settings_get_bool('usercount_show_zero')) {
+    $ircops = undef if ($ircops == 0);
+    $ops = undef if ($ops == 0);
+    $halfops = undef if ($halfops == 0);
+    $voices = undef if ($voices == 0);
+    $normal = undef if ($normal == 0);
+  }
+  $halfops = undef unless Irssi::settings_get_bool('usercount_show_halfops');
+  $ircops = undef unless Irssi::settings_get_bool('usercount_show_ircops');
+}
+
+sub refresh {
+   if ($timeout_tag > 0) {
+      Irssi::timeout_remove($timeout_tag);
+      $timeout_tag = 0;
+   }
+   Irssi::statusbar_items_redraw('usercount');
+}
+
+sub refresh_check {
+   my $channel = shift;
+   my $wi = ref Irssi::active_win() ? Irssi::active_win()->{active} : 0;
+
+   return unless ref $wi && ref $channel;
+   return if $wi->{name} ne $channel->{name};
+   return if $wi->{server}->{tag} ne $channel->{server}->{tag};
+
+   # don't refresh immediately, or we'll end up refreshing 
+   # a lot around netsplits
+   $recalc = 1;
+   Irssi::timeout_remove($timeout_tag) if ($timeout_tag > 0);
+   $timeout_tag = Irssi::timeout_add(500, 'refresh', undef);
+}
+
+sub refresh_recalc {
+  $recalc = 1;
+  refresh();
+}
+
+$recalc = 1;
+$timeout_tag = 0;
+
+Irssi::settings_add_bool('usercount', 'usercount_show_zero', 1);
+Irssi::settings_add_bool('usercount', 'usercount_show_ircops', 0);
+Irssi::settings_add_bool('usercount', 'usercount_show_halfops', 1);
+
+Irssi::statusbar_item_register('usercount', undef, 'usercount');
+Irssi::statusbars_recreate_items();
+
+Irssi::signal_add_last('nicklist new', 'refresh_check');
+Irssi::signal_add_last('nicklist remove', 'refresh_check');
+Irssi::signal_add_last('nick mode changed', 'refresh_check');
+Irssi::signal_add_last('setup changed', 'refresh_recalc');
+Irssi::signal_add_last('window changed', 'refresh_recalc');
+Irssi::signal_add_last('window item changed', 'refresh_recalc');
+
diff --git a/scripts/userhost.pl b/scripts/userhost.pl
new file mode 100644
index 0000000..9111a93
--- /dev/null
+++ b/scripts/userhost.pl
@@ -0,0 +1,104 @@
+# $Id: userhost.pl,v 1.18 2002/07/04 13:18:02 jylefort Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "0.23";
+%IRSSI = (
+	  authors     => 'Jean-Yves Lefort',
+	  contact     => 'jylefort\@brutele.be, decadix on IRCNet',
+	  name        => 'userhost',
+	  description => 'Adds a -cmd option to the /USERHOST builtin command',
+	  license     => 'BSD',
+	  url         => 'http://void.adminz.be/irssi.shtml',
+	  changed     => '$Date: 2002/07/04 13:18:02 $ ',
+);
+
+# usage:
+#
+#	/USERHOST <nicks> [-cmd <command>]
+#
+#	-cmd		evaluate the specified Irssi command
+#
+# percent substitutions in command:
+#
+#	%n		nick
+#	%u		user
+#	%h		host
+#	%%		a single percent sign
+#
+# examples:
+#
+#	/userhost albert -cmd echo %n is %u at %h
+#	/userhost john james -cmd exec xterm -e ping %h
+#
+# changes:
+#
+#	2002-07-04	release 0.23
+#			* signal_add's uses a reference instead of a string
+#
+#	2002-02-08	release 0.22
+#			* safer percent substitutions
+#
+#	2002-01-27	release 0.21
+#			* uses builtin expand
+#
+#	2002-01-24	release 0.20
+#			* now replaces builtin /USERHOST
+#
+#	2002-01-23	initial release
+
+use strict;
+
+# -verbatim- import expand
+sub expand {
+  my ($string, %format) = @_;
+  my ($len, $attn, $repl) = (length $string, 0);
+  
+  $format{'%'} = '%';
+
+  for (my $i = 0; $i < $len; $i++) {
+    my $char = substr $string, $i, 1;
+    if ($attn) {
+      $attn = undef;
+      if (exists($format{$char})) {
+	$repl .= $format{$char};
+      } else {
+	$repl .= '%' . $char;
+      }
+    } elsif ($char eq '%') {
+      $attn = 1;
+    } else {
+      $repl .= $char;
+    }
+  }
+  
+  return $repl;
+}
+# -verbatim- end
+
+my $queuedcmd;
+
+sub userhost_reply {
+  if ($queuedcmd) {
+    my ($server, $args, $sender, $sender_address) = @_;
+    if ($args =~ / :(.*)$/) {
+      foreach (split(/ /, $1)) {
+	$server->command(expand($queuedcmd, "n", $1, "u", $2, "h", $3))
+	  if (/(.*)\*?=[-+][-+~]?(.*)@(.*)/);
+      }
+    }
+    $queuedcmd = undef;
+    Irssi::signal_stop();
+  }
+}
+
+sub userhost {
+  my ($args, $server, $item) = @_;
+  my ($nicks, $command) = split(/ -cmd /, $args);
+  if ($queuedcmd = $command) {
+    $server->send_raw("USERHOST :$nicks");
+    Irssi::signal_stop();
+  }
+}
+
+Irssi::signal_add("event 302", \&userhost_reply);
+Irssi::command_bind("userhost", \&userhost);
diff --git a/scripts/users.pl b/scripts/users.pl
new file mode 100644
index 0000000..b6c7441
--- /dev/null
+++ b/scripts/users.pl
@@ -0,0 +1,270 @@
+# $Id: users.pl,v 1.22 2003/01/11 14:54:35 jylefort Exp $
+
+use Irssi 20020121.2020 ();
+$VERSION = "2.3";
+%IRSSI = (
+	  authors     => 'Jean-Yves Lefort',
+	  contact     => 'jylefort\@brutele.be, decadix on IRCnet',
+	  name        => 'users',
+	  description => 'Implements /USERS',
+	  license     => 'BSD',
+	  changed     => '$Date: 2003/01/11 14:54:35 $ ',
+);
+
+# usage:
+#
+#	/USERS [<orderstring>]
+#
+#		<orderstring> is an optional string
+#		whose format is described below.
+#
+# /set's:
+#
+#	users_sort_order
+#
+#		A sort order string which will be used to complete
+#		the order string given as a parameter to /USERS.
+#
+#		Example: /set users_sort_order mnha
+#
+#			Command		Resulting order
+#
+#			/USERS		mnha
+#			/USERS an	anmh
+#
+# sort order string format:
+#
+#	An order string must be composed by one or more characters from
+#	the following set:
+#
+#		m	server and channel mode
+#		n	nickname
+#		h	user@hostname
+#		a	away state
+#
+# /format's:
+#
+#	users		list header
+#			$0	channel name
+#
+#	users_nick	nick
+#			$0	* if IRC operator
+#			$1	@ if channel operator
+#			$2	% if half channel operator
+#			$3	+ if voiced
+#			$4	a if marked away
+#			$5	nickname
+#			$6	user@hostname
+#
+#	endofusers	end of list
+#			$0	channel name
+#			$1	number of nicks
+#			$2	number of IRC operators
+#			$3	number of channel operators
+#			$4	number of half channel operators
+#			$5	number of voiced
+#			$6	number of marked away
+#
+# changes:
+#
+#	2003-01-11	release 2.3
+#			* nick count was wrong
+#
+#	2003-01-09	release 2.2
+#			* command char independed
+#
+#	2003-01-09	release 2.1
+#			* minor oblivion fix
+#
+#	2003-01-09	release 2.0
+#			* /USERS accepts a sort order argument
+#			* added /set users_sort_order
+#			* shows away state
+#
+#	2002-07-04	release 1.01
+#			* command_bind uses a reference instead of a string
+#
+#	2002-04-25	release 1.00
+#			* uses '*' instead of 'S' for IRC operators
+#
+#	2002-04-12	release 0.13
+#			* added support for ircops
+#			* changed theme
+#
+#	2002-01-28	release 0.12
+#			* added support for halfops
+#
+#	2002-01-28	release 0.11
+#
+#	2002-01-23	initial release
+
+use strict;
+
+### sort algorithms table #####################################################
+
+my %cmp = (
+	   m => sub { get_mode_weight($_[1]) cmp get_mode_weight($_[0]) },
+	   n => sub { lc $_[0]->{nick} cmp lc $_[1]->{nick} },
+	   h => sub { lc $_[0]->{host} cmp lc $_[1]->{host} },
+	   a => sub { $_[1]->{gone} cmp $_[0]->{gone} }
+	  );
+
+### support functions #########################################################
+
+sub get_mode_weight
+{
+  my ($nick) = @_;
+
+  return ($nick->{serverop} * 4) + ($nick->{op} * 3) + ($nick->{halfop} * 2) + $nick->{voice};
+}
+
+sub nick_cmp
+{
+  my ($this, $that, @order) = @_;
+  my $sort;
+  
+  foreach (@order)
+    {
+      $sort = &{$cmp{$_}}($this, $that);
+      
+      if ($sort)
+	{
+	  return $sort;
+	}
+    }
+
+  return $sort;
+}
+
+sub validate_order
+{
+  my @order = @_;
+
+  foreach (@order)
+    {
+      if (! exists($cmp{$_}))
+	{
+	  return "unknown character '$_'";
+	}
+    }
+  
+  return undef;
+}
+
+sub get_order
+{
+  my ($string) = @_;
+  my @order;
+  my @default;
+  my $error;
+  my %has;
+
+  @order = split(//, $string);
+  @default = split(//, Irssi::settings_get_str("users_sort_order"));
+
+  $error = validate_order(@default);
+  if (defined $error)
+    {
+      return "unable to validate users_sort_order: $error";
+    }
+  
+  $error = validate_order(@order);
+  if (defined $error)
+    {
+      return "unable to validate given order: $error";
+    }
+
+  foreach (@order)
+    {
+      $has{$_} = 1;
+    }
+  
+  foreach (@default)
+    {
+      if (! exists($has{$_}))
+	{
+	  push(@order, $_);
+	}
+    }
+  
+  return (undef, @order);
+}
+
+### /users ####################################################################
+
+sub users
+{
+  my ($args, $server, $item) = @_;
+  
+  if ($item && $item->{type} eq "CHANNEL")
+    {
+      my $error;
+      my @order;
+      my $window;
+      my @nicks;
+
+      my $serverop_count = 0;
+      my $chanop_count = 0;
+      my $halfop_count = 0;
+      my $voice_count = 0;
+      my $away_count = 0;
+
+      ($error, @order) = get_order($args);
+      
+      if (defined $error)
+	{
+	  Irssi::print("Unable to compute sort order: $error", MSGLEVEL_CLIENTERROR);
+	  return;
+	}
+      
+      Irssi::command('WINDOW NEW HIDDEN');
+      
+      $window = Irssi::active_win();
+      $window->set_name("U:$item->{name}");
+      $window->printformat(MSGLEVEL_CRAP, "users", $item->{name});
+      
+      @nicks = $item->nicks();
+      @nicks = sort { nick_cmp($a, $b, @order) } @nicks;
+      
+      foreach (@nicks)
+	{
+	  my $serverop;
+	  my $chanop;
+	  my $halfop;
+	  my $voice;
+	  my $away;
+
+	  $serverop = $_->{serverop} ? '*' : '.';
+	  $chanop = $_->{op} ? '@' : '.';
+	  $halfop = $_->{halfop} ? '%' : '.';
+	  $voice = $_->{voice} ? '+' : '.';
+	  $away = $_->{gone} ? 'a' : '.';
+
+	  $serverop_count++ if ($_->{serverop});
+	  $chanop_count++ if ($_->{op});
+	  $halfop_count++ if ($_->{halfop});
+	  $voice_count++ if ($_->{voice});
+	  $away_count++ if ($_->{gone});
+
+	  $window->printformat(MSGLEVEL_CRAP, "users_nick",
+			       $serverop, $chanop, $halfop, $voice, $away,
+			       $_->{nick}, $_->{host});
+	}
+      
+      $window->printformat(MSGLEVEL_CRAP, "endofusers", $item->{name},
+			   scalar @nicks, $serverop_count, $chanop_count,
+			   $halfop_count, $voice_count, $away_count);
+    }
+}
+
+### initialization ############################################################
+
+Irssi::theme_register([
+		       "users", '{names_users Users {names_channel $0}}',
+		       "users_nick", '{hilight $0$1$3$4}  $[9]5  $[50]6',
+		       "endofusers", '{channel $0}: Total of {hilight $1} nicks, {hilight $2} IRC operators, {hilight $3} channel operators, {hilight $5} voiced, {hilight $6} marked away',
+		      ]);
+
+Irssi::settings_add_str("misc", "users_sort_order", "mnha");
+
+Irssi::command_bind("users", \&users);
diff --git a/scripts/version-stat.pl b/scripts/version-stat.pl
new file mode 100644
index 0000000..acd2f47
--- /dev/null
+++ b/scripts/version-stat.pl
@@ -0,0 +1,87 @@
+#!/usr/bin/perl -w
+# shows top[0-9]+ irc client versions in a channel
+#  by c0ffee 
+#    - http://www.penguin-breeder.org/?page=irssi
+
+#<scriptinfo>
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020120;
+$VERSION = "0.1";
+%IRSSI = (
+    authors	=> "c0ffee",
+    contact	=> "c0ffee\@penguin-breeder.org",
+    name	=> "version-stats",
+    description	=> "shows top[0-9]+ irc client versions in a channel",
+    license	=> "Public Domain",
+    url		=> "http://www.penguin-breeder.org/?page=irssi",
+    changed	=> "Sun Apr 14 17:30 GMT 2002",
+);
+#</scriptinfo>
+
+my %versions;
+my $tag;
+my $running = 0;
+
+sub version_reply {
+  my ($server, $data, $nick, $addr, $target) = @_;
+
+  $versions{$data} = 1 + $versions{$data} if $running;
+
+  if (not Irssi::settings_get_bool('mute_version_reply') or not $running) {
+ 
+
+     Irssi::signal_emit("default ctcp reply", $server, "VERSION $data", $nick, $addr, $target);
+
+  }
+ 
+
+}
+
+sub show_stats {
+
+  my ($data) = @_;
+  my @stats = map "$versions{$_},$_", sort { $versions{$b} <=> $versions{$a} } keys %versions;
+  my ($top,$best,$cnt,$v,$foo,$bar);
+  $running = 0;
+
+  ($top,$best) = $data =~ /(.*)\/(.*)/;
+
+  Irssi::print("VERSION stats:");
+ 
+  Irssi::timeout_remove($tag);
+
+  foreach (1..$top) {
+    last if not defined $stats[$_ - 1];
+    ($cnt,$v) = $stats[$_ - 1] =~ /(.*?),(.*)/;
+    $bar = $cnt * 20 / $best;
+    $foo = "|" x $bar . "." x (20 - $bar),
+    Irssi::print("$_. [$foo]: ($cnt) $v");
+  }
+  
+}
+
+sub cmd_vstat {
+  my ($data, $server, $channel) = @_;
+  my ($period, $top,@nicks,$num);
+
+  Irssi::print("usage: /vstat period-in-secs top-n"), return
+    if not (($period, $top) = $data =~ /(\d+)\s+(\d+)/);
+
+  @nicks = $channel->nicks();
+
+  $num = @nicks;
+
+  $tag = Irssi::timeout_add($period * 1000, 'show_stats', "$top/$num");
+
+  undef %versions;
+  $running = 1;
+
+  $server->send_raw("PRIVMSG $channel->{name} :\001VERSION\001");
+  Irssi::print("Starting version collection in $channel->{name}");
+
+}
+
+Irssi::signal_add_last('ctcp reply version', 'version_reply');
+Irssi::command_bind('vstat', 'cmd_vstat');
+Irssi::settings_add_bool('misc', 'mute_version_reply', 1);
diff --git a/scripts/verstats.pl b/scripts/verstats.pl
new file mode 100644
index 0000000..c40195c
--- /dev/null
+++ b/scripts/verstats.pl
@@ -0,0 +1,81 @@
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "20030208";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "VerStats",
+    description => "Draws a diagram of the used clients in a channel",
+    license     => "GPLv2",
+    url         => "http://scripts.irssi.org",
+    changed     => "$VERSION",
+    commands	=> "verstats"
+);
+
+
+use Irssi;
+
+use vars qw(%clients $timeout);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}   
+
+
+sub sig_ctcp_reply_version ($$$$$) {
+    my ($server, $args, $nick, $addr, $target) = @_;
+    return unless $timeout;
+    Irssi::timeout_remove($timeout);
+    if ($args =~ /^(.*?)( |\/|$)/) {
+	my $client = lc($1);
+	$client =~ s/^[^\w]//;
+	$client =~ s/%.//g;
+	#$clients{$client} = 0 unless defined $clients{$client};
+	push @{$clients{$client}}, $nick;
+    }
+    $timeout = Irssi::timeout_add(5000, \&finished, undef);
+}
+
+sub finished {
+    my $max=0;
+    foreach (keys %clients) {
+	$max = @{$clients{$_}} if $max < @{$clients{$_}};
+    }
+    return if $max == 0;
+    my $width = 60;
+    my $block = $width/$max;
+    my $text;
+    foreach (sort {@{$clients{$b}} <=> @{$clients{$a}}} keys %clients) {
+	s/%/%%/g;
+	$text .= "'".$_."'".': '.@{$clients{$_}}."\n";
+	my $bar = '#'x(($block * @{$clients{$_}})-1);
+	$text .= $bar.">\n";
+	#$text .= $_.' ' foreach (@{$clients{$_}});
+	#$text .= "\n";
+    }
+    %clients = ();
+    print CLIENTCRAP draw_box('VerStats', $text, 'stats', 1);
+    Irssi::timeout_remove($timeout);
+    $timeout = undef;
+}
+
+sub cmd_verstats ($$$) {
+    my ($args, $server, $witem) = @_;
+    return unless ($server && ref $witem && $witem->{type} eq 'CHANNEL');
+    $witem->command('ctcp '.$witem->{name}.' version');
+    $timeout = Irssi::timeout_add(5000, \&finished, undef)
+}
+
+Irssi::signal_add('ctcp reply version' => \&sig_ctcp_reply_version);
+Irssi::command_bind('verstats' => \&cmd_verstats);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded';
diff --git a/scripts/vowels.pl b/scripts/vowels.pl
new file mode 100644
index 0000000..eae47d7
--- /dev/null
+++ b/scripts/vowels.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/perl -w
+
+# /VSAY <text>
+#  - same as /say, but removes vowels from text
+#
+# /VME <text>
+#  - same as /me, but removes vowels from text
+#
+# /VTOPIC <text>
+#  - same as /topic, but removes vowels from text :)
+
+# Written by Jakub Jankowski <shasta@atn.pl>
+# for Irssi 0.7.98.4+
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.0";
+%IRSSI = (
+    authors     => 'Jakub Jankowski',
+    contact     => 'shasta@atn.pl',
+    name        => 'vowels',
+    description => 'Silly script, removes vowels, idea taken from #linuxnews ;-)',
+    license     => 'GNU GPLv2 or later',
+    url         => 'http://irssi.atn.pl/',
+);
+
+use Irssi;
+use Irssi::Irc;
+
+# str remove_vowels($string)
+# returns random-coloured string
+sub remove_vowels {
+	my ($string) = @_;
+	$string =~ s/[eyuioa]//gi;
+	return $string;
+}
+
+# void rsay($text, $server, $destination)
+# handles /rsay
+sub rsay {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	return unless $dest;
+	if ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY") {
+		$dest->command("/msg " . $dest->{name} . " " . remove_vowels($text));
+	}
+}
+
+# void rme($text, $server, $destination)
+# handles /rme
+sub rme {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	return unless $dest;
+	if ($dest->{type} eq "CHANNEL" || $dest->{type} eq "QUERY") {
+		$dest->command("/me " . remove_vowels($text));
+	}
+}
+
+# void rtopic($text, $server, $destination)
+# handles /rtopic
+sub rtopic {
+	my ($text, $server, $dest) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	return unless $dest;
+	if ($dest->{type} eq "CHANNEL") {
+		$dest->command("/topic " . remove_vowels($text));
+	}
+}
+
+Irssi::command_bind("vsay", "rsay");
+Irssi::command_bind("vtopic", "rtopic");
+Irssi::command_bind("vme", "rme");
+
+# changes:
+#
+# 07.02.2002: Initial release (v1.0)
diff --git a/scripts/wa.pl b/scripts/wa.pl
new file mode 100644
index 0000000..d26908f
--- /dev/null
+++ b/scripts/wa.pl
@@ -0,0 +1,280 @@
+$VERSION = "2.3.1";
+%IRSSI = (
+    authors     => "Matti 'qvr' Hiljanen, Piotr 'Pieta' Szymanski",
+    contact     => "matti\@hiljanen.com, pieta\@osiedle.net.pl",
+    contributors => "bd\@bc-bd.org",
+    name        => "wa",
+    description => "shows what WinAmp is playing with /wa command",
+    license     => "Public Domain",
+    commands    => "wa",
+    url         => "http://matin.maapallo.org/softa/irssi",
+);
+#
+# Requires httpQ >= 1.8 (http://www.kostaa.com/)
+# Requires also WinAmp2 plugin manager if you want to use it with WinAmp3
+# (Component ID: 118230 @ winamp.com)
+# 
+# /SET httpq_ to configure the script
+#   /SET httpq_command sets the command which is executed on /wa
+#   the following expandos can be used with it:
+#   %T (time)
+#   %F (file name)
+#   %P (percent)
+#   %S (song name)
+#   %L (lower cased song name)
+#   httpq_command -setting was originally contributed by bd@bc-bd.org
+#
+# /SET httpq_trigger_ to configure the (very lame) public trigger
+#   /SET httpq_trigger_command has all the same expandos as httpq_command
+#   with some extra ones:
+#   %N (nick that triggered the script)
+#   %C (channel where the script was triggered)
+#
+# Known BUGS:
+#   WinAmp 2 plugin manager doesn't get the name of the song that's first in 
+#   playlist, nothing that I can do about it.. But other than that, it should work 
+#   just fine.
+# 
+# Piotr Szymanski:
+# 
+# When using httpq_v3 you'd always get error (httpq returns 0 after sending a
+# '/getoutputtime', '/getplaylistpos', '/getplaylisttitle' and '/ getplaylistfile'
+# because of wrong args used in previous version). I just added proper args for 
+# version 3 of httpq. Now it should work just fine.
+#
+
+use Socket;
+use strict;
+
+my($waport, $wahost, $wapass, $di);
+
+sub getstat($$$) {
+    my ($host, $port, $data) = @_;
+    $data = "$data HTTP/1.0\r\n\r\n";
+
+   if (socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'))) {
+        if (connect(SOCK, sockaddr_in($port, inet_aton($host)))) {
+              unless (send(SOCK, $data, 0)) {
+              Irssi::print("Unable to write to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);
+              return;
+              }
+        } else {
+              Irssi::print("Unable to connect to the socket: $!", Irssi::MSGLEVEL_CLIENTERROR);
+              return;
+        }
+        } else {
+        Irssi::print("Connection to $host failed: $!", Irssi::MSGLEVEL_CLIENTERROR);
+        return;
+        }
+
+# uncomment this for slow networks
+#    sleep(1);
+   
+    my @lines = <SOCK>;
+    close(SOCK);
+    my $result = join("", @lines);
+    $result =~ s/^HTTP.*\n//g;
+    $result =~ s/^Server.*\n//g;
+    $result =~ s/^Content.*\n//g;
+    $result =~ s/^\r//g;
+    $result =~ s/[\r,\n]//g;
+    return $result;
+}
+    
+sub check_version   {
+   $wapass = Irssi::settings_get_str('httpq_password');
+   $wahost = Irssi::settings_get_str('httpq_host');
+   $waport = Irssi::settings_get_int('httpq_port');
+my (undef,$version) = split(/x/, getstat($wahost, $waport, "GET /getversion?p=$wapass"));
+
+if ($version >= 3000) {
+   return 1000000;
+} else {
+   return 1;
+}
+}
+sub parse_times ($$) {
+   my $emulatorbug = check_version();
+   my ($position, $length) = @_;
+    $position = sprintf("%02d", int(($position/1000/60))).":"
+       .sprintf("%02d", ($position/1000%60));
+    if ($length eq "-1") {
+       if ($di) {
+          $length = "/di.fm";
+       } else {
+          $length = "/netradio";
+       }
+    } elsif ($length eq "0") {
+       $length = "/sid";
+    } else {
+       $length = "/".sprintf("%02d", int(($length/$emulatorbug/60))).":"
+          .sprintf("%02d", ($length/$emulatorbug%60));
+    }
+    my $result = "$position$length";
+    return $result;
+}
+
+sub mkpercent ($$) {
+   my $emulatorbug = check_version();
+   my ($position, $length) = @_;
+   my $result;
+   my $numbers;
+   if ($length eq "-1" || $length eq "0") {
+      $result = "0";
+   } else {
+      $numbers = sprintf("%.0f",((($position/1000)/($length/$emulatorbug))*100));
+      $result = "(${numbers}%)";
+   }
+   if ($numbers>100 || $numbers<0) {
+      $result = "(wtf?)";
+   }
+   return $result;
+}
+
+sub vol_control($) {
+   $wapass = Irssi::settings_get_str('httpq_password');
+   $wahost = Irssi::settings_get_str('httpq_host');
+   $waport = Irssi::settings_get_int('httpq_port');
+
+   my ($direction) = @_;
+   if (!$direction) {
+      Irssi::print("Usage: /vol <up|down>");
+      return; 
+   }
+   
+   if ($direction eq "up") {
+      Irssi::print("Vol up..") if getstat($wahost, $waport, "GET /volumeup?p=$wapass");
+   } elsif ($direction eq "down") {
+      Irssi::print("Vol down..") if getstat($wahost, $waport, "GET /volumedown?p=$wapass");
+   }
+}
+
+
+# this function from bd@bc-bd.org
+sub expand {
+   my ($string, %format) = @_;
+   my ($exp, $repl);
+   $string =~ s/%$exp/$repl/g while (($exp, $repl) = each(%format));
+   return $string;
+}
+
+sub main_wa {
+   $wapass = Irssi::settings_get_str('httpq_password');
+   $wahost = Irssi::settings_get_str('httpq_host');
+   $waport = Irssi::settings_get_int('httpq_port');
+   my $status = getstat($wahost, $waport, "GET /isplaying?p=$wapass");
+   if ($status eq "1") {
+      my $position = getstat($wahost, $waport, "GET /getoutputtime?p=$wapass&frmt=0"); #changed arg 'a' to 'frmt'/Pieta
+      my $length = getstat($wahost, $waport, "GET /getoutputtime?p=$wapass&frmt=1"); #changed arg 'a' to 'frmt'/Pieta
+      my $emulatorbug = check_version();
+      my $song = getstat($wahost, $waport, "GET /getplaylisttitle?p=$wapass&index=" #changed arg 'a' to 'index'/Pieta
+            .getstat($wahost, $waport, "GET /getplaylistpos?p=$wapass"));
+      my $file = getstat($wahost, $waport, "GET /getplaylistfile?p=$wapass&index=" #changed arg 'a' to 'index'/Pieta
+            .getstat($wahost, $waport, "GET /getplaylistpos?p=$wapass"));
+      if ($emulatorbug > 1 && getstat($wahost, $waport, "GET /getplaylistpos?p=$wapass") == 0) {
+         $song = "WA2 plugin emulator error";
+         $file = "WA2 plugin emulator error";
+      }
+      # di.fm
+      if ($song =~ /\s?\(D.?I.?G.?I.?T.?A.?L.?L.?Y.?-.?I.?M.?P.?O.?R.?T.?E.?D.*?\)/i) {
+         $song =~ s/\s?\(D.?I.?G.?I.?T.?A.?L.?L.?Y.?-.?I.?M.?P.?O.?R.?T.?E.?D.*?\)//i;
+	 $di = 1;
+      } else {
+	 $di = 0;
+      }
+      my $lc = lc($song);
+      my $time = parse_times($position, $length);
+      my $percent = mkpercent($position, $length);
+      if (!$percent) {
+         $percent = '';
+      }
+      #my $final = "np: '$song' [$time$percent]";
+      
+      my $final = expand(Irssi::settings_get_str("httpq_command"),
+            "S", $song,
+            "T", $time,
+            "P", $percent,
+            "F", $file,
+            "L", $lc);
+      
+      Irssi::active_win()->command("$final");
+   } elsif ($status eq "3") {
+         Irssi::print("WinAmp is paused.");
+   } else {
+      Irssi::print("WinAmp isn't playing any song.");
+   }
+}
+
+sub trigger{
+      my($server,$text,$nick,$hostmask,$channel)=@_;
+      return unless Irssi::settings_get_bool('httpq_trigger_enabled');
+      my $trigger = Irssi::settings_get_str('httpq_trigger_string');
+      $trigger = "!lame" if !$trigger;
+      return unless ($text =~ /^$trigger$/);
+      
+      # now just a copy and paste of most of the main_wa function
+      # this sucks, if you figure out a better way PLEASE send me a patch :)
+      
+      $wapass = Irssi::settings_get_str('httpq_password');
+      $wahost = Irssi::settings_get_str('httpq_host');
+      $waport = Irssi::settings_get_int('httpq_port');
+      my $status = getstat($wahost, $waport, "GET /isplaying?p=$wapass");
+      if ($status eq "1") {
+         my $position = getstat($wahost, $waport, "GET /getoutputtime?p=$wapass&frmt=0"); #changed arg 'a' to 'frmt'/Pieta
+         my $length = getstat($wahost, $waport, "GET /getoutputtime?p=$wapass&frmt=1"); #changed arg 'a' to 'frmt'/Pieta
+         my $emulatorbug = check_version();
+         my $song = getstat($wahost, $waport, "GET /getplaylisttitle?p=$wapass&index=" #changed arg 'a' to 'index'/Pieta
+               .getstat($wahost, $waport, "GET /getplaylistpos?p=$wapass"));
+         my $file = getstat($wahost, $waport, "GET /getplaylistfile?p=$wapass&index=" #changed arg 'a' to 'index'/Pieta
+               .getstat($wahost, $waport, "GET /getplaylistpos?p=$wapass"));
+         if ($emulatorbug > 1 && getstat($wahost, $waport, "GET /getplaylistpos?p=$wapass") == 0) {
+            $song = "WA2 plugin emulator error";
+            $file = "WA2 plugin emulator error";
+         }
+	 # di.fm
+         if ($song =~ /\s?\(D.?I.?G.?I.?T.?A.?L.?L.?Y.?-.?I.?M.?P.?O.?R.?T.?E.?D.*?\)/i) {
+            $song =~ s/\s?\(D.?I.?G.?I.?T.?A.?L.?L.?Y.?-.?I.?M.?P.?O.?R.?T.?E.?D.*?\)//i;
+            $di = 1;
+         } else {
+            $di = 0;
+         }
+         my $lc = lc($song);
+         my $time = parse_times($position, $length);
+         my $percent = mkpercent($position, $length);
+         if (!$percent) {
+            $percent = '';
+         }
+
+         my $final = expand(Irssi::settings_get_str("httpq_trigger_command"),
+               "S", $song,
+               "T", $time,
+               "P", $percent,
+               "N", $nick,
+               "F", $file,
+               "C", $channel,
+               "L", $lc);
+
+        $server->command("$final");
+        }
+}
+
+#
+# the statusbar item code used to be here, but i doubt anyone ever used it so
+# i removed it completely. it was buggy and, imo, useless :)
+#
+
+Irssi::command_bind('wa', 'main_wa');
+Irssi::command_bind('vol', 'vol_control');
+
+Irssi::settings_add_str('misc', 'httpq_password', "password");
+Irssi::settings_add_str('misc', 'httpq_host', "hostname");
+Irssi::settings_add_int('misc', 'httpq_port', "4800");
+Irssi::settings_add_str('misc', 'httpq_command', "say np: '%S' [%T %P]");
+
+#trigger settings
+Irssi::settings_add_bool('misc', 'httpq_trigger_enabled', 0);
+Irssi::settings_add_str('misc', 'httpq_trigger_string', "!lame");
+Irssi::settings_add_str('misc', 'httpq_trigger_command', "notice %N np: '%S' [%T %P]");
+Irssi::signal_add_last("message public","trigger");
+
+#EOF
diff --git a/scripts/warnkick.pl b/scripts/warnkick.pl
new file mode 100644
index 0000000..f50204f
--- /dev/null
+++ b/scripts/warnkick.pl
@@ -0,0 +1,71 @@
+# warnkick.pl v0.0.2 by Svante Kvarnstrom <svarre@undernet.org>
+#
+# This script will warn you if you get kicked out of a channel which 
+# isn't your current "active" channel, and also hilight the refnum
+# to the channel you got kicked from, eg.:
+#
+# [03:42.50] >> zaei (~zaei@zaei.users.undernet.org) kicked you 
+# from #gentoo: GRUB GRUB GRUB GRUB GRUB GRUB GRUB GRUB GRUB
+#
+# This program is free software, you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of 
+# MERCHANTABILITY or FITNESS FOR A PERTICULAR PURPOSE. See the 
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General License 
+# along with this program; if not, write to the Free Software 
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+# ----------------------------------------------------------------------
+
+use Irssi qw(printformat signal_add theme_register);
+use Irssi::Irc;
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+# ----------------------------------------------------------------------
+
+$VERSION = "0.0.3";
+%IRSSI = (
+    authors     =>  'Svante Kvarnström',
+#    contact     =>  'svarre@undernet.org',
+	contact		=>	'sjk@ankeborg.nu',
+    name        =>  'warnkick',
+    description =>  'warns you if someone kicks you out of a channel',
+    license     =>  'GPL',
+	url			=>  'http://ankeborg.nu',
+    changed     =>  'Tue Sep 28 03:51 CEST 2004',
+);
+
+# ----------------------------------------------------------------------
+
+sub event_kick {
+    my ($server, $chan, $nick, $knick, $address, $reason) = @_;
+    my $win = Irssi::active_win();
+    my $kchan = $server->window_find_item($chan);
+
+    return if $win->{refnum} == $kchan->{refnum} || $server->{nick} ne $nick;
+
+    Irssi::active_win()->printformat(MSGLEVEL_CLIENTCRAP, 'warnkick', $knick, $address, $chan, $reason);
+    $kchan->activity(4);
+}
+
+# ----------------------------------------------------------------------
+
+theme_register([
+    'warnkick_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
+    'warnkick', '%R>>%n $0 ($1) kicked you from $2: $3'
+]);
+
+# ----------------------------------------------------------------------
+
+signal_add("message kick", "event_kick");
+
+printformat(MSGLEVEL_CLIENTCRAP, 'warnkick_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
+
diff --git a/scripts/washnicks.pl b/scripts/washnicks.pl
new file mode 100644
index 0000000..426e66e
--- /dev/null
+++ b/scripts/washnicks.pl
@@ -0,0 +1,67 @@
+# washnicks.pl
+#
+# Removes annoying characters from nicks
+#
+# TODO: 
+#    - Don't use the function if only the first letter is upper case
+#      
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+
+$VERSION = '1.01';
+%IRSSI = (
+    authors	=> 'ulbkold',
+    contact	=> 'solaris@sundevil.de',
+    name	=> 'washnicks',
+    description	=> 'Removes annoying characters from nicks',
+    license	=> 'GPL',
+    url		=> 'n/a',
+    changed	=> '12 April 2002 14:44:11',
+);
+
+# Channel list
+my @channels = ('#fof');
+
+#main event handler
+sub wash_nick {
+  my ($server, $data, $nick, $address, $target) = @_;
+  my ($channel, $msg) = split(/ :/, $data,2);
+
+  # if the current channel is in the list...
+   for (@channels) { 
+     if ($_ eq $channel) {
+       # ... check the nick 
+       # if the nick contains one of these characters or upper case letters
+       # enter the changing function
+       if ( $nick =~/[A-Z]|\||\\|\]|\[|\^|-|\`|3|0|1|4|_/ ) {
+	 $nick =~ s/\|//;
+	 $nick =~ s/\\//;
+	 $nick =~ s/\]//;
+	 $nick =~ s/\[//;
+	 $nick =~ s/\^//;
+	 $nick =~ s/-//;
+	 $nick =~ s/-//;
+	 $nick =~ s/\`//;
+	 $nick =~ s/3/e/;
+	 $nick =~ s/0/O/;
+	 $nick =~ s/1/i/;
+	 $nick =~ s/4/a/;
+	 $nick = lc($nick);
+	 
+	 # emit signal
+	 Irssi::signal_emit("event privmsg", $server, $data,
+			    $nick, $address, $target);
+	 
+	 #and stop
+	 Irssi::signal_stop();
+       }
+     }
+   } 
+  
+}
+
+
+Irssi::signal_add('event privmsg', 'wash_nick');
diff --git a/scripts/watch.pl b/scripts/watch.pl
new file mode 100644
index 0000000..5fbf14e
--- /dev/null
+++ b/scripts/watch.pl
@@ -0,0 +1,176 @@
+# Watch script para irssi
+
+# watch script consiste en un pequeño script que interpreta
+# este novedoso sistema de notify que nos evita la tarea de
+# tener que comprobar cada X tiempo si alguien de nuestro notify
+# esta en el irc, este script solamente podra ser usado en redes
+# que lo permitan, como por ejemplo irc-hispano.
+
+$VERSION = '1.0';
+%IRSSI = (
+ authors     => 'ThEbUtChE',
+ contact     => 'thebutche@interec.org',
+ name        => 'Watch script',
+ description => 'Uso del comando watch para irssi.',
+ license     => 'BSD',
+ url         => 'http://www.nebulosa.org',
+ changed     => 'viernes, 17 de enero de 2003, 03:19:15 CET',
+ bugs        => 'ninguno'
+);
+
+use Irssi;
+use Irssi::Irc;
+use POSIX qw(floor);
+
+
+
+sub watch_list
+{
+    my($file) = Irssi::get_irssi_dir."/watch";
+    my($nick);
+    local(*FILE);
+
+    open FILE, "< $file";
+    while (<FILE>) {
+	@nick = split;
+	Irssi::print "Notify \002@nick[0]\002";
+    }
+    close FILE;
+}
+
+sub esta_notify
+{
+	my ($ni) = @_;
+
+    my($file) = Irssi::get_irssi_dir."/watch";
+    my($nick);
+    local(*FILE);
+    open FILE, "< $file";
+    while (<FILE>) {
+        @nick = split;
+	if (@nick[0] eq $ni) { return 1; }
+    }
+    close FILE;
+return 0;
+}
+
+sub watch_add
+{
+	my ($nick) = @_;
+	my($file) = Irssi::get_irssi_dir."/watch";
+    local(*FILE);
+	if ($nick eq "") { Irssi::print "Debes decir un nick a incluir en la lista."; return; 
+	} elsif (esta_notify($nick)) { Irssi::print "El nick ya esta en el notify."; return; }
+
+    open FILE, ">> $file";
+                print FILE join("\t","$nick\n");
+    close FILE;
+Irssi::print "El nick $nick ha sido metido en el notify";
+Irssi::active_win()->command("quote watch +$nick");
+
+}
+
+sub watch_del
+{
+	my ($ni) = @_;
+        my($file) = Irssi::get_irssi_dir."/watch";
+        my($file2) = Irssi::get_irssi_dir."/watch2";
+	    local(*FILE);
+	    local(*FILE2);
+        if ($ni eq "") { Irssi::print "Debes decir un nick a borrar de la lista."; return;
+        } elsif (!esta_notify($ni)) { Irssi::print "El nick no esta en el notify."; return; }
+
+    open FILE2, "> $file2";
+        print FILE2 "";
+    close FILE2;
+
+    open FILE, "< $file";
+    open FILE2, ">> $file2";
+    while (<FILE>) {
+        @nick = split;
+        if (@nick[0] eq $ni) { 
+	} else {
+                print FILE2 join("\t","@nick[0]\n");
+	}
+    }
+    close FILE;
+    close FILE2;
+
+    open FILE, "> $file";
+	print FILE "";
+    close FILE;
+
+    open FILE, ">> $file";
+    open FILE2, "< $file2";
+    while (<FILE2>) {
+        @nick = split;
+		print FILE join("\t","@nick[0]\n");
+    }
+    close FILE;
+    close FILE2;
+
+Irssi::active_win()->command("quote watch -$ni");
+Irssi::print "Usuario \002$ni\002 Borrado de la lista de notify";
+
+}
+
+sub watch_list_online
+{
+Irssi::active_win()->command("quote watch l");
+}
+
+sub watch 
+{
+	my ($arg) = @_;
+	my ($cmd, $nick) = split(/ /, $arg);
+	if ($cmd eq "list") {
+		watch_list();
+	} elsif ($cmd eq "add") {
+		watch_add($nick);
+	} elsif ($cmd eq "del") {
+		watch_del($nick);
+	} else {
+		watch_list_online();
+	}
+}
+
+sub mete_lista
+{
+    my($file) = Irssi::get_irssi_dir."/watch";
+    my($nick);
+    local(*FILE);
+	my $ret;
+    open FILE, "< $file";
+    while (<FILE>) {
+        @nick = split;
+	$ret .= "+@nick[0],";
+    }
+	chop $ret;
+Irssi::active_win()->command("quote watch $ret");
+    close FILE;
+}
+
+sub event_is_online
+{
+	my ($server, $data) = @_;
+	my ($me, $nick, $ident, $host) = split(/ /, $data);
+Irssi::print "\002$nick\002 \0034[\003$ident\@$host\0034]\003 has joined to IRC";
+}
+
+sub event_is_offline
+{
+	my ($server, $data) = @_;
+	my ($me, $nick) = split(/ /, $data);
+Irssi::print "\002$nick\002 has left IRC";
+}
+sub null
+{
+}
+
+Irssi::command_bind('watch', 'watch');
+Irssi::signal_add_last('event connected', 'mete_lista');
+Irssi::signal_add('event 604', 'event_is_online');
+Irssi::signal_add('event 605', 'null');
+Irssi::signal_add('event 601', 'event_is_offline');
+Irssi::signal_add('event 600', 'event_is_online');
+
diff --git a/scripts/weather.pl b/scripts/weather.pl
new file mode 100644
index 0000000..57163dc
--- /dev/null
+++ b/scripts/weather.pl
@@ -0,0 +1,305 @@
+# Irssi weather as statusbar item and forecast command
+
+# Fixes in this version
+#
+# 1. Fixed issue with N/A&deg;F in the windchill/feelslike variable.
+# 2. Added more information in the /forecast command.
+# 3. Added an extended function for three day forecasts.
+# 4. Moved the extended function info /forecast -e (yippie! FLAGS!)
+# 5. Added a /forecast -o option to print the info to the active window
+# 6. 2.0 has a TOTAL rewrite on how to get the data. We no longer use weather.com its now Geo::Weather data
+# 7. Removed the three day extended forecast for the 2.0 version, will rewrite it later.
+# 8. 2.1 now has 10 day extended forecast, takes slightly longer to load
+# 9. 2.2 has returned to writing statusbar info to a file to save time in window switching
+# 10. 2.3 allows theme customization of weather in statusbar (written for ardya)
+
+
+# Use the following format in your theme file 
+# weather_display = "$0%R>%n%_$2%_%G>%n$4";
+#
+# $0 is temperature
+# $2 is feelslike (windchill/headindex)
+# $4 is current conditions (windy or partly cloudy)
+
+# - You have to modify this line to the path of your LWP-dir
+use lib '/usr/lib/perl5/vendor_perl/5.6.1';
+use Irssi;
+use Irssi::TextUI;
+use Geo::Weather;
+use 5.6.0;
+
+use vars qw($VERSION %IRSSI $zipcode $refresh $show_type $last_refresh $refresh_tag);
+
+$VERSION = '2.3';
+%IRSSI = (
+    authors     => 'GrayWolf',
+    contact     => 'graywolf@i-differ.net',
+    name        => 'Weather.pl',
+    description => 'Put local weather information in your statusbar as well as add a forecast command',
+    license     => 'Public Domain'
+);
+
+#
+## Variable defaults, can be changed with /set in Irssi, to save trouble I recommend setting your zipcode here
+#
+if (!$zipcode) {
+  $zipcode = "46260";
+}
+$zip = $zipcode;
+$country = "us";
+$refresh = "900";
+$show_type = "yes";
+$in_celsius = "no";
+
+#
+## Bind our commands
+#
+Irssi::command_bind("weather", "show_usage");
+Irssi::command_bind("forecast", "show_weather");
+Irssi::command_bind("weathsecret", "get_weather_for_status");
+
+#
+## Usage information
+#
+sub show_usage {
+    Irssi::print("[Usage] Forecast Statusbar script v$VERSION");
+    Irssi::print("/weather : shows usage info");
+    Irssi::print("/forecast <zipcode> : Show current forecast for <zipcode>");
+    Irssi::print("/forecast -o <zipcode> : Show current forecast for <zipcode> in the active window \(print to channel\)");
+    Irssi::print("/forecast -e <zipcode> : Show extended ten day forecast for <zipcode>");
+    Irssi::print("/set weather_refresh : Sets how often the statusbar is updated");
+    Irssi::print("/set weather_zip : The zipcode of the area you want displayed in the statusbar");
+    Irssi::print("/set weather_show_type (yes/no) : Choose if you want to see F/C in the statusbar");
+    Irssi::print("/set weather_in_celsius (yes/no) : Choose if you want to see the temperature in celsius");
+    Irssi::print("/statusbar <bar> add weather : see /help statusbar for more information.");
+}
+
+#
+## First thing run the status grab
+#
+get_weather_for_status();
+
+#
+## Get down to work
+#
+sub weather_us {
+my $winfo = new Geo::Weather;
+$winfo->{timeout} = 5; # set timeout to 5 seconds instead of the default of 10
+
+# Get the $zip from a /forecast command
+$zip = $_[0];
+
+# Currently only the US is supported, hope to add more countries later
+  if ( $country == "us" ) {
+    # Lets go get the information
+    my $current = $winfo->get_weather($zip);
+    my $forecast = $winfo->report_forecast();
+
+    $temperature = $current->{temp};
+    $feelslike = $current->{heat};
+    $description = $current->{cond};
+    $wind = $current->{wind};
+    $wind =~ s/\<br\>/\n/g;
+    $wind =~ s/\<.+?\>//sg;
+    $wind =~ s/&nbsp;//g;
+    $dewp = $current->{dewp};
+    $humi = $current->{humi};
+    $visb = $current->{visb};
+    $visb =~ s/\<br\>/\n/g;
+    $visb =~ s/\<.+?\>//sg;
+    $baro = $current->{baro};
+    $baro =~ s/\<br\>/\n/g;
+    $baro =~ s/\<.+?\>//sg;
+    return($temperature,$feelslike,$description,$wind,$dewp,$humi,$visb,$baro,$forecast);
+  } else {
+    Irssi::print("Unable to get weather for $country");
+    return(0,0,0);
+  }
+}
+
+# Statusbar formatting
+sub get_weather_for_status {
+
+  ($temperature,$feelslike,$description,$therest) = weather_us($zipcode);
+
+  # If the user doesn't want to see F in the statusbar lets strip that out
+  if ( $show_type eq 'yes' ) {
+    $temperature .= 'F';
+    $feelslike .=  'F';
+  }
+  # If the user wants his temp in celsius lets convert it here
+  if ($in_celsius eq 'yes') {
+     $convert = $temperature;
+     $convert =~ s/F//g;
+     $temperature = ((5 / 9) * ($convert - 32));
+     $temperature = sprintf('%d', $temperature);
+     $feelcon = $feelslike;
+     $feelcon =~ s/F//g;
+     $feelslike = ((5 / 9) * ($feelcon - 32));
+     $feelslike = sprintf('%d', $feelslike);
+     # Now we have the temp in celsius, do they want to see the C?
+     if ($show_type eq 'yes') {
+       $temperature .= 'C';
+       $feelslike .= 'C';
+     }
+  }
+  chomp($temperature);
+  chomp($feelslike);
+  chomp($description);
+  open STATUS_FILE, ">.irssi/weather.status" or die "Can't write to status file: $!";
+  print STATUS_FILE "$temperature,$feelslike,$description";
+  close STATUS_FILE;
+}
+
+# Status bar information
+
+sub theme_format {
+  open GET_STATUS, "<.irssi/weather.status" or die "Can't open status file: $!";
+
+  my $themed = "";
+  my $themecmd = "";
+
+  while ($line = <GET_STATUS>) {
+    ($temperature,$feelslike,$description) = split(/,/, $line);
+  }
+  chomp($description);
+  $description =~ s/ /\_\_/g;
+  $themed = Irssi::current_theme->format_expand("{weather_display $temperature  $feelslike  $description}",Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+
+  $statusbar_output = $themed;
+  return $statusbar_output;
+  Irssi::statusbar_items_redraw('weather');
+  close GET_STATUS;
+}
+
+sub weather {
+  my ($item, $get_size_only) = @_;
+
+  $sbar_out = theme_format();
+  $sbar_out =~ s/  /\//g;
+  $sbar_out =~ s/\_\_/ /g;
+  chomp($sbar_out);
+  $item->default_handler($get_size_only, "{sb $sbar_out}", undef, 1 );
+}
+
+sub show_weather {
+  my ($commands, $item, $witem) = @_;
+  ($flag, $thezip) = split(/ /, $commands);
+  if ($flag =~ /^\s*$/) {
+    $thezip = $zipcode if $thezip < 1;
+    ($temperature,$feelslike,$description,$wind,$dewp,$humi,$visb,$baro) = weather_us($thezip);
+    Irssi::active_win()->print("Information for $thezip - Temp: $temperature, Feels Like: $feelslike, Currently: $description, Dew Point: $dewp, Humidity: $humi, Visibility: $visb, Pressure: $baro, Wind: $wind");
+  } elsif ($flag =~ /^\d*$/) {
+    $flag = $zipcode if $flag < 1;
+    ($temperature,$feelslike,$description,$wind,$dewp,$humi,$visb,$baro) = weather_us($flag);
+    Irssi::active_win()->print("Information for $flag - Temp: $temperature, Feels Like: $feelslike, Currently: $description, Dew Point: $dewp, Humidity: $humi, Visibility: $visb, Pressure: $baro, Wind: $wind");
+    $flag = $zipcode;
+    weather_us($flag);
+  } elsif ($flag =~ /\-o/) {
+    if ($witem) {
+      $thezip = $zipcode if $thezip < 1;
+      ($temperature,$feelslike,$description,$wind,$dewp,$humi,$visb,$baro) = weather_us($thezip);
+      $witem->command("MSG ".$witem->{name}." Information for $thezip - Temp: $temperature, Feels Like: $feelslike, Currently: $description, Dew Point: $dewp, Humidity: $humi, Visibility: $visb, Pressure: $baro, Wind: $wind");
+      $thezip = $zipcode;
+      weather_us($thezip);
+    }
+  } elsif ($flag =~ /\-e/) {
+    if ($witem) {
+      $thezip = $zipcode if $thezip < 1;
+      ($temperature,$feelslike,$description,$wind,$dewp,$humi,$visb,$baro,$forecast) = weather_us($thezip);
+      my $count = 0;
+      my $active = 0;
+      my $day = 0;
+      my @days = ();
+
+      $forecast =~ s/\<.+?\>//sg;
+      $forecast =~ s/&nbsp;//g;
+      $forecast =~ s/&deg;/F/g;
+      $forecast =~ s/FF/F/g;
+      $forecast =~ s/^\s+//gm;
+
+      @fore = split(/\n/, $forecast);
+      $endres = undef;
+
+      foreach $line (@fore) {
+        if ($count > 3) {
+          if ($active <= 4) {
+            if ($active eq 0) {
+              # This is necessary to prevent wrapping into the next call of /forecast -e
+              $endres .= "\n";
+            }
+            chomp($line);
+            $line =~ s/ \/ /\//g;
+            $line =~ s/ \%/\% chance of precipitation/g;
+            $endres .= "$line ";
+            $active ++;
+          } else {
+            $active = 1;
+            $day ++;
+            if ($day < 11) {
+              chomp($line);
+              $line =~ s/ \/ /\//g;
+              $line =~ s/ \%/\% chance of precipitation/g;
+              $endres .= "\n$line";
+            }
+          }
+        }
+        $count ++;
+      }
+      
+      @days = split(/\n/, $endres);
+      Irssi::active_win()->print("Extended Ten Day Forecast for $thezip");
+      Irssi::active_win()->print("$days[1]");
+      Irssi::active_win()->print("$days[2]");
+      Irssi::active_win()->print("$days[3]");
+      Irssi::active_win()->print("$days[4]");
+      Irssi::active_win()->print("$days[5]");
+      Irssi::active_win()->print("$days[6]");
+      Irssi::active_win()->print("$days[7]");
+      Irssi::active_win()->print("$days[8]");
+      Irssi::active_win()->print("$days[9]");
+      Irssi::active_win()->print("$days[10]");
+    }
+  } else {
+     Irssi::active_win()->print("Cannot print to the active window");
+  }
+}
+
+
+sub refresh_weather {
+    Irssi::statusbar_items_redraw('weather');
+}
+
+sub read_settings {
+  $zipcode = Irssi::settings_get_str('weather_zip');
+  $show_type = Irssi::settings_get_str('weather_show_type');
+  $in_celsius = Irssi::settings_get_str('weather_in_celsius');
+  $refresh = Irssi::settings_get_int('weather_refresh');
+  $refresh = 1 if $refresh < 1;
+  return if $refresh == $last_refresh;
+  $last_refresh = $refresh;
+  Irssi::timeout_remove($refresh_tag) if $refresh_tag;
+  $refresh_tag = Irssi::timeout_add($refresh * 1000, 'get_weather_for_status', undef);
+  $refresh_tag = Irssi::timeout_add($refresh * 1000, 'refresh_weather', undef);
+}
+
+Irssi::settings_add_int('misc', 'weather_refresh', $refresh);
+Irssi::settings_add_str('misc', 'weather_zip', $zipcode);
+Irssi::settings_add_str('misc', 'weather_show_type', $show_type);
+Irssi::settings_add_str('misc', 'weather_in_celsius', $in_celsius);
+
+Irssi::statusbar_item_register('weather', undef, 'weather');
+Irssi::statusbars_recreate_items();
+
+read_settings();
+Irssi::signal_add('setup changed', 'read_settings');
+
+#
+## TODO
+#
+# 1. Add other countries -- (not sure if this will ever happen, feel free....)
+# 2. Fix the read_settings so that changes are immediate -- (just update your zipcode at the top of the script and don't bug me)
+# 3. Allow the extended function to show temps in C (currently only F) -- (I don't want to)
+# 4. I want to add some type of error check for the zipcodes, so that you can't enter an invalid one
+# 5. Make the lookup background or async so it doesn't tie up the irssi session -- (all I can find is fork() which requires a major rewrite.
+#    Wait the 10 damn seconds you lazy gits.)
diff --git a/scripts/whitelist.pl b/scripts/whitelist.pl
new file mode 100644
index 0000000..927a69a
--- /dev/null
+++ b/scripts/whitelist.pl
@@ -0,0 +1,445 @@
+##
+# /toggle whitelist_notify [default ON]
+# Print a message in the status window if someone not on the whitelist messages us
+#
+# /toggle whitelist_log_ignored_msgs [default ON]
+# if this is on, ignored messages will be logged to ~/.irssi/whitelist.log
+#
+# /set whitelist_nicks phyber etc
+# nicks that are allowed to msg us (whitelist checks for a valid nick before a valid host)
+#
+# /toggle whitelist_nicks_case_sensitive [default OFF]
+# do we care which case nicknames are in?
+#
+# Thanks to Geert for help/suggestions on this script
+#
+# Karl "Sique" Siegemund's addition:
+# Managing the whitelists with the /whitelist command:
+#
+# /whitelist add nick <list of nicks>
+# puts new nicks into the whitelist_nicks list
+#
+# /whitelist add host <list of hosts>
+# puts new hosts into the whitelist_hosts list
+#
+# /whitelist add chan[nel] <list of channels>
+# puts new channels into the whitelist_channels list
+#
+# /whitelist add net[work] <list of chatnets/servers>
+# puts new chatnets or irc servers into the whitelist_networks list
+#
+# /whitelist del nick <list of nicks>
+# removes the nicks from whitelist_nicks
+#
+# /whitelist del host <list of hosts>
+# removes the hosts from whitelist_hosts
+#
+# /whitelist del chan[nel] <list of channels>
+# removes the channels from whitelist_channels
+#
+# /whitelist del net[work] <list of chatnets/servers>
+# removes the chatnets or irc servers from whitelist_networks
+#
+# Instead of the 'del' modifier you can also use 'remove':
+# /whitelist remove [...]
+#
+# /whitelist nick
+# shows the current whitelist_nicks
+#
+# /whitelist host
+# shows the current whitelist_hosts
+#
+# /whitelist chan[nel]
+# shows the current whitelist_channels
+#
+# /whitelist net[work]
+# shows the current whitelist_networks
+#
+# Additional feature for nicks, channels and hosts:
+# You may use <nick>@<network>/<ircserver>, <host>@<network>/<ircserver>
+# and <channel>@<network>/<ircserver> to restrict the whitelisting to the
+# specified network or ircserver.
+#
+# The new commands are quite verbose. They are so for a reason: The commands
+# should be easy to remember and self explaining. If someone wants shorter
+# commands, feel free to use 'alias'.
+##
+# /whitelist upgrade
+# convert the old style settings to the new hash/config file based settings.
+# you MUST run this if you haven't generated a config file yet.
+#
+# /whitelist show
+# shows you all of the whitelisted entries.
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use IO::File;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0";
+%IRSSI = (
+	authors		=> "David O\'Rourke, Karl Siegemund",
+	contact		=> "phyber \[at\] #irssi, q \[at\] spuk.de",
+	name		=> "whitelist",
+	description	=> "Whitelist specific nicks or hosts and ignore messages from anyone else.",
+	licence		=> "GPLv2",
+	changed		=> "12/03/2007 15:20 GMT"
+);
+
+# location of the settings file
+my $settings_file = Irssi::get_irssi_dir.'/whitelist.conf';
+# This hash stores our various whitelists.
+my %whitelisted;
+
+# A mapping to convert simple regexp (* and ?) into Perl regexp
+my %htr = ( );
+foreach my $i (0..255) {
+	my $ch = chr($i);
+	$htr{$ch} = "\Q$ch\E";
+}
+$htr{'?'} = '.';
+$htr{'*'} = '.*';
+
+# A list of settings we can use and change
+my %types = (
+	'nick'		=> 'nicks',
+	'host'		=> 'hosts',
+	'chan'		=> 'channels',
+	'channel'	=> 'channels',
+	'net'		=> 'networks',
+	'network'	=> 'networks',
+);
+
+sub host_to_regexp {
+	my ($mask) = @_;
+	$mask = lc_host($mask);
+	$mask =~ s/(.)/$htr{$1}/g;
+	return $mask;
+}
+
+sub lc_host {
+	my ($host) = @_;
+	$host =~ s/(.+)\@(.+)/sprintf("%s@%s", $1, lc($2));/eg;
+	return $host;
+}
+
+# Show the current config
+sub print_config {
+	foreach my $listtype (keys %whitelisted) {
+		my $str = join ' ', @{$whitelisted{$listtype}};
+		Irssi::print "Whitelisted $listtype: $str";
+	}
+}
+
+# Read in the whitelist.conf
+sub read_config {
+	# nicks, hosts, channels, networks
+	my $f = IO::File->new($settings_file, 'r');
+	#die "Couldn't open $settings_file for reading" if (!defined $f);
+	if (!defined $f) {
+		Irssi::print "Couldn't open $settings_file for reading. Do you need to generate a config file with '/whitelist upgrade' ?";
+		return;
+	}
+
+	while (<$f>) {
+		chomp;
+		my ($listtype, @list) = split / /, $_;
+		@{$whitelisted{$listtype}} = map { $_ } @list;
+
+		# Make sure there is no duplicate weirdness
+		undef my %saw;
+		@{$whitelisted{$listtype}} = grep(!$saw{$_}++, @{$whitelisted{$listtype}});
+	}
+	$f = undef;
+}
+
+# Write out the whitelist.conf
+sub write_config {
+	my $f = IO::File->new($settings_file, 'w');
+	die "Couldn't open $settings_file for writing" if (!defined $f);
+
+	foreach my $listtype (keys %whitelisted) {
+		# Make sure we arn't writing duplicates
+		undef my %saw;
+		@{$whitelisted{$listtype}} = grep(!$saw{$_}++, @{$whitelisted{$listtype}});
+
+		my $str = join ' ', @{$whitelisted{$listtype}};
+		print {$f} "$listtype $str\n";
+	}
+	$f = undef;
+}
+
+# convert old settings to new settings (/whitelist upgrade)
+sub old2new {
+	my $nicks	= Irssi::settings_get_str('whitelist_nicks');
+	my $hosts	= Irssi::settings_get_str('whitelist_hosts');
+	my $channels	= Irssi::settings_get_str('whitelist_channels');
+	my $networks	= Irssi::settings_get_str('whitelist_networks');
+
+	foreach my $nick (split /\s+/, $nicks) {
+		next if not length $nick;
+		push @{$whitelisted{'nicks'}}, $nick;
+	}
+
+	foreach my $host (split /\s+/, $hosts) {
+		next if not length $host;
+		push @{$whitelisted{'hosts'}}, $host;
+	}
+
+	foreach my $channel (split /\s+/, $channels) {
+		next if not length $channel;
+		push @{$whitelisted{'channels'}}, $channel;
+	}
+
+	foreach my $network (split /\s+/, $networks) {
+		next if not length $network;
+		push @{$whitelisted{'networks'}}, $network;
+	}
+
+	write_config();
+}
+# This one gets called from IRSSI if we get a private message (PRIVMSG)
+sub whitelist_check {
+	my ($server, $msg, $nick, $address) = @_;
+	# these four settings are stored in a hash now after reading the config file.
+	#my $nicks		= Irssi::settings_get_str('whitelist_nicks');
+	#my $hosts		= Irssi::settings_get_str('whitelist_hosts');
+	#my $channels		= Irssi::settings_get_str('whitelist_channels');
+	#my $networks		= Irssi::settings_get_str('whitelist_networks');
+	my $warning		= Irssi::settings_get_bool('whitelist_notify');
+	my $casesensitive	= Irssi::settings_get_bool('whitelist_nicks_case_sensitive');
+	my $logging		= Irssi::settings_get_bool('whitelist_log_ignored_msgs');
+	my $logfile		= Irssi::get_irssi_dir.'/whitelist.log';
+
+	my $hostmask		= "$nick!$address";
+
+	my $tag			= $server->{chatnet};
+	$tag			= $server->{tag} unless defined $tag;
+	$tag			= lc($tag);
+
+	# Handle servers first, because they are the most significant,
+	# Nicks, Channels and Hostmasks are always local to a network
+	foreach my $network (@{$whitelisted{'networks'}}) {
+		# Change it to lower case
+		$network = lc($network);
+		# Kludge. Sometimes you get superfluous '', you have to ignore
+		next if ($network eq '');
+		# Rewrite simplified regexp (* and ?) to Perl regexp
+		$network =~ s/(.)/$htr{$1}/g;
+		# Either the server tag matches
+		return if ($tag =~ /$network/);
+		# Or its address
+		return if ($server->{address} =~ /$network/);
+	}
+
+	# Nicks are the easiest to handle with the least computational effort.
+	# So do them before hosts and networks.
+	foreach my $whitenick (@{$whitelisted{'nicks'}}) {
+		if (!$casesensitive) {
+			$nick = lc($nick);
+			$whitenick = lc($whitenick);
+		}
+		# Simple check first: Is the nick itself whitelisted?
+		return if ($nick eq $whitenick);
+		# Second check: We have to look if the nick was localized to a network
+		# or irc server. So we have to look at <nick>@<network> too.
+		($whitenick, my $network) = split /@/, $whitenick, 2;
+		# Ignore nicks without @<network>
+		next if !defined $network;
+		# Convert simple regexp to Perl regexp
+		$network =~ s/(.)/$htr{$1}/g;
+		# If the nick matches...
+		if ($nick eq $whitenick) {
+			# ...allow if the server tag is right...
+			return if ($tag =~ /$network/);
+			# ...or the server address matches
+			return if ($server->{address} =~ /$network/);
+		}
+	}
+	
+	# Hostmasks are somewhat more sophisticated, because they allow wildcards
+	foreach my $whitehost (@{$whitelisted{'hosts'}}) {
+		# Kludge, sometimes you get ''
+		next if ($whitehost eq '');
+		# First reconvert simple regexp to Perl regexp
+		$whitehost = host_to_regexp($whitehost);
+		# Allow if the hostmask matches
+		return if ($hostmask =~ /$whitehost/);
+		# Check if hostmask is localized to a network
+		(my $whitename, $whitehost, my $network) = split /@/, $whitehost, 3;
+		# Ignore hostmasks without attached network
+		next if !defined $network;
+		# We don't need to convert the network address again
+		# $network =~ s/(.)/$htr{$1}/g;
+		# But we have to reassemble the hostmask
+		$whitehost = "$whitename\@$whitehost";
+		# If the hostmask matches...
+		if ($hostmask eq $whitehost) {
+			# ...allow if the server tag is ok...
+			return if ($tag =~ /$network/);
+			# ... or the server address
+			return if ($server->{address} =~ /$network/);
+		}
+	}
+
+	# Channels require some interaction with the server, so we do them last,
+	# hoping that some ACCEPT cases are already done, thus saving computation
+	# time and effort
+	foreach my $channel (@{$whitelisted{'channels'}}) {
+		# Check if we are on the specified channel
+		my $chan = $server->channel_find($channel);
+		# If yes...
+		if (defined $chan) {
+			# Check if the nick in question is also on that channel
+			my $chk = $chan->nick_find($nick);
+			# Allow the message
+			return if defined $chk;
+		}
+		# Check if we are talking about a localized channel
+		($chan, my $network) = split /@/, $_, 2;
+		# Ignore not localized channels
+		next if !defined $network;
+		# Convert simple regexp to Perl regexp
+		$network =~ s/(.)/$htr{$1}/g;
+		# Ignore channels from a differently tagged server or from a different
+		# address
+		next if (!($tag =~ /$network/ || $server->{address} =~ /$network/));
+		# Check if we are on the channel
+		$chan = $server->channel_find($chan);
+		# Ignore if not
+		next unless defined $chan;
+		# Check if $nick is on that channel too
+		my $chk = $chan->nick_find($nick);
+		# Allow if yes
+		return if defined $chk;
+	}
+	
+	# Do we want a notice about this message attempt?
+	if ($warning) {
+		Irssi::print "[$tag] $nick [$address] attempted to send private message.";
+	}
+	
+	# Do we want to make a log entry for it?
+	if ($logging) {
+		my $f = IO::File->new($logfile, '>>');
+		return if (!defined $f);
+		print {$f} localtime().": [$tag] $nick [$address]: $msg\n";
+		$f = undef;
+	}
+
+	# stop if the message isn't from a whitelisted address
+	Irssi::signal_stop();
+	return;
+}
+
+sub usage {
+	Irssi::print "Usage: whitelist (add|del|remove) (nick|host|chan[nel]|net[work]) <list>";
+	Irssi::print "       whitelist (nick|host|chan[nel]|net[work])";
+	Irssi::print "       whitelist upgrade";
+	Irssi::print "       whitelist show";
+}
+
+# This is bound to the /whitelist command
+sub whitelist_cmd {
+	my ($args, $server, $winit) = @_;
+	my ($cmd, $type, $rest) = split /\s+/, $args, 3;
+
+	# What type of settings we want to change?
+	my $listtype = $types{$type};
+
+	# If we didn't get a syntactically correct command, put out an error
+	if(!defined $listtype && defined $type) {
+		usage;
+		return;
+	} 
+	
+	# What are we doing?
+	if ($cmd eq 'add') {
+		# split $rest into a list.
+		my @list = split /\s+/, $rest;
+
+		# Add the entries to the whitelist and then make sure it's unique
+		foreach my $entry (@list) {
+			push @{$whitelisted{$listtype}}, $entry;
+			undef my %saw;
+			@{$whitelisted{$listtype}} = grep(!$saw{$_}++, @{$whitelisted{$listtype}});
+		}
+	} elsif ($cmd eq 'del' || $cmd eq 'remove') {
+		# Escape all letters to protect the Perl Regexp special characters
+		$rest =~ s/(.)/$htr{$1}/g;
+
+		# Make a list of things we want removing.
+		my @list = split /\s+/, $rest;
+
+		# Use grep to remove the list of things we don't want anymore.
+		foreach my $removal (@list) {
+			@{$whitelisted{$listtype}} = grep {!/^$removal$/} @{$whitelisted{$listtype}};
+		}
+	} elsif ($cmd eq 'upgrade') {
+		Irssi::print "Converting old style /settings to new config file based settings";
+		old2new();
+		read_config();
+		print_config();
+		return;
+	} elsif ($cmd eq 'show') {
+		print_config();
+		return;
+	} elsif(!defined $type) {
+		# Look if we just want to see the current values
+		$listtype = $types{$cmd};
+		if (defined $listtype) {
+			# Print them
+			Irssi::print "Whitelist ${cmd}s: ".join ' ', @{$whitelisted{$listtype}};
+		} else {
+			# Or give error message
+			usage;
+		}
+		return;
+	} else {
+		# If we felt through until here, something went wrong
+		usage;
+		return;
+	}
+	# Display the changed value and store it in the settings
+	Irssi::print "Whitelist ${type}s: ".join ' ', @{$whitelisted{$listtype}};
+	# Save the new settings
+	write_config();
+	return;
+}
+
+Irssi::settings_add_bool('whitelist', 'whitelist_notify' => 1);
+Irssi::settings_add_bool('whitelist', 'whitelist_log_ignored_msgs' => 1);
+Irssi::settings_add_bool('whitelist', 'whitelist_nicks_case_sensitive' => 0);
+
+foreach (keys(%types)) {
+	Irssi::settings_add_str('whitelist', 'whitelist_'.$types{$_}, '');
+}
+
+Irssi::signal_add_first('message private', \&whitelist_check);
+
+Irssi::command_bind('whitelist', \&whitelist_cmd);
+
+# Read the config
+\&read_config();
+#########################
+####### Changelog #######
+### 1.0: David O'Rourke
+# Changed how whitelists are stored.  We no longer use the settings_*_str for them.
+# We now store them in a hash and write/read a config file.
+# Added '/whitelist old2new' function, for converting to the new style list.
+# Added '/whitelist show' for showing everything that's been whitelisted.
+### 0.9g: David O'Rourke
+# Cleanups.
+### 0.9f: David O'Rourke
+# Cleanups.
+### 0.9e: David O'Rourke
+# Changed print -> Irssi::print
+# Fixed '' in $whitehost
+#########################
+# 0.9d: David O'Rourke
+# General cleanup of script.
+# Removed pointless function timestamp()
+# Removed pointless global variables $tstamp, $whitenick, $whitehost
+# Created whitelist logging directory in ~/.irssi with option to rotate log daily.
+# Fixed comparison of whitelist_networks to $tag.  $tag was being lowercased, whitelist_networks was not.
diff --git a/scripts/whois.pl b/scripts/whois.pl
new file mode 100644
index 0000000..e6be917
--- /dev/null
+++ b/scripts/whois.pl
@@ -0,0 +1,38 @@
+# whois.pl/Irssi/fahren@bochnia.pl
+
+use Irssi;
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0";
+%IRSSI = (
+        authors         => "Maciek \'fahren\' Freudenheim",
+        contact         => "fahren\@bochnia.pl",
+        name            => "cwhois",
+        description     => "Hilights \'@\' in whois channel reply",
+        license         => "GNU GPLv2 or later",
+        changed         => "Fri Mar 15 15:09:42 CET 2002"
+);
+
+Irssi::theme_register([
+  'cwhois_channels', '{whois channels %|$1}'
+]);
+  
+sub event_cwhois
+{
+	my ($server, $data) = @_;
+
+	my ($nick, $chans) = $data =~ /([\S]+)\s:(.*)/;
+
+	my $ret;
+	foreach my $chan (split(/ /, $chans)) {
+		$ret .= (($chan =~ s/^@//)? "\00316@\003" : "") . $chan . " ";
+	}
+
+ 	chop $ret;
+	$server->printformat($nick, MSGLEVEL_CRAP, 'cwhois_channels', $nick, $ret);
+    
+	Irssi::signal_stop();
+}
+
+Irssi::signal_add('event 319', 'event_cwhois');
diff --git a/scripts/whois_hexip.pl b/scripts/whois_hexip.pl
new file mode 100644
index 0000000..f1e4386
--- /dev/null
+++ b/scripts/whois_hexip.pl
@@ -0,0 +1,102 @@
+#!/usr/bin/perl
+# whois_hexip irssi module
+# written by Michael Kowalchuk <michael_kowalchuk@umanitoba.ca>
+#
+# Every time a WHOIS or WHOWAS is run, this script checks the
+# ident and realname for a hex encoded IP address, then decodes
+# it, optionally reverses it, and adds it to the printed WHOIS
+# result. Useful for looking at CGI::IRC clients.
+#
+# dns lookups are blocking, so if you find them to be slow, disable
+# lookups with the whois_hexip_lookup option.
+#
+# usage:
+#
+# put this script into your autorun directory and/or load it with
+#  /SCRIPT LOAD whois_hexip
+#
+# there is 1 setting:
+#  /set whois_hexip_lookup ON/OFF
+#
+# lookup means attempt to get the hostname; if it is off you will
+# only get the IP address
+#
+#
+# changes:
+#  24.12.2005 fix msg levels so the hexip won't end up in the wrong win
+#  10.10.2005 allowed idents to start with ~
+#  07.09.2005 limit to 32 bit numbers
+#  28.07.2005 changed realname matching to look for 0 or 1 non-word
+#             characters on either side of the hexadecimal number
+#             for less false-positives
+#  13.07.2005 added max_realname_nonhex
+#  12.07.2005 initial release
+#
+
+use strict;
+use Irssi;
+use Socket;
+
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.4";
+%IRSSI = (
+    authors     => "Michael Kowalchuk",
+    contact     => "michael_kowalchuk\@umanitoba.ca",
+    name        => "whois_hexip",
+    description => "Every time a WHOIS or WHOWAS is run, this script checks the ident and realname for a hex encoded IP address, then decodes it, reverses it, and adds it to the printed WHOIS/WHOWAS result. Useful for looking at CGI::IRC clients.",
+    license     => "MIT",
+    url         => "http://home.cc.umanitoba.ca/~umkowa17/junk/whois_hexip.pl",
+    changed     => "12.24.2005",
+);
+
+my $hexreg = "[A-Fa-f0-9]+";
+
+sub event_server_event {
+	my ($server, $text) = @_;
+
+	# Look up the ident and whois
+	my @items = split(/ /,$text);
+
+	my $ident = $items[2];
+	$ident =~ s/^~//;
+	
+	# CGI::IRC can put the IP in the WHOIS too!  Thanks mef
+	my $whois = join(" ",  @items[5 .. @items] );
+	$whois =~ s/^://; # Remove the initial :
+	$whois =~ s/\s+$//; # and any trailing whitespace
+
+	# Set $num to whatever string holds the hex ip, with
+	# priority given to the ident
+	my @numarray = undef;
+	@numarray = ($ident =~ /^\~?($hexreg)$/ );
+	@numarray = ($whois =~ /^($hexreg)$/) if @numarray eq 0;
+	@numarray = ($whois =~ /^[^\w]($hexreg)[^\w]$/) if @numarray eq 0;
+
+	my $num = $numarray[0] if @numarray gt 0;	
+
+	if( $num and length($num) <= 8 ) {
+		my $ip = inet_aton(hex $num);
+		my $display = gethostbyaddr($ip, AF_INET)
+			if Irssi::settings_get_bool($IRSSI{'name'}."_lookup");
+
+		# If there's a DNS timeout rather than an NXDOMAIN,
+		# you get an empty string rather than undefined
+		if( not defined $display or ( $display eq "" )  ) {
+			$display = inet_ntoa($ip)
+		}
+	
+		$server->printformat($items[1], MSGLEVEL_CRAP, $IRSSI{'name'},
+						$items[1], $display );
+	}
+}
+
+
+Irssi::theme_register([$IRSSI{'name'} => '{whois hexip %|$1}']);
+
+Irssi::signal_add_last('event 311', 'event_server_event'); # WHOIS
+Irssi::signal_add_last('event 314', 'event_server_event'); # WHOWAS
+
+Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_lookup', 1);
+
diff --git a/scripts/whos.pl b/scripts/whos.pl
new file mode 100644
index 0000000..6394009
--- /dev/null
+++ b/scripts/whos.pl
@@ -0,0 +1,83 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '1.00';
+%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::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'
+]);
+
+#server name given in /whos if any
+my $SERVER_NAME;
+
+#WHOS <CHANNEL>
+sub cmd_whos
+{
+   my @parv;
+   my ($data, $server, $witem) = @_;
+   my $chan;
+
+   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)
+   {
+      $SERVER_NAME = $server->{tag};
+   }
+   else
+   {
+      $SERVER_NAME = $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);
+
+   if($who[4] =~ /$SERVER_NAME/)
+   {
+      Irssi::printformat(MSGLEVEL_CRAP, 'whos',$who[1], $who[5],$who[6], $who[7], $who[2], $who[3], $who[8]);
+   }
+}
+
+sub sig_whosend
+{
+   my ($server, $msg, $nick, $address, $target) = @_;
+   Irssi::printformat(MSGLEVEL_CRAP, 'whos_end');
+}
diff --git a/scripts/wilm.pl b/scripts/wilm.pl
new file mode 100644
index 0000000..59fd1a5
--- /dev/null
+++ b/scripts/wilm.pl
@@ -0,0 +1,54 @@
+# wilm.pl
+# Lam 28.10.2001, 10.3.2002
+# lam@lac.pl
+
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "1.0.1";
+%IRSSI = (
+	authors => "Leszek Matok",
+	contact => "lam\@lac.pl",
+	name => "wilm",
+	description => "Provides /wilm and /wiilm commands, which do a whois on a person who sent you last private message",
+	license => "Public Domain",
+	changed => "10.3.2002 14:00"
+);
+
+my $last_nick;
+my $last_server;
+
+sub wilm {
+	my @all_servers = Irssi::servers();
+	foreach my $one_server ( @all_servers ) {
+		if ( $one_server = $last_server ) {
+			$one_server->command( "whois $last_nick" );
+			return;
+		}
+	}
+	Irssi::print( "noone to whois" );
+}
+
+sub wiilm {
+	my @all_servers = Irssi::servers();
+	foreach my $one_server ( @all_servers ) {
+		if ( $one_server = $last_server ) {
+			$one_server->command( "whois $last_nick $last_nick" );
+			return;
+		}
+	}
+	Irssi::print( "noone to whois" );
+}
+
+sub privmsg {
+	my ( $server, $data, $nick, $address ) = @_;
+	my ( $target, $text ) = split( / :/, $data, 2 );
+
+	if ( ( lc $target ) eq ( lc $server->{ nick } ) ) {
+		$last_nick = $nick;
+		$last_server = $server;
+	}
+}
+
+Irssi::command_bind( "wilm", "wilm" );
+Irssi::command_bind( "wiilm", "wiilm" );
+Irssi::signal_add( "event privmsg", "privmsg" );
diff --git a/scripts/window_switcher.pl b/scripts/window_switcher.pl
new file mode 100644
index 0000000..3c4d805
--- /dev/null
+++ b/scripts/window_switcher.pl
@@ -0,0 +1,146 @@
+# window_switcher: makes switching windows easy
+#
+# Usage:
+# * Add the statusbar item:
+#   /STATUSBAR window add window_switcher
+# * Type /ws followed by a window number or part of a window or channel name.
+# * When the right item is at the first place in the statusbar, press enter.
+# * For faster usage, do "/BIND ^G multi erase_line;insert_text /ws ",
+#    type ctrl-G, and start typing...
+
+# Copyright 2007  Wouter Coekaerts <coekie@irssi.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+use strict;
+use Irssi;
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = '1.0';
+%IRSSI = (
+    authors     => 'Wouter Coekaerts',
+    contact     => 'coekie@irssi.org',
+    name        => 'window_switcher',
+    description => 'makes switching windows easy',
+    license     => 'GPLv2 or later',
+    url         => 'http://wouter.coekaerts.be/irssi/',
+    changed     => '29/07/07'
+);
+
+sub window_switcher_sb {
+	my ($sbItem, $get_size_only) = @_;
+
+	my $prompt = Irssi::parse_special('$L');
+	my $cmdchars = Irssi::parse_special('$K');
+	
+	my $sb = '';
+	
+	if ($prompt =~ /^(.)ws (.+)$/i && index($cmdchars,$1) != -1) {
+		my $arg = $2;
+		my $wins = find_wins($arg);
+		
+		foreach my $win (@$wins) {
+			$sb .= $win->{text} . ' ';
+		}
+		$sb =~ s/ $//;
+	}
+	
+	$sbItem->default_handler($get_size_only, "{sb $sb}", undef, 1);
+}
+
+sub find_wins {
+	my ($arg) = @_;
+	my @wins;
+	foreach my $window (Irssi::windows()) {
+		my @items = $window->items();
+		my $regex = qr/^(.*?)(\Q$arg\E)(.*)$/i;
+		
+		my $match = 0;
+		my $text;
+		my $refnumtext = $window->{refnum};
+		my $itemname;
+		
+		if ($window->{refnum} eq $arg) {
+			$match = 1;
+			if ($window->{name} ne '') {
+				$text = $window->{name};
+			} elsif (scalar(@items) > 0) {
+				$text = $items[0]->{visible_name};
+			} else {
+				$text = '';
+			}
+			$refnumtext = "%G$refnumtext%n";
+		} elsif ($window->{name} =~ $regex) {
+			($match, $text) = do_match($1, $2, $3);
+		} else {
+			foreach my $item (@items) {
+				if ($item->{visible_name} =~ $regex) {
+					($match, $text) = do_match($1, $2, $3);
+					$itemname = $item->{name};
+					last;
+				}
+			}
+		}
+		
+		if ($match) {
+			push @wins, {
+				match => 1000 * $match + $window->{refnum},
+				refnum => $window->{refnum},
+				text => "$refnumtext:$text",
+				itemname => $itemname
+			};
+		}
+	}
+	
+	@wins = sort {$a->{match} <=> $b->{match}} @wins;
+	return \@wins;
+}
+
+sub do_match {
+	my ($begin, $mid, $end) = @_;
+	my $match;
+	if ($begin eq '' || $begin eq '#') {
+		$match = ($end eq '') ? 2 : 3;
+	} else {
+		$match = 4;
+	}
+	return ($match, "%g$begin%G$mid%g$end%n");
+}
+
+Irssi::command_bind('ws', sub {
+	my ($data, $server, $win) = @_;
+	my $wins = find_wins($data);
+	if (scalar(@$wins) > 0) {
+		my $win = $wins->[0];
+		Irssi::command('window goto ' . $win->{refnum});
+		if (defined($win->{itemname})) {
+			Irssi::command('window item goto ' . $win->{itemname});
+		}
+	}
+});
+
+Irssi::statusbar_item_register ('window_switcher', 0, 'window_switcher_sb');
+
+my $scheduled = 0;
+Irssi::signal_add_last 'gui key pressed' => sub {
+	unless ($scheduled) {
+		$scheduled = 1;
+		Irssi::timeout_add_once(100, sub {
+			Irssi::statusbar_items_redraw ('window_switcher');
+			$scheduled = 0;
+		}, []);
+	}
+};
diff --git a/scripts/wisestamp.pl b/scripts/wisestamp.pl
new file mode 100644
index 0000000..5e0e373
--- /dev/null
+++ b/scripts/wisestamp.pl
@@ -0,0 +1,75 @@
+#################################
+#       WISESTAMP MANUAL        #
+#################################
+#                               #
+# /set wisestamp_indent [num]   # 
+#                               #  
+#################################
+
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.1";
+%IRSSI = (
+	  authors     => 'Antti Ruokomäki',
+	  contact     => 'antti.ruokomaki@mbnet.fi',
+	  name        => 'wisestamp',
+	  description => 'If timestamp_timeout is used, the text '.
+	                 'will be indented when the stamp is hidden',
+	  license     => 'Public Domain',
+	  changed     => 'Wed Apr 12 22:46:00 2006'
+	  );
+
+
+my $timeout;
+my $indent_str;
+
+# $inprogress prevents infinite printint loops
+my $inprogress = 0;
+
+# The main function
+sub show_stamp_shadow {
+
+    return if ($inprogress
+	       || $timeout == '0'
+	       || Irssi::settings_get_bool('timestamps') == 0);
+
+    $inprogress = 1;    
+
+    my ($destination, $text, $stripped) = @_;
+    my $last_stamp = $destination->{window}->{last_timestamp};
+    my $time_from_last_stamp = time() - $last_stamp;
+    
+    # Add indent if timestamp is hidden
+    if( $time_from_last_stamp < $timeout ) {
+	$text = $indent_str.$text;
+    }
+
+    # Output the manipulated text
+    Irssi::signal_emit('print text', $destination, $text, $stripped);
+    $inprogress = 0;
+    Irssi::signal_stop(); 
+} 
+
+
+# Reset settings on startup and when settings change
+sub check_settings {
+
+    # Recalculate the indent string
+    my $indent = Irssi::settings_get_int('wisestamp_indent');
+    $indent_str = '';
+    for (my $count=0; $count<$indent; $count++) {
+	$indent_str .= ' ';
+    }
+
+    # Check out the timeout
+    $timeout = Irssi::settings_get_str('timestamp_timeout');
+}
+
+
+Irssi::settings_add_int('wisestamp', 'wisestamp_indent', 5);
+Irssi::signal_add('setup changed' , \&check_settings);
+Irssi::signal_add('print text'    , \&show_stamp_shadow);
+
+check_settings();
\ No newline at end of file
diff --git a/scripts/wkb.pl b/scripts/wkb.pl
new file mode 100644
index 0000000..527536a
--- /dev/null
+++ b/scripts/wkb.pl
@@ -0,0 +1,57 @@
+use Irssi 20020217; # Irssi 0.8.0
+$VERSION = "1.1";
+%IRSSI = (
+    authors     =>  "Matti 'qvr' Hiljanen",
+    contact     =>  "matti\@hiljanen.com",
+    name        =>  "wkb",
+    description =>  "A simple word kickbanner",
+    license     =>  "Public Domain",
+    url         =>  "http://matin.maapallo.org/softa/irssi",
+);
+
+use strict;
+use Irssi;
+
+my @channels =
+  qw(#foo #foo2);
+
+my @words =
+  qw(bad_word bad_word2);
+
+my @gods =
+  qw(qvr other_gods);
+  
+sub sig_public {
+    my ($server, $msg, $nick, $address, $target) = @_;
+
+    return if $nick eq $server->{nick};
+
+    $msg =~ s/[\000-\037]//g;
+    my $rmsg = $msg;
+    $msg = lc($msg);
+
+    # bad word
+    my $nono = 0;
+    foreach (@words) { $nono = 1 if $msg =~ /$_/ }
+    return unless $nono;
+       
+    # channel? 
+    my $react = 0;
+    foreach (@channels) { $react = 1 if lc($target) eq lc($_) }
+    return unless $react;
+
+    # god-like person?
+    my $jumala = 0;
+    foreach (@gods) { $jumala = 1 if lc($nick) =~ /$_/ }
+    return if $jumala;
+    
+    # voiced or op'd?
+    return if $server->channel_find($target)->nick_find($nick)->{op} || $server->channel_find($target)->nick_find($nick)->{voice};
+
+    $server->command("kickban $target $nick WKB initiated");
+    Irssi::print("Word kick: Kicking $nick from $target. (He said $rmsg)");
+}
+
+Irssi::signal_add_last('message public', 'sig_public');
+
+
diff --git a/scripts/wlstat.pl b/scripts/wlstat.pl
new file mode 100644
index 0000000..1bac546
--- /dev/null
+++ b/scripts/wlstat.pl
@@ -0,0 +1,669 @@
+use strict; # use warnings;
+
+# FIXME COULD SOMEONE PLEASE TELL ME HOW TO SHUT UP
+#
+# ...
+# Variable "*" will not stay shared at (eval *) line *.
+# Variable "*" will not stay shared at (eval *) line *.
+# ...
+# Can't locate package Irssi::Nick for @Irssi::Irc::Nick::ISA at (eval *) line *.
+# ...
+#
+# THANKS
+
+use Irssi (); # which is the minimum required version of Irssi ?
+use Irssi::TextUI;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.5';
+%IRSSI = (
+    authors     => 'BC-bd, Veli, Timo \'cras\' Sirainen, Wouter Coekaerts, Nei',
+    contact     => 'bd@bc-bd.org, veli@piipiip.net, tss@iki.fi, wouter@coekaerts.be, Nei@QuakeNet',
+    name        => 'wlstat',
+    description => 'Adds a window list in the status area. Based on chanact.pl by above authors.',
+    license     => 'GNU GPLv2 or later',
+);
+
+# adapted by Nei
+
+###############
+# original comment
+# ###########
+# # Adds new powerful and customizable [Act: ...] item (chanelnames,modes,alias).
+# # Lets you give alias characters to windows so that you can select those with
+# # meta-<char>.
+# #
+# # for irssi 0.8.2 by bd@bc-bd.org
+# #
+# # inspired by chanlist.pl by 'cumol@hammerhart.de'
+# #
+# #########
+# # Contributors
+# #########
+# #
+# # veli@piipiip.net   /window_alias code
+# # qrczak@knm.org.pl  chanact_abbreviate_names
+# # qerub@home.se      Extra chanact_show_mode and chanact_chop_status
+# #
+#
+# FURTHER THANKS TO
+# ############
+# # buu, fxn, Somni, Khisanth, integral, tybalt89   for much support in any aspect perl
+# # and the channel in general ( #perl @ freenode ) and especially the ir_* functions
+# #
+# # Valentin 'senneth' Batz ( vb@g-23.org ) for the pointer to grep.pl, continuous support
+# #                                         and help in digging up ir_strip_codes
+# #
+# # OnetrixNET technology networks for the debian environment
+# #
+# # Monkey-Pirate.com / Spaceman Spiff for the webspace
+# #
+#
+
+######
+# M A I N    P R O B L E M
+#####
+#
+# It is impossible to place the wlstat on a statusbar together with other items, because I
+# do not know how to calculate the size that it is going to get granted, and therefore I
+# cannot do the linebreaks properly.
+# This is what is missing to make a nice script out of wlstat.
+# If you have any ideas, please contact me ASAP :).
+#
+######
+
+######
+# UTF-8 PROBLEM
+#####
+#
+# Please help me find a solution to this:
+# this be your statusbar, it is using up the maximum term size
+# [[1=1]#abc [2=2]#defghi]
+# 
+# now consider this example: "ascii" characters are marked with ., utf-8 characters with *
+# [[1=1]#... [2=2]#...***]
+#
+# you should think that this is how it would be displayed? WRONG!
+# [[1=1]#... [2=2]#...***   ]
+#
+# this is what Irssi does.. I believe my length calculating code to be correct, however, I'd
+# love to be proven wrong (or receive any other fix, too, of course!)
+#
+######
+
+#########
+# USAGE
+###
+#
+# copy the script to ~/.irssi/scripts/
+#
+# In irssi:
+#
+#		/script load wlstat
+#
+#
+# Hint: to get rid of the old [Act:] display
+#     /statusbar window remove act
+#
+# to get it back:
+#     /statusbar window add -after lag -priority 10 act
+#
+##########
+# OPTIONS
+########
+#
+# /set wlstat_display_nokey <string>
+# /set wlstat_display_key <string>
+#		* string : Format String for one window. The following $'s are expanded:
+#		    $C : Name
+#		    $N : Number of the Window
+#		    $Q : meta-Keymap
+#		    $H : Start highlighting
+#		    $S : Stop highlighting
+#     IMPORTANT: don't forget to use $S if you used $H before!
+#
+# /set wlstat_separator <string>
+#     * string : Charater to use between the channel entries
+#     you'll need to escape " " space and "$" like this:
+#     "/set wlstat_separator \ "
+#     "/set wlstat_separator \$"
+#     and {}% like this:
+#     "/set wlstat_separator %{"
+#     "/set wlstat_separator %}"
+#     "/set wlstat_separator %%"
+#     (reason being, that the separator is used inside a {format })
+#
+# /set wlstat_hide_data <num>
+#     * num : hide the window if its data_level is below num
+#     set it to 0 to basically disable this feature,
+#               1 if you don't want windows without activity to be shown
+#               2 to show only those windows with channel text or hilight
+#               3 to show only windows with hilight
+#
+# /set wlstat_maxlines <num>
+#     * num : number of lines to use for the window list (0 to disable)
+#
+# /set wlstat_sort <-data_level|-last_line|refnum>
+#     * you can change the window sort order with this variable
+#         -data_level : sort windows with hilight first
+#         -last_line  : sort windows in order of activity
+#         refnum      : sort windows by window number
+#
+# /set wlstat_placement <top|bottom>
+# /set wlstat_position <num>
+#     * these settings correspond to /statusbar because wlstat will create
+#       statusbars for you
+#     (see /help statusbar to learn more)
+#
+# /set wlstat_all_disable <ON|OFF>
+#     * if you set wlstat_all_disable to ON, wlstat will also remove the
+#       last statusbar it created if it is empty.
+#       As you might guess, this only makes sense with wlstat_hide_data > 0 ;)
+#
+###
+# WISHES
+####
+#
+# if you fiddle with my mess, provide me with your fixes so I can benefit as well
+#
+# Nei =^.^= ( QuakeNet accountname: ailin )
+#
+
+my $actString = [];   # statusbar texts
+my $currentLines = 0;
+my $resetNeeded;      # layout/screen has changed, redo everything
+my $needRemake;       # "normal" changes
+#my $callcount = 0;
+my $globTime = undef; # timer to limit remake() calls
+
+my %statusbars;       # currently active statusbars
+
+# maybe I should just tie the array ?
+sub add_statusbar {
+	for (@_) {
+		# add subs
+		for my $l ($_) { eval {
+			no strict 'refs'; # :P
+			*{"wlstat$l"} = sub { wlstat($l, @_) };
+		}; }
+		Irssi::command("statusbar wl$_ reset");
+		Irssi::command("statusbar wl$_ enable");
+		if (lc Irssi::settings_get_str('wlstat_placement') eq 'top') {
+			Irssi::command("statusbar wl$_ placement top");
+		}
+		if ((my $x = int Irssi::settings_get_int('wlstat_position')) != 0) {
+			Irssi::command("statusbar wl$_ position $x");
+		}
+		Irssi::command("statusbar wl$_ add -priority 100 -alignment left barstar");
+		Irssi::command("statusbar wl$_ add wlstat$_");
+		Irssi::command("statusbar wl$_ add -priority 100 -alignment right barend");
+		Irssi::command("statusbar wl$_ disable");
+		Irssi::statusbar_item_register("wlstat$_", '$0', "wlstat$_");
+		$statusbars{$_} = {};
+	}
+}
+
+sub remove_statusbar {
+	for (@_) {
+		Irssi::command("statusbar wl$_ reset");
+		Irssi::statusbar_item_unregister("wlstat$_"); # XXX does this actually work ?
+		# DO NOT REMOVE the sub before you have unregistered it :))
+		for my $l ($_) { eval {
+			no strict 'refs';
+			undef &{"wlstat$l"};
+		}; }
+		delete $statusbars{$_};
+	}
+}
+
+sub syncLines {
+	my $temp = $currentLines;
+	$currentLines = @$actString;
+	#Irssi::print("current lines: $temp new lines: $currentLines");
+	my $currMaxLines = Irssi::settings_get_int('wlstat_maxlines');
+	if ($currMaxLines > 0 and @$actString > $currMaxLines) {
+		$currentLines = $currMaxLines;
+	}
+	return if ($temp == $currentLines);
+	if ($currentLines > $temp) {
+		for ($temp .. ($currentLines - 1)) {
+			add_statusbar($_);
+			Irssi::command("statusbar wl$_ enable");
+		}
+	}
+	else {
+		for ($_ = ($temp - 1); $_ >= $currentLines; $_--) {
+			Irssi::command("statusbar wl$_ disable");
+			remove_statusbar($_);
+		}
+	}
+}
+
+my %keymap;
+
+sub get_keymap {
+	my ($textDest, undef, $cont_stripped) = @_;
+	if ($textDest->{'level'} == 524288 and $textDest->{'target'} eq '' and !defined($textDest->{'server'})) {
+		if ($cont_stripped =~ m/meta-(.)\s+change_window (\d+)/) { $keymap{$2} = "$1"; }
+		Irssi::signal_stop();
+	}
+}
+
+sub update_keymap {
+	%keymap = ();
+	Irssi::signal_remove('command bind' => 'watch_keymap');
+	Irssi::signal_add_first('print text' => 'get_keymap');
+	Irssi::command('bind'); # stolen from grep
+	Irssi::signal_remove('print text' => 'get_keymap');
+	Irssi::signal_add('command bind' => 'watch_keymap');
+	Irssi::timeout_add_once(100, 'eventChanged', undef);
+}
+
+# watch keymap changes
+sub watch_keymap {
+	Irssi::timeout_add_once(1000, 'update_keymap', undef);
+}
+
+update_keymap();
+
+sub expand {
+	my ($string, %format) = @_;
+	my ($exp, $repl);
+	$string =~ s/\$$exp/$repl/g while (($exp, $repl) = each(%format));
+	return $string;
+}
+
+# FIXME implement $get_size_only check, and user $item->{min|max-size} ??
+sub wlstat {
+	my ($line, $item, $get_size_only) = @_;
+
+	if ($needRemake) {
+		$needRemake = undef;
+		remake();
+	}
+
+	my $text = $actString->[$line];  # DO NOT set the actual $actString->[$line] to '' here or
+	$text = '' unless defined $text; # you'll screw up the statusbar counter ($currentLines)
+	$item->default_handler($get_size_only, $text, '', 1);
+}
+
+my %strip_table = (
+	# fe-common::core::formats.c:format_expand_styles
+	#      delete                format_backs  format_fores bold_fores   other stuff
+	(map { $_ => '' } (split //, '04261537' .  'kbgcrmyw' . 'KBGCRMYW' . 'U9_8:|FnN>#[')),
+	#      escape
+	(map { $_ => $_ } (split //, '{}%')),
+);
+sub ir_strip_codes { # strip %codes
+	my $o = shift;
+	$o =~ s/(%(.))/exists $strip_table{$2} ? $strip_table{$2} : $1/gex;
+	$o
+}
+
+sub ir_parse_special {
+	my $o; my $i = shift;
+	my $win = Irssi::active_win();
+	my $server = Irssi::active_server();
+	if (ref $win and ref $win->{'active'}) {
+		$o = $win->{'active'}->parse_special($i);
+	}
+	elsif (ref $win and ref $win->{'active_server'}) {
+		$o = $win->{'active_server'}->parse_special($i);
+	}
+	elsif (ref $server) {
+		$o =  $server->parse_special($i);
+	}
+	else {
+		$o = Irssi::parse_special($i);
+	}
+	$o
+}
+
+sub sb_expand { # expand {format }s (and apply parse_special for $vars)
+	ir_parse_special(
+		Irssi::current_theme->format_expand(
+			shift,
+			(
+				Irssi::EXPAND_FLAG_IGNORE_REPLACES
+					|
+				Irssi::EXPAND_FLAG_IGNORE_EMPTY
+			)
+		)
+	)
+}
+sub sb_strip {
+	ir_strip_codes(
+		sb_expand(shift)
+	); # does this get us the actual length of that s*ty bar :P ?
+}
+sub sb_length {
+	# unicode cludge, d*mn broken Irssi
+	# screw it, this will fail from broken joining anyway (and cause warnings)
+	if (lc Irssi::settings_get_str('term_type') eq 'utf-8') {
+		my $temp = sb_strip(shift);
+		# try to switch on utf8
+		eval {
+			no warnings;
+			require Encode;
+			#$temp = Encode::decode_utf8($temp); # thanks for the hint, but I have my reasons for _utf8_on
+			Encode::_utf8_on($temp);
+		};
+		length($temp)
+	}
+	else {
+		length(sb_strip(shift))
+	}
+}
+
+# !!! G*DD*MN Irssi is adding an additional layer of backslashitis per { } layer
+# !!! AND I still don't know what I need to escape.
+# !!! and NOONE else seems to know or care either.
+# !!! f*ck open source. I mean it.
+# XXX any Irssi::print debug statement leads to SEGFAULT - why ?
+
+# major parts of the idea by buu (#perl @ freenode)
+# thanks to fxn and Somni for debugging
+#	while ($_[0] =~ /(.)/g) {
+#		my $c = $1; # XXX sooo... goto kills $1
+#		if ($q eq '%') { goto ESC; }
+
+## <freenode:#perl:tybalt89> s/%(.)|(\{)|(\})|(\\|\$)/$1?$1:$2?($level++,$2):$3?($level>$min_level&&$level--,$3):'\\'x(2**$level-1).$4/ge;  # untested...
+sub ir_escape {
+	my $min_level = $_[1] || 0; my $level = $min_level;
+	my $o = shift;
+	$o =~ s/
+		(	%.	)	| # $1
+		(	\{	)	| # $2
+		(	\}	)	| # $3
+		(	\\	)	| # $4
+		(	\$(?=.)	)	| # $5
+		(	\$	) # $6
+	/
+		if ($1) { $1 } # %. escape
+		elsif ($2) { $level++; $2 } # { nesting start
+		elsif ($3) { if ($level > $min_level) { $level--; } $3 } # } nesting end
+		elsif ($4) { '\\'x(2**$level) } # \ needs \\escaping
+		elsif ($5) { '\\'x(2**$level-1) . '$' . '\\'x(2**$level-1) } # and $ needs even more because of "parse_special"
+		else { '\\'x(2**$level-1) . '$' } # $ needs \$ escaping
+	/gex;
+	$o
+}
+#sub ir_escape {
+#	my $min_level = $_[1] || 0; my $level = $min_level;
+#	my $o = shift;
+#	$o =~ s/
+#		(	%.	)	| # $1
+#		(	\{	)	| # $2
+#		(	\}	)	| # $3
+#		(	\\	|	\$	)	# $4
+#	/
+#		if ($1) { $1 } # %. escape
+#		elsif ($2) { $level++; $2 } # { nesting start
+#		elsif ($3) { if ($level > $min_level) { $level--; } $3 } # } nesting end
+#		else { '\\'x(2**($level-1)-1) . $4 } # \ or $ needs \\escaping
+#	/gex;
+#	$o
+#}
+
+sub ir_fe { # try to fix format stuff
+	my $x = shift;
+	# XXX why do I have to use two/four % here instead of one/two ?? answer: you screwed up in ir_escape
+	$x =~ s/([%{}])/%$1/g;
+	$x =~ s/(\\|\$)/\\$1/g;
+	#$x =~ s/(\$(?=.))|(\$)/$1?"\\\$\\":"\\\$"/ge; # I think this should be here (logic), but it doesn't work that way :P
+	#$x =~ s/\\/\\\\/g; # that's right, escape escapes
+	$x
+}
+
+sub remake () {
+	#$callcount++;
+	#my $xx = $callcount; Irssi::print("starting remake [ $xx ]");
+	my ($hilight, $number, $display);
+	my $separator = '{sb_act_sep ' . Irssi::settings_get_str('wlstat_separator') . '}';
+	my $custSort = Irssi::settings_get_str('wlstat_sort');
+	my $custSortDir = 1;
+	if ($custSort =~ /^[-!](.*)/) {
+		$custSortDir = -1;
+		$custSort = $1;
+	}
+
+	$actString = [];
+	my ($line, $width) = (0, [Irssi::windows]->[0]{'width'} - sb_length('{sb x}'));
+	foreach my $win (
+		sort {
+			(
+				( (int($a->{$custSort}) <=> int($b->{$custSort})) * $custSortDir )
+					||
+				($a->{'refnum'} <=> $b->{'refnum'})
+			)
+		} Irssi::windows
+	) {
+		$actString->[$line] = '' unless defined $actString->[$line] or Irssi::settings_get_bool('wlstat_all_disable');
+
+		# all stolen from chanact, what does this code do and why do we need it ?
+		!ref($win) && next;
+
+		my $name = $win->get_active_name;
+		my $active = $win->{'active'};
+		my $colour = $win->{'hilight_color'};
+		if (!defined $colour) { $colour = ''; }
+
+		if ($win->{'data_level'} < Irssi::settings_get_int('wlstat_hide_data')) { next; } # for Geert
+		if    ($win->{'data_level'} == 0) { $hilight = '{sb_act_none '; }
+		elsif ($win->{'data_level'} == 1) { $hilight = '{sb_act_text '; }
+		elsif ($win->{'data_level'} == 2) { $hilight = '{sb_act_msg '; }
+		elsif ($colour             ne '') { $hilight = "{sb_act_hilight_color $colour "; }
+		elsif ($win->{'data_level'} == 3) { $hilight = '{sb_act_hilight '; }
+		else                              { $hilight = '{sb_act_special '; }
+
+		$number = $win->{'refnum'};
+		$display = (defined $keymap{$number} and $keymap{$number} ne '')
+				?
+			(
+				Irssi::settings_get_str('wlstat_display_key')
+					||
+				Irssi::settings_get_str('wlstat_display_nokey')
+			)
+				:
+			Irssi::settings_get_str('wlstat_display_nokey')
+		;
+
+		my $add = expand($display,
+			C => ir_fe($name),
+			N => $number,
+			Q => ir_fe($keymap{$number}),
+			H => $hilight,
+			S => '}{sb_background}'
+		);
+		#$temp =~ s/\{\S+?(?:\s(.*?))?\}/$1/g;
+		#$temp =~ s/\\\\\\\\/\\/g; # XXX I'm actually guessing here, someone point me to docs please
+		$actString->[$line] = '' unless defined $actString->[$line];
+
+		# XXX how can I check whether the content still fits in the bar? this would allow
+		# XXX wlstatus to reside on a statusbar together with other items...
+		if (sb_length(ir_escape($actString->[$line] . $add)) >= $width) { # XXX doesn't correctly handle utf-8 multibyte ... help !!?
+			$actString->[$line] .= ' ' x ($width - sb_length(ir_escape($actString->[$line])));
+			$line++;
+		}
+		$actString->[$line] .= $add . $separator;
+		# XXX if I use these prints, output layout gets screwed up... why ?
+		#Irssi::print("line $line: ".$actString->[$line]);
+		#Irssi::print("temp $line: ".$temp);
+	}
+
+	# XXX the Irssi::print statements lead to the MOST WEIRD results
+	# e.g.: the loop gets executed TWICE for p > 0 ?!?
+	for (my $p = 0; $p < @$actString; $p++) { # wrap each line in {sb }, escape it properly, etc.
+		my $x = $actString->[$p];
+		$x =~ s/\Q$separator\E([ ]*)$/$1/;
+		#Irssi::print("[$p]".'current:'.join'.',split//,sb_strip(ir_escape($x,0)));
+		#Irssi::print("assumed length before:".sb_length(ir_escape($x,0)));
+		$x = "{sb $x}";
+		#Irssi::print("[$p]".'new:'.join'.',split//,sb_expand(ir_escape($x,0)));
+		#Irssi::print("[$p]".'new:'.join'.',split//,ir_escape($x,0));
+		#Irssi::print("assumed length after:".sb_length(ir_escape($x,0)));
+		$x = ir_escape($x);
+		#Irssi::print("[$p]".'REALnew:'.join'.',split//,sb_strip($x));
+		$actString->[$p] = $x;
+		# XXX any Irssi::print debug statement leads to SEGFAULT (sometimes) - why ?
+	}
+	#Irssi::print("remake [ $xx ] finished");
+}
+
+sub wlstatHasChanged () {
+	$globTime = undef;
+	my $temp = Irssi::settings_get_str('wlstat_placement').Irssi::settings_get_int('wlstat_position');
+	if ($temp ne $resetNeeded) { wlreset(); return; }
+	#Irssi::print("wlstat has changed, calls to remake so far: $callcount");
+	$needRemake = 1;
+
+	#remake();
+	if (
+		($needRemake and Irssi::settings_get_bool('wlstat_all_disable'))
+			or
+		(!Irssi::settings_get_bool('wlstat_all_disable') and $currentLines < 1)
+	) {
+		$needRemake = undef;
+		remake();
+	}
+	# XXX Irssi crashes if I try to do this without timer, why ? What's the minimum delay I need to use in the timer ?
+	Irssi::timeout_add_once(100, 'syncLines', undef);
+
+	for (keys %statusbars) {
+		Irssi::statusbar_items_redraw("wlstat$_");
+	}
+}
+
+sub eventChanged () { # Implement a change queue/blocker -.-)
+	if (defined $globTime) {
+		Irssi::timeout_remove($globTime);
+	} # delay the update further
+	$globTime = Irssi::timeout_add_once(10, 'wlstatHasChanged', undef);
+}
+
+#$needRemake = 1;
+sub resizeTerm () {
+	Irssi::timeout_add_once(100, 'eventChanged', undef);
+}
+
+Irssi::settings_add_str('wlstat', 'wlstat_display_nokey', '[$N]$H$C$S');
+Irssi::settings_add_str('wlstat', 'wlstat_display_key', '[$Q=$N]$H$C$S');
+Irssi::settings_add_str('wlstat', 'wlstat_separator', "\\ ");
+Irssi::settings_add_int('wlstat', 'wlstat_hide_data', 0);
+Irssi::settings_add_int('wlstat', 'wlstat_maxlines', 9);
+Irssi::settings_add_str('wlstat', 'wlstat_sort', 'refnum');
+Irssi::settings_add_str('wlstat', 'wlstat_placement', 'bottom');
+Irssi::settings_add_int('wlstat', 'wlstat_position', 0);
+Irssi::settings_add_bool('wlstat', 'wlstat_all_disable', 0);
+
+# remove old statusbars
+my %killBar;
+sub get_old_status {
+	my ($textDest, $cont, $cont_stripped) = @_;
+	if ($textDest->{'level'} == 524288 and $textDest->{'target'} eq '' and !defined($textDest->{'server'})) {
+		if ($cont_stripped =~ m/^wl(\d+)\s/) { $killBar{$1} = {}; }
+		Irssi::signal_stop();
+	}
+}
+sub killOldStatus {
+	%killBar = ();
+	Irssi::signal_add_first('print text' => 'get_old_status');
+	Irssi::command('statusbar');
+	Irssi::signal_remove('print text' => 'get_old_status');
+	remove_statusbar(keys %killBar);
+}
+#killOldStatus();
+
+sub wlreset {
+	$actString = [];
+	$currentLines = 0; # 1; # mhmmmm .. we actually enable one line down there so let's try this.
+	$resetNeeded = Irssi::settings_get_str('wlstat_placement').Irssi::settings_get_int('wlstat_position');
+	#update_keymap();
+	killOldStatus();
+	# Register statusbar
+	#add_statusbar(0);
+	#Irssi::command('statusbar wl0 enable');
+	resizeTerm();
+}
+
+wlreset();
+
+my $Unload;
+sub unload ($$$) {
+	$Unload = 1;
+	Irssi::timeout_add_once(10, sub { $Unload = undef; }, undef); # pretend we didn't do anything ASAP
+}
+Irssi::signal_add_first('gui exit' => sub { $Unload = undef; }); # last try to catch a sigsegv
+sub UNLOAD {
+	if ($Unload) { # this might well crash Irssi... try /eval /script unload someotherscript ; /quit (= SEGFAULT !)
+		$actString = ['']; # syncLines(); # XXX Irssi crashes when trying to disable all statusbars ?
+		killOldStatus();
+	}
+}
+
+sub addPrintTextHook { # update on print text
+	return if $_[0]->{'level'} == 262144 and $_[0]->{'target'} eq '' and !defined($_[0]->{'server'});
+	if (Irssi::settings_get_str('wlstat_sort') =~ /^[-!]?last_line$/) {
+		Irssi::timeout_add_once(100, 'eventChanged', undef);
+	}
+}
+
+#sub _x { my ($x, $y) = @_; ($x, sub { Irssi::print('-->signal '.$x); eval "$y();"; }) }
+#sub _x { @_ }
+Irssi::signal_add_first(
+	'command script unload' => 'unload'
+);
+Irssi::signal_add_last({
+	'setup changed' => 'eventChanged',
+	'print text' => 'addPrintTextHook',
+	'terminal resized' => 'resizeTerm',
+	'setup reread' => 'wlreset',
+	'window hilight' => 'eventChanged',
+});
+Irssi::signal_add({
+	'window created' => 'eventChanged',
+	'window destroyed' => 'eventChanged',
+	'window name changed' => 'eventChanged',
+	'window refnum changed' => 'eventChanged',
+	'window changed' => 'eventChanged',
+	'window changed automatic' => 'eventChanged',
+});
+
+#Irssi::signal_add('nick mode changed', 'chanactHasChanged'); # relicts
+
+###############
+###
+#
+# Changelog
+#
+# 0.5a
+# - add setting to also hide the last statusbar if empty (wlstat_all_disable)
+# - reverted to old utf8 code to also calculate broken utf8 length correctly
+# - simplified dealing with statusbars in wlreset
+# 
+# 0.4d
+# - fixed order of disabling statusbars
+# - several attempts at special chars, without any real success
+#   and much more weird new bugs caused by this
+# - setting to specify sort order
+# - reduced timeout values
+# - added wlstat_hide_data for Geert Hauwaerts ( geert@irssi.org ) :)
+# - make it so the dynamic sub is actually deleted
+# - fix a bug with removing of the last separator
+# - take into consideration parse_special
+# 
+# 0.3b
+# - automatically kill old statusbars
+# - reset on /reload
+# - position/placement settings
+#
+# 0.2
+# - automated retrieval of key bindings (thanks grep.pl authors)
+# - improved removing of statusbars
+# - got rid of status chop
+#
+# 0.1
+# - rewritten to suit my needs
+# - based on chanact 0.5.5
+
diff --git a/scripts/wordcompletition.pl b/scripts/wordcompletition.pl
new file mode 100644
index 0000000..0aa5e52
--- /dev/null
+++ b/scripts/wordcompletition.pl
@@ -0,0 +1,136 @@
+#!/usr/bin/perl
+use Irssi;
+use DBI;
+use strict;
+use vars qw($VERSION %IRSSI);
+$VERSION = "0.1";
+%IRSSI = (
+    authors     => "Jesper Lindh",
+    contact     => "rakblad\@midgard.liu.se",
+    name        => "IRC Completion with mysql-database",
+    description => "Adds words from IRC to your tab-completion list",
+    license     => "Public Domain",
+    url         => "http://midgard.liu.se/~n02jesli/perl/",
+    changed     => "2004-03-12"
+);
+my ($dsn) = "DBI:mysql:yourdatabase:databashostname";
+my ($user_name) = "yourusername";
+my ($password) = "yourpassword";
+my ($dbh, $sth);
+my (@ary);
+my $query;
+my $connect = 1;
+$dbh = DBI->connect ($dsn, $user_name, $password, { RaiseError => 1 });
+
+sub wordsearch
+{
+	my $sw = shift;
+	my @retar;
+	my $i = 0;
+	$query = qq{ select word from words where word like "$sw%" order by prio desc };
+	$sth = $dbh->prepare ( $query );
+	$sth->execute();
+	while (@ary = $sth->fetchrow_array ())
+	{
+        	$retar[$i++] = join ("", @ary), "\n";
+	}
+	$sth->finish();
+	return @retar;
+};
+sub wordfind
+{
+	my $sw = shift;
+	my $ret;
+	$query = qq{ select word from words where word = "$sw" };
+        $sth = $dbh->prepare ( $query );
+        $sth->execute();
+        @ary = $sth->fetchrow_array;
+        $ret = join ("", @ary), "\n";
+        $sth->finish();
+	return $ret;
+};
+
+sub wordupdate
+{
+	my $sw = shift;
+	$query = qq { update words set prio = prio + 1 where word = "$sw" };
+        $sth = $dbh->prepare ( $query );
+        $sth->execute();
+        $sth->finish();
+};
+sub delword
+{
+	my $sw = shift;
+	$query = qq { delete from words where word = "$sw" };
+        $sth = $dbh->prepare ( $query );
+        $sth->execute();
+        $sth->finish();
+};
+sub addword
+{
+	my $sw = shift;
+	$query = qq { insert into words values ('$sw', 1) };
+        $sth = $dbh->prepare ( $query );
+        $sth->execute();
+        $sth->finish();
+};
+sub word_complete
+{
+	my ($complist, $window, $word, $linestart, $want_space) = @_;
+        $word =~ s/([^a-zA-Z0-9åäöÅÄÖ])//g;
+	@$complist = wordsearch($word);	
+};
+sub word_message
+{
+        my ($server, $message) = @_;
+        foreach my $word (split(' ', $message))
+        {
+		$word =~ s/([^a-zA-Z0-9åäöÅÄÖ])//g;
+		if (length($word) >= 4)
+		{
+			my $fword = wordfind($word);
+			if ($fword)
+			{
+				wordupdate($word);
+			}
+			else
+			{
+				addword($word);
+			};
+		};
+        };
+};
+sub cmd_delword
+{
+	my $dword = shift;
+	delword($dword);
+	print "Deleted $dword from database!";
+};
+sub cmd_sql_disconnect
+{
+	$dbh->disconnect();
+	print "Disconnected from sql-server";
+	$connect = 0;
+};
+sub cmd_sql_connect
+{
+	if ($connect != 0)
+	{
+		print "Connecting to sql-server";
+		$dbh = DBI->connect ($dsn, $user_name, $password, { RaiseError => 1 });
+	}
+	else
+	{
+		print "Already connected";
+	};
+};
+		
+foreach my $cword ("message own_public", "message own_private")
+{
+        Irssi::signal_add($cword, "word_message");
+};
+Irssi::signal_add_last('complete word', 'word_complete');
+Irssi::command_bind("delword", "cmd_delword");
+Irssi::command_bind("sql_disconnect", "cmd_sql_disconnect");
+Irssi::command_bind("sql_connect", "cmd_sql_connect");
+
diff --git a/scripts/wordscramble.pl b/scripts/wordscramble.pl
new file mode 100644
index 0000000..091ee28
--- /dev/null
+++ b/scripts/wordscramble.pl
@@ -0,0 +1,152 @@
+use Irssi;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.0.2';
+%IRSSI = (
+	authors     => 'Koenraad Heijlen',
+	contact     => 'vipie@ulyssis.org',
+	name        => 'word_scramble',
+	description => 'A script that scrambles all the letters in a word except the first and last.', 
+	license     => 'GNU GPL version 2',
+	url         => 'http://vipie.studentenweb.org/dev/irssi/wordscramble',
+	changed     => '2003-09-15'
+);
+
+#--------------------------------------------------------------------
+# Changelog
+#--------------------------------------------------------------------
+#
+# word_scramble.pl 0.0.2 (2003-09-17)- Koenraad Heijlen
+# 	- fixed the four letter word bug
+# 	- fixed the non alphanummeric characters bug
+# 	- some improvement in returning \n
+#
+# word_scramble.pl 0.0.1 (2003-09-15) - Koenraad Heijlen
+# 	- first draft
+# 
+#--------------------------------------------------------------------
+
+#--------------------------------------------------------------------
+# Public Variables
+#--------------------------------------------------------------------
+my %myHELP = ();
+
+
+#--------------------------------------------------------------------
+# Help function
+#--------------------------------------------------------------------
+sub cmd_help { 
+	my ($about) = @_;
+
+	%myHELP = (
+		ws => "
+ws - wordscramble 
+
+scrambles the text you type, and outputs it in the current (active) channel
+or query.
+",
+);
+
+	if ( $about =~ /(ws)/i ) { 
+		Irssi::print($myHELP{$1});
+	} 
+}
+
+#--------------------------------------------------------------------
+# scrambles one word
+#--------------------------------------------------------------------
+sub scrambleWord {
+	# 0 : first
+	# length : last-1
+	# length+1 : last
+	#substr EXPR,OFFSET,LENGTH,REPLACEMENT
+	my $l = 0;
+	my $r = 0; 
+	my $out = "";
+	my $word = shift;
+	chomp($word);
+
+	if (length($word) <= 3) {
+		return $word;
+	}
+	my $l = length($word)-2;
+	$l = $l;
+	$out = substr($word,0,1);
+	while ($l != 1) {
+		$r = int(rand()*$l+1);
+
+		if ($r == 0) {
+			next;
+		}
+		#$r == $l is no marginalcase.
+
+		$out .= substr($word,$r,1);
+		substr($word,$r,1,substr($word,$l,1));
+		$l--;
+	}
+	$out .= substr($word,$l,1);
+	$out .= substr($word,length($word)-1,1);
+	return $out;
+}
+
+#--------------------------------------------------------------------
+# scrambles line
+#--------------------------------------------------------------------
+sub scrambleLine{
+	my $line = shift;
+	my $outline = "";
+	my $word = "";
+	my $i=0;
+	my @splitLine;
+	
+	#we leave the \n at the end, less interference.
+	#chomp($line);
+	@splitLine=split(/(\W)/,$line);
+	
+	# every other item in the array is the split string
+	for ($i=0; $i<= $#splitLine;$i++) {
+		$outline .= scrambleWord($splitLine[$i]);
+		$i++;
+		if ($i <= $#splitLine) {
+			$outline .= $splitLine[$i]; 
+		}
+	}
+	return $outline;
+}
+
+#--------------------------------------------------------------------
+# Defintion of /ws
+#--------------------------------------------------------------------
+sub cmd_ws {
+	my ($args, $server, $witem) = @_;
+
+	if (!$server || !$server->{connected}) {
+		Irssi::print("Not connected to server");
+		return;
+	}
+
+	my $scrambledLine = scrambleLine($args);
+	if ($witem && ($witem->{type} eq "CHANNEL" ||
+			$witem->{type} eq "QUERY")) {
+		# there's query/channel active in window
+		$witem->command("MSG ".$witem->{name}." $scrambledLine");
+	} else {
+		Irssi::print("Nick not given, and no active channel/query in window");
+	}
+}
+
+#--------------------------------------------------------------------
+# Irssi::Settings / Irssi::command_bind
+#--------------------------------------------------------------------
+
+Irssi::command_bind("ws", "cmd_ws", "Scramble Line");
+Irssi::command_bind("help","cmd_help", "Irssi commands");
+
+#--------------------------------------------------------------------
+# This text is printed at Load time.
+#--------------------------------------------------------------------
+
+#nothing
+
+#- end
diff --git a/scripts/xauth.pl b/scripts/xauth.pl
new file mode 100644
index 0000000..989e3ef
--- /dev/null
+++ b/scripts/xauth.pl
@@ -0,0 +1,546 @@
+# Some code taken from `nickserv.pl' for convenience.
+# Credits Sami Haahtinen / ZaNaGa
+#
+
+# Don't forget to create the necessary chatnets in your irssi config file.
+# 
+# Example:
+# ....
+# {
+#   address = "irc.undernet.org";
+#   chatnet = "Undernet";
+#   port = "6668";
+#   autoconnect = no;
+#  }
+# .....
+#
+# 
+# Then connect with the server like this:
+# /server undernet (or set autoconnect to yes)
+
+# Make sure you fill in *all* necessary information without typos.
+#
+# Files you need to edit after first run:
+# x.users     -> For your x user/pw information.
+# x.channels  -> Channels to join after authing. (optional)
+#
+# Use /xrehash to reload if you edit the files.
+#
+# Var:
+# my (%masks) -> See help there.
+
+# Tested with X versions
+# Undernet P10 Channel Services II Release 1.1pl7
+# 
+
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the file
+# COPYING (included with this distribution) or the GNU General Public
+# License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+#
+
+use Irssi;
+use Irssi::Irc;
+
+use strict;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.02';
+
+%IRSSI = (
+    authors     => 'Toshio R. Spoor',
+    contact     => 't.spoor@gmail.com',
+    name        => 'xauth',
+    description => 'Undernet X Service Authentication Program',
+    license     => 'GNU GPLv2 or later',
+    changed     => '$Date: 2004/12/17 08:39:47 $'
+);
+
+my (%CONFIG) = (
+    autostart	=> '',
+    autojoin	=> '',
+    hiddenhost	=> ''
+);
+
+Irssi::theme_register([
+  xauth_rehash    => '{comment $0} %KRehashing configuration files and settings%n',
+  xauth_autostart => '{comment $0} %KAuto-Start :%n $1',
+  xauth_autojoin  => '{comment $0} %KAuto-Join  :%n $1',
+  xauth_hiddenhost=> '{comment $0} %KHiddenhost :%n $1',
+  xauth_auth      => '{comment $0} %KAuthorising%n $1 %Kwith%n $2 %Kon%n $3',
+  xauth_load      => '{comment $0} %KScript %nv$1 %Kloaded ...%n',
+  xauth_nocon     => '{comment $0} %KNot connected to server%n',
+  xauth_noconn    => '{comment $0} %KThere does not exist a connection to $1%n',
+  xauth_success   => '{comment $0} %KLogged in successfully on %n$1',
+  xauth_failed    => '{comment $0} %KFailed to login on %n$1 ($2)',
+  xauth_already   => '{comment $0} %KI am already logged in on%n $1',
+  xauth_nouser    => '{comment $0} $1 %Kdoes not know who %n$2 %Kis on %n$3',
+  xauth_nohost    => '{comment $0} %KNo hostmask found for %n$1%K, to fix this edit this script, see masks',
+  xauth_noentry   => '{comment $0} %KI did not find an entry for %n$1 %Kcheck%n $2',
+  xauth_missing   => '{comment $0} %KI am missing username, password or authentication host login information%n',
+  xauth_join      => '{comment $0} %KJoined on%n $1%K : %n$2-'
+]);
+
+my ($usage) = qq!X-Authentication v$VERSION by Toshio Spoor
+
+Usage:
+/auth <chatnet>
+
+Settings:
+/set xauth                      Shows current settings
+/toggle xauth_autostart         Toggle Auto Start
+/toggle xauth_autojoin          Toggle Auto Join
+/toggle xauth_hiddenhost        Toggle Hiddenhost (ircu u2.10.11+)
+
+Rehashing settings and user/channel file:
+/xrehash                        Run this after any changes
+                                made to settings/files
+                                
+/save                           Make settings permanent
+!;
+
+# The `masks' hash is very important:
+# Here we fill in the masks we need to authenticate with. 
+#
+# <chatnet> = <host> <authhost>
+#
+# You can find this very easily:
+# /msg x login
+#
+# 08:49 -!- Irssi: Starting query in Undernet with x
+# 08:49 <Foo> login
+# 08:49 -X(channels@undernet.org)- To use LOGIN, you must /msg X@services.undernet.org
+#
+# Keep the chatnet lowercase
+
+my (%masks) = (       
+       undernet    => [ 'cservice@undernet.org', 'X@channels.undernet.org' ],
+       worldirc    => [ 'cservice@worldirc.org','X@channels.worldirc.org' ]
+);
+
+# 0 = None
+# 1 = Normal
+# 2 = More
+
+my ($verbose) = 1;
+
+# Don't touch these, unless the signature changes.
+#
+my ($success) = "AUTHENTICATION SUCCESSFUL";
+my ($already) = "Sorry, You are already authenticated";
+my ($failed)  = "AUTHENTICATION FAILED";
+my ($remind)  = "Remember: Nobody from CService will ever ask you for your password, do NOT give";
+my ($nouser)  = "I don't know who";
+
+# Global Vars, don't change these.
+# 
+my ($x_passfile) = Irssi::get_irssi_dir() ."/x.users";
+my ($x_chanfile) = Irssi::get_irssi_dir() ."/x.channels";
+
+my (@users) = (); 
+my (@chans) = ();
+
+# Core Code
+#
+# 
+
+sub putlog() {
+
+        my ($window) = Irssi::active_win();
+	Irssi::print("[$IRSSI{'name'}] @_", MSGLEVEL_CLIENTNOTICE);
+	
+}
+
+sub haltdef() {
+
+        Irssi::signal_stop();
+
+}
+
+sub conn($) {
+
+        my ($server) = @_;
+
+        if (!$server || !$server->{connected}) {
+                return 0;
+        } else {
+        	return 1;
+        }
+
+}
+
+sub join_channels($) {
+	
+        my ($chatnet)  = @_;
+        my (@channels) = ();
+        my ($server)   = Irssi::server_find_tag($chatnet);
+        
+        if (!$server) {
+        	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_nocon", "$IRSSI{'name'}");
+        	return;
+        }
+                         
+        foreach (@chans) {
+        	
+                my ($channel, $ircnet) = split(/:/);
+                
+                if (lc($chatnet) eq lc($ircnet)) {                
+                	# If we do it like this, the status window stays active.
+                	push (@channels, $channel);
+                	$server->send_raw("JOIN #$channel");
+                }
+        }
+        
+        if ($verbose) {
+        	if (@channels) {
+        		Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_join", "$IRSSI{'name'}", $chatnet, @channels);
+	        }
+	}
+}
+
+sub mask_check($) {
+	
+	my ($address) = @_;
+	
+	foreach my $key (keys %masks) {
+		if (lc($masks{$key}->[0]) eq lc($address)) {
+			return $key;
+			last;
+		}
+        }
+	
+	return 0;
+	
+}
+
+
+sub event_notice() {
+
+        my ($server, $args, $nick, $nickad) = @_;
+               
+	return unless (&mask_check($nickad));
+	
+        my ($cnet) = $server->{'tag'};
+        my ($version) = $server->{'version'};
+        
+        my ($target, $data) = $args =~ /^(\S*)\s+:(.*)$/;
+        
+        $_ = $data;
+
+        if (/^$already/i) { 
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_already", "$IRSSI{'name'}", $cnet);
+                &haltdef();
+        }
+
+        if (/^$success/i) {         
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_success", "$IRSSI{'name'}", $cnet);
+                
+                if (($version) && ($CONFIG{'hiddenhost'})) {
+                	
+        		my($app,$hi,$lo) = $version =~ /^(..).(..).(..)/;
+        		$app =~ s/\D//g;
+        		
+        		if (($app >= 2) && ($lo >= 11)) {
+        			&putlog("Found ircu $version, setting umode +x") if ($verbose > 1);
+        			$server->command("mode $target +x");
+        		}
+        	}
+        	
+                if ($CONFIG{'autojoin'}) {
+                	&join_channels($cnet);
+                }
+                &haltdef();
+        }
+
+        if (/^$failed/i) {
+                if (/\((.*?)\)/) { $args = $1 };
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_failed", "$IRSSI{'name'}", $cnet, $args);
+                &haltdef();
+        }
+        
+        if (/^$remind/i) {
+                &haltdef();
+        }
+        
+        if (/^$nouser/i) {
+        	if (/who\s(.*?)\s/) { $args = $1 };
+        	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_nouser", "$IRSSI{'name'}", "$nick", $args, $cnet);
+        	&haltdef();
+        }
+}
+
+sub cmd_auth() {
+
+        my ($data, $server, $witem) = @_;
+        my ($username, $ircnet, $password, $xlogin, $xmask, $chatnet, $found);
+
+        if ($data) {
+                $chatnet = $data;
+        } else {
+                &putlog("$usage");
+                return;
+        }
+        
+        if (! &conn($server)) { 
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_nocon", "$IRSSI{'name'}");
+                return;
+        }
+
+        my ($authserver) = Irssi::server_find_tag($chatnet);
+
+        if (! $authserver) {
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_noconn", "$IRSSI{'name'}", $chatnet);
+                return;
+        }
+
+        foreach (@users) {
+
+                ($username, $ircnet, $password) = split(/:/);
+
+                if (lc($ircnet) eq lc($chatnet)) {
+                        $xmask  = $masks{lc($ircnet)}->[0];
+                        $xlogin = $masks{lc($ircnet)}->[1];
+                        
+                        if ((!$xmask) || (!$xlogin)) {
+                        	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_nohost", "$IRSSI{'name'}", $chatnet);
+                        	return;
+                        }
+                        
+                        $found=1;
+                        last;
+                }
+        }
+
+        if (! $found ) {
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_noentry", "$IRSSI{'name'}", $chatnet, qq/"$x_passfile"/);
+                return;
+        }
+
+        if (($username) && ($password) && ($xlogin)) {
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_auth", "$IRSSI{'name'}", $username, $xlogin, $chatnet);
+                $authserver->send_raw("PRIVMSG $xlogin :login $username $password");
+        } else {
+                Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_missing", "$IRSSI{'name'}");
+        }
+}
+
+# Code taken from nickserv.pl
+
+sub read_users() {
+        my $count = 0;
+                
+        # Lets reset @users so we can call this as a function.
+        @users = ();            
+                        
+        if (!(open XUSERS, "<$x_passfile")) {
+                &create_users;
+        };
+       	&putlog("Running checks on the userfile.") if ($verbose > 1);
+        # first we test the file with mask 066 (we don't actually care if the
+        # file is executable by others.. what could they do with it =)
+
+        # Well, according to my calculations umask 066 should be 54, go figure.
+        
+        my $mode = (stat($x_passfile))[2];
+        if ($mode & 54) {
+                &putlog("your password file should be mode 0600. Go fix it!");
+                &putlog("use command: chmod 0600 $x_passfile");
+        }
+        
+        # and then we read the userfile.
+        # apparently Irssi resets $/, so we set it here.
+
+        $/ = "\n";
+        while( my $line = <XUSERS>) {
+                if( $line !~ /^(#|\s*$)/ ) { 
+                        my ($nick, $ircnet, $password) = 
+				$line =~ /^\s*(\S+)\s+(\S+)\s+(.*?)$/;
+                        push @users, "$nick:$ircnet:$password";
+                        $count++;
+                }
+        }
+       	&putlog("Found $count accounts") if ($verbose > 1);
+        close XUSERS;
+}
+
+sub create_users() {
+
+        &putlog("Creating basic userfile in $x_passfile. Edit File.");
+        
+        if(!(open XUSERS, ">$x_passfile")) {
+               &putlog("Unable to create file $x_passfile");
+        }
+
+        print XUSERS "# username and IrcNet Tag are case insensitive\n";
+        print XUSERS "#\n";
+        print XUSERS "# username      IrcNet Tag      Password\n";
+        print XUSERS "# --------      ----------      --------\n";
+
+        close XUSERS;
+        chmod 0600, $x_passfile;
+}
+
+sub create_chans() {
+        &putlog("Creating basic channelfile in $x_chanfile. Edit File.");
+        if(!(open NICKCHANS, ">$x_chanfile")) {
+                &putlog("Unable to create file $x_chanfile");
+        }
+
+        print NICKCHANS "# This file should contain a list of all channels\n";
+        print NICKCHANS "# which you don't want to join until after you've\n";
+        print NICKCHANS "# successfully identified with x.  This is\n";
+        print NICKCHANS "# useful if you have a hidden host (+x).\n";
+        print NICKCHANS "# Enter Channel without `#'\n";
+        print NICKCHANS "#\n";
+        print NICKCHANS "# Channel       IrcNet Tag\n";
+        print NICKCHANS "# --------      ----------\n";
+
+        close NICKCHANS;
+        chmod 0600, $x_chanfile;
+}
+
+sub read_chans() {
+        my $count = 0;
+
+        # Lets reset @users so we can call this as a function.
+        @chans = ();
+
+        if (!(open NICKCHANS, "<$x_chanfile")) {
+                create_chans;
+        };
+       	&putlog("Running checks on the channelfile.") if ($verbose > 1);
+        # first we test the file with mask 066 (we don't actually care if the
+        # file is executable by others.. what could they do with it =)
+        
+        # Well, according to my calculations umask 066 should be 54, go figure.
+
+        my $mode = (stat($x_chanfile))[2];
+        if ($mode & 54) {
+                &putlog("your channels file should be mode 0600. Go fix it!");
+                &putlog("use command: chmod 0600 $x_chanfile");
+        }
+        
+        # and then we read the channelfile.
+        # apparently Irssi resets $/, so we set it here.
+
+        $/ = "\n";
+        while( my $line = <NICKCHANS>) {
+                if( $line !~ /^(#|\s*$)/ ) { 
+                        my ($channel, $ircnet) = 
+                                $line =~ /\s*(\S+)\s+(\S+)/;
+                        push @chans, "$channel:$ircnet";
+                        $count++;
+                }
+        }
+       	&putlog("Found $count channels") if ($verbose > 1);
+        close NICKCHANS;
+}
+
+# End code from nickserv.pl
+
+sub event_connect() {
+
+	$CONFIG{'autostart'}  = Irssi::settings_get_bool('xauth_autostart');
+
+	return unless ($CONFIG{'autostart'});
+	
+        my ($server) = @_;
+        my ($cnet) = $server->{'tag'};
+        my ($found);
+        
+        foreach my $key (keys %masks) {
+        	if (lc($key) eq lc($cnet)) {
+        		$found=1;
+        		last;
+        	}
+	}
+
+	return unless($found);
+
+        $server->command("auth $cnet");
+
+}
+
+sub x_rehash() {
+	
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_rehash", "$IRSSI{'name'}") if (($verbose) && (@_));
+	
+	&read_users();
+	&read_chans();
+	&get_set(@_);
+	
+}
+
+sub init_set() {
+
+	Irssi::settings_add_bool('misc', 'xauth_autostart', '0');
+	Irssi::settings_add_bool('misc', 'xauth_autojoin',  '1');
+	Irssi::settings_add_bool('misc', 'xauth_hiddenhost','0');	
+		
+}
+
+sub onoff($) {
+	
+	my ($value) = @_;
+	
+	if ($value) {
+		return "On";
+	} else {
+		return "Off";
+	}	
+	
+}
+
+sub get_set() {
+	
+	$CONFIG{'autostart'}  = Irssi::settings_get_bool('xauth_autostart');
+	$CONFIG{'autojoin'}   = Irssi::settings_get_bool('xauth_autojoin');
+	$CONFIG{'hiddenhost'} = Irssi::settings_get_bool('xauth_hiddenhost');
+	
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_autostart", "$IRSSI{'name'}", &onoff("$CONFIG{'autostart'}"))   if (($verbose) && (@_));
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_autojoin",  "$IRSSI{'name'}", &onoff("$CONFIG{'autojoin'}"))    if (($verbose) && (@_));
+	Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_hiddenhost", "$IRSSI{'name'}", &onoff("$CONFIG{'hiddenhost'}")) if (($verbose) && (@_));
+	
+}
+
+sub init() {
+
+	&init_set();
+	&x_rehash();
+
+	
+}
+
+sub x_help() {
+	
+	&putlog("$usage");
+	
+}
+
+
+# Main
+#
+#
+
+&init();
+
+Irssi::command_bind("auth", "cmd_auth");
+Irssi::command_bind("xrehash", "x_rehash");
+Irssi::command_bind("xhelp", "x_help");
+
+Irssi::signal_add("event notice", "event_notice");
+Irssi::signal_add("event connected", "event_connect");
+
+Irssi::printformat(MSGLEVEL_CLIENTNOTICE, "xauth_load", "$IRSSI{'name'}", $VERSION);
diff --git a/scripts/xcmd.pl b/scripts/xcmd.pl
new file mode 100644
index 0000000..e4cd7f2
--- /dev/null
+++ b/scripts/xcmd.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+# X is the Undernet bot
+# This script is meant to make X commands easier and faster to use.
+# 
+# Copyright 2003 Clément Hermann <clement.hermann@free.fr>
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi qw(command_bind signal_add);
+
+$VERSION = '0.2';
+%IRSSI = (
+authors     => 	'Clément "nodens" Hermann',
+contact     => 	'clement.hermann@free.fr',
+name        => 	'Xcmd',
+description => 	'makes Undernet\'s X commands easier and faster to use',
+license     => 	'GPLv2',
+changed     => 	$VERSION,
+commands    => 	'xcmd',
+);
+
+sub help {
+	Irssi::print("xcmd launch an X command (/MSG X <command>), using the current windows as channel name.");
+	Irssi::print("Any command that have a <channel> parameter can be used.");
+	Irssi::print("/Xcmd showcommands show X commands for the current channel.");
+}
+	
+sub xcommand {
+	my ($data, $server, $witem) = @_;
+	my $channel;
+	
+	if (! $data) {
+		&help;
+	} else {
+		my @params = split (/ /,$data);
+		my $cmd = shift @params;
+		my $args = join (" ",@params);
+	
+		if ($witem && ($witem->{type} eq "CHANNEL")) {
+			$channel = $witem->{name};
+			$witem->command("MSG X $cmd $channel $args");
+		} else {
+			Irssi::print("No active channel in window");
+		}
+	}
+}
+
+Irssi::command_bind('xcmd', 'xcommand');
+
+Irssi::print("Xcmd $VERSION by nodens. Try /xcmd for help");
diff --git a/scripts/xdccget.pl b/scripts/xdccget.pl
new file mode 100644
index 0000000..9f16bda
--- /dev/null
+++ b/scripts/xdccget.pl
@@ -0,0 +1,350 @@
+#
+# by Stefan "tommie" Tomanek <stefan@kann-nix.org>
+#
+# History:
+#
+# 26.02.2002
+# *first release, report bugs :)
+#
+# 01.03.2002
+# *CHanged to GPL
+#
+# 08.03.200
+# *some bugfixes
+#
+# 13.04.2002
+# *major improvements
+# *cosmetic changes
+# 
+# 14.04.2002
+# *internal redesign
+# *feature enhancements
+#
+# 17.04.2002
+# * improved queuing code
+# * changed to $server->{tag}
+# * improved communication with server
+#
+# 21.04.2002
+# *improved ETA listing
+#
+# 27.04.2002
+# *handling of gone bots added
+#
+# 28.04.2002
+# *fixed handling of servers that are not in an ircnet
+
+use strict;
+#use warnings;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "20040509";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "XDCCget",
+    description => "advances downloading from XDCC bots",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    commands	=> "xdccget"
+);
+
+use Irssi 20020324;
+
+use vars qw(@queue $timer $debug %lists);
+
+$debug=0;
+
+sub show_help() {
+    my $help="XDCCget $VERSION
+/xdccget queue Nickname <number> <number>...
+    Queue the specified packs of the server 'Nickname'
+/xdccget list
+    List the download queue
+/xdccget cancel <number>
+    Remove pack <number> from the local queue
+/xdccget help
+    Display this help
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP &draw_box("XDCCget", $text, "help", 1);
+}
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    my $exp_flags = Irssi::EXPAND_FLAG_IGNORE_EMPTY | Irssi::EXPAND_FLAG_IGNORE_REPLACES;
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {                                                      $box .= '%R|%n '.$_."\n";
+    }                                                                               $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub contains {
+    my ($item, @list) = @_;
+    foreach (@list) {
+	    ($item eq $_) && return 1;
+    }
+    return 0;
+}
+
+sub event_message_irc_notice {
+    my ($server, $msg, $nick, $address, $target) = @_;
+    $_ = $msg;
+    if ($queue[0] &&  $nick eq $queue[0]->{'nick'}) {
+	if (/\*\*\* Closing Connection:/) {
+	    print CLIENTCRAP "%R>>%n XDCC-Transfer closed";
+	    # Is it a canceled transger?
+	    if ($queue[0]->{'status'} == 5) {
+		$queue[0]->{'status'} = 4;
+	    } else {
+		# We should try again
+		$queue[0]->{'status'} = 0;
+	    }
+	} elsif (/\*\*\* Transfer Completed/i) {
+    	    print CLIENTCRAP "%R>>%n XDCC-Transfer completed";
+	    # Mark the transfer as completed
+	    $queue[0]->{'status'} = 4;
+	} elsif (/\*\*\* You already requested that pack/i) {
+	    $queue[0]->{'status'} = 4;
+	} elsif (/\*\*\* Sending You Pack/i || /\*\*\* Sending You Your Queued Pack|DCC Send .*? \(.*?\)/i) {
+	    $queue[0]->{'status'} = 3;
+	    print CLIENTCRAP "%R>>%n XDCC-Transfer starting";
+	} elsif (/\*\*\* All Slots Full, Added (|you to the main )queue in position ([0-9]*)/i) {
+	    $queue[0]->{'pos'} = $2;
+	    $queue[0]->{'etr'} = 0;
+	    $queue[0]->{'status'} = 2;
+	} elsif (/You have been queued for ([0-9]*?) hr ([0-9]*?) min, currently in main queue position ([0-9]*?) of ([0-9]*?)\.  Estimated remaining time is ([0-9]*?) hr ([0-9]*?) min or (less|more)\./i) {
+	    $queue[0]->{'pos'} = $3;
+	    $queue[0]->{'etr'} = time() + (($5*60)+$6)*60;
+	    $queue[0]->{'status'} = 2;
+	} elsif (/You have been queued for ([0-9]*?) hours ([0-9]*?) minutes, currently in main queue position ([0-9]*?) of ([0-9]*?)\./i) {
+	    $queue[0]->{'pos'} = $3;
+	    $queue[0]->{'status'} = 2;
+	} elsif (/You have been queued for ([0-9]*?) minutes, currently in main queue position ([0-9]*?) of ([0-9]*?)\./) {
+	    $queue[0]->{'status'} = 2;
+	    # FIXME unite somehow with regexp above
+	    $queue[0]->{'pos'} = $2;
+	} elsif (/It has been placed in queue slot #(\d+), it will send when sends are available/) {
+	    $queue[0]->{'pos'} = $1;
+	    $queue[0]->{'status'} = 2;
+	} elsif (/\*\*\* Invalid Pack Number/) {
+	    $queue[0]->{'status'} = 4;
+	} elsif (/\*\*\* The Owner Has Requested That No New Connections Are Made/) {
+	    $queue[0]->{'status'} = 4;
+	} elsif (/\*\*\* All Slots Full,(| Main) queue of size [0-9]* is Full, Try Again Later/i || /\*\*\* You can only have 1 transfer at a time/i) {
+	    if (Irssi::settings_get_int('xdccget_retry_time') > 0) {
+		my $retry = Irssi::settings_get_int('xdccget_retry_time')*1000;
+		$queue[0]->{'status'} = 6;
+		$queue[0]->{'timer'} = Irssi::timeout_add($retry, 'retry_transfer', undef);
+		$queue[0]->{'etr'} = time()+$retry/1000;
+	    } else {
+		$queue[0]->{'status'} = 4;
+	    }
+	} elsif (/Removed you from the queue/) {
+	    $queue[0]->{'status'} = 4;
+	} else { Irssi::print($_) if ($debug); }
+	
+	process_queue();
+    }
+    if (/#(\d+).+?\d+x \[ *(<?\d+.*?)\] +(.*)$/) {
+	my ($pack, $size, $name) = ($1, $2, $3);
+    	if (defined $lists{lc $server->{tag}}{lc $nick}) {
+	    $lists{lc $server->{tag}}{lc $nick}{$pack} = $name;
+	}
+	foreach (@queue) {
+	    next unless lc $nick eq lc $_->{nick};
+	    next unless lc $server->{tag} eq lc $_->{net};
+	    next unless $_->{pack} eq $pack;
+	    $_->{filename} = $name;
+	}
+    }
+}
+
+sub process_queue {
+    unless (scalar(@queue) > 0) {return 0};
+    my %current = %{$queue[0]};
+    shift @queue if ( $current{'status'} == 4 );
+    unless (scalar(@queue) > 0) {return 0};
+    %current = %{$queue[0]};
+    if ( $current{'status'} == 0 ) {
+	my $server = Irssi::server_find_tag($current{'net'});
+    	$server->command('MSG '.$current{'nick'}.' xdcc send '.$current{'pack'});
+	$queue[0]->{'try'}++;
+	$queue[0]->{'status'} = 1;
+    }
+}
+
+sub retry_transfer {
+    if (defined $queue[0] && $queue[0]->{'status'} == 6) {
+	Irssi::timeout_remove($queue[0]->{'timer'});
+	#print CLIENTCRAP "%R>>%n Retrying XDCC-transfer...";
+	$queue[0]->{'status'} = 0;
+	process_queue();
+    }
+}
+
+sub queue_pack {
+    my ($args, $server, $witem) = @_;
+    my @args = split(/ /, $args, 2);
+    my ($nick, $packs);
+    if (ref $witem && $witem->{type} eq 'QUERY' && $args[0] =~ /^\d+$/) {
+	($nick, $packs) = ($witem->{name}, $args[0]);
+    } else {
+	($nick, $packs) = @args;
+    }
+    my @packs = split(/ /, $packs);
+    foreach (@packs) {
+	# 0: Waiting, 1: Processing, 2: Doenloading
+	my $status = 0;
+	my $chatnet = $server->{tag};
+	my %transfer = ('nick'    => $nick,
+			'pack'    => $_,
+			'status'  => $status,
+			'net'     => $chatnet,
+			'pos'     => 0,
+			'try'     => 0,
+			'etr'     => 0,
+			'timer'   => undef,
+			);
+	if (defined $lists{lc $server->{tag}}{lc $nick}{$_}) {
+	    $transfer{filename} = $lists{lc $server->{tag}}{lc $nick}{$_};
+	}
+	push @queue, \%transfer;
+    }
+    process_queue()
+}
+
+sub list_xdcc_queue {
+    my $text;
+    my %progress = (0=>'waiting',
+		    1=>'requesting',
+		    2=>'queued',
+		    3=>'transferring',
+		    4=>'completed',
+		    5=>'canceling',
+		    6=>'retrying');
+    my $i = 1;
+    foreach (@queue) {
+	my $current = $_;
+	my $botname = $current->{'nick'};
+	my $ircnet = $current->{'net'};
+	my $pack = $current->{'pack'};
+	my $status = $progress{$current->{'status'}};
+	my $info = '';
+	my $etr = '';
+	if ($current->{'status'}==2) {
+	    my $time = $current->{'etr'}-time();
+            my $hours = int($time / (60*60));
+            my $minutes = int( ($time-($hours*60*60))/60 );
+            my $seconds = int( ($time-($hours*60*60)-($minutes*60))  );
+
+            $etr = '('.$hours.' hours, '.$minutes.' minutes and '.$seconds.' seconds remaining)' if ($current->{'etr'} > 0);
+	    $info = "[".$current->{'pos'}."]".' '.$etr;
+	} elsif ($current->{'status'}==6) {
+	    my $time = $current->{'etr'}-time();
+	    my $hours = int($time / (60*60));
+	    my $minutes = int( ($time-($hours*60*60))/60 );
+	    my $seconds = int( ($time-($hours*60*60)-($minutes*60))  );
+	    
+	    $etr = '('.$hours.' hours, '.$minutes.' minutes and '.$seconds.' seconds remaining)' if ($current->{'etr'} > 0);
+	    $info = '['.$current->{'try'}.']'.' '.$etr;
+	}
+	$text .= "%9".$i."%9 ".$botname."<".$ircnet.">: Pack ".$pack;
+	$text .= " (".$current->{filename}.")" if defined $current->{filename};
+	$text .= " => ".$status.' '.$info;
+	$text .= "\n";
+	$i++;
+    }
+    print CLIENTCRAP draw_box("XDCCget", $text, "queued packs", 1);
+}
+
+sub cancel_pack {
+    my (@numbers) = @_;
+    @numbers = sort {$b cmp $a} @numbers;
+    foreach (@numbers) {
+	my $item = @queue->[$_-1];
+
+	if ($item->{'status'} == 2) {
+	    # Remove the order from the bots queue
+	    my $server = Irssi::server_find_tag($item->{'net'});
+	    $server->command('MSG '.$item->{'nick'}.' xdcc remove');
+	    print CLIENTCRAP "%R>>>%n Removing pack ".$_." from server queue";
+	    $item->{'status'} = 5;
+	    #splice(@queue, $_,$_+1);
+	} elsif ($item->{'status'} == 3) {
+	    $item->{'status'} = 5;
+	    Irssi::command('DCC close get '.$item->{'nick'});
+	    print CLIENTCRAP "%R>>>%n Transfer aborted, waiting for acknowledgement";
+	} else {
+	    splice(@queue, $_-1, $_);
+	}
+	process_queue();
+    }
+}
+
+sub list_packs ($$) {
+    my ($server, $bot) = @_;
+    $server->command('MSG '.$bot.' xdcc list');
+    $lists{lc $server->{tag}}{lc $bot} = {};
+}
+
+sub cmd_xdccget {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+
+    if ((scalar(@arg) == 0) or ($arg[0] eq '-l')) {
+	list_xdcc_queue();
+    } elsif ($arg[0] eq 'queue') {
+	# queue files
+	shift @arg;
+	queue_pack("@arg", $server, $witem);
+    } elsif ($arg[0] eq 'list' && defined $arg[1]) {
+	list_packs($server, $arg[1]);
+    } elsif ($arg[0] eq 'cancel') {
+	shift @arg;
+	cancel_pack(@arg);
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+sub event_private_message {
+    my ($server, $text, $nick, $address) = @_;
+    event_message_irc_notice($server, $text, $nick, $address, undef);
+}
+
+sub event_no_such_nick {
+    my ($server, $args, $sender_nick, $sender_address) = @_;
+    my ($myself, $nick) = split(/ /, $args, 3);
+    
+    unless (scalar(@queue) == 0) {
+	if ($nick eq $queue[0]->{'nick'}) {
+	    if ($queue[0]->{'status'} == 1 || $queue[0]->{'status'} == 5) {
+		$queue[0]->{'status'} = 4;
+	    }
+	}
+	process_queue();
+    }
+}
+
+
+Irssi::command_bind('xdccget', \&cmd_xdccget);
+foreach my $cmd ('queue', 'cancel', 'list', 'help', 'list') {
+    Irssi::command_bind('xdccget '.$cmd => sub {
+                        cmd_xdccget("$cmd ".$_[0], $_[1], $_[2]); });
+}
+
+
+Irssi::signal_add('message irc notice', 'event_message_irc_notice');
+Irssi::signal_add("message private", "event_private_message");
+Irssi::signal_add("event 401", "event_no_such_nick");
+
+Irssi::settings_add_int($IRSSI{'name'}, 'xdccget_retry_time', 30);
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /xdccget help for help';
diff --git a/scripts/xetra.pl b/scripts/xetra.pl
new file mode 100644
index 0000000..255329a
--- /dev/null
+++ b/scripts/xetra.pl
@@ -0,0 +1,208 @@
+# by Stefan 'tommie' Tomanek <stefan@pico.ruhr.de>
+use strict;
+
+use vars qw($VERSION %IRSSI);
+$VERSION = "20030208";
+%IRSSI = (
+    authors     => "Stefan 'tommie' Tomanek",
+    contact     => "stefan\@pico.ruhr.de",
+    name        => "Xetra",
+    description => "brings the stock exchanges of the world to your irssi",
+    license     => "GPLv2",
+    changed     => "$VERSION",
+    commands	=> "xetra"
+);
+
+
+use Irssi 20020324;
+use Irssi::TextUI;
+use LWP::Simple;
+use vars qw($forked @ticker $shift $timer);
+
+sub draw_box ($$$$) {
+    my ($title, $text, $footer, $colour) = @_;
+    my $box = '';
+    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
+    foreach (split(/\n/, $text)) {
+        $box .= '%R|%n '.$_."\n";
+    }
+    $box .= '%R`--<%n'.$footer.'%R>->%n';
+    $box =~ s/%.//g unless $colour;
+    return $box;
+}
+
+sub show_help() {
+    my $help=$IRSSI{name}." ".$VERSION."
+/xetra update
+    Retrieve new stock information for ticker
+/xetra get WKN/EXC
+    Retrieve data for stock <WKN> at stock exchange <EXC>
+";
+    my $text = '';
+    foreach (split(/\n/, $help)) {
+        $_ =~ s/^\/(.*)$/%9\/$1%9/;
+        $text .= $_."\n";
+    }
+    print CLIENTCRAP draw_box($IRSSI{name}." help", $text, "help", 1) ;
+}
+
+sub stock ($) {
+    if ($_[0] =~ /^(.*?)\/(.*?)$/) {
+	return $_[0];
+    } elsif ($_[0] =~ /^(.*?)\.(.*?)$/) {
+	return $_[0].'/'.$2;
+    } else {
+	my $exchange = Irssi::settings_get_str('xetra_default_stock_exchange');
+	return $_[0].'/'.$exchange if ($_[0] =~ /^\d+$/);
+	return $_[0].'.'.$exchange.'/'.$exchange;
+    }
+}
+
+sub get_stock ($$) {
+    my ($wkn, $exchange) = @_;
+    #my $data = get('http://informer2.comdirect.de/de/default/_pages/fokus/main.html?sSymbol='.$symbol);
+    my $data = get('http://informer2.comdirect.de/de/suche/main.html?nop=0&searchButton=Exakt&searchfor='.$wkn.'&XsearchBoersen='.$exchange);
+    my $stock;
+    if ($data =~ /&nbsp;WKN:&nbsp;(.*?)&nbsp;/) {
+	$stock->{wkn} = $1;
+    }
+    if ($data =~ /<th class="right">(&nbsp;|<img src="\/_common\/images\/pfeil_.*?\.gif" width=11 height=10 alt="">)&nbsp;(.*?)<\/th>/) {
+	$stock->{current} = $2;
+    }
+    if ($data =~ /<td align="right"><b><div class="color.*?"><nobr>&nbsp;(.*?)&nbsp;<\/nobr><\/div><\/b><\/td>/) {
+	$stock->{change} = $1;
+    }
+    if ($data =~ /Symbol:&nbsp;(.*?)</) {
+	$stock->{symbol} = $1;
+    }
+    if ($data =~ /B&ouml;rse:&nbsp;(.*?)&nbsp;/) {
+	$stock->{exchange} = $1;
+    }
+    if ($data =~ /<nobr>&nbsp;([0-9,+-]+\%)&nbsp;<\/nobr>/) {
+	$stock->{percent} = $1;
+    }
+    if ($data =~ /<td align="right">(\d+)\.(\d+)\.&nbsp;<\/td><td align="right">(\d+):(\d+)&nbsp;<\/td>/) {
+	$stock->{date} = $1.'.'.$2.'.';
+	$stock->{time} = $3.':'.$4;
+    }
+    return $stock;
+}
+
+sub bg_fetch ($$) {
+    my ($symbols, $job) = @_;
+    my ($rh, $wh);
+    pipe($rh, $wh);
+    return if $forked > 3;
+    $forked++;
+    my $pid = fork();
+    if ($pid > 0) {
+        close $wh;
+        Irssi::pidwait_add($pid);
+        my ($pipetag);
+        my @args = ($rh, \$pipetag, $job);
+        $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
+    } else {
+	my $result;
+	foreach (@$symbols) {
+	    $_ = stock($_);
+	    my ($wkn, $exchange) = split('/', $_);
+	    my $item = get_stock($wkn, $exchange);
+	    push @$result, $item;
+	}
+	my $dumper = Data::Dumper->new([$result]);
+	$dumper->Purity(1)->Deepcopy(1);
+	my $data = $dumper->Dump;
+	print($wh $data);
+	close($wh);
+	POSIX::_exit(1);
+    }
+}
+
+sub pipe_input ($$$) {
+    my ($rh, $pipetag, $job) = @{$_[0]};
+    $forked--;
+    my $text;
+    $text .= $_ foreach (<$rh>);
+    close($rh);
+    Irssi::input_remove($$pipetag);
+    return unless($text);
+    no strict;
+    my $result = eval "$text";
+    return unless ref $result;
+    if ($job eq 'ticker') {
+	@ticker = @$result;
+	Irssi::statusbar_items_redraw('xetra');
+    } elsif ($job eq 'get') {
+	foreach (@$result) {
+	    show_stock($_);
+	}
+    }
+}
+
+sub show_stock ($) {
+    my ($stock) = @_;
+    my $text;
+    $text .= '%9WKN:%9     '.$stock->{wkn}." (".$stock->{exchange}.")\n";
+    $text .= '%9Current:%9 '.$stock->{current}."\n";
+    $text .= '%9Change:%9  '.$stock->{change}.' ('.$stock->{percent}.")\n\n";
+    $text .= $stock->{date}.", ".$stock->{time}."\n";
+    print CLIENTCRAP &draw_box('Xetra stockinfo', $text, $stock->{symbol}, 1);
+}
+
+sub update_ticker {
+    my @stocks = split(/ /, Irssi::settings_get_str('xetra_ticker_stocks'));
+    bg_fetch(\@stocks, 'ticker');
+}
+
+sub show_ticker ($$) {
+    my ($item, $get_size_only) = @_; 
+    $shift = 0 if $shift+1 > scalar(@ticker);
+    return unless defined $ticker[$shift];
+    my $tape;
+    $_ = $ticker[$shift];
+    $tape .= $_->{symbol}.': ';
+    $tape .= $_->{current}.' ';
+    if ($_->{change} =~ /^\+/) {
+	$tape .= '%g';
+    } elsif ($_->{change} =~ /^\-/) {
+	$tape .= '%r';
+    }
+    $tape .= $_->{change}.'%n';
+    
+    $shift++ unless $get_size_only;
+    my $format = "{sb ".$tape."}";
+    $item->{min_size} = $item->{max_size} = length($tape);
+    $item->default_handler($get_size_only, $format, 0, 1);
+    Irssi::timeout_remove($timer);
+    $timer = Irssi::timeout_add(Irssi::settings_get_int('xetra_ticker_interval')*1000, 'update_ticker', undef);
+}
+
+sub cmd_xetra ($$$) {
+    my ($args, $server, $witem) = @_;
+    my @arg = split(/ /, $args);
+    return unless defined $arg[0];
+    if ($arg[0] eq 'get' && defined $arg[1]) {
+	shift(@arg);
+	bg_fetch(\@arg, 'get');
+    } elsif ($arg[0] eq 'update') {
+	update_ticker();
+    } elsif ($arg[0] eq 'help') {
+	show_help();
+    }
+}
+
+Irssi::statusbar_item_register('xetra', 0, 'show_ticker');
+
+Irssi::settings_add_str($IRSSI{name}, 'xetra_default_stock_exchange', 'ETR');
+Irssi::settings_add_str($IRSSI{name}, 'xetra_ticker_stocks', '');
+Irssi::settings_add_int($IRSSI{name}, 'xetra_ticker_interval', 3);
+
+Irssi::command_bind('xetra' => \&cmd_xetra);
+foreach my $cmd ('get', 'update', 'help') {
+    Irssi::command_bind('xetra '.$cmd => sub { cmd_xetra("$cmd ".$_[0], $_[1], $_[2]);});
+}
+
+$timer = Irssi::timeout_add(Irssi::settings_get_int('xetra_ticker_interval')*1000, 'update_ticker', undef);
+update_ticker();
+
+print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /xetra help for help';
diff --git a/scripts/xlist.pl b/scripts/xlist.pl
new file mode 100644
index 0000000..ace8ca6
--- /dev/null
+++ b/scripts/xlist.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+
+# (c) Matthäus 'JonnyBG' Wander <jbg@swznet.de>
+
+# Usage: Simply use /list as you always do
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.00';
+%IRSSI = (
+    authors => 'Matthäus \'JonnyBG\' Wander',
+    contact => 'jbg@swznet.de',
+    name => 'xlist',
+    description => 'Better readable listing of channel names',
+    license => 'GPLv2',
+    url => 'http://jbg.swznet.de/xlist/',
+);
+
+use Irssi;
+
+my %xlist = ();
+
+sub collect {
+    my ($server, $data) = @_;
+    
+    my (undef, $channel, $users, $topic) = split(/\s/, $data, 4);
+    $topic = substr($topic, 1);
+    
+    $xlist{$channel} = [ $users, $topic ];
+}
+
+sub list {
+    my ($data, $server) = @_;
+    %xlist = ();
+    
+    print "%K[%n".$server->{'tag'}."%K]%n %B<-->%n xlist";
+}
+
+sub show {
+    my ($server) = @_;
+    my ($printstring, $channel);
+
+    for $channel ( sort { ${ $xlist{$b} }[0] <=> ${ $xlist{$a} }[0] } keys %xlist ) {
+	$printstring =	"%K[%n" . $server->{'tag'} . "%K]%n " .
+			sprintf("%4d", ${ $xlist{$channel} }[0]) .
+			" " . $channel;
+
+	if (length ${ $xlist{$channel} }[1] > 0 ) {
+	    $printstring .= " %B->%n ". ${ $xlist{$channel} }[1];
+	}
+
+	print $printstring;
+    }
+    
+    %xlist = ();
+    
+    print "%K[%n".$server->{'tag'}."%K]%n %B<-->%n End of xlist";
+}
+
+Irssi::command_bind('list', \&list);
+Irssi::signal_add('event 322', \&collect);
+Irssi::signal_add('event 323', \&show);
+
+print "%B<-->%n xlist v$VERSION: Simply use /list as you always do";
diff --git a/scripts/xmms.pl b/scripts/xmms.pl
new file mode 100644
index 0000000..6a72b1e
--- /dev/null
+++ b/scripts/xmms.pl
@@ -0,0 +1,161 @@
+# XMMS-InfoPipe front-end - allow /np [dest]
+#
+#   Thanks to ak for suggestions and even changes.
+#
+#   /set xmms_fifo <dest of xmms-infopipe fifo>
+#   /set xmms_format <format of printed text>
+#   /set xmms_format_streaming <format for streams>
+#   /set xmms_print_if_stopped <ON|OFF>
+#   /set xmms_format_time <time format> - default is %m:%s
+# 
+#   xmms_format* takes these arguments:
+#       Variable    Name        Example
+#   ----------------------------------------------------
+#   Song specific:
+#       %status     Status          Playing
+#       %title      Title           Blue Planet Corporation - Open Sea
+#       %file       File            /mp3s/blue planet corporation - open sea.mp3
+#       %length     Length          9:13
+#       %pos        Position        0:08
+#       %bitrate    Bitrate         160kbps
+#       %freq       Sampling freq.  44.1kHz
+#       %pctdone    Percent done    1.4%
+#       %channels   Channels        2
+#   Playlist specific:
+#       %pl_total   Total entries
+#       %pl_current Position in playlist
+#       ¤pl_pctdone Playlist Percent done
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+$VERSION = "2.0";
+%IRSSI = {
+    authors     => 'Simon Shine',
+    contact     => 'simon@blueshell.dk',
+    name        => 'xmms',
+    description => 'XMMS-InfoPipe front-end - allow /np [-help] [dest]',
+    license     => 'Public Domain',
+    changed     => '2004-01-15'
+};
+
+Irssi::settings_add_str('xmms', 'xmms_fifo', '/tmp/xmms-info');
+Irssi::settings_add_str('xmms', 'xmms_format', 'np: %title at %bitrate [%pos of %length]');
+Irssi::settings_add_str('xmms', 'xmms_format_streaming', 'streaming: %title at %bitrate [%file]');
+Irssi::settings_add_str('xmms', 'xmms_format_time', '%m:%s');
+Irssi::settings_add_bool('xmms', 'xmms_print_if_stopped', 'yes');
+
+Irssi::command_bind('np', \&cmd_xmms);
+Irssi::command_bind('xmms', \&cmd_xmms);
+# Tab completition
+Irssi::command_bind('np help', \&cmd_xmms);
+Irssi::command_bind('xmms help', \&cmd_xmms);
+
+sub cmd_xmms {
+    my ($args, $server, $witem) = @_;
+
+    $args =~ s/^\s+//;
+    $args =~ s/\s+$//;
+
+    if ($args =~ /^help/) {
+      print CRAP q{
+Valid format strings for xmms_format and xmms_format_streaming:
+    %%status, %%title, %%file, %%length, %%pos, %%bitrate,
+    %%freq, %%pctdone, %%channels, %%pl_total, %%pl_current
+
+Example: /set xmms_format np: %%title at %%bitrate [%%pctdone]
+
+Valid format string for xmms_format_time:
+    %%m, %%s
+
+Example: /set xmms_format_time %%m minutes, %%s seconds
+};
+      return;
+    }
+
+    my ($xf) = Irssi::settings_get_str('xmms_fifo');
+    if (!-r $xf) {
+        if (!-r '/tmp/xmms-info') {
+            Irssi::print "Couldn't find a valid XMMS-InfoPipe FIFO.";
+            return;
+        }
+        $xf = '/tmp/xmms-info';
+    }
+
+    my %xi;
+
+    open(XMMS, $xf);
+    while (<XMMS>) {
+        chomp;
+        my ($key, $value) = split /: /, $_, 2;
+        $xi{$key} = $value;
+    }
+    close(XMMS);
+
+    my %fs;
+
+    # %status
+    $fs{'status'} = $xi{'Status'};
+    # %title
+    if ($fs{'status'} ne "Playing") {
+        if (Irssi::settings_get_bool('xmms_print_if_stopped')) {
+            $fs{'title'} = sprintf('(%s) %s', $fs{'status'}, $xi{'Title'});
+        } else {
+            Irssi::print "XMMS is currently not playing.";
+            return;
+        }
+    } else {
+        $fs{'title'} = $xi{'Title'};
+    }
+    # %file
+    $fs{'file'} = $xi{'File'};
+    # %length
+    $fs{'length'} = &format_time($xi{'Time'});
+    # %pos
+    $fs{'pos'} = &format_time($xi{'Position'});
+    # %bitrate
+    $fs{'bitrate'} = sprintf("%.0fkbps", $xi{'Current bitrate'} / 1000);
+    # %freq
+    $fs{'freq'} = sprintf("%.1fkHz", $xi{'Samping Frequency'} / 1000);
+    # %pctdone
+    if ($xi{'uSecTime'} > 0) {
+        $fs{'pctdone'} = sprintf("%.1f%%%%", ($xi{'uSecPosition'} / $xi{'uSecTime'}) * 100);
+    } else {
+        $fs{'pctdone'} = "0.0%%";
+    }
+    # %channels
+    $fs{'channels'} = $xi{'Channels'};
+    # %pl_total
+    $fs{'pl_total'} = $xi{'Tunes in playlist'};
+    # %pl_current
+    $fs{'pl_current'} = $xi{'Currently playing'};
+    # %pl_pctdone
+    $fs{'pl_pctdone'} = sprintf("%.1f%%%%", ($fs{'pl_current'} / ($fs{'pl_total'} ? $fs{'pl_total'} : 1)) * 100);
+
+
+    my ($format) = ($xi{'uSecTime'} == "-1") ?
+        Irssi::settings_get_str('xmms_format_streaming') :
+        Irssi::settings_get_str('xmms_format');
+    foreach (keys %fs) {
+        $format =~ s/\%$_/$fs{$_}/g;
+    }
+
+    # sending it.
+    if ($server && $server->{connected} && $witem &&
+        ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
+        if ($args eq "") {
+            $witem->command("/SAY $format");
+        } else {
+            $witem->command("/MSG $args $format");
+        }
+    } else {
+        Irssi::print($format);
+    }
+}
+
+sub format_time {
+    my ($m, $s) = split /:/, @_[0], 2;
+    my ($format) = Irssi::settings_get_str('xmms_format_time');
+    $format =~ s/\%m/$m/g;
+    $format =~ s/\%s/$s/g;
+    return $format;
+}
diff --git a/scripts/xmms2.pl b/scripts/xmms2.pl
new file mode 100644
index 0000000..82de202
--- /dev/null
+++ b/scripts/xmms2.pl
@@ -0,0 +1,86 @@
+# XMMS/InfoPipe script for the Irssi client. You need a few things
+# installed before this script will work...
+#    1) Irssi,          http://irssi.org/
+#    2) XMMS,           http://www.xmms.org/
+#    3) InfoPipe,       http://www.beastwithin.org
+#                       /users/wwwwolf/code/xmms/infopipe.html
+#
+# xmms2.pl is a version of xmms.pl slightly modified by Sir Robin,
+# sir@robsku.cjb.net / http://robsku.cjb.net/
+#
+# The script now outputs by default to the active window, instead of
+# status window. Also removed percentage meter as it didn't work. Only
+# two lines were modified and the original lines still exist, just
+# commented out.
+#
+# If you have trouble installing any of these, consult the READMEs that
+# come with the software, thank you.
+#
+# Fixed a few vital things adviced by kodgehopper at netscape dot net.
+# Very appreciated as I had no chance of testing a few of these things
+# myself. I hope everything works as it should now.
+#
+# Visit http://scripts.irssi.de/
+#
+# simon at blueshell dot dk
+use Irssi;
+use vars qw($VERSION %IRSSI);
+use strict;
+
+$VERSION = '1.1.3+1';
+%IRSSI = (
+  authors     => 'simon',
+  contact     => 'simon\@blueshell.dk',
+  name        => 'XMMS-InfoPipe Script',
+  description => 'Returns XMMS-InfoPipe data',
+  license     => 'Public Domain',
+  url         => 'http://irssi.dk/',
+  changed     => 'Mon Nov 27 18:00:00 CET 2006',
+  commands    => '/np',
+  note        => 'Make sure InfoPipe is configured!'
+);
+
+sub cmd_xmms {
+  my ($args, $server, $target) = @_;
+  $args =~ s/\s+$//; #fix unneeded whitespaces after output dest.
+
+  my (@t, $t, $ttotal, @pos, $pos, $postotal, $title);
+  open xmms, '/tmp/xmms-info' || die; # if nothing happens, it probably
+                                      # failed here!
+
+  while(<xmms>) {
+    if(/^Time: (.*)$/) {
+      @t = split(/:/, $1);
+      $t = $1;
+      $t =~ s/^([0-9]*):([0-9]{2})$/\1m\2s/; # convert to nice format
+      $ttotal = $t[0] + $t[1]*60;
+    }
+    if(/^Position: (.*)$/) { 
+      @pos = split(/:/, $1);
+      $postotal = $pos[0] + $pos[1]*60;
+    }
+    if(/^Title: (.*)$/) { $title = $1; }
+  }
+  close xmms;
+
+  if(!$ttotal || !$postotal) {
+    Irssi::print "An error occurred. Check if XMMS is running and your";
+    Irssi::print "InfoPipe module is running properly. If not, read how";
+    Irssi::print "to get these up and running by reading the script source";
+    die;
+  }
+
+  $pos = sprintf("%.0f", $postotal / $ttotal * 100); # calc. position
+# my $output = "np: $title ($pos% of $t)";
+  my $output = "np: $title ($t)";
+  $output =~ s/[\r\n]/ /g; # remove newline characters
+  if(!$server || !$server->{connected}) { # are we even connected?
+    Irssi::print $output;
+    return
+  }
+  if($args) { $server->command("msg $args $output"); }
+  else { Irssi::active_win()->command('say ' . $output); }
+# else { Irssi::print $output; }
+}
+
+Irssi::command_bind('np', 'cmd_xmms');
diff --git a/scripts/xmmsinfo.pl b/scripts/xmmsinfo.pl
new file mode 100644
index 0000000..46fd842
--- /dev/null
+++ b/scripts/xmmsinfo.pl
@@ -0,0 +1,116 @@
+#!/usr/bin/perl
+
+# $Id: xmmsinfo.pl,v 1.1.1.1 2002/03/24 21:00:55 tj Exp $
+#
+# Copyright (0) 2002 Tuomas Jormola <tjormola@cc.hut.fi
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# The complete text of the GNU General Public License can be found
+# on the World Wide Web: <URL:http://www.gnu.org/licenses/gpl.html>
+#
+# $Log: xmmsinfo.pl,v $
+# Revision 1.1.1.1  2002/03/24 21:00:55  tj
+# Initial import.
+#
+#
+# TODO:
+# * Configurable string to print (%t = title, %a = artist ...)
+
+use strict;
+use Irssi;
+use Irssi::XMMSInfo;
+use vars qw($VERSION %IRSSI);
+
+# global variables
+$VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.2 $ =~ /^.+?(\d+)\.(\d+)/);
+%IRSSI = (
+	authors		=> 'Tuomas Jormola',
+	contact		=> 'tjormola@cc.hut.fi',
+	name		=> 'XMMSInfo',
+	description	=> '/xmmsinfo to tell what you\'re currently playing',
+	license		=> 'GPLv2',
+	url			=> 'http://shakti.tky.hut.fi/stuff.xml#irssi',
+	changed		=> '2006-1027T18:00+0300',
+);
+
+if(runningUnderIrssi()) {
+	Irssi::settings_add_str('misc', 'xmms_info_pipe', '/tmp/xmms-info');
+	Irssi::command_bind('xmmsinfo', 'commandXmmsInfo');
+	Irssi::print("$IRSSI{name} $VERSION loaded, /xmmsinfo -help");
+} else {
+	(my $s = $0) =~ s/.*\///;
+	$ARGV[0] || die("Usage: $s <file>\n");
+	commandXmmsInfo();
+}
+
+# command handler
+sub commandXmmsInfo {
+	my($args, $server, $target) = @_;
+
+	if(lc($args) eq "-help") {
+		Irssi::print("XMMSInfo $VERSION by $IRSSI{authors} <$IRSSI{contact}>");
+		Irssi::print("");
+		Irssi::print("Displays what your XMMS is playing using information");
+		Irssi::print("provided by the XMMS InfoPipe plugin");
+		Irssi::print("<URL:www.iki.fi/wwwwolf/code/xmms/infopipe.html");
+		Irssi::print("");
+		Irssi::print("Usage: /xmmsinfo [TARGET]");
+		Irssi::print("If TARGET is given, the info is sent there, othwerwise to");
+		Irssi::print("the current active channel/query or Irssi status window");
+		Irssi::print("if you have no channel/query window active.");
+		Irssi::print("Target can be nick name or channel name");
+		Irssi::print("");
+		Irssi::print("Configuration: /set xmms_info_pipe <file>");
+		Irssi::print("Define filename of the pipe where from the InfoPipe output is read");
+		Irssi::print("Default is /tmp/xmms-info");
+		return;
+	}
+
+	my($p) = runningUnderIrssi() ? Irssi::settings_get_str('xmms_info_pipe') : $ARGV[0];
+	my($i) = XMMSInfo->new;
+	$i->getInfo(pipe => $p);
+
+	my($o) = "XMMS: " . $i->getStatusString;
+
+	if($i->isFatalError) {
+		$o .= ": " . $i->getError;
+	} elsif($i->isXmmsRunning) {
+		my($t) = $i->infoTitle || "(unknown song)";
+		my($a) = $i->infoArtist || "(unknown artist)";
+		my($g) = lc($i->infoGenre) || "(unknown genre)";
+		my($pos) = $i->infoMinutesNow . "m" . $i->infoSecondsNowLeftover."s";
+		my($tot) = $i->infoMinutesTotal . "m" . $i->infoSecondsTotalLeftover."s";
+		my($per) = $i->infoPercentage;
+		my($b) = $i->infoBitrate . "kbps";
+		my($f) = $i->infoFrequency . "kHz";
+		$o .= " $g tune $t by $a." if ($i->isPlaying || $i->isPaused);
+		$o .= " Played $pos of total $tot ($per%)." if $i->isPlaying;
+		$o .= " [$b/$f]" if ($i->isPlaying || $i->isPaused);
+	}
+
+	if(!runningUnderIrssi()) {
+		print "$o\n";
+	} elsif($i->isFatalError || !$server || !$server->{connected} || (!$args && !$target)) {
+		Irssi::print($o);
+	} else {
+		$o =~ s/[\r\n]/ /g; # remove newline characters
+		my($t) = $args || $target->{name};
+		$server->command("msg $t $o");
+	}
+
+}
+
+sub runningUnderIrssi {
+	$0 eq '-e';
+}
+
+# END OF SCRIPT
diff --git a/scripts/xqf.pl b/scripts/xqf.pl
new file mode 100644
index 0000000..d64c44c
--- /dev/null
+++ b/scripts/xqf.pl
@@ -0,0 +1,238 @@
+# $Id: xqf.pl,v 0.14 2004/07/03 14:52:50 mizerou Exp $
+#
+# XQF to Irssi/Licq script. Idea from an X-Chat script (xqf-xchat).
+#
+# Portions of away_verbose used with permission from Koenraad Heijlen.
+#
+# ChangeLog:
+# 0.14:
+#  - !aping lookups coded (uses Socket)
+#  - bugfix: when passing stuff to licq_fifo and licq not running
+# 0.13:
+#  - first public release, updates to follow.
+#  - remove control codes in licq away message
+# 0.12:
+#  - incorporated a lightweight hack of away_verbose
+#    - no longer uses 'awe' and 'gone', all internally handled
+#  - some servers use whitespace in beginning of name, fixed
+#  - case-insensitive variables in setting 'xqfAwayMessage'
+#  - redundant settings removed, code cleanups
+# 0.11:
+#  - licq support added
+#  - uses the 'awe' and 'gone' commands from away_verbose for now
+# 0.10:
+#  - basics completed
+#
+# TODO:
+#  - a way to detect when you're back from the game?
+#  - timer checks to update licq and irssi (compare server addr)?
+#  - plans to convert mIRC script 'autoping' to perl (parts of it)
+#
+# Bugs/Ideas/Improvements:
+#  - report the above to mizerou @ irc.freenode.net/#fiend
+#	or irc.enterthegame.com/#fiend
+#
+use strict;
+use Socket;
+
+use vars qw($VERSION %IRSSI);
+use Irssi qw(command_bind active_win);
+
+$VERSION = '0.14';
+%IRSSI = (
+    authors	=> 'mizerou',
+    contact	=> 'mizerou@telus.net',
+    name	=> 'XQF',
+    description	=> 'automatically sends xqf data to irssi and optionally licq',
+    license	=> 'GPLv2',
+    url		=> 'none',
+    changed	=> 'Sat June 05 05:12 MST 2004',
+    modules	=> 'Socket',
+    commands	=> 'xqf'
+);
+
+# setup irssi settings
+Irssi::settings_add_str('xqf', 'xqfLaunchInfo' => $ENV{HOME}.'/.qf/LaunchInfo.txt');
+Irssi::settings_add_str('xqf', 'xqfLicqFifo' => $ENV{HOME}.'/.licq/licq_fifo');
+Irssi::settings_add_str('xqf', 'xqfChannels', 'foo|bar');
+Irssi::settings_add_str('xqf', 'xqfAwayMessage', 'Playing $game ($mod) @ $name ($addr)');
+Irssi::settings_add_bool('xqf', 'xqfSetLicq', 0);
+Irssi::signal_add_last("message public", "xqfPing");
+
+# global vars
+my ($game, $name, $addr, $mod);
+my %xqfAway;
+my $timeout = Irssi::timeout_add_once(4000, 'checkLaunchInfo', undef);
+
+# remove LaunchInfo on startup
+if (-e Irssi::settings_get_str('xqfLaunchInfo')) {
+  unlink Irssi::settings_get_str('xqfLaunchInfo');
+}
+
+# /xqf: handles returning from games
+command_bind xqf => sub {
+  if ($xqfAway{'away'}) {
+    my (@servers) = Irssi::servers();
+    if (-e Irssi::settings_get_str('xqfLaunchInfo')) {
+      unlink Irssi::settings_get_str('xqfLaunchInfo');
+    }
+    $timeout = Irssi::timeout_add_once(4000, 'checkLaunchInfo', undef);
+    $servers[0]->command("AWAY");
+    xqfBack();
+    return;
+  } else {
+    active_win->print("XQF\\ You aren't currently playing a game.");
+    return;
+  }
+  return 0;
+};
+
+# checks if user has launched a game from xqf
+sub checkLaunchInfo {
+  if (!-e Irssi::settings_get_str('xqfLaunchInfo')) {
+    $timeout = Irssi::timeout_add_once(4000, 'checkLaunchInfo' , undef);
+    return;
+  } else {
+    my (@servers) = Irssi::servers();
+    Irssi::timeout_remove($timeout);
+    my $xqfMessage = fetchLaunchInfo();
+    $servers[0]->command("AWAY " . $xqfMessage);
+    xqfAway($xqfMessage);
+    active_win->print("XQF\\ Please type /xqf when you have finished playing.");
+    return;
+  }
+  return 0;
+}
+
+# parses and returns data from LaunchInfo.txt
+sub fetchLaunchInfo {
+  my $reply;
+
+  open(FH, "<".Irssi::settings_get_str('xqfLaunchInfo'));
+  my @LaunchInfo = <FH>;
+  close (FH);
+
+  foreach my $line (@LaunchInfo) {
+    ($game = $line) =~ s/^GameType (.+)\n/$1/ if ($line =~ /^GameType/);
+    ($name = $line) =~ s/^ServerName (.+)\n/$1/ if ($line =~ /^ServerName/);
+    ($addr = $line) =~ s/^ServerAddr (.+)\n/$1/ if ($line =~ /^ServerAddr/);
+    ($mod = $line) =~ s/^ServerMod (.+)\n/$1/ if ($line =~ /^ServerMod/);
+  }
+  s/^\s+// for ($game, $name, $addr, $mod);
+
+  $reply = Irssi::settings_get_str('xqfAwayMessage');
+  $reply =~ s/(\$\w+)/lc($1)/eego;	# case insensitive
+  return ($reply);			# return the users custom reply
+}
+
+#
+# functions below were borrowed from away_verbose.pl and modified to suit my needs
+# used with permission from Koenraad Heijlen <koenraad@ulyssis.org>
+#
+
+# converts unix time into human readable format
+sub xqfSecs2Text {
+  my $xqfAwayTexts = "wk,wks,day,days,hr,hrs,min,mins,sec,secs";
+  my ($secs) = @_;
+  my ($wk_,$wks_,$day_,$days_,$hr_,$hrs_,$min_,$mins_,$sec_,$secs_) = (0,1,2,3,4,5,6,7,8,9,10);
+  my @texts = split(/,/, $xqfAwayTexts);
+
+  my $mins = int($secs / 60); $secs -= ($mins * 60);
+  my $hrs = int($mins / 60); $mins -= ($hrs * 60);
+  my $days = int($hrs / 24); $hrs -= ($days * 24);
+  my $wks = int($days / 7); $days -= ($wks * 7);
+  my $text = (($wks > 0) ? (($wks > 1) ? "$wks $texts[$wks_] " : "$wks $texts[$wk_] ") : "");
+  $text .= (($days > 0) ? (($days > 1) ? "$days $texts[$days_] " : "$days $texts[$day_] ") : "");
+  $text .= (($hrs > 0) ? (($hrs > 1) ? "$hrs $texts[$hrs_] " : "$hrs $texts[$hr_] ")  : "");
+  $text .= (($mins > 0) ? (($mins > 1) ? "$mins $texts[$mins_] " : "$mins $texts[$min_] ") : "");
+  $text .= (($secs > 0) ? (($secs > 1) ? "$secs $texts[$secs_] " : "$secs $texts[$sec_] ") : "");
+  $text =~ s/ $//;
+  return ($text);
+}
+
+# sets away status on irssi and licq
+sub xqfAway {
+  my ($text, $witem) = @_;
+  my $xqfChannels = Irssi::settings_get_str('xqfChannels');
+
+  $xqfAway{'time'} = time;
+  $xqfAway{'reason'} = "$text";
+  $xqfAway{'away'} = 1;
+  foreach my $server (Irssi::servers) {
+    foreach my $chan ($server->channels) {
+      if ((($server->{chatnet} .":". $chan->{name}) =~ /$xqfChannels/i)) {
+        $server->command("DESCRIBE $chan->{name} is away: $text");
+      }
+    }
+  }
+
+  if (Irssi::settings_get_bool('xqfSetLicq')) {
+    $text =~ s/\p{IsCntrl}//g;
+    active_win->command("exec -name xqfLicq echo 'status na \"$text\"' > " . Irssi::settings_get_str('xqfLicqFifo')); # 0.14: bugfix
+    active_win->command("exec -close xqfLicq");    
+  }
+}
+
+# returns from away status on irssi and licq
+sub xqfBack { 
+  my ($text) = @_;
+  my $xqfChannels = Irssi::settings_get_str('xqfChannels');
+
+  foreach my $server (Irssi::servers) {
+    foreach my $chan ($server->channels) {
+      if ((($server->{chatnet} .":". $chan->{name}) =~ /$xqfChannels/i)) {
+        $server->command("DESCRIBE $chan->{name} has returned from: $xqfAway{'reason'} after " . xqfSecs2Text(time - $xqfAway{'time'}));
+      }
+    }
+  }
+  if (Irssi::settings_get_bool('xqfSetLicq')) {
+    active_win->command("exec -name xqfLicq echo 'status online' > " . Irssi::settings_get_str('xqfLicqFifo')); # 0.14: bugfix
+    active_win->command("exec -close xqfLicq");
+  }
+  $xqfAway{'time'} = 0;
+  $xqfAway{'reason'} = "";
+  $xqfAway{'away'} = 0;
+}
+        
+# handle !aping requests
+sub xqfPing {
+  my ($server, $host, $nick, $address, $channel) = @_;
+  my ($xqfChannels) = Irssi::settings_get_str('xqfChannels');
+  my ($average_ping);
+
+  if ($channel !~ /$xqfChannels/i) { return; }
+  if ($host !~ /^!aping/) { return; }
+  $host =~ s/^!aping //;
+
+  if ($xqfAway{'away'}) {
+    $server->command("msg $channel No pinging while gaming");
+    return;
+  }
+
+  # we make sure the host is real
+  my ($inetaddr) = gethostbyname($host);
+  if (!$inetaddr) {
+    $server->command("msg $channel I can't find $host");
+    return;
+  }
+  my $addr = inet_ntoa(scalar gethostbyname($host));
+
+  my @ping = `/bin/ping -w 2 -i .5 -c 3 $addr`;
+  my $average_line = $ping[-1];
+
+  if ($average_line !~ m#^.+= \S+/(\S+)/\S+/.*#) {
+    if ($average_line !~ /^rtt.*/) {
+      $server->command("msg $channel Could not connect to $host");
+      return;
+    } else {
+      $server->command("msg $channel Could not parse results from ping");
+      return;
+    }
+  } else {
+    $average_ping = "${1}ms";
+  }
+  $server->command("msg $channel $host = $average_ping");
+  return;
+}
+
+# EOF