From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 27 Jan 2011 06:05:53 +0000 (+0000)
Subject: fix bitlbee rename to use current nick nomenclature
X-Git-Url: https://git.donarmstrong.com/?p=irc.git;a=commitdiff_plain;h=a837c4f5dd943cf056b075253c0074c250ba68d1

fix bitlbee rename to use current nick nomenclature
---

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");
   }
 }