2008-05-17 03:28:26 +02:00
|
|
|
/*
|
2010-09-20 22:08:53 +02:00
|
|
|
* contrib/xml2/xslt_proc.c
|
2008-05-17 03:28:26 +02:00
|
|
|
*
|
2009-01-07 14:44:37 +01:00
|
|
|
* XSLT processing functions (requiring libxslt)
|
|
|
|
*
|
|
|
|
* John Gray, for Torchbox 2003-04-01
|
|
|
|
*/
|
2004-03-05 04:24:50 +01:00
|
|
|
#include "postgres.h"
|
2009-01-07 14:44:37 +01:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
#include "executor/spi.h"
|
2009-01-07 14:44:37 +01:00
|
|
|
#include "fmgr.h"
|
2004-03-05 04:24:50 +01:00
|
|
|
#include "funcapi.h"
|
|
|
|
#include "miscadmin.h"
|
2009-01-07 14:44:37 +01:00
|
|
|
#include "utils/builtins.h"
|
2010-03-03 20:10:22 +01:00
|
|
|
#include "utils/xml.h"
|
2004-03-05 04:24:50 +01:00
|
|
|
|
2010-03-01 19:07:59 +01:00
|
|
|
#ifdef USE_LIBXSLT
|
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
/* libxml includes */
|
|
|
|
|
|
|
|
#include <libxml/xpath.h>
|
|
|
|
#include <libxml/tree.h>
|
|
|
|
#include <libxml/xmlmemory.h>
|
|
|
|
|
|
|
|
/* libxslt includes */
|
|
|
|
|
|
|
|
#include <libxslt/xslt.h>
|
|
|
|
#include <libxslt/xsltInternals.h>
|
2012-08-15 00:28:29 +02:00
|
|
|
#include <libxslt/security.h>
|
2004-03-05 04:24:50 +01:00
|
|
|
#include <libxslt/transform.h>
|
|
|
|
#include <libxslt/xsltutils.h>
|
2010-03-01 19:07:59 +01:00
|
|
|
#endif /* USE_LIBXSLT */
|
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
|
2010-03-01 19:07:59 +01:00
|
|
|
#ifdef USE_LIBXSLT
|
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
/* declarations to come from xpath.c */
|
2011-07-20 19:03:12 +02:00
|
|
|
extern PgXmlErrorContext *pgxml_parser_init(PgXmlStrictness strictness);
|
2004-03-05 04:24:50 +01:00
|
|
|
|
|
|
|
/* local defs */
|
2010-08-11 01:02:00 +02:00
|
|
|
static const char **parse_params(text *paramstr);
|
2010-03-01 19:07:59 +01:00
|
|
|
#endif /* USE_LIBXSLT */
|
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
|
|
|
|
PG_FUNCTION_INFO_V1(xslt_process);
|
|
|
|
|
|
|
|
Datum
|
|
|
|
xslt_process(PG_FUNCTION_ARGS)
|
|
|
|
{
|
2010-03-01 19:07:59 +01:00
|
|
|
#ifdef USE_LIBXSLT
|
|
|
|
|
2017-03-13 00:35:34 +01:00
|
|
|
text *doct = PG_GETARG_TEXT_PP(0);
|
|
|
|
text *ssheet = PG_GETARG_TEXT_PP(1);
|
2012-06-05 02:12:50 +02:00
|
|
|
text *result;
|
2008-05-04 18:42:41 +02:00
|
|
|
text *paramstr;
|
2010-08-11 01:02:00 +02:00
|
|
|
const char **params;
|
2011-07-20 19:03:12 +02:00
|
|
|
PgXmlErrorContext *xmlerrcxt;
|
|
|
|
volatile xsltStylesheetPtr stylesheet = NULL;
|
|
|
|
volatile xmlDocPtr doctree = NULL;
|
|
|
|
volatile xmlDocPtr restree = NULL;
|
2012-08-15 00:28:29 +02:00
|
|
|
volatile xsltSecurityPrefsPtr xslt_sec_prefs = NULL;
|
|
|
|
volatile xsltTransformContextPtr xslt_ctxt = NULL;
|
2011-07-20 19:03:12 +02:00
|
|
|
volatile int resstat = -1;
|
|
|
|
xmlChar *resstr = NULL;
|
|
|
|
int reslen = 0;
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
if (fcinfo->nargs == 3)
|
|
|
|
{
|
2017-03-13 00:35:34 +01:00
|
|
|
paramstr = PG_GETARG_TEXT_PP(2);
|
2010-08-11 01:02:00 +02:00
|
|
|
params = parse_params(paramstr);
|
2004-03-05 04:24:50 +01:00
|
|
|
}
|
|
|
|
else
|
2010-08-11 01:02:00 +02:00
|
|
|
{
|
2004-10-07 17:21:58 +02:00
|
|
|
/* No parameters */
|
2010-08-11 01:02:00 +02:00
|
|
|
params = (const char **) palloc(sizeof(char *));
|
2004-03-05 04:24:50 +01:00
|
|
|
params[0] = NULL;
|
2010-08-11 01:02:00 +02:00
|
|
|
}
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
/* Setup parser */
|
2011-07-20 19:03:12 +02:00
|
|
|
xmlerrcxt = pgxml_parser_init(PG_XML_STRICTNESS_LEGACY);
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2011-07-20 19:03:12 +02:00
|
|
|
PG_TRY();
|
|
|
|
{
|
2012-08-15 00:28:29 +02:00
|
|
|
xmlDocPtr ssdoc;
|
|
|
|
bool xslt_sec_prefs_error;
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2012-08-15 00:28:29 +02:00
|
|
|
/* Parse document */
|
2024-01-17 00:53:16 +01:00
|
|
|
doctree = xmlReadMemory((char *) VARDATA_ANY(doct),
|
|
|
|
VARSIZE_ANY_EXHDR(doct), NULL, NULL,
|
2024-01-17 06:03:55 +01:00
|
|
|
XML_PARSE_HUGE | XML_PARSE_NOENT);
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
if (doctree == NULL)
|
2011-07-20 19:03:12 +02:00
|
|
|
xml_ereport(xmlerrcxt, ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
2010-03-03 20:10:22 +01:00
|
|
|
"error parsing XML document");
|
2012-06-10 21:20:04 +02:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
/* Same for stylesheet */
|
2024-01-17 00:53:16 +01:00
|
|
|
ssdoc = xmlReadMemory((char *) VARDATA_ANY(ssheet),
|
|
|
|
VARSIZE_ANY_EXHDR(ssheet), NULL, NULL,
|
2024-01-17 06:03:55 +01:00
|
|
|
XML_PARSE_HUGE | XML_PARSE_NOENT);
|
2012-08-15 00:28:29 +02:00
|
|
|
|
|
|
|
if (ssdoc == NULL)
|
|
|
|
xml_ereport(xmlerrcxt, ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
|
|
|
"error parsing stylesheet as XML document");
|
|
|
|
|
|
|
|
/* After this call we need not free ssdoc separately */
|
|
|
|
stylesheet = xsltParseStylesheetDoc(ssdoc);
|
2012-06-10 21:20:04 +02:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
if (stylesheet == NULL)
|
2011-07-20 19:03:12 +02:00
|
|
|
xml_ereport(xmlerrcxt, ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
2010-03-03 20:10:22 +01:00
|
|
|
"failed to parse stylesheet");
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2012-08-15 00:28:29 +02:00
|
|
|
xslt_ctxt = xsltNewTransformContext(stylesheet, doctree);
|
|
|
|
|
|
|
|
xslt_sec_prefs_error = false;
|
|
|
|
if ((xslt_sec_prefs = xsltNewSecurityPrefs()) == NULL)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
|
|
|
|
if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_READ_FILE,
|
|
|
|
xsltSecurityForbid) != 0)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_WRITE_FILE,
|
|
|
|
xsltSecurityForbid) != 0)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_CREATE_DIRECTORY,
|
|
|
|
xsltSecurityForbid) != 0)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_READ_NETWORK,
|
|
|
|
xsltSecurityForbid) != 0)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
if (xsltSetSecurityPrefs(xslt_sec_prefs, XSLT_SECPREF_WRITE_NETWORK,
|
|
|
|
xsltSecurityForbid) != 0)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
if (xsltSetCtxtSecurityPrefs(xslt_sec_prefs, xslt_ctxt) != 0)
|
|
|
|
xslt_sec_prefs_error = true;
|
|
|
|
|
|
|
|
if (xslt_sec_prefs_error)
|
|
|
|
ereport(ERROR,
|
|
|
|
(errmsg("could not set libxslt security preferences")));
|
|
|
|
|
|
|
|
restree = xsltApplyStylesheetUser(stylesheet, doctree, params,
|
|
|
|
NULL, NULL, xslt_ctxt);
|
2012-06-05 02:12:50 +02:00
|
|
|
|
|
|
|
if (restree == NULL)
|
|
|
|
xml_ereport(xmlerrcxt, ERROR, ERRCODE_EXTERNAL_ROUTINE_EXCEPTION,
|
|
|
|
"failed to apply stylesheet");
|
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
resstat = xsltSaveResultToString(&resstr, &reslen, restree, stylesheet);
|
2011-07-20 19:03:12 +02:00
|
|
|
}
|
|
|
|
PG_CATCH();
|
|
|
|
{
|
|
|
|
if (restree != NULL)
|
|
|
|
xmlFreeDoc(restree);
|
2012-08-15 00:28:29 +02:00
|
|
|
if (xslt_ctxt != NULL)
|
|
|
|
xsltFreeTransformContext(xslt_ctxt);
|
2014-11-27 17:12:44 +01:00
|
|
|
if (xslt_sec_prefs != NULL)
|
|
|
|
xsltFreeSecurityPrefs(xslt_sec_prefs);
|
|
|
|
if (stylesheet != NULL)
|
|
|
|
xsltFreeStylesheet(stylesheet);
|
|
|
|
if (doctree != NULL)
|
|
|
|
xmlFreeDoc(doctree);
|
2011-07-20 19:03:12 +02:00
|
|
|
xsltCleanupGlobals();
|
|
|
|
|
|
|
|
pg_xml_done(xmlerrcxt, true);
|
|
|
|
|
|
|
|
PG_RE_THROW();
|
|
|
|
}
|
|
|
|
PG_END_TRY();
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
xmlFreeDoc(restree);
|
2012-08-15 00:28:29 +02:00
|
|
|
xsltFreeTransformContext(xslt_ctxt);
|
2014-11-27 17:12:44 +01:00
|
|
|
xsltFreeSecurityPrefs(xslt_sec_prefs);
|
|
|
|
xsltFreeStylesheet(stylesheet);
|
|
|
|
xmlFreeDoc(doctree);
|
2004-03-05 04:24:50 +01:00
|
|
|
xsltCleanupGlobals();
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2011-07-20 19:03:12 +02:00
|
|
|
pg_xml_done(xmlerrcxt, false);
|
|
|
|
|
2012-06-05 02:12:50 +02:00
|
|
|
/* XXX this is pretty dubious, really ought to throw error instead */
|
2004-03-05 04:24:50 +01:00
|
|
|
if (resstat < 0)
|
|
|
|
PG_RETURN_NULL();
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2012-06-05 02:12:50 +02:00
|
|
|
result = cstring_to_text_with_len((char *) resstr, reslen);
|
|
|
|
|
|
|
|
if (resstr)
|
|
|
|
xmlFree(resstr);
|
|
|
|
|
|
|
|
PG_RETURN_TEXT_P(result);
|
2010-03-01 19:07:59 +01:00
|
|
|
#else /* !USE_LIBXSLT */
|
|
|
|
|
|
|
|
ereport(ERROR,
|
|
|
|
(errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
|
|
|
|
errmsg("xslt_process() is not available without libxslt")));
|
|
|
|
PG_RETURN_NULL();
|
|
|
|
#endif /* USE_LIBXSLT */
|
2004-03-05 04:24:50 +01:00
|
|
|
}
|
|
|
|
|
2010-03-01 19:07:59 +01:00
|
|
|
#ifdef USE_LIBXSLT
|
2004-03-05 04:24:50 +01:00
|
|
|
|
2010-08-11 01:02:00 +02:00
|
|
|
static const char **
|
|
|
|
parse_params(text *paramstr)
|
2004-03-05 04:24:50 +01:00
|
|
|
{
|
|
|
|
char *pos;
|
|
|
|
char *pstr;
|
|
|
|
char *nvsep = "=";
|
|
|
|
char *itsep = ",";
|
2010-08-11 01:02:00 +02:00
|
|
|
const char **params;
|
|
|
|
int max_params;
|
|
|
|
int nparams;
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2008-03-25 23:42:46 +01:00
|
|
|
pstr = text_to_cstring(paramstr);
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2010-08-11 01:02:00 +02:00
|
|
|
max_params = 20; /* must be even! */
|
|
|
|
params = (const char **) palloc((max_params + 1) * sizeof(char *));
|
|
|
|
nparams = 0;
|
|
|
|
|
2004-03-05 04:24:50 +01:00
|
|
|
pos = pstr;
|
2004-08-29 07:07:03 +02:00
|
|
|
|
2010-08-11 01:02:00 +02:00
|
|
|
while (*pos != '\0')
|
2004-03-05 04:24:50 +01:00
|
|
|
{
|
2010-08-11 01:02:00 +02:00
|
|
|
if (nparams >= max_params)
|
|
|
|
{
|
|
|
|
max_params *= 2;
|
|
|
|
params = (const char **) repalloc(params,
|
|
|
|
(max_params + 1) * sizeof(char *));
|
|
|
|
}
|
|
|
|
params[nparams++] = pos;
|
2004-03-05 04:24:50 +01:00
|
|
|
pos = strstr(pos, nvsep);
|
|
|
|
if (pos != NULL)
|
|
|
|
{
|
|
|
|
*pos = '\0';
|
|
|
|
pos++;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2009-07-10 02:32:00 +02:00
|
|
|
/* No equal sign, so ignore this "parameter" */
|
2010-08-11 01:02:00 +02:00
|
|
|
nparams--;
|
2004-03-05 04:24:50 +01:00
|
|
|
break;
|
|
|
|
}
|
2010-08-11 01:02:00 +02:00
|
|
|
|
|
|
|
/* since max_params is even, we still have nparams < max_params */
|
|
|
|
params[nparams++] = pos;
|
2004-03-05 04:24:50 +01:00
|
|
|
pos = strstr(pos, itsep);
|
|
|
|
if (pos != NULL)
|
|
|
|
{
|
|
|
|
*pos = '\0';
|
|
|
|
pos++;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
break;
|
|
|
|
}
|
2009-07-10 02:32:00 +02:00
|
|
|
|
2010-08-11 01:02:00 +02:00
|
|
|
/* Add the terminator marker; we left room for it in the palloc's */
|
|
|
|
params[nparams] = NULL;
|
|
|
|
|
|
|
|
return params;
|
2004-03-05 04:24:50 +01:00
|
|
|
}
|
2010-03-01 19:07:59 +01:00
|
|
|
|
|
|
|
#endif /* USE_LIBXSLT */
|