Skip to content

Commit

Permalink
Multiple updates, bringing repo up to date.
Browse files Browse the repository at this point in the history
  • Loading branch information
gfbarros committed Dec 31, 2014
1 parent 891f48d commit 9d3cfd5
Showing 1 changed file with 11 additions and 13 deletions.
24 changes: 11 additions & 13 deletions arduino/oneWire_rrd/oneWire_rrd.pl
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
#!/psp/usr/bin/perl
#!/usr/bin/perl

# 10 therms checked every 1 min, -50min, 150max
# 1 hvac checked every 1 min, -10min (cool), 10max (heat) (0 is off)
Expand Down Expand Up @@ -51,16 +51,14 @@
# T13 = Middle Bed


our $base_path = "/mnt/usb/oneWire_rrd"; # base app path
#our $base_path = "."; # base app path
our $rrdtool = "/mnt/usb/rrdtool/bin/rrdtool"; # rrdtool binary
#our $rrdtool = "rrdtool"; # rrdtool binary
our $db = "$base_path/ow.rrd"; # path to rrd file
our $hvacdb = "$base_path/hvacStats.rrd"; # path to rrd file with hvac historical data
our $rawdb = "$base_path/ow.raw"; # path to raw file
our $hvacStatsFile = "/mnt/usb/lighty/cgi-bin/hvacStats.txt"; # path to hvac stats file for web read
our $htdocs = "$base_path/www"; # directory where the graphs will end up
our $remoteWeb = 'http://127.0.0.1/cgi-bin/getTemps.pl'; # URL to get the data from
our $base_path = "/data/oneWire_rrd"; # base app path
our $rrdtool = "rrdtool"; # rrdtool binary
our $db = "$base_path/ow.rrd"; # path to rrd file
our $hvacdb = "$base_path/hvacStats.rrd"; # path to rrd file with hvac historical data
our $rawdb = "$base_path/ow.raw"; # path to raw file
our $hvacStatsFile = "/var/www/lighttpd/ow/hvacStats.txt"; # path to hvac stats file for web read
our $htdocs = "$base_path/www"; # path to place graphs
our $remoteWeb = 'http://127.0.0.1/ow/getTemps.pl'; # data URL

our $height = 200;
our $width = 800;
Expand Down Expand Up @@ -270,7 +268,7 @@ sub GraphChumby {
destination => $htdocs,
basename => "cby",
timestamp => "both",
periods => [qw(month annual)],
periods => [qw(month annual 3years)],
sources => [qw(T1 T2 T3 T4 T5 T6 T8 T9 T10 T11 T12 T13)],
source_labels => {
T1 => "Attic",
Expand Down Expand Up @@ -588,4 +586,4 @@ sub getHVACstats {

my $ret = `echo '$hvacString' > $hvacStatsFile`;
print "$hvacString\n";
}
}

0 comments on commit 9d3cfd5

Please sign in to comment.