summaryrefslogtreecommitdiffstats
path: root/bin/watch_lock
diff options
context:
space:
mode:
Diffstat (limited to 'bin/watch_lock')
-rwxr-xr-xbin/watch_lock20
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"
- }
-}