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 (symlink)
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 cfda1b5bf09875ea8e3d5e11bc538d0c1ba938de..2eb862bf6ef91a94a07909a098262de8290cda7f 100644 (file)
--- 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");
   }
 }