let suffix = String.sub s (len-4) 4 in
not (suffix = ".var")
-let locate ~(dbd:Mysql.dbd) ?(vars = false) ?owner pat =
+let locate ~(dbd:Mysql.dbd) ?(vars = false) pat =
let sql_pat = sqlpat_of_shellglob pat in
let query =
- match owner with
- | None ->
sprintf "SELECT source FROM %s WHERE value LIKE \"%s\""
MetadataTypes.name_tbl sql_pat
- | Some owner ->
- sprintf "SELECT %s.source FROM %s,%s WHERE
- (%s.source LIKE CONCAT(%s.source,\"#%%\") OR
- %s.source = %s.source) AND
- value LIKE \"%s\" AND owner = \"%s\""
- MetadataTypes.name_tbl
- MetadataTypes.name_tbl MetadataTypes.owners_tbl
- MetadataTypes.name_tbl MetadataTypes.owners_tbl
- MetadataTypes.name_tbl MetadataTypes.owners_tbl
- sql_pat owner
in
let result = Mysql.exec dbd query in
List.filter nonvar