/*
* mr_nick()
*
* parv[0] = sender prefix
* parv[1] = nickname
*/
static void
mr_nick(struct Client *client_p, struct Client *source_p, int parc, char *parv[])
{
struct Client *target_p;
char nick[NICKLEN];
char *s;
if(parc < 2 || BadPtr(parv[1]))
{
sendto_one(source_p, form_str(ERR_NONICKNAMEGIVEN),
me.name, BadPtr(parv[0]) ? "*" : parv[0]);
return;
}
/* Terminate the nick at the first ~ */
if((s = strchr(parv[1], '~')))
*s = '\0';
/* and if the first ~ was the first letter.. */
if(BadPtr(parv[1]))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME),
me.name, BadPtr(parv[0]) ? "*" : parv[0], parv[1]);
return;
}
/* copy the nick and terminate it */
strlcpy(nick, parv[1], sizeof(nick));
/* check the nickname is ok */
if(!clean_nick_name(nick))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME),
me.name, BadPtr(parv[0]) ? "*" : parv[0], parv[1]);
return;
}
/* check if the nick is resv'd */
if(find_nick_resv(nick))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME),
me.name, BadPtr(parv[0]) ? "*" : parv[0], nick);
return;
}
if((target_p = find_client(nick)) == NULL)
{
set_initial_nick(client_p, source_p, nick);
return;
}
else if(source_p == target_p)
{
strcpy(source_p->name, nick);
return;
}
else
{
sendto_one(source_p, form_str(ERR_NICKNAMEINUSE), me.name, "*", nick);
}
}
struct ResvNick *
create_nick_resv(char *name, char *reason, int conf)
{
struct ResvNick *resv_p = NULL;
int len;
if(find_nick_resv(name))
return NULL;
if((len = strlen(reason)) > TOPICLEN)
{
reason[TOPICLEN] = '\0';
len = TOPICLEN;
}
resv_p = (struct ResvNick *)MyMalloc(sizeof(struct ResvNick));
strlcpy(resv_p->name, name, sizeof(resv_p->name));
DupString(resv_p->reason, reason);
resv_p->conf = conf;
if(ResvNickList)
ResvNickList->prev = resv_p;
resv_p->next = ResvNickList;
resv_p->prev = NULL;
ResvNickList = resv_p;
return resv_p;
}
void
parse_resv_file(FILE * file)
{
struct ConfItem *aconf;
char *reason_field;
char *host_field;
char line[BUFSIZE];
char *p;
while (fgets(line, sizeof(line), file))
{
if((p = strpbrk(line, "\r\n")))
*p = '\0';
if((*line == '\0') || (line[0] == '#'))
continue;
host_field = getfield(line);
if(EmptyString(host_field))
continue;
reason_field = getfield(NULL);
if(EmptyString(reason_field))
continue;
if(IsChannelName(host_field))
{
if(hash_find_resv(host_field))
continue;
aconf = make_conf();
aconf->status = CONF_RESV_CHANNEL;
aconf->port = 0;
DupString(aconf->name, host_field);
DupString(aconf->passwd, reason_field);
add_to_resv_hash(aconf->name, aconf);
}
else if(clean_resv_nick(host_field))
{
if(find_nick_resv(host_field))
continue;
aconf = make_conf();
aconf->status = CONF_RESV_NICK;
aconf->port = 0;
DupString(aconf->name, host_field);
DupString(aconf->passwd, reason_field);
dlinkAddAlloc(aconf, &resv_conf_list);
}
}
}
static int
mo_testline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
struct ConfItem *aconf;
struct ConfItem *resv_p;
struct rb_sockaddr_storage ip;
const char *name = NULL;
const char *username = NULL;
const char *host = NULL;
char *mask;
char *p;
int host_mask;
int type;
mask = LOCAL_COPY(parv[1]);
if(IsChannelName(mask))
{
resv_p = hash_find_resv(mask);
if(resv_p != NULL)
{
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
(resv_p->flags & CONF_FLAGS_TEMPORARY) ? 'q' : 'Q',
(resv_p->flags & CONF_FLAGS_TEMPORARY) ? (long)((resv_p->hold -
rb_current_time
()) / 60) : 0L,
resv_p->host, resv_p->passwd);
/* this is a false positive, so make sure it isn't counted in stats q
* --nenolod
*/
resv_p->port--;
}
else
sendto_one(source_p, form_str(RPL_NOTESTLINE),
me.name, source_p->name, parv[1]);
return 0;
}
if((p = strchr(mask, '!')))
{
*p++ = '\0';
name = mask;
mask = p;
if(EmptyString(mask))
return 0;
}
if((p = strchr(mask, '@')))
{
*p++ = '\0';
username = mask;
host = p;
if(EmptyString(host))
return 0;
}
else
host = mask;
/* parses as an IP, check for a dline */
if((type = parse_netmask(host, (struct sockaddr *)&ip, &host_mask)) != HM_HOST)
{
aconf = find_dline((struct sockaddr *)&ip);
if(aconf && aconf->status & CONF_DLINE)
{
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'd' : 'D',
(aconf->flags & CONF_FLAGS_TEMPORARY) ?
(long)((aconf->hold - rb_current_time()) / 60) : 0L,
aconf->host, aconf->passwd);
return 0;
}
}
/* now look for a matching I/K/G */
if((aconf = find_address_conf(host, NULL, username ? username : "******",
(type != HM_HOST) ? (struct sockaddr *)&ip : NULL,
(type != HM_HOST) ? (
#ifdef RB_IPV6
(type ==
HM_IPV6) ? AF_INET6
:
#endif
AF_INET) : 0)))
{
static char buf[HOSTLEN + USERLEN + 2];
if(aconf->status & CONF_KILL)
{
rb_snprintf(buf, sizeof(buf), "%s@%s", aconf->user, aconf->host);
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'k' : 'K',
(aconf->flags & CONF_FLAGS_TEMPORARY) ?
(long)((aconf->hold - rb_current_time()) / 60) : 0L,
buf, aconf->passwd);
return 0;
}
else if(aconf->status & CONF_GLINE)
{
rb_snprintf(buf, sizeof(buf), "%s@%s", aconf->user, aconf->host);
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
'G', (long)((aconf->hold - rb_current_time()) / 60),
buf, aconf->passwd);
return 0;
}
}
/* they asked us to check a nick, so hunt for resvs.. */
if(name && (resv_p = find_nick_resv(name)))
{
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
(resv_p->flags & CONF_FLAGS_TEMPORARY) ? 'q' : 'Q',
(resv_p->flags & CONF_FLAGS_TEMPORARY) ? (long)((resv_p->hold -
rb_current_time()) /
60) : 0L, resv_p->host,
resv_p->passwd);
/* this is a false positive, so make sure it isn't counted in stats q
* --nenolod
*/
resv_p->port--;
return 0;
}
/* no matching resv, we can print the I: if it exists */
if(aconf && aconf->status & CONF_CLIENT)
{
sendto_one_numeric(source_p, RPL_STATSILINE, form_str(RPL_STATSILINE),
aconf->info.name, show_iline_prefix(source_p, aconf,
aconf->user), aconf->host,
aconf->port, get_class_name(aconf));
return 0;
}
/* nothing matches.. */
sendto_one(source_p, form_str(RPL_NOTESTLINE), me.name, source_p->name, parv[1]);
return 0;
}
static int
mo_testline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
struct ConfItem *aconf;
struct ConfItem *resv_p;
struct rb_sockaddr_storage ip;
char user_trunc[USERLEN + 1], notildeuser_trunc[USERLEN + 1];
const char *name = NULL;
const char *username = NULL;
const char *host = NULL;
char *mask;
char *p;
int host_mask;
int type;
int duration;
char *puser, *phost, *reason, *operreason;
char reasonbuf[BUFSIZE];
mask = LOCAL_COPY(parv[1]);
if (IsChannelName(mask))
{
resv_p = hash_find_resv(mask);
if (resv_p != NULL)
{
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
resv_p->hold ? 'q' : 'Q',
resv_p->hold ? (long) ((resv_p->hold - rb_current_time()) / 60) : 0L,
resv_p->host, resv_p->passwd);
/* this is a false positive, so make sure it isn't counted in stats q
* --nenolod
*/
resv_p->port--;
}
else
sendto_one(source_p, form_str(RPL_NOTESTLINE),
me.name, source_p->name, parv[1]);
return 0;
}
if((p = strchr(mask, '!')))
{
*p++ = '\0';
name = mask;
mask = p;
if(EmptyString(mask))
return 0;
}
if((p = strchr(mask, '@')))
{
*p++ = '\0';
username = mask;
host = p;
if(EmptyString(host))
return 0;
}
else
host = mask;
/* parses as an IP, check for a dline */
if((type = parse_netmask(host, &ip, &host_mask)) != HM_HOST)
{
#ifdef RB_IPV6
if(type == HM_IPV6)
aconf = find_dline((struct sockaddr *)&ip, AF_INET6);
else
#endif
aconf = find_dline((struct sockaddr *)&ip, AF_INET);
if(aconf && aconf->status & CONF_DLINE)
{
get_printable_kline(source_p, aconf, &phost, &reason, &puser, &operreason);
snprintf(reasonbuf, sizeof(reasonbuf), "%s%s%s", reason,
operreason ? "|" : "", operreason ? operreason : "");
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'd' : 'D',
(aconf->flags & CONF_FLAGS_TEMPORARY) ?
(long) ((aconf->hold - rb_current_time()) / 60) : 0L,
phost, reasonbuf);
return 0;
}
/* Otherwise, aconf is an exempt{} */
if(aconf == NULL &&
(duration = is_reject_ip((struct sockaddr *)&ip)))
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
'!',
duration / 60L,
host, "Reject cache");
if(aconf == NULL &&
(duration = is_throttle_ip((struct sockaddr *)&ip)))
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
'!',
duration / 60L,
host, "Throttled");
}
if (username != NULL)
{
rb_strlcpy(user_trunc, username, sizeof user_trunc);
rb_strlcpy(notildeuser_trunc, *username == '~' ? username + 1 : username, sizeof notildeuser_trunc);
}
else
{
rb_strlcpy(user_trunc, "dummy", sizeof user_trunc);
rb_strlcpy(notildeuser_trunc, "dummy", sizeof notildeuser_trunc);
}
/* now look for a matching I/K/G */
if((aconf = find_address_conf(host, NULL, user_trunc, notildeuser_trunc,
(type != HM_HOST) ? (struct sockaddr *)&ip : NULL,
(type != HM_HOST) ? (
#ifdef RB_IPV6
(type == HM_IPV6) ? AF_INET6 :
#endif
AF_INET) : 0, NULL)))
{
static char buf[HOSTLEN+USERLEN+2];
if(aconf->status & CONF_KILL)
{
get_printable_kline(source_p, aconf, &phost, &reason, &puser, &operreason);
snprintf(buf, sizeof(buf), "%s@%s",
puser, phost);
snprintf(reasonbuf, sizeof(reasonbuf), "%s%s%s", reason,
operreason ? "|" : "", operreason ? operreason : "");
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
(aconf->flags & CONF_FLAGS_TEMPORARY) ? 'k' : 'K',
(aconf->flags & CONF_FLAGS_TEMPORARY) ?
(long) ((aconf->hold - rb_current_time()) / 60) : 0L,
buf, reasonbuf);
return 0;
}
}
/* they asked us to check a nick, so hunt for resvs.. */
if(name && (resv_p = find_nick_resv(name)))
{
sendto_one(source_p, form_str(RPL_TESTLINE),
me.name, source_p->name,
resv_p->hold ? 'q' : 'Q',
resv_p->hold ? (long) ((resv_p->hold - rb_current_time()) / 60) : 0L,
resv_p->host, resv_p->passwd);
/* this is a false positive, so make sure it isn't counted in stats q
* --nenolod
*/
resv_p->port--;
return 0;
}
/* no matching resv, we can print the I: if it exists */
if(aconf && aconf->status & CONF_CLIENT)
{
sendto_one_numeric(source_p, RPL_STATSILINE, form_str(RPL_STATSILINE),
aconf->info.name, EmptyString(aconf->spasswd) ? "<NULL>" : aconf->spasswd,
show_iline_prefix(source_p, aconf, aconf->user),
aconf->host, aconf->port, aconf->className);
return 0;
}
/* nothing matches.. */
sendto_one(source_p, form_str(RPL_NOTESTLINE),
me.name, source_p->name, parv[1]);
return 0;
}
/*
* m_nick()
*
* parv[0] = sender prefix
* parv[1] = nickname
*/
static void
m_nick(struct Client *client_p, struct Client *source_p, int parc, char *parv[])
{
char nick[NICKLEN];
struct Client *target_p;
if(parc < 2 || BadPtr(parv[1]))
{
sendto_one(source_p, form_str(ERR_NONICKNAMEGIVEN), me.name, parv[0]);
return;
}
/* mark end of grace period, to prevent nickflooding */
if(!IsFloodDone(source_p))
flood_endgrace(source_p);
/* terminate nick to NICKLEN */
strlcpy(nick, parv[1], sizeof(nick));
/* check the nickname is ok */
if(!clean_nick_name(nick))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME), me.name, parv[0], nick);
return;
}
if(find_nick_resv(nick))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME),
me.name, parv[0], nick);
return;
}
if((target_p = find_client(nick)))
{
/* If(target_p == source_p) the client is changing nicks between
* equivalent nicknames ie: [nick] -> {nick}
*/
if(target_p == source_p)
{
/* check the nick isnt exactly the same */
if(strcmp(target_p->name, nick))
{
change_local_nick(client_p, source_p, nick);
return;
}
else
{
/* client is doing :old NICK old
* ignore it..
*/
return;
}
}
/* if the client that has the nick isnt registered yet (nick but no
* user) then drop the unregged client
*/
if(IsUnknown(target_p))
{
/* the old code had an if(MyConnect(target_p)) here.. but I cant see
* how that can happen, m_nick() is local only --fl_
*/
exit_client(NULL, target_p, &me, "Overridden");
change_local_nick(client_p, source_p, nick);
return;
}
else
{
sendto_one(source_p, form_str(ERR_NICKNAMEINUSE), me.name, parv[0], nick);
return;
}
}
else
{
change_local_nick(client_p, source_p, nick);
return;
}
}
/*
* ms_svsnick()
*
* parv[0] = sender prefix
* parv[1] = oldnick
* parv[2] = newnick
*/
static void ms_svsnick(struct Client *client_p, struct Client *source_p,
int parc, char *parv[])
{
char oldnick[NICKLEN];
char newnick[NICKLEN];
struct Client *oldnickname;
struct Client *newnickname;
if (!IsServer(source_p))
return;
/* XXX BadPtr is needed */
if(parc < 3 || BadPtr(parv[1]) || BadPtr(parv[2]))
{
sendto_one(source_p, form_str(ERR_NONICKNAMEGIVEN),
me.name, parv[0]);
return;
}
/* terminate nick to NICKLEN */
strlcpy(oldnick, parv[1], NICKLEN);
strlcpy(newnick, parv[2], NICKLEN);
if(!clean_nick_name(oldnick))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME),
me.name, parv[0], oldnick);
return;
}
/* check the nickname is ok */
if(!clean_nick_name(newnick))
{
sendto_one(source_p, form_str(ERR_ERRONEUSNICKNAME),
me.name, parv[0], newnick);
return;
}
if(find_nick_resv(newnick) &&
!(IsOper(source_p) && ConfigChannel.oper_pass_resv))
{
sendto_one(source_p, form_str(ERR_UNAVAILRESOURCE),
me.name, parv[0], newnick);
return;
}
if(!(oldnickname = find_client(oldnick)))
{
sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, oldnick);
return;
}
if(newnickname = find_client(newnick))
{
sendto_one(source_p, form_str(ERR_NICKNAMEINUSE), me.name,
parv[0], newnick);
return;
}
if(MyConnect(oldnickname))
{
if(!IsFloodDone(oldnickname))
flood_endgrace(oldnickname);
if (newnickname = find_client(oldnick))
{
if(newnickname == oldnickname)
{
/* check the nick isnt exactly the same */
if(strcmp(oldnickname->name, newnick))
{
change_local_nick(oldnickname->servptr, oldnickname, newnick);
return;
}
else
{
/* client is doing :old NICK old
* ignore it..
*/
return;
}
}
/* if the client that has the nick isnt registered yet (nick but no
* user) then drop the unregged client
*/
if(IsUnknown(newnickname))
{
/* the old code had an if(MyConnect(target_p)) here.. but I cant see
* how that can happen, m_nick() is local only --fl_
*/
exit_client(NULL, newnickname, &me, "Overridden");
change_local_nick(oldnickname->servptr, oldnickname, newnick);
return;
}
else
{
sendto_one(source_p, form_str(ERR_NICKNAMEINUSE), me.name,
parv[0], newnick);
return;
}
}
else
{
if(!ServerInfo.hub && uplink && IsCapable(uplink, CAP_LL))
{
/* The uplink might know someone by this name already. */
sendto_one(uplink, ":%s NBURST %s %s %s", me.name, newnick,
newnick, oldnickname->name);
return;
}
else
{
change_local_nick(oldnickname->servptr, oldnickname, newnick);
return;
}
}
}
else
{
sendto_server(client_p, source_p, NULL, CAP_SVNICK, NOCAPS, NOFLAGS,
":%s SVSNICK %s %s", me.name, oldnick, newnick);
return;
}
}