Parent Directory
| 
Revision Log
| 
Patch
| revision 412 by dpavlin, Thu Aug 27 19:58:56 2009 UTC | revision 413 by dpavlin, Wed Sep 9 14:27:02 2009 UTC | |
|---|---|---|
| # | Line 118 sub from_int { | Line 118 sub from_int { |
| 118 | join( '.', unpack('C4', pack('N',shift)) ) | join( '.', unpack('C4', pack('N',shift)) ) |
| 119 | } | } |
| 120 | ||
| 121 | sub in_dhcp_range { | |
| 122 | my $ip = shift; | |
| 123 | my $i = to_int($ip) & to_int($server::netmask); | |
| 124 | my $s = to_int($server::ip) & to_int($server::netmask); | |
| 125 | ||
| 126 | if ( $i == $s ) { | |
| 127 | $i = to_int($ip) & ( to_int($server::netmask) ^ 0xffffffff ); | |
| 128 | return 1 if ( $i >= $server::ip_from && $i <= $server::ip_to ); | |
| 129 | } | |
| 130 | return 0; | |
| 131 | } | |
| 132 | ||
| 133 | 1; | 1; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |