135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use daterange for IP Subnets

Browse Source
This commit is contained in:
Oliver Gorwits
2014-03-10 23:08:53 +00:00
parent 211f5f1623
commit 3d9be3c9ac
4 changed files with 33 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Netdisco/lib/App/Netdisco/DB/Result/Virtual/SubnetUtilization.pm
View File

@@ -20,15 +20,16 @@ __PACKAGE__->result_source_instance->view_definition(<<'ENDSQL');
FROM subnets s1, node_ip ni
WHERE s1.net <<= ?::cidr
AND ni.ip <<= s1.net
AND ni.time_last > (now() - ?::interval)
AND s1.last_discover > (now() - ?::interval)
AND ni.time_last >= ?
AND ni.time_last <= ?
AND s1.last_discover >= ?
UNION
SELECT DISTINCT net, di.alias as ip
FROM subnets s2, device_ip di JOIN device d USING (ip)
WHERE s2.net <<= ?::cidr
AND di.alias <<= s2.net
AND s2.last_discover > (now() - ?::interval)
AND d.last_discover > (now() - ?::interval)
AND s2.last_discover >= ?
AND d.last_discover >= ?
) as joined
GROUP BY net
ORDER BY percent ASC

16
Netdisco/lib/App/Netdisco/Web/Plugin/Report/SubnetUtilization.pm
View File

@@ -5,7 +5,6 @@ use Dancer::Plugin::DBIC;
use Dancer::Plugin::Auth::Extensible;
use App::Netdisco::Web::Plugin;
use App::Netdisco::Util::Web (); # for interval_to_daterange
register_report({
category => 'IP',
@@ -16,19 +15,22 @@ register_report({
get '/ajax/content/report/subnets' => require_login sub {
my $subnet = param('subnet') || '0.0.0.0/32';
my $age = param('age') || '7 days';
$age = '7 days' unless $age =~ m/^(?:\d+)\s+(?:day|week|month|year)s?$/;
my $agenot = param('age_invert') || '0';
my ( $start, $end ) = param('daterange') =~ /(\d+-\d+-\d+)/gmx;
my $daterange = App::Netdisco::Util::Web::interval_to_daterange($age);
if ($agenot) {
my $tmp = $end;
$end = $start;
$start = $tmp;
}
my $set = schema('netdisco')->resultset('Virtual::SubnetUtilization')
->search(undef,{
bind => [ $subnet, $age, $age, $subnet, $age, $age ],
bind => [ $subnet, $start, $end, $end, $subnet, $end, $end ],
});
if ( request->is_ajax ) {
template 'ajax/report/subnets.tt',
{ results => $set, daterange => $daterange },
template 'ajax/report/subnets.tt', { results => $set },
{ layout => undef };
}
else {