indentation cleanup
This commit is contained in:
@@ -71,24 +71,24 @@ while(1) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
if ($shoot == 1) {
|
if ($shoot == 1) {
|
||||||
$a->[0]->{'full_text'} = $title;
|
$a->[0]->{'full_text'} = $title;
|
||||||
$a->[2]->{'full_text'} = $uptime;
|
$a->[2]->{'full_text'} = $uptime;
|
||||||
$a->[3]->{'full_text'} = $la;
|
$a->[3]->{'full_text'} = $la;
|
||||||
$a->[4]->{'full_text'} = $charge[0];
|
$a->[4]->{'full_text'} = $charge[0];
|
||||||
$a->[4]->{'color'} = $charge[1];
|
$a->[4]->{'color'} = $charge[1];
|
||||||
$a->[5]->{'full_text'} = $time;
|
$a->[5]->{'full_text'} = $time;
|
||||||
my $json = JSON::PP->new;
|
my $json = JSON::PP->new;
|
||||||
$json = $json->ascii(0);
|
$json = $json->ascii(0);
|
||||||
$json = $json->utf8(0);
|
$json = $json->utf8(0);
|
||||||
$json = $json->allow_unknown (1);
|
$json = $json->allow_unknown (1);
|
||||||
$json = $json->canonical(1);
|
$json = $json->canonical(1);
|
||||||
$json = $json->space_before(0);
|
$json = $json->space_before(0);
|
||||||
$json = $json->space_after(0);
|
$json = $json->space_after(0);
|
||||||
$json = $json->indent(0);
|
$json = $json->indent(0);
|
||||||
my $str = $json->encode($a);
|
my $str = $json->encode($a);
|
||||||
undef $json;
|
undef $json;
|
||||||
|
|
||||||
syswrite STDOUT, $str . ",\n";
|
syswrite STDOUT, $str . ",\n";
|
||||||
|
|
||||||
undef $str;
|
undef $str;
|
||||||
$shoot = 0;
|
$shoot = 0;
|
||||||
@@ -220,9 +220,9 @@ sub getbatterychargestr1() {
|
|||||||
undef $current_charge; undef $full_charge;
|
undef $current_charge; undef $full_charge;
|
||||||
}
|
}
|
||||||
|
|
||||||
undef $P;
|
undef $P;
|
||||||
}
|
}
|
||||||
|
|
||||||
my @z = ($str, '#555555');
|
my @z = ($str, '#555555');
|
||||||
|
|
||||||
return @z;
|
return @z;
|
||||||
|
|||||||
Reference in New Issue
Block a user