|
Lines 48-53
my $do_it = $input->param('do_it');
Link Here
|
| 48 |
my @modules = $input->multi_param("modules"); |
48 |
my @modules = $input->multi_param("modules"); |
| 49 |
my $user = $input->param("user") // ''; |
49 |
my $user = $input->param("user") // ''; |
| 50 |
my @actions = $input->multi_param("actions"); |
50 |
my @actions = $input->multi_param("actions"); |
|
|
51 |
my @interfaces = $input->multi_param("interfaces"); |
| 51 |
my $object = $input->param("object"); |
52 |
my $object = $input->param("object"); |
| 52 |
my $info = $input->param("info"); |
53 |
my $info = $input->param("info"); |
| 53 |
my $datefrom = $input->param("from"); |
54 |
my $datefrom = $input->param("from"); |
|
Lines 105-114
$template->param(
Link Here
|
| 105 |
if ($do_it) { |
106 |
if ($do_it) { |
| 106 |
|
107 |
|
| 107 |
my @data; |
108 |
my @data; |
| 108 |
my ( $results, $modules, $actions ); |
109 |
my ( $results, $modules, $actions, $interfaces ); |
| 109 |
if ( defined $actions[0] && $actions[0] ne '' ) { $actions = \@actions; } # match All means no limit |
110 |
if ( defined $actions[0] && $actions[0] ne '' ) { $actions = \@actions; } # match All means no limit |
| 110 |
if ( $modules[0] ne '' ) { $modules = \@modules; } # match All means no limit |
111 |
if ( $modules[0] ne '' ) { $modules = \@modules; } # match All means no limit |
| 111 |
$results = GetLogs( $datefrom, $dateto, $user, $modules, $actions, $object, $info ); |
112 |
if ( defined $interfaces[0] && $interfaces[0] ne '' ) { $interfaces = \@interfaces; } # match All means no limit |
|
|
113 |
$results = GetLogs( $datefrom, $dateto, $user, $modules, $actions, $object, $info, $interfaces ); |
| 112 |
@data = @$results; |
114 |
@data = @$results; |
| 113 |
foreach my $result (@data) { |
115 |
foreach my $result (@data) { |
| 114 |
|
116 |
|
|
Lines 170-175
if ($do_it) {
Link Here
|
| 170 |
src => $src, |
172 |
src => $src, |
| 171 |
modules => \@modules, |
173 |
modules => \@modules, |
| 172 |
actions => \@actions, |
174 |
actions => \@actions, |
|
|
175 |
interfaces => \@interfaces |
| 173 |
); |
176 |
); |
| 174 |
|
177 |
|
| 175 |
# Used modules |
178 |
# Used modules |
| 176 |
- |
|
|