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}