mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
22 lines
477 B
Perl
Executable File
22 lines
477 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Save the current search
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_edit_error("report");
|
|
&ReadParse();
|
|
|
|
# Validate inputs
|
|
$in{'save_name'} =~ /\S/ && $in{'save_name'} !~ /\.\./ ||
|
|
&error($text{'report_esave'});
|
|
%search = ( 'save_name', $in{'save_name'} );
|
|
foreach $f (@search_fields) {
|
|
foreach $i (keys %in) {
|
|
if ($i =~ /^\Q$f\E_/) {
|
|
$search{$i} = $in{$i};
|
|
}
|
|
}
|
|
}
|
|
&save_search(\%search);
|
|
&redirect("list_report.cgi?save_name=".&urlize($in{'save_name'}));
|
|
|