scripts/sway/gammastep.pl

43 lines
929 B
Perl
Raw Normal View History

2020-09-11 15:00:39 +00:00
#!/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);
2020-09-11 15:00:39 +00:00
my $pid = fork;
unless ($pid) {
2020-11-23 09:35:26 +00:00
open STDIN, '/dev/null';
open STDOUT, '>>/dev/null';
open STDERR, '>>/dev/null';
2020-09-11 15:00:39 +00:00
`gammastep -l $lat_lon -b 1:0.7`;
2020-09-11 15:00:39 +00:00
}
2020-11-23 09:35:26 +00:00
sub fetch_lat_lon
{
my ($location) = shift;
my $ua = LWP::UserAgent->new();
my $json = JSON::XS->new();
2020-09-11 15:00:39 +00:00
2020-11-23 09:35:26 +00:00
my $raw = $ua->get($location)->content();
2020-11-23 09:35:26 +00:00
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);
2020-09-11 15:00:39 +00:00
}
exit;