From 521adc579c34e041192d1429118806a1981dc952 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 8 Oct 2019 23:36:56 -0400
Subject: switch to xsecurelock instead of light-locker

---
 bin/watch-lock | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100755 bin/watch-lock

(limited to 'bin')

diff --git a/bin/watch-lock b/bin/watch-lock
deleted file mode 100755
index 8545efc..0000000
--- a/bin/watch-lock
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.020;
-
-use POSIX ":sys_wait_h";
-
-$|++;
-
-my $pid = open my $fh, '-|', (
-    'dbus-monitor',
-    '--system',
-    'type=signal,interface=org.freedesktop.login1.Session'
-) or die "couldn't spawn dbus-monitor: $!";
-$SIG{CHLD} = sub {
-    while ((my $child = waitpid -1, WNOHANG) > 0) {
-        if ($child == $pid) {
-            undef $pid;
-        }
-    }
-    exit unless $pid;
-};
-
-sub cleanup {
-    kill KILL => $pid if $pid;
-    undef $pid;
-}
-
-$SIG{TERM} = $SIG{INT} = sub { cleanup; exit; };
-END { cleanup }
-
-while (<$fh>) {
-    if (/\bmember=Lock\b/) {
-        system("on-lock") && say "on-lock failed";
-        say "LOCK";
-    }
-}
-- 
cgit v1.2.3-54-g00ecf