--- bin/dhcpd.pl	2009/07/26 13:58:39	3
+++ bin/dhcpd.pl	2009/07/26 14:21:48	4
@@ -14,7 +14,7 @@
 
 my $debug = shift @ARGV;
 
-our $server_ip;
+our ( $server_ip, $next_file );
 require "config.pl";
 
 my $sock = IO::Socket::INET->new(
@@ -83,11 +83,13 @@
 			Siaddr	=> $server_ip,
 			Giaddr	=> $dhcp->giaddr(),
 			Chaddr	=> $dhcp->chaddr(),
-			File	=> 'undionly.kpxe',
+			File	=> $_ip_file->{$ip} || 'undionly.kpxe',
 #			DHO_DHCP_MESSAGE_TYPE() => DHCPACK(),
         	DHO_SUBNET_MASK() => '255.0.0.0',
 		);
 
+		$_ip_file->{$ip} = $next_file;
+
 		warn ">> $mac == $ip server $server_ip\n";
 		
 		warn "## ",$packet->toString(),"\n" if $debug;