/* +------------------------------------+ * | Inspire Internet Relay Chat Daemon | * +------------------------------------+ * * Inspire is copyright (C) 2002-2003 ChatSpike-Dev. * E-mail: * * * * Written by Craig Edwards, Craig McLure, and others. * This program is free but copyrighted software; see * the file COPYING for details. * * --------------------------------------------------- */ #include #include #include #include "inspircd.h" #include "inspircd_io.h" #include "inspircd_util.h" void WriteOpers(char* text, ...); void Exit (int status) { send_error("Server shutdown."); exit (status); } void Killed(int status) { send_error("Server terminated."); exit(status); } void Rehash(int status) { ReadConfig(); WriteOpers("Rehashing config file %s due to SIGHUP",CONFIG_FILE); } void Start (void) { printf("\033[1;37mInspire Internet Relay Chat Server, compiled " __DATE__ " at " __TIME__ "\n"); printf("(C) ChatSpike Development team.\033[0;37m\n\n"); printf("\033[1;37mDevelopers:\033[0;37m Brain, FrostyCoolSlug, Raider, RD\n"); printf("\033[1;37mDocumentation:\033[0;37m FrostyCoolSlug\n"); printf("\033[1;37mTesters:\033[0;37m MrBOFH, piggles, Lord_Zathras, typobox43, CC\n"); printf("\033[1;37mName concept:\033[0;37m Lord_Zathras\n\n"); } void DeadPipe(int status) { signal (SIGPIPE, DeadPipe); } int DaemonSeed (void) { int childpid; signal (SIGALRM, SIG_IGN); signal (SIGHUP, Rehash); signal (SIGPIPE, DeadPipe); signal (SIGTERM, Exit); signal (SIGABRT, Exit); signal (SIGSEGV, Error); signal (SIGURG, Exit); signal (SIGKILL, Exit); if ((childpid = fork ()) < 0) return (ERROR); else if (childpid > 0) exit (0); setsid (); umask (077); /* close stdout, stdin, stderr */ close(0); close(1); close(2); setpriority(PRIO_PROCESS,(int)getpid(),15); /* ircd sets to low process priority so it doesnt hog the box */ return (TRUE); } /* Make Sure Modules Are Avaliable! * (BugFix By Craig.. See? I do work! :p) */ int FileExists (char* file) { FILE *input; if ((input = fopen (file, "r")) == NULL) { return(false); } else { fclose (input); return(true); } } /* Counts the number of tags of a certain type within the config file, e.g. to enumerate opers */ int EnumConf(const char* filename, const char* tag) { FILE *config; int ptr = 0; char buffer[MAXBUF], c_tag[MAXBUF], c, lastc; int in_token, in_quotes, tptr, j, idx = 0; char* key; if ((config = fopen (filename, "r")) == NULL) { return 0; } else { ptr = 0; in_token = 0; in_quotes = 0; lastc = '\0'; while (!feof(config)) { lastc = c; c = fgetc(config); if ((c == '#') && (lastc == '\n')) { while ((c != '\n') && (!feof(config))) { lastc = c; c = fgetc(config); } } if ((c == '<') && (!in_quotes)) { tptr = 0; in_token = 1; do { c = fgetc(config); if (c != ' ') { c_tag[tptr++] = c; c_tag[tptr] = '\0'; } } while (c != ' '); } if (c == '"') { in_quotes = (!in_quotes); } if ((c == '>') && (!in_quotes)) { in_token = 0; if (!strcmp(c_tag,tag)) { /* correct tag, but wrong index */ idx++; } c_tag[0] = '\0'; buffer[0] = '\0'; ptr = 0; tptr = 0; } if (c != '>') { if ((in_token) && (c != '\n') && (c != '\r')) { buffer[ptr++] = c; buffer[ptr] = '\0'; } } } } fclose(config); return idx; } int ConfValueEnum(char* tag) { EnumConf(CONFIG_FILE,tag); } /* Retrieves a value from the config file. If there is more than one value of the specified * key and section (e.g. for opers etc) then the index value specifies which to retreive, e.g. * * ConfValue("oper","name",2,result); */ int ReadConf(const char* filename, const char* tag, const char* var, int index, char *result) { FILE *config; int ptr = 0; char buffer[MAXBUF], c_tag[MAXBUF], c, lastc; int in_token, in_quotes, tptr, j, idx = 0; char* key; if ((config = fopen (filename, "r")) == NULL) { return 0; } else { ptr = 0; in_token = 0; in_quotes = 0; lastc = '\0'; while (!feof(config)) { lastc = c; c = fgetc(config); if ((c == '#') && (lastc == '\n')) { while ((c != '\n') && (!feof(config))) { lastc = c; c = fgetc(config); } } if ((c == '<') && (!in_quotes)) { tptr = 0; in_token = 1; do { c = fgetc(config); if (c != ' ') { c_tag[tptr++] = c; c_tag[tptr] = '\0'; } } while (c != ' '); } if (c == '"') { in_quotes = (!in_quotes); } if ((c == '>') && (!in_quotes)) { in_token = 0; if (idx == index) { if (!strcmp(c_tag,tag)) { if ((buffer) && (c_tag) && (var)) { key = strstr(buffer,var); if (!key) { /* value not found in tag */ fclose(config); return 0; } else { key+=strlen(var); while (key[0] !='"') { if (!strlen(key)) { /* missing quote */ return 0; } key++; } key++; for (j = 0; j < strlen(key); j++) { if (key[j] == '"') { key[j] = '\0'; } } fclose(config); strcpy(result,key); return 1; } } } } if (!strcmp(c_tag,tag)) { /* correct tag, but wrong index */ idx++; } c_tag[0] = '\0'; buffer[0] = '\0'; ptr = 0; tptr = 0; } if (c != '>') { if ((in_token) && (c != '\n') && (c != '\r')) { buffer[ptr++] = c; buffer[ptr] = '\0'; } } } } fclose(config); return 0; } int ConfValue(char* tag, char* var, int index, char *result) { ReadConf(CONFIG_FILE, tag, var, index, result); } /* This will bind a socket to a port. It works for UDP/TCP */ int BindSocket (int sockfd, struct sockaddr_in client, struct sockaddr_in server, int port, char* addr) { bzero((char *)&server,sizeof(server)); struct in_addr addy; inet_aton(addr,&addy); server.sin_family = AF_INET; if (!strcmp(addr,"")) { server.sin_addr.s_addr = htonl(INADDR_ANY); } else { server.sin_addr = addy; } server.sin_port = htons(port); if (bind(sockfd,(struct sockaddr*)&server,sizeof(server))<0) { return(ERROR); } else { listen(sockfd,5); return(TRUE); } } /* Open a TCP Socket */ int OpenTCPSocket (void) { int sockfd; int on = 0; struct linger linger = { 0 }; if ((sockfd = socket (AF_INET, SOCK_STREAM, 0)) < 0) return (ERROR); else { setsockopt(sockfd, SOL_SOCKET, SO_REUSEADDR, (const char*)&on, sizeof(on)); /* This is BSD compatible, setting l_onoff to 0 is *NOT* http://web.irc.org/mla/ircd-dev/msg02259.html */ linger.l_onoff = 1; linger.l_linger = 0; setsockopt(sockfd, SOL_SOCKET, SO_LINGER, (const char*)&linger,sizeof(linger)); return (sockfd); } }