static char *
detect_scalar_type(const char * val, size_t length)
{
bool has_point = false;
if (length == 0) {
return "tag:yaml.org,2002:null";
}
else if (*val == ':') {
return "tag:ruby.yaml.org,2002:symbol";
}
else if (is_numeric(val, &has_point)) {
return has_point
? "tag:yaml.org,2002:float"
: "tag:yaml.org,2002:int";
}
else if (strcmp(val, "true") == 0) {
return "tag:yaml.org,2002:true";
}
else if (strcmp(val, "false") == 0) {
return "tag:yaml.org,2002:false";
}
else if (is_timestamp(val, length)) {
return "tag:yaml.org,2002:timestamp";
}
else {
return NULL;
}
}
char *log_strntok_r(char *s, size_t *len, char **last, size_t *sublen) {
*sublen = 0;
if (!*len) {
return NULL;
}
if (!s) {
if (!(s = *last)) {
return NULL;
}
// fixup for log signature split <,
// LESS_THAN_SIG + <digit>
if ((*s & SIGNATURE_MASK) == LESS_THAN_SIG) {
*s = (*s & ~SIGNATURE_MASK) + '0';
*--s = '<';
++*len;
}
// fixup for log signature split [,
// OPEN_BRACKET_SPACE is space, OPEN_BRACKET_SIG + <digit>
if ((*s & SIGNATURE_MASK) == OPEN_BRACKET_SIG) {
if (*s == OPEN_BRACKET_SPACE) {
*s = ' ';
} else {
*s = (*s & ~SIGNATURE_MASK) + '0';
}
*--s = '[';
++*len;
}
}
while (*len && ((*s == '\r') || (*s == '\n'))) {
++s;
--*len;
}
if (!*len) {
*last = NULL;
return NULL;
}
char *peek, *tok = s;
for (;;) {
if (*len == 0) {
*last = NULL;
return tok;
}
char c = *s++;
--*len;
size_t adjust;
switch (c) {
case '\r':
case '\n':
s[-1] = '\0';
*last = s;
return tok;
case '<':
peek = is_prio(s, *len);
if (!peek) {
break;
}
if (s != (tok + 1)) { // not first?
s[-1] = '\0';
*s &= ~SIGNATURE_MASK;
*s |= LESS_THAN_SIG; // signature for '<'
*last = s;
return tok;
}
adjust = peek - s;
if (adjust > *len) {
adjust = *len;
}
*sublen += adjust;
*len -= adjust;
s = peek;
if ((*s == '[') && ((peek = is_timestamp(s + 1, *len - 1)))) {
adjust = peek - s;
if (adjust > *len) {
adjust = *len;
}
*sublen += adjust;
*len -= adjust;
s = peek;
}
break;
case '[':
peek = is_timestamp(s, *len);
if (!peek) {
break;
}
if (s != (tok + 1)) { // not first?
s[-1] = '\0';
if (*s == ' ') {
*s = OPEN_BRACKET_SPACE;
} else {
*s &= ~SIGNATURE_MASK;
*s |= OPEN_BRACKET_SIG; // signature for '['
}
*last = s;
return tok;
}
adjust = peek - s;
if (adjust > *len) {
adjust = *len;
}
*sublen += adjust;
*len -= adjust;
s = peek;
break;
}
++*sublen;
}
// NOTREACHED
}
/*
* mo_zline - oper message handler
*
* parv[0] = Sender prefix
* parv[1] = [[+|-]<Z-line mask>]
*
* For other parameters, see doc/readme.zline.
*/
int
mo_zline(struct Client *cptr, struct Client *sptr, int parc, char *parv[])
{
struct Client *acptr = 0;
struct Zline *azline = 0;
unsigned int flags = 0;
enum ZlineAction action = ZLINE_MODIFY;
time_t expire = 0;
char *mask = parv[1], *target = 0, *reason = 0, *end;
if (parc < 2)
return zline_list(sptr, 0);
if (*mask == '!') {
mask++;
if (HasPriv(sptr, PRIV_WIDE_ZLINE))
flags |= ZLINE_OPERFORCE;
}
switch (*mask) { /* handle +, -, <, and > */
case '+': /* activate the Z-line */
action = ZLINE_ACTIVATE;
mask++;
break;
case '-': /* deactivate the Z-line */
action = ZLINE_DEACTIVATE;
mask++;
break;
case '>': /* locally activate the Z-line */
action = ZLINE_LOCAL_ACTIVATE;
mask++;
break;
case '<': /* locally deactivate the Z-line */
action = ZLINE_LOCAL_DEACTIVATE;
mask++;
break;
}
/* OK, let's figure out the parameters... */
switch (action) {
case ZLINE_MODIFY: /* no specific action on the Z-line... */
if (parc == 2) /* user wants a listing of a specific Z-line */
return zline_list(sptr, mask);
else if (parc < 4) /* must have target and expire, minimum */
return need_more_params(sptr, "ZLINE");
target = parv[2]; /* get the target... */
if (is_timestamp(parv[3])) {
expire = strtol(parv[3], &end, 10) + TStime(); /* and the expiration */
if (*end != '\0')
return send_reply(sptr, SND_EXPLICIT | ERR_BADEXPIRE, "%s :Bad expire time", parv[3]);
} else
expire = ParseInterval(parv[3]) + TStime();
flags |= ZLINE_EXPIRE; /* remember that we got an expire time */
if (parc > 4) { /* also got a reason... */
reason = parv[parc - 1];
flags |= ZLINE_REASON;
}
/* target is not global, interpolate action and require reason */
if (target[0] != '*' || target[1] != '\0') {
if (!reason) /* have to have a reason for this */
return need_more_params(sptr, "ZLINE");
action = ZLINE_ACTIVATE;
}
break;
case ZLINE_LOCAL_ACTIVATE: /* locally activate a Z-line */
case ZLINE_LOCAL_DEACTIVATE: /* locally deactivate a Z-line */
if (parc > 2) { /* if target is available, pick it */
target = parv[2];
if (target[0] == '*' && target[1] == '\0')
return send_reply(sptr, ERR_NOSUCHSERVER, target);
}
break;
case ZLINE_ACTIVATE: /* activating/adding a Z-line */
case ZLINE_DEACTIVATE: /* deactivating/removing a Z-line */
if (parc < 3)
return need_more_params(sptr, "ZLINE");
if (parc > 3) {
/* get expiration and target */
reason = parv[parc - 1];
if (is_timestamp(parv[parc - 2])) {
expire = strtol(parv[parc - 2], &end, 10) + TStime();
if (*end != '\0')
return send_reply(sptr, SND_EXPLICIT | ERR_BADEXPIRE, "%s :Bad expire time", parv[parc - 2]);
} else
expire = ParseInterval(parv[parc - 2]) + TStime();
flags |= ZLINE_EXPIRE | ZLINE_REASON; /* remember that we got 'em */
if (parc > 4) /* also have a target! */
target = parv[2];
} else {
target = parv[2]; /* target has to be present, and has to be '*' */
if (target[0] != '*' || target[1] != '\0')
return need_more_params(sptr, "ZLINE");
}
break;
}
/* Is there no mask left? */
if (mask[0] == '\0')
return need_more_params(sptr, "ZLINE");
/* Now let's figure out which is the target server */
if (!target) /* no target, has to be me... */
acptr = &me;
/* if it's not '*', look up the server */
else if ((target[0] != '*' || target[1] != '\0') &&
!(acptr = find_match_server(target)))
return send_reply(sptr, ERR_NOSUCHSERVER, target);
/* Z-line deprecation notice */
sendcmdto_one(&me, CMD_NOTICE, sptr, "%C :Use of Z-line is deprecated. "
" Please use G-line instead.", sptr);
/* Now, is the Z-line local or global? */
if (action == ZLINE_LOCAL_ACTIVATE || action == ZLINE_LOCAL_DEACTIVATE ||
!acptr)
flags |= ZLINE_GLOBAL;
else /* it's some form of local Z-line */
flags |= ZLINE_LOCAL;
/* If it's a local activate/deactivate and server isn't me, propagate it */
if ((action == ZLINE_LOCAL_ACTIVATE || action == ZLINE_LOCAL_DEACTIVATE) &&
!IsMe(acptr)) {
/* check for permissions... */
if (!feature_bool(FEAT_CONFIG_OPERCMDS))
return send_reply(sptr, ERR_DISABLED, "ZLINE");
else if (!HasPriv(sptr, PRIV_ZLINE))
return send_reply(sptr, ERR_NOPRIVILEGES);
Debug((DEBUG_DEBUG, "I am forwarding a local change to a global zline "
"to a remote server; target %s, mask %s, operforce %s, action %c",
cli_name(acptr), mask, flags & ZLINE_OPERFORCE ? "YES" : "NO",
action == ZLINE_LOCAL_ACTIVATE ? '>' : '<'));
sendcmdto_one(sptr, CMD_ZLINE, acptr, "%C %s%c%s", acptr,
flags & ZLINE_OPERFORCE ? "!" : "",
action == ZLINE_LOCAL_ACTIVATE ? '>' : '<', mask);
return 0; /* all done */
}
/* Next, try to find the Z-line... */
if ((flags & ZLINE_GLOBAL) || IsMe(acptr)) /* don't bother if it's not me! */
azline = zline_find(mask, flags | ZLINE_ANY | ZLINE_EXACT);
/* We now have all the pieces to tell us what we've got; let's put
* it all together and convert the rest of the arguments.
*/
/* Handle the local Z-lines first... */
if (flags & ZLINE_LOCAL) {
assert(acptr);
/* normalize the action, first */
if (action == ZLINE_LOCAL_ACTIVATE || action == ZLINE_MODIFY)
action = ZLINE_ACTIVATE;
else if (action == ZLINE_LOCAL_DEACTIVATE)
action = ZLINE_DEACTIVATE;
/* If it's not for us, forward */
/* UPDATE NOTE: Once all servers are updated to u2.10.12.11, the
* format string in this sendcmdto_one() may be updated to omit
* <lastmod> for ZLINE_ACTIVATE and to omit <expire>, <lastmod>,
* and <reason> for ZLINE_DEACTIVATE.
*/
if (!IsMe(acptr)) {
/* check for permissions... */
if (!feature_bool(FEAT_CONFIG_OPERCMDS))
return send_reply(sptr, ERR_DISABLED, "ZLINE");
else if (!HasPriv(sptr, PRIV_ZLINE))
return send_reply(sptr, ERR_NOPRIVILEGES);
Debug((DEBUG_DEBUG, "I am forwarding a local Z-line to a remote "
"server; target %s, mask %s, operforce %s, action %c, "
"expire %Tu, reason %s", target, mask,
flags & ZLINE_OPERFORCE ? "YES" : "NO",
action == ZLINE_ACTIVATE ? '+' : '-', expire, reason));
sendcmdto_one(sptr, CMD_ZLINE, acptr, "%C %s%c%s %Tu %Tu :%s",
acptr, flags & ZLINE_OPERFORCE ? "!" : "",
action == ZLINE_ACTIVATE ? '+' : '-', mask,
expire - TStime(), TStime(), reason);
return 0; /* all done */
}
/* check local Z-line permissions... */
if (!HasPriv(sptr, PRIV_LOCAL_ZLINE))
return send_reply(sptr, ERR_NOPRIVILEGES);
/* let's handle activation... */
if (action == ZLINE_ACTIVATE) {
if (azline) /* Z-line already exists, so let's ignore it... */
return 0;
/* OK, create the local Z-line */
Debug((DEBUG_DEBUG, "I am creating a local Z-line here; target %s, "
"mask %s, operforce %s, action %s, expire %Tu, reason: %s",
target, mask, flags & ZLINE_OPERFORCE ? "YES" : "NO",
action == ZLINE_ACTIVATE ? "+" : "-", expire, reason));
return zline_add(cptr, sptr, mask, reason, expire, 0, 0,
flags | ZLINE_ACTIVE);
} else { /* OK, it's a deactivation/destruction */
if (!azline) /* Z-line doesn't exist, so let's complain... */
return send_reply(sptr, ERR_NOSUCHZLINE, mask);
/* Let's now destroy the Z-line */
Debug((DEBUG_DEBUG, "I am destroying a local Z-line here; target %s, "
"mask %s, operforce %s, action %s", target, mask,
flags & ZLINE_OPERFORCE ? "YES" : "NO",
action == ZLINE_ACTIVATE ? "+" : "-"));
return zline_destroy(cptr, sptr, azline);
}
}
/* can't modify a Z-line that doesn't exist...
* (and if we are creating a new one, we need a reason and expiration)
*/
if (!azline &&
(action == ZLINE_MODIFY || action == ZLINE_LOCAL_ACTIVATE ||
action == ZLINE_LOCAL_DEACTIVATE || !reason || !expire))
return send_reply(sptr, ERR_NOSUCHZLINE, mask);
/* check for Z-line permissions... */
if (action == ZLINE_LOCAL_ACTIVATE || action == ZLINE_LOCAL_DEACTIVATE) {
/* only need local privileges for locally-limited status changes */
if (!HasPriv(sptr, PRIV_LOCAL_ZLINE))
return send_reply(sptr, ERR_NOPRIVILEGES);
} else { /* global privileges required */
if (!feature_bool(FEAT_CONFIG_OPERCMDS))
return send_reply(sptr, ERR_DISABLED, "ZLINE");
else if (!HasPriv(sptr, PRIV_ZLINE))
return send_reply(sptr, ERR_NOPRIVILEGES);
}
Debug((DEBUG_DEBUG, "I have a global Z-line I am acting upon now; "
"target %s, mask %s, operforce %s, action %s, expire %Tu, "
"reason: %s; zline %s! (fields present: %s %s)", target,
mask, flags & ZLINE_OPERFORCE ? "YES" : "NO",
action == ZLINE_ACTIVATE ? "+" :
(action == ZLINE_DEACTIVATE ? "-" :
(action == ZLINE_LOCAL_ACTIVATE ? ">" :
(action == ZLINE_LOCAL_DEACTIVATE ? "<" : "(MODIFY)"))),
expire, reason, azline ? "EXISTS" : "does not exist",
flags & ZLINE_EXPIRE ? "expire" : "",
flags & ZLINE_REASON ? "reason" : ""));
if (azline) /* modifying an existing Z-line */
return zline_modify(cptr, sptr, azline, action, reason, expire,
TStime(), 0, flags);
assert(action != ZLINE_LOCAL_ACTIVATE);
assert(action != ZLINE_LOCAL_DEACTIVATE);
assert(action != ZLINE_MODIFY);
/* create a new Z-line */
return zline_add(cptr, sptr, mask, reason, expire, TStime(), 0,
flags | ((action == ZLINE_ACTIVATE) ? ZLINE_ACTIVE : 0));
}
char* android::log_strntok_r(char* s, ssize_t& len, char*& last,
ssize_t& sublen) {
sublen = 0;
if (len <= 0) return nullptr;
if (!s) {
if (!(s = last)) return nullptr;
// fixup for log signature split <,
// LESS_THAN_SIG + <digit>
if ((*s & SIGNATURE_MASK) == LESS_THAN_SIG) {
*s = (*s & ~SIGNATURE_MASK) + '0';
*--s = '<';
++len;
}
// fixup for log signature split [,
// OPEN_BRACKET_SPACE is space, OPEN_BRACKET_SIG + <digit>
if ((*s & SIGNATURE_MASK) == OPEN_BRACKET_SIG) {
*s = (*s == OPEN_BRACKET_SPACE) ? ' ' : (*s & ~SIGNATURE_MASK) + '0';
*--s = '[';
++len;
}
}
while ((len > 0) && ((*s == '\r') || (*s == '\n'))) {
++s;
--len;
}
if (len <= 0) return last = nullptr;
char *peek, *tok = s;
for (;;) {
if (len <= 0) {
last = nullptr;
return tok;
}
char c = *s++;
--len;
ssize_t adjust;
switch (c) {
case '\r':
case '\n':
s[-1] = '\0';
last = s;
return tok;
case '<':
peek = is_prio(s, len);
if (!peek) break;
if (s != (tok + 1)) { // not first?
s[-1] = '\0';
*s &= ~SIGNATURE_MASK;
*s |= LESS_THAN_SIG; // signature for '<'
last = s;
return tok;
}
adjust = peek - s;
if (adjust > len) {
adjust = len;
}
sublen += adjust;
len -= adjust;
s = peek;
if ((*s == '[') && ((peek = is_timestamp(s + 1, len - 1)))) {
adjust = peek - s;
if (adjust > len) {
adjust = len;
}
sublen += adjust;
len -= adjust;
s = peek;
}
break;
case '[':
peek = is_timestamp(s, len);
if (!peek) break;
if (s != (tok + 1)) { // not first?
s[-1] = '\0';
if (*s == ' ') {
*s = OPEN_BRACKET_SPACE;
} else {
*s &= ~SIGNATURE_MASK;
*s |= OPEN_BRACKET_SIG; // signature for '['
}
last = s;
return tok;
}
adjust = peek - s;
if (adjust > len) {
adjust = len;
}
sublen += adjust;
len -= adjust;
s = peek;
break;
}
++sublen;
}
// NOTREACHED
}
char *log_strtok_r(char *s, char **last) {
if (!s) {
if (!(s = *last)) {
return NULL;
}
// fixup for log signature split <,
// LESS_THAN_SIG + <digit>
if ((*s & SIGNATURE_MASK) == LESS_THAN_SIG) {
*s = (*s & ~SIGNATURE_MASK) + '0';
*--s = '<';
}
// fixup for log signature split [,
// OPEN_BRACKET_SPACE is space, OPEN_BRACKET_SIG + <digit>
if ((*s & SIGNATURE_MASK) == OPEN_BRACKET_SIG) {
if (*s == OPEN_BRACKET_SPACE) {
*s = ' ';
} else {
*s = (*s & ~SIGNATURE_MASK) + '0';
}
*--s = '[';
}
}
s += strspn(s, "\r\n");
if (!*s) { // no non-delimiter characters
*last = NULL;
return NULL;
}
char *peek, *tok = s;
for (;;) {
char c = *s++;
switch (c) {
case '\0':
*last = NULL;
return tok;
case '\r':
case '\n':
s[-1] = '\0';
*last = s;
return tok;
case '<':
peek = is_prio(s);
if (!peek) {
break;
}
if (s != (tok + 1)) { // not first?
s[-1] = '\0';
*s &= ~SIGNATURE_MASK;
*s |= LESS_THAN_SIG; // signature for '<'
*last = s;
return tok;
}
s = peek;
if ((*s == '[') && ((peek = is_timestamp(s + 1)))) {
s = peek;
}
break;
case '[':
peek = is_timestamp(s);
if (!peek) {
break;
}
if (s != (tok + 1)) { // not first?
s[-1] = '\0';
if (*s == ' ') {
*s = OPEN_BRACKET_SPACE;
} else {
*s &= ~SIGNATURE_MASK;
*s |= OPEN_BRACKET_SIG; // signature for '['
}
*last = s;
return tok;
}
s = peek;
break;
}
}
// NOTREACHED
}
/*
* mo_jupe - oper message handler
*
* parv[0] = Send prefix
* parv[1] = [[+|-]<server name>]
*
* Local (to me) style:
*
* parv[2] = [Expiration offset]
* parv[3] = [Comment]
*
* Global (or remote local) style:
*
* parv[2] = [target]
* parv[3] = [Expiration offset]
* parv[4] = [Comment]
*
*/
int mo_jupe(struct Client* cptr, struct Client* sptr, int parc, char* parv[])
{
struct Client *acptr = 0;
struct Jupe *ajupe;
unsigned int flags = 0;
time_t expire_off;
char *server = parv[1], *target = 0, *reason;
if (parc < 2)
return jupe_list(sptr, 0);
if (*server == '+') {
flags |= JUPE_ACTIVE;
server++;
} else if (*server == '-')
server++;
else
return jupe_list(sptr, server);
if (!feature_bool(FEAT_CONFIG_OPERCMDS))
return send_reply(sptr, ERR_DISABLED, "JUPE");
if (parc == 4) {
if (is_timestamp(parv[2])) {
expire_off = atoi(parv[2]);
} else {
expire_off = ParseInterval(parv[2]);
}
reason = parv[3];
flags |= JUPE_LOCAL;
} else if (parc > 4) {
target = parv[2];
if (is_timestamp(parv[3])) {
expire_off = atoi(parv[3]);
} else {
expire_off = ParseInterval(parv[3]);
}
reason = parv[4];
} else
return need_more_params(sptr, "JUPE");
if (target) {
if (!(target[0] == '*' && target[1] == '\0')) {
if (!(acptr = find_match_server(target)))
return send_reply(sptr, ERR_NOSUCHSERVER, target);
if (!IsMe(acptr)) { /* manually propagate, since we don't set it */
if (!HasPriv(sptr, PRIV_JUPE))
return send_reply(sptr, ERR_NOPRIVILEGES);
sendcmdto_one(sptr, CMD_JUPE, acptr, "%C %c%s %s %Tu :%s", acptr,
flags & JUPE_ACTIVE ? '+' : '-', server, parv[3],
TStime(), reason);
return 0;
} else if (!HasPriv(sptr, PRIV_LOCAL_JUPE))
return send_reply(sptr, ERR_NOPRIVILEGES);
flags |= JUPE_LOCAL;
} else if (!HasPriv(sptr, PRIV_JUPE))
return send_reply(sptr, ERR_NOPRIVILEGES);
}
ajupe = jupe_find(server);
if (ajupe) {
if (JupeIsLocal(ajupe) && !(flags & JUPE_LOCAL)) /* global over local */
jupe_free(ajupe);
else {
if (flags & JUPE_ACTIVE)
return jupe_activate(cptr, sptr, ajupe, TStime(), flags);
else
return jupe_deactivate(cptr, sptr, ajupe, TStime(), flags);
}
}
return jupe_add(cptr, sptr, server, reason, expire_off, TStime(), flags);
}
