16 lines
258 B
Perl
16 lines
258 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use JSON;
|
|
|
|
my $json;
|
|
@{$json->{data}} = ();
|
|
|
|
if (system("upsc -l >/dev/null 2>&1") == 0){
|
|
foreach my $ups (`upsc -l`){
|
|
chomp($ups);
|
|
push @{$json->{data}}, {"{#UPSNAME}" => $ups};
|
|
}
|
|
}
|
|
print to_json($json);
|
|
exit(0);
|