3 # by Stefan Tomanek <stefan@pico.ruhr.de>
6 use vars qw($VERSION %IRSSI);
7 $VERSION = "2003010201";
9 authors => "Stefan 'tommie' Tomanek",
10 contact => "stefan\@pico.ruhr.de",
12 description => "Another auto away script",
14 changed => "$VERSION",
17 use vars qw($timer @signals);
19 @signals = ('message own_public', 'message own_private');
22 #Irssi::print "%R>>%n Going away...$timer";
23 Irssi::timeout_remove($timer);
24 my $reason = Irssi::settings_get_str("anotherway_reason");
25 my @servers = Irssi::servers();
26 return unless @servers;
27 Irssi::signal_remove($_ , "reset_timer") foreach (@signals);
28 $servers[0]->command('AWAY '.$reason);
29 Irssi::signal_add($_ , "reset_timer") foreach (@signals);
33 #Irssi::print "%R>>%n RESET";
34 Irssi::signal_remove($_ , "reset_timer") foreach (@signals);
35 foreach (Irssi::servers()) {
36 $_->command('AWAY') if $_->{usermode_away};
39 #Irssi::signal_add('nd', "reset_timer");
40 Irssi::timeout_remove($timer);
41 my $timeout = Irssi::settings_get_int("anotherway_timeout");
42 $timer = Irssi::timeout_add($timeout*1000, "go_away", undef);
43 Irssi::signal_add($_, "reset_timer") foreach (@signals);
46 Irssi::settings_add_str($IRSSI{name}, 'anotherway_reason', 'a-nother-way');
47 Irssi::settings_add_int($IRSSI{name}, 'anotherway_timeout', 300);
50 Irssi::signal_add($_, "reset_timer") foreach (@signals);
54 print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded';