54 lines
1.2 KiB
Perl
Executable File
54 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# TODO: If gammastep is already running, allow location to update
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use LWP::UserAgent;
|
|
use JSON::XS;
|
|
|
|
my $location = "https://papillon.john.me.tz/data/location.json";
|
|
my $lat_lon = fetch_lat_lon($location);
|
|
|
|
my $pid = fork;
|
|
unless ($pid) {
|
|
open(my $fh, ">", $ENV{HOME}."/.spool/gammastep.pid");
|
|
print $fh $$;
|
|
close($fh);
|
|
open($fh, ">", $ENV{HOME}."/.spool/gammastep.status");
|
|
print $fh 1;
|
|
close($fh);
|
|
|
|
open STDIN, '/dev/null';
|
|
open STDOUT, '>>/dev/null';
|
|
open STDERR, '>>/dev/null';
|
|
|
|
if (! -e "/run/.containerenv" && ! -e "/.dockerenv" ) {
|
|
exec "exec /bin/distrobox-enter -n debian12 -- gammastep -l $lat_lon -b 0.7:0.3";
|
|
} else {
|
|
exec "exec gammastep -l $lat_lon -b 0.7:0.3";
|
|
}
|
|
}
|
|
|
|
sub fetch_lat_lon
|
|
{
|
|
my ($location) = shift;
|
|
|
|
my $ua = LWP::UserAgent->new();
|
|
my $json = JSON::XS->new();
|
|
|
|
my $raw = $ua->get($location)->content();
|
|
|
|
if (defined $raw) {
|
|
my $decoded = $json->decode($raw);
|
|
if (defined $decoded->{lat} && defined $decoded->{lon}) {
|
|
return "$decoded->{lat}:$decoded->{lon}";
|
|
}
|
|
}
|
|
sleep 5;
|
|
return fetch_lat_lon($ua, $json, $location);
|
|
}
|
|
|
|
exit;
|