* initial v0 creator * working json api for generic reports * add require login * move report swagger into plugin, and set new default layout of noop * require proper role and also use new util func * start to tidy authn * some work on cleaning up web authn * clean up the authN checks * fix bug * fix the auth for api * fixes to json handling * set swagger sort order * enable most reports for api endpoints * fix doc * add paramters to reports * add missed report * allow api_parameters in reports config * reorganise api * add vlan search * add port search * make sure to enable layout processing * add device search * add v1 to api paths * add Node Search * support api_responses * add device object search; fix spurious ports field in device result class * handle some plugins just returning undef if search fails * errors from api seamlessley * fix error in date range default * more sensible default for prefix * change order of endpoints in swagger-ui * all db row classes can now TO_JSON * add device_port api endpoint * add device ports endpoint * do not expand docs * add swagger ui json tree formatter * add all relations from Device table * add port relations * add nodes retrieve on device or vlan * rename to GetAPIKey * update config for previous commit
		
			
				
	
	
		
			77 lines
		
	
	
		
			2.4 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			77 lines
		
	
	
		
			2.4 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
package App::Netdisco::Web::Plugin::Report::NodesDiscovered;
 | 
						|
 | 
						|
use Dancer ':syntax';
 | 
						|
use Dancer::Plugin::DBIC;
 | 
						|
use Dancer::Plugin::Auth::Extensible;
 | 
						|
 | 
						|
use App::Netdisco::Web::Plugin;
 | 
						|
use App::Netdisco::Util::Web 'sql_match';
 | 
						|
 | 
						|
register_report(
 | 
						|
    {   category     => 'Node',
 | 
						|
        tag          => 'nodesdiscovered',
 | 
						|
        label        => 'Nodes discovered through LLDP/CDP',
 | 
						|
        provides_csv => 1,
 | 
						|
        api_endpoint => 1,
 | 
						|
        api_parameters => [
 | 
						|
          remote_id => {
 | 
						|
            description => 'Host Name reported',
 | 
						|
          },
 | 
						|
          remote_type => {
 | 
						|
            description => 'Platform reported',
 | 
						|
          },
 | 
						|
          aps => {
 | 
						|
            description => 'Include Wireless APs in the report',
 | 
						|
            type => 'boolean',
 | 
						|
            default => 'false',
 | 
						|
          },
 | 
						|
          phones => {
 | 
						|
            description => 'Include IP Phones in the report',
 | 
						|
            type => 'boolean',
 | 
						|
            default => 'false',
 | 
						|
          },
 | 
						|
          matchall => {
 | 
						|
            description => 'Match all parameters (true) or any (false)',
 | 
						|
            type => 'boolean',
 | 
						|
            default => 'false',
 | 
						|
          },
 | 
						|
        ],
 | 
						|
    }
 | 
						|
);
 | 
						|
 | 
						|
get '/ajax/content/report/nodesdiscovered' => require_login sub {
 | 
						|
    my $op = param('matchall') ? '-and' : '-or';
 | 
						|
 | 
						|
    my @results = schema('netdisco')->resultset('Virtual::NodesDiscovered')
 | 
						|
        ->search({
 | 
						|
            $op => [
 | 
						|
              (param('aps') ?
 | 
						|
                ('me.remote_type' => { -ilike => 'AP:%' }) : ()),
 | 
						|
              (param('phones') ?
 | 
						|
                ('me.remote_type' => { -ilike => '%ip_phone%' }) : ()),
 | 
						|
              (param('remote_id') ?
 | 
						|
                ('me.remote_id' => { -ilike => scalar sql_match(param('remote_id')) }) : ()),
 | 
						|
              (param('remote_type') ? ('-or' => [
 | 
						|
                map  {( 'me.remote_type' => { -ilike => scalar sql_match($_) } )}
 | 
						|
                grep { $_ }
 | 
						|
                     (ref param('remote_type') ? @{param('remote_type')} : param('remote_type'))
 | 
						|
                ]) : ()),
 | 
						|
            ],
 | 
						|
        })
 | 
						|
        ->hri->all;
 | 
						|
 | 
						|
    return unless scalar @results;
 | 
						|
 | 
						|
    if ( request->is_ajax ) {
 | 
						|
        my $json = to_json( \@results );
 | 
						|
        template 'ajax/report/nodesdiscovered.tt', { results => $json };
 | 
						|
    }
 | 
						|
    else {
 | 
						|
        header( 'Content-Type' => 'text/comma-separated-values' );
 | 
						|
        template 'ajax/report/nodesdiscovered_csv.tt',
 | 
						|
            { results => \@results };
 | 
						|
    }
 | 
						|
};
 | 
						|
 | 
						|
1;
 |