From a837c4f5dd943cf056b075253c0074c250ba68d1 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 27 Jan 2011 06:05:53 +0000
Subject: [PATCH] fix bitlbee rename to use current nick nomenclature

---
 .irssi/scripts/autorun/bitlbee_rename.pl | 1 +
 .irssi/scripts/bitlbee_rename.pl         | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)
 create mode 120000 .irssi/scripts/autorun/bitlbee_rename.pl

diff --git a/.irssi/scripts/autorun/bitlbee_rename.pl b/.irssi/scripts/autorun/bitlbee_rename.pl
new file mode 120000
index 0000000..88603fc
--- /dev/null
+++ b/.irssi/scripts/autorun/bitlbee_rename.pl
@@ -0,0 +1 @@
+../bitlbee_rename.pl
\ No newline at end of file
diff --git a/.irssi/scripts/bitlbee_rename.pl b/.irssi/scripts/bitlbee_rename.pl
index cfda1b5..2eb862b 100644
--- a/.irssi/scripts/bitlbee_rename.pl
+++ b/.irssi/scripts/bitlbee_rename.pl
@@ -23,10 +23,10 @@ sub message_join
   my $username = substr($address, 0, index($address,'@'));
   my $host = substr($address, index($address,'@')+1);
 
-  if($channel =~ m/($bitlbeeChannel)/ and $nick =~ m/$username/ and $nick =~ m/^u\d+/ and $host =~ m/($facebookhostname)/ )
+  if($channel =~ m/($bitlbeeChannel)/ and $nick =~ m/$username/ and $nick =~ m/^(u|-)\d+/ and $host =~ m/($facebookhostname)/ )
   {
     $nicksToRename{$nick} = $channel;
-    $server->command("whois $nick");
+    $server->command("whois -- $nick");
   }
 }
 
-- 
2.39.2