19 lines
514 B
Perl
Executable File
19 lines
514 B
Perl
Executable File
#!/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";
|