/[pxelator]/lib/PXElator/dhcpd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/dhcpd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 267 by dpavlin, Wed Aug 19 17:01:20 2009 UTC revision 393 by dpavlin, Tue Sep 8 16:54:35 2009 UTC
# Line 54  sub client_mac_ip { Line 54  sub client_mac_ip {
54    
55          if ( $ip = client::ip_from_mac( $mac ) ) {          if ( $ip = client::ip_from_mac( $mac ) ) {
56                  print "RENEW $mac $ip\n";                  print "RENEW $mac $ip\n";
57                    client::save_ip_mac( $ip, $mac );
58                  return $ip;                  return $ip;
59          } elsif ( in_our_range( $request_ip ) ) {          } elsif ( in_our_range( $request_ip ) ) {
60                  $ip = client::next_ip( $mac );                  $ip = client::next_ip( $mac );
# Line 105  sub process_packet { Line 106  sub process_packet {
106    
107          $dhcp->comment( $transaction++ );          $dhcp->comment( $transaction++ );
108    
109          my $mac = substr($dhcp->chaddr(),0,$dhcp->hlen()*2);          my $mac = format::mac( substr($dhcp->chaddr(),0,$dhcp->hlen()*2) );
110          my $ip = client_mac_ip($mac, $dhcp->ciaddr);          my $ip = client_mac_ip($mac, $dhcp->ciaddr);
111    
112          my $hostname = $dhcp->getOptionValue(DHO_HOST_NAME);          my $hostname = $dhcp->getOptionValue(DHO_HOST_NAME);
113          print "$ip ", client::conf( $ip => 'hostname', default => $hostname ), " >> /etc/hosts\n";          print "$ip ", client::conf( $ip => 'hostname', default => $hostname ), " >> /etc/hosts\n" if $hostname;
114    
115          my $audit = { mac => format::mac($mac), ip => $ip, hostname => $hostname,          my $audit = { mac => $mac, ip => $ip, hostname => $hostname,
116                  options => {                  options => {
117                          map {                          map {
118                                  ( $_ => $dhcp->getOptionValue( $_ ) )                                  ( $_ => $dhcp->getOptionValue( $_ ) )
# Line 150  sub process_packet { Line 151  sub process_packet {
151          my $options = {          my $options = {
152                  DHO_SUBNET_MASK()       => $server::netmask,                  DHO_SUBNET_MASK()       => $server::netmask,
153                  DHO_ROUTERS()           => $server::ip,                  DHO_ROUTERS()           => $server::ip,
154                  DHO_DOMAIN_NAME()       => $server::domain_name,                  DHO_DOMAIN_NAME()       => $server::domain,
155                  DHO_NAME_SERVERS()      => $server::ip,                  DHO_NAME_SERVERS()      => $server::ip,
156                  DHO_DOMAIN_NAME_SERVERS() => $server::ip,                  DHO_DOMAIN_NAME_SERVERS() => $server::ip,
157                  DHO_HOST_NAME()         => client::conf( $ip, 'hostname' ),                  DHO_HOST_NAME()         => client::conf( $ip, 'hostname' ),
Legend:
Removed from v.267  
changed lines
  Added in v.393
  ViewVC Help
Powered by ViewVC 1.1.26