$send = IO::Socket::IP->new( Proto => 'udp',
Broadcast => 1,
PeerPort => 'bootps(67)',
- PeerAddr => inet_ntoa(INADDR_LOOPBACK),#(INADDR_BROADCAST),
- #PeerAddr => inet_ntoa(INADDR_BROADCAST),
+ #PeerAddr => inet_ntoa(INADDR_LOOPBACK),#(INADDR_BROADCAST),
+ PeerAddr => inet_ntoa(INADDR_BROADCAST),
)
|| die "Socket (send) creation error: $@\n"; # yes, it uses $@ here
# create DHCP Packet DISCOVER
+my $xid = int(rand(0xFFFFFFFF));
$discover = Net::DHCP::Packet->new(
Chaddr => $mymac,
Giaddr => $send->sockhost(),
- Xid => int(rand(0xFFFFFFFF)), # random xid
+ Xid => $xid, # random xid
DHO_DHCP_MESSAGE_TYPE() => DHCPDISCOVER(),
Flags => 0x8000,
DHO_VENDOR_CLASS_IDENTIFIER() => 'foo',
logger("Request for ip was denied");
exit;
}
+
$serverip = $response->getOptionValue(DHO_DHCP_SERVER_IDENTIFIER());
$myip = $response->yiaddr();
# create DHCP Packet REQUEST
$request = Net::DHCP::Packet->new(
- Xid => int(rand(0xFFFFFFFF)), # random xid
+ Xid => $xid, # random xid
Chaddr => $mymac,
Giaddr => $send->sockhost(),
DHO_DHCP_MESSAGE_TYPE() => DHCPREQUEST(),