diff options
| author | dequis | 2016-04-04 09:02:17 -0300 |
|---|---|---|
| committer | dequis | 2016-04-04 09:02:17 -0300 |
| commit | ac6dc4b71e7e3218e50a8fe9c185f29689af4b8c (patch) | |
| tree | 9a559e139b90b0200f20c610d9d51ebeeddbdead | |
| parent | c4c7095de605ae49a89a4cff238817f4e0f14d83 (diff) | |
| download | scripts.irssi.org-ac6dc4b71e7e3218e50a8fe9c185f29689af4b8c.tar.bz2 | |
Remove studivz_bitlbee_rename.pl. Use the 'nick_format' setting instead
| -rw-r--r-- | scripts/studivz_bitlbee_rename.pl | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/scripts/studivz_bitlbee_rename.pl b/scripts/studivz_bitlbee_rename.pl deleted file mode 100644 index ec1d523..0000000 --- a/scripts/studivz_bitlbee_rename.pl +++ /dev/null @@ -1,74 +0,0 @@ -# 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'; |
