/* m_setname - 12/05/1999 - Stskeeps
* :prefix SETNAME :gecos
* parv[0] - sender
* parv[1] - gecos
* D: This will set your gecos to be <x> (like (/setname :The lonely wanderer))
yes it is experimental but anyways ;P
FREEDOM TO THE USERS! ;)
*/
DLLFUNC CMD_FUNC(m_setname)
{
int xx;
char tmpinfo[REALLEN + 1];
char spamfilter_user[NICKLEN + USERLEN + HOSTLEN + REALLEN + 64];
if ((parc < 2) || BadPtr(parv[1]))
{
sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, parv[0], "SETNAME");
return 0;
}
if (strlen(parv[1]) > REALLEN)
{
if (MyConnect(sptr))
{
sendnotice(sptr, "*** /SetName Error: \"Real names\" may maximum be %i characters of length",
REALLEN);
}
return 0;
}
/* set temp info for spamfilter check*/
strcpy(tmpinfo, sptr->info);
/* set the new name before we check, but don't send to servers unless it is ok */
strcpy(sptr->info, parv[1]);
spamfilter_build_user_string(spamfilter_user, sptr->name, sptr);
xx = dospamfilter(sptr, spamfilter_user, SPAMF_USER, NULL, 0, NULL);
if (xx < 0) {
if (sptr)
strcpy(sptr->info, tmpinfo);
return xx;
}
/* Check for n:lines here too */
if (!IsAnOper(sptr) && Find_ban(NULL, sptr->info, CONF_BAN_REALNAME))
return exit_client(cptr, sptr, &me,
"Your GECOS (real name) is banned from this server");
sendto_server(cptr, 0, 0, ":%s SETNAME :%s", sptr->name, parv[1]);
if (MyConnect(sptr))
sendnotice(sptr, "Your \"real name\" is now set to be %s - you have to set it manually to undo it",
parv[1]);
return 0;
}
DLLFUNC char *privdeaf_checkmsg(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice)
{
if ((acptr->umodes & UMODE_PRIVDEAF) && !IsAnOper(sptr) && !IsULine(sptr) && !IsServer(sptr))
{
sendnotice(sptr, "Message to '%s' not delivered: User does not accept private messages", acptr->name);
return NULL;
} else
return text;
}
DLLFUNC char *privdeaf_checkmsg(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice)
{
if ((acptr->umodes & UMODE_PRIVDEAF) && !IsAnOper(sptr) && !IsULine(sptr) && !IsServer(sptr))
{
sendnotice(sptr, "Message to '%s' has not been sent. The user has +D set. This blocks private messages.", acptr->name);
return NULL;
} else
return text;
}
/*
** m_sanick() - PID - 08-08-2011
**
** parv[0] - sender
** parv[1] - nick to make join
** parv[2] - channel(s) to join
*/
int m_sanick(aClient * cptr, aClient * sptr, int parc, char *parv[]) {
aClient *acptr;
char *param[3];
int self = 0;
// if (IsServer(sptr) || IsServices(sptr))
// return 0; //Servers and Services should be invoking SVSNICK directly...
if (!IsOper(sptr) && !IsAdmin(sptr) && !IsULine(sptr)) {
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]);
return 0;
}
if (parv[1] == NULL || !parv[1] || !parv[2]) {
sendnotice(sptr, "*** Usage: \2/sanick oldnick newnick\2");
return 0;
}
if (parv[2] == NULL || !(acptr = find_person(parv[1], NULL))) {
sendnotice(sptr, "*** No such user, %s.", parv[1]);
return 0;
}
if (!strcmp(parv[2], parv[1]) || !strcmp(parv[2], parv[0])) {
sendnotice(sptr, "*** Perhaps I should warn people that they have given an idiot IRCOp access?");
return 0;
}
if (!strcmp(parv[0], parv[1]))
self = 1;
if (find_client(parv[2], NULL)) {
sendnotice(sptr, "*** WARNING: User %s already exists!", parv[2]);
return 0;
}
if(acptr->umodes & UMODE_REGNICK)
acptr->umodes &= ~UMODE_REGNICK;
param[0] = acptr->name;
param[1] = parv[2];
param[2] = NULL;
sendnotice(acptr, "*** You were forced to change your nick to %s", parv[2]);
do_cmd(acptr, acptr, "NICK", 2, param);
if(self) {
sendto_realops("%s used \2SANICK\2 to change their nick to %s.", parv[1], parv[2]);
ircd_log(LOG_SACMDS,"SANICK: %s used SANICK to change their nick to %s", parv[1], parv[2]);
} else {
sendto_realops("%s used \2SANICK\2 to make %s change their nick to %s.", parv[0], parv[1], parv[2]);
ircd_log(LOG_SACMDS,"SANICK: %s used SANICK to make %s change their nick to %s", acptr->name, parv[1], parv[2]);
}
return 0;
}
int secureonly_check_sajoin (aClient *acptr, aChannel* chptr, aClient *sptr)
{
if (IsSecureOnly(chptr) && !IsSecure(acptr))
{
sendnotice(sptr, "You cannot SAJOIN %s to %s because the channel is +z and the user is not connected via SSL",
acptr->name, chptr->chname);
return HOOK_DENY;
}
return HOOK_CONTINUE;
}
void dodir(const char *dirname,int reply)
/* parses file names in directory 'dirname'. Files that are not owner */
/* writable (w) are ignored. If the files are older (by name!) than */
/* now-delay, action is taken: */
/* If the owner x bit is not set, the file is erased. */
/* If it is set and reply is not set, the file is erased. If both are */
/* set, a notice about the timeout is sent to the poster. If this */
/* fails due to a message-related error (format, etc) the file is */
/* erased even though no notice is sent. For temporary errors (like */
/* out-of-memory) the message is left intact for the next run. If the */
/* notice is sent successfully, the file is erased. All this is to */
/* do the best possible without risking a rerun of the .qmail file, */
/* which could result in a redelivery of the action request and a */
/* second (incorrect) reply to the moderator's request. */
/* NOTE: ALL non-hidden files in this dir are processed and merci- */
/* lessly deleted. No checks for proper file name. E.g. 'HELLO' */
/* => time 0 => will be deleted on the next ezmlm-clean run. */
{
DIR *moddir;
direntry *d;
unsigned long modtime;
struct stat st;
moddir = opendir(dirname);
if (!moddir)
strerr_die2sys(0,FATAL,MSG1(ERR_OPEN,dirname));
while ((d = readdir(moddir))) {
if (d->d_name[0] == '.') continue;
scan_ulong(d->d_name,&modtime);
if (modtime < older) {
if (!stralloc_copys(&fnmsg,dirname)) die_nomem();
if (!stralloc_cats(&fnmsg,d->d_name)) die_nomem();
if (!stralloc_0(&fnmsg)) die_nomem();
if((stat(fnmsg.s,&st) != -1) && (st.st_mode & 0200)) {
if(reply && (st.st_mode & 0100)) {
/* unlink unless there was a TEMPORARY */
/* not message-related error notifying */
/* poster and msg x bit set. Leave r/o*/
/* messages alone. Non-x bit msg are */
/* trash. Just unlink, don't notify */
sendnotice(fnmsg.s);
unlink(fnmsg.s);
} else
unlink(fnmsg.s);
}
}
}
closedir(moddir);
}
/* The only purpose of this function is a temporary workaround to prevent a desynch.. pfff */
int extban_modec_is_ok(aClient *sptr, aChannel *chptr, char *para, int checkt, int what, int what2)
{
char *p;
if ((checkt == EXBCHK_PARAM) && MyClient(sptr) && (what == MODE_ADD) && (strlen(para) > 3))
{
p = para + 3;
if ((*p == '+') || (*p == '%') || (*p == '%') ||
(*p == '@') || (*p == '&') || (*p == '~'))
p++;
if (*p != '#')
{
sendnotice(sptr, "Please use a # in the channelname (eg: ~c:#*blah*)");
return 0;
}
}
return 1;
}
/** General is_ok for n!u@h stuff that also deals with recursive extbans.
*/
int extban_is_ok_nuh_extban(aClient* sptr, aChannel* chptr, char* para, int checkt, int what, int what2)
{
char *mask = (para + 3);
Extban *p = NULL;
int isok;
static int extban_is_ok_recursion = 0;
/* Mostly copied from clean_ban_mask - but note MyClient checks aren't needed here: extban->is_ok() according to m_mode isn't called for nonlocal. */
if ((*mask == '~') && mask[1] && (mask[2] == ':'))
{
if (extban_is_ok_recursion)
return 0; /* Fail: more than one stacked extban */
/* We can be sure RESTRICT_EXTENDEDBANS is not *. Else this extended ban wouldn't be happening at all. */
if (what == EXBCHK_PARAM && RESTRICT_EXTENDEDBANS && !IsAnOper(sptr))
{
if (strchr(RESTRICT_EXTENDEDBANS, mask[1]))
{
sendnotice(sptr, "Setting/removing of extended bantypes '%s' has been disabled.", RESTRICT_EXTENDEDBANS);
return 0; /* Fail */
}
}
p = findmod_by_bantype(mask[1]);
if (!p)
{
if (what == MODE_DEL)
{
return 1; /* Always allow killing unknowns. */
}
return 0; /* Don't add unknown extbans. */
}
/* Now we have to ask the stacked extban if it's ok. */
if (p->is_ok)
{
extban_is_ok_recursion++;
isok = p->is_ok(sptr, chptr, mask, checkt, what, what2);
extban_is_ok_recursion--;
return isok;
}
}
return 1; /* Either not an extban, or extban has NULL is_ok. Good to go. */
}
int nokick_can_kick(aClient *sptr, aClient *target, aChannel *chptr, char *comment,
long sptr_flags, long target_flags, char **reject_reason)
{
static char errmsg[NICKLEN+256];
if (IsNokick(target) && !IsULine(sptr) && MyClient(sptr) && !ValidatePermissionsForPath("override:kick:nokick",sptr,target,chptr,NULL))
{
ircsnprintf(errmsg, sizeof(errmsg), err_str(ERR_CANNOTDOCOMMAND),
me.name, sptr->name, "KICK",
"user is unkickable (user mode +q)");
*reject_reason = errmsg;
sendnotice(target,
"*** umode q: %s tried to kick you from channel %s (%s)",
sptr->name, chptr->chname, comment);
return EX_ALWAYS_DENY;
}
return EX_ALLOW;
}
int extban_certfp_usage(aClient *sptr)
{
sendnotice(sptr, "ERROR: ExtBan ~S expects an SHA256 fingerprint in hexadecimal format (no colons). "
"For example: +e ~S:1234567890abcdef1234567890abcdef1234567890abcdef1234567890abcdef)");
return EX_DENY;
}
DLLFUNC int m_rmtkl(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
aTKline *tk, *next = NULL;
TKLType *tkltype;
char *types, *uhmask, *cmask, *p;
char gmt[256], flag;
int tklindex;
if (!IsULine(sptr) && !(IsPerson(sptr) && IsAnOper(sptr)))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]);
return -1;
}
if (IsNotParam(1))
return dumpit(sptr, rmtkl_help);
if (IsNotParam(2))
{
sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, parv[0], "RMTKL");
sendnotice(sptr, "Type '/RMTKL' for help");
return 0;
}
types = parv[1];
uhmask = parv[2];
cmask = IsParam(3) ? parv[3] : NULL;
/* I don't add 'q' and 'Q' here. They are different. */
if (strchr(types, '*'))
types = "KzGZs";
/* check access */
if (!IsULine(sptr))
for (p = types; *p; p++)
{
tkltype = find_TKLType_by_flag(*p);
if (!tkltype->type)
continue;
if (((tkltype->type & TKL_GLOBAL) && !IsOper(sptr))
|| !(sptr->oflag & tkltype->oflag))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES),
me.name, parv[0]);
return -1;
}
}
for (tkltype = tkl_types; tkltype->type; tkltype++)
{
flag = tkltype->flag;
tklindex = tkl_hash(flag);
if (!strchr(types, flag))
continue;
for (tk = tklines[tklindex]; tk; tk = next)
{
next = tk->next;
if (tk->type != tkltype->type)
continue;
if (tk->type & TKL_NICK)
{
/*
* If it's a services hold (ie. NickServ is holding
* a nick), it's better not to touch it
*/
if (*tk->usermask == 'H')
continue;
if (match(uhmask, tk->hostmask))
continue;
}
else
if (match(uhmask, make_user_host(tk->usermask, tk->hostmask)))
continue;
if (cmask && _match(cmask, tk->reason))
continue;
strncpyzt(gmt, asctime(gmtime((TS *)&tk->set_at)),
sizeof gmt);
iCstrip(gmt);
if (tk->type & TKL_NICK)
{
sendto_snomask(SNO_TKL, "%s removed %s %s (set at %s "
"- reason: %s)",
sptr->name, tkltype->txt, tk->hostmask, gmt,
tk->reason);
ircd_log(LOG_TKL, "%s removed %s %s (set at %s "
"- reason: %s)",
sptr->name, tkltype->txt, tk->hostmask,
gmt, tk->reason);
}
else
{
sendto_snomask(SNO_TKL, "%s removed %s %s@%s (set at "
"%s - reason: %s)",
sptr->name, tkltype->txt, tk->usermask,
tk->hostmask, gmt, tk->reason);
ircd_log(LOG_TKL, "%s removed %s %s@%s (set at "
"%s - reason: %s)",
sptr->name, tkltype->txt, tk->usermask,
tk->hostmask, gmt, tk->reason);
}
if ((tk->type & TKL_GLOBAL) && flag)
sendto_serv_butone_token(&me, me.name, MSG_TKL, TOK_TKL,
"- %c %s %s %s",
flag, tk->usermask, tk->hostmask, parv[0]);
if (tk->type & TKL_SHUN)
tkl_check_local_remove_shun(tk);
my_tkl_del_line(tk, tklindex);
}
}
return 0;
}
DLLFUNC int m_jumpserver(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
char *serv, *sslserv=NULL, *reason, *p, *p2;
int all=0, port=6667, sslport=6697;
char logbuf[512];
if (!IsCoAdmin(sptr) && !IsAdmin(sptr) && !IsNetAdmin(sptr) && !IsSAdmin(sptr))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]);
return 0;
}
if ((parc < 2) || BadPtr(parv[1]))
{
#ifdef USE_SSL
if (jss && jss->ssl_server)
sendnotice(sptr, "JumpServer is \002ENABLED\002 to %s:%d (SSL: %s:%d) with reason '%s'",
jss->server, jss->port, jss->ssl_server, jss->ssl_port, jss->reason);
else
#endif
if (jss)
sendnotice(sptr, "JumpServer is \002ENABLED\002 to %s:%d with reason '%s'",
jss->server, jss->port, jss->reason);
else
sendnotice(sptr, "JumpServer is \002DISABLED\002");
return 0;
}
if ((parc > 1) && (!strcasecmp(parv[1], "OFF") || !strcasecmp(parv[1], "STOP")))
{
if (!jss)
{
sendnotice(sptr, "JUMPSERVER: No redirect active (already OFF)");
return 0;
}
free_jss();
snprintf(logbuf, sizeof(logbuf), "%s (%s@%s) turned JUMPSERVER OFF",
sptr->name, sptr->user->username, sptr->user->realhost);
sendto_realops("%s", logbuf);
ircd_log(LOG_ERROR, "%s", logbuf);
return 0;
}
if (parc < 4)
{
/* Waah, pretty verbose usage info ;) */
sendnotice(sptr, "Use: /JUMPSERVER <server>[:port] <NEW|ALL> <reason>");
#ifdef USE_SSL
sendnotice(sptr, " Or: /JUMPSERVER <server>[:port]/<sslserver>[:port] <NEW|ALL> <reason>");
#endif
sendnotice(sptr, "if 'NEW' is chosen then only new (incoming) connections will be redirected");
sendnotice(sptr, "if 'ALL' is chosen then all clients except opers will be redirected immediately (+incoming connections)");
sendnotice(sptr, "Example: /JUMPSERVER irc2.test.net NEW This server will be upgraded, please use irc2.test.net for now");
sendnotice(sptr, "And then for example 10 minutes later...");
sendnotice(sptr, " /JUMPSERVER irc2.test.net ALL This server will be upgraded, please use irc2.test.net for now");
sendnotice(sptr, "Use: '/JUMPSERVER OFF' to turn off any redirects");
return 0;
}
/* Parsing code follows...
* The parsing of the SSL stuff is still done even on non-SSL,
* but it's simply not used/applied :).
* Reason for this is to reduce non-SSL/SSL inconsistency issues.
*/
serv = parv[1];
p = strchr(serv, '/');
if (p)
{
*p = '\0';
sslserv = p+1;
}
p = strchr(serv, ':');
if (p)
{
*p++ = '\0';
port = atoi(p);
if ((port < 1) || (port > 65535))
{
sendnotice(sptr, "Invalid serverport specified (%d)", port);
return 0;
}
}
if (sslserv)
{
p = strchr(sslserv, ':');
if (p)
{
*p++ = '\0';
sslport = atoi(p);
if ((sslport < 1) || (sslport > 65535))
{
sendnotice(sptr, "Invalid SSL serverport specified (%d)", sslport);
return 0;
}
}
if (!*sslserv)
sslserv = NULL;
}
if (!strcasecmp(parv[2], "new"))
all = 0;
else if (!strcasecmp(parv[2], "all"))
all = 1;
else {
sendnotice(sptr, "ERROR: Invalid action '%s', should be 'NEW' or 'ALL' (see /jumpserver help for usage)", parv[2]);
return 0;
}
reason = parv[3];
/* Free any old stuff (needed!) */
if (jss)
free_jss();
jss = MyMallocEx(sizeof(JSS));
/* Set it */
jss->server = strdup(serv);
jss->port = port;
#ifdef USE_SSL
if (sslserv)
{
jss->ssl_server = strdup(sslserv);
jss->ssl_port = sslport;
}
#endif
jss->reason = strdup(reason);
/* Broadcast/log */
#ifdef USE_SSL
if (sslserv)
snprintf(logbuf, sizeof(logbuf), "%s (%s@%s) added JUMPSERVER redirect for %s to %s:%d [SSL: %s:%d] with reason '%s'",
sptr->name, sptr->user->username, sptr->user->realhost,
all ? "ALL CLIENTS" : "all new clients",
jss->server, jss->port, jss->ssl_server, jss->ssl_port, jss->reason);
else
#endif
snprintf(logbuf, sizeof(logbuf), "%s (%s@%s) added JUMPSERVER redirect for %s to %s:%d with reason '%s'",
sptr->name, sptr->user->username, sptr->user->realhost,
all ? "ALL CLIENTS" : "all new clients",
jss->server, jss->port, jss->reason);
sendto_realops("%s", logbuf);
ircd_log(LOG_ERROR, "%s", logbuf);
if (all)
redirect_all_clients();
return 0;
}
/* m_dccallow:
* HISTORY:
* Taken from bahamut 1.8.1
*/
DLLFUNC int m_dccallow(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
Link *lp;
char *p, *s;
aClient *acptr;
int didlist = 0, didhelp = 0, didanything = 0;
char **ptr;
static char *dcc_help[] =
{
"/DCCALLOW [<+|->nick[,<+|->nick, ...]] [list] [help]",
"You may allow DCCs of files which are otherwise blocked by the IRC server",
"by specifying a DCC allow for the user you want to recieve files from.",
"For instance, to allow the user Bob to send you file.exe, you would type:",
"/DCCALLOW +bob",
"and Bob would then be able to send you files. Bob will have to resend the file",
"if the server gave him an error message before you added him to your allow list.",
"/DCCALLOW -bob",
"Will do the exact opposite, removing him from your dcc allow list.",
"/dccallow list",
"Will list the users currently on your dcc allow list.",
NULL
};
if (!MyClient(sptr))
return 0;
if (parc < 2)
{
sendnotice(sptr, "No command specified for DCCALLOW. "
"Type '/DCCALLOW HELP' for more information.");
return 0;
}
for (p = NULL, s = strtoken(&p, parv[1], ", "); s; s = strtoken(&p, NULL, ", "))
{
if (*s == '+')
{
didanything = 1;
if (!*++s)
continue;
acptr = find_person(s, NULL);
if (acptr == sptr)
continue;
if (!acptr)
{
sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, sptr->name, s);
continue;
}
add_dccallow(sptr, acptr);
} else
if (*s == '-')
{
didanything = 1;
if (!*++s)
continue;
acptr = find_person(s, NULL);
if (acptr == sptr)
continue;
if (!acptr)
{
sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, sptr->name, s);
continue;
}
del_dccallow(sptr, acptr);
} else
if (!didlist && !myncmp(s, "list", 4))
{
didanything = didlist = 1;
sendto_one(sptr, ":%s %d %s :The following users are on your dcc allow list:",
me.name, RPL_DCCINFO, sptr->name);
for(lp = sptr->user->dccallow; lp; lp = lp->next)
{
if (lp->flags == DCC_LINK_REMOTE)
continue;
sendto_one(sptr, ":%s %d %s :%s (%s@%s)", me.name,
RPL_DCCLIST, sptr->name, lp->value.cptr->name,
lp->value.cptr->user->username,
GetHost(lp->value.cptr));
}
sendto_one(sptr, rpl_str(RPL_ENDOFDCCLIST), me.name, sptr->name, s);
} else
if (!didhelp && !myncmp(s, "help", 4))
{
didanything = didhelp = 1;
for(ptr = dcc_help; *ptr; ptr++)
sendto_one(sptr, ":%s %d %s :%s", me.name, RPL_DCCINFO, sptr->name, *ptr);
sendto_one(sptr, rpl_str(RPL_ENDOFDCCLIST), me.name, sptr->name, s);
}
}
if (!didanything)
{
sendnotice(sptr, "Invalid syntax for DCCALLOW. Type '/DCCALLOW HELP' for more information.");
return 0;
}
return 0;
}
static void
runtests(GSList* task_list)
{
size_t i;
for (i = 0; i < g_slist_length(task_list); i++){
struct task* task;
task = g_slist_nth_data(task_list, i);
switch(task->op){
case OPEN:
open_testfile();
break;
case MANOPEN:
manopen_testfile();
break;
case CLOSE:
close_testfile();
break;
case CLOSE_SAVEFD:
close_savefd();
break;
case WAIT:
waitnotice();
break;
case SEND:
sendnotice();
break;
case WRITE:
write_testfile(task);
break;
case READ:
read_testfile(task);
break;
case RUN:
test( task->run_param.num,
task->run_param.sec,
task->run_param.func,
task->run_param.offset,
task->run_param.length,
task->run_param.pass,
FATAL);
break;
case FORK:{
int subpid = fork();
if (subpid < 0){
perror("can't fork off child");
exit(1);
}
if (subpid == 0){
test( task->run_param.num,
task->run_param.sec,
task->run_param.func,
task->run_param.offset,
task->run_param.length,
task->run_param.pass,
FATAL);
while(1) {
sleep(1);
}
}else{
gi.forkpid = subpid;
}
break;
}
case KILL:
if(kill(gi.forkpid, SIGINT) == -1){
perror("kill");
exit(1);
}
break;
case SLEEP:
sleep(task->sleep_param.time);
break;
case PUSHFD:
pushfd();
break;
case POPFD:
popfd();
break;
case TRUNC:
hb_trunc();
break;
}
}
}
DLLFUNC int m_chghost(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
aClient *acptr;
if (MyClient(sptr) && !IsAnOper(sptr))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name,
parv[0]);
return 0;
}
#ifdef DISABLE_USERMOD
if (MyClient(sptr))
{
sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, "CHGHOST",
"This command is disabled on this server");
return 0;
}
#endif
if ((parc < 3) || !*parv[2])
{
sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, sptr->name, "CHGHOST");
return 0;
}
if (strlen(parv[2]) > (HOSTLEN))
{
sendnotice(sptr, "*** ChgName Error: Requested hostname too long -- rejected.");
return 0;
}
if (!valid_host(parv[2]))
{
sendnotice(sptr, "*** /ChgHost Error: A hostname may contain a-z, A-Z, 0-9, '-' & '.' - Please only use them");
return 0;
}
if (parv[2][0] == ':')
{
sendnotice(sptr, "*** A hostname cannot start with ':'");
return 0;
}
if ((acptr = find_person(parv[1], NULL)))
{
if (MyClient(sptr) && (IsLocOp(sptr) && !MyClient(acptr)))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name,
parv[0]);
return 0;
}
if (!strcmp(GetHost(acptr), parv[2]))
{
sendnotice(sptr, "*** /ChgHost Error: requested host is same as current host.");
return 0;
}
switch (UHOST_ALLOWED)
{
case UHALLOW_NEVER:
if (MyClient(sptr))
{
sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, "CHGHOST",
"This command is disabled on this server");
return 0;
}
break;
case UHALLOW_ALWAYS:
break;
case UHALLOW_NOCHANS:
if (IsPerson(acptr) && MyClient(sptr) && acptr->user->joined)
{
sendnotice(sptr, "*** /ChgHost can not be used while %s is on a channel", acptr->name);
return 0;
}
break;
case UHALLOW_REJOIN:
rejoin_doquits(acptr);
/* join sent later when the host has been changed */
break;
}
if (!IsULine(sptr))
{
sendto_snomask(SNO_EYES,
"%s changed the virtual hostname of %s (%s@%s) to be %s",
sptr->name, acptr->name, acptr->user->username,
acptr->user->realhost, parv[2]);
/* Logging added by XeRXeS */
ircd_log(LOG_CHGCMDS,
"CHGHOST: %s changed the virtual hostname of %s (%s@%s) to be %s",
sptr->name, acptr->name, acptr->user->username, acptr->user->realhost, parv[2]);
}
acptr->umodes |= UMODE_HIDE;
acptr->umodes |= UMODE_SETHOST;
sendto_server(cptr, 0, 0, ":%s CHGHOST %s %s",
sptr->name, acptr->name, parv[2]);
if (acptr->user->virthost)
{
MyFree(acptr->user->virthost);
acptr->user->virthost = 0;
}
acptr->user->virthost = strdup(parv[2]);
if (UHOST_ALLOWED == UHALLOW_REJOIN)
rejoin_dojoinandmode(acptr);
return 0;
}
else
{
sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, sptr->name,
parv[1]);
return 0;
}
return 0;
}
/* clean_ban_mask: makes a proper banmask
* RETURNS: pointer to correct banmask or NULL in case of error
* NOTES:
* - A pointer is returned to a static buffer, which is overwritten
* on next clean_ban_mask or make_nick_user_host call.
* - mask is fragged in some cases, this could be bad.
*/
char *clean_ban_mask(char *mask, int what, aClient *cptr)
{
char *cp;
char *user;
char *host;
Extban *p;
cp = index(mask, ' ');
if (cp)
*cp = '\0';
/* Strip any ':' at beginning coz that desynchs clients/banlists */
for (; (*mask && (*mask == ':')); mask++);
if (!*mask)
return NULL;
/* Extended ban? */
if ((*mask == '~') && mask[1] && (mask[2] == ':'))
{
if (RESTRICT_EXTENDEDBANS && MyClient(cptr) && !IsAnOper(cptr))
{
if (!strcmp(RESTRICT_EXTENDEDBANS, "*"))
{
sendnotice(cptr, "Setting/removing of extended bans has been disabled");
return NULL;
}
if (strchr(RESTRICT_EXTENDEDBANS, mask[1]))
{
sendnotice(cptr, "Setting/removing of extended bantypes '%s' has been disabled",
RESTRICT_EXTENDEDBANS);
return NULL;
}
}
p = findmod_by_bantype(mask[1]);
if (!p)
{
/* extended bantype not supported, what to do?
* Here are the rules:
* - if from a remote client/server: allow it (easy upgrading,
* no desynch)
* - if from a local client trying to REMOVE the extban,
* allow it too (so you don't get "unremovable" extbans).
*/
if (!MyClient(cptr) || (what == MODE_DEL))
return mask; /* allow it */
return NULL; /* reject */
}
if (p->conv_param)
return p->conv_param(mask);
/* else, do some basic sanity checks and cut it off at 80 bytes */
if ((cp[1] != ':') || (cp[2] == '\0'))
return NULL; /* require a ":<char>" after extban type */
if (strlen(mask) > 80)
mask[80] = '\0';
return mask;
}
if ((*mask == '~') && !strchr(mask, '@'))
return NULL; /* not an extended ban and not a ~user@host ban either. */
if ((user = index((cp = mask), '!')))
*user++ = '\0';
if ((host = rindex(user ? user : cp, '@')))
{
*host++ = '\0';
if (!user)
return make_nick_user_host(NULL, trim_str(cp,USERLEN),
trim_str(host,HOSTLEN));
}
else if (!user && index(cp, '.'))
return make_nick_user_host(NULL, NULL, trim_str(cp,HOSTLEN));
return make_nick_user_host(trim_str(cp,NICKLEN), trim_str(user,USERLEN),
trim_str(host,HOSTLEN));
}
int m_chgident(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
aClient *acptr;
char *s;
int legalident = 1;
if (MyClient(sptr) && !IsAnOper(sptr))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]);
return 0;
}
#ifdef DISABLE_USERMOD
if (MyClient(sptr))
{
sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, "CHGIDENT",
"This command is disabled on this server");
return 0;
}
#endif
if ((parc < 3) || !*parv[2])
{
sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, sptr->name, "CHGIDENT");
return 0;
}
if (strlen(parv[2]) > (USERLEN))
{
sendnotice(sptr, "*** ChgIdent Error: Requested ident too long -- rejected.");
return 0;
}
/* illegal?! */
for (s = parv[2]; *s; s++)
{
if ((*s == '~') && (s == parv[2]))
continue;
if (!isallowed(*s))
{
legalident = 0;
}
}
if (legalident == 0)
{
sendnotice(sptr, "*** /ChgIdent Error: A ident may contain a-z, A-Z, 0-9, '-' & '.' - Please only use them");
return 0;
}
if ((acptr = find_person(parv[1], NULL)))
{
DYN_LOCAL(char, did_parts, acptr->user->joined);
switch (UHOST_ALLOWED)
{
case UHALLOW_NEVER:
if (MyClient(sptr))
{
sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, "CHGIDENT",
"This command is disabled on this server");
DYN_FREE(did_parts);
return 0;
}
break;
case UHALLOW_ALWAYS:
break;
case UHALLOW_NOCHANS:
if (IsPerson(acptr) && MyClient(sptr) && acptr->user->joined)
{
sendnotice(sptr, "*** /ChgIdent can not be used while %s is on a channel", acptr->name);
DYN_FREE(did_parts);
return 0;
}
break;
case UHALLOW_REJOIN:
rejoin_doparts(acptr, did_parts);
/* join sent later when the ident has been changed */
break;
}
if (!IsULine(sptr))
{
sendto_snomask(SNO_EYES,
"%s changed the virtual ident of %s (%s@%s) to be %s",
sptr->name, acptr->name, acptr->user->username,
GetHost(acptr), parv[2]);
/* Logging ability added by XeRXeS */
ircd_log(LOG_CHGCMDS,
"CHGIDENT: %s changed the virtual ident of %s (%s@%s) to be %s",
sptr->name, acptr->name, acptr->user->username,
GetHost(acptr), parv[2]);
}
sendto_serv_butone_token(cptr, sptr->name,
MSG_CHGIDENT,
TOK_CHGIDENT, "%s %s", acptr->name, parv[2]);
ircsprintf(acptr->user->username, "%s", parv[2]);
if (UHOST_ALLOWED == UHALLOW_REJOIN)
rejoin_dojoinandmode(acptr, did_parts);
DYN_FREE(did_parts);
return 0;
}
/*
** m_mkpasswd
** parv[0] = sender prefix
** parv[1] = password to encrypt
*/
int m_mkpasswd(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
short type;
char *result = NULL;
if (!MKPASSWD_FOR_EVERYONE && !IsAnOper(sptr))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, sptr->name);
return -1;
}
if (!IsAnOper(sptr))
{
/* Non-opers /mkpasswd usage: lag them up, and send a notice to eyes snomask.
* This notice is always sent, even in case of bad usage/bad auth methods/etc.
*/
sptr->since += 7;
sendto_snomask(SNO_EYES, "*** /mkpasswd was used by %s (%s@%s) to create a hash.",
sptr->name, sptr->user->username, GetHost(sptr));
}
if ((parc < 3) || BadPtr(parv[2]))
{
sendto_one(sptr, ":%s NOTICE %s :*** Syntax: /mkpasswd <authmethod> <password>",
me.name, sptr->name);
return 0;
}
/* Don't want to take any risk ;p. -- Syzop */
if (strlen(parv[2]) > 64)
{
sendto_one(sptr, ":%s NOTICE %s :*** Your parameter (text-to-hash) is too long. Please Shorten it",
me.name, sptr->name);
return 0;
}
if ((type = Auth_FindType(parv[1])) == -1)
{
sendto_one(sptr,
":%s NOTICE %s :*** %s is not an enabled authentication method. SHA1 and above require an SSL compile.",
me.name, sptr->name, parv[1]);
return 0;
}
#ifdef AUTHENABLE_UNIXCRYPT
if ((type == AUTHTYPE_UNIXCRYPT) && (strlen(parv[2]) > 8))
{
sendnotice(sptr, "WARNING: Password truncated to 8 characters due to 'crypt' algorithm. "
"You are suggested to use the 'md5' algorithm instead.");
parv[2][8] = '\0';
}
#endif
if (!(result = Auth_Make(type, parv[2])))
{
sendto_one(sptr,
":%s NOTICE %s :*** Failed to create hash using that encryption method %s",
me.name, sptr->name, parv[1]);
return 0;
}
sendto_one(sptr, ":%s %s %s :*** Your hashed password (method=%s, para=%s) is: %s",
me.name, IsWebTV(sptr) ? "PRIVMSG" : "NOTICE", parv[0], parv[1], parv[2], result);
return 0;
}
/* m_sajoin() - Lamego - Wed Jul 21 20:04:48 1999 Copied off PTlink IRCd (C) PTlink coders team. Coded for Sadmin by Stskeeps also Modified by NiQuiL ([email protected]) parv[0] - sender parv[1] - nick to make join parv[2] - channel(s) to join */ DLLFUNC CMD_FUNC(m_sajoin) { aClient *acptr; char jbuf[BUFSIZE]; int did_anything = 0; if (!IsSAdmin(sptr) && !IsULine(sptr)) { sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]); return 0; } if (parc < 3) { sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, parv[0], "SAJOIN"); return 0; } if (!(acptr = find_person(parv[1], NULL))) { sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, parv[0], parv[1]); return 0; } if (MyClient(acptr)) { char *name, *p = NULL; int i, parted = 0; *jbuf = 0; /* Now works like m_join */ for (i = 0, name = strtoken(&p, parv[2], ","); name; name = strtoken(&p, NULL, ",")) { aChannel *chptr; Membership *lp; if (strlen(name) > CHANNELLEN) name[CHANNELLEN] = 0; clean_channelname(name); if (*name == '0' && !atoi(name)) { (void)strcpy(jbuf, "0"); i = 1; parted = 1; continue; } if (check_channelmask(sptr, cptr, name) == -1 || *name == '0' || !IsChannelName(name)) { sendto_one(sptr, err_str(ERR_NOSUCHCHANNEL), me.name, parv[0], name); continue; } chptr = get_channel(acptr, name, 0); if (!parted && chptr && (lp = find_membership_link(acptr->user->channel, chptr))) { sendto_one(sptr, err_str(ERR_USERONCHANNEL), me.name, parv[0], parv[1], name); continue; } if (*jbuf) (void)strlcat(jbuf, ",", sizeof jbuf); (void)strlncat(jbuf, name, sizeof jbuf, sizeof(jbuf) - i - 1); i += strlen(name) + 1; } if (!*jbuf) return -1; i = 0; strcpy(parv[2], jbuf); *jbuf = 0; for (name = strtoken(&p, parv[2], ","); name; name = strtoken(&p, NULL, ",")) { int flags; aChannel *chptr; Membership *lp; if (*name == '0' && !atoi(name)) { did_anything = 1; while ((lp = acptr->user->channel)) { chptr = lp->chptr; sendto_channel_butserv(chptr, acptr, ":%s PART %s :%s", acptr->name, chptr->chname, "Left all channels"); if (MyConnect(acptr)) RunHook4(HOOKTYPE_LOCAL_PART, acptr, acptr, chptr, "Left all channels"); remove_user_from_channel(acptr, chptr); } sendto_serv_butone_token(acptr, acptr->name, MSG_JOIN, TOK_JOIN, "0"); strcpy(jbuf, "0"); i = 1; continue; } flags = (ChannelExists(name)) ? CHFL_DEOPPED : CHFL_CHANOP; chptr = get_channel(acptr, name, CREATE); if (chptr && (lp = find_membership_link(acptr->user->channel, chptr))) continue; if ((chptr->mode.mode & MODE_ONLYSECURE) && !IsSecure(acptr)) { sendnotice(sptr, "You cannot SAJOIN %s to %s because the channel is +z and the user is not connected via SSL", acptr->name, chptr->chname); continue; } join_channel(chptr, acptr, acptr, flags); did_anything = 1; if (*jbuf) (void)strlcat(jbuf, ",", sizeof jbuf); (void)strlncat(jbuf, name, sizeof jbuf, sizeof(jbuf) - i - 1); i += strlen(name) + 1; } if (did_anything) { sendnotice(acptr, "*** You were forced to join %s", jbuf); sendto_realops("%s used SAJOIN to make %s join %s", sptr->name, acptr->name, jbuf); sendto_serv_butone(&me, ":%s GLOBOPS :%s used SAJOIN to make %s join %s", me.name, sptr->name, acptr->name, jbuf); /* Logging function added by XeRXeS */ ircd_log(LOG_SACMDS,"SAJOIN: %s used SAJOIN to make %s join %s", sptr->name, parv[1], jbuf); } } else { sendto_one(acptr, ":%s SAJOIN %s %s", parv[0], parv[1], parv[2]); /* Logging function added by XeRXeS */ ircd_log(LOG_SACMDS,"SAJOIN: %s used SAJOIN to make %s join %s", sptr->name, parv[1], parv[2]); } return 0; }
DLLFUNC CMD_FUNC(m_sapart)
{
aClient *acptr;
aChannel *chptr;
Membership *lp;
char *name, *p = NULL;
int i;
char *comment = (parc > 3 && parv[3] ? parv[3] : NULL);
char commentx[512];
char jbuf[BUFSIZE];
if (!IsSAdmin(sptr) && !IsULine(sptr))
{
sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]);
return 0;
}
if (parc < 3)
{
sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, parv[0], "SAPART");
return 0;
}
if (!(acptr = find_person(parv[1], NULL)))
{
sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, parv[0], parv[1]);
return 0;
}
if (MyClient(acptr))
{
/* Now works like m_join */
*jbuf = 0;
for (i = 0, name = strtoken(&p, parv[2], ","); name; name = strtoken(&p,
NULL, ","))
{
if (!(chptr = get_channel(acptr, name, 0)))
{
sendto_one(sptr, err_str(ERR_NOSUCHCHANNEL), me.name, parv[0],
name);
continue;
}
if (!(lp = find_membership_link(acptr->user->channel, chptr)))
{
sendto_one(sptr, err_str(ERR_USERNOTINCHANNEL), me.name, parv[0],
parv[1], name);
continue;
}
if (*jbuf)
(void)strlcat(jbuf, ",", sizeof jbuf);
(void)strlncat(jbuf, name, sizeof jbuf, sizeof(jbuf) - i - 1);
i += strlen(name) + 1;
}
if (!*jbuf)
return -1;
strcpy(parv[2], jbuf);
if (comment)
{
strcpy(commentx, "SAPart: ");
strlcat(commentx, comment, 512);
}
parv[0] = parv[1]; // nick
parv[1] = parv[2]; // chan
parv[2] = comment ? commentx : NULL; // comment
if (comment)
{
sendnotice(acptr,
"*** You were forced to part %s (%s)",
parv[1], commentx);
sendto_realops("%s used SAPART to make %s part %s (%s)", sptr->name, parv[0],
parv[1], comment);
sendto_server(&me, 0, 0, ":%s GLOBOPS :%s used SAPART to make %s part %s (%s)",
me.name, sptr->name, parv[0], parv[1], comment);
/* Logging function added by XeRXeS */
ircd_log(LOG_SACMDS,"SAPART: %s used SAPART to make %s part %s (%s)",
sptr->name, parv[0], parv[1], comment);
}
else
{
sendnotice(acptr,
"*** You were forced to part %s", parv[1]);
sendto_realops("%s used SAPART to make %s part %s", sptr->name, parv[0],
parv[1]);
sendto_server(&me, 0, 0, ":%s GLOBOPS :%s used SAPART to make %s part %s",
me.name, sptr->name, parv[0], parv[1]);
/* Logging function added by XeRXeS */
ircd_log(LOG_SACMDS,"SAPART: %s used SAPART to make %s part %s",
sptr->name, parv[0], parv[1]);
}
do_cmd(acptr, acptr, "PART", comment ? 3 : 2, parv);
}
else
{
if (comment)
{
sendto_one(acptr, ":%s SAPART %s %s :%s", parv[0],
parv[1], parv[2], comment);
/* Logging function added by XeRXeS */
ircd_log(LOG_SACMDS,"SAPART: %s used SAPART to make %s part %s (%s)",
sptr->name, parv[1], parv[2], comment);
}
else
{
sendto_one(acptr, ":%s SAPART %s %s", parv[0], parv[1],
parv[2]);
/* Logging function added by XeRXeS */
ircd_log(LOG_SACMDS,"SAPART: %s used SAPART to make %s part %s",
sptr->name, parv[1], parv[2]);
}
}
return 0;
}
/*
** m_whois
** parv[0] = sender prefix
** parv[1] = nickname masklist
*/
DLLFUNC int m_whois(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
Membership *lp;
anUser *user;
aClient *acptr, *a2cptr;
aChannel *chptr;
char *nick, *tmp, *name;
char *p = NULL;
int found, len, mlen, cnt = 0;
char querybuf[BUFSIZE];
if (IsServer(sptr))
return 0;
if (parc < 2)
{
sendto_one(sptr, err_str(ERR_NONICKNAMEGIVEN),
me.name, parv[0]);
return 0;
}
if (parc > 2)
{
if (hunt_server(cptr, sptr, ":%s WHOIS %s :%s", 1, parc, parv) != HUNTED_ISME)
return 0;
parv[1] = parv[2];
}
strcpy(querybuf, parv[1]);
for (tmp = canonize(parv[1]); (nick = strtok_r(tmp, ",", &p)); tmp = NULL)
{
unsigned char invis, showchannel, member, wilds, hideoper; /* <- these are all boolean-alike */
if (++cnt > MAXTARGETS)
break;
found = 0;
/* We do not support "WHOIS *" */
wilds = (index(nick, '?') || index(nick, '*'));
if (wilds)
continue;
if ((acptr = find_client(nick, NULL)))
{
if (IsServer(acptr))
continue;
/*
* I'm always last :-) and acptr->next == NULL!!
*/
if (IsMe(acptr))
break;
/*
* 'Rules' established for sending a WHOIS reply:
* - only send replies about common or public channels
* the target user(s) are on;
*/
if (!IsPerson(acptr))
continue;
user = acptr->user;
name = (!*acptr->name) ? "?" : acptr->name;
invis = acptr != sptr && IsInvisible(acptr);
member = (user->channel) ? 1 : 0;
a2cptr = find_server_quick(user->server);
hideoper = 0;
if (IsHideOper(acptr) && (acptr != sptr) && !IsAnOper(sptr))
hideoper = 1;
if (IsWhois(acptr) && (sptr != acptr))
{
sendnotice(acptr,
"*** %s (%s@%s) did a /whois on you.",
sptr->name,
sptr->user->username, sptr->user->realhost);
}
sendto_one(sptr, rpl_str(RPL_WHOISUSER), me.name,
parv[0], name,
user->username,
IsHidden(acptr) ? user->virthost : user->realhost,
acptr->info);
if (IsOper(sptr) || acptr == sptr)
{
char sno[512];
strcpy(sno, get_sno_str(acptr));
/* send the target user's modes */
sendto_one(sptr, rpl_str(RPL_WHOISMODES),
me.name, parv[0], name,
get_mode_str(acptr), sno[1] == 0 ? "" : sno);
}
if ((acptr == sptr) || IsAnOper(sptr))
{
sendto_one(sptr, rpl_str(RPL_WHOISHOST),
me.name, parv[0], acptr->name,
(MyConnect(acptr) && strcmp(acptr->username, "unknown")) ? acptr->username : "******",
user->realhost, user->ip_str ? user->ip_str : "");
}
if (IsARegNick(acptr))
sendto_one(sptr, rpl_str(RPL_WHOISREGNICK), me.name, parv[0], name);
found = 1;
mlen = strlen(me.name) + strlen(parv[0]) + 10 + strlen(name);
for (len = 0, *buf = '\0', lp = user->channel; lp; lp = lp->next)
{
chptr = lp->chptr;
showchannel = 0;
if (ShowChannel(sptr, chptr))
showchannel = 1;
if (OPCanSeeSecret(sptr))
showchannel = 1;
if ((acptr->umodes & UMODE_HIDEWHOIS) && !IsMember(sptr, chptr) && !IsAnOper(sptr))
showchannel = 0;
if (IsServices(acptr) && !IsNetAdmin(sptr) && !IsSAdmin(sptr))
showchannel = 0;
if (acptr == sptr)
showchannel = 1;
/* Hey, if you are editting here... don't forget to change the webtv w_whois ;p. */
if (showchannel)
{
long access;
if (len + strlen(chptr->chname) > (size_t)BUFSIZE - 4 - mlen)
{
sendto_one(sptr,
":%s %d %s %s :%s",
me.name,
RPL_WHOISCHANNELS,
parv[0], name, buf);
*buf = '\0';
len = 0;
}
#ifdef SHOW_SECRET
if (IsAnOper(sptr)
#else
if (IsNetAdmin(sptr)
#endif
&& SecretChannel(chptr) && !IsMember(sptr, chptr))
*(buf + len++) = '?';
if (acptr->umodes & UMODE_HIDEWHOIS && !IsMember(sptr, chptr)
&& IsAnOper(sptr))
*(buf + len++) = '!';
access = get_access(acptr, chptr);
if (!SupportNAMESX(sptr))
{
#ifdef PREFIX_AQ
if (access & CHFL_CHANOWNER)
*(buf + len++) = '~';
else if (access & CHFL_CHANPROT)
*(buf + len++) = '&';
else
#endif
if (access & CHFL_CHANOP)
*(buf + len++) = '@';
else if (access & CHFL_HALFOP)
*(buf + len++) = '%';
else if (access & CHFL_VOICE)
*(buf + len++) = '+';
}
else
{
#ifdef PREFIX_AQ
if (access & CHFL_CHANOWNER)
*(buf + len++) = '~';
if (access & CHFL_CHANPROT)
*(buf + len++) = '&';
#endif
if (access & CHFL_CHANOP)
*(buf + len++) = '@';
if (access & CHFL_HALFOP)
*(buf + len++) = '%';
if (access & CHFL_VOICE)
*(buf + len++) = '+';
}
if (len)
*(buf + len) = '\0';
(void)strcpy(buf + len, chptr->chname);
len += strlen(chptr->chname);
(void)strcat(buf + len, " ");
len++;
}
}
if (buf[0] != '\0')
sendto_one(sptr, rpl_str(RPL_WHOISCHANNELS), me.name, parv[0], name, buf);
if (!(IsULine(acptr) && !IsOper(sptr) && HIDE_ULINES))
sendto_one(sptr, rpl_str(RPL_WHOISSERVER),
me.name, parv[0], name, user->server,
a2cptr ? a2cptr->info : "*Not On This Net*");
if (user->away)
sendto_one(sptr, rpl_str(RPL_AWAY), me.name,
parv[0], name, user->away);
/* makesure they aren't +H (we'll also check
before we display a helpop or IRCD Coder msg)
-- codemastr */
if ((IsAnOper(acptr) || IsServices(acptr)) && !hideoper)
{
buf[0] = '\0';
if (IsNetAdmin(acptr))
strlcat(buf, "a Network Administrator", sizeof buf);
else if (IsSAdmin(acptr))
strlcat(buf, "a Services Administrator", sizeof buf);
else if (IsAdmin(acptr) && !IsCoAdmin(acptr))
strlcat(buf, "a Server Administrator", sizeof buf);
else if (IsCoAdmin(acptr))
strlcat(buf, "a Co Administrator", sizeof buf);
else if (IsServices(acptr))
strlcat(buf, "a Network Service", sizeof buf);
else if (IsOper(acptr))
strlcat(buf, "an IRC Operator", sizeof buf);
else
strlcat(buf, "a Local IRC Operator", sizeof buf);
if (buf[0])
{
if (IsOper(sptr) && MyClient(acptr))
sendto_one(sptr,
":%s 313 %s %s :is %s (%s)", me.name,
parv[0], name, buf, acptr->user->operlogin);
else
sendto_one(sptr,
rpl_str(RPL_WHOISOPERATOR), me.name,
parv[0], name, buf);
}
}
if (IsHelpOp(acptr) && !hideoper && !user->away)
sendto_one(sptr, rpl_str(RPL_WHOISHELPOP), me.name, parv[0], name);
if (acptr->umodes & UMODE_BOT)
sendto_one(sptr, rpl_str(RPL_WHOISBOT), me.name, parv[0], name, ircnetwork);
if (acptr->umodes & UMODE_SECURE)
sendto_one(sptr, rpl_str(RPL_WHOISSECURE), me.name, parv[0], name,
"is using a Secure Connection");
if (!BadPtr(user->swhois) && !hideoper)
sendto_one(sptr, ":%s %d %s %s :%s",
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois);
/*
* display services account name if it's actually a services account name and
* not a legacy timestamp. --nenolod
*/
if (!isdigit(*user->svid))
sendto_one(sptr, rpl_str(RPL_WHOISLOGGEDIN), me.name, parv[0], name, user->svid);
/*
* Umode +I hides an oper's idle time from regular users.
* -Nath.
*/
if (MyConnect(acptr) && (IsAnOper(sptr) || !(acptr->umodes & UMODE_HIDLE)))
{
sendto_one(sptr, rpl_str(RPL_WHOISIDLE),
me.name, parv[0], name,
TStime() - acptr->last, acptr->firsttime);
}
}
if (!found)
sendto_one(sptr, err_str(ERR_NOSUCHNICK),
me.name, parv[0], nick);
}
sendto_one(sptr, rpl_str(RPL_ENDOFWHOIS), me.name, parv[0], querybuf);
return 0;
}
