The FreeRADIUS server $Id: 15bac2a4c627c01d1aa2047687b3418955ac7f00 $
Loading...
Searching...
No Matches
rlm_sql.c
Go to the documentation of this file.
1/*
2 * This program is is free software; you can redistribute it and/or modify
3 * it under the terms of the GNU General Public License as published by
4 * the Free Software Foundation; either version 2 of the License, or (at
5 * your option) any later version.
6 *
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
11 *
12 * You should have received a copy of the GNU General Public License
13 * along with this program; if not, write to the Free Software
14 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
15 */
16
17/**
18 * $Id: 2f22a01fc589fd3b504db08102c5dc250c7a7868 $
19 * @file rlm_sql.c
20 * @brief Implements SQL 'users' file, and SQL accounting.
21 *
22 * @copyright 2012-2014 Arran Cudbard-Bell (a.cudbardb@freeradius.org)
23 * @copyright 2000,2006 The FreeRADIUS server project
24 * @copyright 2000 Mike Machado (mike@innercite.com)
25 * @copyright 2000 Alan DeKok (aland@freeradius.org)
26 */
27
28RCSID("$Id: 2f22a01fc589fd3b504db08102c5dc250c7a7868 $")
29
30#define LOG_PREFIX mctx->mi->name
31
32#include <freeradius-devel/server/base.h>
33#include <freeradius-devel/server/exfile.h>
34#include <freeradius-devel/server/map_proc.h>
35#include <freeradius-devel/server/module_rlm.h>
36#include <freeradius-devel/server/pairmove.h>
37#include <freeradius-devel/server/rcode.h>
38#include <freeradius-devel/util/debug.h>
39#include <freeradius-devel/util/dict.h>
40#include <freeradius-devel/util/skip.h>
41#include <freeradius-devel/util/table.h>
42#include <freeradius-devel/unlang/action.h>
43#include <freeradius-devel/unlang/function.h>
44#include <freeradius-devel/unlang/xlat_func.h>
45#include <freeradius-devel/unlang/module.h>
46#include <freeradius-devel/unlang/map.h>
47
48#include <sys/stat.h>
49
50#include "rlm_sql.h"
51
52#define SQL_SAFE_FOR (fr_value_box_safe_for_t)inst->driver
53
55
56static int submodule_parse(TALLOC_CTX *ctx, void *out, void *parent, CONF_ITEM *ci, conf_parser_t const *rule);
57
62
63static const conf_parser_t module_config[] = {
64 { FR_CONF_OFFSET_TYPE_FLAGS("driver", FR_TYPE_VOID, 0, rlm_sql_t, driver_submodule), .dflt = "null",
66 { FR_CONF_OFFSET("server", rlm_sql_config_t, sql_server), .dflt = "" }, /* Must be zero length so drivers can determine if it was set */
67 { FR_CONF_OFFSET("port", rlm_sql_config_t, sql_port), .dflt = "0" },
68 { FR_CONF_OFFSET("login", rlm_sql_config_t, sql_login), .dflt = "" },
69 { FR_CONF_OFFSET_FLAGS("password", CONF_FLAG_SECRET, rlm_sql_config_t, sql_password), .dflt = "" },
70 { FR_CONF_OFFSET("radius_db", rlm_sql_config_t, sql_db), .dflt = "radius" },
71 { FR_CONF_OFFSET("read_groups", rlm_sql_config_t, read_groups), .dflt = "yes" },
72 { FR_CONF_OFFSET("group_attribute", rlm_sql_config_t, group_attribute) },
73 { FR_CONF_OFFSET("cache_groups", rlm_sql_config_t, cache_groups) },
74 { FR_CONF_OFFSET("read_profiles", rlm_sql_config_t, read_profiles), .dflt = "yes" },
75 { FR_CONF_OFFSET("open_query", rlm_sql_config_t, connect_query) },
76 { FR_CONF_OFFSET("query_number_attribute", rlm_sql_config_t, query_number_attribute) },
77
78 { FR_CONF_OFFSET("safe_characters", rlm_sql_config_t, allowed_chars), .dflt = "@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.-_: /" },
79
80 /*
81 * This only works for a few drivers.
82 */
83 { FR_CONF_OFFSET("query_timeout", rlm_sql_config_t, query_timeout), .dflt = "5" },
84
85 /*
86 * The pool section is used for trunk config
87 */
88 { FR_CONF_OFFSET_SUBSECTION("pool", 0, rlm_sql_config_t, trunk_conf, trunk_config) },
89
91
93};
94
96
99 { .out = &dict_freeradius, .proto = "freeradius" },
100 { NULL }
101};
102
107
110 { .out = &attr_fall_through, .name = "Fall-Through", .type = FR_TYPE_BOOL, .dict = &dict_freeradius },
111 { .out = &attr_sql_user_name, .name = "SQL-User-Name", .type = FR_TYPE_STRING, .dict = &dict_freeradius },
112 { .out = &attr_user_profile, .name = "User-Profile", .type = FR_TYPE_STRING, .dict = &dict_freeradius },
113 { .out = &attr_expr_bool_enum, .name = "Expr-Bool-Enum", .type = FR_TYPE_BOOL, .dict = &dict_freeradius },
114 { NULL }
115};
116
117typedef struct {
118 fr_value_box_t user; //!< Expansion of the sql_user_name
119 tmpl_t *check_query; //!< Tmpl to expand to form authorize_check_query
120 tmpl_t *reply_query; //!< Tmpl to expand to form authorize_reply_query
121 tmpl_t *membership_query; //!< Tmpl to expand to form group_membership_query
122 tmpl_t *group_check_query; //!< Tmpl to expand to form authorize_group_check_query
123 tmpl_t *group_reply_query; //!< Tmpl to expand to form authorize_group_reply_query
125
126static int logfile_call_env_parse(TALLOC_CTX *ctx, call_env_parsed_head_t *out, tmpl_rules_t const *t_rules, CONF_ITEM *cc,
127 call_env_ctx_t const *cec, call_env_parser_t const *rule);
128
129static int query_call_env_parse(TALLOC_CTX *ctx, call_env_parsed_head_t *out, tmpl_rules_t const *t_rules, CONF_ITEM *cc,
130 call_env_ctx_t const *cec, call_env_parser_t const *rule);
131
135
138 .env = (call_env_parser_t[]) {
140 .pair.escape = {
141 .box_escape = {
144 .always_escape = false,
145 },
147 },
148 .pair.literals_safe_for = (fr_value_box_safe_for_t)rad_filename_box_make_safe,
149 },
151 }
152};
153
155
156/** Status of the authorization process
157 */
158typedef enum {
159 SQL_AUTZ_CHECK = 0x12, //!< Running user `check` query
160 SQL_AUTZ_CHECK_RESUME = 0x13, //!< Completed user `check` query
161 SQL_AUTZ_REPLY = 0x14, //!< Running user `reply` query
162 SQL_AUTZ_REPLY_RESUME = 0x15, //!< Completed user `reply` query
163 SQL_AUTZ_GROUP_MEMB = 0x20, //!< Running group membership query
164 SQL_AUTZ_GROUP_MEMB_RESUME = 0x21, //!< Completed group membership query
165 SQL_AUTZ_GROUP_CHECK = 0x22, //!< Running group `check` query
166 SQL_AUTZ_GROUP_CHECK_RESUME = 0x23, //!< Completed group `check` query
167 SQL_AUTZ_GROUP_REPLY = 0x24, //!< Running group `reply` query
168 SQL_AUTZ_GROUP_REPLY_RESUME = 0x25, //!< Completed group `reply` query
169 SQL_AUTZ_PROFILE_START = 0x40, //!< Starting processing user profiles
170 SQL_AUTZ_PROFILE_CHECK = 0x42, //!< Running profile `check` query
171 SQL_AUTZ_PROFILE_CHECK_RESUME = 0x43, //!< Completed profile `check` query
172 SQL_AUTZ_PROFILE_REPLY = 0x44, //!< Running profile `reply` query
173 SQL_AUTZ_PROFILE_REPLY_RESUME = 0x45, //!< Completed profile `reply` query
175
176#define SQL_AUTZ_STAGE_GROUP 0x20
177#define SQL_AUTZ_STAGE_PROFILE 0x40
178
179/** Context for group membership query evaluation
180 */
181typedef struct {
182 rlm_sql_t const *inst; //!< Module instance.
183 fr_value_box_t *query; //!< Query string used for evaluating group membership.
184 fr_sql_query_t *query_ctx; //!< Query context.
185 rlm_sql_grouplist_t *groups; //!< List of groups retrieved.
186 int num_groups; //!< How many groups have been retrieved.
188
189/** Context for SQL authorization
190 */
191typedef struct {
192 rlm_sql_t const *inst; //!< Module instance.
193 request_t *request; //!< Request being processed.
194 rlm_rcode_t rcode; //!< Module return code.
195 trunk_t *trunk; //!< Trunk connection for current authorization.
196 sql_autz_call_env_t *call_env; //!< Call environment data.
197 map_list_t check_tmp; //!< List to store check items before processing.
198 map_list_t reply_tmp; //!< List to store reply items before processing.
199 sql_autz_status_t status; //!< Current status of the authorization.
200 fr_value_box_list_t query; //!< Where expanded query tmpls will be written.
201 bool user_found; //!< Has the user been found anywhere?
202 rlm_sql_grouplist_t *group; //!< Current group being processed.
203 fr_pair_t *sql_group; //!< Pair to update with group being processed.
204 fr_pair_t *profile; //!< Current profile being processed.
205 fr_sql_map_ctx_t *map_ctx; //!< Context used for retrieving attribute value pairs as a map list.
206 sql_group_ctx_t *group_ctx; //!< Context used for retrieving user group membership.
208
209typedef struct {
210 fr_value_box_t user; //!< Expansion of sql_user_name.
211 fr_value_box_t filename; //!< File name to write SQL logs to.
212 tmpl_t **query; //!< Array of tmpls for list of queries to run.
214
224
234
235/** Context for tracking redundant SQL query sets
236 */
237typedef struct {
238 rlm_sql_t const *inst; //!< Module instance.
239 request_t *request; //!< Request being processed.
240 trunk_t *trunk; //!< Trunk connection for queries.
241 sql_redundant_call_env_t *call_env; //!< Call environment data.
242 size_t query_no; //!< Current query number.
243 fr_value_box_list_t query; //!< Where expanded query tmpl will be written.
244 fr_value_box_t *query_vb; //!< Current query string.
245 fr_sql_query_t *query_ctx; //!< Query context for current query.
247
252
261
262int submodule_parse(TALLOC_CTX *ctx, void *out, void *parent, CONF_ITEM *ci, conf_parser_t const *rule)
263{
264 rlm_sql_t *inst = talloc_get_type_abort(parent, rlm_sql_t);
266 int ret;
267
268 if (unlikely(ret = module_rlm_submodule_parse(ctx, out, parent, ci, rule) < 0)) return ret;
269
270 mi = talloc_get_type_abort(*((void **)out), module_instance_t);
271 inst->driver = (rlm_sql_driver_t const *)mi->exported; /* Public symbol exported by the submodule */
272
273 return 0;
274}
275
276static int _sql_escape_uxtx_free(void *uctx)
277{
278 return talloc_free(uctx);
279}
280
281/*
282 * Create a thread local uctx which is used in SQL value box escaping
283 * so that an already reserved connection can be used.
284 */
285static void *sql_escape_uctx_alloc(UNUSED request_t *request, void const *uctx)
286{
287 static _Thread_local rlm_sql_escape_uctx_t *t_ctx;
288
289 if (unlikely(t_ctx == NULL)) {
291
292 MEM(ctx = talloc_zero(NULL, rlm_sql_escape_uctx_t));
294 }
295 t_ctx->sql = uctx;
296
297 return t_ctx;
298}
299
300/*
301 * Fall-Through checking function from rlm_files.c
302 */
303static sql_fall_through_t fall_through(map_list_t *maps)
304{
305 bool rcode;
306 map_t *map, *next;
307
308 for (map = map_list_head(maps);
309 map != NULL;
310 map = next) {
311 next = map_list_next(maps, map);
312
314
316 (void) map_list_remove(maps, map);
317
318 if (tmpl_is_data(map->rhs)) {
320
321 rcode = tmpl_value(map->rhs)->vb_bool;
322 } else {
323 rcode = false;
324 }
325
326 talloc_free(map);
327 return rcode;
328 }
329 }
330
332}
333
334/*
335 * Yucky prototype.
336 */
337static ssize_t sql_escape_func(request_t *, char *out, size_t outlen, char const *in, void *arg);
338
339/** Escape a tainted VB used as an xlat argument
340 *
341 */
342static int CC_HINT(nonnull(2,3)) sql_xlat_escape(request_t *request, fr_value_box_t *vb, void *uctx)
343{
344 fr_sbuff_t sbuff;
345 fr_sbuff_uctx_talloc_t sbuff_ctx;
346
347 ssize_t len;
348 void *arg = NULL;
349 rlm_sql_escape_uctx_t *ctx = uctx;
351 rlm_sql_thread_t *thread = talloc_get_type_abort(module_thread(inst->mi)->data, rlm_sql_thread_t);
352
353 /*
354 * If it's already safe, don't do anything.
355 */
356 if (fr_value_box_is_safe_for(vb, inst->driver)) return 0;
357
358 /*
359 * No need to escape types with inherently safe data
360 */
361 switch (vb->type) {
362 case FR_TYPE_NUMERIC:
363 case FR_TYPE_IP:
364 case FR_TYPE_ETHERNET:
365 fr_value_box_mark_safe_for(vb, inst->driver);
366 return 0;
367
368 default:
369 break;
370 }
371
372 if (inst->sql_escape_arg) {
373 arg = inst->sql_escape_arg;
374 } else if (thread->sql_escape_arg) {
375 arg = thread->sql_escape_arg;
376 }
377 if (!arg) {
378 error:
380 return -1;
381 }
382
383 /*
384 * Escaping functions work on strings - ensure the box is a string
385 */
386 if ((vb->type != FR_TYPE_STRING) && (fr_value_box_cast_in_place(vb, vb, FR_TYPE_STRING, NULL) < 0)) goto error;
387
388 /*
389 * Maximum escaped length is 3 * original - if every character needs escaping
390 */
391 if (!fr_sbuff_init_talloc(vb, &sbuff, &sbuff_ctx, vb->vb_length * 3, vb->vb_length * 3)) {
392 fr_strerror_printf_push("Failed to allocate buffer for escaped sql argument");
393 return -1;
394 }
395
396 len = inst->sql_escape_func(request, fr_sbuff_buff(&sbuff), vb->vb_length * 3 + 1, vb->vb_strvalue, arg);
397 if (len < 0) goto error;
398
399 fr_sbuff_trim_talloc(&sbuff, len);
401
402 /*
403 * Different databases have slightly different ideas as
404 * to what is safe. So we track the database type in the
405 * safe value. This means that we don't
406 * cross-contaminate "safe" values across databases.
407 */
408 fr_value_box_mark_safe_for(vb, inst->driver);
409
410 return 0;
411}
412
413static int sql_box_escape(fr_value_box_t *vb, void *uctx)
414{
415 return sql_xlat_escape(NULL, vb, uctx);
416}
417
418/** Escape a value to make it SQL safe.
419 *
420@verbatim
421%sql.escape(<value>)
422@endverbatim
423 *
424 * @ingroup xlat_functions
425 */
426static xlat_action_t sql_escape_xlat(UNUSED TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx,
427 request_t *request, fr_value_box_list_t *in)
428{
429 rlm_sql_t const *inst = talloc_get_type_abort(xctx->mctx->mi->data, rlm_sql_t);
430 fr_value_box_t *vb;
431 rlm_sql_escape_uctx_t *escape_uctx = NULL;
432
433 while ((vb = fr_value_box_list_pop_head(in))) {
434 if (fr_value_box_is_safe_for(vb, inst->driver)) goto append;
435 if (!escape_uctx) escape_uctx = sql_escape_uctx_alloc(request, inst);
436 sql_box_escape(vb, escape_uctx);
437 append:
439 }
440 return XLAT_ACTION_DONE;
441}
442
443static xlat_action_t sql_xlat_query_resume(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx,
444 request_t *request, UNUSED fr_value_box_list_t *in)
445{
446 fr_sql_query_t *query_ctx = talloc_get_type_abort(xctx->rctx, fr_sql_query_t);
447 rlm_sql_t const *inst = query_ctx->inst;
448 fr_value_box_t *vb;
450 int numaffected;
451
452 fr_assert(query_ctx->type == SQL_QUERY_OTHER);
453
454 switch (query_ctx->rcode) {
456 case RLM_SQL_ERROR:
459 query_ctx->rcode, "<INVALID>"));
460 rlm_sql_print_error(inst, request, query_ctx, false);
461 ret = XLAT_ACTION_FAIL;
462 goto finish;
463
464 default:
465 break;
466 }
467
468 numaffected = (inst->driver->sql_affected_rows)(query_ctx, &inst->config);
469 if (numaffected < 1) {
470 RDEBUG2("SQL query affected no rows");
471 goto finish;
472 }
473
474 MEM(vb = fr_value_box_alloc_null(ctx));
475 fr_value_box_uint32(vb, NULL, (uint32_t)numaffected, false);
477
478finish:
479 talloc_free(query_ctx);
480
481 return ret;
482}
483
484static xlat_action_t sql_xlat_select_resume(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx,
485 request_t *request, UNUSED fr_value_box_list_t *in)
486{
487 fr_sql_query_t *query_ctx = talloc_get_type_abort(xctx->rctx, fr_sql_query_t);
488 rlm_sql_t const *inst = query_ctx->inst;
489 fr_value_box_t *vb;
491 unlang_result_t p_result;
492 rlm_sql_row_t row;
493 bool fetched = false;
494
495 fr_assert(query_ctx->type == SQL_QUERY_SELECT);
496
497 if (query_ctx->rcode != RLM_SQL_OK) {
498 query_error:
500 query_ctx->rcode, "<INVALID>"));
501 rlm_sql_print_error(inst, request, query_ctx, false);
502 ret = XLAT_ACTION_FAIL;
503 goto finish;
504 }
505
506 do {
507 inst->fetch_row(&p_result, request, query_ctx);
508 row = query_ctx->row;
509 switch (query_ctx->rcode) {
510 case RLM_SQL_OK:
511 if (row[0]) break;
512
513 RDEBUG2("NULL value in first column of result");
514 goto finish;
515
517 if (!fetched) RDEBUG2("SQL query returned no results");
518 goto finish;
519
520 default:
521 goto query_error;
522 }
523
524 fetched = true;
525
526 MEM(vb = fr_value_box_alloc_null(ctx));
527 fr_value_box_strdup(vb, vb, NULL, row[0], false);
529
530 } while (1);
531
532finish:
533 talloc_free(query_ctx);
534
535 return ret;
536}
537
538/** Execute an arbitrary SQL query
539 *
540 * For SELECTs, the values of the first column will be returned.
541 * For INSERTS, UPDATEs and DELETEs, the number of rows affected will
542 * be returned instead.
543 *
544@verbatim
545%sql(<sql statement>)
546@endverbatim
547 *
548 * @ingroup xlat_functions
549 */
550static xlat_action_t sql_xlat(TALLOC_CTX *ctx, fr_dcursor_t *out,
551 xlat_ctx_t const *xctx,
552 request_t *request, fr_value_box_list_t *in)
553{
554 sql_xlat_call_env_t *call_env = talloc_get_type_abort(xctx->env_data, sql_xlat_call_env_t);
555 rlm_sql_t const *inst = talloc_get_type_abort(xctx->mctx->mi->data, rlm_sql_t);
556 rlm_sql_thread_t *thread = talloc_get_type_abort(xctx->mctx->thread, rlm_sql_thread_t);
557 char const *p;
558 fr_value_box_t *arg = fr_value_box_list_head(in);
559 fr_sql_query_t *query_ctx = NULL;
561
562 if (call_env->filename.type == FR_TYPE_STRING && call_env->filename.vb_length > 0) {
563 rlm_sql_query_log(inst, call_env->filename.vb_strvalue, arg->vb_strvalue);
564 }
565
566 p = arg->vb_strvalue;
567
568 /*
569 * Trim whitespace for the prefix check
570 */
572
573 /*
574 * If the query starts with any of the following prefixes,
575 * then return the number of rows affected
576 */
577 if ((strncasecmp(p, "insert", 6) == 0) ||
578 (strncasecmp(p, "update", 6) == 0) ||
579 (strncasecmp(p, "delete", 6) == 0)) {
580 MEM(query_ctx = fr_sql_query_alloc(unlang_interpret_frame_talloc_ctx(request), inst, request,
581 thread->trunk, arg->vb_strvalue, SQL_QUERY_OTHER));
582
583 unlang_xlat_yield(request, sql_xlat_query_resume, NULL, 0, query_ctx);
584
585 /* Modify current frame's rcode directly */
586 query_ret = inst->query(unlang_interpret_result(request), request, query_ctx);
588
589 return sql_xlat_query_resume(ctx, out, &(xlat_ctx_t){.rctx = query_ctx, .inst = inst}, request, in);
590 } /* else it's a SELECT statement */
591
592 MEM(query_ctx = fr_sql_query_alloc(unlang_interpret_frame_talloc_ctx(request), inst, request,
593 thread->trunk, arg->vb_strvalue, SQL_QUERY_SELECT));
594
595 unlang_xlat_yield(request, sql_xlat_select_resume, NULL, 0, query_ctx);
596
597 if (unlang_function_push_with_result(/* discard, sql_xlat_select_resume just uses query_ctx->rcode */ NULL,
598 request,
599 inst->select,
600 NULL,
601 NULL, 0,
604}
605
606/** Execute an arbitrary SQL query, expecting results to be returned
607 *
608@verbatim
609%sql.fetch(<sql statement>)
610@endverbatim
611 *
612 * @ingroup xlat_functions
613 */
615 request_t *request, fr_value_box_list_t *in)
616{
617 sql_xlat_call_env_t *call_env = talloc_get_type_abort(xctx->env_data, sql_xlat_call_env_t);
618 rlm_sql_t const *inst = talloc_get_type_abort(xctx->mctx->mi->data, rlm_sql_t);
619 rlm_sql_thread_t *thread = talloc_get_type_abort(xctx->mctx->thread, rlm_sql_thread_t);
620 fr_value_box_t *arg = fr_value_box_list_head(in);
621 fr_sql_query_t *query_ctx = NULL;
622
623 if (call_env->filename.type == FR_TYPE_STRING && call_env->filename.vb_length > 0) {
624 rlm_sql_query_log(inst, call_env->filename.vb_strvalue, arg->vb_strvalue);
625 }
626
627 MEM(query_ctx = fr_sql_query_alloc(unlang_interpret_frame_talloc_ctx(request), inst, request,
628 thread->trunk, arg->vb_strvalue, SQL_QUERY_SELECT));
629
630 unlang_xlat_yield(request, sql_xlat_select_resume, NULL, 0, query_ctx);
631 if (unlang_function_push_with_result(/* discard, sql_xlat_select_resume just uses query_ctx->rcode */NULL,
632 request,
633 inst->select,
634 NULL,
635 NULL, 0,
638}
639
640/** Execute an arbitrary SQL query, returning the number of rows affected
641 *
642@verbatim
643%sql.modify(<sql statement>)
644@endverbatim
645 *
646 * @ingroup xlat_functions
647 */
648static xlat_action_t sql_modify_xlat(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx,
649 request_t *request, fr_value_box_list_t *in)
650{
651 sql_xlat_call_env_t *call_env = talloc_get_type_abort(xctx->env_data, sql_xlat_call_env_t);
652 rlm_sql_t const *inst = talloc_get_type_abort(xctx->mctx->mi->data, rlm_sql_t);
653 rlm_sql_thread_t *thread = talloc_get_type_abort(xctx->mctx->thread, rlm_sql_thread_t);
654 fr_value_box_t *arg = fr_value_box_list_head(in);
655 fr_sql_query_t *query_ctx = NULL;
656
657 if (call_env->filename.type == FR_TYPE_STRING && call_env->filename.vb_length > 0) {
658 rlm_sql_query_log(inst, call_env->filename.vb_strvalue, arg->vb_strvalue);
659 }
660
661 MEM(query_ctx = fr_sql_query_alloc(unlang_interpret_frame_talloc_ctx(request), inst, request,
662 thread->trunk, arg->vb_strvalue, SQL_QUERY_OTHER));
663
664 unlang_xlat_yield(request, sql_xlat_query_resume, NULL, 0, query_ctx);
665 /* Write out the result directly to this frame's rcode */
666 if (inst->query(unlang_interpret_result(request), request, query_ctx) == UNLANG_ACTION_PUSHED_CHILD) return XLAT_ACTION_PUSH_UNLANG;
667
668 return sql_xlat_query_resume(ctx, out, &(xlat_ctx_t){.rctx = query_ctx, .inst = inst}, request, in);
669}
670
671/** Converts a string value into a #fr_pair_t
672 *
673 * @param[in,out] ctx to allocate #fr_pair_t (s).
674 * @param[out] out where to write the resulting #fr_pair_t.
675 * @param[in] request The current request.
676 * @param[in] map to process.
677 * @param[in] uctx The value to parse.
678 * @return
679 * - 0 on success.
680 * - -1 on failure.
681 */
682static int _sql_map_proc_get_value(TALLOC_CTX *ctx, fr_pair_list_t *out,
683 request_t *request, map_t const *map, void *uctx)
684{
685 fr_pair_t *vp;
686 char const *value = uctx;
687
689 if (!vp) return -1;
690
691 /*
692 * Buffer not always talloced, sometimes it's
693 * just a pointer to a field in a result struct.
694 */
695 if (fr_pair_value_from_str(vp, value, strlen(value), NULL, true) < 0) {
696 RPEDEBUG("Failed parsing value \"%pV\" for attribute %s",
699 return -1;
700 }
701
702 return 0;
703}
704
705/*
706 * Verify the result of the map.
707 */
708static int sql_map_verify(CONF_SECTION *cs, UNUSED void const *mod_inst, UNUSED void *proc_inst,
709 tmpl_t const *src, UNUSED map_list_t const *maps)
710{
711 if (!src) {
712 cf_log_err(cs, "Missing SQL query");
713
714 return -1;
715 }
716
717 return 0;
718}
719
720#define MAX_SQL_FIELD_INDEX (64)
721
722/** Process the results of an SQL map query
723 *
724 * @param p_result Result of map expansion:
725 * - #RLM_MODULE_NOOP no rows were returned or columns matched.
726 * - #RLM_MODULE_UPDATED if one or more #fr_pair_t were added to the #request_t.
727 * - #RLM_MODULE_FAIL if a fault occurred.
728 * @param mpctx Map context, containing the module instance.
729 * @param request The current request.
730 * @param query string to execute.
731 * @param maps Head of the map list.
732 * @return UNLANG_ACTION_CALCULATE_RESULT
733 */
734static unlang_action_t mod_map_resume(unlang_result_t *p_result, map_ctx_t const *mpctx, request_t *request,
735 UNUSED fr_value_box_list_t *query, map_list_t const *maps)
736{
737 fr_sql_query_t *query_ctx = talloc_get_type_abort(mpctx->rctx, fr_sql_query_t);
738 rlm_sql_t const *inst = mpctx->moi;
739 map_t const *map;
741 sql_rcode_t ret;
742 char const **fields = NULL, *map_rhs;
743 rlm_sql_row_t row;
744 int i, j, field_cnt, rows = 0;
745 int field_index[MAX_SQL_FIELD_INDEX];
746 char map_rhs_buff[128];
747 bool found_field = false; /* Did we find any matching fields in the result set ? */
748
749 if (query_ctx->rcode != RLM_SQL_OK) {
750 RERROR("SQL query failed: %s", fr_table_str_by_value(sql_rcode_description_table, query_ctx->rcode, "<INVALID>"));
751 rcode = RLM_MODULE_FAIL;
752 goto finish;
753 }
754
755 /*
756 * Not every driver provides an sql_num_rows function
757 */
758 if (inst->driver->sql_num_rows) {
759 ret = inst->driver->sql_num_rows(query_ctx, &inst->config);
760 if (ret == 0) {
761 RDEBUG2("Server returned an empty result");
762 rcode = RLM_MODULE_NOTFOUND;
763 goto finish;
764 }
765
766 if (ret < 0) {
767 RERROR("Failed retrieving row count");
768 error:
769 rcode = RLM_MODULE_FAIL;
770 goto finish;
771 }
772 }
773
774 for (i = 0; i < MAX_SQL_FIELD_INDEX; i++) field_index[i] = -1;
775
776 /*
777 * Map proc only registered if driver provides an sql_fields function
778 */
779 ret = (inst->driver->sql_fields)(&fields, query_ctx, &inst->config);
780 if (ret != RLM_SQL_OK) {
781 RERROR("Failed retrieving field names: %s", fr_table_str_by_value(sql_rcode_description_table, ret, "<INVALID>"));
782 goto error;
783 }
784 fr_assert(fields);
785 field_cnt = talloc_array_length(fields);
786
787 if (RDEBUG_ENABLED3) for (j = 0; j < field_cnt; j++) RDEBUG3("Got field: %s", fields[j]);
788
789 /*
790 * Iterate over the maps, it's O(N2)ish but probably
791 * faster than building a radix tree each time the
792 * map set is evaluated (map->rhs can be dynamic).
793 */
794 for (map = map_list_head(maps), i = 0;
795 map && (i < MAX_SQL_FIELD_INDEX);
796 map = map_list_next(maps, map), i++) {
797 /*
798 * Expand the RHS to get the name of the SQL field
799 */
800 if (tmpl_expand(&map_rhs, map_rhs_buff, sizeof(map_rhs_buff),
801 request, map->rhs) < 0) {
802 RPERROR("Failed getting field name");
803 goto error;
804 }
805
806 for (j = 0; j < field_cnt; j++) {
807 if (strcasecmp(fields[j], map_rhs) != 0) continue;
808 field_index[i] = j;
809 found_field = true;
810 }
811 }
812
813 /*
814 * Couldn't resolve any map RHS values to fields
815 * in the result set.
816 */
817 if (!found_field) {
818 RDEBUG2("No fields matching map found in query result");
819 rcode = RLM_MODULE_NOOP;
820 goto finish;
821 }
822
823 /*
824 * We've resolved all the maps to result indexes, now convert
825 * the values at those indexes into fr_pair_ts.
826 *
827 * Note: Not all SQL client libraries provide a row count,
828 * so we have to do the count here.
829 */
830 while ((inst->fetch_row(p_result, request, query_ctx) == UNLANG_ACTION_CALCULATE_RESULT) &&
831 (query_ctx->rcode == RLM_SQL_OK)) {
832 row = query_ctx->row;
833 rows++;
834 for (map = map_list_head(maps), j = 0;
835 map && (j < MAX_SQL_FIELD_INDEX);
836 map = map_list_next(maps, map), j++) {
837 if (field_index[j] < 0) continue; /* We didn't find the map RHS in the field set */
838 if (!row[field_index[j]]) {
839 RDEBUG2("Database returned NULL for %s", fields[j]);
840 continue;
841 }
842 if (map_to_request(request, map, _sql_map_proc_get_value, row[field_index[j]]) < 0) goto error;
843 }
844 }
845
846 if (query_ctx->rcode == RLM_SQL_ERROR) goto error;
847
848 if (rows == 0) {
849 RDEBUG2("SQL query returned no results");
850 rcode = RLM_MODULE_NOTFOUND;
851 }
852
853finish:
854 talloc_free(fields);
855 talloc_free(query_ctx);
856
857 RETURN_UNLANG_RCODE(rcode);
858}
859
860/** Executes a SELECT query and maps the result to server attributes
861 *
862 * @param p_result Result of map expansion:
863 * - #RLM_MODULE_NOOP no rows were returned or columns matched.
864 * - #RLM_MODULE_UPDATED if one or more #fr_pair_t were added to the #request_t.
865 * - #RLM_MODULE_FAIL if a fault occurred.
866 * @param mpctx Map context, containing the module instance.
867 * @param request The current request.
868 * @param query string to execute.
869 * @param maps Head of the map list.
870 * @return UNLANG_ACTION_CALCULATE_RESULT
871 */
872static unlang_action_t mod_map_proc(unlang_result_t *p_result, map_ctx_t const *mpctx, request_t *request,
873 fr_value_box_list_t *query, UNUSED map_list_t const *maps)
874{
876 rlm_sql_thread_t *thread = talloc_get_type_abort(module_thread(inst->mi)->data, rlm_sql_thread_t);
877 fr_value_box_t *query_head = fr_value_box_list_head(query);
878 fr_sql_query_t *query_ctx = NULL;
879 fr_value_box_t *vb = NULL;
880 rlm_sql_escape_uctx_t *escape_uctx = NULL;
881
882 fr_assert(inst->driver->sql_fields); /* Should have been caught during validation... */
883
884 if (!query_head) {
885 REDEBUG("Query cannot be (null)");
887 }
888
889 while ((vb = fr_value_box_list_next(query, vb))) {
890 if (fr_value_box_is_safe_for(vb, inst->driver)) continue;
891 if (!escape_uctx) escape_uctx = sql_escape_uctx_alloc(request, inst);
892 sql_box_escape(vb, escape_uctx);
893 }
894
896 query_head, query, FR_TYPE_STRING,
898 SIZE_MAX) < 0) {
899 RPEDEBUG("Failed concatenating input string");
901 }
902
903 query_ctx = fr_sql_query_alloc(unlang_interpret_frame_talloc_ctx(request), inst, request,
904 thread->trunk, query_head->vb_strvalue, SQL_QUERY_SELECT);
905
906 if (unlang_map_yield(request, mod_map_resume, NULL, 0, query_ctx) != UNLANG_ACTION_YIELD) RETURN_UNLANG_FAIL;
907 return unlang_function_push_with_result(/* discard, mod_map_resume just uses query_ctx->rcode */ NULL,
908 request,
909 inst->select,
910 NULL,
911 NULL,
913 query_ctx);
914}
915
916/** xlat escape function for drivers which do not provide their own
917 *
918 */
919static ssize_t sql_escape_func(UNUSED request_t *request, char *out, size_t outlen, char const *in, void *arg)
920{
922 size_t len = 0;
923
924 while (in[0]) {
925 size_t utf8_len;
926
927 /*
928 * Allow all multi-byte UTF8 characters.
929 */
930 utf8_len = fr_utf8_char((uint8_t const *) in, -1);
931 if (utf8_len > 1) {
932 if (outlen <= utf8_len) break;
933
934 memcpy(out, in, utf8_len);
935 in += utf8_len;
936 out += utf8_len;
937
938 outlen -= utf8_len;
939 len += utf8_len;
940 continue;
941 }
942
943 /*
944 * Because we register our own escape function
945 * we're now responsible for escaping all special
946 * chars in an xlat expansion or attribute value.
947 */
948 switch (in[0]) {
949 case '\n':
950 if (outlen <= 2) break;
951 out[0] = '\\';
952 out[1] = 'n';
953
954 in++;
955 out += 2;
956 outlen -= 2;
957 len += 2;
958 break;
959
960 case '\r':
961 if (outlen <= 2) break;
962 out[0] = '\\';
963 out[1] = 'r';
964
965 in++;
966 out += 2;
967 outlen -= 2;
968 len += 2;
969 break;
970
971 case '\t':
972 if (outlen <= 2) break;
973 out[0] = '\\';
974 out[1] = 't';
975
976 in++;
977 out += 2;
978 outlen -= 2;
979 len += 2;
980 break;
981 }
982
983 /*
984 * Non-printable characters get replaced with their
985 * mime-encoded equivalents.
986 */
987 if ((in[0] < 32) ||
988 strchr(inst->config.allowed_chars, *in) == NULL) {
989 /*
990 * Only 3 or less bytes available.
991 */
992 if (outlen <= 3) {
993 break;
994 }
995
996 snprintf(out, outlen, "=%02X", (unsigned char) in[0]);
997 in++;
998 out += 3;
999 outlen -= 3;
1000 len += 3;
1001 continue;
1002 }
1003
1004 /*
1005 * Only one byte left.
1006 */
1007 if (outlen <= 1) {
1008 break;
1009 }
1010
1011 /*
1012 * Allowed character.
1013 */
1014 *out = *in;
1015 out++;
1016 in++;
1017 outlen--;
1018 len++;
1019 }
1020 *out = '\0';
1021 return len;
1022}
1023
1024/*
1025 * Set the SQL user name.
1026 *
1027 * We don't call the escape function here. The resulting string
1028 * will be escaped later in the queries xlat so we don't need to
1029 * escape it twice. (it will make things wrong if we have an
1030 * escape candidate character in the username)
1031 */
1032static void sql_set_user(rlm_sql_t const *inst, request_t *request, fr_value_box_t *user)
1033{
1034 fr_pair_t *vp = NULL;
1035
1036 fr_assert(request->packet != NULL);
1037
1038 MEM(pair_update_request(&vp, inst->sql_user) >= 0);
1039 if(!user || (user->type != FR_TYPE_STRING)) {
1041 return;
1042 }
1043
1044 /*
1045 * Replace any existing SQL-User-Name with new value
1046 */
1047 fr_pair_value_bstrdup_buffer(vp, user->vb_strvalue, user->tainted);
1048 RDEBUG2("SQL-User-Name set to '%pV'", &vp->data);
1049}
1050
1051/*
1052 * Do a set/unset user, so it's a bit clearer what's going on.
1053 */
1054#define sql_unset_user(_i, _r) fr_pair_delete_by_da(&_r->request_pairs, _i->sql_user)
1055
1056
1061
1063{
1064 sql_group_ctx_t *group_ctx = talloc_get_type_abort(uctx, sql_group_ctx_t);
1065 fr_sql_query_t *query_ctx = group_ctx->query_ctx;
1066 rlm_sql_t const *inst = group_ctx->inst;
1067 rlm_sql_row_t row;
1068 rlm_sql_grouplist_t *entry = group_ctx->groups;
1069
1070 if (query_ctx->rcode != RLM_SQL_OK) {
1071 error:
1072 talloc_free(query_ctx);
1074 }
1075
1076 while ((inst->fetch_row(p_result, request, query_ctx) == UNLANG_ACTION_CALCULATE_RESULT) &&
1077 (query_ctx->rcode == RLM_SQL_OK)) {
1078 row = query_ctx->row;
1079 if (!row[0]){
1080 RDEBUG2("row[0] returned NULL");
1081 goto error;
1082 }
1083
1084 if (!entry) {
1085 group_ctx->groups = talloc_zero(group_ctx, rlm_sql_grouplist_t);
1086 entry = group_ctx->groups;
1087 } else {
1088 entry->next = talloc_zero(group_ctx, rlm_sql_grouplist_t);
1089 entry = entry->next;
1090 }
1091 entry->next = NULL;
1092 entry->name = talloc_typed_strdup(entry, row[0]);
1093
1094 group_ctx->num_groups++;
1095 }
1096
1097 talloc_free(query_ctx);
1099}
1100
1102{
1103 rlm_sql_t const *inst = group_ctx->inst;
1104
1105 /* NOTE: sql_set_user should have been run before calling this function */
1106
1107 if (!group_ctx->query || (group_ctx->query->vb_length == 0)) return UNLANG_ACTION_CALCULATE_RESULT;
1108
1109 MEM(group_ctx->query_ctx = fr_sql_query_alloc(group_ctx, inst, request, trunk,
1110 group_ctx->query->vb_strvalue, SQL_QUERY_SELECT));
1111
1112 if (unlang_function_push_with_result(/* sql_get_grouplist_resume translates the query_ctx->rocde into a module rcode */p_result,
1113 request,
1114 NULL,
1116 NULL,
1118 group_ctx) < 0) return UNLANG_ACTION_FAIL;
1119
1120 return unlang_function_push_with_result(/* discard, sql_get_grouplist_resume translates rcodes */NULL,
1121 request,
1122 inst->select,
1123 NULL,
1124 NULL, 0,
1125 UNLANG_SUB_FRAME, group_ctx->query_ctx);
1126}
1127
1128typedef struct {
1129 fr_value_box_list_t query;
1132
1133/** Compare list of groups returned from SQL query to xlat argument.
1134 *
1135 * Called after the SQL query has completed and group list has been built.
1136 */
1138 UNUSED request_t *request, fr_value_box_list_t *in)
1139{
1140 sql_group_xlat_ctx_t *xlat_ctx = talloc_get_type_abort(xctx->rctx, sql_group_xlat_ctx_t);
1141 sql_group_ctx_t *group_ctx = talloc_get_type_abort(xlat_ctx->group_ctx, sql_group_ctx_t);
1142 fr_value_box_t *arg = fr_value_box_list_head(in);
1143 char const *name = arg->vb_strvalue;
1144 fr_value_box_t *vb;
1145 rlm_sql_grouplist_t *entry;
1146
1148
1150 for (entry = group_ctx->groups; entry != NULL; entry = entry->next) {
1151 if (strcmp(entry->name, name) == 0) {
1152 vb->vb_bool = true;
1153 break;
1154 }
1155 }
1157
1159
1160 return XLAT_ACTION_DONE;
1161}
1162
1163/** Run SQL query for group membership to return list of groups
1164 *
1165 * Called after group membership query tmpl is expanded
1166 */
1168 request_t *request, UNUSED fr_value_box_list_t *in)
1169{
1170 sql_group_xlat_ctx_t *xlat_ctx = talloc_get_type_abort(xctx->rctx, sql_group_xlat_ctx_t);
1171 rlm_sql_t const *inst = talloc_get_type_abort(xctx->mctx->mi->data, rlm_sql_t);
1172 rlm_sql_thread_t *thread = talloc_get_type_abort(xctx->mctx->thread, rlm_sql_thread_t);
1173 fr_value_box_t *query;
1174
1175 query = fr_value_box_list_head(&xlat_ctx->query);
1176 if (!query) return XLAT_ACTION_FAIL;
1177
1178 MEM(xlat_ctx->group_ctx = talloc(xlat_ctx, sql_group_ctx_t));
1179
1180 *xlat_ctx->group_ctx = (sql_group_ctx_t) {
1181 .inst = inst,
1182 .query = query,
1183 };
1184
1186
1187 if (sql_get_grouplist(NULL, xlat_ctx->group_ctx, thread->trunk, request) != UNLANG_ACTION_PUSHED_CHILD) {
1188 return XLAT_ACTION_FAIL;
1189 }
1190
1192}
1193
1194
1195/** Check if the user is a member of a particular group
1196 *
1197@verbatim
1198%sql.group(<name>)
1199@endverbatim
1200 *
1201 * @ingroup xlat_functions
1202 */
1204 request_t *request, UNUSED fr_value_box_list_t *in)
1205{
1206 sql_group_xlat_call_env_t *call_env = talloc_get_type_abort(xctx->env_data, sql_group_xlat_call_env_t);
1208 rlm_sql_t const *inst = talloc_get_type_abort(xctx->mctx->mi->data, rlm_sql_t);
1209
1210 if (!call_env->membership_query) {
1211 RWARN("Cannot check group membership - group_membership_query not set");
1212 return XLAT_ACTION_FAIL;
1213 }
1214
1215 /*
1216 * Set the user attr here
1217 */
1218 sql_set_user(inst, request, &call_env->user);
1219
1221 fr_value_box_list_init(&xlat_ctx->query);
1222
1224 if (unlang_tmpl_push(xlat_ctx, &xlat_ctx->query, request, call_env->membership_query, NULL) < 0) return XLAT_ACTION_FAIL;
1226}
1227
1228/** Process a "check" map
1229 *
1230 * Any entries using an assignment operator will be moved to the reply map
1231 * for later merging into the request.
1232 *
1233 * @param request Current request.
1234 * @param check_map to process.
1235 * @param reply_map where any assignment entries will be moved.
1236 * @return
1237 * - 0 if all the check entries pass.
1238 * - -1 if the checks fail.
1239 */
1240static int check_map_process(request_t *request, map_list_t *check_map, map_list_t *reply_map)
1241{
1242 map_t *map, *next;
1243
1244 for (map = map_list_head(check_map);
1245 map != NULL;
1246 map = next) {
1247 next = map_list_next(check_map, map);
1248
1249 if (fr_assignment_op[map->op]) {
1250 (void) map_list_remove(check_map, map);
1251 map_list_insert_tail(reply_map, map);
1252 continue;
1253 }
1254
1255 if (!fr_comparison_op[map->op]) {
1256 REDEBUG("Invalid operator '%s'", fr_tokens[map->op]);
1257 goto fail;
1258 }
1259
1260 if (fr_type_is_structural(tmpl_attr_tail_da(map->lhs)->type) &&
1261 (map->op != T_OP_CMP_TRUE) && (map->op != T_OP_CMP_FALSE)) {
1262 REDEBUG("Invalid comparison for structural type");
1263 goto fail;
1264 }
1265
1266 RDEBUG2(" &%s %s %s", map->lhs->name, fr_tokens[map->op], map->rhs->name);
1267 if (radius_legacy_map_cmp(request, map) != 1) {
1268 fail:
1269 map_list_talloc_free(check_map);
1270 map_list_talloc_free(reply_map);
1271 RDEBUG2("failed match: skipping this entry");
1272 return -1;
1273 }
1274 }
1275 return 0;
1276}
1277
1279{
1280 if (!to_free->inst->sql_escape_arg) (void) request_data_get(to_free->request, (void *)sql_escape_uctx_alloc, 0);
1281 map_list_talloc_free(&to_free->check_tmp);
1282 map_list_talloc_free(&to_free->reply_tmp);
1283 sql_unset_user(to_free->inst, to_free->request);
1284
1285 return 0;
1286}
1287
1288/** Resume function called after authorization group / profile expansion of check / reply query tmpl
1289 *
1290 * Groups and profiles are treated almost identically except:
1291 * - groups are read from an SQL query
1292 * - profiles are read from &control.User-Profile
1293 * - if `cache_groups` is set, groups populate &control.SQL-Group
1294 *
1295 * Profiles are handled after groups, and will not happend if the last group resulted in `Fall-Through = no`
1296 *
1297 * Before each query is run, &request.SQL-Group is populated with the value of the group being evaluated.
1298 *
1299 * @param p_result Result of current authorization.
1300 * @param mctx Current request.
1301 * @param request Current authorization context.
1302 * @return one of the RLM_MODULE_* values.
1303 */
1305{
1306 sql_autz_ctx_t *autz_ctx = talloc_get_type_abort(mctx->rctx, sql_autz_ctx_t);
1307 sql_autz_call_env_t *call_env = autz_ctx->call_env;
1308 sql_group_ctx_t *group_ctx = autz_ctx->group_ctx;
1309 fr_sql_map_ctx_t *map_ctx = autz_ctx->map_ctx;
1310 rlm_sql_t const *inst = autz_ctx->inst;
1311 fr_value_box_t *query = fr_value_box_list_pop_head(&autz_ctx->query);
1312 sql_fall_through_t do_fall_through = FALL_THROUGH_DEFAULT;
1313 fr_pair_t *vp;
1314
1315 switch (p_result->rcode) {
1318
1319 default:
1320 break;
1321 }
1322
1323 switch(autz_ctx->status) {
1325 if (!query) RETURN_UNLANG_FAIL;
1327 MEM(autz_ctx->group_ctx = talloc(autz_ctx, sql_group_ctx_t));
1328 *autz_ctx->group_ctx = (sql_group_ctx_t) {
1329 .inst = inst,
1330 .query = query,
1331 };
1332
1333 if (sql_get_grouplist(p_result, autz_ctx->group_ctx, autz_ctx->trunk, request) == UNLANG_ACTION_PUSHED_CHILD) {
1336 }
1337
1338 group_ctx = autz_ctx->group_ctx;
1339
1341
1343 talloc_free(group_ctx->query);
1344
1345 if (group_ctx->num_groups == 0) {
1346 RDEBUG2("User not found in any groups");
1347 break;
1348 }
1349 fr_assert(group_ctx->groups);
1350
1351 RDEBUG2("User found in the group table");
1352 autz_ctx->user_found = true;
1353 autz_ctx->group = group_ctx->groups;
1354 MEM(pair_update_request(&autz_ctx->sql_group, inst->group_da) >= 0);
1355
1356 next_group:
1357 fr_pair_value_strdup(autz_ctx->sql_group, autz_ctx->group->name, true);
1358 autz_ctx->status = SQL_AUTZ_GROUP_CHECK;
1360
1362 next_profile:
1363 if (autz_ctx->status & SQL_AUTZ_STAGE_PROFILE) {
1364 fr_pair_value_strdup(autz_ctx->sql_group, autz_ctx->profile->vp_strvalue, true);
1365 autz_ctx->status = SQL_AUTZ_PROFILE_CHECK;
1366 }
1367 RDEBUG3("Processing %s %pV",
1368 autz_ctx->status & SQL_AUTZ_STAGE_GROUP ? "group" : "profile", &autz_ctx->sql_group->data);
1369 if (inst->config.cache_groups && autz_ctx->status & SQL_AUTZ_STAGE_GROUP) {
1370 MEM(pair_append_control(&vp, inst->group_da) >= 0);
1371 fr_pair_value_strdup(vp, autz_ctx->group->name, true);
1372 }
1373
1374 if (call_env->group_check_query) {
1376 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request,
1377 call_env->group_check_query, NULL) < 0) RETURN_UNLANG_FAIL;
1379 }
1380
1381 if (call_env->group_reply_query) goto group_reply_push;
1382
1383 break;
1384
1387 if (!query) RETURN_UNLANG_FAIL;
1388 *autz_ctx->map_ctx = (fr_sql_map_ctx_t) {
1389 .ctx = autz_ctx,
1390 .inst = inst,
1391 .out = &autz_ctx->check_tmp,
1392 .list = request_attr_request,
1393 .query = query,
1394 };
1395
1397 if (sql_get_map_list(p_result, request, map_ctx, autz_ctx->trunk) == UNLANG_ACTION_PUSHED_CHILD) {
1400 }
1401
1403
1406 talloc_free(map_ctx->query);
1407
1408 /*
1409 * If we got check rows we need to process them before we decide to
1410 * process the reply rows
1411 */
1412 if (map_ctx->rows > 0) {
1413 if (check_map_process(request, &autz_ctx->check_tmp, &autz_ctx->reply_tmp) < 0) {
1414 map_list_talloc_free(&autz_ctx->check_tmp);
1415 goto next_group_find;
1416 }
1417 RDEBUG2("%s \"%pV\": Conditional check items matched",
1418 autz_ctx->status & SQL_AUTZ_STAGE_GROUP ? "Group" : "Profile", &autz_ctx->sql_group->data);
1419 } else {
1420 RDEBUG2("%s \"%pV\": Conditional check items matched (empty)",
1421 autz_ctx->status & SQL_AUTZ_STAGE_GROUP ? "Group" : "Profile", &autz_ctx->sql_group->data);
1422 }
1423
1424 if (autz_ctx->rcode == RLM_MODULE_NOOP) autz_ctx->rcode = RLM_MODULE_OK;
1425
1426 map_list_talloc_free(&autz_ctx->check_tmp);
1427
1428 if (call_env->group_reply_query) {
1429 group_reply_push:
1431 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request,
1432 call_env->group_reply_query, NULL) < 0) RETURN_UNLANG_FAIL;
1435 }
1436
1437 if (map_list_num_elements(&autz_ctx->reply_tmp)) goto group_attr_cache;
1438
1439 goto next_group_find;
1440
1443 if (!query) RETURN_UNLANG_FAIL;
1444 *autz_ctx->map_ctx = (fr_sql_map_ctx_t) {
1445 .ctx = autz_ctx,
1446 .inst = inst,
1447 .out = &autz_ctx->reply_tmp,
1448 .list = request_attr_reply,
1449 .query = query,
1450 .expand_rhs = true,
1451 };
1452
1454 if (sql_get_map_list(p_result, request, map_ctx, autz_ctx->trunk) == UNLANG_ACTION_PUSHED_CHILD) {
1457 }
1458
1460
1463 talloc_free(map_ctx->query);
1464
1465 if (map_ctx->rows == 0) {
1466 do_fall_through = FALL_THROUGH_DEFAULT;
1467 goto group_attr_cache;
1468 }
1469
1470 fr_assert(!map_list_empty(&autz_ctx->reply_tmp)); /* coverity, among others */
1471 do_fall_through = fall_through(&autz_ctx->reply_tmp);
1472
1473 group_attr_cache:
1474 if (inst->config.cache_groups && autz_ctx->status & SQL_AUTZ_STAGE_GROUP) {
1475 MEM(pair_append_control(&vp, inst->group_da) >= 0);
1476 fr_pair_value_strdup(vp, autz_ctx->group->name, true);
1477 }
1478
1479 if (map_list_num_elements(&autz_ctx->reply_tmp) == 0) goto next_group_find;
1480 RDEBUG2("%s \"%pV\": Merging control and reply items",
1481 autz_ctx->status & SQL_AUTZ_STAGE_GROUP ? "Group" : "Profile", &autz_ctx->sql_group->data);
1482 autz_ctx->rcode = RLM_MODULE_UPDATED;
1483
1484 RINDENT();
1485 if (radius_legacy_map_list_apply(request, &autz_ctx->reply_tmp, NULL) < 0) {
1486 RPEDEBUG("Failed applying reply item");
1487 REXDENT();
1489 }
1490 REXDENT();
1491 map_list_talloc_free(&autz_ctx->reply_tmp);
1492
1493 next_group_find:
1494 if (do_fall_through != FALL_THROUGH_YES) break;
1495 if (autz_ctx->status & SQL_AUTZ_STAGE_PROFILE) {
1496 autz_ctx->profile = fr_pair_find_by_da(&request->control_pairs, autz_ctx->profile, attr_user_profile);
1497 if (autz_ctx->profile) goto next_profile;
1498 break;
1499 }
1500 autz_ctx->group = autz_ctx->group->next;
1501 if (autz_ctx->group) goto next_group;
1502
1503 break;
1504
1505 default:
1506 fr_assert(0);
1507 }
1508
1509 /*
1510 * If group processing has completed, check to see if profile processing should be done
1511 */
1512 if ((autz_ctx->status & SQL_AUTZ_STAGE_GROUP) &&
1513 ((do_fall_through == FALL_THROUGH_YES) ||
1514 (inst->config.read_profiles && (do_fall_through == FALL_THROUGH_DEFAULT)))) {
1515 RDEBUG3("... falling-through to profile processing");
1516
1517 autz_ctx->profile = fr_pair_find_by_da(&request->control_pairs, NULL, attr_user_profile);
1518 if (autz_ctx->profile) {
1519 MEM(pair_update_request(&autz_ctx->sql_group, inst->group_da) >= 0);
1520 autz_ctx->status = SQL_AUTZ_PROFILE_START;
1521 goto next_profile;
1522 }
1523 }
1524
1525 if (!autz_ctx->user_found) RETURN_UNLANG_NOTFOUND;
1526
1527 RETURN_UNLANG_RCODE(autz_ctx->rcode);
1528}
1529
1530/** Resume function called after authorization check / reply tmpl expansion
1531 *
1532 * @param p_result Result of current authorization.
1533 * @param mctx Module call ctx.
1534 * @param request Current request.
1535 * @return one of the RLM_MODULE_* values.
1536 */
1538{
1539 sql_autz_ctx_t *autz_ctx = talloc_get_type_abort(mctx->rctx, sql_autz_ctx_t);
1540 sql_autz_call_env_t *call_env = autz_ctx->call_env;
1541 rlm_sql_t const *inst = autz_ctx->inst;
1542 fr_value_box_t *query = fr_value_box_list_pop_head(&autz_ctx->query);
1543 sql_fall_through_t do_fall_through = FALL_THROUGH_DEFAULT;
1544 fr_sql_map_ctx_t *map_ctx = autz_ctx->map_ctx;
1545
1546 /*
1547 * If a previous async call returned one of the "failure" results just return.
1548 */
1549 switch (p_result->rcode) {
1552
1553 default:
1554 break;
1555 }
1556
1557 switch(autz_ctx->status) {
1558 case SQL_AUTZ_CHECK:
1559 if (!query) RETURN_UNLANG_FAIL;
1560 *autz_ctx->map_ctx = (fr_sql_map_ctx_t) {
1561 .ctx = autz_ctx,
1562 .inst = inst,
1563 .out = &autz_ctx->check_tmp,
1564 .list = request_attr_request,
1565 .query = query,
1566 };
1567
1569 if (sql_get_map_list(p_result, request, map_ctx, autz_ctx->trunk) == UNLANG_ACTION_PUSHED_CHILD){
1570 autz_ctx->status = SQL_AUTZ_CHECK_RESUME;
1572 }
1573
1575
1577 talloc_free(map_ctx->query);
1578
1579 if (map_ctx->rows == 0) goto skip_reply; /* Don't need to handle map entries we don't have */
1580
1581 /*
1582 * Only do this if *some* check pairs were returned
1583 */
1584 RDEBUG2("User found in radcheck table");
1585 autz_ctx->user_found = true;
1586
1587 if (check_map_process(request, &autz_ctx->check_tmp, &autz_ctx->reply_tmp) < 0) goto skip_reply;
1588 RDEBUG2("Conditional check items matched");
1589
1590 autz_ctx->rcode = RLM_MODULE_OK;
1591 map_list_talloc_free(&autz_ctx->check_tmp);
1592
1593 if (!call_env->reply_query) goto skip_reply;
1594
1596 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request, call_env->reply_query, NULL) < 0) RETURN_UNLANG_FAIL;
1597 autz_ctx->status = SQL_AUTZ_REPLY;
1599
1600 case SQL_AUTZ_REPLY:
1601 if (!query) RETURN_UNLANG_FAIL;
1602 *autz_ctx->map_ctx = (fr_sql_map_ctx_t) {
1603 .ctx = autz_ctx,
1604 .inst = inst,
1605 .out = &autz_ctx->reply_tmp,
1606 .list = request_attr_reply,
1607 .query = query,
1608 .expand_rhs = true,
1609 };
1610
1612 if (sql_get_map_list(p_result, request, map_ctx, autz_ctx->trunk) == UNLANG_ACTION_PUSHED_CHILD){
1613 autz_ctx->status = SQL_AUTZ_REPLY_RESUME;
1615 }
1616
1618
1620 talloc_free(map_ctx->query);
1621
1622 if (map_ctx->rows == 0) goto skip_reply;
1623
1624 do_fall_through = fall_through(&autz_ctx->reply_tmp);
1625
1626 RDEBUG2("User found in radreply table");
1627 autz_ctx->user_found = true;
1628
1629 skip_reply:
1630 if (map_list_num_elements(&autz_ctx->reply_tmp)) {
1631 RDEBUG2("Merging control and reply items");
1632 RINDENT();
1633 if (radius_legacy_map_list_apply(request, &autz_ctx->reply_tmp, NULL) < 0) {
1634 RPEDEBUG("Failed applying item");
1635 REXDENT();
1637 }
1638 REXDENT();
1639
1640 autz_ctx->rcode = RLM_MODULE_UPDATED;
1641 map_list_talloc_free(&autz_ctx->reply_tmp);
1642 }
1643
1644 if ((do_fall_through == FALL_THROUGH_YES) ||
1645 (inst->config.read_groups && (do_fall_through == FALL_THROUGH_DEFAULT))) {
1646 RDEBUG3("... falling-through to group processing");
1647
1648 if (!call_env->membership_query) {
1649 RWARN("Cannot check groups when group_membership_query is not set");
1650 break;
1651 }
1652
1653 if (!call_env->group_check_query && !call_env->group_reply_query) {
1654 RWARN("Cannot process groups when neither authorize_group_check_query nor authorize_group_check_query are set");
1655 break;
1656 }
1657
1659 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request,
1660 call_env->membership_query, NULL) < 0) RETURN_UNLANG_FAIL;
1661 autz_ctx->status = SQL_AUTZ_GROUP_MEMB;
1663 }
1664
1665 if ((do_fall_through == FALL_THROUGH_YES) ||
1666 (inst->config.read_profiles && (do_fall_through == FALL_THROUGH_DEFAULT))) {
1667 RDEBUG3("... falling-through to profile processing");
1668
1669 if (!call_env->group_check_query && !call_env->group_reply_query) {
1670 RWARN("Cannot process profiles when neither authorize_group_check_query nor authorize_group_check_query are set");
1671 break;
1672 }
1673
1674 autz_ctx->profile = fr_pair_find_by_da(&request->control_pairs, NULL, attr_user_profile);
1675 if (!autz_ctx->profile) break;
1676
1677 MEM(pair_update_request(&autz_ctx->sql_group, inst->group_da) >= 0);
1678 autz_ctx->status = SQL_AUTZ_PROFILE_START;
1679 return mod_autz_group_resume(p_result, mctx, request);
1680 }
1681 break;
1682
1683 default:
1684 fr_assert_msg(0, "Invalid status %d in mod_authorize_resume", autz_ctx->status);
1685 }
1686
1687 if (!autz_ctx->user_found) RETURN_UNLANG_NOTFOUND;
1688 RETURN_UNLANG_RCODE(autz_ctx->rcode);
1689}
1690
1691/** Start of module authorize method
1692 *
1693 * Pushes the tmpl relating to the first required query for evaluation
1694 */
1695static unlang_action_t CC_HINT(nonnull) mod_authorize(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
1696{
1698 rlm_sql_thread_t *thread = talloc_get_type_abort(mctx->thread, rlm_sql_thread_t);
1699 sql_autz_call_env_t *call_env = talloc_get_type_abort(mctx->env_data, sql_autz_call_env_t);
1700 sql_autz_ctx_t *autz_ctx;
1701
1702 fr_assert(request->packet != NULL);
1703 fr_assert(request->reply != NULL);
1704
1705 if (!call_env->check_query && !call_env->reply_query && !(inst->config.read_groups && call_env->membership_query)) {
1706 RWDEBUG("No authorization checks configured, returning noop");
1708 }
1709
1710 /*
1711 * Set and check the user attr here
1712 */
1713 sql_set_user(inst, request, &call_env->user);
1714
1715 MEM(autz_ctx = talloc(unlang_interpret_frame_talloc_ctx(request), sql_autz_ctx_t));
1716 *autz_ctx = (sql_autz_ctx_t) {
1717 .inst = inst,
1718 .call_env = call_env,
1719 .request = request,
1720 .trunk = thread->trunk,
1721 .rcode = RLM_MODULE_NOOP
1722 };
1723 map_list_init(&autz_ctx->check_tmp);
1724 map_list_init(&autz_ctx->reply_tmp);
1725 MEM(autz_ctx->map_ctx = talloc_zero(autz_ctx, fr_sql_map_ctx_t));
1726 talloc_set_destructor(autz_ctx, sql_autz_ctx_free);
1727
1728 if (unlang_module_yield(request,
1730 NULL, 0, autz_ctx) == UNLANG_ACTION_FAIL) {
1731 error:
1732 talloc_free(autz_ctx);
1734 }
1735
1736 fr_value_box_list_init(&autz_ctx->query);
1737
1738 /*
1739 * Query the check table to find any conditions associated with this user/realm/whatever...
1740 */
1741 if (call_env->check_query) {
1742 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request, call_env->check_query, NULL) < 0) goto error;
1743 autz_ctx->status = SQL_AUTZ_CHECK;
1745 }
1746
1747 if (call_env->reply_query) {
1748 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request, call_env->reply_query, NULL) < 0) goto error;
1749 autz_ctx->status = SQL_AUTZ_REPLY;
1751 }
1752
1753 /*
1754 * Neither check nor reply queries were set, so we must be doing group stuff
1755 */
1756 if (unlang_tmpl_push(autz_ctx, &autz_ctx->query, request, call_env->membership_query, NULL) < 0) goto error;
1757 autz_ctx->status = SQL_AUTZ_GROUP_MEMB;
1759}
1760
1761/** Tidy up when freeing an SQL redundant context
1762 *
1763 * Release the connection handle and unset the SQL-User attribute.
1764 */
1766{
1767 if (!to_free->inst->sql_escape_arg) (void) request_data_get(to_free->request, (void *)sql_escape_uctx_alloc, 0);
1768 sql_unset_user(to_free->inst, to_free->request);
1769
1770 return 0;
1771}
1772
1773static unlang_action_t mod_sql_redundant_resume(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request);
1774
1775/** Resume function called after executing an SQL query in a redundant list of queries.
1776 *
1777 * @param p_result Result of current module call.
1778 * @param mctx Current module ctx.
1779 * @param request Current request.
1780 * @return one of the RLM_MODULE_* values.
1781 */
1783{
1784 sql_redundant_ctx_t *redundant_ctx = talloc_get_type_abort(mctx->rctx, sql_redundant_ctx_t);
1785 sql_redundant_call_env_t *call_env = redundant_ctx->call_env;
1786 rlm_sql_t const *inst = redundant_ctx->inst;
1787 fr_sql_query_t *query_ctx = redundant_ctx->query_ctx;
1788 int numaffected = 0;
1789
1790 RDEBUG2("SQL query returned: %s", fr_table_str_by_value(sql_rcode_description_table, query_ctx->rcode, "<INVALID>"));
1791
1792 switch (query_ctx->rcode) {
1793 /*
1794 * Query was a success! Now we just need to check if it did anything.
1795 */
1796 case RLM_SQL_OK:
1797 break;
1798
1799 /*
1800 * A general, unrecoverable server fault.
1801 */
1802 case RLM_SQL_ERROR:
1803 /*
1804 * If we get RLM_SQL_RECONNECT it means all connections in the pool
1805 * were exhausted, and we couldn't create a new connection,
1806 * so we do not need to call fr_pool_connection_release.
1807 */
1808 case RLM_SQL_RECONNECT:
1810
1811 /*
1812 * Query was invalid, this is a terminal error.
1813 */
1816
1817 /*
1818 * Driver found an error (like a unique key constraint violation)
1819 * that hinted it might be a good idea to try an alternative query.
1820 */
1821 case RLM_SQL_ALT_QUERY:
1822 goto next;
1823
1825 break;
1826 }
1827
1828 /*
1829 * We need to have updated something for the query to have been
1830 * counted as successful.
1831 */
1832 numaffected = (inst->driver->sql_affected_rows)(query_ctx, &inst->config);
1833 TALLOC_FREE(query_ctx);
1834 RDEBUG2("%i record(s) updated", numaffected);
1835
1836 if (numaffected > 0) {
1837 if (inst->query_number_da) {
1838 fr_pair_t *vp;
1839 if (unlikely(pair_update_control(&vp, inst->query_number_da) < 0)) RETURN_UNLANG_FAIL;
1840 vp->vp_uint32 = redundant_ctx->query_no + 1;
1841 RDEBUG2("control.%pP", vp);
1842 }
1843 RETURN_UNLANG_OK; /* A query succeeded, were done! */
1844 }
1845next:
1846 /*
1847 * Look to see if there are any more queries to expand
1848 */
1849 talloc_free(query_ctx);
1850 redundant_ctx->query_no++;
1851 if (redundant_ctx->query_no >= talloc_array_length(call_env->query)) RETURN_UNLANG_NOOP;
1853 if (unlang_tmpl_push(redundant_ctx, &redundant_ctx->query, request, call_env->query[redundant_ctx->query_no], NULL) < 0) RETURN_UNLANG_FAIL;
1854
1855 RDEBUG2("Trying next query...");
1856
1858}
1859
1860
1861/** Resume function called after expansion of next query in a redundant list of queries
1862 *
1863 * @param p_result Result of current module call.
1864 * @param mctx Current module ctx.
1865 * @param request Current request.
1866 * @return one of the RLM_MODULE_* values.
1867 */
1869{
1870 sql_redundant_ctx_t *redundant_ctx = talloc_get_type_abort(mctx->rctx, sql_redundant_ctx_t);
1871 sql_redundant_call_env_t *call_env = redundant_ctx->call_env;
1872 rlm_sql_t const *inst = redundant_ctx->inst;
1873
1874 redundant_ctx->query_vb = fr_value_box_list_pop_head(&redundant_ctx->query);
1875 if (!redundant_ctx->query_vb) RETURN_UNLANG_FAIL;
1876
1877 if ((call_env->filename.type == FR_TYPE_STRING) && (call_env->filename.vb_length > 0)) {
1878 rlm_sql_query_log(inst, call_env->filename.vb_strvalue, redundant_ctx->query_vb->vb_strvalue);
1879 }
1880
1881 MEM(redundant_ctx->query_ctx = fr_sql_query_alloc(redundant_ctx, inst, request, redundant_ctx->trunk,
1882 redundant_ctx->query_vb->vb_strvalue, SQL_QUERY_OTHER));
1883
1884 unlang_module_yield(request, mod_sql_redundant_query_resume, NULL, 0, redundant_ctx);
1885 return unlang_function_push_with_result(/* discard, mod_sql_redundant_query_resume uses query_ctx->rcode*/ NULL,
1886 request,
1887 inst->query,
1888 NULL,
1889 NULL,
1891 redundant_ctx->query_ctx);
1892}
1893
1894/** Generic module call for failing between a bunch of queries.
1895 *
1896 * Used for `accounting` and `send` module calls
1897 *
1898 */
1899static unlang_action_t CC_HINT(nonnull) mod_sql_redundant(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
1900{
1902 rlm_sql_thread_t *thread = talloc_get_type_abort(mctx->thread, rlm_sql_thread_t);
1903 sql_redundant_call_env_t *call_env = talloc_get_type_abort(mctx->env_data, sql_redundant_call_env_t);
1904 sql_redundant_ctx_t *redundant_ctx;
1905
1906 /*
1907 * No query to expand - do nothing.
1908 */
1909 if (!call_env->query) {
1910 RWARN("No query configured");
1912 }
1913
1914 MEM(redundant_ctx = talloc_zero(unlang_interpret_frame_talloc_ctx(request), sql_redundant_ctx_t));
1915 *redundant_ctx = (sql_redundant_ctx_t) {
1916 .inst = inst,
1917 .request = request,
1918 .trunk = thread->trunk,
1919 .call_env = call_env,
1920 .query_no = 0
1921 };
1922 talloc_set_destructor(redundant_ctx, sql_redundant_ctx_free);
1923
1924 sql_set_user(inst, request, &call_env->user);
1925
1926 fr_value_box_list_init(&redundant_ctx->query);
1927
1928 return unlang_module_yield_to_tmpl(request, &redundant_ctx->query, request, *call_env->query,
1929 NULL, mod_sql_redundant_resume, NULL, 0, redundant_ctx);
1930}
1931
1932static int logfile_call_env_parse(TALLOC_CTX *ctx, call_env_parsed_head_t *out, tmpl_rules_t const *t_rules,
1933 CONF_ITEM *ci,
1934 call_env_ctx_t const *cec, UNUSED call_env_parser_t const *rule)
1935{
1936 CONF_SECTION const *subcs = NULL, *subsubcs = NULL;
1937 CONF_PAIR const *to_parse = NULL;
1938 tmpl_t *parsed_tmpl;
1939 call_env_parsed_t *parsed_env;
1940 tmpl_rules_t our_rules;
1941 char *section2, *p;
1942
1944
1945 /*
1946 * The call env subsection which calls this has CF_IDENT_ANY as its name
1947 * which results in finding the first child section of the module config.
1948 * We actually want the whole module config - so go to the parent.
1949 */
1950 ci = cf_parent(ci);
1951
1952 /*
1953 * Find the instance of "logfile" to parse
1954 *
1955 * If the module call is from `accounting Start` then first is
1956 * <module> { accounting { start { logfile } } }
1957 * then
1958 * <module> { accounting { logfile } }
1959 * falling back to
1960 * <module> { logfile }
1961 */
1963 if (subcs) {
1964 if (cec->asked->name2) {
1965 section2 = talloc_strdup(NULL, cec->asked->name2);
1966 p = section2;
1967 while (*p != '\0') {
1968 *(p) = tolower((uint8_t)*p);
1969 p++;
1970 }
1971 subsubcs = cf_section_find(subcs, section2, CF_IDENT_ANY);
1972 talloc_free(section2);
1973 if (subsubcs) to_parse = cf_pair_find(subsubcs, "logfile");
1974 }
1975 if (!to_parse) to_parse = cf_pair_find(subcs, "logfile");
1976 }
1977
1978 if (!to_parse) to_parse = cf_pair_find(cf_item_to_section(ci), "logfile");
1979
1980 if (!to_parse) return 0;
1981
1982 /*
1983 * Use filename safety escape functions
1984 */
1985 our_rules = *t_rules;
1989 .always_escape = false,
1990 };
1992 our_rules.literals_safe_for = our_rules.escape.box_escape.safe_for;
1993
1994 MEM(parsed_env = call_env_parsed_add(ctx, out,
1996
1997 if (tmpl_afrom_substr(parsed_env, &parsed_tmpl,
1998 &FR_SBUFF_IN(cf_pair_value(to_parse), talloc_array_length(cf_pair_value(to_parse)) - 1),
2000 &our_rules) < 0) {
2001 error:
2002 call_env_parsed_free(out, parsed_env);
2003 return -1;
2004 }
2005 if (tmpl_needs_resolving(parsed_tmpl) &&
2006 (tmpl_resolve(parsed_tmpl, &(tmpl_res_rules_t){ .dict_def = our_rules.attr.dict_def }) < 0)) goto error;
2007
2008 call_env_parsed_set_tmpl(parsed_env, parsed_tmpl);
2009
2010 return 0;
2011}
2012
2013static int query_call_env_parse(TALLOC_CTX *ctx, call_env_parsed_head_t *out, tmpl_rules_t const *t_rules,
2014 CONF_ITEM *ci,
2015 call_env_ctx_t const *cec, UNUSED call_env_parser_t const *rule)
2016{
2018 CONF_SECTION const *subcs = NULL;
2019 CONF_PAIR const *to_parse = NULL;
2020 tmpl_t *parsed_tmpl;
2021 call_env_parsed_t *parsed_env;
2022 tmpl_rules_t our_rules;
2023 char *section2, *p;
2024 ssize_t count, slen, multi_index = 0;
2025
2027
2028 /*
2029 * Find the instance(s) of "query" to parse
2030 *
2031 * If the module call is from `accounting Start` then it should be
2032 * <module> { accounting { start { query } } }
2033 */
2034 section2 = talloc_strdup(NULL, section_name_str(cec->asked->name2));
2035 p = section2;
2036 while (*p != '\0') {
2037 *(p) = tolower((uint8_t)*p);
2038 p++;
2039 }
2040 subcs = cf_section_find(cf_item_to_section(ci), section2, CF_IDENT_ANY);
2041 if (!subcs) {
2042 no_query:
2043 cf_log_warn(ci, "No query found for \"%s.%s\", this query will be disabled",
2044 section_name_str(cec->asked->name1), section2);
2045 talloc_free(section2);
2046 return 0;
2047 }
2048 count = cf_pair_count(subcs, "query");
2049 if (count == 0) goto no_query;
2050
2051 talloc_free(section2);
2052
2053 /*
2054 * Use module specific escape functions
2055 */
2056 our_rules = *t_rules;
2057 our_rules.escape = (tmpl_escape_t) {
2060 .safe_for = SQL_SAFE_FOR,
2061 .always_escape = false,
2062 },
2063 .uctx = { .func = { .uctx = inst, .alloc = sql_escape_uctx_alloc }, .type = TMPL_ESCAPE_UCTX_ALLOC_FUNC },
2064 .mode = TMPL_ESCAPE_PRE_CONCAT,
2065 };
2066 our_rules.literals_safe_for = our_rules.escape.box_escape.safe_for;
2067
2068 while ((to_parse = cf_pair_find_next(subcs, to_parse, "query"))) {
2069 MEM(parsed_env = call_env_parsed_add(ctx, out,
2073 }));
2074
2075 slen = tmpl_afrom_substr(parsed_env, &parsed_tmpl,
2076 &FR_SBUFF_IN(cf_pair_value(to_parse), talloc_array_length(cf_pair_value(to_parse)) - 1),
2078 &our_rules);
2079 if (slen <= 0) {
2080 cf_canonicalize_error(to_parse, slen, "Failed parsing query", cf_pair_value(to_parse));
2081 error:
2082 call_env_parsed_free(out, parsed_env);
2083 return -1;
2084 }
2085 if (tmpl_needs_resolving(parsed_tmpl) &&
2086 (tmpl_resolve(parsed_tmpl, &(tmpl_res_rules_t){ .dict_def = our_rules.attr.dict_def }) < 0)) {
2087 cf_log_perr(to_parse, "Failed resolving query");
2088 goto error;
2089 }
2090
2091 call_env_parsed_set_multi_index(parsed_env, count, multi_index++);
2092 call_env_parsed_set_data(parsed_env, parsed_tmpl);
2093 }
2094
2095 return 0;
2096}
2097
2098static int mod_detach(module_detach_ctx_t const *mctx)
2099{
2100 rlm_sql_t *inst = talloc_get_type_abort(mctx->mi->data, rlm_sql_t);
2101
2102 /*
2103 * We need to explicitly free all children, so if the driver
2104 * parented any memory off the instance, their destructors
2105 * run before we unload the bytecode for them.
2106 *
2107 * If we don't do this, we get a SEGV deep inside the talloc code
2108 * when it tries to call a destructor that no longer exists.
2109 */
2110 talloc_free_children(inst);
2111
2112 return 0;
2113}
2114
2115static int mod_instantiate(module_inst_ctx_t const *mctx)
2116{
2117 rlm_sql_boot_t const *boot = talloc_get_type_abort(mctx->mi->boot, rlm_sql_boot_t);
2118 rlm_sql_t *inst = talloc_get_type_abort(mctx->mi->data, rlm_sql_t);
2119 CONF_SECTION *conf = mctx->mi->conf;
2120
2121 /*
2122 * We can't modify the inst field in bootstrap, and there's no
2123 * point in making rlm_sql_boot_t available everywhere.
2124 */
2125 inst->group_da = boot->group_da;
2126 inst->query_number_da = boot->query_number_da;
2127
2128 inst->name = mctx->mi->name; /* Need this for functions in sql.c */
2129 inst->mi = mctx->mi; /* For looking up thread instance data */
2130
2131 /*
2132 * We need authorize_group_check_query or authorize_group_reply_query
2133 * if group_membership_query is set.
2134 *
2135 * Or we need group_membership_query if authorize_group_check_query or
2136 * authorize_group_reply_query is set.
2137 */
2138 if (!cf_pair_find(conf, "group_membership_query")) {
2139 if (cf_pair_find(conf, "authorize_group_check_query")) {
2140 WARN("Ignoring authorize_group_check_query as group_membership_query is not configured");
2141 }
2142
2143 if (cf_pair_find(conf, "authorize_group_reply_query")) {
2144 WARN("Ignoring authorize_group_reply_query as group_membership_query is not configured");
2145 }
2146
2147 if (!inst->config.read_groups) {
2148 WARN("Ignoring read_groups as group_membership_query is not configured");
2149 inst->config.read_groups = false;
2150 }
2151 } /* allow the group check / reply queries to be NULL */
2152
2153 /*
2154 * Cache the SQL-User-Name fr_dict_attr_t, so we can be slightly
2155 * more efficient about creating SQL-User-Name attributes.
2156 */
2157 inst->sql_user = attr_sql_user_name;
2158
2159 /*
2160 * Export these methods, too. This avoids RTDL_GLOBAL.
2161 */
2162 inst->query = rlm_sql_trunk_query;
2163 inst->select = rlm_sql_trunk_query;
2164 inst->fetch_row = rlm_sql_fetch_row;
2165 inst->query_alloc = fr_sql_query_alloc;
2166
2167 /*
2168 * Either use the module specific escape function
2169 * or our default one.
2170 */
2171 if (inst->driver->sql_escape_func) {
2172 inst->sql_escape_func = inst->driver->sql_escape_func;
2173 } else {
2174 inst->sql_escape_func = sql_escape_func;
2175 inst->sql_escape_arg = inst;
2176 }
2177 inst->box_escape = (fr_value_box_escape_t) {
2178 .func = sql_box_escape,
2179 .safe_for = SQL_SAFE_FOR,
2180 .always_escape = false,
2181 };
2182
2183 inst->ef = module_rlm_exfile_init(inst, conf, 256, fr_time_delta_from_sec(30), true, NULL, NULL);
2184 if (!inst->ef) {
2185 cf_log_err(conf, "Failed creating log file context");
2186 return -1;
2187 }
2188
2189 /*
2190 * Most SQL trunks can only have one running request per connection.
2191 */
2192 if (!(inst->driver->flags & RLM_SQL_MULTI_QUERY_CONN)) {
2193 inst->config.trunk_conf.target_req_per_conn = 1;
2194 inst->config.trunk_conf.max_req_per_conn = 1;
2195 }
2196 if (!inst->driver->trunk_io_funcs.connection_notify) {
2197 inst->config.trunk_conf.always_writable = true;
2198 }
2199
2200 /*
2201 * Instantiate the driver module
2202 */
2203 if (unlikely(module_instantiate(inst->driver_submodule) < 0)) {
2204 cf_log_err(conf, "Failed instantiating driver module");
2205 return -1;
2206 }
2207
2208 return 0;
2209}
2210
2211static int mod_bootstrap(module_inst_ctx_t const *mctx)
2212{
2213 rlm_sql_boot_t *boot = talloc_get_type_abort(mctx->mi->boot, rlm_sql_boot_t);
2214 rlm_sql_t const *inst = talloc_get_type_abort(mctx->mi->data, rlm_sql_t);
2215 CONF_SECTION *conf = mctx->mi->conf;
2216 xlat_t *xlat;
2217 xlat_arg_parser_t *sql_xlat_arg;
2219
2220 /*
2221 * Register the group comparison attribute
2222 */
2223 if (cf_pair_find(conf, "group_membership_query")) {
2224 char const *group_attribute;
2225 char buffer[256];
2226
2227 if (inst->config.group_attribute) {
2228 group_attribute = inst->config.group_attribute;
2229 } else if (cf_section_name2(conf)) {
2230 snprintf(buffer, sizeof(buffer), "%s-SQL-Group", mctx->mi->name);
2231 group_attribute = buffer;
2232 } else {
2233 group_attribute = "SQL-Group";
2234 }
2235
2236 boot->group_da = fr_dict_attr_by_name(NULL, fr_dict_root(dict_freeradius), group_attribute);
2237 if (!boot->group_da) {
2239 cf_log_perr(conf, "Failed defining group attribute");
2240 return -1;
2241 }
2242
2243 boot->group_da = fr_dict_attr_search_by_qualified_oid(NULL, dict_freeradius, group_attribute,
2244 false, false);
2245 if (!boot->group_da) {
2246 cf_log_perr(conf, "Failed resolving group attribute");
2247 return -1;
2248 }
2249 }
2250
2251 /*
2252 * Define the new %sql.group(name) xlat. The
2253 * register function automatically adds the
2254 * module instance name as a prefix.
2255 */
2256 xlat = module_rlm_xlat_register(boot, mctx, "group", sql_group_xlat, FR_TYPE_BOOL);
2257 if (!xlat) {
2258 cf_log_perr(conf, "Failed registering %s expansion", group_attribute);
2259 return -1;
2260 }
2262
2263 /*
2264 * The xlat escape function needs access to inst - so
2265 * argument parser details need to be defined here
2266 */
2267 sql_xlat_arg = talloc_zero_array(xlat, xlat_arg_parser_t, 2);
2268 sql_xlat_arg[0] = (xlat_arg_parser_t){
2270 .required = true,
2271 .concat = true
2272 };
2274
2275 xlat_func_args_set(xlat, sql_xlat_arg);
2276 }
2277
2278 /*
2279 * If we need to record which query from a redundant set succeeds, find / create the attribute to use.
2280 */
2281 if (inst->config.query_number_attribute) {
2283 inst->config.query_number_attribute);
2284 if (!boot->query_number_da) {
2286 inst->config.query_number_attribute, FR_TYPE_UINT32, NULL) < 0) {
2287 ERROR("Failed defining query number attribute \"%s\"", inst->config.query_number_attribute);
2288 return -1;
2289 }
2290
2292 inst->config.query_number_attribute,
2293 false, false);
2294 if (!boot->query_number_da) {
2295 ERROR("Failed resolving query number attribute \"%s\"", inst->config.query_number_attribute);
2296 return -1;
2297 }
2298 } else {
2299 if (boot->query_number_da->type != FR_TYPE_UINT32) {
2300 ERROR("Query number attribute \"%s\" is type \"%s\", needs to be uint32",
2301 inst->config.query_number_attribute, fr_type_to_str(boot->query_number_da->type));
2302 return -1;
2303 }
2304 }
2305 }
2306
2307 /*
2308 * Register the SQL xlat function
2309 */
2310 xlat = module_rlm_xlat_register(boot, mctx, NULL, sql_xlat, FR_TYPE_VOID); /* Returns an integer sometimes */
2311 if (!xlat) {
2312 cf_log_perr(conf, "Failed registering %s expansion", mctx->mi->name);
2313 return -1;
2314 }
2316
2317 /*
2318 * The xlat escape function needs access to inst - so
2319 * argument parser details need to be defined here.
2320 * Parented off the module instance "boot" so it can be shared
2321 * between three xlats.
2322 */
2323 MEM(sql_xlat_arg = talloc_zero_array(boot, xlat_arg_parser_t, 2));
2324 MEM(uctx = talloc_zero(sql_xlat_arg, rlm_sql_escape_uctx_t));
2325 *uctx = (rlm_sql_escape_uctx_t){ .sql = inst };
2326 sql_xlat_arg[0] = (xlat_arg_parser_t){
2328 .required = true,
2329 .concat = true,
2330 .func = sql_xlat_escape,
2331 .safe_for = SQL_SAFE_FOR,
2332 .uctx = uctx
2333 };
2335
2336 xlat_func_args_set(xlat, sql_xlat_arg);
2337
2338 /*
2339 * Register instances of the SQL xlat with pre-determined output types
2340 */
2341 if (unlikely(!(xlat = module_rlm_xlat_register(boot, mctx, "fetch", sql_fetch_xlat, FR_TYPE_VOID)))) return -1;
2343 xlat_func_args_set(xlat, sql_xlat_arg);
2344
2345 if (unlikely(!(xlat = module_rlm_xlat_register(boot, mctx, "modify", sql_modify_xlat, FR_TYPE_UINT32)))) return -1;
2347 xlat_func_args_set(xlat, sql_xlat_arg);
2348
2349 if (unlikely(!(xlat = module_rlm_xlat_register(boot, mctx, "escape", sql_escape_xlat, FR_TYPE_STRING)))) return -1;
2350 sql_xlat_arg = talloc_zero_array(xlat, xlat_arg_parser_t, 2);
2351 sql_xlat_arg[0] = (xlat_arg_parser_t){
2353 .variadic = true,
2354 .concat = true,
2355 };
2357 xlat_func_args_set(xlat, sql_xlat_arg);
2360
2361 if (unlikely(!(xlat = module_rlm_xlat_register(boot, mctx, "safe", xlat_transparent, FR_TYPE_STRING)))) return -1;
2362 sql_xlat_arg = talloc_zero_array(xlat, xlat_arg_parser_t, 2);
2363 sql_xlat_arg[0] = (xlat_arg_parser_t){
2365 .variadic = true,
2366 .concat = true
2367 };
2369 xlat_func_args_set(xlat, sql_xlat_arg);
2372
2373 /*
2374 * Register the SQL map processor function
2375 */
2376 if (inst->driver->sql_fields) map_proc_register(mctx->mi->boot, inst, mctx->mi->name, mod_map_proc, sql_map_verify, 0, SQL_SAFE_FOR);
2377
2378 return 0;
2379}
2380
2381/** Initialise thread specific data structure
2382 *
2383 */
2385{
2386 rlm_sql_thread_t *t = talloc_get_type_abort(mctx->thread, rlm_sql_thread_t);
2387 rlm_sql_t *inst = talloc_get_type_abort(mctx->mi->data, rlm_sql_t);
2388
2389 if (inst->driver->sql_escape_arg_alloc) {
2390 t->sql_escape_arg = inst->driver->sql_escape_arg_alloc(t, mctx->el, inst);
2391 if (!t->sql_escape_arg) return -1;
2392 }
2393
2394 t->inst = inst;
2395
2396 t->trunk = trunk_alloc(t, mctx->el, &inst->driver->trunk_io_funcs,
2397 &inst->config.trunk_conf, inst->name, t, false);
2398 if (!t->trunk) return -1;
2399
2400 return 0;
2401}
2402
2404{
2405 rlm_sql_thread_t *t = talloc_get_type_abort(mctx->thread, rlm_sql_thread_t);
2406 rlm_sql_t *inst = talloc_get_type_abort(mctx->mi->data, rlm_sql_t);
2407
2408 if (inst->driver->sql_escape_arg_free) inst->driver->sql_escape_arg_free(t->sql_escape_arg);
2409
2410 return 0;
2411}
2412
2413/** Custom parser for sql call env queries
2414 *
2415 * Needed as the escape function needs to reference the correct SQL driver
2416 */
2417static int sql_call_env_parse(TALLOC_CTX *ctx, void *out, tmpl_rules_t const *t_rules, CONF_ITEM *ci,
2418 call_env_ctx_t const *cec, UNUSED call_env_parser_t const *rule)
2419{
2421 tmpl_t *parsed_tmpl;
2422 CONF_PAIR const *to_parse = cf_item_to_pair(ci);
2423 tmpl_rules_t our_rules = *t_rules;
2424
2425 /*
2426 * Set the sql module instance data as the uctx for escaping
2427 * and use the same "safe_for" as the sql module.
2428 */
2431 .safe_for = SQL_SAFE_FOR,
2432 .always_escape = false,
2433 };
2434 our_rules.escape.uctx.func.uctx = inst;
2435 our_rules.literals_safe_for = SQL_SAFE_FOR;
2436
2437 if (tmpl_afrom_substr(ctx, &parsed_tmpl,
2438 &FR_SBUFF_IN(cf_pair_value(to_parse), talloc_array_length(cf_pair_value(to_parse)) - 1),
2440 &our_rules) < 0) return -1;
2441 *(void **)out = parsed_tmpl;
2442 return 0;
2443}
2444
2445#define QUERY_ESCAPE .pair.escape = { \
2446 .mode = TMPL_ESCAPE_PRE_CONCAT, \
2447 .uctx = { .func = { .alloc = sql_escape_uctx_alloc }, .type = TMPL_ESCAPE_UCTX_ALLOC_FUNC }, \
2448}, .pair.func = sql_call_env_parse
2449
2462
2463/* globally exported name */
2465 .common = {
2466 .magic = MODULE_MAGIC_INIT,
2467 .name = "sql",
2468 .boot_size = sizeof(rlm_sql_boot_t),
2469 .boot_type = "rlm_sql_boot_t",
2470 .inst_size = sizeof(rlm_sql_t),
2471 .config = module_config,
2472 .bootstrap = mod_bootstrap,
2473 .instantiate = mod_instantiate,
2474 .detach = mod_detach,
2475 .thread_inst_size = sizeof(rlm_sql_thread_t),
2478 },
2479 .method_group = {
2480 .bindings = (module_method_binding_t[]){
2481 /*
2482 * Hack to support old configurations
2483 */
2484 { .section = SECTION_NAME("accounting", CF_IDENT_ANY), .method = mod_sql_redundant, .method_env = &accounting_method_env },
2485 { .section = SECTION_NAME("authorize", CF_IDENT_ANY), .method = mod_authorize, .method_env = &authorize_method_env },
2486
2487 { .section = SECTION_NAME("recv", CF_IDENT_ANY), .method = mod_authorize, .method_env = &authorize_method_env },
2488 { .section = SECTION_NAME("send", CF_IDENT_ANY), .method = mod_sql_redundant, .method_env = &send_method_env },
2490 }
2491 }
2492};
unlang_action_t
Returned by unlang_op_t calls, determine the next action of the interpreter.
Definition action.h:35
@ UNLANG_ACTION_PUSHED_CHILD
unlang_t pushed a new child onto the stack, execute it instead of continuing.
Definition action.h:39
@ UNLANG_ACTION_FAIL
Encountered an unexpected error.
Definition action.h:36
@ UNLANG_ACTION_CALCULATE_RESULT
Calculate a new section rlm_rcode_t value.
Definition action.h:37
@ UNLANG_ACTION_YIELD
Temporarily pause execution until an event occurs.
Definition action.h:41
static int const char char buffer[256]
Definition acutest.h:576
#define fr_atexit_thread_local(_name, _free, _uctx)
Definition atexit.h:221
#define RCSID(id)
Definition build.h:485
#define FALL_THROUGH
clang 10 doesn't recognised the FALL-THROUGH comment anymore
Definition build.h:324
#define unlikely(_x)
Definition build.h:383
#define UNUSED
Definition build.h:317
void call_env_parsed_free(call_env_parsed_head_t *parsed, call_env_parsed_t *ptr)
Remove a call_env_parsed_t from the list of parsed call envs.
Definition call_env.c:754
call_env_parsed_t * call_env_parsed_add(TALLOC_CTX *ctx, call_env_parsed_head_t *head, call_env_parser_t const *rule)
Allocate a new call_env_parsed_t structure and add it to the list of parsed call envs.
Definition call_env.c:667
void call_env_parsed_set_multi_index(call_env_parsed_t *parsed, size_t count, size_t index)
Assign a count and index to a call_env_parsed_t.
Definition call_env.c:739
void call_env_parsed_set_data(call_env_parsed_t *parsed, void const *data)
Assign data to a call_env_parsed_t.
Definition call_env.c:724
void call_env_parsed_set_tmpl(call_env_parsed_t *parsed, tmpl_t const *tmpl)
Assign a tmpl to a call_env_parsed_t.
Definition call_env.c:696
#define CALL_ENV_TERMINATOR
Definition call_env.h:236
call_env_ctx_type_t type
Type of callenv ctx.
Definition call_env.h:227
@ CALL_ENV_CTX_TYPE_MODULE
The callenv is registered to a module method.
Definition call_env.h:222
#define FR_CALL_ENV_METHOD_OUT(_inst)
Helper macro for populating the size/type fields of a call_env_method_t from the output structure typ...
Definition call_env.h:240
call_env_parser_t const * env
Parsing rules for call method env.
Definition call_env.h:247
section_name_t const * asked
The actual name1/name2 that resolved to a module_method_binding_t.
Definition call_env.h:232
@ CALL_ENV_FLAG_CONCAT
If the tmpl produced multiple boxes they should be concatenated.
Definition call_env.h:76
@ CALL_ENV_FLAG_SUBSECTION
This is a subsection.
Definition call_env.h:87
@ CALL_ENV_FLAG_PARSE_ONLY
The result of parsing will not be evaluated at runtime.
Definition call_env.h:85
@ CALL_ENV_FLAG_MULTI
Multiple instances of the conf pairs are allowed.
Definition call_env.h:78
module_instance_t const * mi
Module instance that the callenv is registered to.
Definition call_env.h:229
#define FR_CALL_ENV_SUBSECTION_FUNC(_name, _name2, _flags, _func)
Specify a call_env_parser_t which parses a subsection using a callback function.
Definition call_env.h:412
#define FR_CALL_ENV_OFFSET(_name, _cast_type, _flags, _struct, _field)
Specify a call_env_parser_t which writes out runtime results to the specified field.
Definition call_env.h:340
#define FR_CALL_ENV_PARSE_ONLY_OFFSET(_name, _cast_type, _flags, _struct, _parse_field)
Specify a call_env_parser_t which writes out the result of the parsing phase to the field specified.
Definition call_env.h:389
Per method call config.
Definition call_env.h:180
#define CONF_PARSER_TERMINATOR
Definition cf_parse.h:658
cf_parse_t func
Override default parsing behaviour for the specified type with a custom parsing function.
Definition cf_parse.h:612
#define FR_CONF_OFFSET(_name, _struct, _field)
conf_parser_t which parses a single CONF_PAIR, writing the result to a field in a struct
Definition cf_parse.h:284
#define FR_CONF_OFFSET_FLAGS(_name, _flags, _struct, _field)
conf_parser_t which parses a single CONF_PAIR, writing the result to a field in a struct
Definition cf_parse.h:272
#define FR_CONF_OFFSET_SUBSECTION(_name, _flags, _struct, _field, _subcs)
conf_parser_t which populates a sub-struct using a CONF_SECTION
Definition cf_parse.h:313
@ CONF_FLAG_SECRET
Only print value if debug level >= 3.
Definition cf_parse.h:438
@ CONF_FLAG_HIDDEN
Used by scripts to omit items from the generated documentation.
Definition cf_parse.h:457
#define FR_CONF_OFFSET_TYPE_FLAGS(_name, _type, _flags, _struct, _field)
conf_parser_t which parses a single CONF_PAIR, writing the result to a field in a struct
Definition cf_parse.h:241
Defines a CONF_PAIR to C data type mapping.
Definition cf_parse.h:595
Common header for all CONF_* types.
Definition cf_priv.h:49
Configuration AVP similar to a fr_pair_t.
Definition cf_priv.h:70
A section grouping multiple CONF_PAIR.
Definition cf_priv.h:101
CONF_PAIR * cf_pair_find_next(CONF_SECTION const *cs, CONF_PAIR const *prev, char const *attr)
Find a pair with a name matching attr, after specified pair.
Definition cf_util.c:1452
unsigned int cf_pair_count(CONF_SECTION const *cs, char const *attr)
Count the number of times an attribute occurs in a parent section.
Definition cf_util.c:1519
char const * cf_section_name2(CONF_SECTION const *cs)
Return the second identifier of a CONF_SECTION.
Definition cf_util.c:1184
CONF_SECTION * cf_section_find(CONF_SECTION const *cs, char const *name1, char const *name2)
Find a CONF_SECTION with name1 and optionally name2.
Definition cf_util.c:1027
CONF_SECTION * cf_item_to_section(CONF_ITEM const *ci)
Cast a CONF_ITEM to a CONF_SECTION.
Definition cf_util.c:683
CONF_PAIR * cf_pair_find(CONF_SECTION const *cs, char const *attr)
Search for a CONF_PAIR with a specific name.
Definition cf_util.c:1438
fr_token_t cf_pair_value_quote(CONF_PAIR const *pair)
Return the value (rhs) quoting of a pair.
Definition cf_util.c:1637
CONF_PAIR * cf_item_to_pair(CONF_ITEM const *ci)
Cast a CONF_ITEM to a CONF_PAIR.
Definition cf_util.c:663
char const * cf_pair_value(CONF_PAIR const *pair)
Return the value of a CONF_PAIR.
Definition cf_util.c:1593
#define cf_log_err(_cf, _fmt,...)
Definition cf_util.h:289
#define cf_parent(_cf)
Definition cf_util.h:101
#define cf_canonicalize_error(_ci, _slen, _msg, _str)
Definition cf_util.h:367
#define cf_log_perr(_cf, _fmt,...)
Definition cf_util.h:296
#define cf_log_warn(_cf, _fmt,...)
Definition cf_util.h:290
#define CF_IDENT_ANY
Definition cf_util.h:78
static int fr_dcursor_append(fr_dcursor_t *cursor, void *v)
Insert a single item at the end of the list.
Definition dcursor.h:408
#define fr_assert_msg(_x, _msg,...)
Calls panic_action ifndef NDEBUG, else logs error and causes the server to exit immediately with code...
Definition debug.h:210
#define MEM(x)
Definition debug.h:36
#define ERROR(fmt,...)
Definition dhcpclient.c:41
fr_dict_attr_t const * fr_dict_attr_search_by_qualified_oid(fr_dict_attr_err_t *err, fr_dict_t const *dict_def, char const *attr, bool internal, bool foreign))
Locate a qualified fr_dict_attr_t by its name and a dictionary qualifier.
Definition dict_util.c:3084
int fr_dict_attr_add_name_only(fr_dict_t *dict, fr_dict_attr_t const *parent, char const *name, fr_type_t type, fr_dict_attr_flags_t const *flags))
Add an attribute to the dictionary.
Definition dict_util.c:1741
fr_dict_t * fr_dict_unconst(fr_dict_t const *dict)
Coerce to non-const.
Definition dict_util.c:4629
fr_dict_attr_t const * fr_dict_attr_by_name(fr_dict_attr_err_t *err, fr_dict_attr_t const *parent, char const *attr))
Locate a fr_dict_attr_t by its name.
Definition dict_util.c:3266
fr_dict_attr_t const * fr_dict_root(fr_dict_t const *dict)
Return the root attribute of a dictionary.
Definition dict_util.c:2403
fr_dict_attr_t const ** out
Where to write a pointer to the resolved fr_dict_attr_t.
Definition dict.h:274
fr_dict_t const ** out
Where to write a pointer to the loaded/resolved fr_dict_t.
Definition dict.h:287
static fr_slen_t in
Definition dict.h:841
Specifies an attribute which must be present for the module to function.
Definition dict.h:273
Specifies a dictionary which must be loaded/loadable for the module to function.
Definition dict.h:286
Test enumeration values.
Definition dict_test.h:92
#define MODULE_MAGIC_INIT
Stop people using different module/library/server versions together.
Definition dl_module.h:63
#define unlang_function_push_with_result(_result_p, _request, _func, _repeat, _signal, _sigmask, _top_frame, _uctx)
Push a generic function onto the unlang stack that produces a result.
Definition function.h:144
static xlat_action_t sql_escape_xlat(UNUSED TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *in)
Escape a value to make it SQL safe.
Definition rlm_sql.c:426
static xlat_action_t sql_group_xlat(UNUSED TALLOC_CTX *ctx, UNUSED fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, UNUSED fr_value_box_list_t *in)
Check if the user is a member of a particular group.
Definition rlm_sql.c:1203
static xlat_action_t sql_modify_xlat(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *in)
Execute an arbitrary SQL query, returning the number of rows affected.
Definition rlm_sql.c:648
static xlat_action_t sql_fetch_xlat(UNUSED TALLOC_CTX *ctx, UNUSED fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *in)
Execute an arbitrary SQL query, expecting results to be returned.
Definition rlm_sql.c:614
static xlat_action_t sql_xlat(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *in)
Execute an arbitrary SQL query.
Definition rlm_sql.c:550
unlang_result_t * unlang_interpret_result(request_t *request)
Get the last instruction result OR the last frame that was popped.
Definition interpret.c:1565
TALLOC_CTX * unlang_interpret_frame_talloc_ctx(request_t *request)
Get a talloc_ctx which is valid only for this frame.
Definition interpret.c:1665
#define UNLANG_SUB_FRAME
Definition interpret.h:37
rlm_rcode_t rcode
The current rcode, from executing the instruction or merging the result from a frame.
Definition interpret.h:134
#define REXDENT()
Exdent (unindent) R* messages by one level.
Definition log.h:443
#define RWDEBUG(fmt,...)
Definition log.h:361
#define RDEBUG_ENABLED3
True if request debug level 1-3 messages are enabled.
Definition log.h:335
#define RDEBUG3(fmt,...)
Definition log.h:343
#define RWARN(fmt,...)
Definition log.h:297
#define RERROR(fmt,...)
Definition log.h:298
#define RPERROR(fmt,...)
Definition log.h:302
#define RPEDEBUG(fmt,...)
Definition log.h:376
#define RINDENT()
Indent R* messages by one level.
Definition log.h:430
int map_to_request(request_t *request, map_t const *map, radius_map_getvalue_t func, void *ctx)
Convert map_t to fr_pair_t (s) and add them to a request_t.
Definition map.c:1869
int rad_filename_box_make_safe(fr_value_box_t *vb, UNUSED void *uxtc)
Definition util.c:160
unlang_action_t unlang_map_yield(request_t *request, map_proc_func_t resume, unlang_map_signal_t signal, fr_signal_t sigmask, void *rctx)
Yield a request back to the interpreter from within a module.
Definition map.c:344
talloc_free(reap)
int map_proc_register(TALLOC_CTX *ctx, void const *mod_inst, char const *name, map_proc_func_t evaluate, map_proc_instantiate_t instantiate, size_t inst_size, fr_value_box_safe_for_t literals_safe_for)
Register a map processor.
Definition map_proc.c:125
void * rctx
Resume ctx that a module previously set.
Definition map_proc.h:53
void const * moi
Map module instance.
Definition map_proc.h:54
Temporary structure to hold arguments for map calls.
Definition map_proc.h:52
@ FR_TYPE_ETHERNET
48 Bit Mac-Address.
@ FR_TYPE_STRING
String of printable characters.
@ FR_TYPE_UINT32
32 Bit unsigned integer.
@ FR_TYPE_VOID
User data.
@ FR_TYPE_BOOL
A truth value.
unsigned int uint32_t
long int ssize_t
unsigned char uint8_t
int strncasecmp(char *s1, char *s2, int n)
Definition missing.c:36
int strcasecmp(char *s1, char *s2)
Definition missing.c:66
void * env_data
Per call environment data.
Definition module_ctx.h:44
module_instance_t const * mi
Instance of the module being instantiated.
Definition module_ctx.h:42
void * thread
Thread specific instance data.
Definition module_ctx.h:43
void * rctx
Resume ctx that a module previously set.
Definition module_ctx.h:45
fr_event_list_t * el
Event list to register any IO handlers and timers against.
Definition module_ctx.h:68
module_instance_t * mi
Module instance to detach.
Definition module_ctx.h:57
void * thread
Thread instance data.
Definition module_ctx.h:67
module_instance_t const * mi
Instance of the module being instantiated.
Definition module_ctx.h:64
module_instance_t * mi
Instance of the module being instantiated.
Definition module_ctx.h:51
Temporary structure to hold arguments for module calls.
Definition module_ctx.h:41
Temporary structure to hold arguments for detach calls.
Definition module_ctx.h:56
Temporary structure to hold arguments for instantiation calls.
Definition module_ctx.h:50
Temporary structure to hold arguments for thread_instantiation calls.
Definition module_ctx.h:63
xlat_t * module_rlm_xlat_register(TALLOC_CTX *ctx, module_inst_ctx_t const *mctx, char const *name, xlat_func_t func, fr_type_t return_type)
Definition module_rlm.c:243
exfile_t * module_rlm_exfile_init(TALLOC_CTX *ctx, CONF_SECTION *module, uint32_t max_entries, fr_time_delta_t max_idle, bool locking, char const *trigger_prefix, fr_pair_list_t *trigger_args)
Initialise a module specific exfile handle.
Definition module_rlm.c:102
int module_rlm_submodule_parse(TALLOC_CTX *ctx, void *out, void *parent, CONF_ITEM *ci, conf_parser_t const *rule)
Generic conf_parser_t func for loading drivers.
Definition module_rlm.c:936
module_t common
Common fields presented by all modules.
Definition module_rlm.h:39
int fr_pair_value_strdup(fr_pair_t *vp, char const *src, bool tainted)
Copy data into an "string" data type.
Definition pair.c:2636
int fr_pair_value_from_str(fr_pair_t *vp, char const *value, size_t inlen, fr_sbuff_unescape_rules_t const *uerules, UNUSED bool tainted)
Convert string value to native attribute value.
Definition pair.c:2590
fr_pair_t * fr_pair_find_by_da(fr_pair_list_t const *list, fr_pair_t const *prev, fr_dict_attr_t const *da)
Find the first pair with a matching da.
Definition pair.c:697
int fr_pair_delete(fr_pair_list_t *list, fr_pair_t *vp)
Remove fr_pair_t from a list and free.
Definition pair.c:1823
fr_pair_t * fr_pair_afrom_da_nested(TALLOC_CTX *ctx, fr_pair_list_t *list, fr_dict_attr_t const *da)
Create a pair (and all intermediate parents), and append it to the list.
Definition pair.c:471
int radius_legacy_map_cmp(request_t *request, map_t const *map)
Definition pairmove.c:792
int radius_legacy_map_list_apply(request_t *request, map_list_t const *list, fr_edit_list_t *el)
Definition pairmove.c:773
size_t fr_utf8_char(uint8_t const *str, ssize_t inlen)
Checks for utf-8, taken from http://www.w3.org/International/questions/qa-forms-utf-8.
Definition print.c:39
#define fr_assert(_expr)
Definition rad_assert.h:38
#define pair_update_request(_attr, _da)
#define REDEBUG(fmt,...)
Definition radclient.h:52
#define RDEBUG2(fmt,...)
Definition radclient.h:54
#define WARN(fmt,...)
Definition radclient.h:47
static void thread_detach(UNUSED void *uctx)
Explicitly cleanup module/xlat resources.
Definition radiusd.c:150
static int thread_instantiate(TALLOC_CTX *ctx, fr_event_list_t *el, UNUSED void *uctx)
Create module and xlat per-thread instances.
Definition radiusd.c:133
static rs_t * conf
Definition radsniff.c:53
#define RLM_MODULE_USER_SECTION_REJECT
Rcodes that translate to a user configurable section failing overall.
Definition rcode.h:74
#define RETURN_UNLANG_INVALID
Definition rcode.h:60
#define RETURN_UNLANG_RCODE(_rcode)
Definition rcode.h:66
#define RETURN_UNLANG_NOTFOUND
Definition rcode.h:62
#define RETURN_UNLANG_FAIL
Definition rcode.h:57
#define RETURN_UNLANG_OK
Definition rcode.h:58
rlm_rcode_t
Return codes indicating the result of the module call.
Definition rcode.h:40
@ RLM_MODULE_OK
The module is OK, continue.
Definition rcode.h:43
@ RLM_MODULE_FAIL
Module failed, don't reply.
Definition rcode.h:42
@ RLM_MODULE_NOTFOUND
User not found.
Definition rcode.h:47
@ RLM_MODULE_UPDATED
OK (pairs modified).
Definition rcode.h:49
@ RLM_MODULE_NOOP
Module succeeded without doing anything.
Definition rcode.h:48
#define RETURN_UNLANG_NOOP
Definition rcode.h:63
fr_dict_attr_t const * request_attr_request
Definition request.c:43
fr_dict_attr_t const * request_attr_reply
Definition request.c:44
void * request_data_get(request_t *request, void const *unique_ptr, int unique_int)
Get opaque data from a request.
static char const * name
fr_value_box_t user
Definition rlm_sql.c:249
rlm_sql_t const * inst
Module instance.
Definition rlm_sql.c:238
static int sql_map_verify(CONF_SECTION *cs, UNUSED void const *mod_inst, UNUSED void *proc_inst, tmpl_t const *src, UNUSED map_list_t const *maps)
Definition rlm_sql.c:708
static int mod_detach(module_detach_ctx_t const *mctx)
Definition rlm_sql.c:2098
static unlang_action_t mod_autz_group_resume(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
Resume function called after authorization group / profile expansion of check / reply query tmpl.
Definition rlm_sql.c:1304
fr_sql_query_t * query_ctx
Query context.
Definition rlm_sql.c:184
sql_group_ctx_t * group_ctx
Definition rlm_sql.c:1130
rlm_sql_t const * inst
Module instance.
Definition rlm_sql.c:182
sql_redundant_call_env_t * call_env
Call environment data.
Definition rlm_sql.c:241
#define QUERY_ESCAPE
Definition rlm_sql.c:2445
tmpl_t * check_query
Tmpl to expand to form authorize_check_query.
Definition rlm_sql.c:119
static sql_fall_through_t fall_through(map_list_t *maps)
Definition rlm_sql.c:303
rlm_sql_grouplist_t * group
Current group being processed.
Definition rlm_sql.c:202
fr_value_box_t filename
File name to write SQL logs to.
Definition rlm_sql.c:211
static int _sql_map_proc_get_value(TALLOC_CTX *ctx, fr_pair_list_t *out, request_t *request, map_t const *map, void *uctx)
Converts a string value into a fr_pair_t.
Definition rlm_sql.c:682
request_t * request
Request being processed.
Definition rlm_sql.c:239
size_t query_no
Current query number.
Definition rlm_sql.c:242
static const call_env_method_t authorize_method_env
Definition rlm_sql.c:2450
tmpl_t * reply_query
Tmpl to expand to form authorize_reply_query.
Definition rlm_sql.c:120
static int _sql_escape_uxtx_free(void *uctx)
Definition rlm_sql.c:276
static fr_dict_attr_t const * attr_sql_user_name
Definition rlm_sql.c:104
fr_dict_attr_t const * query_number_da
Definition rlm_sql.c:60
static unlang_action_t sql_get_grouplist_resume(unlang_result_t *p_result, request_t *request, void *uctx)
Definition rlm_sql.c:1062
#define SQL_SAFE_FOR
Definition rlm_sql.c:52
static unlang_action_t mod_authorize_resume(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
Resume function called after authorization check / reply tmpl expansion.
Definition rlm_sql.c:1537
static int check_map_process(request_t *request, map_list_t *check_map, map_list_t *reply_map)
Process a "check" map.
Definition rlm_sql.c:1240
#define sql_unset_user(_i, _r)
Definition rlm_sql.c:1054
static fr_dict_attr_t const * attr_fall_through
Definition rlm_sql.c:103
static int logfile_call_env_parse(TALLOC_CTX *ctx, call_env_parsed_head_t *out, tmpl_rules_t const *t_rules, CONF_ITEM *cc, call_env_ctx_t const *cec, call_env_parser_t const *rule)
static fr_dict_t const * dict_freeradius
Definition rlm_sql.c:95
static xlat_action_t sql_group_xlat_resume(UNUSED TALLOC_CTX *ctx, UNUSED fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, UNUSED fr_value_box_list_t *in)
Run SQL query for group membership to return list of groups.
Definition rlm_sql.c:1167
fr_sql_map_ctx_t * map_ctx
Context used for retrieving attribute value pairs as a map list.
Definition rlm_sql.c:205
static xlat_action_t sql_xlat_select_resume(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, UNUSED fr_value_box_list_t *in)
Definition rlm_sql.c:484
static void sql_set_user(rlm_sql_t const *inst, request_t *request, fr_value_box_t *user)
Definition rlm_sql.c:1032
rlm_sql_grouplist_t * groups
List of groups retrieved.
Definition rlm_sql.c:185
fr_value_box_t filename
Definition rlm_sql.c:133
static xlat_action_t sql_group_xlat_query_resume(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, UNUSED request_t *request, fr_value_box_list_t *in)
Compare list of groups returned from SQL query to xlat argument.
Definition rlm_sql.c:1137
static fr_dict_attr_t const * attr_expr_bool_enum
Definition rlm_sql.c:106
fr_value_box_t user
Expansion of the sql_user_name.
Definition rlm_sql.c:118
fr_pair_t * sql_group
Pair to update with group being processed.
Definition rlm_sql.c:203
trunk_t * trunk
Trunk connection for queries.
Definition rlm_sql.c:240
#define SQL_AUTZ_STAGE_PROFILE
Definition rlm_sql.c:177
static xlat_action_t sql_xlat_query_resume(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, UNUSED fr_value_box_list_t *in)
Definition rlm_sql.c:443
map_list_t check_tmp
List to store check items before processing.
Definition rlm_sql.c:197
static int submodule_parse(TALLOC_CTX *ctx, void *out, void *parent, CONF_ITEM *ci, conf_parser_t const *rule)
Definition rlm_sql.c:262
static int mod_bootstrap(module_inst_ctx_t const *mctx)
Definition rlm_sql.c:2211
fr_value_box_t * query
Query string used for evaluating group membership.
Definition rlm_sql.c:183
sql_autz_call_env_t * call_env
Call environment data.
Definition rlm_sql.c:196
module_rlm_t rlm_sql
Definition rlm_sql.c:2464
static unlang_action_t mod_authorize(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
Start of module authorize method.
Definition rlm_sql.c:1695
static unlang_action_t sql_get_grouplist(unlang_result_t *p_result, sql_group_ctx_t *group_ctx, trunk_t *trunk, request_t *request)
Definition rlm_sql.c:1101
static const call_env_method_t xlat_method_env
Definition rlm_sql.c:136
sql_autz_status_t
Status of the authorization process.
Definition rlm_sql.c:158
@ SQL_AUTZ_PROFILE_REPLY
Running profile reply query.
Definition rlm_sql.c:172
@ SQL_AUTZ_CHECK
Running user check query.
Definition rlm_sql.c:159
@ SQL_AUTZ_GROUP_MEMB_RESUME
Completed group membership query.
Definition rlm_sql.c:164
@ SQL_AUTZ_REPLY
Running user reply query.
Definition rlm_sql.c:161
@ SQL_AUTZ_GROUP_MEMB
Running group membership query.
Definition rlm_sql.c:163
@ SQL_AUTZ_PROFILE_REPLY_RESUME
Completed profile reply query.
Definition rlm_sql.c:173
@ SQL_AUTZ_PROFILE_CHECK_RESUME
Completed profile check query.
Definition rlm_sql.c:171
@ SQL_AUTZ_CHECK_RESUME
Completed user check query.
Definition rlm_sql.c:160
@ SQL_AUTZ_PROFILE_START
Starting processing user profiles.
Definition rlm_sql.c:169
@ SQL_AUTZ_GROUP_REPLY_RESUME
Completed group reply query.
Definition rlm_sql.c:168
@ SQL_AUTZ_REPLY_RESUME
Completed user reply query.
Definition rlm_sql.c:162
@ SQL_AUTZ_GROUP_CHECK
Running group check query.
Definition rlm_sql.c:165
@ SQL_AUTZ_PROFILE_CHECK
Running profile check query.
Definition rlm_sql.c:170
@ SQL_AUTZ_GROUP_REPLY
Running group reply query.
Definition rlm_sql.c:167
@ SQL_AUTZ_GROUP_CHECK_RESUME
Completed group check query.
Definition rlm_sql.c:166
static int sql_xlat_escape(request_t *request, fr_value_box_t *vb, void *uctx)
Escape a tainted VB used as an xlat argument.
Definition rlm_sql.c:342
rlm_sql_t const * inst
Module instance.
Definition rlm_sql.c:192
#define SQL_AUTZ_STAGE_GROUP
Definition rlm_sql.c:176
tmpl_t * group_reply_query
Tmpl to expand to form authorize_group_reply_query.
Definition rlm_sql.c:123
tmpl_t * group_check_query
Tmpl to expand to form authorize_group_check_query.
Definition rlm_sql.c:122
int num_groups
How many groups have been retrieved.
Definition rlm_sql.c:186
static int sql_autz_ctx_free(sql_autz_ctx_t *to_free)
Definition rlm_sql.c:1278
trunk_t * trunk
Trunk connection for current authorization.
Definition rlm_sql.c:195
fr_value_box_t * query_vb
Current query string.
Definition rlm_sql.c:244
fr_value_box_list_t query
Where expanded query tmpl will be written.
Definition rlm_sql.c:243
map_list_t reply_tmp
List to store reply items before processing.
Definition rlm_sql.c:198
sql_autz_status_t status
Current status of the authorization.
Definition rlm_sql.c:199
request_t * request
Request being processed.
Definition rlm_sql.c:193
fr_pair_t * profile
Current profile being processed.
Definition rlm_sql.c:204
#define MAX_SQL_FIELD_INDEX
Definition rlm_sql.c:720
fr_dict_attr_autoload_t rlm_sql_dict_attr[]
Definition rlm_sql.c:109
fr_value_box_list_t query
Definition rlm_sql.c:1129
static int mod_thread_instantiate(module_thread_inst_ctx_t const *mctx)
Initialise thread specific data structure.
Definition rlm_sql.c:2384
static void * sql_escape_uctx_alloc(UNUSED request_t *request, void const *uctx)
Definition rlm_sql.c:285
static unlang_action_t mod_sql_redundant(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
Generic module call for failing between a bunch of queries.
Definition rlm_sql.c:1899
fr_sql_query_t * query_ctx
Query context for current query.
Definition rlm_sql.c:245
static unlang_action_t mod_sql_redundant_query_resume(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
Resume function called after executing an SQL query in a redundant list of queries.
Definition rlm_sql.c:1782
rlm_rcode_t rcode
Module return code.
Definition rlm_sql.c:194
tmpl_t ** query
Array of tmpls for list of queries to run.
Definition rlm_sql.c:212
rlm_sql_grouplist_t * next
Definition rlm_sql.c:1059
static const call_env_method_t accounting_method_env
Definition rlm_sql.c:215
static int sql_redundant_ctx_free(sql_redundant_ctx_t *to_free)
Tidy up when freeing an SQL redundant context.
Definition rlm_sql.c:1765
static const call_env_method_t group_xlat_method_env
Definition rlm_sql.c:253
sql_group_ctx_t * group_ctx
Context used for retrieving user group membership.
Definition rlm_sql.c:206
tmpl_t * membership_query
Tmpl to expand to form group_membership_query.
Definition rlm_sql.c:121
static int sql_box_escape(fr_value_box_t *vb, void *uctx)
Definition rlm_sql.c:413
static const conf_parser_t module_config[]
Definition rlm_sql.c:63
fr_value_box_list_t query
Where expanded query tmpls will be written.
Definition rlm_sql.c:200
bool user_found
Has the user been found anywhere?
Definition rlm_sql.c:201
static fr_dict_attr_t const * attr_user_profile
Definition rlm_sql.c:105
static const call_env_method_t send_method_env
Definition rlm_sql.c:225
fr_dict_autoload_t rlm_sql_dict[]
Definition rlm_sql.c:98
fr_dict_attr_t const * group_da
Definition rlm_sql.c:59
static int mod_thread_detach(module_thread_inst_ctx_t const *mctx)
Definition rlm_sql.c:2403
static unlang_action_t mod_map_resume(unlang_result_t *p_result, map_ctx_t const *mpctx, request_t *request, UNUSED fr_value_box_list_t *query, map_list_t const *maps)
Process the results of an SQL map query.
Definition rlm_sql.c:734
static int mod_instantiate(module_inst_ctx_t const *mctx)
Definition rlm_sql.c:2115
fr_value_box_t user
Expansion of sql_user_name.
Definition rlm_sql.c:210
static int query_call_env_parse(TALLOC_CTX *ctx, call_env_parsed_head_t *out, tmpl_rules_t const *t_rules, CONF_ITEM *cc, call_env_ctx_t const *cec, call_env_parser_t const *rule)
static unlang_action_t mod_map_proc(unlang_result_t *p_result, map_ctx_t const *mpctx, request_t *request, fr_value_box_list_t *query, UNUSED map_list_t const *maps)
Executes a SELECT query and maps the result to server attributes.
Definition rlm_sql.c:872
static ssize_t sql_escape_func(request_t *, char *out, size_t outlen, char const *in, void *arg)
static int sql_call_env_parse(TALLOC_CTX *ctx, void *out, tmpl_rules_t const *t_rules, CONF_ITEM *ci, call_env_ctx_t const *cec, UNUSED call_env_parser_t const *rule)
Custom parser for sql call env queries.
Definition rlm_sql.c:2417
static unlang_action_t mod_sql_redundant_resume(unlang_result_t *p_result, module_ctx_t const *mctx, request_t *request)
Resume function called after expansion of next query in a redundant list of queries.
Definition rlm_sql.c:1868
Context for SQL authorization.
Definition rlm_sql.c:191
Context for group membership query evaluation.
Definition rlm_sql.c:181
Context for tracking redundant SQL query sets.
Definition rlm_sql.c:237
Prototypes and functions for the SQL module.
fr_sql_query_t * fr_sql_query_alloc(TALLOC_CTX *ctx, rlm_sql_t const *inst, request_t *request, trunk_t *trunk, char const *query_str, fr_sql_query_type_t type)
Allocate an sql query structure.
Definition sql.c:183
trunk_t * trunk
Trunk connection for this thread.
Definition rlm_sql.h:114
rlm_sql_t const * inst
Module instance data.
Definition rlm_sql.h:115
#define RLM_SQL_MULTI_QUERY_CONN
Can support multiple queries on a single connection.
Definition rlm_sql.h:173
fr_sql_query_type_t type
Type of query.
Definition rlm_sql.h:143
unlang_action_t sql_get_map_list(unlang_result_t *p_result, request_t *request, fr_sql_map_ctx_t *map_ctx, trunk_t *trunk)
Submit the query to get any user / group check or reply pairs.
Definition sql.c:344
unlang_action_t rlm_sql_fetch_row(unlang_result_t *p_result, request_t *request, void *uctx)
Call the driver's sql_fetch_row function.
Definition sql.c:79
void rlm_sql_query_log(rlm_sql_t const *inst, char const *filename, char const *query)
Definition sql.c:374
rlm_sql_t const * inst
Module instance for this query.
Definition rlm_sql.h:137
sql_rcode_t
Action to take at end of an SQL query.
Definition rlm_sql.h:44
@ RLM_SQL_QUERY_INVALID
Query syntax error.
Definition rlm_sql.h:45
@ RLM_SQL_ALT_QUERY
Key constraint violation, use an alternative query.
Definition rlm_sql.h:49
@ RLM_SQL_RECONNECT
Stale connection, should reconnect.
Definition rlm_sql.h:48
@ RLM_SQL_ERROR
General connection/server error.
Definition rlm_sql.h:46
@ RLM_SQL_OK
Success.
Definition rlm_sql.h:47
@ RLM_SQL_NO_MORE_ROWS
No more rows available.
Definition rlm_sql.h:50
@ SQL_QUERY_SELECT
Definition rlm_sql.h:120
@ SQL_QUERY_OTHER
Definition rlm_sql.h:121
TALLOC_CTX * ctx
To allocate map entries in.
Definition rlm_sql.h:153
void * sql_escape_arg
Thread specific argument to be passed to escape function.
Definition rlm_sql.h:116
sql_fall_through_t
Definition rlm_sql.h:53
@ FALL_THROUGH_DEFAULT
Definition rlm_sql.h:56
@ FALL_THROUGH_YES
Definition rlm_sql.h:55
char ** rlm_sql_row_t
Definition rlm_sql.h:59
int rows
How many rows the query returned.
Definition rlm_sql.h:159
void rlm_sql_print_error(rlm_sql_t const *inst, request_t *request, fr_sql_query_t *query_ctx, bool force_debug)
Retrieve any errors from the SQL driver.
Definition sql.c:122
rlm_sql_row_t row
Row data from the last query.
Definition rlm_sql.h:146
sql_rcode_t rcode
Result code.
Definition rlm_sql.h:145
fr_value_box_t * query
Query string used for fetching pairs.
Definition rlm_sql.h:155
rlm_sql_t const * sql
Definition rlm_sql.h:197
fr_table_num_sorted_t const sql_rcode_description_table[]
Definition sql.c:45
unlang_action_t rlm_sql_trunk_query(unlang_result_t *p_result, request_t *request, void *uctx)
Submit an SQL query using a trunk connection.
Definition sql.c:233
Context used when fetching attribute value pairs as a map list.
Definition rlm_sql.h:152
int fr_sbuff_trim_talloc(fr_sbuff_t *sbuff, size_t len)
Trim a talloced sbuff to the minimum length required to represent the contained string.
Definition sbuff.c:421
#define FR_SBUFF_IN(_start, _len_or_end)
#define fr_sbuff_buff(_sbuff_or_marker)
Talloc sbuff extension structure.
Definition sbuff.h:139
static char const * section_name_str(char const *name)
Return a printable string for the section name.
Definition section.h:98
#define SECTION_NAME(_name1, _name2)
Define a section name consisting of a verb and a noun.
Definition section.h:40
char const * name2
Second section name. Usually a packet type like 'access-request', 'access-accept',...
Definition section.h:46
char const * name1
First section name. Usually a verb like 'recv', 'send', etc...
Definition section.h:45
char const * name
Instance name e.g. user_database.
Definition module.h:355
CONF_SECTION * conf
Module's instance configuration.
Definition module.h:349
void * data
Module's instance data.
Definition module.h:291
void * boot
Data allocated during the boostrap phase.
Definition module.h:294
void * data
Thread specific instance data.
Definition module.h:372
static module_thread_instance_t * module_thread(module_instance_t const *mi)
Retrieve module/thread specific instance for a module.
Definition module.h:501
#define MODULE_BINDING_TERMINATOR
Terminate a module binding list.
Definition module.h:152
size_t boot_size
Size of the module's bootstrap data.
Definition module.h:209
module_t * exported
Public module structure.
Definition module.h:296
Module instance data.
Definition module.h:285
Named methods exported by a module.
Definition module.h:174
#define pair_append_control(_attr, _da)
Allocate and append a fr_pair_t to the control list.
Definition pair.h:57
#define pair_delete_request(_pair_or_da)
Delete a fr_pair_t in the request list.
Definition pair.h:172
#define pair_update_control(_attr, _da)
Return or allocate a fr_pair_t in the control list.
Definition pair.h:140
tmpl_escape_t escape
How escaping should be handled during evaluation.
Definition tmpl.h:349
int tmpl_resolve(tmpl_t *vpt, tmpl_res_rules_t const *tr_rules))
Attempt to resolve functions and attributes in xlats and attribute references.
#define tmpl_value(_tmpl)
Definition tmpl.h:937
fr_value_box_safe_for_t literals_safe_for
safe_for value assigned to literal values in xlats, execs, and data.
Definition tmpl.h:347
#define tmpl_is_attr(vpt)
Definition tmpl.h:208
ssize_t tmpl_afrom_substr(TALLOC_CTX *ctx, tmpl_t **out, fr_sbuff_t *in, fr_token_t quote, fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules))
Convert an arbitrary string into a tmpl_t.
#define tmpl_is_data(vpt)
Definition tmpl.h:206
#define tmpl_expand(_out, _buff, _buff_len, _request, _vpt)
Expand a tmpl to a C type, using existing storage to hold variably sized types.
Definition tmpl.h:1052
#define tmpl_value_type(_tmpl)
Definition tmpl.h:939
tmpl_attr_rules_t attr
Rules/data for parsing attribute references.
Definition tmpl.h:335
static fr_dict_attr_t const * tmpl_attr_tail_da(tmpl_t const *vpt)
Return the last attribute reference da.
Definition tmpl.h:801
#define tmpl_needs_resolving(vpt)
Definition tmpl.h:223
Similar to tmpl_rules_t, but used to specify parameters that may change during subsequent resolution ...
Definition tmpl.h:364
Optional arguments passed to vp_tmpl functions.
Definition tmpl.h:332
#define fr_skip_whitespace(_p)
Skip whitespace ('\t', '\n', '\v', '\f', '\r', ' ')
Definition skip.h:37
PUBLIC int snprintf(char *string, size_t length, char *format, va_alist)
Definition snprintf.c:689
return count
Definition module.c:155
int module_instantiate(module_instance_t *instance)
Manually complete module setup by calling its instantiate function.
Definition module.c:1189
unlang_action_t unlang_module_yield(request_t *request, module_method_t resume, unlang_module_signal_t signal, fr_signal_t sigmask, void *rctx)
Yield a request back to the interpreter from within a module.
Definition module.c:434
unlang_action_t unlang_module_yield_to_tmpl(TALLOC_CTX *ctx, fr_value_box_list_t *out, request_t *request, tmpl_t const *vpt, unlang_tmpl_args_t *args, module_method_t resume, unlang_module_signal_t signal, fr_signal_t sigmask, void *rctx)
Push a pre-compiled tmpl and resumption state onto the stack for evaluation.
Definition module.c:229
eap_aka_sim_process_conf_t * inst
fr_pair_value_bstrdup_buffer(vp, eap_session->identity, true)
fr_pair_t * vp
eap_type_t type
The preferred EAP-Type of this instance of the EAP-SIM/AKA/AKA' state machine.
Value pair map.
Definition map.h:77
fr_token_t op
The operator that controls insertion of the dst attribute.
Definition map.h:82
tmpl_t * lhs
Typically describes the attribute to add, modify or compare.
Definition map.h:78
tmpl_t * rhs
Typically describes a literal value or a src attribute to copy or compare.
Definition map.h:79
void * sql_escape_arg
Instance specific argument to be passed to escape function.
Definition rlm_sql.h:239
fr_dict_t const * dict_def
Default dictionary to use with unqualified attribute references.
Definition tmpl.h:273
Stores an attribute, a value and various bits of other data.
Definition pair.h:68
fr_dict_attr_t const *_CONST da
Dictionary attribute defines the attribute number, vendor and type of the pair.
Definition pair.h:69
#define fr_table_str_by_value(_table, _number, _def)
Convert an integer to a string.
Definition table.h:772
char * talloc_typed_strdup(TALLOC_CTX *ctx, char const *p)
Call talloc_strdup, setting the type on the new chunk correctly.
Definition talloc.c:467
#define talloc_get_type_abort_const
Definition talloc.h:287
static fr_time_delta_t fr_time_delta_from_sec(int64_t sec)
Definition time.h:590
int unlang_tmpl_push(TALLOC_CTX *ctx, fr_value_box_list_t *out, request_t *request, tmpl_t const *tmpl, unlang_tmpl_args_t *args)
Push a tmpl onto the stack for evaluation.
Definition tmpl.c:271
@ TMPL_ESCAPE_UCTX_ALLOC_FUNC
A new uctx of the specified size and type is allocated and pre-populated by memcpying uctx....
Definition tmpl_escape.h:35
fr_value_box_escape_t box_escape
How to escape when returned from evaluation.
Definition tmpl_escape.h:81
@ TMPL_ESCAPE_PRE_CONCAT
Pre-concatenation escaping is useful for DSLs where elements of the expansion are static,...
Definition tmpl_escape.h:61
struct tmpl_escape_t::@75 uctx
tmpl_escape_mode_t mode
Whether to apply escape function after concatenation, i.e.
Definition tmpl_escape.h:83
Escaping rules for tmpls.
Definition tmpl_escape.h:80
const bool fr_assignment_op[T_TOKEN_LAST]
Definition token.c:169
char const * fr_tokens[T_TOKEN_LAST]
Definition token.c:79
const bool fr_comparison_op[T_TOKEN_LAST]
Definition token.c:199
@ T_OP_CMP_TRUE
Definition token.h:104
@ T_OP_CMP_FALSE
Definition token.h:105
trunk_t * trunk_alloc(TALLOC_CTX *ctx, fr_event_list_t *el, trunk_io_funcs_t const *funcs, trunk_conf_t const *conf, char const *log_prefix, void const *uctx, bool delay_start)
Allocate a new collection of connections.
Definition trunk.c:4945
conf_parser_t const trunk_config[]
Config parser definitions to populate a trunk_conf_t.
Definition trunk.c:314
Main trunk management handle.
Definition trunk.c:197
static int expand_rhs(request_t *request, unlang_frame_state_edit_t *state, edit_map_t *current)
Definition edit.c:1137
xlat_action_t unlang_xlat_yield(request_t *request, xlat_func_t resume, xlat_func_signal_t signal, fr_signal_t sigmask, void *rctx)
Yield a request back to the interpreter from within a module.
Definition xlat.c:560
fr_type_t type
Type to cast argument to.
Definition xlat.h:155
xlat_action_t xlat_transparent(UNUSED TALLOC_CTX *ctx, fr_dcursor_t *out, UNUSED xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *args)
#define XLAT_ARG_PARSER_TERMINATOR
Definition xlat.h:170
xlat_action_t
Definition xlat.h:37
@ XLAT_ACTION_FAIL
An xlat function failed.
Definition xlat.h:44
@ XLAT_ACTION_YIELD
An xlat function pushed a resume frame onto the stack.
Definition xlat.h:42
@ XLAT_ACTION_PUSH_UNLANG
An xlat function pushed an unlang frame onto the unlang stack.
Definition xlat.h:39
@ XLAT_ACTION_DONE
We're done evaluating this level of nesting.
Definition xlat.h:43
Definition for a single argument consumend by an xlat function.
Definition xlat.h:145
static fr_slen_t parent
Definition pair.h:839
#define fr_strerror_printf_push(_fmt,...)
Add a message to an existing stack of messages at the tail.
Definition strerror.h:84
#define fr_type_is_structural(_x)
Definition types.h:388
#define FR_TYPE_IP
Definition types.h:304
static char const * fr_type_to_str(fr_type_t type)
Return a static string containing the type name.
Definition types.h:450
#define FR_TYPE_NUMERIC
Definition types.h:302
fr_sbuff_parse_rules_t const * value_parse_rules_quoted[T_TOKEN_LAST]
Parse rules for quoted strings.
Definition value.c:605
int fr_value_box_cast_in_place(TALLOC_CTX *ctx, fr_value_box_t *vb, fr_type_t dst_type, fr_dict_attr_t const *dst_enumv)
Convert one type of fr_value_box_t to another in place.
Definition value.c:3790
void fr_value_box_clear_value(fr_value_box_t *data)
Clear/free any existing value.
Definition value.c:3899
int fr_value_box_strdup(TALLOC_CTX *ctx, fr_value_box_t *dst, fr_dict_attr_t const *enumv, char const *src, bool tainted)
Copy a nul terminated string to a fr_value_box_t.
Definition value.c:4158
void fr_value_box_strdup_shallow_replace(fr_value_box_t *vb, char const *src, ssize_t len)
Free the existing buffer (if talloced) associated with the valuebox, and replace it with a new one.
Definition value.c:4283
int fr_value_box_list_concat_in_place(TALLOC_CTX *ctx, fr_value_box_t *out, fr_value_box_list_t *list, fr_type_t type, fr_value_box_list_action_t proc_action, bool flatten, size_t max_size)
Concatenate a list of value boxes.
Definition value.c:5949
@ FR_VALUE_BOX_LIST_FREE
Definition value.h:237
#define fr_value_box_alloc(_ctx, _type, _enumv)
Allocate a value box of a specific type.
Definition value.h:640
#define fr_value_box_mark_safe_for(_box, _safe_for)
Definition value.h:1071
#define fr_box_strvalue_buffer(_val)
Definition value.h:308
#define fr_value_box_is_safe_for(_box, _safe_for)
Definition value.h:1078
fr_value_box_safe_for_t safe_for
Definition value.h:674
uintptr_t fr_value_box_safe_for_t
Escaping that's been applied to a value box.
Definition value.h:160
int nonnull(2, 5))
#define fr_value_box_alloc_null(_ctx)
Allocate a value box for later use with a value assignment function.
Definition value.h:651
fr_value_box_escape_func_t func
Definition value.h:673
static size_t char ** out
Definition value.h:1020
static TALLOC_CTX * xlat_ctx
void * rctx
Resume context.
Definition xlat_ctx.h:54
void * env_data
Expanded call env data.
Definition xlat_ctx.h:53
module_ctx_t const * mctx
Synthesised module calling ctx.
Definition xlat_ctx.h:52
An xlat calling ctx.
Definition xlat_ctx.h:49
void xlat_func_flags_set(xlat_t *x, xlat_func_flags_t flags)
Specify flags that alter the xlat's behaviour.
Definition xlat_func.c:399
int xlat_func_args_set(xlat_t *x, xlat_arg_parser_t const args[])
Register the arguments of an xlat.
Definition xlat_func.c:363
void xlat_func_call_env_set(xlat_t *x, call_env_method_t const *env_method)
Register call environment of an xlat.
Definition xlat_func.c:389
#define xlat_func_safe_for_set(_xlat, _escaped)
Set the escaped values for output boxes.
Definition xlat_func.h:82
@ XLAT_FUNC_FLAG_PURE
Definition xlat_func.h:38