diff options
Diffstat (limited to 'bin/watch_lock')
-rwxr-xr-x | bin/watch_lock | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/bin/watch_lock b/bin/watch_lock deleted file mode 100755 index 6de654f..0000000 --- a/bin/watch_lock +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -my $pid = open my $in, '-|', 'xscreensaver-command -watch' - or die "Couldn't spawn process: $!"; -$SIG{TERM} = sub { kill TERM => $pid; exit }; -while (<$in>) { - if (/^LOCK/) { - system "$ENV{HOME}/.bin/on_lock"; - if ($? == -1) { - warn "Couldn't exec on_lock: $!"; - } - elsif ($? != 0) { - warn "on_lock exited with value " . ($? >> 8); - } - } elsif (/^UNBLANK/) { - #system "on_unlock" - } -} |