/usr/share/irssi/scripts/connectcmd.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 153 154 155 | use strict;
use Irssi 20020101.0250 ();
use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
authors => "Ian Peters",
contact => "itp\@ximian.com",
name => "Connect Command",
description => "run arbitrary shell commands while [dis]connecting to a server",
license => "Public Domain",
url => "http://irssi.org/",
changed => "Sun, 10 Mar 2002 17:08:03 -0500"
);
my %preconn_actions;
my %postconn_actions;
my %disconn_actions;
sub load_actions {
open ACTS, "$ENV{HOME}/.irssi/connectcmd_actions";
while (<ACTS>) {
my @lines = split "\n";
foreach my $line (@lines) {
my ($server, $type, $action) = split ":", $line;
if ($type eq "preconn") {
$preconn_actions{$server} = $action;
} elsif ($type eq "postconn") {
$postconn_actions{$server} = $action;
} elsif ($type eq "disconn") {
$disconn_actions{$server} = $action;
}
}
}
close ACTS;
}
sub save_actions {
open ACTS, ">$ENV{HOME}/.irssi/connectcmd_actions";
foreach my $server (keys %preconn_actions) {
print ACTS "$server:preconn:$preconn_actions{$server}\n";
}
foreach my $server (keys %postconn_actions) {
print ACTS "$server:postconn:$postconn_actions{$server}\n";
}
foreach my $server (keys %disconn_actions) {
print ACTS "$server:disconn:$disconn_actions{$server}\n";
}
close ACTS;
}
sub sig_server_looking {
my ($server) = @_;
if (my $action = $preconn_actions{$server->{'address'}}) {
system ($action);
}
}
sub sig_server_connected {
my ($server) = @_;
if (my $action = $postconn_actions{$server->{'address'}}) {
system ($action);
}
}
sub sig_server_disconnected {
my ($server) = @_;
if (my $action = $disconn_actions{$server->{'address'}}) {
system ($action);
}
}
sub cmd_connectcmd {
my ($data, $server, $witem) = @_;
my ($op, $type, $server, $action) = split " ", $data;
$op = lc $op;
if (!$op) {
Irssi::print ("No operation given");
} elsif ($op eq "add") {
if (!$type) {
Irssi::print ("Type not specified [preconn|postconn|disconn]");
} elsif (!$server) {
Irssi::print ("Server not specified");
} elsif (!$action) {
Irssi::print ("Action not specified");
} else {
if ($type eq "preconn") {
$preconn_actions{$server} = $action;
Irssi::print ("Added preconnect action of $action on $server");
save_actions;
} elsif ($type eq "postconn") {
$postconn_actions{$server} = $action;
Irssi::print ("Added postconnect action of $action on $server");
save_actions;
} elsif ($type eq "disconn") {
$disconn_actions{$server} = $action;
Irssi::print ("Added disconnect action of $action on $server");
save_actions;
} else {
Irssi::print ("Unrecognized trigger $type [preconn|postconn|disconn]");
}
}
} elsif ($op eq "remove") {
if (!$type) {
Irssi::print ("Type not specified [preconn|postconn|disconn]");
} elsif (!$server) {
Irssi::print ("Server not specified");
} else {
if ($type eq "preconn") {
delete ($preconn_actions{$server});
Irssi::print ("Removed preconnect action on $server");
save_actions;
} elsif ($type eq "postconn") {
delete ($postconn_actions{$server});
Irssi::print ("Removed postconnect action on $server");
save_actions;
} elsif ($type eq "disconn") {
delete ($disconn_actions{$server});
Irssi::print ("Removed disconnect action on $server");
save_actions;
} else {
Irssi::print ("Unrecognized trigger $type [preconn|postconn|disconn]");
}
}
} elsif ($op eq "list") {
Irssi::print ("Preconnect Actions:");
foreach my $server (keys %preconn_actions) {
Irssi::print ("$server $preconn_actions{$server}");
}
Irssi::print ("Postconnect Actions:");
foreach my $server (keys %postconn_actions) {
Irssi::print ("$server $postconn_actions{$server}");
}
Irssi::print ("Disconnect Actions:");
foreach my $server (keys %disconn_actions) {
Irssi::print ("$server $disconn_actions{$server}");
}
}
}
load_actions;
Irssi::command_bind ('connectcmd', 'cmd_connectcmd');
Irssi::signal_add ('server looking', 'sig_server_looking');
Irssi::signal_add ('server connected', 'sig_server_connected');
Irssi::signal_add ('server disconnected', 'sig_server_disconnected');
|