14 |
|
|
15 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
16 |
|
|
17 |
our $server_ip; |
our ( $server_ip, $next_file ); |
18 |
require "config.pl"; |
require "config.pl"; |
19 |
|
|
20 |
my $sock = IO::Socket::INET->new( |
my $sock = IO::Socket::INET->new( |
83 |
Siaddr => $server_ip, |
Siaddr => $server_ip, |
84 |
Giaddr => $dhcp->giaddr(), |
Giaddr => $dhcp->giaddr(), |
85 |
Chaddr => $dhcp->chaddr(), |
Chaddr => $dhcp->chaddr(), |
86 |
File => 'undionly.kpxe', |
File => $_ip_file->{$ip} || 'undionly.kpxe', |
87 |
# DHO_DHCP_MESSAGE_TYPE() => DHCPACK(), |
# DHO_DHCP_MESSAGE_TYPE() => DHCPACK(), |
88 |
DHO_SUBNET_MASK() => '255.0.0.0', |
DHO_SUBNET_MASK() => '255.0.0.0', |
89 |
); |
); |
90 |
|
|
91 |
|
$_ip_file->{$ip} = $next_file; |
92 |
|
|
93 |
warn ">> $mac == $ip server $server_ip\n"; |
warn ">> $mac == $ip server $server_ip\n"; |
94 |
|
|
95 |
warn "## ",$packet->toString(),"\n" if $debug; |
warn "## ",$packet->toString(),"\n" if $debug; |