From: ailin-nemui <redacted>
Date: Fri, 23 Aug 2019 07:55:01 +0000 (+0000)
Subject: [fix_slackirc] delete this script
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=048a5d59980a9a248b897e5faeef51bb8aa91f88;p=irssi-scripts.irssi.org.git

[fix_slackirc] delete this script

slack IRC is discontinued
---

diff --git a/scripts/fix_slackirc.pl b/scripts/fix_slackirc.pl
deleted file mode 100644
index b285644..0000000
--- a/scripts/fix_slackirc.pl
+++ /dev/null
@@ -1,101 +0,0 @@
-use strict;
-use warnings;
-
-our $VERSION = '0.3'; # e43de0fd9100921
-our %IRSSI = (
-    authors     => 'Nei',
-    contact     => 'Nei @ anti@conference.jabber.teamidiot.de',
-    url         => "http://anti.teamidiot.de/",
-    name        => 'fix_slackirc',
-    description => 'Some workarounds to improve irssi experience on the Slack IRC gateway',
-    license     => 'ISC',
-   );
-
-# Usage
-# =====
-# Load and enjoy
-
-use Irssi;
-
-my $SLACK_ADDRESS = 'irc.tinyspeck.com';
-
-# Work-around for 2 bugs in the Slack IRC bridge
-# * Format of 315 is broken - the nick is missing
-# * No Reply to the MODE b command
-# * Empty real names are given as string "null" instead
-# these issues will stop channel sync from working properly
-
-my %timer;
-my %chanlist;
-
-Irssi::signal_register({
-    'chanquery who end' => [qw[iobject string]],
-});
-
-# Accessor for the Rawlog
-sub _s2r {
-    my $ref = shift;
-    if ($ref =~ /=SCALAR/) {
-	bless +{ _irssi => $$ref } => ref $ref
-    } else {
-	$ref
-    }
-}
-
-sub queue_ban_end {
-    my ($server, $raw) = @_;
-    return unless $server && $server->{real_address} eq $SLACK_ADDRESS;
-    my (@p) = split ' :', $raw, 2;
-    unshift @p, (split / /, shift @p);
-    my $tag = $server->{tag};
-    push @{ $chanlist{$tag} }, split /,/, $p[1];
-    if (my $t = delete $timer{$tag}) {
-	Irssi::timeout_remove($t);
-    }
-    # Gross hack due to Irssi missing a signal. We expect that irssi will ask for bans "soon" and in order
-    $timer{$tag} = Irssi::timeout_add_once(5_000, 'send_end_of_bans', $tag);
-}
-
-sub send_end_of_bans {
-    my ($tag) = @_;
-    delete $timer{$tag};
-    return unless $chanlist{$tag} && @{$chanlist{$tag}};
-    my $chan = shift @{ $chanlist{$tag} // [] } || return;
-    if (my $server = Irssi::server_find_tag($tag)) {
-	my $raw = ':'.$server->{real_address}.' 368 '.$server->{nick}.' '.$chan.' :Slack has no Ban List';
-	_s2r($server->{rawlog})->input("[FAKED] $raw") if $server->{rawlog};
-	Irssi::signal_emit('server incoming', $server, $raw);
-	if (@{$chanlist{$tag}}) {
-	    # We expect that irssi will ask for the "next" ban soon
-	    $timer{$tag} = Irssi::timeout_add_once(2_000, 'send_end_of_bans', $tag);
-	}
-	else {
-	    delete $chanlist{$tag};
-	}
-    }
-}
-
-sub fix_incoming {
-    my ($server, $raw) = @_;
-    my $nick = $server->{nick};
-    my $continue;
-    # fix end of wholist
-    if ($raw =~ s/:$SLACK_ADDRESS 315 \K /$nick /) {
-	$continue = 1;
-    }
-    # fix "null" realnames
-    elsif ($raw =~ s/:$SLACK_ADDRESS 352 .* :\d+ \Knull$//) {
-	$continue = 1;
-    }
-    # support self msgs
-    elsif ($raw =~ s/^:(?:(\S+)!\S+(\@$SLACK_ADDRESS)) PRIVMSG ([^#\s]\S*) :\[\3\] /:$3!$3$2 PRIVMSG $1 :/) {
-	$continue = 1;
-    }
-    if ($continue) {
-	_s2r($server->{rawlog})->input("[FIXED] $raw") if $server->{rawlog};
-	Irssi::signal_continue($server, $raw);
-    }
-}
-
-Irssi::signal_add_last('chanquery who end' => 'queue_ban_end');
-Irssi::signal_add_first('server incoming' => 'fix_incoming');