fix bitlbee rename to use current nick nomenclature
authorDon Armstrong <don@donarmstrong.com>
Thu, 27 Jan 2011 06:05:53 +0000 (06:05 +0000)
committerDon Armstrong <don@donarmstrong.com>
Thu, 27 Jan 2011 06:05:53 +0000 (06:05 +0000)
.irssi/scripts/autorun/bitlbee_rename.pl [new symlink]
.irssi/scripts/bitlbee_rename.pl

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
@@ -0,0 +1 @@
+../bitlbee_rename.pl
\ No newline at end of file
index cfda1b5..2eb862b 100644 (file)
@@ -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");
   }
 }