) aan mijn TL-2000 inverter aangesloten.
Nu wil ik deze aan mijn raspberry aansluiten en dan de data loggen naar pvoutput.org
#! /usr/bin/perl
#
# Eversolar Power Management Unit data logger
# - Tested with Eversolar TL2000AS Inverter
#
# Steve Cliffe <steve@sjcnet.id.au>
#
# Version 0.1b - 20 December 2010
# * Initial Beta release
#
use IO::Socket::INET;
$PMU_PORT = 80;
$PMU_IP = '192.168.2.24';
$logfile = '/var/log/pmulogger';
$statfile = '/var/tmp/pmustats';
$timezone = 'CET Central European Time';
$timezone_dst = 'CEST Central European Summer Time';
$debug = 1;
##
## Dump a buffer in hex for debugging purposes
##
sub print_bytes {
my $buf = shift;
my $len = shift;
my $line_count = 0;
if ($len <= 0) {
return;
}
my @bytes = unpack("C$len", $buf);
if ($len > 0) {
for (my $i=0; $i<$len; $i++) {
printf "%02x ", $bytes[$i];
if ($line_count++ > 15) {
$line_count = 0;
print "\n";
}
}
}
printf "\n";
}
##
## Connect to the PMU
##
sub pmu_connect {
my $connected = 0;
my $connected2 = 0;
while ($connected == 0) {
our $sock = new IO::Socket::INET (
PeerAddr => $PMU_IP,
PeerPort => $PMU_PORT,
Proto => 'tcp',
);
if ($sock) {
$connected = 1;
} else {
pmu_log("Unable to connect to the PMU ... sleeping");
if ($debug) {
print "Unable to connect to the PMU ... sleeping\n";
}
sleep 60;
}
}
my $timeo = pack("l!l!", 15, 0);
$sock->sockopt(SO_RCVTIMEO, $timeo);
$sock->sockopt(SO_SNDTIMEO, $timeo);
#
# The following is a bit ugly and based on watching the exchange between a PC
# running the AS Control software and the PMU using WireShark.
# There are some parts of the first packet that is sent that I couldn't work out
# so I just stuck wih the values I saw in the packet trace.
#
@buf = (0xaa, 0x55, 0x01, 0x00, 0xbc, 0xa8, 0xfd, 0xff, 0xff);
my $count = $#buf + 1;
my $len = length($timezone);
my @bytes = unpack("C$len", $timezone);
for (my $i=0; $i<$len;$i++) {
$buf[$count++] = $bytes[$i];
$buf[$count++] = 0x00;
}
pop(@buf);
@buf2 = (0x00, 0x00, 0x00, 0x16, 0x08, 0x74, 0x75, 0xec, 0x00, 0x00, 0x00, 0x71, 0xf8, 0x69, 0x77, 0x00,
0x00, 0x04, 0x00, 0x00, 0x00, 0x01, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00);
@buf = (@buf, @buf2);
$count += $#buf2;
my $len = length($timezone_dst);
my @bytes = unpack("C$len", $timezone_dst);
for (my $i=0; $i<$len;$i++) {
$buf[$count++] = $bytes[$i];
$buf[$count++] = 0x00;
}
pop(@buf);
@buf2 = (0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf6, 0x0f, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00,
0x00, 0x0a, 0x00, 0x00, 0x00, 0x01, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
0xc4, 0xff, 0xff, 0xff);
@buf = (@buf, @buf2);
$count += $#buf2;
# Now add time & date
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time);
my $time_buf = pack('v7C4', 1900+$year, 1+$mon, $wday, $mday, $hour, $min, $sec,
0xfb, 0x02, 0x3b, 0x91);
@buf2 = unpack("C18", $time_buf);
@buf = (@buf, @buf2);
$count += $#buf2 + 1;
$buf3 = pack("C$count", @buf);
print_bytes($buf3, $count);
print $sock "$buf3";
$sock->recv($buf, 128);
my $len = length($buf);
if ($debug) {
print "-> ";
print_bytes($buf3, 15);
print "Read $len bytes\n";
print_bytes($buf, 32);
}
while ($connected2 == 0) {
my $cmd = pack('CCCCCCCC', 0xaa, 0x55, 0x11, 0x00, 0x01, 0x00, 0x0f, 0x6d);
print $sock "$cmd";
$sock->recv($buf, 128);
my $len = length($buf);
if ($debug) {
print "-> ";
print_bytes($cmd, 15);
print "Read $len bytes\n";
print_bytes($buf, 32);
}
if ($len > 0) {
$connected_inverter = unpack("x22a16", $buf);
$connected2 = 1;
pmu_log("Connected to inverter: $connected_inverter");
if ($debug) {
print "Connected to inverter: $connected_inverter\n";
}
} else {
sleep 10;
}
}
$cmd = pack('CCCCCCC', 0xaa, 0x55, 0x73, 0x00, 0x00, 0x24, 0xec);
print $sock "$cmd";
$sock->recv($buf, 8);
return $connected_inverter;
}
##
## Write a log file entry
##
sub pmu_log {
my $msg = shift;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timestamp = sprintf ("%02d/%02d/%04d %02d:%02d : ",$mday,$mon+1,$year+1900,$hour,$min);
open(OUT, ">>$logfile") or die "Cannot open file $logfile for writing\n";
printf(OUT "%s: %s\n", $timestamp, $msg);
close OUT;
}
##
## Main Loop
##
our $sock = 0;
while (1) {
if ($sock == 0) {
my $connected_inverter = pmu_connect(); # Won't return until connected
}
$cmd = pack('CCCCCa16CC', 0xaa, 0x55, 0x13, 0x00, 0x10, $connected_inverter, 0x9e, 0x39);
print $sock "$cmd";
$sock->recv($buf, 128);
my $len = length($buf);
if ($debug) {
print "-> ";
print_bytes($cmd, 15);
print "Read $len bytes\n";
print_bytes($buf, 32);
}
if ($len == 0) {
if ($debug) {
print "Lost contact with inverter - reconnecting\n";
}
pmu_connect(); # Inverter has gone to sleep for the night?
next;
}
if ($len < 95) {
if ($debug) {
print "Short read in main loop\n";
}
sleep 10;
next;
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timestamp = sprintf ("%02d/%02d/%04d %02d:%02d : ",$mday,$mon+1,$year+1900,$hour,$min);
# Decode packet
my @packet = unpack("C128", $buf);
my $pac_lsb = $packet[37];
my $pac_msb = $packet[38];
my $pac = 256 * $pac_msb + $pac_lsb;
my $etot_lsb = $packet[41];
my $etot_msb = $packet[42];
my $etot = 256 * $etot_msb + $etot_lsb;
my $etoday_lsb = $packet[53];
my $etoday_msb = $packet[54];
my $etoday = 256 * $etoday_msb + $etoday_lsb;
open(OUT, ">>$statfile") or die "Cannot open file $statfile for writing\n";
printf(OUT "%s%d:%d:%d\n", $timestamp, $pac, $etot, $etoday);
close OUT;
pmu_log("Output: $pac W, Total: $etot W, Today: $etoday W");
if ($debug) {
printf "%s%d:%d:%d\n", $timestamp, $pac, $etot, $etoday;
}
sleep 30;
}
close $sock;
EDIT: Uiteraard heb ik hier het ipadres naar de mijne gezet en de poort ook veranderd. zonder dat, deed het scriptje niets.
hij maakt verder ook geen logfiles. wat hij wel zou moeten doen volgens het script.
het script lijkt me al oud, de pmu van dit jaar, dus ik ben bang dat daar het hele probleem ligt. Maar ik heb geen idee of het mogelijk is om het script aan te passen, zodat het wel werkt.
Mijn programmeer skills zijn: googlen copy paste etc.
:strip_icc():strip_exif()/u/5491/crop64b3bb8f73156_cropped.jpg?f=community)
:strip_icc():strip_exif()/u/50867/k750logo1.jpg?f=community)
:strip_icc():strip_exif()/u/178315/1foto%2520kopie.jpg?f=community)
:strip_icc():strip_exif()/u/553329/crop65f2e249c118d_cropped.jpg?f=community)
!.
/u/38607/crop563536a9aac26_cropped.png?f=community)
:strip_icc():strip_exif()/u/436093/19382.jpg?f=community)
:strip_icc():strip_exif()/u/67189/rawr-avatar.jpg?f=community){kind=avatar}
:strip_icc():strip_exif()/u/212310/6.jpg?f=community)
:strip_icc():strip_exif()/u/13091/ATARI-logo.jpg?f=community){kind=logo}
/u/11473/notAvailable.PNG?f=community)
/u/311251/jelger_64.png?f=community)
:strip_exif()/u/382442/crop5bb654253fa3d_cropped.gif?f=community)
Met weinig linux kennis is dat dus vrees ik een no go.
:strip_icc():strip_exif()/u/192109/zonnebloem.jpg?f=community)
:strip_icc():strip_exif()/u/6907/crop565ea06cc073d_cropped.jpeg?f=community)
/u/179202/crop56484cad6dfaa_cropped.png?f=community)
:strip_exif()/u/3157/sail4L_S70.gif?f=community)
/u/47989/dracula60x60.png?f=community)
/u/138672/crop5af2a201e3aaf_cropped.png?f=community)
:strip_icc():strip_exif()/u/146731/crop562615a0aa64c.jpeg?f=community)
:strip_icc():strip_exif()/u/62294/Copy%2520of%2520sq-qotsa-go-flow-vid-int.jpg?f=community)
/u/53007/DustPuppy.png?f=community)
:strip_icc():strip_exif()/u/85688/avatar.jpg?f=community){kind=avatar}
:strip_icc():strip_exif()/u/56750/mcBIcon.jpg?f=community)
:strip_icc():strip_exif()/u/324045/crop61e27c494ec7d_cropped.jpg?f=community)
