#!/usr/bin/perl

use strict;
use warnings;
use Hobbit;

my $bb = new Hobbit('temp');
my $trends = Hobbit::trends;

my @zones = glob "/sys/class/thermal/*/temp";
exit 0 unless (@zones);

$bb->add_color ('green');

foreach my $zone (@zones) {
	open F, $zone;
	my $temp = <F>;
	close F;
	chomp $temp;
	$zone =~ m!.*/(.+)/!;
	my $name = $1;
	$bb->sprintf ("%s: %.1f degrees C\n", $name, $temp / 1000.0);

	$trends->print ("[$bb->{test},$name.rrd]\n");
	$trends->sprintf ("DS:temp:GAUGE:600:U:U %f\n", $temp / 1000.0);
}

$bb->send;
$trends->send;
