Current File : //usr/share/webmin/filemin/search.cgi |
#!/usr/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'});