#!/usr/bin/perl -w
###########################################
# logtemp - Daemon logging TEMPer readout
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use strict;
use local::lib;
use Device::USB::PCSensor::HidTEMPer;
use App::Daemon 0.10 qw(daemonize);
use Log::Log4perl qw(:easy);
use Sysadm::Install qw(:all);
use File::Basename;

sudo_me();

$App::Daemon::logfile =
  "/var/log/temper.log";
$App::Daemon::pidfile =
  "/var/run/temper.pid";
$App::Daemon::as_user = $ENV{SUDO_USER};

daemonize();

while(1) {
  my $temper = 
   Device::USB::PCSensor::HidTEMPer->new();

  my $sensor = $temper->device();

  if( defined $sensor->internal() ) {
    INFO "READ ", 
         $sensor->internal()->celsius();
  } else {
    ERROR "No reading available";
  }

  sleep 60;
}