Parent Directory | Revision Log | Patch
revision 456 by dpavlin, Sat Jan 2 15:49:09 2010 UTC | revision 457 by dpavlin, Sat Jan 2 17:20:40 2010 UTC | |
---|---|---|
# | Line 121 sub process_packet { | Line 121 sub process_packet { |
121 | ||
122 | config::for_ip( $ip ); | config::for_ip( $ip ); |
123 | ||
124 | my $server; | my $server = server::as_hash_for $ip; |
map { $server->{ $_ } = eval '$server::' . $_ } ( 'ip', 'netmask', 'bcast', 'domain' ); | ||
if ( my $force = client::conf( $ip => 'dhcpd.pl' ) ) { | ||
eval $force; | ||
die "$force\n$@" if $@; | ||
warn "force server ", dump $server; | ||
} | ||
125 | ||
126 | my $packet = { | my $packet = { |
127 | Op => BOOTREPLY(), | Op => BOOTREPLY(), |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |