46 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			46 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
| use utf8;
 | |
| package App::Netdisco::DB::Result::Virtual::UserRole;
 | |
| 
 | |
| use strict;
 | |
| use warnings;
 | |
| 
 | |
| use base 'DBIx::Class::Core';
 | |
| 
 | |
| __PACKAGE__->table_class('DBIx::Class::ResultSource::View');
 | |
| 
 | |
| __PACKAGE__->table("user_role");
 | |
| __PACKAGE__->result_source_instance->is_virtual(1);
 | |
| __PACKAGE__->result_source_instance->view_definition(<<ENDSQL
 | |
|   SELECT username, 'port_control' AS role FROM users
 | |
|     WHERE port_control
 | |
|   UNION
 | |
|   SELECT username, 'admin' AS role FROM users
 | |
|     WHERE admin
 | |
|   UNION
 | |
|   SELECT username, 'ldap' AS role FROM users
 | |
|     WHERE ldap
 | |
|   UNION
 | |
|   SELECT username, 'radius' AS role FROM users
 | |
|     WHERE radius
 | |
|   UNION
 | |
|   SELECT username, 'tacacs' AS role FROM users
 | |
|     WHERE tacacs
 | |
|   UNION
 | |
|   SELECT username, 'api' AS role FROM users
 | |
|     WHERE token IS NOT NULL AND token_from IS NOT NULL
 | |
|           AND token_from > (EXTRACT(EPOCH FROM LOCALTIMESTAMP) - ?)
 | |
|   UNION
 | |
|   SELECT username, 'api_admin' AS role FROM users
 | |
|     WHERE token IS NOT NULL AND token_from IS NOT NULL
 | |
|           AND token_from > (EXTRACT(EPOCH FROM LOCALTIMESTAMP) - ?)
 | |
|           AND admin
 | |
| ENDSQL
 | |
| );
 | |
| 
 | |
| __PACKAGE__->add_columns(
 | |
|   'username' => { data_type => 'text' },
 | |
|   'role' => { data_type => 'text' },
 | |
| );
 | |
| 
 | |
| 1;
 |