|
Lines 47-53
$debug or $debug = $cgi_debug;
Link Here
|
| 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 @action = $input->param("action"); |
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"); |
| 53 |
my $datefrom = $input->param("from"); |
53 |
my $datefrom = $input->param("from"); |
|
Lines 126-135
$template->param(
Link Here
|
| 126 |
if ($do_it) { |
126 |
if ($do_it) { |
| 127 |
|
127 |
|
| 128 |
my @data; |
128 |
my @data; |
| 129 |
my ( $results, $modules, $action ); |
129 |
my ( $results, $modules, $actions ); |
| 130 |
if ( $action[0] ne '' ) { $action = \@action; } # match All means no limit |
130 |
if ( $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, $action, $object, $info ); |
132 |
$results = GetLogs( $datefrom, $dateto, $user, $modules, $actions, $object, $info ); |
| 133 |
@data = @$results; |
133 |
@data = @$results; |
| 134 |
foreach my $result (@data) { |
134 |
foreach my $result (@data) { |
| 135 |
|
135 |
|
|
Lines 188-203
if ($do_it) {
Link Here
|
| 188 |
dateto => $dateto, |
188 |
dateto => $dateto, |
| 189 |
user => $user, |
189 |
user => $user, |
| 190 |
object => $object, |
190 |
object => $object, |
| 191 |
action => \@action, |
|
|
| 192 |
info => $info, |
191 |
info => $info, |
| 193 |
src => $src, |
192 |
src => $src, |
|
|
193 |
modules => \@modules, |
| 194 |
actions => \@actions, |
| 194 |
); |
195 |
); |
| 195 |
|
196 |
|
| 196 |
# Used modules |
|
|
| 197 |
foreach my $module (@modules) { |
| 198 |
$template->param( $module => 1 ); |
| 199 |
} |
| 200 |
|
| 201 |
output_html_with_http_headers $input, $cookie, $template->output; |
197 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 202 |
} |
198 |
} |
| 203 |
else { |
199 |
else { |
| 204 |
- |
|
|