* 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;
 |