|
Lines 46-52
my $input = new CGI;
Link Here
|
| 46 |
$debug or $debug = $cgi_debug; |
46 |
$debug or $debug = $cgi_debug; |
| 47 |
my $do_it = $input->param('do_it'); |
47 |
my $do_it = $input->param('do_it'); |
| 48 |
my @modules = $input->param("modules"); |
48 |
my @modules = $input->param("modules"); |
| 49 |
my $user = $input->param("user"); |
49 |
my $user = $input->param("user") // ''; |
| 50 |
my @actions = $input->param("actions"); |
50 |
my @actions = $input->param("actions"); |
| 51 |
my $object = $input->param("object"); |
51 |
my $object = $input->param("object"); |
| 52 |
my $info = $input->param("info"); |
52 |
my $info = $input->param("info"); |
|
Lines 127-133
if ($do_it) {
Link Here
|
| 127 |
|
127 |
|
| 128 |
my @data; |
128 |
my @data; |
| 129 |
my ( $results, $modules, $actions ); |
129 |
my ( $results, $modules, $actions ); |
| 130 |
if ( $actions[0] ne '' ) { $actions = \@actions; } # match All means no limit |
130 |
if ( defined $actions[0] && $actions[0] ne '' ) { $actions = \@actions; } # match All means no limit |
| 131 |
if ( $modules[0] ne '' ) { $modules = \@modules; } # match All means no limit |
131 |
if ( $modules[0] ne '' ) { $modules = \@modules; } # match All means no limit |
| 132 |
$results = GetLogs( $datefrom, $dateto, $user, $modules, $actions, $object, $info ); |
132 |
$results = GetLogs( $datefrom, $dateto, $user, $modules, $actions, $object, $info ); |
| 133 |
@data = @$results; |
133 |
@data = @$results; |
| 134 |
- |
|
|