summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordequis2016-04-04 09:02:17 -0300
committerdequis2016-04-04 09:02:17 -0300
commitac6dc4b71e7e3218e50a8fe9c185f29689af4b8c (patch)
tree9a559e139b90b0200f20c610d9d51ebeeddbdead
parentc4c7095de605ae49a89a4cff238817f4e0f14d83 (diff)
downloadscripts.irssi.org-ac6dc4b71e7e3218e50a8fe9c185f29689af4b8c.tar.bz2
Remove studivz_bitlbee_rename.pl. Use the 'nick_format' setting instead
-rw-r--r--scripts/studivz_bitlbee_rename.pl74
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';