diff options
Diffstat (limited to 'scripts/extaway.pl')
| -rw-r--r-- | scripts/extaway.pl | 194 |
1 files changed, 194 insertions, 0 deletions
diff --git a/scripts/extaway.pl b/scripts/extaway.pl new file mode 100644 index 0000000..78e8392 --- /dev/null +++ b/scripts/extaway.pl @@ -0,0 +1,194 @@ +# Away Manager +# +# This script allows you to have different automated +# actions on away +# +# - sets your nick, using a base and a keyword +# - in example: Crazy_Away +# - insert an away reason +# - say on all channels that your away +# +# This is my first IRSSI script, but I'll try to make it +# better soon. +# If you have ideas to improve it, or make it more efficient, +# contact me at crazycat@c-p-f.org + +use Irssi; +use Irssi::Irc; +use strict; + +use vars qw($VERSION %IRSSI); + +$VERSION = '1.0'; +%IRSSI = ( + authors => 'CrazyCat', + contact => 'crazycat@c-p-f.org', + name => 'ExtAway', + description => 'Extended Away & Back programm', + license => 'GNU GPLv2 or later', + changed => '$Date: 2005/01/12 03:04:01$' +); + +my $xa_confile = Irssi::get_irssi_dir()."/xa.config"; +my %infos = (); +my ($oldnick, $t_away); + +sub init { + # verifying if settings file exists + if (!(open xa_settings, "<$xa_confile")) { + putlog("No config file: /xahelp for help"); + return 0; + }; + # reading the config file + while (my $line = <xa_settings>) { + $line =~ s/\n//; + my ($xa_key,$xa_val) = split(/:/, $line); + $xa_key =~ tr/[A-Z]/[a-z]/; + if ($xa_val ne "") { + $infos{$xa_key} = $xa_val; + } + } + close xa_settings; +} + +sub xa_go { + # Main procedure to go away + my($data,$server,$channel) = @_; + my $xa_nick = ""; + my $xa_reason = ""; + if ($server->{usermode_away}) { + # oooops! already marged as away + &putlog("You're allready marqued as away ($server->{away_reason})"); + return 0; + } + $oldnick = $server->{nick}; + $t_away = time(); + my $t_data = split(/ /, $data); + if ($t_data < 2) { + # away called with just a keyword + $xa_nick = $data; + $xa_nick =~ tr/[A-Z]/[a-z]/; + $xa_reason = $infos{$xa_nick}; + } else { + # this is a new reason + ($xa_nick, $xa_reason) = $data =~ /^(\S+) (.*)/; + &xa_add($xa_nick, $xa_reason); + } + if ($xa_reason eq "") { + putlog("Sorry, <$xa_nick> is not defined"); + } else { + my $nick = "$infos{'bnick'}$xa_nick"; + foreach my $server (Irssi::servers) { + $server->command("AWAY $xa_reason"); + $server->command("NICK $nick"); + foreach my $chan ($server->channels) { + $server->command("DESCRIBE $chan->{name} is away [Reason: $xa_reason]"); + } + } + } +} + +sub xa_back { + # the way to be back + my($data,$server,$channel) = @_; + if (!$server->{usermode_away}) { + &putlog("You're not marqued as away"); + return 0; + } + my $delay = time() - $t_away; + my $f_delay = f_delay($delay); + foreach my $server (Irssi::servers) { + foreach my $chan ($server->channels) { + $server->command("DESCRIBE $chan->{name} is back from [$server->{away_reason}] - $f_delay away"); + } + $server->command("AWAY"); + $server->command("NICK $oldnick"); + } +} + +sub putlog { + # procedure to write in status window + my ($window) = Irssi::active_win(); + Irssi::print("[$IRSSI{'name'}] @_", MSGLEVEL_CLIENTNOTICE); + +} + +sub f_delay { + # formatting the away time + my $seconds = shift; + my ($hours, $minutes, $formated); + if ($seconds > 3600) { + $hours = int($seconds / 3600); + $formated .= $hours."h:"; + $seconds = $seconds - ($hours * 3600); + } + if ($seconds > 60) { + $minutes = int($seconds / 60); + $formated .= $minutes."m:"; + $seconds = $seconds - ($minutes * 60); + } + $formated .= $seconds."s"; + return $formated; +} + +sub xa_add { + # Adding the keyword and the reason in the config file + # may create double entries... + my($kw, $reason) = @_; + if(!(open xa_settings, ">>$xa_confile")) { + &putlog("Unable to open file $xa_confile"); + } + print xa_settings "$kw:$reason\n"; + close xa_settings; + $infos{$kw} = $reason; +} + +sub xa_save { + # save the temp infos (might correct the double entries) + my ($data,$server,$channel) = @_; + if(!(open xa_settings, ">$xa_confile")) { + &putlog("Unable to create file $xa_confile"); + } + print xa_settings "bnick:$infos{'bnick'}\n"; + while (my ($kw, $line) = each %infos) { + if ($kw ne "bnick") { + print xa_settings "$kw:$infos{$kw}\n"; + } + } + close xa_settings; +} + +sub xa_nick { + # The way to add the base nick + my ($data,$server,$channel) = @_; + if ($data eq "") { + putlog("You must define your base_nick") + } + $infos{'bnick'} = $data; + &xa_save; +} + +sub xa_help { + &putlog("Help for $IRSSI{name} : $IRSSI{description}"); + &putlog(" Setting your base nick: /xanick <base_nick>"); + &putlog(" Going away: /aw <keyword> [reason]"); + &putlog(" if keyword exists in the base, reason is automatically displayed"); + &putlog(" if keyword is a new one, you MUST give a reason"); + &putlog(" -- Nota: your away nick will be <base_nick><keyword> --"); + &putlog(" Coming back from away: /back"); + &putlog(" Saving all datas: /xasave (take care, setting your base_nick will save all your datas)"); +} +# +# main +# +&init(); +if ($infos{'bnick'} eq "") { + &putlog("Please, give a base nick with /xanick <base_nick>"); + &putlog("Use /xahelp to get some help"); +} +Irssi::command_bind("aw", "xa_go"); +Irssi::command_bind("back", "xa_back"); +Irssi::command_bind("xahelp", "xa_help"); +Irssi::command_bind("xanick", "xa_nick"); +Irssi::command_bind("xasave", "xa_save"); + |