ipif: service-wrap: implementation, get args to service right

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/ipif/service-wrap b/ipif/service-wrap
index 2916750b32b596606a2af4793f795c403946d3f2..7f6dad46becb56bc3fa3cdd422f127b2a9f28c6b 100755 (executable)
--- a/ipif/service-wrap
+++ b/ipif/service-wrap
@@ -103,7 +103,8 @@ our @rnets = ($rnets eq '-' ? () : split /\,/, $rnets);
 sub execreal ($) {
     my ($use_v0config) = @_;
     exec $realservice, $use_v0config, '--',
-       "$local_addr,$peer_addr,$mtu,$protocol",
+       (join ',', $local_addr->addr, $peer_addr->addr,
+                  $mtu, $protocol, $ifname),
        @rnets ? (join ",", map { "$_" } @rnets) : "-"
        or die "exec $realservice: $!\n";
 }