my ( $t, $m ) = @_;
my $cmd = "mosquitto_pub -h rpi2 -t '$t' -m '$m'";
#warn "# _mqtt_pub [$t] = [$m]\n";
- warn "## $cmd";
+ #warn "## $cmd";
system $cmd;
}
my $hex = unpack('H*',$string);
$hex =~ s/(..)/$1 /g;
- my $temp = `curl localhost:3000/temp.txt`;
+ my $temp = `curl -q localhost:3000/temp.txt`;
$temp =~ s/\s+/ /gs;
$temp =~ s/^\s+//;