--- bin/dhcpd.pl	2009/07/26 00:38:57	1
+++ bin/dhcpd.pl	2009/07/26 13:58:39	3
@@ -14,7 +14,8 @@
 
 my $debug = shift @ARGV;
 
-my $ip_server = '10.0.0.100';
+our $server_ip;
+require "config.pl";
 
 my $sock = IO::Socket::INET->new(
 	LocalPort	=> 67,
@@ -30,6 +31,7 @@
 
 my $_ip = 10;
 my $_mac2ip;
+my $_ip_file;
 
 sub client_ip {
 	my ( $mac ) = @_;
@@ -78,7 +80,7 @@
 			Flags	=> $dhcp->flags(),
 			Ciaddr	=> $dhcp->ciaddr(),
 			Yiaddr	=> $ip,
-			Siaddr	=> $ip_server,
+			Siaddr	=> $server_ip,
 			Giaddr	=> $dhcp->giaddr(),
 			Chaddr	=> $dhcp->chaddr(),
 			File	=> 'undionly.kpxe',
@@ -86,12 +88,12 @@
         	DHO_SUBNET_MASK() => '255.0.0.0',
 		);
 
-		warn ">> $mac == $ip server $ip_server\n";
+		warn ">> $mac == $ip server $server_ip\n";
 		
 		warn "## ",$packet->toString(),"\n" if $debug;
 
 		my $reply = IO::Socket::INET->new(
-			LocalAddr => $ip_server,
+			LocalAddr => $server_ip,
 			LocalPort => 67,
 			Proto => "udp",
 			Broadcast => 1,