* 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.
+ *
+ * $Id$
*/
+#include "config.h"
-#include "sys.h"
-#if HAVE_SYS_FILE_H
-#include <sys/file.h>
-#endif
-#include <sys/stat.h>
-#include <pwd.h>
-#include <signal.h>
-#if HAVE_FCNTL_H
-#include <fcntl.h>
-#endif
-#ifdef HPUX
-#define _KERNEL
-#endif
-#include <sys/resource.h>
-#ifdef HPUX
-#undef _KERNEL
-#endif
-#if HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-#include <stdlib.h>
-#include <stdio.h>
-#ifdef USE_SYSLOG
-#include <syslog.h>
-#endif
-#ifdef CHROOTDIR
-#include <netinet/in.h>
-#include <arpa/nameser.h>
-#include <resolv.h>
-#endif
-#ifdef VIRTUAL_HOST
-#include <sys/socket.h> /* Needed for AF_INET on some OS */
-#endif
-#include "h.h"
-#include "res.h"
-#include "struct.h"
-#include "s_serv.h"
-#include "send.h"
#include "ircd.h"
-#include "s_conf.h"
+#include "IPcheck.h"
#include "class.h"
-#include "s_misc.h"
-#include "parse.h"
+#include "client.h"
+#include "crule.h"
+#include "hash.h"
+#include "ircd_alloc.h"
+#include "ircd_events.h"
+#include "ircd_features.h"
+#include "ircd_log.h"
+#include "ircd_reply.h"
+#include "ircd_signal.h"
+#include "ircd_string.h"
+#include "jupe.h"
+#include "list.h"
#include "match.h"
+#include "motd.h"
+#include "msg.h"
+#include "numeric.h"
+#include "numnicks.h"
+#include "parse.h"
+#include "res.h"
+#include "s_auth.h"
#include "s_bsd.h"
-#include "crule.h"
+#include "s_conf.h"
+#include "s_debug.h"
+#include "s_misc.h"
+#include "send.h"
+#include "sys.h"
+#include "uping.h"
#include "userload.h"
-#include "numeric.h"
-#include "hash.h"
-#include "bsd.h"
#include "version.h"
#include "whowas.h"
-#include "numnicks.h"
-RCSTAG_CC("$Id$");
+#include <assert.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <netdb.h>
+#include <pwd.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/socket.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <unistd.h>
-extern void init_counters(void);
-aClient me; /* That's me */
-aClient *client = &me; /* Pointer to beginning of Client list */
-time_t TSoffset = 0; /* Global variable; Offset of timestamps to
- system clock */
-
-char **myargv;
-unsigned short int portnum = 0; /* Server port number, listening this */
-char *configfile = CPATH; /* Server configuration file */
-int debuglevel = -1; /* Server debug level */
-unsigned int bootopt = 0; /* Server boot option flags */
-char *debugmode = ""; /* -"- -"- -"- */
-int dorehash = 0;
-int restartFlag = 0;
-static char *dpath = DPATH;
-
-time_t nextconnect = 1; /* time for next try_connections call */
-time_t nextping = 1; /* same as above for check_pings() */
-time_t nextdnscheck = 0; /* next time to poll dns to force timeouts */
-time_t nextexpire = 1; /* next expire run on the dns cache */
-
-time_t now; /* Updated every time we leave select(),
- and used everywhere else */
-
-#ifdef PROFIL
-extern etext(void);
-
-RETSIGTYPE s_monitor(HANDLER_ARG(int UNUSED(sig)))
-{
- static int mon = 0;
-#ifdef POSIX_SIGNALS
- struct sigaction act;
-#endif
- moncontrol(mon);
- mon = 1 - mon;
-#ifdef POSIX_SIGNALS
- act.sa_handler = s_rehash;
- act.sa_flags = 0;
- sigemptyset(&act.sa_mask);
- sigaddset(&act.sa_mask, SIGUSR1);
- sigaction(SIGUSR1, &act, NULL);
-#else
- signal(SIGUSR1, s_monitor);
-#endif
+/*----------------------------------------------------------------------------
+ * External stuff
+ *--------------------------------------------------------------------------*/
+extern void init_counters(void);
+
+/*----------------------------------------------------------------------------
+ * Constants / Enums
+ *--------------------------------------------------------------------------*/
+enum {
+ BOOT_DEBUG = 1,
+ BOOT_TTY = 2
+};
+
+
+/*----------------------------------------------------------------------------
+ * Global data (YUCK!)
+ *--------------------------------------------------------------------------*/
+struct Client me; /* That's me */
+struct Connection me_con; /* That's me too */
+struct Client *GlobalClientList = &me; /* Pointer to beginning of
+ Client list */
+time_t TSoffset = 0;/* Offset of timestamps to system clock */
+int GlobalRehashFlag = 0; /* do a rehash if set */
+int GlobalRestartFlag = 0; /* do a restart if set */
+time_t CurrentTime; /* Updated every time we leave select() */
+
+char *configfile = CPATH; /* Server configuration file */
+int debuglevel = -1; /* Server debug level */
+char *debugmode = ""; /* Server debug level */
+static char *dpath = DPATH;
+
+static struct Timer connect_timer; /* timer structure for try_connections() */
+static struct Timer ping_timer; /* timer structure for check_pings() */
+
+static struct Daemon thisServer = { 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0 };
+
+int running = 1;
+
+
+/*----------------------------------------------------------------------------
+ * API: server_die
+ *--------------------------------------------------------------------------*/
+void server_die(const char* message) {
+ /* log_write will send out message to both log file and as server notice */
+ log_write(LS_SYSTEM, L_CRIT, 0, "Server terminating: %s", message);
+ flush_connections(0);
+ close_connections(1);
+ running = 0;
}
-#endif
-RETSIGTYPE s_die(HANDLER_ARG(int UNUSED(sig)))
-{
-#ifdef USE_SYSLOG
- syslog(LOG_CRIT, "Server Killed By SIGTERM");
-#endif
- flush_connections(me.fd);
- exit(-1);
-}
+/*----------------------------------------------------------------------------
+ * API: server_restart
+ *--------------------------------------------------------------------------*/
+void server_restart(const char* message) {
+ static int restarting = 0;
-static RETSIGTYPE s_rehash(HANDLER_ARG(int UNUSED(sig)))
-{
-#ifdef POSIX_SIGNALS
- struct sigaction act;
-#endif
- dorehash = 1;
-#ifdef POSIX_SIGNALS
- act.sa_handler = s_rehash;
- act.sa_flags = 0;
- sigemptyset(&act.sa_mask);
- sigaddset(&act.sa_mask, SIGHUP);
- sigaction(SIGHUP, &act, NULL);
-#else
- signal(SIGHUP, s_rehash); /* sysV -argv */
-#endif
-}
+ /* inhibit sending any server notices; we may be in a loop */
+ log_write(LS_SYSTEM, L_WARNING, LOG_NOSNOTICE, "Restarting Server: %s",
+ message);
+ if (restarting++) /* increment restarting to prevent looping */
+ return;
-#ifdef USE_SYSLOG
-void restart(char *mesg)
-#else
-void restart(char *UNUSED(mesg))
-#endif
-{
-#ifdef USE_SYSLOG
- syslog(LOG_WARNING, "Restarting Server because: %s", mesg);
-#endif
- server_reboot();
+ sendto_opmask_butone(0, SNO_OLDSNO, "Restarting server: %s", message);
+ Debug((DEBUG_NOTICE, "Restarting server..."));
+ flush_connections(0);
+
+ log_close();
+
+ close_connections(!(thisServer.bootopt & (BOOT_TTY | BOOT_DEBUG)));
+
+ execv(SPATH, thisServer.argv);
+
+ /* Have to reopen since it has been closed above */
+ log_reopen();
+
+ log_write(LS_SYSTEM, L_CRIT, 0, "execv(%s,%s) failed: %m", SPATH,
+ *thisServer.argv);
+
+ Debug((DEBUG_FATAL, "Couldn't restart server \"%s\": %s",
+ SPATH, (strerror(errno)) ? strerror(errno) : ""));
+ exit(8);
}
-RETSIGTYPE s_restart(HANDLER_ARG(int UNUSED(sig)))
-{
- restartFlag = 1;
+
+/*----------------------------------------------------------------------------
+ * outofmemory: Handler for out of memory conditions...
+ *--------------------------------------------------------------------------*/
+static void outofmemory(void) {
+ Debug((DEBUG_FATAL, "Out of memory: restarting server..."));
+ server_restart("Out of Memory");
+}
+
+
+/*----------------------------------------------------------------------------
+ * write_pidfile
+ *--------------------------------------------------------------------------*/
+static void write_pidfile(void) {
+ char buff[20];
+
+ if (thisServer.pid_fd >= 0) {
+ memset(buff, 0, sizeof(buff));
+ sprintf(buff, "%5d\n", (int)getpid());
+ if (write(thisServer.pid_fd, buff, strlen(buff)) == -1)
+ Debug((DEBUG_NOTICE, "Error writing to pid file %s: %m",
+ feature_str(FEAT_PPATH)));
+ return;
+ }
+ Debug((DEBUG_NOTICE, "Error opening pid file %s: %m",
+ feature_str(FEAT_PPATH)));
}
-void server_reboot(void)
+/* check_pid
+ *
+ * inputs:
+ * none
+ * returns:
+ * true - if the pid file exists (and is readable), and the pid refered
+ * to in the file is still running.
+ * false - otherwise.
+ */
+static int check_pid(void)
{
- Reg1 int i;
+ struct flock lock;
- sendto_ops("Aieeeee!!! Restarting server...");
- Debug((DEBUG_NOTICE, "Restarting server..."));
- flush_connections(me.fd);
- /*
- * fd 0 must be 'preserved' if either the -d or -i options have
- * been passed to us before restarting.
- */
-#ifdef USE_SYSLOG
- closelog();
-#endif
- for (i = 3; i < MAXCONNECTIONS; i++)
- close(i);
- if (!(bootopt & (BOOT_TTY | BOOT_DEBUG)))
- close(2);
- close(1);
- if ((bootopt & BOOT_CONSOLE) || isatty(0))
- close(0);
- if (!(bootopt & BOOT_INETD))
- execv(SPATH, myargv);
-#ifdef USE_SYSLOG
- /* Have to reopen since it has been closed above */
+ lock.l_type = F_WRLCK;
+ lock.l_start = 0;
+ lock.l_whence = SEEK_SET;
+ lock.l_len = 0;
- openlog(myargv[0], LOG_PID | LOG_NDELAY, LOG_FACILITY);
- syslog(LOG_CRIT, "execv(%s,%s) failed: %m\n", SPATH, myargv[0]);
- closelog();
-#endif
- Debug((DEBUG_FATAL, "Couldn't restart server \"%s\": %s",
- SPATH, strerror(errno)));
- exit(-1);
+ if ((thisServer.pid_fd = open(feature_str(FEAT_PPATH), O_CREAT | O_RDWR,
+ 0600)) >= 0)
+ return fcntl(thisServer.pid_fd, F_SETLK, &lock);
+
+ return 0;
}
+
-/*
+/*----------------------------------------------------------------------------
* try_connections
*
* Scan through configuration and try new connections.
* Returns the calendar time when the next call to this
* function should be made latest. (No harm done if this
* is called earlier or later...)
- */
-static time_t try_connections(void)
-{
- Reg1 aConfItem *aconf;
- Reg2 aClient *cptr;
- aConfItem **pconf;
- int connecting, confrq;
- time_t next = 0;
- aConfClass *cltmp;
- aConfItem *cconf, *con_conf = NULL;
- unsigned int con_class = 0;
+ *--------------------------------------------------------------------------*/
+static void try_connections(struct Event* ev) {
+ struct ConfItem* aconf;
+ struct Client* cptr;
+ struct ConfItem** pconf;
+ int connecting;
+ int confrq;
+ time_t next = 0;
+ struct ConnectionClass* cltmp;
+ struct ConfItem* con_conf = 0;
+ struct Jupe* ajupe;
+ unsigned int con_class = 0;
+
+ assert(ET_EXPIRE == ev_type(ev));
+ assert(0 != ev_timer(ev));
connecting = FALSE;
- Debug((DEBUG_NOTICE, "Connection check at : %s", myctime(now)));
- for (aconf = conf; aconf; aconf = aconf->next)
- {
+ Debug((DEBUG_NOTICE, "Connection check at : %s", myctime(CurrentTime)));
+ for (aconf = GlobalConfList; aconf; aconf = aconf->next) {
/* Also when already connecting! (update holdtimes) --SRB */
- if (!(aconf->status & CONF_CONNECT_SERVER) || aconf->port == 0)
+ if (!(aconf->status & CONF_SERVER) || aconf->port == 0)
continue;
- cltmp = aconf->confClass;
- /*
- * Skip this entry if the use of it is still on hold until
- * future. Otherwise handle this entry (and set it on hold
- * until next time). Will reset only hold times, if already
- * made one successfull connection... [this algorithm is
- * a bit fuzzy... -- msa >;) ]
- */
- if ((aconf->hold > now))
- {
- if ((next > aconf->hold) || (next == 0))
- next = aconf->hold;
+ /* Also skip juped servers */
+ if ((ajupe = jupe_find(aconf->name)) && JupeIsActive(ajupe))
+ continue;
+
+ /* Skip this entry if the use of it is still on hold until
+ * future. Otherwise handle this entry (and set it on hold until next
+ * time). Will reset only hold times, if already made one successfull
+ * connection... [this algorithm is a bit fuzzy... -- msa >;) ]
+ */
+ if (aconf->hold > CurrentTime && (next > aconf->hold || next == 0)) {
+ next = aconf->hold;
continue;
}
+ cltmp = aconf->conn_class;
confrq = get_con_freq(cltmp);
- aconf->hold = now + confrq;
- /*
- * Found a CONNECT config with port specified, scan clients
- * and see if this server is already connected?
+ aconf->hold = CurrentTime + confrq;
+
+ /* Found a CONNECT config with port specified, scan clients and see if
+ * this server is already connected?
*/
cptr = FindServer(aconf->name);
if (!cptr && (Links(cltmp) < MaxLinks(cltmp)) &&
- (!connecting || (ConClass(cltmp) > con_class)))
- {
- /* Check connect rules to see if we're allowed to try */
- for (cconf = conf; cconf; cconf = cconf->next)
- if ((cconf->status & CONF_CRULE) &&
- (match(cconf->host, aconf->name) == 0))
- if (crule_eval(cconf->passwd))
- break;
- if (!cconf)
- {
- con_class = ConClass(cltmp);
- con_conf = aconf;
- /* We connect only one at time... */
- connecting = TRUE;
+ (!connecting || (ConClass(cltmp) > con_class))) {
+ /*
+ * Check connect rules to see if we're allowed to try
+ */
+ if (0 == conf_eval_crule(aconf->name, CRULE_MASK)) {
+ con_class = ConClass(cltmp);
+ con_conf = aconf;
+ /* We connect only one at time... */
+ connecting = TRUE;
}
}
if ((next > aconf->hold) || (next == 0))
next = aconf->hold;
}
- if (connecting)
- {
- if (con_conf->next) /* are we already last? */
- {
+ if (connecting) {
+ if (con_conf->next) { /* are we already last? */
/* Put the current one at the end and make sure we try all connections */
- for (pconf = &conf; (aconf = *pconf); pconf = &(aconf->next))
- if (aconf == con_conf)
- *pconf = aconf->next;
+ for (pconf = &GlobalConfList; (aconf = *pconf); pconf = &(aconf->next))
+ if (aconf == con_conf)
+ *pconf = aconf->next;
(*pconf = con_conf)->next = 0;
}
- if (connect_server(con_conf, (aClient *)NULL, (struct hostent *)NULL) == 0)
- sendto_ops("Connection to %s[%s] activated.",
- con_conf->name, con_conf->host);
+
+ if (connect_server(con_conf, 0, 0))
+ sendto_opmask_butone(0, SNO_OLDSNO, "Connection to %s activated.",
+ con_conf->name);
}
+
+ if (next == 0)
+ next = CurrentTime + feature_int(FEAT_CONNECTFREQUENCY);
+
Debug((DEBUG_NOTICE, "Next connection check : %s", myctime(next)));
- return (next);
+
+ timer_add(&connect_timer, try_connections, 0, TT_ABSOLUTE, next);
}
-static time_t check_pings(void)
-{
- Reg1 aClient *cptr;
- int ping = 0, i, rflag = 0;
- time_t oldest = 0, timeout;
- for (i = 0; i <= highest_fd; i++)
- {
- if (!(cptr = loc_clients[i]) || IsMe(cptr) || IsLog(cptr) || IsPing(cptr))
+/*----------------------------------------------------------------------------
+ * check_pings
+ *
+ * TODO: This should be moved out of ircd.c. It's protocol-specific when you
+ * get right down to it. Can't really be done until the server is more
+ * modular, however...
+ *--------------------------------------------------------------------------*/
+static void check_pings(struct Event* ev) {
+ int expire = 0;
+ int next_check = CurrentTime;
+ int max_ping = 0;
+ int i;
+
+ assert(ET_EXPIRE == ev_type(ev));
+ assert(0 != ev_timer(ev));
+
+ next_check += feature_int(FEAT_PINGFREQUENCY);
+
+ /* Scan through the client table */
+ for (i=0; i <= HighestFd; i++) {
+ struct Client *cptr = LocalClientArray[i];
+
+ if (!cptr)
continue;
+
+ assert(&me != cptr); /* I should never be in the local client array! */
+
- /*
- * Note: No need to notify opers here.
- * It's already done when "FLAGS_DEADSOCKET" is set.
- */
- if (IsDead(cptr))
- {
- exit_client(cptr, cptr, &me, LastDeadComment(cptr));
+ /* Remove dead clients. */
+ if (IsDead(cptr)) {
+ exit_client(cptr, cptr, &me, cli_info(cptr));
continue;
}
-#if defined(R_LINES) && defined(R_LINES_OFTEN)
- rflag = IsUser(cptr) ? find_restrict(cptr) : 0;
-#endif
- ping = IsRegistered(cptr) ? get_client_ping(cptr) : CONNECTTIMEOUT;
- Debug((DEBUG_DEBUG, "c(%s)=%d p %d r %d a %d",
- cptr->name, cptr->status, ping, rflag, (int)(now - cptr->lasttime)));
- /*
- * Ok, so goto's are ugly and can be avoided here but this code
- * is already indented enough so I think its justified. -avalon
+ max_ping = IsRegistered(cptr) ? client_get_ping(cptr) :
+ feature_int(FEAT_CONNECTTIMEOUT);
+
+ Debug((DEBUG_DEBUG, "check_pings(%s)=status:%s limit: %d current: %d",
+ cli_name(cptr),
+ (cli_flags(cptr) & FLAGS_PINGSENT) ? "[Ping Sent]" : "[]",
+ max_ping, (int)(CurrentTime - cli_lasttime(cptr))));
+
+
+ /* Ok, the thing that will happen most frequently, is that someone will
+ * have sent something recently. Cover this first for speed.
*/
- if (!rflag && IsRegistered(cptr) && (ping >= now - cptr->lasttime))
- goto ping_timeout;
- /*
- * If the server hasnt talked to us in 2*ping seconds
- * and it has a ping time, then close its connection.
- * If the client is a user and a KILL line was found
- * to be active, close this connection too.
- */
- if (rflag ||
- ((now - cptr->lasttime) >= (2 * ping) &&
- (cptr->flags & FLAGS_PINGSENT)) ||
- (!IsRegistered(cptr) && !IsHandshake(cptr) &&
- (now - cptr->firsttime) >= ping))
- {
- if (!IsRegistered(cptr) && (DoingDNS(cptr) || DoingAuth(cptr)))
- {
- Debug((DEBUG_NOTICE, "%s/%s timeout %s", DoingDNS(cptr) ? "DNS" : "",
- DoingAuth(cptr) ? "AUTH" : "", get_client_name(cptr, TRUE)));
- if (cptr->authfd >= 0)
- {
- close(cptr->authfd);
- cptr->authfd = -1;
- cptr->count = 0;
- *cptr->buffer = '\0';
- }
- del_queries((char *)cptr);
- ClearAuth(cptr);
- ClearDNS(cptr);
- SetAccess(cptr);
- cptr->firsttime = now;
- cptr->lasttime = now;
- continue;
- }
+ if (CurrentTime-cli_lasttime(cptr) < max_ping) {
+ expire = cli_lasttime(cptr) + max_ping;
+ if (expire < next_check)
+ next_check = expire;
+ continue;
+ }
+
+ /* Quit the client after max_ping*2 - they should have answered by now */
+ if (CurrentTime-cli_lasttime(cptr) >= (max_ping*2) ) {
+ /* If it was a server, then tell ops about it. */
if (IsServer(cptr) || IsConnecting(cptr) || IsHandshake(cptr))
- {
- sendto_ops("No response from %s, closing link",
- get_client_name(cptr, FALSE));
- exit_client(cptr, cptr, &me, "Ping timeout");
- continue;
- }
- /*
- * This is used for KILL lines with time restrictions
- * on them - send a messgae to the user being killed first.
+ sendto_opmask_butone(0, SNO_OLDSNO,
+ "No response from %s, closing link",
+ cli_name(cptr));
+ exit_client_msg(cptr, cptr, &me, "Ping timeout");
+ continue;
+ }
+
+ /* Unregistered clients pingout after max_ping seconds, they don't
+ * get given a second chance - if they were then people could not quite
+ * finish registration and hold resources without being subject to k/g
+ * lines
+ */
+ if (!IsRegistered(cptr)) {
+ /* Display message if they have sent a NICK and a USER but no
+ * nospoof PONG.
*/
-#if defined(R_LINES) && defined(R_LINES_OFTEN)
- else if (IsUser(cptr) && rflag)
- {
- sendto_ops("Restricting %s, closing link.",
- get_client_name(cptr, FALSE));
- exit_client(cptr, cptr, &me, "R-lined");
- }
-#endif
- else
- {
- if (!IsRegistered(cptr) && *cptr->name && *cptr->user->username)
- {
- sendto_one(cptr,
- ":%s %d %s :Your client may not be compatible with this server.",
- me.name, ERR_BADPING, cptr->name);
- sendto_one(cptr,
- ":%s %d %s :Compatible clients are available at "
- "ftp://ftp.undernet.org/pub/irc/clients",
- me.name, ERR_BADPING, cptr->name);
- }
- exit_client_msg(cptr, cptr, &me, "Ping timeout for %s",
- get_client_name(cptr, FALSE));
- }
+ if (*(cli_name(cptr)) && cli_user(cptr) && *(cli_user(cptr))->username) {
+ send_reply(cptr, SND_EXPLICIT | ERR_BADPING,
+ ":Your client may not be compatible with this server.");
+ send_reply(cptr, SND_EXPLICIT | ERR_BADPING,
+ ":Compatible clients are available at "
+ "ftp://ftp.undernet.org/pub/irc/clients");
+ }
+ exit_client_msg(cptr,cptr,&me, "Ping Timeout");
continue;
}
- else if (IsRegistered(cptr) && (cptr->flags & FLAGS_PINGSENT) == 0)
- {
- /*
- * If we havent PINGed the connection and we havent
- * heard from it in a while, PING it to make sure
- * it is still alive.
+
+ if (!(cli_flags(cptr) & FLAGS_PINGSENT)) {
+ /* If we havent PINGed the connection and we havent heard from it in a
+ * while, PING it to make sure it is still alive.
*/
- cptr->flags |= FLAGS_PINGSENT;
- /* not nice but does the job */
- cptr->lasttime = now - ping;
+ cli_flags(cptr) |= FLAGS_PINGSENT;
+
+ /* If we're late in noticing don't hold it against them :) */
+ cli_lasttime(cptr) = CurrentTime - max_ping;
+
if (IsUser(cptr))
- sendto_one(cptr, "PING :%s", me.name);
+ sendrawto_one(cptr, MSG_PING " :%s", cli_name(&me));
else
- sendto_one(cptr, ":%s PING :%s", me.name, me.name);
+ sendcmdto_one(&me, CMD_PING, cptr, ":%s", cli_name(&me));
}
- ping_timeout:
- timeout = cptr->lasttime + ping;
- while (timeout <= now)
- timeout += ping;
- if (timeout < oldest || !oldest)
- oldest = timeout;
+
+ expire = cli_lasttime(cptr) + max_ping * 2;
+ if (expire < next_check)
+ next_check=expire;
}
- if (!oldest || oldest < now)
- oldest = now + PINGFREQUENCY;
- Debug((DEBUG_NOTICE,
- "Next check_ping() call at: %s, %d " TIME_T_FMT " " TIME_T_FMT,
- myctime(oldest), ping, oldest, now));
-
- return (oldest);
+
+ assert(next_check >= CurrentTime);
+
+ Debug((DEBUG_DEBUG, "[%i] check_pings() again in %is",
+ CurrentTime, next_check-CurrentTime));
+
+ timer_add(&ping_timer, check_pings, 0, TT_ABSOLUTE, next_check);
}
-/*
- * bad_command
- *
- * This is called when the commandline is not acceptable.
- * Give error message and exit without starting anything.
- */
-static int bad_command(void)
-{
- printf("Usage: ircd %s[-h servername] [-p portnumber] [-x loglevel] [-t]\n",
-#ifdef CMDLINE_CONFIG
- "[-f config] "
-#else
- ""
-#endif
- );
- printf("Server not started\n\n");
- return (-1);
-}
-static void setup_signals(void)
-{
-#ifdef POSIX_SIGNALS
- struct sigaction act;
-
- act.sa_handler = SIG_IGN;
- act.sa_flags = 0;
- sigemptyset(&act.sa_mask);
- sigaddset(&act.sa_mask, SIGPIPE);
- sigaddset(&act.sa_mask, SIGALRM);
-#ifdef SIGWINCH
- sigaddset(&act.sa_mask, SIGWINCH);
- sigaction(SIGWINCH, &act, NULL);
-#endif
- sigaction(SIGPIPE, &act, NULL);
- act.sa_handler = dummy;
- sigaction(SIGALRM, &act, NULL);
- act.sa_handler = s_rehash;
- sigemptyset(&act.sa_mask);
- sigaddset(&act.sa_mask, SIGHUP);
- sigaction(SIGHUP, &act, NULL);
- act.sa_handler = s_restart;
- sigaddset(&act.sa_mask, SIGINT);
- sigaction(SIGINT, &act, NULL);
- act.sa_handler = s_die;
- sigaddset(&act.sa_mask, SIGTERM);
- sigaction(SIGTERM, &act, NULL);
-
-#else
-#ifndef HAVE_RELIABLE_SIGNALS
- signal(SIGPIPE, dummy);
-#ifdef SIGWINCH
- signal(SIGWINCH, dummy);
-#endif
-#else
-#ifdef SIGWINCH
- signal(SIGWINCH, SIG_IGN);
-#endif
- signal(SIGPIPE, SIG_IGN);
-#endif
- signal(SIGALRM, dummy);
- signal(SIGHUP, s_rehash);
- signal(SIGTERM, s_die);
- signal(SIGINT, s_restart);
-#endif
+/*----------------------------------------------------------------------------
+ * parse_command_line
+ * Side Effects: changes GLOBALS me, thisServer, dpath, configfile, debuglevel
+ * debugmode
+ *--------------------------------------------------------------------------*/
+static void parse_command_line(int argc, char** argv) {
+ const char *options = "d:f:h:ntvx:";
+ int opt;
-#ifdef HAVE_RESTARTABLE_SYSCALLS
- /*
- * At least on Apollo sr10.1 it seems continuing system calls
- * after signal is the default. The following 'siginterrupt'
- * should change that default to interrupting calls.
+ if (thisServer.euid != thisServer.uid)
+ setuid(thisServer.uid);
+
+ /* Do we really need to santiy check the non-NULLness of optarg? That's
+ * getopt()'s job... Removing those... -zs
*/
- siginterrupt(SIGALRM, 1);
-#endif
+ while ((opt = getopt(argc, argv, options)) != EOF)
+ switch (opt) {
+ case 'n':
+ case 't': thisServer.bootopt |= BOOT_TTY; break;
+ case 'd': dpath = optarg; break;
+ case 'f': configfile = optarg; break;
+ case 'h': ircd_strncpy(cli_name(&me), optarg, HOSTLEN); break;
+ case 'v': printf("ircd %s\n", version); exit(0);
+
+ case 'x':
+ debuglevel = atoi(optarg);
+ if (debuglevel < 0)
+ debuglevel = 0;
+ debugmode = optarg;
+ thisServer.bootopt |= BOOT_DEBUG;
+ break;
+
+ default:
+ printf("Usage: ircd [-f config] [-h servername] [-x loglevel] [-ntv]\n");
+ printf("\n -n -t\t Don't detach\n -v\t display version\n\n");
+ printf("Server not started.\n");
+ exit(1);
+ }
}
-/*
- * open_debugfile
- *
- * If the -t option is not given on the command line when the server is
- * started, all debugging output is sent to the file set by LPATH in config.h
- * Here we just open that file and make sure it is opened to fd 2 so that
- * any fprintf's to stderr also goto the logfile. If the debuglevel is not
- * set from the command line by -x, use /dev/null as the dummy logfile as long
- * as DEBUGMODE has been defined, else dont waste the fd.
- */
-static void open_debugfile(void)
-{
-#ifdef DEBUGMODE
- int fd;
- aClient *cptr;
- if (debuglevel >= 0)
- {
- cptr = make_client(NULL, STAT_LOG);
- cptr->fd = 2;
- cptr->port = debuglevel;
- cptr->flags = 0;
- cptr->acpt = cptr;
- loc_clients[2] = cptr;
- strcpy(cptr->sockhost, me.sockhost);
-
- printf("isatty = %d ttyname = %#x\n", isatty(2), (unsigned int)ttyname(2));
- if (!(bootopt & BOOT_TTY)) /* leave debugging output on fd 2 */
- {
- if ((fd = creat(LOGFILE, 0600)) < 0)
- if ((fd = open("/dev/null", O_WRONLY)) < 0)
- exit(-1);
- if (fd != 2)
- {
- dup2(fd, 2);
- close(fd);
- }
- strncpy(cptr->name, LOGFILE, sizeof(cptr->name));
- cptr->name[sizeof(cptr->name) - 1] = 0;
- }
- else if (isatty(2) && ttyname(2))
- {
- strncpy(cptr->name, ttyname(2), sizeof(cptr->name));
- cptr->name[sizeof(cptr->name) - 1] = 0;
- }
- else
- strcpy(cptr->name, "FD2-Pipe");
- Debug((DEBUG_FATAL, "Debug: File <%s> Level: %u at %s",
- cptr->name, cptr->port, myctime(now)));
- }
- else
- loc_clients[2] = NULL;
-#endif
- return;
-}
+/*----------------------------------------------------------------------------
+ * daemon_init
+ *--------------------------------------------------------------------------*/
+static void daemon_init(int no_fork) {
+ if (!init_connection_limits())
+ exit(9);
-int main(int argc, char *argv[])
-{
- unsigned short int portarg = 0;
- uid_t uid;
- uid_t euid;
- time_t delay = 0;
-#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_CORE)
- struct rlimit corelim;
-#endif
+ close_connections(!(thisServer.bootopt & (BOOT_DEBUG | BOOT_TTY)));
- uid = getuid();
- euid = geteuid();
- now = time(NULL);
-#ifdef PROFIL
- monstartup(0, etext);
- moncontrol(1);
- signal(SIGUSR1, s_monitor);
-#endif
+ if (no_fork)
+ return;
-#ifdef CHROOTDIR
- if (chdir(DPATH))
- {
- fprintf(stderr, "Fail: Cannot chdir(%s): %s\n", DPATH, strerror(errno));
- exit(-1);
- }
- res_init();
- if (chroot(DPATH))
+ if (fork())
+ exit(0);
+
+#ifdef TIOCNOTTY
{
- fprintf(stderr, "Fail: Cannot chroot(%s): %s\n", DPATH, strerror(errno));
- exit(5);
+ int fd;
+ if ((fd = open("/dev/tty", O_RDWR)) > -1) {
+ ioctl(fd, TIOCNOTTY, 0);
+ close(fd);
+ }
}
- dpath = "/";
-#endif /*CHROOTDIR */
-
- myargv = argv;
- umask(077); /* better safe than sorry --SRB */
- memset(&me, 0, sizeof(me));
-#ifdef VIRTUAL_HOST
- memset(&vserv, 0, sizeof(vserv));
#endif
- setup_signals();
- initload();
+ setsid();
+}
+
+/*----------------------------------------------------------------------------
+ * check_file_access: random helper function to make sure that a file is
+ * accessible in a certain way, and complain if not.
+ *--------------------------------------------------------------------------*/
+static char check_file_access(const char *path, char which, int mode) {
+ if (!access(path, mode))
+ return 1;
+
+ fprintf(stderr,
+ "Check on %cPATH (%s) failed: %s\n"
+ "Please create file and/or rerun `make config' and "
+ "recompile to correct this.\n",
+ which, path, strerror(errno));
+
+ return 0;
+}
+
+/*----------------------------------------------------------------------------
+ * set_core_limit
+ *--------------------------------------------------------------------------*/
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_CORE)
- if (getrlimit(RLIMIT_CORE, &corelim))
- {
+static void set_core_limit(void) {
+ struct rlimit corelim;
+
+ if (getrlimit(RLIMIT_CORE, &corelim)) {
fprintf(stderr, "Read of rlimit core size failed: %s\n", strerror(errno));
- corelim.rlim_max = RLIM_INFINITY; /* Try to recover */
+ corelim.rlim_max = RLIM_INFINITY; /* Try to recover */
}
+
corelim.rlim_cur = corelim.rlim_max;
if (setrlimit(RLIMIT_CORE, &corelim))
fprintf(stderr, "Setting rlimit core size failed: %s\n", strerror(errno));
+}
#endif
- /*
- * All command line parameters have the syntax "-fstring"
- * or "-f string" (e.g. the space is optional). String may
- * be empty. Flag characters cannot be concatenated (like
- * "-fxyz"), it would conflict with the form "-fstring".
- */
- while (--argc > 0 && (*++argv)[0] == '-')
- {
- char *p = argv[0] + 1;
- int flag = *p++;
-
- if (flag == '\0' || *p == '\0')
- {
- if (argc > 1 && argv[1][0] != '-')
- {
- p = *++argv;
- argc -= 1;
- }
- else
- p = "";
- }
- switch (flag)
- {
- case 'a':
- bootopt |= BOOT_AUTODIE;
- break;
- case 'c':
- bootopt |= BOOT_CONSOLE;
- break;
- case 'q':
- bootopt |= BOOT_QUICK;
- break;
- case 'd':
- if (euid != uid)
- setuid((uid_t) uid);
- dpath = p;
- break;
-#ifdef CMDLINE_CONFIG
- case 'f':
- if (euid != uid)
- setuid((uid_t) uid);
- configfile = p;
- break;
-#endif
- case 'h':
- strncpy(me.name, p, sizeof(me.name));
- me.name[sizeof(me.name) - 1] = 0;
- break;
- case 'i':
- bootopt |= BOOT_INETD | BOOT_AUTODIE;
- break;
- case 'p':
- if ((portarg = atoi(p)) > 0)
- portnum = portarg;
- break;
- case 't':
- if (euid != uid)
- setuid((uid_t) uid);
- bootopt |= BOOT_TTY;
- break;
- case 'v':
- printf("ircd %s\n", version);
- exit(0);
-#ifdef VIRTUAL_HOST
- case 'w':
- {
- struct hostent *hep;
- if (!(hep = gethostbyname(p)))
- {
- fprintf(stderr, "%s: Error creating virtual host \"%s\": %d",
- argv[0], p, h_errno);
- return -1;
- }
- if (hep->h_addrtype == AF_INET && hep->h_addr_list[0] &&
- !hep->h_addr_list[1])
- {
- memcpy(&vserv.sin_addr, hep->h_addr_list[0], sizeof(struct in_addr));
- vserv.sin_family = AF_INET;
- }
- else
- {
- fprintf(stderr, "%s: Error creating virtual host \"%s\": "
- "Use -w <IP-number of interface>\n", argv[0], p);
- return -1;
- }
- break;
- }
-#endif
- case 'x':
-#ifdef DEBUGMODE
- if (euid != uid)
- setuid((uid_t) uid);
- debuglevel = atoi(p);
- debugmode = *p ? p : "0";
- bootopt |= BOOT_DEBUG;
- break;
-#else
- fprintf(stderr, "%s: DEBUGMODE must be defined for -x y\n", myargv[0]);
- exit(0);
-#endif
- default:
- bad_command();
- break;
- }
- }
- if (chdir(dpath))
- {
- fprintf(stderr, "Fail: Cannot chdir(%s): %s\n", dpath, strerror(errno));
- exit(-1);
+/*----------------------------------------------------------------------------
+ * set_userid_if_needed()
+ *--------------------------------------------------------------------------*/
+static int set_userid_if_needed(void) {
+ if (getuid() == 0 || geteuid() == 0 ||
+ getgid() == 0 || getegid() == 0) {
+ fprintf(stderr, "ERROR: This server will not run as superuser.\n");
+ return 0;
}
-#ifndef IRC_UID
- if ((uid != euid) && !euid)
- {
- fprintf(stderr,
- "ERROR: do not run ircd setuid root. Make it setuid a normal user.\n");
- exit(-1);
- }
-#endif
+ return 1;
+}
-#if !defined(CHROOTDIR) || (defined(IRC_UID) && defined(IRC_GID))
-#ifndef _AIX
- if (euid != uid)
- {
- setuid((uid_t) uid);
- setuid((uid_t) euid);
- }
-#endif
- if ((int)getuid() == 0)
- {
-#if defined(IRC_UID) && defined(IRC_GID)
-
- /* run as a specified user */
- fprintf(stderr, "WARNING: running ircd with uid = %d\n", IRC_UID);
- fprintf(stderr, " changing to gid %d.\n", IRC_GID);
- setuid(IRC_UID);
- setgid(IRC_GID);
-#else
- /* check for setuid root as usual */
- fprintf(stderr,
- "ERROR: do not run ircd setuid root. Make it setuid a normal user.\n");
- exit(-1);
+/*----------------------------------------------------------------------------
+ * main - entrypoint
+ *
+ * TODO: This should set the basic environment up and start the main loop.
+ * we're doing waaaaaaaaay too much server initialization here. I hate
+ * long and ugly control paths... -smd
+ *--------------------------------------------------------------------------*/
+int main(int argc, char **argv) {
+ CurrentTime = time(NULL);
+
+ thisServer.argc = argc;
+ thisServer.argv = argv;
+ thisServer.uid = getuid();
+ thisServer.euid = geteuid();
+
+#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_CORE)
+ set_core_limit();
#endif
+
+ umask(077); /* better safe than sorry --SRB */
+ memset(&me, 0, sizeof(me));
+ memset(&me_con, 0, sizeof(me_con));
+ cli_connect(&me) = &me_con;
+ cli_fd(&me) = -1;
+
+ parse_command_line(argc, argv);
+
+ if (chdir(dpath)) {
+ fprintf(stderr, "Fail: Cannot chdir(%s): %s, check DPATH\n", dpath, strerror(errno));
+ return 2;
}
-#endif /*CHROOTDIR/UID/GID */
- if (argc > 0)
- return bad_command(); /* This should exit out */
+ if (!set_userid_if_needed())
+ return 3;
-#if HAVE_UNISTD_H
- /* Sanity checks */
- {
- char c;
- char *path;
-
- c = 'S';
- path = SPATH;
- if (access(path, X_OK) == 0)
- {
- c = 'C';
- path = CPATH;
- if (access(path, R_OK) == 0)
- {
- c = 'M';
- path = MPATH;
- if (access(path, R_OK) == 0)
- {
- c = 'R';
- path = RPATH;
- if (access(path, R_OK) == 0)
- {
-#ifndef DEBUG
- c = 0;
-#else
- c = 'L';
- path = LPATH;
- if (access(path, W_OK) == 0)
- c = 0;
-#endif
- }
- }
- }
- }
- if (c)
- {
- fprintf(stderr, "Check on %cPATH (%s) failed: %s\n",
- c, path, strerror(errno));
- fprintf(stderr,
- "Please create file and/or rerun `make config' and recompile to correct this.\n");
-#ifdef CHROOTDIR
- fprintf(stderr,
- "Keep in mind that all paths are relative to CHROOTDIR.\n");
-#endif
- exit(-1);
- }
+ /* Check paths for accessibility */
+ if (!check_file_access(SPATH, 'S', X_OK) ||
+ !check_file_access(configfile, 'C', R_OK))
+ return 4;
+
+ debug_init(thisServer.bootopt & BOOT_TTY);
+ daemon_init(thisServer.bootopt & BOOT_TTY);
+ event_init(MAXCONNECTIONS);
+
+ setup_signals();
+ feature_init(); /* initialize features... */
+ log_init(*argv);
+ if (check_pid()) {
+ Debug((DEBUG_FATAL, "Failed to acquire PID file lock after fork"));
+ exit(2);
+ }
+ set_nomem_handler(outofmemory);
+
+ if (!init_string()) {
+ log_write(LS_SYSTEM, L_CRIT, 0, "Failed to initialize string module");
+ return 6;
}
-#endif
- hash_init();
-#ifdef DEBUGMODE
- initlists();
-#endif
- initclass();
+ initload();
+ init_list();
+ init_hash();
+ init_class();
initwhowas();
initmsgtree();
initstats();
- open_debugfile();
- if (portnum == 0)
- portnum = PORTNUM;
- me.port = portnum;
- init_sys();
- me.flags = FLAGS_LISTEN;
- if ((bootopt & BOOT_INETD))
- {
- me.fd = 0;
- loc_clients[0] = &me;
- me.flags = FLAGS_LISTEN;
- }
- else
- me.fd = -1;
-#ifdef USE_SYSLOG
- openlog(myargv[0], LOG_PID | LOG_NDELAY, LOG_FACILITY);
-#endif
- if (initconf(bootopt) == -1)
- {
- Debug((DEBUG_FATAL, "Failed in reading configuration file %s", configfile));
- printf("Couldn't open configuration file %s\n", configfile);
- exit(-1);
- }
- if (!(bootopt & BOOT_INETD))
- {
- static char star[] = "*";
- aConfItem *aconf;
+ init_resolver();
- if ((aconf = find_me()) && portarg == 0 && aconf->port != 0)
- portnum = aconf->port;
- Debug((DEBUG_ERROR, "Port = %u", portnum));
- if (inetport(&me, star, portnum))
- exit(1);
+ motd_init();
+
+ if (!init_conf()) {
+ log_write(LS_SYSTEM, L_CRIT, 0, "Failed to read configuration file %s",
+ configfile);
+ return 7;
}
- else if (inetport(&me, "*", 0))
- exit(1);
-
- read_tlines();
- rmotd = read_motd(RPATH);
- motd = read_motd(MPATH);
- setup_ping();
- get_my_name(&me, me.sockhost, sizeof(me.sockhost) - 1);
- now = time(NULL);
- me.hopcount = 0;
- me.authfd = -1;
- me.confs = NULL;
- me.next = NULL;
- me.user = NULL;
- me.from = &me;
+
+ init_server_identity();
+
+ uping_init();
+
+ IPcheck_init();
+ timer_add(&connect_timer, try_connections, 0, TT_RELATIVE, 1);
+ timer_add(&ping_timer, check_pings, 0, TT_RELATIVE, 1);
+
+ CurrentTime = time(NULL);
+
SetMe(&me);
+ cli_magic(&me) = CLIENT_MAGIC;
+ cli_from(&me) = &me;
make_server(&me);
- /* Abuse own link timestamp as start timestamp: */
- me.serv->timestamp = TStime();
- me.serv->prot = atoi(MAJOR_PROTOCOL);
- me.serv->up = &me;
- me.serv->down = NULL;
+
+ cli_serv(&me)->timestamp = TStime(); /* Abuse own link timestamp as start TS */
+ cli_serv(&me)->prot = atoi(MAJOR_PROTOCOL);
+ cli_serv(&me)->up = &me;
+ cli_serv(&me)->down = NULL;
+ cli_handler(&me) = SERVER_HANDLER;
SetYXXCapacity(&me, MAXCLIENTS);
- me.lasttime = me.since = me.firsttime = now;
+ cli_lasttime(&me) = cli_since(&me) = cli_firsttime(&me) = CurrentTime;
+
hAddClient(&me);
- check_class();
write_pidfile();
-
init_counters();
Debug((DEBUG_NOTICE, "Server ready..."));
-#ifdef USE_SYSLOG
- syslog(LOG_NOTICE, "Server Ready");
-#endif
+ log_write(LS_SYSTEM, L_NOTICE, 0, "Server Ready");
- for (;;)
- {
- /*
- * We only want to connect if a connection is due,
- * not every time through. Note, if there are no
- * active C lines, this call to Tryconnections is
- * made once only; it will return 0. - avalon
- */
- if (nextconnect && now >= nextconnect)
- nextconnect = try_connections();
- /*
- * DNS checks. One to timeout queries, one for cache expiries.
- */
- if (now >= nextdnscheck)
- nextdnscheck = timeout_query_list();
- if (now >= nextexpire)
- nextexpire = expire_cache();
- /*
- * Take the smaller of the two 'timed' event times as
- * the time of next event (stops us being late :) - avalon
- * WARNING - nextconnect can return 0!
- */
- if (nextconnect)
- delay = MIN(nextping, nextconnect);
- else
- delay = nextping;
- delay = MIN(nextdnscheck, delay);
- delay = MIN(nextexpire, delay);
- delay -= now;
- /*
- * Adjust delay to something reasonable [ad hoc values]
- * (one might think something more clever here... --msa)
- * We don't really need to check that often and as long
- * as we don't delay too long, everything should be ok.
- * waiting too long can cause things to timeout...
- * i.e. PINGS -> a disconnection :(
- * - avalon
- */
- if (delay < 1)
- delay = 1;
- else
- delay = MIN(delay, TIMESEC);
- read_message(delay);
-
- Debug((DEBUG_DEBUG, "Got message(s)"));
-
- /*
- * ...perhaps should not do these loops every time,
- * but only if there is some chance of something
- * happening (but, note that conf->hold times may
- * be changed elsewhere--so precomputed next event
- * time might be too far away... (similarly with
- * ping times) --msa
- */
- if (now >= nextping)
- nextping = check_pings();
+ event_loop();
- if (dorehash)
- {
- rehash(&me, 1);
- dorehash = 0;
- }
- if (restartFlag)
- server_reboot();
- }
+ return 0;
}
+
+