#!/usr/bin/perl

use strict;
use CGI qw(:all escapeHTML);
use CGI::Carp qw(fatalsToBrowser);

# get the current temp and transform that into a 'percentage' of the thermometer


# Did we push the button or no?
my $choice = lc (param ("choice"));

print header();
print start_html ("Joe's Thermostat");

# I'm a virgin
if ( "$choice" eq "")
{
	;
}
# It's not going to be a white wedding
elsif ( "$choice" eq "submit")
{
	open(THERMOSTAT, ">/gdata/data/thermostat")
    		or print("Could not write to file! \n");	
	print THERMOSTAT param('temp');
	close(THERMOSTAT);
	#system("/gdata/bin/thermo.pl");
}
# I'm a dirty, dirty whore
else
{
	 print p (escapeHTML ("Something is amiss, either you're trying to cheat the system, or there's a real problem with browser interaction: $choice"));
}

# Read the current temp and the current thermostat setting
open(THERMOSTAT2, "< /gdata/data/thermostat")
	or print("Could not read thermostat");	
my $thermo=<THERMOSTAT2>; 
if ( ! $thermo )
{
	$thermo='50';
}
my $slider_pos=$thermo-50;
$slider_pos=$slider_pos*3.33;
close(THERMOSTAT2);

open(TEMPERATURE, "< /gdata/data/temperature")
	or print("Could not read temperature");	
my @current_temps=<TEMPERATURE>;
close(TEMPERATURE);

my $current_temp = 'hey';

foreach my $temp_temp (@current_temps)
{
        if ( "$temp_temp" =~ /Sensor\ 1/ )
        {
                $temp_temp =~ s/.*F: //;
                chomp $current_temp;
                $current_temp=$temp_temp;
        }
}

if ( ! $current_temp )
{
	$current_temp='80';
}
my $current_percent=$current_temp - 50;
$current_percent=$current_percent * 3.33;

# The thermometer css 
print('<style>

	
	.gauge{
		width: 77px;
		height: 442px;
		position:relative;
		background: #333 url(http://www.joewise.com/gauge.gif) top left no-repeat;
		
	}
	
	.gauge .current-value {
		position:absolute;
		left: 0px;
		bottom: 0px;
		height: ');
print("$current_percent");
print('%;
		text-align:center;
		width: 100%;
		background: red url(http://www.joewise.com/gauge.gif) bottom right no-repeat;
	}
	
	.gauge .current-value p {
		display:none;
		
	}
</style>');

# These are the scripts for the thermostat slider
print ('<script
    		language="JavaScript"
    		src="http://www.joewise.com/slider.js" >
	</script>
	<link
    		href="http://www.joewise.com/default.css"
    		rel="stylesheet"
    		type="text/css" >');

print("<center>");
print('<div class="progress">
	<h4>Current Temperature</h4>');

print h1("$current_temp F");

print('<div class="gauge" id=thermometer>
<div class="current-value" id="thermometer-current">
</div>
</div>');


print start_form();

print ('<TABLE border="0"><TR><TD>');

print ('<div class="carpe_horizontal_slider_track" style="background-color: #bcd; border-color: #def #9ab #9ab #def;">
    		<div class="carpe_horizontal_slider_slit" style="background-color: #003; border-color: #99b #ddf #ddf #99b;">&nbsp;</div>
    			<div class="carpe_horizontal_slider"
        			id="thermo_slider"
        			orientation="horizontal"
        			distance="100"
        			display="temp"
        			style="left: ');

print ("$slider_pos");

print ('px; background-color: #369; border-color: #69c #036 #036 #69c;">&nbsp;</div>
		</div>');

print('<div class="carpe_slider_display_holder" style="background-color: #bcd; border-color: #def #9ab #9ab #def;">
		<input class="carpe_slider_display"
        		id="temp"
        		type="text"
			style="background-color: #bcd; color: #258;"
        		name="temp"
        		from="50"
        		to="80"
        		valuecount="31"
        		value="');
print("$thermo");
print('" typelock="off" ></div><br>');
print ('</TR></TD></TABLE>');

print p("Slide thermostat to desired temp and hit 'Submit.'");
print p();
print p(submit (-name => "choice",
		-value =>"Submit"));
print end_form();

print("</center>");
print end_html();