/usr/share/irssi/scripts/chansync.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 | # by Uwe 'duden' Dudenhoeffer
#
# chansync.pl
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '0.22';
%IRSSI = (
authors => 'Uwe \'duden\' Dudenhoeffer',
contact => 'script@duden.eu.org',
name => 'chansync',
description => '/who a channel and optionaly executes a command',
license => 'GPLv2',
url => '',
changed => 'Sun Feb 9 18:27:51 CET 2003',
commands => 'chansync',
);
# Changelog
#
# 0.22
# - added "commands => chansync"
#
# 0.21
# - some design issues
#
# 0.2
# - used "silent event who" instead of stopping "print text"
#
# 0.1
# - first working version
use Irssi 20020324;
use POSIX;
my(%arguments,%items);
# Usage: /chansync [command]
sub cmd_chansync {
my($args, $server, $item) = @_;
return if not ($item && $item->{type} eq "CHANNEL");
my($chan) = $item->{name};
$server->redirect_event('who', 1, $chan, -1, undef,
{
"event 315" => "redir chansync endwho",
"event 352" => "redir chansync who",
"" => "event empty",
});
$server->send_raw("WHO $chan");
$arguments{lc $chan} = $args;
$items{lc $chan} = $item;
}
sub sig_event_block {
Irssi::signal_stop();
}
sub sig_redir_chansync_who {
Irssi::signal_emit('silent event who', @_);
}
sub sig_redir_chansync_endwho {
my($server) = shift;
my(@text) = split " ", shift;
my($cmd) = $arguments{lc @text[1]};
$items{lc @text[1]}->command("$cmd");
delete $arguments{lc @text[1]};
delete $items{lc @text[1]};
}
Irssi::command_bind("chansync", "cmd_chansync");
Irssi::signal_add('redir chansync who', 'sig_redir_chansync_who');
Irssi::signal_add('redir chansync endwho', 'sig_redir_chansync_endwho');
|