244 lines
7.7 KiB
Perl
244 lines
7.7 KiB
Perl
use Irssi;
|
|
use strict;
|
|
use FileHandle;
|
|
|
|
use vars qw($VERSION %IRSSI);
|
|
|
|
$VERSION = "0.9.7.1";
|
|
%IRSSI = (
|
|
authors => 'Andreas \'ads\' Scherbaum <ads@wars-nicht.de>',
|
|
name => 'screen_away',
|
|
description => 'set (un)away, if screen is attached/detached',
|
|
license => 'GPL v2',
|
|
url => 'none',
|
|
);
|
|
|
|
# screen_away irssi module
|
|
#
|
|
# written by Andreas 'ads' Scherbaum <ads@ufp.de>
|
|
#
|
|
# changes:
|
|
# 07.02.2004 fix error with away mode
|
|
# thanks to Michael Schiansky for reporting and fixing this one
|
|
# 07.08.2004 new function for changing nick on away
|
|
# 24.08.2004 fixing bug where the away nick was not storedcorrectly
|
|
# thanks for Harald Wurpts for help debugging this one
|
|
# 17.09.2004 rewrote init part to use $ENV{'STY'}
|
|
# 05.12.2004 add patch for remember away state
|
|
# thanks to Jilles Tjoelker <jilles@stack.nl>
|
|
# change "chatnet" to "tag"
|
|
# 18.05.2007 fix '-one' for SILC networks
|
|
#
|
|
#
|
|
# usage:
|
|
#
|
|
# put this script into your autorun directory and/or load it with
|
|
# /SCRIPT LOAD <name>
|
|
#
|
|
# there are 5 settings available:
|
|
#
|
|
# /set screen_away_active ON/OFF/TOGGLE
|
|
# /set screen_away_repeat <integer>
|
|
# /set screen_away_message <string>
|
|
# /set screen_away_window <string>
|
|
# /set screen_away_nick <string>
|
|
#
|
|
# active means, that you will be only set away/unaway, if this
|
|
# flag is set, default is ON
|
|
# repeat is the number of seconds, after the script will check the
|
|
# screen status again, default is 5 seconds
|
|
# message is the away message sent to the server, default: not here ...
|
|
# window is a window number or name, if set, the script will switch
|
|
# to this window, if it sets you away, default is '1'
|
|
# nick is the new nick, if the script goes away
|
|
# will only be used it not empty
|
|
#
|
|
# normal you should be able to rename the script to something other
|
|
# than 'screen_away' (as example, if you dont like the name) by simple
|
|
# changing the 'name' parameter in the %IRSSI hash at the top of this script
|
|
|
|
|
|
# variables
|
|
my $timer_name = undef;
|
|
my $away_status = 0;
|
|
my %old_nicks = ();
|
|
my %away = ();
|
|
|
|
# Register formats
|
|
Irssi::theme_register(
|
|
[
|
|
'screen_away_crap',
|
|
'{line_start}{hilight ' . $IRSSI{'name'} . ':} $0'
|
|
]);
|
|
|
|
# if we are running
|
|
my $screen_away_used = 0;
|
|
|
|
# try to find out, if we are running in a screen
|
|
# (see, if $ENV{STY} is set
|
|
if (!defined($ENV{STY})) {
|
|
# just return, we will never be called again
|
|
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
|
|
"could not open status file for parent process (pid: " . getppid() . "): $!");
|
|
return;
|
|
}
|
|
|
|
my ($socket_name, $socket_path);
|
|
|
|
# search for socket
|
|
# normal we could search the socket file, ... if we know the path
|
|
# but so we have to call one time the screen executable
|
|
# disable locale
|
|
# the quotes around C force perl 5.005_03 to use the shell
|
|
# thanks to Jilles Tjoelker <jilles@stack.nl> for pointing this out
|
|
my $socket = `LC_ALL="C" screen -ls`;
|
|
|
|
|
|
|
|
my $running_in_screen = 0;
|
|
# locale doesnt seems to be an problem (yet)
|
|
if ($socket !~ /^No Sockets found/s) {
|
|
# ok, should have only one socket
|
|
$socket_name = $ENV{'STY'};
|
|
$socket_path = $socket;
|
|
$socket_path =~ s/^.+\d+ Sockets? in ([^\n]+)\.\n.+$/$1/s;
|
|
if (length($socket_path) != length($socket)) {
|
|
# only activate, if string length is different
|
|
# (to make sure, we really got a dir name)
|
|
$screen_away_used = 1;
|
|
} else {
|
|
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
|
|
"error reading screen informations from:");
|
|
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
|
|
"$socket");
|
|
return;
|
|
}
|
|
}
|
|
|
|
# last check
|
|
if ($screen_away_used == 0) {
|
|
# we will never be called again
|
|
return;
|
|
}
|
|
|
|
# build complete socket name
|
|
$socket = $socket_path . "/" . $socket_name;
|
|
|
|
# register config variables
|
|
Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1);
|
|
Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5);
|
|
Irssi::settings_add_str('misc', $IRSSI{'name'} . '_message', "not here ...");
|
|
Irssi::settings_add_str('misc', $IRSSI{'name'} . '_window', "1");
|
|
Irssi::settings_add_str('misc', $IRSSI{'name'} . '_nick', "");
|
|
|
|
# init process
|
|
screen_away();
|
|
|
|
# screen_away()
|
|
#
|
|
# check, set or reset the away status
|
|
#
|
|
# parameter:
|
|
# none
|
|
# return:
|
|
# 0 (OK)
|
|
sub screen_away {
|
|
my ($away, @screen, $screen);
|
|
|
|
# only run, if activated
|
|
if (Irssi::settings_get_bool($IRSSI{'name'} . '_active') == 1) {
|
|
if ($away_status == 0) {
|
|
# display init message at first time
|
|
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
|
|
"activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)");
|
|
}
|
|
# get actual screen status
|
|
my @screen = stat($socket);
|
|
# 00100 is the mode for "user has execute permissions", see stat.h
|
|
if (($screen[2] & 00100) == 0) {
|
|
# no execute permissions, Detached
|
|
$away = 1;
|
|
} else {
|
|
# execute permissions, Attached
|
|
$away = 2;
|
|
}
|
|
|
|
# check if status has changed
|
|
if ($away == 1 and $away_status != 1) {
|
|
# set away
|
|
if (length(Irssi::settings_get_str($IRSSI{'name'} . '_window')) > 0) {
|
|
# if length of window is greater then 0, make this window active
|
|
Irssi::command('window goto ' . Irssi::settings_get_str($IRSSI{'name'} . '_window'));
|
|
}
|
|
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
|
|
"Set away");
|
|
my $message = Irssi::settings_get_str($IRSSI{'name'} . '_message');
|
|
if (length($message) == 0) {
|
|
# we have to set a message or we wouldnt go away
|
|
$message = "not here ...";
|
|
}
|
|
my ($server);
|
|
foreach $server (Irssi::servers()) {
|
|
if (!$server->{usermode_away}) {
|
|
# user isnt yet away
|
|
$away{$server->{'tag'}} = 0;
|
|
$server->command("AWAY " . (($server->{chat_type} ne 'SILC') ? "-one " : "") . "$message") if (!$server->{usermode_away});
|
|
if (length(Irssi::settings_get_str($IRSSI{'name'} . '_nick')) > 0) {
|
|
# only change, if actual nick isnt already the away nick
|
|
if (Irssi::settings_get_str($IRSSI{'name'} . '_nick') ne $server->{nick}) {
|
|
# keep old nick
|
|
$old_nicks{$server->{'tag'}} = $server->{nick};
|
|
# set new nick
|
|
$server->command("NICK " . Irssi::settings_get_str($IRSSI{'name'} . '_nick'));
|
|
}
|
|
}
|
|
} else {
|
|
# user is already away, remember this
|
|
$away{$server->{'tag'}} = 1;
|
|
}
|
|
}
|
|
$away_status = $away;
|
|
} elsif ($away == 2 and $away_status != 2) {
|
|
# unset away
|
|
Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
|
|
"Reset away");
|
|
my ($server);
|
|
foreach $server (Irssi::servers()) {
|
|
if ($away{$server->{'tag'}} == 1) {
|
|
# user was already away, dont reset away
|
|
$away{$server->{'tag'}} = 0;
|
|
next;
|
|
}
|
|
$server->command("AWAY" . (($server->{chat_type} ne 'SILC') ? " -one" : "")) if ($server->{usermode_away});
|
|
if (defined($old_nicks{$server->{'tag'}}) and length($old_nicks{$server->{'tag'}}) > 0) {
|
|
# set old nick
|
|
$server->command("NICK " . $old_nicks{$server->{'tag'}});
|
|
$old_nicks{$server->{'tag'}} = "";
|
|
}
|
|
}
|
|
$away_status = $away;
|
|
}
|
|
}
|
|
# but everytimes install a new timer
|
|
register_screen_away_timer();
|
|
return 0;
|
|
}
|
|
|
|
# register_screen_away_timer()
|
|
#
|
|
# remove old timer and install a new one
|
|
#
|
|
# parameter:
|
|
# none
|
|
# return:
|
|
# none
|
|
sub register_screen_away_timer {
|
|
if (defined($timer_name)) {
|
|
# remove old timer, if defined
|
|
Irssi::timeout_remove($timer_name);
|
|
}
|
|
# add new timer with new timeout (maybe the timeout has been changed)
|
|
$timer_name = Irssi::timeout_add(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'screen_away', '');
|
|
}
|
|
|