diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2010-01-12 14:39:01 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2010-01-12 14:39:01 +0000 |
commit | ec75f44566f633e5ace569c0532ecf453e619db6 (patch) | |
tree | e111a612a5dc289dc420786a29cd5a025a1166a3 | |
parent | avoid creating a new status if an existing one would do (including transients) (diff) | |
download | broad_away-master.tar.gz broad_away-master.tar.bz2 broad_away-master.zip |
-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); |