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
|
--- connectcmd.pl.orig 2002-03-11 06:54:24.000000000 +0100
+++ scripts/connectcmd.pl 2004-02-28 22:24:32.000000000 +0100
@@ -17,9 +17,9 @@
my %disconn_actions;
sub load_actions {
- open ACTIONS, "$ENV{HOME}/.irssi/connectcmd_actions";
+ open ACTS, "$ENV{HOME}/.irssi/connectcmd_actions";
- while (<ACTIONS>) {
+ while (<ACTS>) {
my @lines = split "\n";
foreach my $line (@lines) {
my ($server, $type, $action) = split ":", $line;
@@ -33,23 +33,23 @@
}
}
- close ACTIONS;
+ close ACTS;
}
sub save_actions {
- open ACTIONS, ">$ENV{HOME}/.irssi/connectcmd_actions";
+ open ACTS, ">$ENV{HOME}/.irssi/connectcmd_actions";
foreach my $server (keys %preconn_actions) {
- print ACTIONS "$server:preconn:$preconn_actions{$server}\n";
+ print ACTS "$server:preconn:$preconn_actions{$server}\n";
}
foreach my $server (keys %postconn_actions) {
- print ACTIONS "$server:postconn:$postconn_actions{$server}\n";
+ print ACTS "$server:postconn:$postconn_actions{$server}\n";
}
foreach my $server (keys %disconn_actions) {
- print ACTIONS "$server:disconn:$disconn_actions{$server}\n";
+ print ACTS "$server:disconn:$disconn_actions{$server}\n";
}
- close ACTIONS;
+ close ACTS;
}
sub sig_server_looking {
|
