1 <& elements/process.html,
2 'table' => 'addr_range',
3 'popup_reload' => 'Address range changed',
4 'precheck_callback' => sub {
6 my $start = NetAddr::IP->new($cgi->param('start'), 0)
7 or return 'Illegal or empty (IP address) start: '.$cgi->param('start');
8 if ( length($cgi->param('end')) ) {
9 my $end = NetAddr::IP->new($cgi->param('end'), 0)
10 or return 'Illegal or empty (IP address) end: '.$cgi->param('end');
11 if ( $end < $start ) {
12 ($start, $end) = ($end, $start);
13 $cgi->param('end', $end->addr);
14 $cgi->param('start', $start->addr);
16 if ( $start + 0x7FFFFFFF <= $end ) {
17 # then this is going to overflow
18 return "Address ranges must be < 2^31 - 1 addresses long."
21 $cgi->param('length', $end - $start + 1);
23 $cgi->param('length', 1);