#! /usr/bin/perl

open (FILE, '/home/julian/tstatcollect');
while (<FILE>) {
chomp;
(undef,$temp, undef,$tmode, undef,$fmode, undef,$override, undef,$hold, undef,$tcool, undef,$tstate, undef,$fstate, undef,$time, undef,$day, undef,$hour, undef,$minute, undef,$t_type_post,) = map split (":"), split (","), ;
print "Temperature:  $temp\n";
print "Tmode:	$tmode\n";
print "Fmode:	$fmode\n";
print "Override:	$override\n";
print "Hold:	$hold\n";
print "tcool:	$tcool\n";
print "tstate: 	$tstate\n";
print "fstate:	$fstate\n";
print "day:	$day\n";
print "hour:	$hour\n";
print "minute:	$minute\n";
print "t_type_post	$t_type_post\n";
	
print "________\n";
}
close (FILE);
exit;