sethp/currentcost
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Browse source
This commit is contained in:
Dale Lane 2008-11-26 21:40:59 +00:00
parent 46b1663813
commit 9302406fbc
10 changed files with 823 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
perl/win_currentcost.pl Normal file
View file

@ -0,0 +1,32 @@
# read the currentcost meter and publish the power in KW, to the nearest
# 100 watts, to an MQTT broker, along with temperature and history data.
# Andy S-C 16-Sep-07
########################################################################
$your_name = "yourname";
#$serial_port = "/dev/ttyUSB0";
$broker = "127.0.0.1";
#$broker = "realtime.ngi.ibm.com";
########################################################################
use CurrentCost;
while (1)
{
#open (SERIAL,"+<$serial_port") || die "can't open $serial_port";
$cc = new CurrentCost(broker=>$broker,name=>$your_name,debug=>1);
while (<>)
{
$xml = $_;
$cc->publish_all($xml);
}
}