/usr/share/irssi/scripts/forward.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 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 | #!/usr/bin/perl
#
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '2003071904';
%IRSSI = (
authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de',
name => 'Forward',
description => 'forward incoming messages to another nick',
license => 'GPLv2',
url => 'http://irssi.org/scripts/',
changed => $VERSION,
modules => '',
commands => "forward"
);
use Irssi 20020324;
use vars qw(%forwards);
sub show_help() {
my $help = $IRSSI{name}." ".$VERSION."
/forward to <nick>
Forward incoming messages to <nick>
/forward remove
Disable forwarding in the current chatnet
You can remotely en- or disable forwarding by sending an
ctcp command to your client. Set a password and use
/CTCP <nickname> forward <password>
or
/CTCP <nickname> noforward
to enable or diable forwarding to your current nick.
";
my $text='';
foreach (split(/\n/, $help)) {
$_ =~ s/^\/(.*)$/%9\/$1%9/;
$text .= $_."\n";
}
print CLIENTCRAP &draw_box($IRSSI{name}, $text, $IRSSI{name}." help", 1);
}
sub draw_box ($$$$) {
my ($title, $text, $footer, $colour) = @_;
my $box = '';
$box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
foreach (split(/\n/, $text)) {
$box .= '%R|%n '.$_."\n";
}
$box .= '%R`--<%n'.$footer.'%R>->%n';
$box =~ s/%.//g unless $colour;
return $box;
}
sub sig_message_private ($$$$) {
my ($server, $msg, $nick, $address) = @_;
my $chatnet = $server->{chatnet};
return unless defined $forwards{$chatnet};
if ($forwards{$chatnet}{active}) {
my $to = $forwards{$chatnet}{to};
my $text = "[forwarded MSG from ".$nick."] ".$msg;
$server->command("notice $to ".$text);
}
}
sub sig_ctcp_msg_forward ($$$$$) {
my ($server, $args, $nick, $address, $target) = @_;
my $pass = Irssi::settings_get_str('forward_remote_password');
unless ($pass) {
print CLIENTCRAP '%R>>%n No forward password set, forwarding not enabled!';
$server->command("nctcp ".$nick." FORWARD Forwarding forbidden!");
return 0;
}
if ($pass eq $args) {
$server->command("nctcp ".$nick." FORWARD Forwarding enabled");
set_forward($server->{chatnet}, $nick);
}
}
sub sig_ctcp_msg_noforward ($$$$$) {
my ($server, $args, $nick, $address, $target) = @_;
my $chatnet = $server->{chatnet};
return unless defined $forwards{$chatnet};
return unless ($forwards{$chatnet}{to} eq $nick);
$server->command("nctcp ".$nick." NOFORWARD Forwarding disabled");
remove_forward($server->{chatnet});
}
sub set_forward ($$) {
my ($chatnet, $nick) = @_;
print CLIENTCRAP "%B>>%n Forwarding messages from $chatnet to > $nick <";
$forwards{$chatnet}{to} = $nick;
$forwards{$chatnet}{active} = 1;
}
sub remove_forward ($) {
my ($chatnet) = @_;
delete $forwards{$chatnet};
print CLIENTCRAP "%B>>%n No longer forwarding messages from $chatnet";
}
sub cmd_forward ($$$) {
my ($arg, $server, $witem) = @_;
return unless defined $server;
my @args = split(/ /, $arg);
if (@args < 1 || $args[0] eq 'help') {
show_help();
} elsif (@args[0] eq 'to') {
shift @args;
return unless @args;
set_forward($server->{chatnet}, $args[0]);
} elsif (@args[0] eq 'remove') {
remove_forward($server->{chatnet});
}
}
Irssi::signal_add('message private', \&sig_message_private);
Irssi::signal_add('ctcp msg forward', \&sig_ctcp_msg_forward);
Irssi::signal_add('ctcp msg noforward', \&sig_ctcp_msg_noforward);
Irssi::settings_add_str($IRSSI{name}, 'forward_remote_password', '');
Irssi::command_bind('forward' => \&cmd_forward);
print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /forward help for help';
|