# HG changeset patch # User Augie Fackler # Date 1259117749 21600 # Node ID a4734cd2ba01b96ada48648e8353db5d87536cba # Parent 6a781c14cdfd88bdef0ecdaede472d8500183977 Add screen_away irssi script. diff --git a/.irssi/scripts/autorun/screen_away.pl b/.irssi/scripts/autorun/screen_away.pl new file mode 120000 --- /dev/null +++ b/.irssi/scripts/autorun/screen_away.pl @@ -0,0 +1,1 @@ +../screen_away.pl \ No newline at end of file diff --git a/.irssi/scripts/screen_away.pl b/.irssi/scripts/screen_away.pl new file mode 100644 --- /dev/null +++ b/.irssi/scripts/screen_away.pl @@ -0,0 +1,243 @@ +use Irssi; +use strict; +use FileHandle; + +use vars qw($VERSION %IRSSI); + +$VERSION = "0.9.7.1"; +%IRSSI = ( + authors => 'Andreas \'ads\' Scherbaum ', + 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 +# +# 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 +# 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 +# +# there are 5 settings available: +# +# /set screen_away_active ON/OFF/TOGGLE +# /set screen_away_repeat +# /set screen_away_message +# /set screen_away_window +# /set screen_away_nick +# +# 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 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', ''); +} +