Commit a27737f8 authored by Timothy Stack's avatar Timothy Stack

exclude stuff in '/share'

parent 3e096c06
......@@ -1176,6 +1176,11 @@ sub TBExperimentArchiveAddTracedFiles($$)
"LEFT JOIN accessed_files as af on af.idx=fr.fileidx ".
"WHERE fr.rsrcidx=$rsrcidx and fr.type!='l'");
while (my ($fn) = $query_result->fetchrow_array()) {
if ($fn =~ /^\/share/ ||
$fn =~ /^<u:/) {
next;
}
$rval = ArchiveAdd($archive_idx, $fn, $view);
return $rval
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment