123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569 |
- /*
- * Copyright 2024 Vsevolod Stakhov
- *
- * Licensed under the Apache License, Version 2.0 (the "License");
- * you may not use this file except in compliance with the License.
- * You may obtain a copy of the License at
- *
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing, software
- * distributed under the License is distributed on an "AS IS" BASIS,
- * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- * See the License for the specific language governing permissions and
- * limitations under the License.
- */
- #include "lua_common.h"
- #include "lua_url.h"
-
-
- /***
- * @module rspamd_url
- * This module provides routines to handle URL's and extract URL's from the text.
- * Objects of this class are returned, for example, by `task:get_urls()` or `task:get_emails()`.
- * You can also create `rspamd_url` from any text.
- * @example
- local url = require "rspamd_url"
- local mpool = require "rspamd_mempool"
-
- url.init("/usr/share/rspamd/effective_tld_names.dat")
- local pool = mpool.create()
- local res = url.create(pool, 'Look at: http://user@test.example.com/test?query")
- local t = res:to_table()
- -- Content of t:
- -- url = ['http://test.example.com/test?query']
- -- host = ['test.example.com']
- -- user = ['user']
- -- path = ['test']
- -- tld = ['example.com']
-
- pool:destroy() -- res is destroyed here, so you should not use it afterwards
-
- local mistake = res:to_table() -- INVALID! as pool is destroyed
- */
-
- /* URL methods */
- LUA_FUNCTION_DEF(url, get_length);
- LUA_FUNCTION_DEF(url, get_host);
- LUA_FUNCTION_DEF(url, get_port);
- LUA_FUNCTION_DEF(url, get_user);
- LUA_FUNCTION_DEF(url, get_path);
- LUA_FUNCTION_DEF(url, get_query);
- LUA_FUNCTION_DEF(url, get_fragment);
- LUA_FUNCTION_DEF(url, get_text);
- LUA_FUNCTION_DEF(url, tostring);
- LUA_FUNCTION_DEF(url, get_raw);
- LUA_FUNCTION_DEF(url, get_tld);
- LUA_FUNCTION_DEF(url, get_flags);
- LUA_FUNCTION_DEF(url, get_flags_num);
- LUA_FUNCTION_DEF(url, get_protocol);
- LUA_FUNCTION_DEF(url, to_table);
- LUA_FUNCTION_DEF(url, is_phished);
- LUA_FUNCTION_DEF(url, is_redirected);
- LUA_FUNCTION_DEF(url, is_obscured);
- LUA_FUNCTION_DEF(url, is_html_displayed);
- LUA_FUNCTION_DEF(url, is_subject);
- LUA_FUNCTION_DEF(url, get_phished);
- LUA_FUNCTION_DEF(url, set_redirected);
- LUA_FUNCTION_DEF(url, get_count);
- LUA_FUNCTION_DEF(url, get_visible);
- LUA_FUNCTION_DEF(url, create);
- LUA_FUNCTION_DEF(url, init);
- LUA_FUNCTION_DEF(url, all);
- LUA_FUNCTION_DEF(url, lt);
- LUA_FUNCTION_DEF(url, eq);
- LUA_FUNCTION_DEF(url, get_order);
- LUA_FUNCTION_DEF(url, get_part_order);
- LUA_FUNCTION_DEF(url, to_http);
-
- static const struct luaL_reg urllib_m[] = {
- LUA_INTERFACE_DEF(url, get_length),
- LUA_INTERFACE_DEF(url, get_host),
- LUA_INTERFACE_DEF(url, get_port),
- LUA_INTERFACE_DEF(url, get_user),
- LUA_INTERFACE_DEF(url, get_path),
- LUA_INTERFACE_DEF(url, get_query),
- LUA_INTERFACE_DEF(url, get_fragment),
- LUA_INTERFACE_DEF(url, get_text),
- LUA_INTERFACE_DEF(url, get_tld),
- LUA_INTERFACE_DEF(url, get_raw),
- LUA_INTERFACE_DEF(url, get_protocol),
- LUA_INTERFACE_DEF(url, to_table),
- LUA_INTERFACE_DEF(url, is_phished),
- LUA_INTERFACE_DEF(url, is_redirected),
- LUA_INTERFACE_DEF(url, is_obscured),
- LUA_INTERFACE_DEF(url, is_html_displayed),
- LUA_INTERFACE_DEF(url, is_subject),
- LUA_INTERFACE_DEF(url, get_phished),
-
- LUA_INTERFACE_DEF(url, get_visible),
- LUA_INTERFACE_DEF(url, get_count),
- LUA_INTERFACE_DEF(url, get_flags),
- LUA_INTERFACE_DEF(url, get_flags_num),
- LUA_INTERFACE_DEF(url, get_order),
- LUA_INTERFACE_DEF(url, get_part_order),
- LUA_INTERFACE_DEF(url, to_http),
- {"get_redirected", lua_url_get_phished},
- LUA_INTERFACE_DEF(url, set_redirected),
- {"__tostring", lua_url_tostring},
- {"__eq", lua_url_eq},
- {"__lt", lua_url_lt},
- {NULL, NULL}};
-
- static const struct luaL_reg urllib_f[] = {
- LUA_INTERFACE_DEF(url, init),
- LUA_INTERFACE_DEF(url, create),
- LUA_INTERFACE_DEF(url, all),
- {NULL, NULL}};
-
- struct rspamd_lua_url *
- lua_check_url(lua_State *L, int pos)
- {
- void *ud = rspamd_lua_check_udata(L, pos, rspamd_url_classname);
- luaL_argcheck(L, ud != NULL, pos, "'url' expected");
- return ud ? ((struct rspamd_lua_url *) ud) : NULL;
- }
-
- static gboolean
- lua_url_single_inserter(struct rspamd_url *url, gsize start_offset,
- gsize end_offset, gpointer ud)
- {
- lua_State *L = ud;
- struct rspamd_lua_url *lua_url;
-
- lua_url = lua_newuserdata(L, sizeof(struct rspamd_lua_url));
- rspamd_lua_setclass(L, rspamd_url_classname, -1);
- lua_url->url = url;
-
- return TRUE;
- }
-
- /***
- * @method url:get_length()
- * Get length of the url
- * @return {number} length of url in bytes
- */
- static int
- lua_url_get_length(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushinteger(L, url->url->urllen);
- }
- else {
- lua_pushnil(L);
- }
- return 1;
- }
-
- /***
- * @method url:get_host()
- * Get domain part of the url
- * @return {string} domain part of URL
- */
- static int
- lua_url_get_host(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url && url->url->hostlen > 0) {
- lua_pushlstring(L, rspamd_url_host(url->url), url->url->hostlen);
- }
- else {
- lua_pushnil(L);
- }
- return 1;
- }
-
- /***
- * @method url:get_port()
- * Get port of the url
- * @return {number} url port
- */
- static int
- lua_url_get_port(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- if (rspamd_url_get_port_if_special(url->url) == 0) {
- lua_pushnil(L);
- }
- else {
- lua_pushinteger(L, rspamd_url_get_port_if_special(url->url));
- }
- }
- else {
- lua_pushnil(L);
- }
- return 1;
- }
-
- /***
- * @method url:get_user()
- * Get user part of the url (e.g. username in email)
- * @return {string} user part of URL
- */
- static int
- lua_url_get_user(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && rspamd_url_user(url->url) != NULL) {
- lua_pushlstring(L, rspamd_url_user(url->url), url->url->userlen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_path()
- * Get path of the url
- * @return {string} path part of URL
- */
- static int
- lua_url_get_path(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url->datalen > 0) {
- lua_pushlstring(L, rspamd_url_data_unsafe(url->url), url->url->datalen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_query()
- * Get query of the url
- * @return {string} query part of URL
- */
- static int
- lua_url_get_query(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url->querylen > 0) {
- lua_pushlstring(L, rspamd_url_query_unsafe(url->url), url->url->querylen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_fragment()
- * Get fragment of the url
- * @return {string} fragment part of URL
- */
- static int
- lua_url_get_fragment(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url->fragmentlen > 0) {
- lua_pushlstring(L, rspamd_url_fragment_unsafe(url->url), url->url->fragmentlen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_text()
- * Get full content of the url
- * @return {string} url string
- */
- static int
- lua_url_get_text(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushlstring(L, url->url->string, url->url->urllen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:tostring()
- * Get full content of the url or user@domain in case of email
- * @return {string} url as a string
- */
- static int
- lua_url_tostring(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url != NULL) {
- if (url->url->protocol == PROTOCOL_MAILTO) {
- char *tmp = g_malloc(url->url->userlen + 1 +
- url->url->hostlen);
- if (url->url->userlen) {
- memcpy(tmp, url->url->string + url->url->usershift, url->url->userlen);
- }
-
- tmp[url->url->userlen] = '@';
- memcpy(tmp + url->url->userlen + 1, rspamd_url_host_unsafe(url->url),
- url->url->hostlen);
-
- lua_pushlstring(L, tmp, url->url->userlen + 1 + url->url->hostlen);
- g_free(tmp);
- }
- else {
- lua_pushlstring(L, url->url->string, url->url->urllen);
- }
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:to_http()
- * Get URL suitable for HTTP request (e.g. by trimming fragment and user parts)
- * @return {string} url as a string
- */
- static int
- lua_url_to_http(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url != NULL) {
- if (url->url->protocol == PROTOCOL_MAILTO) {
- /* Nothing to do here */
- lua_pushnil(L);
- }
- else {
-
- if (url->url->userlen > 0) {
- /* We need to reconstruct url :( */
- gsize len = url->url->urllen - url->url->fragmentlen + 1;
-
- /* Strip the # character */
- if (url->url->fragmentlen > 0 && len > 0) {
- while (url->url->string[len - 1] == '#' && len > 0) {
- len--;
- }
- }
- char *nstr = g_malloc(len);
- char *d = nstr, *end = nstr + len;
- memcpy(nstr, url->url->string, url->url->protocollen);
- d += url->url->protocollen;
- *d++ = ':';
- *d++ = '/';
- *d++ = '/';
-
- /* Host part */
- memcpy(d, rspamd_url_host(url->url), url->url->hostlen);
- d += url->url->hostlen;
-
- int port = rspamd_url_get_port_if_special(url->url);
-
- if (port > 0) {
- d += rspamd_snprintf(d, end - d, ":%d/", port);
- }
- else {
- *d++ = '/';
- }
-
- if (url->url->datalen > 0) {
- memcpy(d, rspamd_url_data_unsafe(url->url), url->url->datalen);
- d += url->url->datalen;
- }
-
- if (url->url->querylen > 0) {
- *d++ = '?';
- memcpy(d, rspamd_url_query_unsafe(url->url), url->url->querylen);
- d += url->url->querylen;
- }
-
- g_assert(d < end);
- lua_pushlstring(L, nstr, d - nstr);
- }
- else {
- gsize len = url->url->urllen - url->url->fragmentlen;
-
- /* Strip the # character */
- if (url->url->fragmentlen > 0 && len > 0) {
- while (url->url->string[len - 1] == '#' && len > 0) {
- len--;
- }
- }
- lua_pushlstring(L, url->url->string, len);
- }
- }
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_raw()
- * Get full content of the url as it was parsed (e.g. with urldecode)
- * @return {string} url string
- */
- static int
- lua_url_get_raw(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushlstring(L, url->url->raw, url->url->rawlen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:is_phished()
- * Check whether URL is treated as phished
- * @return {boolean} `true` if URL is phished
- */
- static int
- lua_url_is_phished(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushboolean(L, url->url->flags & RSPAMD_URL_FLAG_PHISHED);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:is_redirected()
- * Check whether URL was redirected
- * @return {boolean} `true` if URL is redirected
- */
- static int
- lua_url_is_redirected(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushboolean(L, url->url->flags & RSPAMD_URL_FLAG_REDIRECTED);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:is_obscured()
- * Check whether URL is treated as obscured or obfuscated (e.g. numbers in IP address or other hacks)
- * @return {boolean} `true` if URL is obscured
- */
- static int
- lua_url_is_obscured(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushboolean(L, url->url->flags & RSPAMD_URL_FLAG_OBSCURED);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
-
- /***
- * @method url:is_html_displayed()
- * Check whether URL is just displayed in HTML (e.g. NOT a real href)
- * @return {boolean} `true` if URL is displayed only
- */
- static int
- lua_url_is_html_displayed(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushboolean(L, url->url->flags & RSPAMD_URL_FLAG_HTML_DISPLAYED);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:is_subject()
- * Check whether URL is found in subject
- * @return {boolean} `true` if URL is found in subject
- */
- static int
- lua_url_is_subject(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL) {
- lua_pushboolean(L, url->url->flags & RSPAMD_URL_FLAG_SUBJECT);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_phished()
- * Get another URL that pretends to be this URL (e.g. used in phishing)
- * @return {url} phished URL
- */
- static int
- lua_url_get_phished(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *purl, *url = lua_check_url(L, 1);
-
- if (url) {
- if (url->url->ext && url->url->ext->linked_url != NULL) {
- /* XXX: in fact, this is the only possible combination of flags, so this check is redundant */
- if (url->url->flags &
- (RSPAMD_URL_FLAG_PHISHED | RSPAMD_URL_FLAG_REDIRECTED)) {
- purl = lua_newuserdata(L, sizeof(struct rspamd_lua_url));
- rspamd_lua_setclass(L, rspamd_url_classname, -1);
- purl->url = url->url->ext->linked_url;
-
- return 1;
- }
- }
- }
-
- lua_pushnil(L);
- return 1;
- }
-
- /***
- * @method url:set_redirected(url, pool)
- * Set url as redirected to another url
- * @param {string|url} url new url that is redirecting an old one
- * @param {pool} pool memory pool to allocate memory if needed
- * @return {url} parsed redirected url (if needed)
- */
- static int
- lua_url_set_redirected(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1), *redir;
- rspamd_mempool_t *pool = NULL;
-
- if (url == NULL) {
- return luaL_error(L, "url is required as the first argument");
- }
-
- if (lua_type(L, 2) == LUA_TSTRING) {
- /* Parse url */
- if (lua_type(L, 3) != LUA_TUSERDATA) {
- return luaL_error(L, "mempool is required as the third argument");
- }
-
- pool = rspamd_lua_check_mempool(L, 3);
-
- if (pool == NULL) {
- return luaL_error(L, "mempool is required as the third argument");
- }
-
- gsize len;
- const char *urlstr = lua_tolstring(L, 2, &len);
-
- rspamd_url_find_single(pool, urlstr, len, RSPAMD_URL_FIND_ALL,
- lua_url_single_inserter, L);
-
- if (lua_type(L, -1) != LUA_TUSERDATA) {
- /* URL is actually not found */
- lua_pushnil(L);
- }
- else {
- redir = lua_check_url(L, -1);
-
- url->url->flags |= RSPAMD_URL_FLAG_REDIRECTED;
-
- if (url->url->ext == NULL) {
- url->url->ext = rspamd_mempool_alloc0_type(pool, struct rspamd_url_ext);
- }
- url->url->ext->linked_url = redir->url;
- }
- }
- else {
- redir = lua_check_url(L, 2);
-
- if (redir == NULL) {
- return luaL_error(L, "url is required as the second argument");
- }
-
- pool = rspamd_lua_check_mempool(L, 3);
-
- if (pool == NULL) {
- return luaL_error(L, "mempool is required as the third argument");
- }
-
- url->url->flags |= RSPAMD_URL_FLAG_REDIRECTED;
- if (url->url->ext == NULL) {
- url->url->ext = rspamd_mempool_alloc0_type(pool, struct rspamd_url_ext);
- }
- url->url->ext->linked_url = redir->url;
-
- /* Push back on stack */
- lua_pushvalue(L, 2);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_tld()
- * Get effective second level domain part (eSLD) of the url host
- * @return {string} effective second level domain part (eSLD) of the url host
- */
- static int
- lua_url_get_tld(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url->tldlen > 0) {
- lua_pushlstring(L, rspamd_url_tld_unsafe(url->url), url->url->tldlen);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_protocol()
- * Get protocol name
- * @return {string} protocol as a string
- */
- static int
- lua_url_get_protocol(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url->protocol != PROTOCOL_UNKNOWN) {
- lua_pushstring(L, rspamd_url_protocol_name(url->url->protocol));
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_count()
- * Return number of occurrences for this particular URL
- * @return {number} number of occurrences
- */
- static int
- lua_url_get_count(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url != NULL) {
- lua_pushinteger(L, url->url->count);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:get_visible()
- * Get visible part of the url with html tags stripped
- * @return {string} url string
- */
- static int
- lua_url_get_visible(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url != NULL && url->url->ext && url->url->ext->visible_part) {
- lua_pushstring(L, url->url->ext->visible_part);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- /***
- * @method url:to_table()
- * Return url as a table with the following fields:
- *
- * - `url`: full content
- * - `host`: hostname part
- * - `user`: user part
- * - `path`: path part
- * - `tld`: top level domain
- * - `protocol`: url protocol
- * @return {table} URL as a table
- */
- static int
- lua_url_to_table(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
- struct rspamd_url *u;
-
- if (url != NULL) {
- u = url->url;
- lua_createtable(L, 0, 12);
- lua_pushstring(L, "url");
- lua_pushlstring(L, u->string, u->urllen);
- lua_settable(L, -3);
-
- if (u->hostlen > 0) {
- lua_pushstring(L, "host");
- lua_pushlstring(L, rspamd_url_host_unsafe(u), u->hostlen);
- lua_settable(L, -3);
- }
-
- if (rspamd_url_get_port_if_special(u) != 0) {
- lua_pushstring(L, "port");
- lua_pushinteger(L, rspamd_url_get_port_if_special(u));
- lua_settable(L, -3);
- }
-
- if (u->tldlen > 0) {
- lua_pushstring(L, "tld");
- lua_pushlstring(L, rspamd_url_tld_unsafe(u), u->tldlen);
- lua_settable(L, -3);
- }
-
- if (u->userlen > 0) {
- lua_pushstring(L, "user");
- lua_pushlstring(L, rspamd_url_user(u), u->userlen);
- lua_settable(L, -3);
- }
-
- if (u->datalen > 0) {
- lua_pushstring(L, "path");
- lua_pushlstring(L, rspamd_url_data_unsafe(u), u->datalen);
- lua_settable(L, -3);
- }
-
- if (u->querylen > 0) {
- lua_pushstring(L, "query");
- lua_pushlstring(L, rspamd_url_query_unsafe(u), u->querylen);
- lua_settable(L, -3);
- }
-
- if (u->fragmentlen > 0) {
- lua_pushstring(L, "fragment");
- lua_pushlstring(L, rspamd_url_fragment_unsafe(u), u->fragmentlen);
- lua_settable(L, -3);
- }
-
-
- lua_pushstring(L, "protocol");
- lua_pushstring(L, rspamd_url_protocol_name(u->protocol));
- lua_settable(L, -3);
- }
- else {
- lua_pushnil(L);
- }
-
- return 1;
- }
-
- static rspamd_mempool_t *static_lua_url_pool;
-
- RSPAMD_CONSTRUCTOR(rspamd_urls_static_pool_ctor)
- {
- static_lua_url_pool = rspamd_mempool_new(rspamd_mempool_suggest_size(),
- "static_lua_url", 0);
- }
-
- RSPAMD_DESTRUCTOR(rspamd_urls_static_pool_dtor)
- {
- rspamd_mempool_delete(static_lua_url_pool);
- }
-
- /***
- * @function url.create([mempool,] str, [{flags_table}])
- * @param {rspamd_mempool} memory pool for URL, e.g. `task:get_mempool()`
- * @param {string} text that contains URL (can also contain other stuff)
- * @return {url} new url object that exists as long as the corresponding mempool exists
- */
- static int
- lua_url_create(lua_State *L)
- {
- LUA_TRACE_POINT;
- rspamd_mempool_t *pool;
- struct rspamd_lua_text *t;
- struct rspamd_lua_url *u;
-
- if (lua_type(L, 1) == LUA_TUSERDATA) {
- pool = rspamd_lua_check_mempool(L, 1);
- t = lua_check_text_or_string(L, 2);
- }
- else {
- pool = static_lua_url_pool;
- t = lua_check_text_or_string(L, 1);
- }
-
- if (pool == NULL) {
- return luaL_error(L, "invalid arguments: mempool is expected as the second argument");
- }
-
- if (t == NULL) {
- return luaL_error(L, "invalid arguments: string/text is expected as the first argument");
- }
-
- rspamd_url_find_single(pool, t->start, t->len, RSPAMD_URL_FIND_ALL,
- lua_url_single_inserter, L);
-
- if (lua_type(L, -1) != LUA_TUSERDATA) {
- /* URL is actually not found */
- lua_pushnil(L);
-
- return 1;
- }
-
- u = (struct rspamd_lua_url *) lua_touserdata(L, -1);
-
- if (lua_type(L, 3) == LUA_TTABLE) {
- /* Add flags */
- for (lua_pushnil(L); lua_next(L, 3); lua_pop(L, 1)) {
- int nmask = 0;
- const char *fname = lua_tostring(L, -1);
-
- if (rspamd_url_flag_from_string(fname, &nmask)) {
- u->url->flags |= nmask;
- }
- else {
- lua_pop(L, 1);
- return luaL_error(L, "invalid flag: %s", fname);
- }
- }
- }
-
- return 1;
- }
-
- /***
- * @function url.init(tld_file)
- * Initialize url library if not initialized yet by Rspamd
- * @param {string} tld_file path to effective_tld_names.dat file (public suffix list)
- * @return nothing
- */
- static int
- lua_url_init(lua_State *L)
- {
- const char *tld_path;
-
- tld_path = luaL_checkstring(L, 1);
-
- rspamd_url_init(tld_path);
-
- return 0;
- }
-
- static gboolean
- lua_url_table_inserter(struct rspamd_url *url, gsize start_offset,
- gsize end_offset, gpointer ud)
- {
- lua_State *L = ud;
- struct rspamd_lua_url *lua_url;
- int n;
-
- n = rspamd_lua_table_size(L, -1);
- lua_url = lua_newuserdata(L, sizeof(struct rspamd_lua_url));
- rspamd_lua_setclass(L, rspamd_url_classname, -1);
- lua_url->url = url;
- lua_rawseti(L, -2, n + 1);
-
- return TRUE;
- }
-
-
- static int
- lua_url_all(lua_State *L)
- {
- LUA_TRACE_POINT;
- rspamd_mempool_t *pool = rspamd_lua_check_mempool(L, 1);
- const char *text;
- size_t length;
-
- if (pool == NULL) {
- lua_pushnil(L);
- }
- else {
- text = luaL_checklstring(L, 2, &length);
-
- if (text != NULL) {
- lua_newtable(L);
- rspamd_url_find_multiple(pool, text, length,
- RSPAMD_URL_FIND_ALL, NULL,
- lua_url_table_inserter, L);
- }
- else {
- lua_pushnil(L);
- }
- }
-
- return 1;
- }
-
- /***
- * @method url:get_flags()
- * Return flags for a specified URL as map 'flag'->true for all flags set,
- * possible flags are:
- *
- * - `phished`: URL is likely phished
- * - `numeric`: URL is numeric (e.g. IP address)
- * - `obscured`: URL was obscured
- * - `redirected`: URL comes from redirector
- * - `html_displayed`: URL is used just for displaying purposes
- * - `text`: URL comes from the text
- * - `subject`: URL comes from the subject
- * - `host_encoded`: URL host part is encoded
- * - `schema_encoded`: URL schema part is encoded
- * - `query_encoded`: URL query part is encoded
- * - `missing_slashes`: URL has some slashes missing
- * - `idn`: URL has international characters
- * - `has_port`: URL has port
- * - `has_user`: URL has user part
- * - `schemaless`: URL has no schema
- * - `unnormalised`: URL has some unicode unnormalities
- * - `zw_spaces`: URL has some zero width spaces
- * - `url_displayed`: URL has some other url-like string in visible part
- * - `image`: URL is from src attribute of img HTML tag
- * @return {table} URL flags
- */
- #define PUSH_FLAG(fl) \
- do { \
- if (flags & (fl)) { \
- lua_pushstring(L, rspamd_url_flag_to_string(fl)); \
- lua_pushboolean(L, true); \
- lua_settable(L, -3); \
- } \
- } while (0)
-
- static int
- lua_url_get_flags(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
- enum rspamd_url_flags flags;
-
- if (url != NULL) {
- flags = url->url->flags;
-
- lua_createtable(L, 0, 4);
-
- for (int i = 0; i < RSPAMD_URL_MAX_FLAG_SHIFT; i++) {
- PUSH_FLAG(1u << i);
- }
- }
- else {
- return luaL_error(L, "invalid arguments");
- }
-
- return 1;
- }
-
- #undef PUSH_FLAG
-
- static int
- lua_url_get_flags_num(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url) {
- lua_pushinteger(L, url->url->flags);
- }
- else {
- return luaL_error(L, "invalid arguments");
- }
-
- return 1;
- }
-
- static int
- lua_url_get_order(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url) {
- if (url->url->order != (uint16_t) -1) {
- lua_pushinteger(L, url->url->order);
- }
- else {
- lua_pushnil(L);
- }
- }
- else {
- return luaL_error(L, "invalid arguments");
- }
-
- return 1;
- }
-
- static int
- lua_url_get_part_order(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *url = lua_check_url(L, 1);
-
- if (url) {
- if (url->url->part_order != (uint16_t) -1) {
- lua_pushinteger(L, url->url->part_order);
- }
- else {
- lua_pushnil(L);
- }
- }
- else {
- return luaL_error(L, "invalid arguments");
- }
-
- return 1;
- }
-
- void lua_tree_url_callback(gpointer key, gpointer value, gpointer ud)
- {
- struct rspamd_lua_url *lua_url;
- struct rspamd_url *url = (struct rspamd_url *) value;
- struct lua_tree_cb_data *cb = ud;
-
- if ((url->protocol & cb->protocols_mask) == url->protocol) {
-
- /* Handle different flags application logic */
- switch (cb->flags_mode) {
- case url_flags_mode_include_any:
- if (url->flags != (url->flags & cb->flags_mask)) {
- return;
- }
- break;
- case url_flags_mode_include_explicit:
- if ((url->flags & cb->flags_mask) != cb->flags_mask) {
- return;
- }
- break;
- case url_flags_mode_exclude_include:
- if ((url->flags & cb->flags_exclude_mask) != 0) {
- return;
- }
- if ((url->flags & cb->flags_mask) == 0) {
- return;
- }
- break;
- }
-
- if (cb->skip_prob > 0) {
- double coin = rspamd_random_double_fast_seed(&cb->random_seed);
-
- if (coin < cb->skip_prob) {
- return;
- }
- }
-
- lua_url = lua_newuserdata(cb->L, sizeof(struct rspamd_lua_url));
- lua_pushvalue(cb->L, cb->metatable_pos);
- lua_setmetatable(cb->L, -2);
- lua_url->url = url;
- lua_rawseti(cb->L, -2, cb->i++);
- }
- }
-
- gboolean
- lua_url_cbdata_fill(lua_State *L,
- int pos,
- struct lua_tree_cb_data *cbd,
- unsigned int default_protocols,
- unsigned int default_flags,
- gsize max_urls)
- {
- int protocols_mask = 0;
-
- int pos_arg_type = lua_type(L, pos);
- unsigned int flags_mask = default_flags;
- gboolean seen_flags = FALSE, seen_protocols = FALSE;
-
- memset(cbd, 0, sizeof(*cbd));
- cbd->flags_mode = url_flags_mode_include_any;
-
- if (pos_arg_type == LUA_TBOOLEAN) {
- protocols_mask = default_protocols;
- if (lua_toboolean(L, 2)) {
- protocols_mask |= PROTOCOL_MAILTO;
- }
- }
- else if (pos_arg_type == LUA_TTABLE) {
- if (rspamd_lua_geti(L, 1, pos) == LUA_TNIL) {
- /* New method: indexed table */
-
- lua_getfield(L, pos, "flags");
- if (lua_istable(L, -1)) {
- int top = lua_gettop(L);
-
- lua_getfield(L, pos, "flags_mode");
- if (lua_isstring(L, -1)) {
- const char *mode_str = lua_tostring(L, -1);
-
- if (strcmp(mode_str, "explicit") == 0) {
- cbd->flags_mode = url_flags_mode_include_explicit;
- /*
- * Ignore default flags in this mode and include
- * merely flags specified by a caller
- */
- flags_mask = 0;
- }
- }
- lua_pop(L, 1);
-
- for (lua_pushnil(L); lua_next(L, top); lua_pop(L, 1)) {
- int nmask = 0;
-
-
- if (lua_type(L, -1) == LUA_TSTRING) {
- const char *fname = lua_tostring(L, -1);
-
-
- if (rspamd_url_flag_from_string(fname, &nmask)) {
- flags_mask |= nmask;
- }
- else {
- msg_info("bad url flag: %s", fname);
- return FALSE;
- }
- }
- else {
- flags_mask |= lua_tointeger(L, -1);
- }
- }
-
- seen_flags = TRUE;
- }
- else {
- flags_mask |= default_flags;
- }
- lua_pop(L, 1);
-
- lua_getfield(L, pos, "protocols");
- if (lua_istable(L, -1)) {
- int top = lua_gettop(L);
-
- for (lua_pushnil(L); lua_next(L, top); lua_pop(L, 1)) {
- int nmask;
- const char *pname = lua_tostring(L, -1);
-
- nmask = rspamd_url_protocol_from_string(pname);
-
- if (nmask != PROTOCOL_UNKNOWN) {
- protocols_mask |= nmask;
- }
- else {
- msg_info("bad url protocol: %s", pname);
- return FALSE;
- }
- }
- seen_protocols = TRUE;
- }
- else {
- protocols_mask = default_protocols;
- }
- lua_pop(L, 1);
-
- if (!seen_protocols) {
- lua_getfield(L, pos, "emails");
- if (lua_isboolean(L, -1)) {
- if (lua_toboolean(L, -1)) {
- protocols_mask |= PROTOCOL_MAILTO;
- }
- }
- lua_pop(L, 1);
- }
-
- if (!seen_flags) {
- lua_getfield(L, pos, "images");
- if (lua_isboolean(L, -1)) {
- if (lua_toboolean(L, -1)) {
- flags_mask |= RSPAMD_URL_FLAG_IMAGE;
- }
- else {
- flags_mask &= ~RSPAMD_URL_FLAG_IMAGE;
- }
- }
- else {
- flags_mask &= ~RSPAMD_URL_FLAG_IMAGE;
- }
- lua_pop(L, 1);
- }
-
- if (!seen_flags) {
- lua_getfield(L, pos, "content");
- if (lua_isboolean(L, -1)) {
- if (lua_toboolean(L, -1)) {
- flags_mask |= RSPAMD_URL_FLAG_CONTENT;
- }
- else {
- flags_mask &= ~RSPAMD_URL_FLAG_CONTENT;
- }
- }
- else {
- flags_mask &= ~RSPAMD_URL_FLAG_CONTENT;
- }
- lua_pop(L, 1);
- }
-
- lua_getfield(L, pos, "max_urls");
- if (lua_isnumber(L, -1)) {
- max_urls = lua_tonumber(L, -1);
- }
- lua_pop(L, 1);
-
- lua_getfield(L, pos, "sort");
- if (lua_isboolean(L, -1)) {
- cbd->sort = TRUE;
- }
- lua_pop(L, 1);
- }
- else {
- /* Plain table of the protocols */
- for (lua_pushnil(L); lua_next(L, pos); lua_pop(L, 1)) {
- int nmask;
- const char *pname = lua_tostring(L, -1);
-
- nmask = rspamd_url_protocol_from_string(pname);
-
- if (nmask != PROTOCOL_UNKNOWN) {
- protocols_mask |= nmask;
- }
- else {
- msg_info("bad url protocol: %s", pname);
- return FALSE;
- }
- }
- }
-
- lua_pop(L, 1); /* After rspamd_lua_geti */
- }
- else if (pos_arg_type == LUA_TSTRING) {
- const char *plist = lua_tostring(L, pos);
- char **strvec;
- char *const *cvec;
-
- strvec = g_strsplit_set(plist, ",;", -1);
- cvec = strvec;
-
- while (*cvec) {
- int nmask;
-
- nmask = rspamd_url_protocol_from_string(*cvec);
-
- if (nmask != PROTOCOL_UNKNOWN) {
- protocols_mask |= nmask;
- }
- else {
- msg_info("bad url protocol: %s", *cvec);
- g_strfreev(strvec);
-
- return FALSE;
- }
-
- cvec++;
- }
-
- g_strfreev(strvec);
- }
- else if (pos_arg_type == LUA_TNONE || pos_arg_type == LUA_TNIL) {
- protocols_mask = default_protocols;
- flags_mask = default_flags;
- }
- else {
- return FALSE;
- }
-
- if (lua_type(L, pos + 1) == LUA_TBOOLEAN) {
- if (lua_toboolean(L, pos + 1)) {
- flags_mask |= RSPAMD_URL_FLAG_IMAGE;
- }
- else {
- flags_mask &= ~RSPAMD_URL_FLAG_IMAGE;
- }
- }
-
- cbd->i = 1;
- cbd->L = L;
- cbd->max_urls = max_urls;
- cbd->protocols_mask = protocols_mask;
- cbd->flags_mask = flags_mask;
-
- /* This needs to be removed from the stack */
- rspamd_lua_class_metatable(L, rspamd_url_classname);
- cbd->metatable_pos = lua_gettop(L);
- (void) lua_checkstack(L, cbd->metatable_pos + 4);
-
- return TRUE;
- }
-
- gboolean
- lua_url_cbdata_fill_exclude_include(lua_State *L,
- int pos,
- struct lua_tree_cb_data *cbd,
- unsigned int default_protocols,
- gsize max_urls)
- {
- unsigned int protocols_mask = default_protocols;
- unsigned int include_flags_mask, exclude_flags_mask;
-
- int pos_arg_type = lua_type(L, pos);
-
- memset(cbd, 0, sizeof(*cbd));
- cbd->flags_mode = url_flags_mode_exclude_include;
-
- /* Include flags */
- if (pos_arg_type == LUA_TTABLE) {
- include_flags_mask = 0; /* Reset to no flags */
-
- for (lua_pushnil(L); lua_next(L, pos); lua_pop(L, 1)) {
- int nmask = 0;
-
- if (lua_type(L, -1) == LUA_TSTRING) {
- const char *fname = lua_tostring(L, -1);
-
- if (rspamd_url_flag_from_string(fname, &nmask)) {
- include_flags_mask |= nmask;
- }
- else {
- msg_info("bad url include flag: %s", fname);
- return FALSE;
- }
- }
- else {
- include_flags_mask |= lua_tointeger(L, -1);
- }
- }
- }
- else if (pos_arg_type == LUA_TNIL || pos_arg_type == LUA_TNONE) {
- /* Include all flags */
- include_flags_mask = ~0U;
- }
- else {
- msg_info("bad arguments: wrong include mask");
- return FALSE;
- }
-
- /* Exclude flags */
- pos_arg_type = lua_type(L, pos + 1);
- if (pos_arg_type == LUA_TTABLE) {
- exclude_flags_mask = 0; /* Reset to no flags */
-
- for (lua_pushnil(L); lua_next(L, pos + 1); lua_pop(L, 1)) {
- int nmask = 0;
-
- if (lua_type(L, -1) == LUA_TSTRING) {
- const char *fname = lua_tostring(L, -1);
-
- if (rspamd_url_flag_from_string(fname, &nmask)) {
- exclude_flags_mask |= nmask;
- }
- else {
- msg_info("bad url exclude flag: %s", fname);
- return FALSE;
- }
- }
- else {
- exclude_flags_mask |= lua_tointeger(L, -1);
- }
- }
- }
- else if (pos_arg_type == LUA_TNIL || pos_arg_type == LUA_TNONE) {
- /* Empty all exclude flags */
- exclude_flags_mask = 0U;
- }
- else {
- msg_info("bad arguments: wrong exclude mask");
- return FALSE;
- }
-
- if (lua_type(L, pos + 2) == LUA_TTABLE) {
- protocols_mask = 0U; /* Reset all protocols */
-
- for (lua_pushnil(L); lua_next(L, pos + 2); lua_pop(L, 1)) {
- int nmask;
- const char *pname = lua_tostring(L, -1);
-
- nmask = rspamd_url_protocol_from_string(pname);
-
- if (nmask != PROTOCOL_UNKNOWN) {
- protocols_mask |= nmask;
- }
- else {
- msg_info("bad url protocol: %s", pname);
- return FALSE;
- }
- }
- }
- else {
- protocols_mask = default_protocols;
- }
-
- cbd->i = 1;
- cbd->L = L;
- cbd->max_urls = max_urls;
- cbd->protocols_mask = protocols_mask;
- cbd->flags_mask = include_flags_mask;
- cbd->flags_exclude_mask = exclude_flags_mask;
-
- /* This needs to be removed from the stack */
- rspamd_lua_class_metatable(L, rspamd_url_classname);
- cbd->metatable_pos = lua_gettop(L);
- (void) lua_checkstack(L, cbd->metatable_pos + 4);
-
- return TRUE;
- }
-
-
- void lua_url_cbdata_dtor(struct lua_tree_cb_data *cbd)
- {
- if (cbd->metatable_pos != -1) {
- lua_remove(cbd->L, cbd->metatable_pos);
- }
- }
-
- gsize lua_url_adjust_skip_prob(float timestamp,
- unsigned char digest[16],
- struct lua_tree_cb_data *cb,
- gsize sz)
- {
- if (cb->max_urls > 0 && sz > cb->max_urls) {
- cb->skip_prob = 1.0 - ((double) cb->max_urls) / (double) sz;
- /*
- * Use task dependent probabilistic seed to ensure that
- * consequent task:get_urls return the same list of urls
- * We use both digest and timestamp here to avoid attack surface
- * based just on digest.
- */
- memcpy(&cb->random_seed, digest, 4);
- memcpy(((unsigned char *) &cb->random_seed) + 4, ×tamp, 4);
- sz = cb->max_urls;
- }
-
- return sz;
- }
-
- static int
- lua_url_eq(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *u1 = lua_check_url(L, 1),
- *u2 = lua_check_url(L, 2);
-
- if (u1 && u2) {
- lua_pushboolean(L, (rspamd_url_cmp(u1->url, u2->url) == 0));
- }
- else {
- lua_pushboolean(L, false);
- }
-
- return 1;
- }
-
- static int
- lua_url_lt(lua_State *L)
- {
- LUA_TRACE_POINT;
- struct rspamd_lua_url *u1 = lua_check_url(L, 1),
- *u2 = lua_check_url(L, 2);
-
- if (u1 && u2) {
- lua_pushinteger(L, rspamd_url_cmp(u1->url, u2->url));
- }
- else {
- return luaL_error(L, "invalid arguments");
- }
-
- return 1;
- }
-
- static int
- lua_load_url(lua_State *L)
- {
- lua_newtable(L);
- luaL_register(L, NULL, urllib_f);
-
- /* Push flags */
- lua_createtable(L, 0, RSPAMD_URL_MAX_FLAG_SHIFT);
- for (int i = 0; i < RSPAMD_URL_MAX_FLAG_SHIFT; i++) {
- unsigned int flag = 1u << i;
-
- lua_pushinteger(L, flag);
- lua_setfield(L, -2, rspamd_url_flag_to_string(flag));
- }
-
- lua_setfield(L, -2, "flags");
-
- return 1;
- }
-
- void luaopen_url(lua_State *L)
- {
- rspamd_lua_new_class(L, rspamd_url_classname, urllib_m);
- lua_pop(L, 1);
-
- rspamd_lua_add_preload(L, "rspamd_url", lua_load_url);
- }
|