/*
** Loads the given wiki page, sets the response type to
** application/json, and emits it as a JSON object.  If zPageName is a
** sandbox page then a "fake" object is emitted, as the wikiajax API
** does not permit saving the sandbox.
**
** If includeLeadingComma is true then a comma will be emitted
** preceeding the object. This parameter is a bit of a hack to allow
** wiki page list generation to recover from an unusual (so far unique
** to one repo) error mode.
**
** Returns true on success, false on error. Its behaviour on error
** depends on the 4th argument: if it's true, this function simply
** returns false, else it queues up a JSON response and returns false.
** The intention of this flag is to avoid a weird corner case seen, so
** far, only on the main fossil repo (not clones of it) in which
** loading fails for a page named "Security Desk Technician". The
** hypothesis is that that page was once shunned on the core repo, but
** a reference to it still exists in the tables from which we pull the
** wiki list.
**
** Output JSON format:
**
** { name: "page name",
**   type: "normal" | "tag" | "checkin" | "branch" | "sandbox",
**   mimetype: "mime type",
**   version: UUID string or null for a sandbox page,
**   parent: "parent uuid" or null if no parent,
**   isDeleted: true if the page has no content (is "deleted")
**              else not set (making it "falsy" in JS),
**   content: "page content" (only if includeContent is true)
** }
**
** If includeContent is false then the content member is elided.
*/
static int wiki_ajax_emit_page_object(const char *zPageName,
                                      int includeContent,
                                      int includeLeadingComma,
                                      int ignoreLoadError){
  Manifest * pWiki = 0;
  char * zUuid;

  if( is_sandbox(zPageName) ){
    char * zMimetype =
      db_get("sandbox-mimetype","text/x-fossil-wiki");
    char * zBody = db_get("sandbox","");
    if(includeLeadingComma){
      CX(",");
    }
    CX("{\"name\": %!j, \"type\": \"sandbox\", "
       "\"mimetype\": %!j, \"version\": null, \"parent\": null",
       zPageName, zMimetype);
    if(includeContent){
      CX(", \"content\": %!j",
       zBody);
    }
    CX("}");
    fossil_free(zMimetype);
    fossil_free(zBody);
    return 1;
  }else if( !wiki_fetch_by_name(zPageName, 0, 0, &pWiki) ){
    if(ignoreLoadError!=0){
      ajax_route_error(404, "Wiki page could not be loaded: %s",
                       zPageName);
    }
    return 0;
  }else{
    if(includeLeadingComma){
      CX(",");
    }
    zUuid = rid_to_uuid(pWiki->rid);
    CX("{\"name\": %!j, \"type\": %!j, "
       "\"version\": %!j, "
       "\"mimetype\": %!j, ",
       pWiki->zWikiTitle,
       wiki_page_type_name(pWiki->zWikiTitle),
       zUuid,

                     "isnew=1.", zPageName);
    return;
  }
  blob_init(&content, zContent ? zContent : "", -1);
  cgi_set_content_type("application/json");
  db_begin_transaction();
  wiki_cmd_commit(zPageName, parentRid, &content, zMimetype, 0);
  rollback = wiki_ajax_emit_page_object(zPageName, 1, 0, 0) ? 0 : 1;
  db_end_transaction(rollback);
}

/*
** Ajax route handler for /wikiajax/fetch.
**
** URL params:

  const char * zPageName = P("page");
  
  if( zPageName==0 || zPageName[0]==0 ){
    ajax_route_error(400,"Missing page name.");
    return;
  }
  cgi_set_content_type("application/json");
  wiki_ajax_emit_page_object(zPageName, 1, 0, 0);
}

/*
** Ajax route handler for /wikiajax/diff.
**
** URL params:
**

             " substr(tagname,6) AS name"
             " FROM tag WHERE tagname GLOB 'wiki-*'"
             " UNION SELECT 'Sandbox' AS name"
             " ORDER BY name COLLATE NOCASE");
  CX("[");
  while( SQLITE_ROW==db_step(&q) ){
    char const * zName = db_column_text(&q,0);
    if(verbose==0){
      if(n++){
        CX(",");
      }

      CX("%!j", zName);
    }else{
      wiki_ajax_emit_page_object(zName, includeContent,
                                 n++>0, 1);
    }
  }
  CX("]");
  db_finalize(&q);
  db_end_transaction(0);
}