This file is indexed.

/usr/share/irssi/scripts/tab_stop.pl is in irssi-scripts 20120326.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#!/usr/bin/perl
#
# Created by Stefan "tommie" Tomanek [stefan@kann-nix.org]
# to free the world from  the evil inverted I
#
# 23.02.2002
# *First release
#
# 01.03.200
# *Changed to GPL

use strict;
use vars qw($VERSION %IRSSI);
use Irssi;

$VERSION = "2002123102";
%IRSSI = (
    authors     => "Stefan 'tommie' Tomanek",
    contact     => "stefan\@pico.ruhr.de",
    name        => "tab_stop",
    description => "This script replaces the evil inverted 'I' with a configurable number of whitespaces ",
    license     => "GPLv2",
    changed     => "$VERSION",
);

sub event_server_incoming {
    my ($server, $data) = @_;
    my $newdata;
    if (has_tab($data)) {
	$newdata = replace_tabs($data);
	Irssi::signal_continue($server, $newdata);
    }
}

# FIXME Experimental!
sub sig_gui_print_text {
    my ($win, $fg, $bg, $flags, $text, $dest) = @_;
    return unless $text =~ /\t/;
    my $newtext = replace_tabs($text);
    Irssi::signal_continue($win, $fg, $bg, $flags, $newtext, $dest);
}

sub has_tab {
    my ($text) = @_;
    return $text =~ /\t/;
}

sub replace_tabs {
    my ($text) = @_;
    my $replacement = Irssi::settings_get_str('tabstop_replacement');
    $text =~ s/\t/$replacement/g;
    return($text);
}

#Irssi::signal_add('gui print text', \&sig_gui_print_text);
Irssi::signal_add_first('server incoming', \&event_server_incoming);

Irssi::settings_add_str('misc', 'tabstop_replacement', "    ");