From f0e56caa3ccce6e22cf42c3689a2e85750e8aabc Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 3 Oct 2013 18:41:45 +0200
Subject: [PATCH] gluon-mesh-vpn-fastd: clean up configuration script

---
 gluon/gluon-mesh-vpn-fastd/fastd.pl | 73 ++++++++++++++++-------------
 1 file changed, 41 insertions(+), 32 deletions(-)

diff --git a/gluon/gluon-mesh-vpn-fastd/fastd.pl b/gluon/gluon-mesh-vpn-fastd/fastd.pl
index dd2f64e..85b24c8 100644
--- a/gluon/gluon-mesh-vpn-fastd/fastd.pl
+++ b/gluon/gluon-mesh-vpn-fastd/fastd.pl
@@ -3,63 +3,72 @@ my $backbone = $cfg->{backbone};
 
 my $add_methods = '';
 for (@{$cfg->{methods}}) {
-	$add_methods .= "add_list fastd.mesh_vpn.method='$_'\n";
+	$add_methods .= "uci add_list fastd.mesh_vpn.method='$_'\n";
 }
 
 my $set_peer_limit;
 if ($backbone->{limit}) {
-	$set_peer_limit = "set fastd.mesh_vpn_backbone.peer_limit='$backbone->{limit}'\n";
+	$set_peer_limit = "uci_set fastd mesh_vpn_backbone peer_limit '$backbone->{limit}'\n";
 }
 else {
-	$set_peer_limit = "delete fastd.mesh_vpn_backbone.peer_limit\n";
+	$set_peer_limit = "uci_remove fastd mesh_vpn_backbone peer_limit\n";
 }
 
 print <<END;
 #/bin/sh
 
-uci -q batch <<EOF
-set fastd.mesh_vpn='fastd'
-set fastd.mesh_vpn.syslog_level='verbose'
-delete fastd.mesh_vpn.config
-delete fastd.mesh_vpn.config_peer_dir
+. /lib/functions.sh
+. /lib/gluon/functions/sysconfig.sh
 
-set fastd.mesh_vpn.interface='mesh-vpn'
-set fastd.mesh_vpn.mode='tap'
-set fastd.mesh_vpn.mtu='$cfg->{mtu}'
-delete fastd.mesh_vpn.method
+uci_add fastd fastd mesh_vpn
+
+uci_remove fastd mesh_vpn config
+uci_remove fastd mesh_vpn config_peer_dir
+
+uci_set fastd mesh_vpn syslog_level 'verbose'
+uci_set fastd mesh_vpn interface 'mesh-vpn'
+uci_set fastd mesh_vpn mode 'tap'
+uci_set fastd mesh_vpn mtu '$cfg->{mtu}'
+
+uci_remove fastd mesh_vpn method
 $add_methods
-delete fastd.mesh_vpn_backbone
-set fastd.mesh_vpn_backbone='peer_group'
-set fastd.mesh_vpn_backbone.enabled='1'
-set fastd.mesh_vpn_backbone.net='mesh_vpn'
+
+uci_remove fastd mesh_vpn_backbone
+uci_add fastd peer_group mesh_vpn_backbone
+uci_set fastd mesh_vpn_backbone enabled '1'
+uci_set fastd mesh_vpn_backbone net 'mesh_vpn'
 $set_peer_limit
 END
 
 foreach my $name (sort keys %{$backbone->{peers}}) {
 	my $peer = $backbone->{peers}->{$name};
 	print <<EOF;
-
-delete fastd.mesh_vpn_backbone_peer_$name
-set fastd.mesh_vpn_backbone_peer_$name='peer'
-set fastd.mesh_vpn_backbone_peer_$name.enabled='1'
-set fastd.mesh_vpn_backbone_peer_$name.net='mesh_vpn'
-set fastd.mesh_vpn_backbone_peer_$name.group='mesh_vpn_backbone'
-set fastd.mesh_vpn_backbone_peer_$name.key='$peer->{key}'
+uci_remove fastd 'mesh_vpn_backbone_peer_$name'
+uci_add fastd peer 'mesh_vpn_backbone_peer_$name'
+uci_set fastd 'mesh_vpn_backbone_peer_$name' enabled '1'
+uci_set fastd 'mesh_vpn_backbone_peer_$name' net 'mesh_vpn'
+uci_set fastd 'mesh_vpn_backbone_peer_$name' group 'mesh_vpn_backbone'
+uci_set fastd 'mesh_vpn_backbone_peer_$name' key '$peer->{key}'
 EOF
 
 	for (@{$peer->{remotes}}) {
-		print "add_list fastd.mesh_vpn_backbone_peer_$name.remote='$_'\n";
+		print "uci add_list fastd.mesh_vpn_backbone_peer_$name.remote='$_'\n";
 	}
 }
 
-print <<END;
+print <<'END';
 
-commit fastd
+uci_add network interface mesh_vpn
+uci_set network mesh_vpn ifname 'mesh-vpn'
+uci_set network mesh_vpn proto 'batadv'
+uci_set network mesh_vpn mesh 'bat0'
 
-set network.mesh_vpn='interface'
-set network.mesh_vpn.ifname='mesh-vpn'
-set network.mesh_vpn.proto='batadv'
-set network.mesh_vpn.mesh='bat0'
-commit network
-EOF
+mainaddr=$(sysconfig primary_mac)
+oIFS="$IFS"; IFS=":"; set -- $mainaddr; IFS="$oIFS"
+b2mask=0x02
+vpnaddr=$(printf "%02x:%s:%s:%02x:%s:%s" $(( 0x$1 | $b2mask )) $2 $3 $(( (0x$4 + 1) % 0x100 )) $5 $6)
+uci_set network mesh_vpn macaddr "$vpnaddr"
+
+uci_commit fastd
+uci_commit network
 END