--- bin/bootpd.pl	2007/11/17 00:12:12	62
+++ bin/bootpd.pl	2007/11/18 00:55:42	63
@@ -68,7 +68,7 @@
 		warn ">> ",$sock->peeraddr,":",$sock->peerport," send $ip with server $ip_server\n",$packet->toString(),"\n";
 
 		my $reply = IO::Socket::INET->new(
-			LocalAddr => '10.0.0.100',
+			LocalAddr => $ip_server,
 			LocalPort => 67,
 			Proto => "udp",
 			Broadcast => 1,
@@ -81,6 +81,8 @@
 		my $buff = $packet->serialize();
 		$reply->send( $buff, 0 ) or die "Error sending: $!\n";
 
+#		system("arp -s $ip ",$dhcp->chaddr());
+
 	} else {
 		print "No bootp request.\n";
 	}