/* DO NOT ADD ANYTHING BELOW HERE */
string *HIGHLORDS;

void reset(status arg) {
  if(arg) return;
  HIGHLORDS = ({
  });
}

/* DO NOT ADD ANYTHING ABOVE HERE */

/* Domain access object, this will update itself with create_wizard()
 * It is important to that you don't touch anything above this comment.
 *
 * Only Arches have write access to this.
 */

/* Valid Write control over /d/  */

status valid_write(string fname, string name) {
 string domain, file;
  int i;

  if(sscanf(fname,"/d/%s/%s", domain, file) == 2) {
    for(i = 0; i < sizeof(HIGHLORDS); i += 2) {
      if(name == HIGHLORDS[i] && domain == HIGHLORDS[i+1]) return 1;
    }
    if(file == "access.c") return 0;
    return (status)call_other("/d/"+domain+"/access","valid_write",fname,name);
  }
  return 0;
}

/* Valid Read for /d */

status valid_read(string fname, string name) {
  string domain, who, file;
  int i;

  if(valid_write(fname,name)) return 1;
  if(sscanf(fname,"/d/%s/%s",domain,file) == 2) {
    return (status)call_other("/d/"+domain+"/access","valid_read",fname,name);
  }
  if(sscanf(fname,"/d/%s", file) == 1) { /* Highlords have read access */
    if(member_array(name,HIGHLORDS) != -1) return 1;
  }
}

status query_domain_lord(string domain) {
  int i;
  string name;

  name = (string)this_player()->query_name(1);
  for(i = 0; i < sizeof(HIGHLORDS); i += 2) {
    if(name == HIGHLORDS[i] && domain == HIGHLORDS[i+1]) return 1;
  }
  return 1;
}

/* end access */