blob: b6ef333712b80c9a0b9930d87a00e3b677f08cde (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
#!/usr/bin/perl
open (IN, "xscreensaver-command -watch |");
while (<IN>) {
if (m/^LOCK/) {
system "$ENV{HOME}/.bin/on_lock"
} elsif (m/^UNBLANK/) {
#system "on_unlock"
}
}
|