diff options
Diffstat (limited to 'broad_away.pl')
-rw-r--r-- | broad_away.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/broad_away.pl b/broad_away.pl index 208f4c5..77b0efb 100644 --- a/broad_away.pl +++ b/broad_away.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl use strict; use warnings; +use lib '/home/dakkar/perl5/lib/perl5'; use Net::DBus; {my $pidgin; @@ -41,6 +42,12 @@ sub set_away { sub set_back { my $pidgin=pidgin or return Xchat::EAT_NONE; + if ($pidgin->PurpleSavedstatusGetType( + $pidgin->PurpleSavedstatusGetCurrent()) != 5) { + # if pidgin is not "away", don't touch it + return Xchat::EAT_NONE; + } + my $status; if (!defined $prev_status) { $status=$pidgin->PurpleSavedstatusFindTransientByTypeAndMessage(2,undef); |