Parent Directory | Revision Log | Patch
revision 316 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 |