Change settings

diff --git a/dhcp.pl b/dhcp.pl
index 7890766decddfe6cd9bf7d93c22cbb617658b9ef..cd1616e5b5eb980bf490b9dce5ee27c39c5a9327 100644 (file)
--- a/dhcp.pl
+++ b/dhcp.pl
@@ -32,16 +32,17 @@ logger("Opening socket");
 $send = IO::Socket::IP->new(  Proto => 'udp',
                                 Broadcast => 1,
                                 PeerPort => 'bootps(67)',
 $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
                                 )
       || 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(),
 $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',
               DHO_DHCP_MESSAGE_TYPE() => DHCPDISCOVER(),
               Flags => 0x8000,
                          DHO_VENDOR_CLASS_IDENTIFIER() => 'foo',


@@ -71,6 +72,7 @@ if ($response->getOptionValue(DHO_DHCP_MESSAGE_TYPE()) == DHCPNAK()) {
        logger("Request for ip was denied");
        exit;
 }
        logger("Request for ip was denied");
        exit;
 }

+

 $serverip = $response->getOptionValue(DHO_DHCP_SERVER_IDENTIFIER());
 $myip = $response->yiaddr();
 
 $serverip = $response->getOptionValue(DHO_DHCP_SERVER_IDENTIFIER());
 $myip = $response->yiaddr();
 


@@ -78,7 +80,7 @@ logger($response->toString());
 
 # create DHCP Packet REQUEST
 $request = Net::DHCP::Packet->new(
 
 # 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(),
                       Chaddr => $mymac,
                       Giaddr => $send->sockhost(),
                       DHO_DHCP_MESSAGE_TYPE() => DHCPREQUEST(),