[ozzloy@gmail.com/oble] / monitor_idle.pl

#!/usr/bin/env perl

my $cmd = "dbus-monitor --session \"type='signal',interface='org.gnome.ScreenSaver',member='SessionIdleChanged'\"";

open (IN, "$cmd |");

while (<IN>) {
    if (m/^\s+boolean true/) {
        `./hello-world`;
    } elsif (m/^\s+boolean false/) {
        print "*** Session is no longer idle ***\n";
    }
}
Commit	Line	Data
b45474a5	1	#!/usr/bin/env perl
	2
	3	my $cmd = "dbus-monitor --session \"type='signal',interface='org.gnome.ScreenSaver',member='SessionIdleChanged'\"";
	4
	5	open (IN, "$cmd \|");
	6
	7	while (<IN>) {
	8	if (m/^\s+boolean true/) {
	9	`./hello-world`;
	10	} elsif (m/^\s+boolean false/) {
	11	print "* Session is no longer idle *\n";
	12	}
	13	}