auto-import changelog data from irssi-0.8.9-0.fdr.3.rh90.src.rpm
0.8.9-0.fdr.3
- Patch from Michael Schwendt to fix convert-replace-trigger script (bug
#1120 comment #3)
0.8.9-0.fdr.2
- Fixed changelog typo
- Added trigger.pl as replace.pl wont be maintained anymore
- Updated replace.pl to 0.1.4 version
- Added replace.pl URL in Source tag
- Removed .packlist files
- Added as doc a script to convert pref from replace.pl to trigger.pl
0.8.9-0.fdr.1
- Updated to 0.8.9
0.8.8-0.fdr.1
- Updated to 0.8.8
- Enabled gc
0.8.6-0.fdr.13
- Rebuild
0.8.6-0.fdr.12
- apply openssl patch only if openssl-devel supports pkgconfig
0.8.6-0.fdr.11
- Installing replace.pl in good directory
0.8.6-0.fdr.10
- Rebuild
0.8.6-0.fdr.9
- Using vendor perl directories
0.8.6-0.fdr.8
- Added missing unowned directories
- Added an additionnal useful perl script (replace.pl)
0.8.6-0.fdr.7
- Added zlib-devel buildrequires
0.8.6-0.fdr.6
- Applied Patches from Ville Skyttä (bug #277 comment #11 and comment #12)
0.8.6-0.fdr.5
- Modified BuildRequires for ssl
0.8.6-0.fdr.4
- Added another dir entry
0.8.6-0.fdr.3
- Added some dir entry in file section
0.8.6-0.fdr.2
- Exclude modules ".a" files
- Include more files as doc
Sat May 10 2003 Dams <anvil[AT]livna.org>
- Initial build.
This commit is contained in:
cvsextras
parent
c2dc63908d
commit
1f17fe55ad
@ -0,0 +1 @@
|
||||
irssi-0.8.9.tar.bz2
|
||||
109
convert-replace-trigger.pl
Normal file
109
convert-replace-trigger.pl
Normal file
@ -0,0 +1,109 @@
|
||||
# This script converts replaces saved by replace.pl to a triggers-file that can be used by trigger.pl
|
||||
# This is not an irssi script. You should use this from the command line.
|
||||
# Usage:
|
||||
# perl convert-replace-trigger.pl [irssi-dir]
|
||||
# if no directory is specified, it will asume you use the default ~/.irssi
|
||||
#
|
||||
# http://wouter.coekaerts.be/irssi/
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use IO::File;
|
||||
use Data::Dumper;
|
||||
|
||||
print "convert-replace-trigger 1.1\n";
|
||||
|
||||
my (@replaces, @triggers, $irssidir);
|
||||
|
||||
if (!$ARGV[0]) {
|
||||
$irssidir = $ENV{'HOME'};
|
||||
print "no arguments given, assuming your irssi directory is $irssidir\n";
|
||||
} else {
|
||||
$irssidir = $ARGV[0];
|
||||
print "using $irssidir as irssi directory\n";
|
||||
}
|
||||
|
||||
$irssidir =~ s/\/$//; # strip last /
|
||||
print "reading replaces from $irssidir/replaces...\n";
|
||||
my $io = new IO::File "$irssidir/replaces", "r";
|
||||
if (not defined $io) {
|
||||
print "error opening replaces file, aborting\n";
|
||||
exit;
|
||||
}
|
||||
if (defined $io) {
|
||||
no strict 'vars';
|
||||
my $text;
|
||||
$text .= $_ foreach ($io->getlines);
|
||||
my $rep = eval "$text";
|
||||
@replaces = @$rep if ref $rep;
|
||||
$io->close();
|
||||
}
|
||||
print(@replaces . " replaces loaded\n");
|
||||
|
||||
if (-e "$irssidir/triggers") { # there already is a triggers file
|
||||
print "reading existing triggers from $irssidir/triggers...\n";
|
||||
$io = new IO::File "$irssidir/triggers", "r";
|
||||
if (not defined $io) {
|
||||
print "triggers file already exists, but I can't open it. please remove it.\n";
|
||||
exit;
|
||||
}
|
||||
no strict 'vars';
|
||||
my $text;
|
||||
$text .= $_ foreach ($io->getlines);
|
||||
my $rep = eval "$text";
|
||||
@triggers = @$rep if ref $rep;
|
||||
$io->close();
|
||||
}
|
||||
|
||||
if (@triggers) {
|
||||
print (@triggers . " triggers already exist in the triggers file, keeping them\n");
|
||||
}
|
||||
|
||||
print "converting...\n";
|
||||
REPLACE:
|
||||
foreach my $replace (@replaces) {
|
||||
if ($replace->{'case'}) {
|
||||
delete $replace->{'case'};
|
||||
} else {
|
||||
$replace->{'modifiers'} = 'i';
|
||||
}
|
||||
|
||||
if ($replace->{'command'}) {
|
||||
$replace->{'command'} = $replace->{'replacement'};
|
||||
} else {
|
||||
$replace->{'replace'} = $replace->{'replacement'};
|
||||
}
|
||||
delete $replace->{'replacement'};
|
||||
|
||||
my $isduplicate = 1;
|
||||
foreach my $trigger (@triggers) {
|
||||
if (scalar(keys(%$trigger)) == scalar(keys(%$replace))) {
|
||||
foreach my $key (keys(%$trigger)) {
|
||||
if (!(defined($trigger->{$key}) && $replace->{$key} eq $trigger->{$key})) {
|
||||
$isduplicate = 0;
|
||||
}
|
||||
}
|
||||
} else {
|
||||
$isduplicate = 0;
|
||||
}
|
||||
}
|
||||
|
||||
if ($isduplicate) {
|
||||
print "skipping duplicate trigger\n";
|
||||
next REPLACE;
|
||||
}
|
||||
|
||||
push @triggers, $replace;
|
||||
}
|
||||
|
||||
print "saving triggers...\n";
|
||||
$io = new IO::File "$irssidir/triggers", "w";
|
||||
if (!defined $io) {
|
||||
print "Error writing triggers\n";
|
||||
exit;
|
||||
}
|
||||
my $dumper = Data::Dumper->new([\@triggers]);
|
||||
$dumper->Purity(1)->Deepcopy(1);
|
||||
$io->print($dumper->Dump);
|
||||
$io->close;
|
||||
print("Done. replaces successfully converted to triggers.\n");
|
||||
11
convert-replace-trigger.pl-fixpath-patch
Normal file
11
convert-replace-trigger.pl-fixpath-patch
Normal file
@ -0,0 +1,11 @@
|
||||
--- convert-replace-trigger.pl.orig 2003-12-20 16:58:20.000000000 +0100
|
||||
+++ convert-replace-trigger.pl 2004-01-29 01:40:09.000000000 +0100
|
||||
@@ -16,7 +16,7 @@
|
||||
my (@replaces, @triggers, $irssidir);
|
||||
|
||||
if (!$ARGV[0]) {
|
||||
- $irssidir = $ENV{'HOME'};
|
||||
+ $irssidir = $ENV{'HOME'} . "/.irssi";
|
||||
print "no arguments given, assuming your irssi directory is $irssidir\n";
|
||||
} else {
|
||||
$irssidir = $ARGV[0];
|
||||
150
irssi.spec
Normal file
150
irssi.spec
Normal file
@ -0,0 +1,150 @@
|
||||
%define perl_vendorarch %(eval "`perl -V:installvendorarch`"; echo $installvendorarch)
|
||||
|
||||
Summary: Modular text mode IRC client with Perl scripting
|
||||
Name: irssi
|
||||
Version: 0.8.9
|
||||
Release: 0.fdr.3.rh90
|
||||
Epoch: 0
|
||||
License: GPL
|
||||
Group: Applications/Communications
|
||||
URL: http://irssi.org/
|
||||
Source0: http://irssi.org/files/%{name}-%{version}.tar.bz2
|
||||
Source1: http://wouter.coekaerts.be/irssi/scripts/replace.pl
|
||||
Source2: http://wouter.coekaerts.be/irssi/scripts/trigger.pl
|
||||
Source3: http://wouter.coekaerts.be/irssi/scripts/convert-replace-trigger.pl
|
||||
Patch1: convert-replace-trigger.pl-fixpath-patch
|
||||
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-buildroot
|
||||
BuildRequires: ncurses-devel openssl-devel zlib-devel pkgconfig gc-devel
|
||||
%{?_with_glib1:BuildRequires: glib-devel}
|
||||
%{!?_with_glib1:BuildRequires: glib2-devel}
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%description
|
||||
Irssi is a modular IRC client with Perl scripting. Only text-mode
|
||||
frontend is currently supported. The GTK/GNOME frontend is no longer
|
||||
being maintained.
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%prep
|
||||
%setup -q
|
||||
install -m 0644 %{SOURCE3} .
|
||||
%patch1 -p0
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%build
|
||||
%configure --enable-ipv6 --with-textui \
|
||||
%{?_with_glib1: --with-glib1} \
|
||||
--with-proxy \
|
||||
--with-bot \
|
||||
--with-perl=module \
|
||||
--with-perl-lib=vendor --with-gc
|
||||
make %{?_smp_mflags}
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%install
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
%makeinstall PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
|
||||
|
||||
# Extra script
|
||||
install -m 0644 %{SOURCE1} $RPM_BUILD_ROOT%{_datadir}/%{name}/scripts
|
||||
install -m 0644 %{SOURCE2} $RPM_BUILD_ROOT%{_datadir}/%{name}/scripts
|
||||
|
||||
# Clean up
|
||||
rm -f $RPM_BUILD_ROOT%{_libdir}/%{name}/modules/lib*.*a
|
||||
rm -Rf $RPM_BUILD_ROOT/%{_docdir}/%{name}
|
||||
find $RPM_BUILD_ROOT%{perl_vendorarch} -type f -a -name '*.bs' -a -empty -exec rm -f {} ';'
|
||||
find $RPM_BUILD_ROOT%{perl_vendorarch} -type f -a -name .packlist -exec rm {} ';'
|
||||
|
||||
# Fix permissions
|
||||
chmod -R u+w $RPM_BUILD_ROOT%{perl_vendorarch}
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%clean
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%files
|
||||
%defattr(-,root,root,-)
|
||||
%doc docs/*.txt docs/*.html AUTHORS COPYING NEWS README TODO convert-replace-trigger.pl
|
||||
%config(noreplace) %{_sysconfdir}/%{name}.conf
|
||||
%dir %{_libdir}/perl*/*
|
||||
%dir %(eval "`perl -V:installvendorlib`"; echo $installvendorlib)
|
||||
%dir %{perl_vendorarch}
|
||||
%dir %{perl_vendorarch}/auto
|
||||
%{_bindir}/%{name}
|
||||
%{_bindir}/botti
|
||||
%{_datadir}/%{name}
|
||||
%{_libdir}/%{name}
|
||||
%{_mandir}/man1/%{name}.1*
|
||||
%{perl_vendorarch}/Irssi*
|
||||
%{perl_vendorarch}/auto/Irssi
|
||||
|
||||
# ----------------------------------------------------------------------------
|
||||
|
||||
%changelog
|
||||
* Fri Feb 6 2004 Dams <anvil[AT]livna.org> 0:0.8.9-0.fdr.3
|
||||
- Patch from Michael Schwendt to fix convert-replace-trigger script
|
||||
(bug #1120 comment #3)
|
||||
|
||||
* Sat Dec 20 2003 Dams <anvil[AT]livna.org> 0:0.8.9-0.fdr.2
|
||||
- Fixed changelog typo
|
||||
- Added trigger.pl as replace.pl wont be maintained anymore
|
||||
- Updated replace.pl to 0.1.4 version
|
||||
- Added replace.pl URL in Source tag
|
||||
- Removed .packlist files
|
||||
- Added as doc a script to convert pref from replace.pl to trigger.pl
|
||||
|
||||
* Thu Dec 11 2003 Dams <anvil[AT]livna.org> 0:0.8.9-0.fdr.1
|
||||
- Updated to 0.8.9
|
||||
|
||||
* Mon Nov 24 2003 Dams <anvil[AT]livna.org> 0:0.8.8-0.fdr.1
|
||||
- Updated to 0.8.8
|
||||
- Enabled gc
|
||||
|
||||
* Sun Sep 14 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.13
|
||||
- Rebuild
|
||||
|
||||
* Sun Sep 14 2003 Michael Schwendt <mschwendt[AT]users.sf.net> 0:0.8.6-0.fdr.12
|
||||
- apply openssl patch only if openssl-devel supports pkgconfig
|
||||
|
||||
* Thu Sep 11 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.11
|
||||
- Installing replace.pl in good directory
|
||||
|
||||
* Thu Sep 11 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.10
|
||||
- Rebuild
|
||||
|
||||
* Thu Sep 11 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.9
|
||||
- Using vendor perl directories
|
||||
|
||||
* Thu Sep 11 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.8
|
||||
- Added missing unowned directories
|
||||
- Added an additionnal useful perl script (replace.pl)
|
||||
|
||||
* Tue Aug 5 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.7
|
||||
- Added zlib-devel buildrequires
|
||||
|
||||
* Sat Jul 12 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.6
|
||||
- Applied Patches from Ville Skyttä (bug #277 comment #11 and
|
||||
comment #12)
|
||||
|
||||
* Mon Jun 23 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.5
|
||||
- Modified BuildRequires for ssl
|
||||
|
||||
* Wed Jun 11 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.4
|
||||
- Added another dir entry
|
||||
|
||||
* Sun Jun 8 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.3
|
||||
- Added some dir entry in file section
|
||||
|
||||
* Tue May 20 2003 Dams <anvil[AT]livna.org> 0:0.8.6-0.fdr.2
|
||||
- Exclude modules ".a" files
|
||||
- Include more files as doc
|
||||
|
||||
* Sat May 10 2003 Dams <anvil[AT]livna.org>
|
||||
- Initial build.
|
||||
415
replace.pl
Normal file
415
replace.pl
Normal file
@ -0,0 +1,415 @@
|
||||
# This script is no longer maintained, please use trigger.pl instead, it has all the features of this script and much more.
|
||||
# There is a script for converting your replaces-file to a triggers-file on http://wouter.coekaerts.be/irssi/replace.html
|
||||
|
||||
use strict;
|
||||
use Irssi 20020324 qw (command_bind command_runsub command signal_add_first signal_continue);
|
||||
use Text::ParseWords;
|
||||
use IO::File;
|
||||
use Data::Dumper;
|
||||
use vars qw($VERSION %IRSSI);
|
||||
|
||||
$VERSION = '0.1.4';
|
||||
%IRSSI = (
|
||||
authors => 'Wouter Coekaerts',
|
||||
contact => 'wouter@coekaerts.be, coekie@#irssi',
|
||||
name => 'replace',
|
||||
description => '(replaces regexps in incoming events) Please use trigger.pl instead',
|
||||
license => 'GPLv2',
|
||||
url => 'http://wouter.coekaerts.be/irssi/',
|
||||
changed => '20/09/03',
|
||||
);
|
||||
|
||||
Irssi::print("%RThis script is no longer maintained, please use trigger.pl instead, it has all the features of this script and much more.");
|
||||
Irssi::print("%RThere is a script for converting your replace-file to a trigger-file on http://wouter.coekaerts.be/irssi/replace.html");
|
||||
|
||||
my @replaces;
|
||||
|
||||
sub cmd_help {
|
||||
print ( <<EOF
|
||||
|
||||
REPLACE ADD [-[no]case] [-channels <channels>] [-masks <masks>] [-command]
|
||||
[-[no]<types>] <regexp> <replacement>
|
||||
REPLACE DELETE <number>|<regexp>
|
||||
REPLACE LIST
|
||||
REPLACE SAVE
|
||||
REPLACE RELOAD
|
||||
|
||||
-[no]case: regexp is [not] case sensitive
|
||||
-channels: only in <channels>. a space-delimited list. (use quotes)
|
||||
-masks: only for messages from someone mathing one of the masks
|
||||
(space seperated)
|
||||
-<[no]types>: [don't] replace these types. The different types are:
|
||||
-publics,-privmsgs,-actions,-parts,-quits,-kicks,
|
||||
-topics,-privactions,-all
|
||||
-all is an alias for all of them, and is the default.
|
||||
-command: <replacement> isn't a replacement, but an irssi-command
|
||||
\$S is expanded to the server tag, \$C to channelname
|
||||
\$N to nickname, \$A to his address (foo\@bar.com),
|
||||
\$M to the message
|
||||
|
||||
Examples:
|
||||
replace every occurence of shit on #chan1 and #chan2 on ircnet with sh*t
|
||||
/REPLACE ADD -channels \"#chan1 ircnet/#chan2\" shit sh*t
|
||||
strip all colorcodes from *!lamer\@*
|
||||
/REPLACE ADD -masks *!lamer\@* '\\x03\\d?\\d?(,\\d\\d?)?|\\x02|\\x1f|\\x16|\\x06' ''
|
||||
strip backgroundcolors from quitmessages
|
||||
/REPLACE ADD -quits '\\003(\\d?\\d?),\\d\\d?' '\\003\\\$1'
|
||||
never let *!bot1\@foo.bar and *!bot2\@foo.bar hilight you
|
||||
/REPLACE ADD -masks '*!bot1\@foo.bar *!bot2\@foo.bar' mynick my\\x02\\x02nick
|
||||
avoid being hilighted by !top10 in eggdrops with stats.mod
|
||||
/REPLACE ADD -case '(Top.0\\(.*\\): 1.*)mynick' '\$1my\\x02\\x02nick'
|
||||
Convert a Windows-1252 Euro to an ISO-8859-15 Euro (same effect as euro.pl)
|
||||
/REPLACE ADD '\\x80' '\\xA4'
|
||||
Show tabs as spaces, not the inverted I (same effect as tab_stop.pl)
|
||||
/REPLACE ADD '\\t' ' '
|
||||
|
||||
EOF
|
||||
);
|
||||
}
|
||||
|
||||
#switches in -all option
|
||||
my @replace_all_switches = ('publics','privmsgs','actions','privactions','parts','quits','kicks','topics');
|
||||
#list of all switches
|
||||
my @replace_switches = ('case','command');
|
||||
push @replace_switches,@replace_all_switches;
|
||||
#list of all options (including switches)
|
||||
my @replace_options = ('all','masks','channels');
|
||||
push @replace_options, @replace_switches;
|
||||
|
||||
|
||||
|
||||
############################################
|
||||
### catch the signals & do the replacing ###
|
||||
############################################
|
||||
|
||||
# "message public", SERVER_REC, char *msg, char *nick, char *address, char *target
|
||||
signal_add_first("message public" => sub {check_signal_message(\@_,1,4,2,3,'publics');});
|
||||
# "message private", SERVER_REC, char *msg, char *nick, char *address
|
||||
signal_add_first("message private" => sub {check_signal_message(\@_,1,-1,2,3,'privmsgs');});
|
||||
# "message irc action", SERVER_REC, char *msg, char *nick, char *address, char *target
|
||||
signal_add_first("message irc action" => sub {
|
||||
if ($_[4] eq $_[0]->{nick}) {
|
||||
check_signal_message(\@_,1,-1,2,3,'actions');
|
||||
} else {
|
||||
check_signal_message(\@_,1,4,2,3,'actions');
|
||||
}
|
||||
});
|
||||
# "message part", SERVER_REC, char *channel, char *nick, char *address, char *reason
|
||||
signal_add_first("message part" => sub {check_signal_message(\@_,4,1,2,3,'parts');});
|
||||
# "message quit", SERVER_REC, char *nick, char *address, char *reason
|
||||
signal_add_first("message quit" => sub {check_signal_message(\@_,3,-1,1,2,'quits');});
|
||||
# "message kick", SERVER_REC, char *channel, char *nick, char *kicker, char *address, char *reason
|
||||
signal_add_first("message kick" => sub {check_signal_message(\@_,5,1,3,4,'kicks');});
|
||||
# "message topic", SERVER_REC, char *channel, char *topic, char *nick, char *address
|
||||
signal_add_first("message topic" => sub {check_signal_message(\@_,2,1,3,4,'topics');});
|
||||
|
||||
# do the replaces on $signal's $parammessage parameter, for replaces with $condition set
|
||||
# in $paramchannel, for $paramnick!$paramaddress
|
||||
# set $param* to -1 if not present
|
||||
sub check_signal_message {
|
||||
my ($signal,$parammessage,$paramchannel,$paramnick,$paramaddress,$condition) = @_;
|
||||
my ($replace, $channel, $matches);
|
||||
my $changed = 0;
|
||||
my $server = $signal->[0];
|
||||
foreach $replace (@replaces) {
|
||||
if (!$replace->{"$condition"}) {
|
||||
next; # wrong type of message
|
||||
}
|
||||
if ($replace->{'channels'} && $paramchannel != -1) { # check if the channel matches
|
||||
$matches = 0;
|
||||
foreach $channel (split(/ /,$replace->{'channels'})) {
|
||||
if (lc($signal->[$paramchannel]) eq $channel
|
||||
|| lc($server->{'tag'}.'/'.$signal->[$paramchannel]) eq $channel
|
||||
|| lc($server->{'tag'}.'/') eq $channel) {
|
||||
$matches = 1;
|
||||
last; # this channel matches, stop checking channels
|
||||
}
|
||||
}
|
||||
if (!$matches) {
|
||||
next; # this replace doesn't match, try next replace...
|
||||
}
|
||||
}
|
||||
# check the mask
|
||||
if ($replace->{'masks'} && !$server->masks_match($replace->{'masks'}, $signal->[$paramnick], $signal->[$paramaddress])) {
|
||||
next; # this replace doesn't match
|
||||
|
||||
}
|
||||
# if were here, this replace matches
|
||||
if (!$replace->{'command'}) { # normal replace
|
||||
if ($replace->{'case'}) {
|
||||
eval('$changed = ($signal->[$parammessage] =~ s§'. $replace->{'regexp'} . '§' . $replace->{'replacement'} . '§g) || $changed;');
|
||||
} else {
|
||||
eval('$changed = ($signal->[$parammessage] =~ s§'. $replace->{'regexp'} . '§' . $replace->{'replacement'} . '§gi) || $changed;');
|
||||
}
|
||||
} else { # command
|
||||
if (($replace->{'case'} && $signal->[$parammessage] =~ /$replace->{'regexp'}/)
|
||||
||(!$replace->{'case'} && $signal->[$parammessage] =~ /$replace->{'regexp'}/i)) {
|
||||
my $command = $replace->{'replacement'};
|
||||
$command =~ s/\$M/$signal->[$parammessage]/g;
|
||||
$command =~ s/\$S/$server->{'tag'}/g;
|
||||
if ($paramchannel != -1) {$command =~ s/\$C/$signal->[$paramchannel]/g;}
|
||||
if ($paramnick != -1) {$command =~ s/\$N/$signal->[$paramnick]/g;}
|
||||
if ($paramaddress != -1) {$command =~ s/\$A/$signal->[$paramaddress]/g;}
|
||||
$server->command($command);
|
||||
}
|
||||
}
|
||||
#
|
||||
}
|
||||
if ($changed) {
|
||||
signal_continue(@$signal);
|
||||
}
|
||||
}
|
||||
# expand($display,"C",$name,"N",$number,"M",$mode,"H",$hilight,"S","}{sb_background}")
|
||||
# stolen from chanact :)
|
||||
sub expand {
|
||||
my ($string, %format) = @_;
|
||||
my ($exp, $repl);
|
||||
$string =~ s/\$$exp/$repl/g while (($exp, $repl) = each(%format));
|
||||
return $string;
|
||||
}
|
||||
|
||||
# ugly function, if you know a better way (where /replace add 'a(.)a' '$1' works)
|
||||
sub do_replace {
|
||||
my ($text,$replace,$changed) = @_;
|
||||
if (!$replace->{'command'}) { # normal replace
|
||||
if ($replace->{'case'}) {
|
||||
eval('$_[2] = $_[0] =~ s/'. $replace->{'regexp'} . '/' . $replace->{'replacement'} . '/g || $changed;');
|
||||
} else {
|
||||
eval('$_[2] = $_[0] =~ s/'. $replace->{'regexp'} . '/' . $replace->{'replacement'} . '/gi || $changed;');
|
||||
}
|
||||
} else { # command
|
||||
#if ($replace->{'case'} {
|
||||
if ($text =~ /$replace->{'regexp'}/) {
|
||||
command($replace->{'replacement'});
|
||||
}
|
||||
#}
|
||||
}
|
||||
}
|
||||
|
||||
################################
|
||||
### manage the replaces-list ###
|
||||
################################
|
||||
|
||||
# REPLACE SAVE
|
||||
sub cmd_save {
|
||||
my $filename = Irssi::settings_get_str('replace_file');
|
||||
my $io = new IO::File $filename, "w";
|
||||
if (defined $io) {
|
||||
my $dumper = Data::Dumper->new([\@replaces]);
|
||||
$dumper->Purity(1)->Deepcopy(1);
|
||||
$io->print($dumper->Dump);
|
||||
$io->close;
|
||||
}
|
||||
Irssi::print("Replaces saved to ".$filename);
|
||||
}
|
||||
|
||||
sub sig_command_script_unload {
|
||||
my $script = shift;
|
||||
if ($script =~ /(.*\/)?$IRSSI{'name'}\.pl$/) {
|
||||
cmd_save();
|
||||
}
|
||||
}
|
||||
|
||||
# REPLACE LOAD
|
||||
sub cmd_load {
|
||||
my $filename = Irssi::settings_get_str('replace_file');
|
||||
my $io = new IO::File $filename, "r";
|
||||
if (not defined $io) {
|
||||
print ERROR "error opening replaces file";
|
||||
return;
|
||||
}
|
||||
if (defined $io) {
|
||||
no strict 'vars';
|
||||
my $text;
|
||||
$text .= $_ foreach ($io->getlines);
|
||||
my $rep = eval "$text";
|
||||
@replaces = @$rep if ref $rep;
|
||||
}
|
||||
Irssi::print("Replaces loaded from ".$filename);
|
||||
}
|
||||
|
||||
# converts a replace back to '-options "foo" "bar"' form
|
||||
sub to_string {
|
||||
my ($replace) = @_;
|
||||
my $string = "\'$replace->{'regexp'}\' \'$replace->{'replacement'}\'";
|
||||
|
||||
# check if all @replace_all_switches are set
|
||||
my $all_set = 1;
|
||||
foreach my $switch (@replace_all_switches) {
|
||||
if (!$replace->{$switch}) {
|
||||
$all_set = 0;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if ($all_set) {
|
||||
$string = '-all '.$string;
|
||||
if ($replace->{'case'}) {
|
||||
$string = '-case '.$string;
|
||||
}
|
||||
} else {
|
||||
foreach my $switch (@replace_switches) {
|
||||
if ($replace->{$switch}) {
|
||||
$string = '-'.$switch.' '.$string;
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($replace->{'channels'}) {
|
||||
$string = "-channels \"$replace->{'channels'}\" ".$string;
|
||||
}
|
||||
if ($replace->{'masks'}) {
|
||||
$string = "-masks \"$replace->{'masks'}\" ".$string;
|
||||
}
|
||||
|
||||
return $string;
|
||||
}
|
||||
|
||||
# find a replace (for ADD and DELETE), returns index of replace, or -1 if not found
|
||||
sub find_replace {
|
||||
my ($regexp) = @_;
|
||||
for (my $i=0;$i<scalar(@replaces);$i++) {
|
||||
if ($replaces[$i]->{'regexp'} eq $regexp) {
|
||||
return $i;
|
||||
}
|
||||
}
|
||||
return -1; # not found
|
||||
}
|
||||
|
||||
|
||||
# REPLACE ADD [-options(@replace_options)] <regexp> <replacement> (see help for more)
|
||||
sub cmd_add {
|
||||
my ($data, $server, $item) = @_;
|
||||
my @args = &shellwords($data);
|
||||
|
||||
# get regexp and replacement
|
||||
my $replacement = pop @args;
|
||||
my $regexp = pop @args;
|
||||
if (not defined $regexp) {
|
||||
print ERROR "not enough parameters";
|
||||
return;
|
||||
}
|
||||
|
||||
# find existing, or make new replace
|
||||
my $replace;
|
||||
my $index = find_replace($regexp);
|
||||
if ($index != -1) { # change existing replace
|
||||
$replace = $replaces[$index];
|
||||
} else { # new replace
|
||||
$replace = {'regexp' => $regexp};
|
||||
}
|
||||
$replace->{'replacement'} = $replacement;
|
||||
|
||||
# parse options
|
||||
my $arg = shift @args;
|
||||
while ($arg) {
|
||||
# -channels <channels>
|
||||
if ($arg eq '-channels') {
|
||||
$replace->{'channels'} = lc(shift @args);
|
||||
}
|
||||
# -masks <masks>
|
||||
if ($arg eq '-masks') {
|
||||
$replace->{'masks'} = shift @args;
|
||||
}
|
||||
# -all
|
||||
if ($arg eq '-all') {
|
||||
foreach my $switch (@replace_all_switches) {
|
||||
$replace->{$switch} = 1;
|
||||
}
|
||||
}
|
||||
# -<switch>
|
||||
foreach my $switch (@replace_switches) {
|
||||
# -<switch>
|
||||
if ($arg eq '-'.$switch) {
|
||||
$replace->{$switch} = 1;
|
||||
last;
|
||||
}
|
||||
# -no<switch>
|
||||
elsif ($arg eq '-no'.$switch) {
|
||||
$replace->{$switch} = undef;
|
||||
last;
|
||||
}
|
||||
}
|
||||
$arg = shift @args;
|
||||
}
|
||||
|
||||
#check if some switch from replace_all_switches is set
|
||||
my $some_switch = 0;
|
||||
foreach my $switch (@replace_all_switches) {
|
||||
if ($replace->{$switch}) {
|
||||
$some_switch = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
# if no switch set, default to all
|
||||
if (not $some_switch) {
|
||||
foreach my $switch (@replace_all_switches) {
|
||||
$replace->{$switch} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
if ($index == -1) { # new replace
|
||||
push @replaces, $replace;
|
||||
Irssi::print("Added replace " . scalar(@replaces) .": ". to_string($replace));
|
||||
} else { # change existing replace
|
||||
$replaces[$index] = $replace;
|
||||
Irssi::print("Replace " . ($index+1) ." changed to: ". to_string($replace));
|
||||
}
|
||||
}
|
||||
|
||||
# REPLACE DELETE <num>|<regexp>
|
||||
sub cmd_del {
|
||||
my ($data, $server, $item) = @_;
|
||||
my @args = &shellwords($data);
|
||||
my $index = $data-1;
|
||||
if ((not $data =~ /^[0-9]*$/) or not exists($replaces[$index])) {
|
||||
$index = find_replace($data);
|
||||
if ($index == -1) {
|
||||
Irssi::print ("Replace $data not found.");
|
||||
return;
|
||||
}
|
||||
}
|
||||
print("Deleted ". ($index+1) .": ". to_string($replaces[$index]));
|
||||
splice (@replaces,$index,1);
|
||||
}
|
||||
|
||||
# REPLACE LIST
|
||||
sub cmd_list {
|
||||
#my (@args) = @_;
|
||||
print ("Replace list:");
|
||||
my $i=1;
|
||||
foreach my $replace (@replaces) {
|
||||
print(" ". $i++ .": ". to_string($replace));
|
||||
}
|
||||
}
|
||||
|
||||
######################
|
||||
### initialisation ###
|
||||
######################
|
||||
|
||||
command_bind('replace help',\&cmd_help);
|
||||
command_bind('help replace',\&cmd_help);
|
||||
command_bind('replace add',\&cmd_add);
|
||||
command_bind('replace list',\&cmd_list);
|
||||
command_bind('replace delete',\&cmd_del);
|
||||
command_bind('replace save',\&cmd_save);
|
||||
command_bind('replace reload',\&cmd_load);
|
||||
command_bind 'replace' => sub {
|
||||
my ( $data, $server, $item ) = @_;
|
||||
$data =~ s/\s+$//g;
|
||||
command_runsub ( 'replace', $data, $server, $item ) ;
|
||||
};
|
||||
signal_add_first 'default command timer' => sub {
|
||||
# gets triggered if called with unknown subcommand
|
||||
cmd_help();
|
||||
};
|
||||
|
||||
Irssi::signal_add_first('command script load', 'sig_command_script_unload');
|
||||
Irssi::signal_add_first('command script unload', 'sig_command_script_unload');
|
||||
Irssi::signal_add('setup saved', 'cmd_save');
|
||||
|
||||
# This makes tab completion work
|
||||
Irssi::command_set_options('replace add',join(' ',@replace_options));
|
||||
|
||||
Irssi::settings_add_str($IRSSI{'name'}, 'replace_file', Irssi::get_irssi_dir()."/replaces");
|
||||
|
||||
cmd_load();
|
||||
557
trigger.pl
Normal file
557
trigger.pl
Normal file
@ -0,0 +1,557 @@
|
||||
# Do /TRIGGER HELP for help
|
||||
#
|
||||
# TODO:
|
||||
# - -noact: don't hilight the act-bar + nohilight? (how?)
|
||||
# - check if the -modifiers argument makes sense
|
||||
# - problems with § with replace, escape the character?
|
||||
# - ctcps/ctcpreplies/dccchats/dccsends? (2 arguments...)
|
||||
# - events for modechanges
|
||||
# - matching on who's being kicked/opped/voiced...
|
||||
# - command for changing the order of the triggers
|
||||
# - use format strings
|
||||
# - multiple commands with ; (before expanding!)
|
||||
# - lowercase expands where 'dangerous' characters are escaped ? (for /exec,...)
|
||||
# - trigger on input (own typed lines)
|
||||
|
||||
use strict;
|
||||
use Irssi 20020324 qw (command_bind command_runsub command signal_add_first signal_continue signal_stop);
|
||||
use Text::ParseWords;
|
||||
use IO::File;
|
||||
use Data::Dumper;
|
||||
use vars qw($VERSION %IRSSI);
|
||||
|
||||
$VERSION = '0.5';
|
||||
%IRSSI = (
|
||||
authors => 'Wouter Coekaerts',
|
||||
contact => 'wouter@coekaerts.be',
|
||||
name => 'trigger',
|
||||
description => 'executes an irssi command or replace text, triggered by a message,notice,join,part,quit,kick or topic',
|
||||
license => 'GPLv2',
|
||||
url => 'http://wouter.coekaerts.be/irssi/',
|
||||
changed => '14/09/03',
|
||||
);
|
||||
|
||||
my @triggers;
|
||||
|
||||
sub cmd_help {
|
||||
Irssi::print ( <<EOF
|
||||
|
||||
TRIGGER DELETE <number>|<regexp>
|
||||
TRIGGER LIST
|
||||
TRIGGER SAVE
|
||||
TRIGGER RELOAD
|
||||
TRIGGER ADD [-<types>] [-regexp <regexp>] [-modifiers <modifiers>] [-channels <channels>] [-masks <masks>] [-hasmode <hasmode>] [-hasflag <hasflag>]
|
||||
[-command <command>] [-replace <replace>] [-once]
|
||||
When to match:
|
||||
-<types>: Trigger on these types of messages. The different types are:
|
||||
publics,privmsgs,actions,privactions,notices,privnotices,joins,parts,quits,kicks,topics
|
||||
-all is an alias for all of them.
|
||||
-regexp: the message must match <regexp>. (see man 7 regex)
|
||||
-modifiers: use <modifiers> for the regexp. The modifiers you may use are:
|
||||
i: Ignore case.
|
||||
g: Match as many times as possible.
|
||||
-channels: only trigger in <channels>. a space-delimited list. (use quotes)
|
||||
examples: '#chan1 #chan2' or 'IRCNet/#channel'
|
||||
-masks: only for messages from someone mathing one of the <masks> (space seperated)
|
||||
-hasmode: only if the person who triggers it has the <hasmode>
|
||||
examples: '-o' means not opped, '+ov' means opped OR voiced, '-o&-v' means not opped AND not voiced
|
||||
-hasflag: only works if friends.pl (friends_shasta.pl) or people.pl is loaded
|
||||
only trigger if the person who triggers it has <hasflag> in the script
|
||||
|
||||
What to do when it matches:
|
||||
-command: execute <command>
|
||||
You are able to use \$1, \$2 and so on generated by your regexp pattern.
|
||||
The following variables are also expanded:
|
||||
\$T: Server tag
|
||||
\$C: Channel name
|
||||
\$N: Nickname of the person who triggered this command
|
||||
\$A: His address (foo\@bar.com),
|
||||
\$I: His ident (foo)
|
||||
\$H: His hostname (bar.com)
|
||||
\$M: The complete message
|
||||
-replace: replaces the matching part with <replace> in your irssi (requires a <regexp>)
|
||||
-once: remove the trigger if it is triggered, so it only executes once and then is forgotten.
|
||||
|
||||
Examples:
|
||||
knockout people who do a !list:
|
||||
/TRIGGER ADD -publics -channels "#channel1 #channel2" -modifiers i -regexp ^!list -command "KN \$N This is not a warez channel!"
|
||||
react to !echo commands from people who are +o in your friends-script:
|
||||
/TRIGGER ADD -publics -regexp '^!echo (.*)' -hasflag '+o' -command 'say \$1'
|
||||
ignore all non-ops on #channel
|
||||
/TRIGGER ADD -publics -channels "#channel" -hasmodes '-o' -stop
|
||||
|
||||
Examples with -replace:
|
||||
replace every occurence of shit with sh*t, case insensitive
|
||||
/TRIGGER ADD -modifiers i -regexp shit -replace sh*t
|
||||
strip all colorcodes from *!lamer\@*
|
||||
/TRIGGER ADD -masks *!lamer\@* -regexp '\\x03\\d?\\d?(,\\d\\d?)?|\\x02|\\x1f|\\x16|\\x06' -replace ''
|
||||
never let *!bot1\@foo.bar or *!bot2\@foo.bar hilight you
|
||||
/TRIGGER ADD -masks '*!bot1\@foo.bar *!bot2\@foo.bar' -regexp 'mynick' -replace 'my\\x02\\x02nick'
|
||||
avoid being hilighted by !top10 in eggdrops with stats.mod
|
||||
/TRIGGER ADD -regexp '(Top.0\\(.*\\): 1.*)mynick' -replace '\$1my\\x02\\x02nick'
|
||||
Convert a Windows-1252 Euro to an ISO-8859-15 Euro (same effect as euro.pl)
|
||||
/TRIGGER ADD -regexp '\\x80' -replace '\\xA4'
|
||||
Show tabs as spaces, not the inverted I (same effect as tab_stop.pl)
|
||||
/TRIGGER ADD -regexp '\\t' -replace ' '
|
||||
|
||||
WARNING: Be very carefull when you use the 'eval' or 'exec' command with parameters that come from a remote user. Only use them if you understand the risk.
|
||||
EOF
|
||||
,MSGLEVEL_CLIENTCRAP);
|
||||
}
|
||||
|
||||
#switches in -all option
|
||||
my @trigger_all_switches = ('publics','privmsgs','actions','privactions','notices','privnotices','joins','parts','quits','kicks','topics');
|
||||
#list of all switches
|
||||
my @trigger_switches = @trigger_all_switches;
|
||||
push @trigger_switches, 'stop','once';
|
||||
#parameters (with an argument)
|
||||
my @trigger_params = ('masks','channels','modifiers','regexp','command','replace','hasmode','hasflag');
|
||||
#list of all options (including switches)
|
||||
my @trigger_options = ('all');
|
||||
push @trigger_options, @trigger_switches;
|
||||
push @trigger_options, @trigger_params;
|
||||
|
||||
#########################################
|
||||
### catch the signals & do your thing ###
|
||||
#########################################
|
||||
|
||||
# "message public", SERVER_REC, char *msg, char *nick, char *address, char *target
|
||||
signal_add_first("message public" => sub {check_signal_message(\@_,1,4,2,3,'publics');});
|
||||
# "message private", SERVER_REC, char *msg, char *nick, char *address
|
||||
signal_add_first("message private" => sub {check_signal_message(\@_,1,-1,2,3,'privmsgs');});
|
||||
# "message irc action", SERVER_REC, char *msg, char *nick, char *address, char *target
|
||||
signal_add_first("message irc action" => sub {
|
||||
if ($_[4] eq $_[0]->{nick}) {
|
||||
check_signal_message(\@_,1,-1,2,3,'privactions');
|
||||
} else {
|
||||
check_signal_message(\@_,1,4,2,3,'actions');
|
||||
}
|
||||
});
|
||||
# "message irc notice", SERVER_REC, char *msg, char *nick, char *address, char *target
|
||||
signal_add_first("message irc notice" => sub {
|
||||
if ($_[4] eq $_[0]->{nick}) {
|
||||
check_signal_message(\@_,1,-1,2,3,'privnotices');
|
||||
} else {
|
||||
check_signal_message(\@_,1,4,2,3,'notices');
|
||||
}
|
||||
});
|
||||
|
||||
# "message join", SERVER_REC, char *channel, char *nick, char *address
|
||||
signal_add_first("message join" => sub {check_signal_message(\@_,-1,1,2,3,'joins');});
|
||||
# "message part", SERVER_REC, char *channel, char *nick, char *address, char *reason
|
||||
signal_add_first("message part" => sub {check_signal_message(\@_,4,1,2,3,'parts');});
|
||||
# "message quit", SERVER_REC, char *nick, char *address, char *reason
|
||||
signal_add_first("message quit" => sub {check_signal_message(\@_,3,-1,1,2,'quits');});
|
||||
# "message kick", SERVER_REC, char *channel, char *nick, char *kicker, char *address, char *reason
|
||||
signal_add_first("message kick" => sub {check_signal_message(\@_,5,1,3,4,'kicks');});
|
||||
# "message topic", SERVER_REC, char *channel, char *topic, char *nick, char *address
|
||||
signal_add_first("message topic" => sub {check_signal_message(\@_,2,1,3,4,'topics');});
|
||||
|
||||
# check the triggers on $signal's $parammessage parameter, for triggers with $condition set
|
||||
# in $paramchannel, for $paramnick!$paramaddress
|
||||
# set $param* to -1 if not present (only allowed for message and channel)
|
||||
sub check_signal_message {
|
||||
my ($signal,$parammessage,$paramchannel,$paramnick,$paramaddress,$condition) = @_;
|
||||
my ($trigger, $channel, $matched, $changed, $context);
|
||||
my $server = $signal->[0];
|
||||
my $message = ($parammessage == -1) ? '' : $signal->[$parammessage];
|
||||
|
||||
TRIGGER:
|
||||
for (my $index=0;$index < scalar(@triggers);$index++) {
|
||||
my $trigger = $triggers[$index];
|
||||
if (!$trigger->{"$condition"}) {
|
||||
next; # wrong type of message
|
||||
}
|
||||
if ($trigger->{'channels'}) { # check if the channel matches
|
||||
if ($paramchannel == -1) {
|
||||
next;
|
||||
}
|
||||
my $matches = 0;
|
||||
foreach $channel (split(/ /,$trigger->{'channels'})) {
|
||||
if (lc($signal->[$paramchannel]) eq lc($channel)
|
||||
|| lc($server->{'tag'}.'/'.$signal->[$paramchannel]) eq lc($channel)
|
||||
|| lc($server->{'tag'}.'/') eq lc($channel)) {
|
||||
$matches = 1;
|
||||
last; # this channel matches, stop checking channels
|
||||
}
|
||||
}
|
||||
if (!$matches) {
|
||||
next; # this trigger doesn't match, try next trigger...
|
||||
}
|
||||
}
|
||||
# check the mask
|
||||
if ($trigger->{'masks'} && !$server->masks_match($trigger->{'masks'}, $signal->[$paramnick], $signal->[$paramaddress])) {
|
||||
next; # this trigger doesn't match
|
||||
|
||||
}
|
||||
# check hasmodes
|
||||
if ($trigger->{'hasmode'}) {
|
||||
my ($channel, $nick);
|
||||
( $paramchannel != -1
|
||||
and $channel = $server->channel_find($signal->[$paramchannel])
|
||||
and $nick = $channel->nick_find($signal->[$paramnick])
|
||||
) or next;
|
||||
|
||||
my $modes = ($nick->{'op'}?'o':'').($nick->{'voice'}?'v':'').($nick->{'halfop'}?'h':'');
|
||||
if (!check_modes($modes,$trigger->{'hasmode'})) {
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
||||
# check hasflags
|
||||
if ($trigger->{'hasflag'}) {
|
||||
my $channel = ($paramchannel == -1) ? undef : $signal->[$paramchannel];
|
||||
my $flags = get_flags ($server->{'chatnet'},$channel,$signal->[$paramnick],$signal->[$paramaddress]);
|
||||
if (!defined($flags)) {
|
||||
next;
|
||||
}
|
||||
if (!check_modes($flags,$trigger->{'hasflag'})) {
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
||||
# the only check left, is the regexp matching...
|
||||
if ($trigger->{'replace'} && $parammessage != -1) { # it's a -replace
|
||||
# if you know a better way to do this, let me know:
|
||||
eval('$matched = ($signal->[$parammessage] =~ s§'. $trigger->{'regexp'} . '§' . $trigger->{'replace'} . '§' . $trigger->{'modifiers'} . ');');
|
||||
$changed = $changed || $matched;
|
||||
}
|
||||
if ($trigger->{'command'}) {
|
||||
my @vars;
|
||||
# check if the message matches the regexp (with the modifiers embedded), and put ($1,$2,$3,...) in @vars
|
||||
@vars = $message =~ m/(?$trigger->{'modifiers'})$trigger->{'regexp'}/;
|
||||
if (@vars){ # if it matched
|
||||
$matched = 1;
|
||||
my $command = $trigger->{'command'};
|
||||
my $expands = {
|
||||
'M' => $message,
|
||||
'T' => $server->{'tag'},
|
||||
'C' => (($paramchannel == -1) ? '' : $signal->[$paramchannel]),
|
||||
'N' => (($paramnick == -1) ? '' : $signal->[$paramnick]),
|
||||
'A' => (($paramaddress == -1) ? '' : $signal->[$paramaddress]),
|
||||
'I' => (($paramaddress == -1) ? '' : split(/\@/,$signal->[$paramaddress]),2)[0],
|
||||
'H' => (($paramaddress == -1) ? '' : split(/\@/,$signal->[$paramaddress]),2)[1],
|
||||
'$' => '$'
|
||||
};
|
||||
# $1 = the stuff behind the $ we want to expand: a number, or a character from %expands
|
||||
$command =~ s/\$(\d+|[MTCNAIH\$])/expand(\@vars,$1,$expands)/ge;
|
||||
|
||||
if ($paramchannel!=-1 && $server->channel_find($signal->[$paramchannel])) {
|
||||
$context = $server->channel_find($signal->[$paramchannel]);
|
||||
} else {
|
||||
$context = $server;
|
||||
}
|
||||
$context->command($command);
|
||||
#if ($trigger->{'stop'}) {
|
||||
# signal_stop;
|
||||
#}
|
||||
}
|
||||
} elsif ($message =~ m/(?$trigger->{'modifiers'})$trigger->{'regexp'}/) {
|
||||
$matched = 1;
|
||||
#signal_stop;
|
||||
}
|
||||
if ($matched) {
|
||||
if ($trigger->{'stop'}) {
|
||||
signal_stop;
|
||||
}
|
||||
if ($trigger->{'once'}) {
|
||||
splice (@triggers,$index,1);
|
||||
$index--; # index of next trigger now is the same as this one was
|
||||
}
|
||||
}
|
||||
}
|
||||
if ($changed) { # changed with -replace
|
||||
signal_continue(@$signal);
|
||||
}
|
||||
}
|
||||
|
||||
# used in check_signal_message, to expand $'s
|
||||
sub expand {
|
||||
my ($vars,$to_expand,$expands) = @_;
|
||||
if ($to_expand =~ /^\d+$/) { # a number => look up in $vars
|
||||
return ($to_expand > @{$vars}) ? '' : $vars->[$to_expand-1];
|
||||
} else { # look up in $expands
|
||||
return $expands->{$to_expand};
|
||||
}
|
||||
}
|
||||
|
||||
sub check_modes {
|
||||
my ($has_modes, $need_modes) = @_;
|
||||
my $matches;
|
||||
my $switch = 1; # if a '-' if found, will be 0 (meaning the modes should not be set)
|
||||
foreach my $need_mode (split /&/,$need_modes) {
|
||||
$matches = 0;
|
||||
foreach my $char (split //,$need_mode) {
|
||||
if ($char eq '-') {
|
||||
$switch = 0;
|
||||
} elsif ($char eq '+') {
|
||||
$switch = 1;
|
||||
} elsif ((index($has_modes,$char) != -1) == $switch) {
|
||||
$matches = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if (!$matches) {
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
# get someones flags from people.pl or friends(_shasta).pl
|
||||
sub get_flags {
|
||||
my ($chatnet, $channel, $nick, $address) = @_;
|
||||
my $flags;
|
||||
no strict 'refs';
|
||||
if (defined %{ 'Irssi::Script::people::' }) {
|
||||
if (defined ($channel)) {
|
||||
$flags = (&{ 'Irssi::Script::people::find_local_flags' }($chatnet,$channel,$nick,$address));
|
||||
} else {
|
||||
$flags = (&{ 'Irssi::Script::people::find_global_flags' }($chatnet,$nick,$address));
|
||||
}
|
||||
$flags = join('',keys(%{$flags}));
|
||||
} else {
|
||||
my $shasta;
|
||||
if (defined %{ 'Irssi::Script::friends_shasta::' }) {
|
||||
$shasta = 'friends_shasta';
|
||||
} elsif (defined &{ 'Irssi::Script::friends::get_idx' }) {
|
||||
$shasta = 'friends';
|
||||
}
|
||||
if (!$shasta) {
|
||||
return undef;
|
||||
}
|
||||
my $idx = (&{ 'Irssi::Script::'.$shasta.'::get_idx' }($nick,$address));
|
||||
if ($idx == -1) {
|
||||
return '';
|
||||
}
|
||||
$flags = (&{ 'Irssi::Script::'.$shasta.'::get_friends_flags' }($idx,undef));
|
||||
if ($channel) {
|
||||
$flags .= (&{ 'Irssi::Script::'.$shasta.'::get_friends_flags' }($idx,$channel));
|
||||
}
|
||||
}
|
||||
return $flags;
|
||||
}
|
||||
|
||||
################################
|
||||
### manage the triggers-list ###
|
||||
################################
|
||||
|
||||
# TRIGGER SAVE
|
||||
sub cmd_save {
|
||||
my $filename = Irssi::settings_get_str('trigger_file');
|
||||
my $io = new IO::File $filename, "w";
|
||||
if (defined $io) {
|
||||
my $dumper = Data::Dumper->new([\@triggers]);
|
||||
$dumper->Purity(1)->Deepcopy(1);
|
||||
$io->print($dumper->Dump);
|
||||
$io->close;
|
||||
}
|
||||
Irssi::print("Triggers saved to ".$filename);
|
||||
}
|
||||
|
||||
# save on unload
|
||||
sub sig_command_script_unload {
|
||||
my $script = shift;
|
||||
if ($script =~ /(.*\/)?$IRSSI{'name'}\.pl$/) {
|
||||
cmd_save();
|
||||
}
|
||||
}
|
||||
|
||||
# TRIGGER LOAD
|
||||
sub cmd_load {
|
||||
my $filename = Irssi::settings_get_str('trigger_file');
|
||||
my $io = new IO::File $filename, "r";
|
||||
if (not defined $io) {
|
||||
if (-e $filename) {
|
||||
Irssi::print "error opening triggers file";
|
||||
}
|
||||
return;
|
||||
}
|
||||
if (defined $io) {
|
||||
no strict 'vars';
|
||||
my $text;
|
||||
$text .= $_ foreach ($io->getlines);
|
||||
my $rep = eval "$text";
|
||||
@triggers = @$rep if ref $rep;
|
||||
}
|
||||
Irssi::print("Triggers loaded from ".$filename);
|
||||
}
|
||||
|
||||
# converts a trigger back to "-switch -options 'foo'" form
|
||||
sub to_string {
|
||||
my ($trigger) = @_;
|
||||
my $string;
|
||||
|
||||
# check if all @trigger_all_switches are set
|
||||
my $all_set = 1;
|
||||
foreach my $switch (@trigger_all_switches) {
|
||||
if (!$trigger->{$switch}) {
|
||||
$all_set = 0;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if ($all_set) {
|
||||
$string .= ' -all ';
|
||||
} else {
|
||||
foreach my $switch (@trigger_switches) {
|
||||
if ($trigger->{$switch}) {
|
||||
$string .= '-'.$switch;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
foreach my $param (@trigger_params) {
|
||||
if ($trigger->{$param}) {
|
||||
$string .= ' -' . $param . " '$trigger->{$param}'";
|
||||
}
|
||||
}
|
||||
return $string;
|
||||
}
|
||||
|
||||
# find a trigger (for REPLACE and DELETE), returns index of trigger, or -1 if not found
|
||||
sub find_trigger {
|
||||
my ($data) = @_;
|
||||
#my $index = $data-1;
|
||||
if ($data =~ /^[0-9]*$/ and defined($triggers[$data-1])) {
|
||||
return $data-1;
|
||||
}
|
||||
for (my $i=0;$i<scalar(@triggers);$i++) {
|
||||
if ($triggers[$i]->{'regexp'} eq $data) {
|
||||
return $i;
|
||||
}
|
||||
}
|
||||
return -1; # not found
|
||||
}
|
||||
|
||||
|
||||
# TRIGGER ADD
|
||||
sub cmd_add {
|
||||
my ($data, $server, $item) = @_;
|
||||
my @args = &shellwords($data);
|
||||
|
||||
my $trigger = parse_options({},@args);
|
||||
if ($trigger) {
|
||||
push @triggers, $trigger;
|
||||
Irssi::print("Added trigger " . scalar(@triggers) .": ". to_string($trigger));
|
||||
}
|
||||
}
|
||||
|
||||
# TRIGGER REPLACE <NR>|<regexp>
|
||||
sub cmd_replace {
|
||||
my ($data, $server, $item) = @_;
|
||||
my @args = &shellwords($data);
|
||||
my $index = find_trigger(shift @args);
|
||||
if ($index == -1) {
|
||||
Irssi::print "Trigger not found.";
|
||||
} else {
|
||||
parse_options($triggers[$index],@args);
|
||||
Irssi::print("Trigger " . ($index+1) ." changed to: ". to_string($triggers[$index]));
|
||||
}
|
||||
}
|
||||
|
||||
# parses options to TRIGGER ADD and TRIGGER REPLACE
|
||||
sub parse_options {
|
||||
my ($trigger,@args) = @_;
|
||||
ARGS: for (my $arg = shift @args; $arg; $arg = shift @args) {
|
||||
# -<param>
|
||||
foreach my $param (@trigger_params) {
|
||||
if ($arg eq '-'.$param) {
|
||||
$trigger->{$param} = shift @args;
|
||||
next ARGS;
|
||||
}
|
||||
}
|
||||
# -all
|
||||
if ($arg eq '-all') {
|
||||
foreach my $switch (@trigger_all_switches) {
|
||||
$trigger->{$switch} = 1;
|
||||
}
|
||||
next ARGS;
|
||||
}
|
||||
|
||||
# -[no]<switch>
|
||||
foreach my $switch (@trigger_switches) {
|
||||
# -<switch>
|
||||
if ($arg eq '-'.$switch) {
|
||||
$trigger->{$switch} = 1;
|
||||
next ARGS;
|
||||
}
|
||||
# -no<switch>
|
||||
elsif ($arg eq '-no'.$switch) {
|
||||
$trigger->{$switch} = undef;
|
||||
next ARGS;
|
||||
}
|
||||
}
|
||||
Irssi::print("Unknown option: $arg");
|
||||
return undef;
|
||||
}
|
||||
|
||||
# check if it has at least one type
|
||||
my $has_a_type;
|
||||
foreach my $type (@trigger_all_switches) {
|
||||
if ($trigger->{$type}) {
|
||||
$has_a_type = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if (!$has_a_type) {
|
||||
Irssi::print("Warning: this trigger doesn't trigger on any type of message. you probably want to add -publics or -all");
|
||||
}
|
||||
|
||||
return $trigger;
|
||||
}
|
||||
|
||||
# TRIGGER DELETE <num>|<regexp>
|
||||
sub cmd_del {
|
||||
my ($data, $server, $item) = @_;
|
||||
my @args = &shellwords($data);
|
||||
my $index = find_trigger($data);
|
||||
if ($index == -1) {
|
||||
Irssi::print ("Trigger $data not found.");
|
||||
return;
|
||||
}
|
||||
print("Deleted ". ($index+1) .": ". to_string($triggers[$index]));
|
||||
splice (@triggers,$index,1);
|
||||
}
|
||||
|
||||
# TRIGGER LIST
|
||||
sub cmd_list {
|
||||
#my (@args) = @_;
|
||||
Irssi::print ("Trigger list:",MSGLEVEL_CLIENTCRAP);
|
||||
my $i=1;
|
||||
foreach my $trigger (@triggers) {
|
||||
Irssi::print(" ". $i++ .": ". to_string($trigger),MSGLEVEL_CLIENTCRAP);
|
||||
}
|
||||
}
|
||||
|
||||
######################
|
||||
### initialisation ###
|
||||
######################
|
||||
|
||||
command_bind('trigger help',\&cmd_help);
|
||||
command_bind('help trigger',\&cmd_help);
|
||||
command_bind('trigger add',\&cmd_add);
|
||||
command_bind('trigger replace',\&cmd_replace);
|
||||
command_bind('trigger list',\&cmd_list);
|
||||
command_bind('trigger delete',\&cmd_del);
|
||||
command_bind('trigger save',\&cmd_save);
|
||||
command_bind('trigger reload',\&cmd_load);
|
||||
command_bind 'trigger' => sub {
|
||||
my ( $data, $server, $item ) = @_;
|
||||
$data =~ s/\s+$//g;
|
||||
command_runsub ( 'trigger', $data, $server, $item ) ;
|
||||
};
|
||||
signal_add_first 'default command trigger' => sub {
|
||||
# gets triggered if called with unknown subcommand
|
||||
cmd_help();
|
||||
};
|
||||
|
||||
Irssi::signal_add_first('command script load', 'sig_command_script_unload');
|
||||
Irssi::signal_add_first('command script unload', 'sig_command_script_unload');
|
||||
Irssi::signal_add('setup saved', 'cmd_save');
|
||||
|
||||
# This makes tab completion work
|
||||
Irssi::command_set_options('trigger add',join(' ',@trigger_options));
|
||||
|
||||
Irssi::settings_add_str($IRSSI{'name'}, 'trigger_file', Irssi::get_irssi_dir()."/triggers");
|
||||
|
||||
cmd_load();
|
||||
Loading…
Reference in New Issue
Block a user