Mercurial > dotfiles

comparison .irssi/scripts/screen_away.pl @ 164:a4734cd2ba01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add screen_away irssi script.
author Augie Fackler <durin42@gmail.com>
date Tue, 24 Nov 2009 20:55:49 -0600
parents
children
comparison
equal deleted inserted replaced
163:6a781c14cdfd 164:a4734cd2ba01
1 use Irssi;
2 use strict;
3 use FileHandle;
4
5 use vars qw($VERSION %IRSSI);
6
7 $VERSION = "0.9.7.1";
8 %IRSSI = (
9 authors => 'Andreas \'ads\' Scherbaum <ads@wars-nicht.de>',
10 name => 'screen_away',
11 description => 'set (un)away, if screen is attached/detached',
12 license => 'GPL v2',
13 url => 'none',
14 );
15
16 # screen_away irssi module
17 #
18 # written by Andreas 'ads' Scherbaum <ads@ufp.de>
19 #
20 # changes:
21 # 07.02.2004 fix error with away mode
22 # thanks to Michael Schiansky for reporting and fixing this one
23 # 07.08.2004 new function for changing nick on away
24 # 24.08.2004 fixing bug where the away nick was not storedcorrectly
25 # thanks for Harald Wurpts for help debugging this one
26 # 17.09.2004 rewrote init part to use $ENV{'STY'}
27 # 05.12.2004 add patch for remember away state
28 # thanks to Jilles Tjoelker <jilles@stack.nl>
29 # change "chatnet" to "tag"
30 # 18.05.2007 fix '-one' for SILC networks
31 #
32 #
33 # usage:
34 #
35 # put this script into your autorun directory and/or load it with
36 # /SCRIPT LOAD <name>
37 #
38 # there are 5 settings available:
39 #
40 # /set screen_away_active ON/OFF/TOGGLE
41 # /set screen_away_repeat <integer>
42 # /set screen_away_message <string>
43 # /set screen_away_window <string>
44 # /set screen_away_nick <string>
45 #
46 # active means, that you will be only set away/unaway, if this
47 # flag is set, default is ON
48 # repeat is the number of seconds, after the script will check the
49 # screen status again, default is 5 seconds
50 # message is the away message sent to the server, default: not here ...
51 # window is a window number or name, if set, the script will switch
52 # to this window, if it sets you away, default is '1'
53 # nick is the new nick, if the script goes away
54 # will only be used it not empty
55 #
56 # normal you should be able to rename the script to something other
57 # than 'screen_away' (as example, if you dont like the name) by simple
58 # changing the 'name' parameter in the %IRSSI hash at the top of this script
59
60
61 # variables
62 my $timer_name = undef;
63 my $away_status = 0;
64 my %old_nicks = ();
65 my %away = ();
66
67 # Register formats
68 Irssi::theme_register(
69 [
70 'screen_away_crap',
71 '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0'
72 ]);
73
74 # if we are running
75 my $screen_away_used = 0;
76
77 # try to find out, if we are running in a screen
78 # (see, if $ENV{STY} is set
79 if (!defined($ENV{STY})) {
80 # just return, we will never be called again
81 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
82 "could not open status file for parent process (pid: " . getppid() . "): $!");
83 return;
84 }
85
86 my ($socket_name, $socket_path);
87
88 # search for socket
89 # normal we could search the socket file, ... if we know the path
90 # but so we have to call one time the screen executable
91 # disable locale
92 # the quotes around C force perl 5.005_03 to use the shell
93 # thanks to Jilles Tjoelker <jilles@stack.nl> for pointing this out
94 my $socket = `LC_ALL="C" screen -ls`;
95
96
97
98 my $running_in_screen = 0;
99 # locale doesnt seems to be an problem (yet)
100 if ($socket !~ /^No Sockets found/s) {
101 # ok, should have only one socket
102 $socket_name = $ENV{'STY'};
103 $socket_path = $socket;
104 $socket_path =~ s/^.+\d+ Sockets? in ([^\n]+)\.\n.+$/$1/s;
105 if (length($socket_path) != length($socket)) {
106 # only activate, if string length is different
107 # (to make sure, we really got a dir name)
108 $screen_away_used = 1;
109 } else {
110 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
111 "error reading screen informations from:");
112 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
113 "$socket");
114 return;
115 }
116 }
117
118 # last check
119 if ($screen_away_used == 0) {
120 # we will never be called again
121 return;
122 }
123
124 # build complete socket name
125 $socket = $socket_path . "/" . $socket_name;
126
127 # register config variables
128 Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1);
129 Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5);
130 Irssi::settings_add_str('misc', $IRSSI{'name'} . '_message', "not here ...");
131 Irssi::settings_add_str('misc', $IRSSI{'name'} . '_window', "1");
132 Irssi::settings_add_str('misc', $IRSSI{'name'} . '_nick', "");
133
134 # init process
135 screen_away();
136
137 # screen_away()
138 #
139 # check, set or reset the away status
140 #
141 # parameter:
142 # none
143 # return:
144 # 0 (OK)
145 sub screen_away {
146 my ($away, @screen, $screen);
147
148 # only run, if activated
149 if (Irssi::settings_get_bool($IRSSI{'name'} . '_active') == 1) {
150 if ($away_status == 0) {
151 # display init message at first time
152 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
153 "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)");
154 }
155 # get actual screen status
156 my @screen = stat($socket);
157 # 00100 is the mode for "user has execute permissions", see stat.h
158 if (($screen[2] & 00100) == 0) {
159 # no execute permissions, Detached
160 $away = 1;
161 } else {
162 # execute permissions, Attached
163 $away = 2;
164 }
165
166 # check if status has changed
167 if ($away == 1 and $away_status != 1) {
168 # set away
169 if (length(Irssi::settings_get_str($IRSSI{'name'} . '_window')) > 0) {
170 # if length of window is greater then 0, make this window active
171 Irssi::command('window goto ' . Irssi::settings_get_str($IRSSI{'name'} . '_window'));
172 }
173 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
174 "Set away");
175 my $message = Irssi::settings_get_str($IRSSI{'name'} . '_message');
176 if (length($message) == 0) {
177 # we have to set a message or we wouldnt go away
178 $message = "not here ...";
179 }
180 my ($server);
181 foreach $server (Irssi::servers()) {
182 if (!$server->{usermode_away}) {
183 # user isnt yet away
184 $away{$server->{'tag'}} = 0;
185 $server->command("AWAY " . (($server->{chat_type} ne 'SILC') ? "-one " : "") . "$message") if (!$server->{usermode_away});
186 if (length(Irssi::settings_get_str($IRSSI{'name'} . '_nick')) > 0) {
187 # only change, if actual nick isnt already the away nick
188 if (Irssi::settings_get_str($IRSSI{'name'} . '_nick') ne $server->{nick}) {
189 # keep old nick
190 $old_nicks{$server->{'tag'}} = $server->{nick};
191 # set new nick
192 $server->command("NICK " . Irssi::settings_get_str($IRSSI{'name'} . '_nick'));
193 }
194 }
195 } else {
196 # user is already away, remember this
197 $away{$server->{'tag'}} = 1;
198 }
199 }
200 $away_status = $away;
201 } elsif ($away == 2 and $away_status != 2) {
202 # unset away
203 Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
204 "Reset away");
205 my ($server);
206 foreach $server (Irssi::servers()) {
207 if ($away{$server->{'tag'}} == 1) {
208 # user was already away, dont reset away
209 $away{$server->{'tag'}} = 0;
210 next;
211 }
212 $server->command("AWAY" . (($server->{chat_type} ne 'SILC') ? " -one" : "")) if ($server->{usermode_away});
213 if (defined($old_nicks{$server->{'tag'}}) and length($old_nicks{$server->{'tag'}}) > 0) {
214 # set old nick
215 $server->command("NICK " . $old_nicks{$server->{'tag'}});
216 $old_nicks{$server->{'tag'}} = "";
217 }
218 }
219 $away_status = $away;
220 }
221 }
222 # but everytimes install a new timer
223 register_screen_away_timer();
224 return 0;
225 }
226
227 # register_screen_away_timer()
228 #
229 # remove old timer and install a new one
230 #
231 # parameter:
232 # none
233 # return:
234 # none
235 sub register_screen_away_timer {
236 if (defined($timer_name)) {
237 # remove old timer, if defined
238 Irssi::timeout_remove($timer_name);
239 }
240 # add new timer with new timeout (maybe the timeout has been changed)
241 $timer_name = Irssi::timeout_add(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'screen_away', '');
242 }
243