# parameter to bypass FS::Record objects creation and just
# return hashrefs from DBI. 200,000 hashrefs are many seconds faster
# than 200,000 FS::Record objects
- my %qsearch = (
+ my %qsearch_param = (
table => $class->table,
select => $ip_field,
hashref => \%qsearch,
);
if ( $octets ) {
my $block_str = join('.', (split(/\D/, $block_na->first))[0..$octets-1]);
- $qsearch{extra_sql} .= " AND $ip_field LIKE ".dbh->quote("${block_str}.%");
+ $qsearch_param{extra_sql}
+ .= " AND $ip_field LIKE ".dbh->quote("${block_str}.%");
}
if ( $block->ip_netmask % 8 ) {
return
map { $_->$ip_field }
- qsearch( \%qsearch );
+ qsearch( \%qsearch_param );
}
sub _is_used {
% }
if ( blocknum && $.isNumeric(blocknum) && ! e.is(':hidden')) {
$.getJSON(
- '<% $p %>json/free_addresses_in_block.json.html',
+ '<% $p %>misc/xmlhttp-free_addresses_in_block.json.html',
{blocknum: blocknum},
function(ip_json) {
$.each( ip_json, function(idx, val) {
+++ /dev/null
-<%doc>
- Return a json array containing all free ip addresses within a given block
- Unless block is larger than /24 - Does somebody really want to populate
- 65k addresses into a HTML selectbox?
-</%doc>
-<% encode_rest($json) %>\
-<%init>
-
-my $json = [];
-
-my $blocknum = $cgi->param('blocknum');
-
-my $addr_block = qsearchs( addr_block => { blocknum => $blocknum });
-
-$json = $addr_block->free_addrs
- if ref $addr_block && $addr_block->ip_netmask >= 24;
-
-</%init>
--- /dev/null
+<%doc>
+ Return a json array containing all free ip addresses within a given block
+ Unless block is larger than /24 - Does somebody really want to populate
+ 65k addresses into a HTML selectbox?
+</%doc>
+<% encode_json($json) %>\
+<%init>
+
+my $json = [];
+
+my $blocknum = $cgi->param('blocknum');
+
+my $addr_block = qsearchs( addr_block => { blocknum => $blocknum });
+
+$json = $addr_block->free_addrs
+ if ref $addr_block && $addr_block->ip_netmask >= 24;
+
+</%init>