From 489ef4f059c7315dccca529e279fb15205636e47 Mon Sep 17 00:00:00 2001 From: Simon Ruderich Date: Thu, 24 Oct 2013 02:25:27 +0200 Subject: [PATCH] bin/temperature.pl: Support different sensor devices names. --- bin/temperature.pl | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) diff --git a/bin/temperature.pl b/bin/temperature.pl index 0063bf4..6971f5f 100755 --- a/bin/temperature.pl +++ b/bin/temperature.pl @@ -20,16 +20,27 @@ use strict; use warnings; -my $temperature_path = '/sys/devices/virtual/hwmon/hwmon0/temp1_input'; -my $critical_path = '/sys/devices/virtual/hwmon/hwmon0/temp1_crit'; +if (scalar @ARGV != 1 and (scalar @ARGV != 2 or not $ARGV[0] =~ /-[st]/)) { + print STDERR "Usage: $0 [-s | -t] \n"; + print STDERR "\n"; + print STDERR "Normally this is /sys/devices/platform/*.\n"; + exit 1; +} +if (scalar @ARGV == 1) { + @ARGV = ('', $ARGV[0]); +} + +my $temperature_path = "$ARGV[1]/temp1_input"; +my $critical_path = "$ARGV[1]/temp1_crit"; # No temperature information available. -if (! -e $temperature_path || ! -e $critical_path) { +if (not -e $temperature_path or not -e $critical_path) { + print STDERR "'$temperature_path' or '$critical_path' not found.\n"; exit 1; } -my $screen_mode = (defined $ARGV[0] and $ARGV[0] eq '-s'); -my $tmux_mode = (defined $ARGV[0] and $ARGV[0] eq '-t'); +my $screen_mode = ($ARGV[0] eq '-s'); +my $tmux_mode = ($ARGV[0] eq '-t'); my $temperature; my $critical; -- 2.44.1