diff options
Diffstat (limited to '.irssi/scripts/extaway.pl')
| -rw-r--r-- | .irssi/scripts/extaway.pl | 194 |
1 files changed, 0 insertions, 194 deletions
diff --git a/.irssi/scripts/extaway.pl b/.irssi/scripts/extaway.pl deleted file mode 100644 index 78e8392..0000000 --- a/.irssi/scripts/extaway.pl +++ /dev/null @@ -1,194 +0,0 @@ -# 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"); - |