1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
#!/usr/bin/perl -I /root/tgmanage
use strict;
use Net::IP;
use NetAddr::IP;
BEGIN {
require "include/config.pm";
eval {
require "include/config.local.pm";
};
}
my $base = "/etc";
$base = $ARGV[0] if $#ARGV > -1;
$base .= "/" if not $base =~ m/\/$/ and not $base eq "";
my $dhcpd_base = $base . "dhcp/";
my $dhcpd_conf = $dhcpd_base . "dhcpd.conf";
my $dhcpd_pxeconf = $dhcpd_base . "v4-pxe-boot.conf";
my $dhcpd_wlc_conf = $dhcpd_base . "v4-wlc.conf";
my $dhcpd_voip_conf = $dhcpd_base . "v4-voip.conf";
# primary
my $pri_range = Net::IP->new($nms::config::pri_net_v4) or die ("pri_range fail");
my $pri_mask = $pri_range->mask();
my $pri_net = $pri_range->ip();
# secondary
my $sec_range = Net::IP->new($nms::config::sec_net_v4) or die ("sec_range fail");
my $sec_mask = $sec_range->mask();
my $sec_net = $sec_range->ip();
(my $sec_last = NetAddr::IP->new($nms::config::sec_net_v4)->last()) =~ s/\/[0-9]{1,2}//;
(my $sec_gw = NetAddr::IP->new($nms::config::sec_net_v4)->first()) =~ s/\/[0-9]{1,2}//;
my $sec_num = NetAddr::IP->new($nms::config::sec_net_v4)->num();
my $sec_n = $sec_num - int($sec_num / 4); # don't use more than 1/4 of the net for DHCP
(my $sec_first = NetAddr::IP->new($nms::config::sec_net_v4)->nth($sec_n)) =~ s/\/[0-9]{1,2}//;
# Create main configuration file for DHCP
if ( not -f $dhcpd_conf )
{
print STDERR "Creating file " . $dhcpd_conf . "\n";
open DHCPDFILE, ">" . $dhcpd_conf or die ( $! . " " . $dhcpd_conf);
print DHCPDFILE <<"EOF";
# GENERATED BY make-dhcpd.pl
# 60 min leasetime, 120 min max
default-lease-time 3600;
max-lease-time 7200;
# make server authorative
authoritative;
# Don't let clients set their own FQDN
ignore client-updates;
# enable DDNS
ddns-update-style interim;
# set ddns-hostname
if exists host-name {
ddns-hostname = lcase(option host-name);
} elsif exists fqdn.hostname {
ddns-hostname = lcase(option fqdn.hostname);
} else {
ddns-hostname = binary-to-ascii(10, 8, "-", leased-address);
}
# Domain name (unless overriden elsewhere)
option domain-name "$nms::config::tgname.gathering.org";
option domain-name-servers $nms::config::pri_v4, $nms::config::sec_v4;
key DHCP_UPDATER {
algorithm HMAC-MD5.SIG-ALG.REG.INT;
secret $nms::config::ddns_key;
}
# Servernetwork, Tele
subnet $pri_net netmask $pri_mask {}
# Servernetwork, NOC
# Add small range at the end for PXE
subnet $sec_net netmask $sec_mask {
option subnet-mask $sec_mask;
option routers $sec_gw;
# No DDNS
ddns-updates off;
ddns-hostname = none;
ddns-domainname = none;
# supershort leasetime
default-lease-time 300;
max-lease-time 600;
range $sec_first $sec_last;
}
include "/etc/dhcp/v4-revzones.conf";
include "/etc/dhcp/v4-generated-include.conf";
include "$dhcpd_pxeconf";
include "$dhcpd_wlc_conf";
include "$dhcpd_voip_conf";
EOF
close DHCPDFILE;
}
# Create PXE-boot configuration file for DHCP
if ( not -f $dhcpd_pxeconf )
{
print STDERR "Creating file " . $dhcpd_pxeconf . "\n";
open PXEFILE, ">" . $dhcpd_pxeconf or die ( $! . " " . $dhcpd_pxeconf);
print PXEFILE <<"EOF";
option arch code 93 = unsigned integer 16;
if option arch = 00:07 {
filename "bootx64.efi";
} else {
filename "pxelinux.0";
}
next-server $nms::config::pxe_server_v4;
EOF
close PXEFILE;
}
# Create WLC configuration file
if ( not -f $dhcpd_wlc_conf )
{
print STDERR "Creating file " . $dhcpd_wlc_conf . "\n";
open WLCFILE, ">" . $dhcpd_wlc_conf or die ( $! . " " . $dhcpd_wlc_conf);
print WLCFILE <<"EOF";
option space WLC;
option WLC.controller-address code 43 = text;
set vendor-string = option vendor-class-identifier;
class "access-points" {
# Number of characters has to match the substring
# I.e if "Access Point", you have to use (0, 12)
match if substring (option vendor-class-identifier, 0, 12) = "Access Point";
vendor-option-space WLC;
option WLC.controller-address "$nms::config::wlc1";
}
EOF
close WLCFILE;
}
# Create VoIP config
if ( not -f $dhcpd_voip_conf )
{
print STDERR "Creating file " . $dhcpd_voip_conf . "\n";
open VOIPFILE, ">" . $dhcpd_voip_conf or die ( $! . " " . $dhcpd_voip_conf);
print VOIPFILE <<"EOF";
option space CiscoVOIP;
option CiscoVOIP.cm-tftp-server code 150 = array of ip-address;
class "cisco-voip-lan" {
match if substring (option vendor-class-identifier, 0, 28) = "Cisco Systems, Inc. IP Phone";
vendor-option-space CiscoVOIP;
log( info, concat( "LOLOPHONE: " , option vendor-class-identifier ));
option CiscoVOIP.cm-tftp-server $nms::config::voip1;
next-server $nms::config::voip1;
}
class "cisco-voip-wlan" {
match if substring (option vendor-class-identifier, 0, 33) = "Cisco Systems Inc. Wireless Phone";
vendor-option-space CiscoVOIP;
log( info, concat( "BANANAPHONE: " , option vendor-class-identifier ));
option CiscoVOIP.cm-tftp-server $nms::config::voip1;
next-server $nms::config::voip1;
}
EOF
close VOIPFILE;
}
|
