tools/dhcp6-nets.pl


1
2
3
4
5
6
7
8
9
10
11
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";
}