From 2a0c0a3dbbdf7fa5040953c0b0d88ad6f62c011e Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Sun, 6 Apr 2014 03:11:04 +0200
Subject: Initial commit. Source; TG13-goodiebag.

---
 tools/dhcp6-nets.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 tools/dhcp6-nets.pl

(limited to 'tools/dhcp6-nets.pl')

diff --git a/tools/dhcp6-nets.pl b/tools/dhcp6-nets.pl
new file mode 100755
index 0000000..3866ac5
--- /dev/null
+++ b/tools/dhcp6-nets.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+while(<STDIN>){
+	my ($row, $v6) = split;
+	$v6 =~ s/::1/::/;
+
+	print "subnet6 $v6 {\n";
+	print "\toption domain-name \"$row.tg13.gathering.org\";\n";
+	print "}\n\n";
+}
-- 
cgit v1.2.3