/usr/share/irssi/scripts/cleanpublic.pl is in irssi-scripts 20131030.
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 | # Simple script for removing colours in public channels :)
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
# Dev. info ^_^
$VERSION = "0.3";
%IRSSI = (
authors => "Jørgen Tjernø",
contact => "darkthorne\@samsen.com",
name => "CleanPublic",
description => "Simple script that removes colors and other formatting (bold, etc) from public channels",
license => "GPL",
url => "http://mental.mine.nu",
changed => "Wed Sep 24 13:17:15 CEST 2003"
);
# All the works
sub strip_formatting {
my ($server, $data, $nick, $mask, $target) = @_;
# Channel *allowed* to be colorful?
foreach my $chan (split(' ', Irssi::settings_get_str('colored_channels'))) {
if ($target eq $chan) { return }
}
# Remove formatting
$data =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x16|\x06|\x07//g;
# Let it flow
Irssi::signal_continue($server, $data, $nick, $mask, $target);
}
# Hook me up
Irssi::signal_add('message public', 'strip_formatting');
Irssi::settings_add_str('lookandfeel', 'colored_channels', '');
|