From d679a8251ad1cf4ff782d9d96b1b3231de3fabfa Mon Sep 17 00:00:00 2001
From: Manuel Reimer <manuel.reimer@gmx.de>
Date: Sun, 21 Jul 2019 11:20:55 +0200
Subject: Add second device path candidate for power button

---
 vdrpbd | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/vdrpbd b/vdrpbd
index 5d2b035..c002142 100755
--- a/vdrpbd
+++ b/vdrpbd
@@ -193,8 +193,13 @@ sub HaveSystemd {
 }
 
 sub GetButtonDevice {
-  my $basepath = '/sys/devices/LNXSYSTM:00/LNXPWRBN:00/input';
+  # Power buttons to check for in order of falling priority
+  my @devicepaths = (
+    '/sys/devices/LNXSYSTM:00/LNXPWRBN:00/input',
+    '/sys/devices/LNXSYSTM:00/LNXSYBUS:00/PNP0C0C:00/input'
+  );
 
+  my ($basepath) = grep {-d $_} @devicepaths or die("No power button found\n");
   opendir(my $dh, $basepath) or die("failed to query for input device\n");
   my ($input) = grep(/^input/, readdir($dh)) or die("no input device found\n");
   closedir($dh);
-- 
cgit v1.2.3