jpm
/
scripts
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Take ownership of brightness file, if possible 

Improve errors, if not.
This commit is contained in:
John Mertz 2023-11-17 18:40:36 -07:00
parent 62e9b4b53d
commit 7630ee5878
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
thinkpad/blc.pl
View File

@ -65,6 +65,7 @@
# Files containing current and max brightness values
my $cur_file = "/sys/class/backlight/intel_backlight/brightness";
chmod('0644',$cur_file) unless ( -w $cur_file );
my $max_file = "/sys/class/backlight/intel_backlight/max_brightness";
my $cur_log = $ENV{HOME}."/.spool/blc.current";
my $last_log = $ENV{HOME}."/.spool/blc.last";
@ -125,9 +126,12 @@ sub logger
sub writef
{
my $target = shift;
open(my $fh,'>',$cur_file);
print $fh $target;
close($fh);
if (open(my $fh,'>',$cur_file)) {
print $fh $target;
close($fh);
} else {
print "Failed to write to $cur_file: $!\n";
}
}
sub increment