let get_share () = 
  match ShareDir.get() with 
    | "" -> Config.datadir^"/wp" 
    | dir -> 
        if Sys.file_exists dir && Sys.is_directory dir then dir
          else abort "'%s': no such directory" dir