irssi-scripts 20131030 / usr / share / irssi / scripts / accent.pl

This file is indexed.

/usr/share/irssi/scripts/accent.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
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
#to run it if it is here (but in this case it will run automagically when
#irssi will start):
#
#/script load ~/.irssi/scripts/autorun/accent.pl
#
#you can simply remove the script:
#
#/script unload accent
#
#and it will strips your incoming and outgoing hungarian accents
#but you can:
#
#/set accent_strip_in  <on|off> -- strips the incoming accents (on) or not (off)
#/set accent_strip_out <on|off> -- strips the outgoing accents (on) or not (off)
#
#/set accent_tag_in  <string, default: [A]> indicates the incoming msg filtered 
#/set accent_tag_out <string, default: [A]> indicates the outgoing msg filtered
#
#/set accent_latin <string, default: iso 8859-2: A',a',E',e',I',i',O',o',O:,o:,O",o",U',u',U:,u:,U",u"> which to strip
#/set accent_ascii <string, default: AaEeIiOoOoOoUuUuUu> will be the stripped
#
#be careful, accent_latin and accent_latin must be charlist and must have
#the same length to be matched as a pair.
#
#/set accent_debug <on|off> -- if you have a problem try to turn this on

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

use Irssi;
$VERSION = '$Id: accent.pl,v 1.34 2003/03/27 15:54:25 toma Exp $';
%IRSSI = (
	authors     => 'Tamas SZERB',
	contact     => 'toma@rulez.org',
	name        => 'accent',
	description => 'This script strips the hungarian accents.',
	license     => 'GPL',
);

my $stripped_out = 0;
my $stripped_in  = 0;

sub accent_out {
	if(Irssi::settings_get_bool('accent_strip_out') && !$stripped_out) {
		my $accent_tag = Irssi::settings_get_str('accent_tag_out');

		my $debug=Irssi::settings_get_bool('accent_debug');
		
		my $accent_latin = Irssi::settings_get_str('accent_latin');
		my $accent_ascii = Irssi::settings_get_str('accent_ascii');
		if (length($accent_latin) != length($accent_ascii)) {
			if ($debug) {
				Irssi::print("`$accent_latin' and `$accent_ascii' hasn't same length");
			}
		}
		else {
			my $emitted_signal = Irssi::signal_get_emitted();
			my ($msg, $dummy1, $dummy2) = @_;

			if ($debug) {
				Irssi::print("signal emitted: $emitted_signal");
			}

			if ( $msg =~ /[$accent_latin]/ ) {
				if ($debug) {
					Irssi::print("outgoing contains accent: $msg");
				}
				eval "\$msg =~ tr/$accent_latin/$accent_ascii/;";
				$msg = $msg . ' ' . $accent_tag;
				$stripped_out=1;
				
				Irssi::signal_emit("$emitted_signal", $msg, $dummy1, $dummy2 );
				Irssi::signal_stop();
				$stripped_out=0;
			}
		}
	}
}

sub accent_in {
	if(Irssi::settings_get_bool('accent_strip_in') && !$stripped_in) {
		my $accent_tag = Irssi::settings_get_str('accent_tag_in');

		my $debug=Irssi::settings_get_bool('accent_debug');
		
		my $accent_latin = Irssi::settings_get_str('accent_latin');
		my $accent_ascii = Irssi::settings_get_str('accent_ascii');
		if (length($accent_latin) != length($accent_ascii)) {
			if ($debug) {
				Irssi::print("`$accent_latin' and `$accent_ascii' hasn't same length");
			}
		}
		else {
			my $emitted_signal = Irssi::signal_get_emitted();

			my ($dummy0, $text, $dummy3, $dummy4, $dummy5) = @_;
			if ($debug) {
				Irssi::print("signal emitted: $emitted_signal");
			}
			if ( $text =~ /[$accent_latin]/ ) {
				if ($debug) {
					Irssi::print("incoming contains accent: $text");
				}
				if ($debug) {
					Irssi::print("text=$text");
				}
				#no idea why w/o eval doesn't work:
				eval "\$text =~ tr/$accent_latin/$accent_ascii/;";
				$text = $text . ' ' . $accent_tag;
				$stripped_in=1;

				if ($debug) {
					Irssi::print("text=$text");
				}
				Irssi::signal_emit("$emitted_signal", $dummy0, $text, $dummy3, $dummy4, $dummy5 );
				Irssi::signal_stop();
				$stripped_in=0;
			}
		}
	}
}

#main():

#default settings /set accent_in && accent_out ON:
Irssi::settings_add_bool('lookandfeel', 'accent_strip_in', 1);
Irssi::settings_add_bool('lookandfeel', 'accent_strip_out', 1);

#define the default tags for the filtered text:
Irssi::settings_add_str('lookandfeel', 'accent_tag_in', '[Ai]');
Irssi::settings_add_str('lookandfeel', 'accent_tag_out', '[Ao]');

#define which chars will be changed:
#iso 8859-2: A',a',E',e',I',i',O',o',O:,o:,O",o",U',u',U:,u:,U",u"
Irssi::settings_add_str('lookandfeel', 'accent_latin', "\301\341\311\351\315\355\323\363\326\366\325\365\332\372\334\374\333\373");
Irssi::settings_add_str('lookandfeel', 'accent_ascii', "AaEeIiOoOoOoUuUuUu");

#define wheather debug or not (default OFF):
Irssi::settings_add_bool('lookandfeel', 'accent_debug', 0);

#filters:
#incoming filters:
Irssi::signal_add_first('server event', 'accent_in');

#output filters:
Irssi::signal_add_first('send command', 'accent_out');
#Irssi::signal_add_first('message own_public', 'accent_out');
#Irssi::signal_add_first('message own_private', 'accent_out');

#startup info:
Irssi::print("Hungarian accent stripper by toma * http://scripts.irssi.org/scripts/accent.pl");
Irssi::print("Version: $VERSION");

APT Browse - Built by Thomas Orozco.