MV_SEARCH_FILE —
Interchange 5.9.0:
Source: lib/Vend/Scan.pm
Line 886 (context shows lines 876-890 in _file_security():879)
defined $_[1] ? $_[1] : '';
}
sub _file_security {
my ($junk, $param, $passed) = @_;
$passed = [] unless $passed;
my(@files) = grep /\S/, split /\s*[,\0]\s*/, $param, -1;
for(@files) {
my $ok = allowed_file($_);
if(!$ok) {
$ok = 1 if $_ eq $::Variable->{MV_SEARCH_FILE};
$ok = 1 if $::Scratch->{$_};
}
if(/^\w+$/ and ! $::Variable->{MV_DEFAULT_SEARCH_DB}) {
$_ = $Vend::Cfg->{Database}{$_}{file}