{"id":4729,"date":"2025-02-28T21:28:40","date_gmt":"2025-03-01T04:28:40","guid":{"rendered":"http:\/\/www.sheer.us\/weblogs\/?p=4729"},"modified":"2025-02-28T21:28:40","modified_gmt":"2025-03-01T04:28:40","slug":"victron-energy-munin-plugins-for-cerbo-gx-monitoring","status":"publish","type":"post","link":"http:\/\/www.sheer.us\/weblogs\/programming\/perl\/victron-energy-munin-plugins-for-cerbo-gx-monitoring","title":{"rendered":"Victron Energy munin plugins for Cerbo GX monitoring"},"content":{"rendered":"

Charger amps<\/p>\n


\n#!\/usr\/bin\/perl<\/p>\n
use Device::Modbus::TCP::Client;<\/p>\n
my $client = Device::Modbus::TCP::Client->new(
\n         host => ‘put your GX ip or name here’
\n);<\/p>\n
$config = 1 if(“config” ~~ @ARGV);
\n$chargers = [ 223, 224, 226, 238, 239 ]; # devices<\/p>\n
if($config) {
\n        print “graph_title charger amps\\n”;
\n        print “graph_category victron\\n”;
\n        foreach $charger (@{$chargers}) {
\n                print $charger . “_amps.label Amps\\n”;
\n        }
\n} else {
\n        foreach $charger (@{$chargers}) {
\n                my $req = $client->read_holding_registers( unit => $charger, address => 772, quantity => 1 );
\n                $client->send_request($req) || die “Send error: $!”;
\n                my $response = $client->receive_response;
\n                print $charger . “_amps.value ” . uint16_to_int( @{$response->{‘message’}->{‘values’}}[0]) \/ 10 . “\\n”;<\/p>\n
        }
\n}<\/p>\n
sub uint16_to_int {
\n    my $uint16 = shift;
\n    return $uint16 > 0x7FFF ? $uint16 – 0x10000 : $uint16;
\n}
\n<\/PRE><\/p>\n
Charger overall power<\/p>\n

\n#!\/usr\/bin\/perl<\/p>\n
use Device::Modbus::TCP::Client;<\/p>\n
my $client = Device::Modbus::TCP::Client->new(
\n         host => ‘put your GX ip or name here’
\n);<\/p>\n
$config = 1 if(“config” ~~ @ARGV);<\/p>\n
$chargers = [ 223, 224, 226, 238, 239 ]; # adjust with your actual list. See Settings -> Services -> Modbus for a list<\/p>\n
if($config) {
\n        print “graph_title charger total watts\\n”;
\n        print “graph_category victron\\n”;
\n        print “total_watts.label watts\\n”;
\n} else {
\n        my $total = 0;<\/p>\n
        foreach $charger (@{$chargers}) {
\n                my $req = $client->read_holding_registers( unit => $charger, address => 789, quantity => 1 );
\n                $client->send_request($req) || die “Send error: $!”;
\n                my $response = $client->receive_response;
\n                $total += uint16_to_int( @{$response->{‘message’}->{‘values’}}[0]) \/ 10;
\n        }<\/p>\n
        print “total_watts.value $total\\n”;
\n}<\/p>\n
sub uint16_to_int {
\n    my $uint16 = shift;
\n    return $uint16 > 0x7FFF ? $uint16 – 0x10000 : $uint16;
\n}
\n<\/PRE><\/p>\n
Charger individual power<\/p>\n

\n#!\/usr\/bin\/perl<\/p>\n
use Device::Modbus::TCP::Client;<\/p>\n
my $client = Device::Modbus::TCP::Client->new(
\n         host => ‘put your GX name or IP here’
\n);<\/p>\n
$config = 1 if(“config” ~~ @ARGV);<\/p>\n
$chargers = [ 223, 224, 226, 238, 239 ];<\/p>\n
if($config) {
\n        print “graph_title charger watts\\n”;
\n        print “graph_category victron\\n”;
\n        foreach $charger (@{$chargers}) {
\n                print $charger . “_watts.label Amps\\n”;
\n        }
\n} else {
\n        foreach $charger (@{$chargers}) {
\n                my $req = $client->read_holding_registers( unit => $charger, address => 789, quantity => 1 );
\n                $client->send_request($req) || die “Send error: $!”;
\n                my $response = $client->receive_response;
\n                print $charger . “_watts.value ” . uint16_to_int( @{$response->{‘message’}->{‘values’}}[0]) \/ 10 . “\\n”;<\/p>\n
        }
\n}<\/p>\n
sub uint16_to_int {
\n    my $uint16 = shift;
\n    return $uint16 > 0x7FFF ? $uint16 – 0x10000 : $uint16;
\n}
\n<\/PRE><\/p>\n
inverter state of charge<\/p>\n

\n#!\/usr\/bin\/perl<\/p>\n
use Device::Modbus::TCP::Client;<\/p>\n
my $client = Device::Modbus::TCP::Client->new(
\n         host => ‘put your GX name or IP here’
\n);<\/p>\n
$config = 1 if(“config” ~~ @ARGV);<\/p>\n
my $req = $client->read_holding_registers( unit => 227, address => 30, quantity => 1 );<\/p>\n
$client->send_request($req) || die “Send error: $!”;
\nmy $response = $client->receive_response;<\/p>\n
if($config) {
\n        print “graph_title state of charge\\n”;
\n        print “graph_category victron\\n”;
\n        print “inv_soc.label SOC\\n”;
\n} else {
\n        print “inv_soc.value ” . uint16_to_int( @{$response->{‘message’}->{‘values’}}[0]) \/ 10 . “\\n”;
\n}<\/p>\n
sub uint16_to_int {
\n    my $uint16 = shift;
\n    return $uint16 > 0x7FFF ? $uint16 – 0x10000 : $uint16;
\n}
\n<\/PRE><\/p>\n
Inverter bus voltage<\/p>\n

\n#!\/usr\/bin\/perl
\nuse Device::Modbus::TCP::Client;<\/p>\n
my $client = Device::Modbus::TCP::Client->new(
\n         host => ‘your GX device goes here’
\n);<\/p>\n
$config = 1 if(“config” ~~ @ARGV);<\/p>\n
my $req = $client->read_holding_registers( unit => 227, address => 26, quantity => 2 );<\/p>\n
$client->send_request($req) || die “Send error: $!”;
\nmy $response = $client->receive_response;<\/p>\n
if($config) {
\n        print “graph_title battery volts\\n”;
\n        print “graph_category victron\\n”;
\n        print “inv_volts.label Volts\\n”;
\n} else {
\n        print “inv_volts.value ” . @{$response->{‘message’}->{‘values’}}[0] \/100 . “\\n”;
\n}
\n<\/PRE><\/p>\n","protected":false},"excerpt":{"rendered":"
Charger amps #!\/usr\/bin\/perl use Device::Modbus::TCP::Client; my $client = Device::Modbus::TCP::Client->new( host => ‘put your GX ip or name here’ ); $config = 1 if(“config” ~~ @ARGV); $chargers = [ 223, 224, 226, 238, 239 ]; # devices if($config) { print “graph_title charger amps\\n”; print “graph_category victron\\n”; foreach $charger (@{$chargers}) { print $charger . “_amps.label Amps\\n”; } […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,3],"tags":[],"_links":{"self":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/4729"}],"collection":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/comments?post=4729"}],"version-history":[{"count":1,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/4729\/revisions"}],"predecessor-version":[{"id":4730,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/4729\/revisions\/4730"}],"wp:attachment":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/media?parent=4729"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/categories?post=4729"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/tags?post=4729"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}