/[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 260 by dpavlin, Wed Aug 19 10:56:04 2009 UTC revision 413 by dpavlin, Wed Sep 9 14:27:02 2009 UTC
# Line 42  use client; Line 42  use client;
42  sub client_mac_ip {  sub client_mac_ip {
43          my ( $mac, $request_ip ) = @_;          my ( $mac, $request_ip ) = @_;
44    
45            if ( ! $mac ) {
46                    warn "W: no mac in requiest\n";
47                    return;
48            }
49    
50          my $conf = $server::conf;          my $conf = $server::conf;
51          mkdir $conf unless -e $conf;          mkdir $conf unless -e $conf;
52    
# Line 49  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 ( ip::in_dhcp_range( $request_ip ) || $request_ip eq '0.0.0.0' ) {
60                  $ip = client::next_ip( $mac );                  $ip = client::next_ip( $mac );
61                  print "NEW $mac $ip\n";                  print "NEW $mac $ip\n";
62          } else {          } else {
# Line 70  use client; Line 76  use client;
76  our $file;  our $file;
77  our $transaction = 0; # FIXME predictible transaction numbers  our $transaction = 0; # FIXME predictible transaction numbers
78    
 sub ip2bin { pack('C*', split(/\./, $_[0])) };  
 sub in_our_range {  
         my $ip = shift;  
         return 1 if $ip eq '0.0.0.0';  
         return 1 if (  
                 ( ip2bin($ip)         & ip2bin($server::netmask) )  
                 eq  
                 ( ip2bin($server::ip) & ip2bin($server::netmask) )  
         );  
 }  
   
79  sub process_packet {  sub process_packet {
80          my $sock = shift;          my $sock = shift;
81    
# Line 100  sub process_packet { Line 95  sub process_packet {
95    
96          $dhcp->comment( $transaction++ );          $dhcp->comment( $transaction++ );
97    
98          my $mac = substr($dhcp->chaddr(),0,$dhcp->hlen()*2);          my $mac = format::mac( substr($dhcp->chaddr(),0,$dhcp->hlen()*2) );
99          my $ip = client_mac_ip($mac, $dhcp->ciaddr);          my $ip = client_mac_ip($mac, $dhcp->ciaddr);
100    
101          my $hostname = $dhcp->getOptionValue(DHO_HOST_NAME);          my $hostname = $dhcp->getOptionValue(DHO_HOST_NAME);
102          print "$ip ", client::conf( $ip => 'hostname', default => $hostname ), " >> /etc/hosts\n";          print "$ip ", client::conf( $ip => 'hostname', default => $hostname ), " >> /etc/hosts\n" if $hostname;
103    
104          my $audit = { mac => format::mac($mac), ip => $ip, hostname => $hostname,          my $audit = { mac => $mac, ip => $ip, hostname => $hostname,
105                  options => {                  options => {
106                          map {                          map {
107                                  ( $_ => $dhcp->getOptionValue( $_ ) )                                  ( $_ => $dhcp->getOptionValue( $_ ) )
# Line 145  sub process_packet { Line 140  sub process_packet {
140          my $options = {          my $options = {
141                  DHO_SUBNET_MASK()       => $server::netmask,                  DHO_SUBNET_MASK()       => $server::netmask,
142                  DHO_ROUTERS()           => $server::ip,                  DHO_ROUTERS()           => $server::ip,
143                  DHO_DOMAIN_NAME()       => $server::domain_name,                  DHO_DOMAIN_NAME()       => $server::domain,
144                  DHO_NAME_SERVERS()      => $server::ip,                  DHO_NAME_SERVERS()      => $server::ip,
145                  DHO_DOMAIN_NAME_SERVERS() => $server::ip,                  DHO_DOMAIN_NAME_SERVERS() => $server::ip,
146                  DHO_HOST_NAME()         => client::conf( $ip, 'hostname' ),                  DHO_HOST_NAME()         => client::conf( $ip, 'hostname' ),
# Line 208  sub process_packet { Line 203  sub process_packet {
203          $packet = new Net::DHCP::Packet( %$packet );          $packet = new Net::DHCP::Packet( %$packet );
204          warn "send ",$packet->toString() if $debug;          warn "send ",$packet->toString() if $debug;
205    
206          if ( in_our_range( $ip ) ) {          if ( ip::in_dhcp_range( $ip ) ) {
207                  my $buff = $packet->serialize();                  my $buff = $packet->serialize();
208    
209                  my $reply = IO::Socket::INET->new(                  my $reply = IO::Socket::INET->new(
# Line 224  sub process_packet { Line 219  sub process_packet {
219                  $reply->send( $buff, 0 ) or die "Error sending: $!\n";                  $reply->send( $buff, 0 ) or die "Error sending: $!\n";
220          } else {          } else {
221                  $audit->{error} = "$ip our of our range $server::ip $server::netmask";                  $audit->{error} = "$ip our of our range $server::ip $server::netmask";
222                    warn $audit->{error};
223          }          }
224    
225          CouchDB::audit( $audit->{type}, $audit );          CouchDB::audit( $audit->{type}, $audit );
Legend:
Removed from v.260  
changed lines
  Added in v.413
  ViewVC Help
Powered by ViewVC 1.1.26