diff options
Diffstat (limited to 'scripts/dtach_away.pl')
| -rw-r--r-- | scripts/dtach_away.pl | 209 |
1 files changed, 209 insertions, 0 deletions
diff --git a/scripts/dtach_away.pl b/scripts/dtach_away.pl new file mode 100644 index 0000000..c503668 --- /dev/null +++ b/scripts/dtach_away.pl @@ -0,0 +1,209 @@ +use Irssi; +use strict; +use FileHandle; + +use vars qw($VERSION %IRSSI); + +$VERSION = "1.0"; +%IRSSI = ( + authors => 'Antoine Beaupré', + contact => 'anarcat@debian.org', + name => 'dtach_away', + description => 'set (un)away, if dtach is attached/detached', + license => 'GPL v2', + url => 'none', +); + +# dtach_away irssi module +# +# written by Andreas 'ads' Scherbaum <ads@ufp.de>, ported to dtach by +# anarcat. +# +# changes: +# 13.11.2019 rewrite to support dtach instead of screen +# 20.12.2014 fix the bug when screenname is changed during the session +# 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 dtach_away_active ON/OFF/TOGGLE +# /set dtach_away_repeat <integer> +# /set dtach_away_message <string> +# /set dtach_away_window <string> +# /set dtach_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 +# dtach 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 'dtach_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 +# +# This requires dtach 0.9, as 0.8 and previous do not change the +# executable bit on the socket. + + +# variables +my $timer_name = undef; +my $away_status = 0; +my %old_nicks = (); +my %away = (); + +# Register formats +Irssi::theme_register( +[ + 'dtach_away_crap', + '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0' +]); + +# 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', ""); +Irssi::settings_add_str('misc', $IRSSI{'name'} . '_socket', ""); + +my $socket = Irssi::settings_get_str($IRSSI{'name'} . '_socket'); + +if (!$socket) { + # just return, we will never be called again + Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'dtach_away_crap', + "need to set the path to the detach socket"); + return; +} + +# init process +dtach_away(); + +# dtach_away() +# +# check, set or reset the away status +# +# parameter: +# none +# return: +# 0 (OK) +sub dtach_away { + my ($away, @dtach, $dtach); + + # 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, 'dtach_away_crap', + "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)"); + } + # get actual dtach status + my @dtach = stat($socket); + # 00100 is the mode for "user has execute permissions", see stat.h + if (($dtach[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, 'dtach_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, 'dtach_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_dtach_away_timer(); + return 0; +} + +# register_dtach_away_timer() +# +# remove old timer and install a new one +# +# parameter: +# none +# return: +# none +sub register_dtach_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, 'dtach_away', ''); +} + + |