#!/usr/bin/perl -w

#use lib "";
use CGI qw(:standard);
use POSIX;
use TeleServ;

#Set 3 sec delay for page refresh
$delay_refresh = 3;
#TeleServ controller serial line port
$device_name = "/dev/ttyS0";

tsOpen($device_name);
tsSetTerminalMode;

#Get measured values from the controller
$version = tsVersion();
($temp_1, $temp_2) = tsTemperature();
$pwm = tsPwm($temp_1);
($vol_5, $vol_12, $vol_f) = tsVoltage();
($fun_1, $fun_2, $fun_3, $fun_4) = tsRpms();
$watch_dog = tsWatchDog();

#Get data and time
POSIX::setlocale( &POSIX::LC_TIME, "en_US" );
$curr_time = POSIX::strftime("%H:%M:%S", localtime());
$curr_date = POSIX::strftime("%b. %e, %Y", localtime());

#HTML page refresh
$java_script=<<END;
function load()
{\nsetTimeout( "refresh()", $delay_refresh*1000 );\n}	
function refresh()
{\nwindow.location.href = unescape(window.location.pathname);\n}
END

print header();
print start_html(
    -title=>"TeleServ $version",
    -script=>$java_script,
    -onload=>"load()"
);

print <<EOF;
<div align="center"><h2>TeleServ $version</h2>
<p>${curr_date}<br>${curr_time}</p></div>
<table width="30%" border="0" cellpadding="5" align="center">
<tr>
<td>
	<table width="100%" border="1" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center" colspan="2">Temperature</td>
	</tr>
	<tr>
		<td align="center">1</td>
		<td align="center">${temp_1}&#176;C</td>
	</tr>
	<tr>
		<td align="center">2</td>
		<td align="center">${temp_2}&#176;C</td>
	</tr>
	</table>
</td>
</tr>
<tr>
<td>
	<table width="100%" border="1" cellspacing="0" cellpadding="0">

	<tr>
		<td align="center">PWM</td>
	</tr>
	<tr>
		<td align="center">${pwm}%</td>
	</tr>
	</table>
</td>

</tr>
<tr>
<td>
	<table width="100%" border="1" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center" colspan="2">Voltage</td>
	</tr>
	<tr>
		<td align="center" width="25%">Fan's</td>
		<td align="center">${vol_f} mV</td>
	</tr>
	<tr>
		<td align="center" width="25%">+5V</td>
		<td align="center">${vol_5} mV</td>
	</tr>
	<tr>
		<td align="center" width="25%">+12V</td>
		<td align="center">${vol_12} mV</td>
	</tr>
	</table>
</td>
</tr>
<tr>
<td>
	<table width="100%" border="1" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center" colspan="2">Fun's</td>
	</tr>
	<tr>
		<td align="center" width="25%">1</td>
		<td align="center">${fun_1} RPM</td>
	</tr>
	<tr>
		<td align="center" width="25%">2</td>
		<td align="center">${fun_2} RPM</td>
	</tr>
	<tr>
		<td align="center" width="25%">3</td>
		<td align="center">${fun_3} RPM</td>
	</tr>
	<tr>
		<td align="center" width="25%">4</td>
		<td align="center">${fun_4} RPM</td>
	</tr>
	</table>
</td>
</tr>
<tr>
<td>
	<table width="100%" border="1" cellspacing="0" cellpadding="0">
	<tr>
		<td align="center">WatchDog</td>
	</tr>
	<tr>
		<td align="center">${watch_dog}</td>
	</tr>
	</table>
</td>
</tr>
</table>
EOF

print end_html();