瀏覽代碼

Move setup into function where it is required

master
John Mertz 9 月之前
父節點
當前提交
88ea557246
共有 1 個文件被更改,包括 7 次插入5 次删除
  1. +7
    -5
      sway/gammastep.pl

+ 7
- 5
sway/gammastep.pl 查看文件

@@ -8,11 +8,8 @@ use warnings;
use LWP::UserAgent;
use JSON::XS;

my $ua = LWP::UserAgent->new();
my $json = JSON::XS->new();
my $location = "https://papillon.john.me.tz/data/location.json";

my $lat_lon = fetch_lat_lon($ua, $json, $location);
my $lat_lon = fetch_lat_lon($location);

my $pid = fork;
unless ($pid) {
@@ -25,10 +22,15 @@ unless ($pid) {

sub fetch_lat_lon
{
my ($ua, $json, $location) = @_;
my ($location) = shift;

my $ua = LWP::UserAgent->new();
my $json = JSON::XS->new();

my $raw = $ua->get($location)->content();

if (defined $raw) {
print($raw."\n");
my $decoded = $json->decode($raw);
if (defined $decoded->{lat} && defined $decoded->{lon}) {
return "$decoded->{lat}:$decoded->{lon}";


Loading…
取消
儲存