mirror of
https://github.com/webmin/webmin.git
synced 2026-01-14 03:11:35 +00:00
27 lines
578 B
Perl
Executable File
27 lines
578 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
require './filemin-lib.pl';
|
|
|
|
&ReadParse();
|
|
|
|
get_paths();
|
|
|
|
$query = $in{'query'};
|
|
|
|
&ui_print_header(undef, $text{'search_results'}." '".
|
|
&html_escape($query)."'", "");
|
|
|
|
print $head;
|
|
if($in{'caseins'}) {
|
|
$criteria = '-iname';
|
|
} else {
|
|
$criteria = '-name'
|
|
}
|
|
@list = split('\n', &backquote_logged(
|
|
"find ".quotemeta($cwd)." $criteria ".quotemeta("*$in{'query'}*")));
|
|
@list = map { [ $_, stat($_), &clean_mimetype($_), -d $_ ] } @list;
|
|
|
|
print_interface();
|
|
|
|
&ui_print_footer("index.cgi?path=".&urlize($path), $text{'previous_page'});
|