Inital release

basti122303 · May 9, 2023 · 5edd3e4 · 5edd3e4
commit 5edd3e4
Show file tree

Hide file tree

Showing 2 changed files with 48 additions and 0 deletions.
diff --git a/deye_data2vz b/deye_data2vz
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+# A simple pure perl reimplementation of
+# https://wiki.volkszaehler.org/hardware/channels/solar_inverters/deye
+# I need to query multiple inverters.
+
+use strict;
+use warnings;
+use LWP::UserAgent;
+
+our %config;
+do "/etc/vz/config" or die $@;
+
+my @err;
+my $ua = LWP::UserAgent->new;
+
+foreach my $inverter (@{$config{inverter}}){
+        my $response = $ua->get("http://$inverter->[0]/status.html");
+        $response->authorization_basic($inverter->[2], $inverter->[3]);
+        if ($response->is_success) {
+                my $content = $response->content;
+                for (split /^/, $content) {
+                     chomp();
+                     my $line = $_;
+                     if ($line =~ /(?<=webdata_now_p = ")\d+/) {
+                         $line =~ s/[^0-9]//g;
+                         $response = $ua->get("http://$config{DB_Host}/middleware/data/$inverter->[1].json?operation=add&value=$line");
+                         if (!$response->is_success) {
+                                 push @err,$response->status_line;
+                         }
+                         last;
+                     }
+               }
+       }
+       else {
+               push @err,$response->status_line;
+       }
+}
+foreach (@err) {
+     print "$_\n";
+}
+exit @err ? 1 : 0;
diff --git a/etc/vz/config b/etc/vz/config
@@ -0,0 +1,7 @@
+%config=(
+        DB_Host=>'vzhost.example.com',
+        inverter=>[
+                ['inverter.example.com','<YOUR UUID>','admin','yourpass'],
+                ['inverter2.example.com','<YOUR UUID2>','admin','yourpass'],
+        ],
+);