/*
* Unreal Internet Relay Chat Daemon, src/s_extra.c
* (C) 1999-2000 Carsten Munk (Techie/Stskeeps) <stskeeps@tspre.org>
*
* See file AUTHORS in IRC package for additional names of
* the programmers.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 1, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include "struct.h"
#include "common.h"
#include "sys.h"
#include "numeric.h"
#include "msg.h"
#include "channel.h"
#include <time.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#ifdef _WIN32
#include <io.h>
#endif
#include <fcntl.h>
#include "h.h"
#include "proto.h"
ID_Copyright("(C) Carsten Munk 1999");
/* e->flag.type2:
* CONF_BAN_TYPE_AKILL banned by SVSFLINE ('global')
* CONF_BAN_TYPE_CONF banned by conf
* CONF_BAN_TYPE_TEMPORARY banned by /DCCDENY ('temporary')
* e->flag.type:
* DCCDENY_HARD Fully denied
* DCCDENY_SOFT Denied, but allowed to override via /DCCALLOW
*/
/* checks if the dcc is blacklisted.
*/
ConfigItem_deny_dcc *dcc_isforbidden(aClient *sptr, char *filename)
{
ConfigItem_deny_dcc *d;
ConfigItem_allow_dcc *a;
if (!conf_deny_dcc || !filename)
return NULL;
for (d = conf_deny_dcc; d; d = (ConfigItem_deny_dcc *) d->next)
{
if ((d->flag.type == DCCDENY_HARD) && !match(d->filename, filename))
{
for (a = conf_allow_dcc; a; a = (ConfigItem_allow_dcc *) a->next)
{
if ((a->flag.type == DCCDENY_HARD) && !match(a->filename, filename))
return NULL;
}
return d;
}
}
return NULL;
}
/* checks if the dcc is discouraged ('soft bans').
*/
ConfigItem_deny_dcc *dcc_isdiscouraged(aClient *sptr, char *filename)
{
ConfigItem_deny_dcc *d;
ConfigItem_allow_dcc *a;
if (!conf_deny_dcc || !filename)
return NULL;
for (d = conf_deny_dcc; d; d = (ConfigItem_deny_dcc *) d->next)
{
if ((d->flag.type == DCCDENY_SOFT) && !match(d->filename, filename))
{
for (a = conf_allow_dcc; a; a = (ConfigItem_allow_dcc *) a->next)
{
if ((a->flag.type == DCCDENY_SOFT) && !match(a->filename, filename))
return NULL;
}
return d;
}
}
return NULL;
}
void dcc_sync(aClient *sptr)
{
ConfigItem_deny_dcc *p;
for (p = conf_deny_dcc; p; p = (ConfigItem_deny_dcc *) p->next)
{
if (p->flag.type2 == CONF_BAN_TYPE_AKILL)
sendto_one(sptr, ":%s %s + %s :%s", me.name,
(IsToken(sptr) ? TOK_SVSFLINE : MSG_SVSFLINE),
p->filename, p->reason);
}
}
void DCCdeny_add(char *filename, char *reason, int type, int type2)
{
ConfigItem_deny_dcc *deny = NULL;
deny = (ConfigItem_deny_dcc *) MyMallocEx(sizeof(ConfigItem_deny_dcc));
deny->filename = strdup(filename);
deny->reason = strdup(reason);
deny->flag.type = type;
deny->flag.type2 = type2;
AddListItem(deny, conf_deny_dcc);
}
void DCCdeny_del(ConfigItem_deny_dcc *deny)
{
DelListItem(deny, conf_deny_dcc);
if (deny->filename)
MyFree(deny->filename);
if (deny->reason)
MyFree(deny->reason);
MyFree(deny);
}
void dcc_wipe_services(void)
{
ConfigItem_deny_dcc *dconf, *next;
for (dconf = conf_deny_dcc; dconf; dconf = (ConfigItem_deny_dcc *) next)
{
next = (ConfigItem_deny_dcc *)dconf->next;
if ((dconf->flag.type2 == CONF_BAN_TYPE_AKILL))
{
DelListItem(dconf, conf_deny_dcc);
if (dconf->filename)
MyFree(dconf->filename);
if (dconf->reason)
MyFree(dconf->reason);
MyFree(dconf);
}
}
}
/* The dccallow functions below are all taken from bahamut (1.8.1).
* Well, with some small modifications of course. -- Syzop
*/
int on_dccallow_list(aClient *to, aClient *from)
{
Link *lp;
for(lp = to->user->dccallow; lp; lp = lp->next)
if(lp->flags == DCC_LINK_ME && lp->value.cptr == from)
return 1;
return 0;
}
int add_dccallow(aClient *sptr, aClient *optr)
{
Link *lp;
int cnt = 0;
for (lp = sptr->user->dccallow; lp; lp = lp->next)
{
if (lp->flags != DCC_LINK_ME)
continue;
cnt++;
if (lp->value.cptr == optr)
return 0;
}
if (cnt >= MAXDCCALLOW)
{
sendto_one(sptr, err_str(ERR_TOOMANYDCC), me.name, sptr->name,
optr->name, MAXDCCALLOW);
return 0;
}
lp = make_link();
lp->value.cptr = optr;
lp->flags = DCC_LINK_ME;
lp->next = sptr->user->dccallow;
sptr->user->dccallow = lp;
lp = make_link();
lp->value.cptr = sptr;
lp->flags = DCC_LINK_REMOTE;
lp->next = optr->user->dccallow;
optr->user->dccallow = lp;
sendto_one(sptr, rpl_str(RPL_DCCSTATUS), me.name, sptr->name, optr->name, "added to");
return 0;
}
int del_dccallow(aClient *sptr, aClient *optr)
{
Link **lpp, *lp;
int found = 0;
for (lpp = &(sptr->user->dccallow); *lpp; lpp=&((*lpp)->next))
{
if ((*lpp)->flags != DCC_LINK_ME)
continue;
if ((*lpp)->value.cptr == optr)
{
lp = *lpp;
*lpp = lp->next;
free_link(lp);
found++;
break;
}
}
if (!found)
{
sendto_one(sptr, ":%s %d %s :%s is not in your DCC allow list",
me.name, RPL_DCCINFO, sptr->name, optr->name);
return 0;
}
for (found = 0, lpp = &(optr->user->dccallow); *lpp; lpp=&((*lpp)->next))
{
if ((*lpp)->flags != DCC_LINK_REMOTE)
continue;
if ((*lpp)->value.cptr == sptr)
{
lp = *lpp;
*lpp = lp->next;
free_link(lp);
found++;
break;
}
}
if (!found)
sendto_realops("[BUG!] %s was in dccallowme list of %s but not in dccallowrem list!",
optr->name, sptr->name);
sendto_one(sptr, rpl_str(RPL_DCCSTATUS), me.name, sptr->name, optr->name, "removed from");
return 0;
}
/* restrict channel stuff */
int channel_canjoin(aClient *sptr, char *name)
{
ConfigItem_deny_channel *p;
if (IsOper(sptr))
return 1;
if (IsULine(sptr))
return 1;
if (!conf_deny_channel)
return 1;
p = Find_channel_allowed(sptr, name);
if (p)
{
sendto_one(sptr, ":%s NOTICE %s :*** %s",
me.name, sptr->name, p->reason);
return 0;
}
return 1;
}
#ifndef _WIN32
extern uid_t irc_uid;
extern gid_t irc_gid;
#endif
/* irc logs.. */
void ircd_log(int flags, char *format, ...)
{
static int last_log_file_warning = 0;
va_list ap;
ConfigItem_log *logs;
char buf[2048], timebuf[128];
int fd;
struct stat fstats;
int written = 0, write_failure = 0;
va_start(ap, format);
ircvsprintf(buf, format, ap);
va_end(ap);
snprintf(timebuf, sizeof timebuf, "[%s] - ", myctime(TStime()));
RunHook3(HOOKTYPE_LOG, flags, timebuf, buf);
strlcat(buf, "\n", sizeof buf);
for (logs = conf_log; logs; logs = (ConfigItem_log *) logs->next) {
#ifdef HAVE_SYSLOG
if (!stricmp(logs->file, "syslog") && logs->flags & flags) {
syslog(LOG_INFO, "%s", buf);
written++;
continue;
}
#endif
if (logs->flags & flags)
{
if (stat(logs->file, &fstats) != -1 && logs->maxsize && fstats.st_size >= logs->maxsize)
{
#ifndef _WIN32
fd = open(logs->file, O_CREAT|O_WRONLY|O_TRUNC, S_IRUSR|S_IWUSR);
#else
fd = open(logs->file, O_CREAT|O_WRONLY|O_TRUNC, S_IREAD|S_IWRITE);
#endif
if (fd == -1)
continue;
write(fd, "Max file size reached, starting new log file\n", 45);
}
else {
#ifndef _WIN32
fd = open(logs->file, O_CREAT|O_APPEND|O_WRONLY, S_IRUSR|S_IWUSR);
#else
fd = open(logs->file, O_CREAT|O_APPEND|O_WRONLY, S_IREAD|S_IWRITE);
#endif
if (fd == -1)
{
if (!loop.ircd_booted)
{
config_status("WARNING: Unable to write to '%s': %s", logs->file, strerror(ERRNO));
} else {
if (last_log_file_warning + 300 < TStime())
{
config_status("WARNING: Unable to write to '%s': %s. This warning will not re-appear for at least 5 minutes.", logs->file, strerror(ERRNO));
last_log_file_warning = TStime();
}
}
write_failure = 1;
continue;
}
}
write(fd, timebuf, strlen(timebuf));
if (write(fd, buf, strlen(buf)) == strlen(buf))
{
written++;
}
else
{
if (!loop.ircd_booted)
{
config_status("WARNING: Unable to write to '%s': %s", logs->file, strerror(ERRNO));
} else {
if (last_log_file_warning + 300 < TStime())
{
config_status("WARNING: Unable to write to '%s': %s. This warning will not re-appear for at least 5 minutes.", logs->file, strerror(ERRNO));
last_log_file_warning = TStime();
}
}
write_failure = 1;
}
close(fd);
#if defined(IRC_USER) && defined(IRC_GROUP)
/* Change ownership of the log file to irc user/group so it can still write after the setuid() */
if (!loop.ircd_booted)
chown(logs->file, irc_uid, irc_gid);
#endif
}
}
/* If nothing got written at all AND we had a write failure AND we are booting, then exit.
* Note that we can't just fail when nothing got written, as we might have been called for
* 'tkl' for example, which might not be in our log block.
*/
if (!written && write_failure && !loop.ircd_booted)
{
config_status("ERROR: Unable to write to any log file. Please check your log { } blocks and file permissions!");
#ifdef _WIN32
win_error();
#endif
exit(9);
}
}
