#define APR_WANT_STRFUNC
#include <apr_want.h>
#include "svn_types.h"
#include "svn_xml.h"
#include "svn_pools.h"
#include "svn_base64.h"
#include "svn_props.h"
#include "svn_dav.h"
#include "dav_svn.h"
struct file_rev_baton {
apr_bucket_brigade *bb;
ap_filter_t *output;
svn_boolean_t needs_header;
int svndiff_version;
svn_txdelta_window_handler_t window_handler;
void *window_baton;
};
static svn_error_t *maybe_send_header(struct file_rev_baton *frb)
{
if (frb->needs_header)
{
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output,
DAV_XML_HEADER DEBUG_CR
"<S:file-revs-report xmlns:S=\""
SVN_XML_NAMESPACE "\" "
"xmlns:D=\"DAV:\">" DEBUG_CR));
frb->needs_header = FALSE;
}
return SVN_NO_ERROR;
}
static svn_error_t *
send_prop(struct file_rev_baton *frb, const char *elem_name,
const char *name, const svn_string_t *val, apr_pool_t *pool)
{
name = apr_xml_quote_string(pool, name, 1);
if (svn_xml_is_xml_safe(val->data, val->len))
{
svn_stringbuf_t *tmp = NULL;
svn_xml_escape_cdata_string(&tmp, val, pool);
val = svn_string_create(tmp->data, pool);
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output,
"<S:%s name=\"%s\">%s</S:%s>" DEBUG_CR,
elem_name, name, val->data, elem_name));
}
else
{
val = svn_base64_encode_string(val, pool);
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output,
"<S:%s name=\"%s\" encoding=\"base64\">"
"%s</S:%s>" DEBUG_CR,
elem_name, name, val->data, elem_name));
}
return SVN_NO_ERROR;
}
static svn_error_t *
delta_window_handler(svn_txdelta_window_t *window, void *baton)
{
struct file_rev_baton *frb = baton;
SVN_ERR(frb->window_handler(window, frb->window_baton));
if (!window)
{
frb->window_handler = NULL;
frb->window_baton = NULL;
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output,
"</S:txdelta></S:file-rev>" DEBUG_CR));
}
return SVN_NO_ERROR;
}
static svn_error_t *
file_rev_handler(void *baton,
const char *path,
svn_revnum_t revnum,
apr_hash_t *rev_props,
svn_txdelta_window_handler_t *window_handler,
void **window_baton,
apr_array_header_t *props,
apr_pool_t *pool)
{
struct file_rev_baton *frb = baton;
apr_pool_t *subpool = svn_pool_create(pool);
apr_hash_index_t *hi;
int i;
SVN_ERR(maybe_send_header(frb));
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output,
"<S:file-rev path=\"%s\" rev=\"%ld\">" DEBUG_CR,
apr_xml_quote_string(pool, path, 1), revnum));
for (hi = apr_hash_first(pool, rev_props); hi; hi = apr_hash_next(hi))
{
const void *key;
void *val;
const char *pname;
const svn_string_t *pval;
svn_pool_clear(subpool);
apr_hash_this(hi, &key, NULL, &val);
pname = key;
pval = val;
SVN_ERR(send_prop(frb, "rev-prop", pname, pval, subpool));
}
for (i = 0; i < props->nelts; ++i)
{
const svn_prop_t *prop = &APR_ARRAY_IDX(props, i, svn_prop_t);
if (prop->value)
SVN_ERR(send_prop(frb, "set-prop", prop->name, prop->value,
subpool));
else
{
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output,
"<S:remove-prop name=\"%s\"/>" DEBUG_CR,
apr_xml_quote_string(subpool, prop->name,
1)));
}
}
if (window_handler)
{
svn_stream_t *base64_stream;
base64_stream = dav_svn_make_base64_output_stream(frb->bb, frb->output,
pool);
svn_txdelta_to_svndiff2(&frb->window_handler, &frb->window_baton,
base64_stream, frb->svndiff_version, pool);
*window_handler = delta_window_handler;
*window_baton = frb;
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output, "<S:txdelta>"));
}
else
SVN_ERR(dav_svn__send_xml(frb->bb, frb->output, "</S:file-rev>" DEBUG_CR));
svn_pool_destroy(subpool);
return SVN_NO_ERROR;
}
dav_error *
dav_svn__file_revs_report(const dav_resource *resource,
const apr_xml_doc *doc,
ap_filter_t *output)
{
svn_error_t *serr;
dav_error *derr = NULL;
apr_status_t apr_err;
apr_xml_elem *child;
int ns;
struct file_rev_baton frb;
dav_svn_authz_read_baton arb;
const char *path = NULL;
svn_revnum_t start = SVN_INVALID_REVNUM;
svn_revnum_t end = SVN_INVALID_REVNUM;
arb.r = resource->info->r;
arb.repos = resource->info->repos;
ns = dav_svn_find_ns(doc->namespaces, SVN_XML_NAMESPACE);
if (ns == -1)
{
return dav_svn__new_error_tag(resource->pool, HTTP_BAD_REQUEST, 0,
"The request does not contain the 'svn:' "
"namespace, so it is not going to have "
"certain required elements.",
SVN_DAV_ERROR_NAMESPACE,
SVN_DAV_ERROR_TAG);
}
for (child = doc->root->first_child; child != NULL; child = child->next)
{
if (child->ns != ns)
continue;
if (strcmp(child->name, "start-revision") == 0)
start = SVN_STR_TO_REV(dav_xml_get_cdata(child, resource->pool, 1));
else if (strcmp(child->name, "end-revision") == 0)
end = SVN_STR_TO_REV(dav_xml_get_cdata(child, resource->pool, 1));
else if (strcmp(child->name, "path") == 0)
{
const char *rel_path = dav_xml_get_cdata(child, resource->pool, 0);
if ((derr = dav_svn__test_canonical(rel_path, resource->pool)))
return derr;
path = svn_path_join(resource->info->repos_path, rel_path,
resource->pool);
}
}
frb.bb = apr_brigade_create(resource->pool,
output->c->bucket_alloc);
frb.output = output;
frb.needs_header = TRUE;
frb.svndiff_version = resource->info->svndiff_version;
serr = svn_repos_get_file_revs(resource->info->repos->repos,
path, start, end,
dav_svn_authz_read_func(&arb), &arb,
file_rev_handler, &frb, resource->pool);
if (serr)
{
return (dav_svn_convert_err(serr, HTTP_INTERNAL_SERVER_ERROR,
serr->message, resource->pool));
}
if ((serr = maybe_send_header(&frb)))
{
derr = dav_svn_convert_err(serr, HTTP_INTERNAL_SERVER_ERROR,
"Error beginning REPORT reponse",
resource->pool);
goto cleanup;
}
if ((serr = dav_svn__send_xml(frb.bb, frb.output,
"</S:file-revs-report>" DEBUG_CR)))
{
derr = dav_svn_convert_err(serr, HTTP_INTERNAL_SERVER_ERROR,
"Error ending REPORT reponse",
resource->pool);
goto cleanup;
}
cleanup:
apr_table_set(resource->info->r->subprocess_env, "SVN-ACTION",
apr_psprintf(resource->pool, "blame '%s'",
svn_path_uri_encode(path, resource->pool)));
if (((apr_err = ap_fflush(output, frb.bb))) && (! derr))
derr = dav_svn_convert_err(svn_error_create(apr_err, 0, NULL),
HTTP_INTERNAL_SERVER_ERROR,
"Error flushing brigade",
resource->pool);
return derr;
}