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