init

.config/i3blocks/openvpn-systemd/README.md

@@ -0,0 +1,14 @@
+# openvpn-systemd
+
+Show connection status of VPNs managed by systemd.
+
+![](openvpn-systemd.png)
+
+# Config
+
+```ini
+[openvpn-systemd]
+command=$SCRIPT_DIR/openvpn-systemd
+interval=20
+label=VPN 
+```

.config/i3blocks/openvpn-systemd/openvpn-systemd

@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use utf8;
+
+use JSON::Parse 'parse_json';
+
+my $units = parse_json(`systemctl list-units --output=json --state=active 'openvpn-client@*'`);
+
+if (@$units) {
+    my @names = sort map {
+        $_->{unit} =~ /^openvpn-client@(.*)\.service$/;
+        $1;
+    } @$units;
+    print join(' ', @names) . "\n";
+    print "up\n";
+    print "#00FF00\n";
+} else {
+    print "down\n";
+    print "down\n";
+    print "#FF0000\n";
+}