Personal shell scripts for Mobian on Pinephone.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

18 lines
514 B

#!/usr/bin/env perl
# sleep-ttl: query or set the GNOME suspend timeout.
# usage: sleep-ttl [new value in seconds]
use feature qw(say);
use strict;
use warnings;
if (scalar @ARGV > 0 && $ARGV[0] =~ /^(\d+)$/) {
my $ttl = $1;
say "Set TTL to $ttl";
exec("gsettings set org.gnome.settings-daemon.plugins.power sleep-inactive-battery-timeout $ttl");
my $current = `gsettings get org.gnome.settings-daemon.plugins.power sleep-inactive-battery-timeout`;
chomp $current;
say "Current suspend TTL is: $current";