[ViewVC] Diff of: cvs/deliantra/server/server/init.C

Comparing deliantra/server/server/init.C (file contents):
Revision 1.21 by root, Wed Dec 20 09:14:22 2006 UTC vs.
Revision 1.70 by root, Thu Jan 1 16:05:13 2009 UTC

…		…
1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3		3	*
		4	* Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
4	Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
5	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992,2007 Frank Tore Johansen
6		7	*
7	This program is free software; you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify
8	it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
9	the Free Software Foundation; either version 2 of the License, or	10	* the Free Software Foundation, either version 3 of the License, or
10	(at your option) any later version.	11	* (at your option) any later version.
11		12	*
12	This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
13	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	GNU General Public License for more details.	16	* GNU General Public License for more details.
16		17	*
17	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License
18	along with this program; if not, write to the Free Software	19	* along with this program. If not, see <http://www.gnu.org/licenses/>.
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	*
20		21	* The authors can be reached via e-mail to <support@deliantra.net>
21	The authors can be reached via e-mail at <crossfire@schmorp.de>
22	*/	22	*/
23		23
24	#include <global.h>	24	#include <global.h>
25	#include <material.h>	25	#include <material.h>
26	#include <loader.h>	26	#include <loader.h>
27	#ifndef __CEXTRACT__
28	# include <sproto.h>	27	#include <sproto.h>
29	#endif
30
31	/* global weathermap */
32	weathermap_t **weathermap;
33
34	void
35	set_logfile (char *val)
36	{
37	settings.logfilename = val;
38	}
39
40	void
41	call_version (void)
42	{
43	version (NULL);
44	exit (0);
45	}
46
47	void
48	showscores (void)
49	{
50	display_high_score (NULL, 9999, NULL);
51	exit (0);
52	}
53
54	void
55	set_debug (void)
56	{
57	settings.debug = llevDebug;
58	}
59
60	void
61	unset_debug (void)
62	{
63	settings.debug = llevInfo;
64	}
65
66	void
67	set_mondebug (void)
68	{
69	settings.debug = llevMonster;
70	}
71
72	void
73	set_dumpmon1 (void)
74	{
75	settings.dumpvalues = 1;
76	}
77
78	void
79	set_dumpmon2 (void)
80	{
81	settings.dumpvalues = 2;
82	}
83
84	void
85	set_dumpmon3 (void)
86	{
87	settings.dumpvalues = 3;
88	}
89
90	void
91	set_dumpmon4 (void)
92	{
93	settings.dumpvalues = 4;
94	}
95
96	void
97	set_dumpmon5 (void)
98	{
99	settings.dumpvalues = 5;
100	}
101
102	void
103	set_dumpmon6 (void)
104	{
105	settings.dumpvalues = 6;
106	}
107
108	void
109	set_dumpmon7 (void)
110	{
111	settings.dumpvalues = 7;
112	}
113
114	void
115	set_dumpmon8 (void)
116	{
117	settings.dumpvalues = 8;
118	}
119
120	void
121	set_dumpmon9 (void)
122	{
123	settings.dumpvalues = 9;
124	}
125
126	void
127	set_dumpmont (char *name)
128	{
129	settings.dumpvalues = 10;
130	settings.dumparg = name;
131	}
132
133	void
134	set_daemon (void)
135	{
136	settings.daemonmode = 1;
137	}
138
139	void
140	set_datadir (char *path)
141	{
142	settings.datadir = path;
143	}
144
145	void
146	set_confdir (char *path)
147	{
148	settings.confdir = path;
149	}
150
151	void
152	set_localdir (char *path)
153	{
154	settings.localdir = path;
155	}
156
157	void
158	set_mapdir (char *path)
159	{
160	settings.mapdir = path;
161	}
162
163	void
164	set_archetypes (char *path)
165	{
166	settings.archetypes = path;
167	}
168
169	void
170	set_regions (char *path)
171	{
172	settings.regions = path;
173	}
174
175	void
176	set_treasures (char *path)
177	{
178	settings.treasures = path;
179	}
180
181	void
182	set_uniquedir (char *path)
183	{
184	settings.uniquedir = path;
185	}
186
187	void
188	set_templatedir (char *path)
189	{
190	settings.templatedir = path;
191	}
192
193	void
194	set_playerdir (char *path)
195	{
196	settings.playerdir = path;
197	}
198
199	void
200	set_tmpdir (char *path)
201	{
202	settings.tmpdir = path;
203	}
204
205	void
206	showscoresparm (char *data)
207	{
208	display_high_score (NULL, 9999, data);
209	exit (0);
210	}
211
212	void
213	set_csport (char *val)
214	{
215	settings.csport = atoi (val);
216	if (settings.csport <= 0 \|\| settings.csport > 32765 \|\| (settings.csport < 1024 && getuid () != 0))
217	{
218	LOG (llevError, "%d is an invalid csport number.\n", settings.csport);
219	exit (1);
220	}
221	}
222
223	/* Most of this is shamelessly stolen from XSysStats. But since that is
224	* also my program, no problem.
225	*/
226	struct Command_Line_Options
227	{
228	const char cmd_option; / how it is called on the command line */
229	uint8 num_args; /* Number or args it takes */
230	uint8 pass; /* What pass this should be processed on. */
231	void (func) (); / function to call when we match this.
232	* if num_args is true, than that gets passed
233	* to the function, otherwise nothing is passed
234	*/
235	};
236
237	/* The way this system works is pretty simple - parse_args takes
238	* the options passed to the program and a pass number. If an option
239	* matches both in name and in pass (and we have enough options),
240	* we call the associated function. This makes writing a multi
241	* pass system very easy, and it is very easy to add in new options.
242	*/
243	struct Command_Line_Options options[] = {
244
245	/* Pass 1 functions - STuff that can/should be called before we actually
246	* initialize any data.
247	*/
248	{"-h", 0, 1, help},
249
250	/* Honor -help also, since it is somewhat common */
251	{"-help", 0, 1, help},
252	{"-v", 0, 1, call_version},
253	{"-d", 0, 1, set_debug},
254	{"+d", 0, 1, unset_debug},
255	{"-mon", 0, 1, set_mondebug},
256	{"-data", 1, 1, (void (*)()) set_datadir},
257	{"-conf", 1, 1, (void (*)()) set_confdir},
258	{"-local", 1, 1, (void (*)()) set_localdir},
259	{"-maps", 1, 1, (void (*)()) set_mapdir},
260	{"-arch", 1, 1, (void (*)()) set_archetypes},
261	{"-regions", 1, 1, (void (*)()) set_regions},
262	{"-playerdir", 1, 1, (void (*)()) set_playerdir},
263	{"-treasures", 1, 1, (void (*)()) set_treasures},
264	{"-uniquedir", 1, 1, (void (*)()) set_uniquedir},
265	{"-templatedir", 1, 1, (void (*)()) set_templatedir},
266	{"-tmpdir", 1, 1, (void (*)()) set_tmpdir},
267	{"-log", 1, 1, (void (*)()) set_logfile},
268
269	/* Pass 2 functions. Most of these could probably be in pass 1,
270	* as they don't require much of anything to bet set up.
271	*/
272	{"-csport", 1, 2, (void (*)()) set_csport},
273	{"-detach", 0, 2, set_daemon},
274
275	/* Start of pass 3 information. In theory, by pass 3, all data paths
276	* and defaults should have been set up.
277	*/
278	{"-o", 0, 3, compile_info},
279	{"-m", 0, 3, set_dumpmon1},
280	{"-m2", 0, 3, set_dumpmon2},
281	{"-m3", 0, 3, set_dumpmon3},
282	{"-m4", 0, 3, set_dumpmon4},
283	{"-m5", 0, 3, set_dumpmon5},
284	{"-m6", 0, 3, set_dumpmon6},
285	{"-m7", 0, 3, set_dumpmon7},
286	{"-m8", 0, 3, set_dumpmon8},
287	{"-m9", 0, 3, set_dumpmon9},
288	{"-mt", 1, 3, (void (*)()) set_dumpmont},
289	{"-mexp", 0, 3, dump_experience},
290	{"-s", 0, 3, showscores},
291	{"-score", 1, 3, (void (*)()) showscoresparm}
292	};
293
294
295	/* Note since this may be called before the library has been set up,
296	* we don't use any of crossfires built in logging functions.
297	*/
298	static void
299	parse_args (int argc, char *argv[], int pass)
300	{
301	size_t i;
302	int on_arg = 1;
303
304	while (on_arg < argc)
305	{
306	for (i = 0; i < sizeof (options) / sizeof (struct Command_Line_Options); i++)
307	{
308	if (!strcmp (options[i].cmd_option, argv[on_arg]))
309	{
310	/* Found a matching option, but should not be processed on
311	* this pass. Just skip over it
312	*/
313	if (options[i].pass != pass)
314	{
315	on_arg += options[i].num_args + 1;
316	break;
317	}
318	if (options[i].num_args)
319	{
320	if ((on_arg + options[i].num_args) >= argc)
321	{
322	fprintf (stderr, "%s requires an argument.\n", options[i].cmd_option);
323	exit (1);
324	}
325	else
326	{
327	if (options[i].num_args == 1)
328	((void ()(char )) options[i].func) (argv[on_arg + 1]);
329	if (options[i].num_args == 2)
330	((void ()(char , char *)) options[i].func) (argv[on_arg + 1], argv[on_arg + 2]);
331	on_arg += options[i].num_args + 1;
332	}
333	}
334	else
335	{ /* takes no args */
336	options[i].func ();
337	on_arg++;
338	}
339	break;
340	}
341	}
342	if (i == sizeof (options) / sizeof (struct Command_Line_Options))
343	{
344	fprintf (stderr, "Unknown option: %s\n", argv[on_arg]);
345	usage ();
346	exit (1);
347	}
348	}
349	}
350		28
351	//TODO: make this a constructor	29	//TODO: make this a constructor
352	static materialtype_t *	30	static materialtype_t *
353	get_empty_mat (void)	31	get_empty_mat (void)
354	{	32	{
355	materialtype_t *mt;	33	materialtype_t *mt;
356	int i;	34	int i;
357		35
358	mt = new materialtype_t;	36	mt = new materialtype_t;
359		37
360	mt->name = NULL;	38	mt->name = shstr_unknown;
361	mt->description = NULL;	39	mt->description = 0;
		40
362	for (i = 0; i < NROFATTACKS; i++)	41	for (i = 0; i < NROFATTACKS; i++)
363	{	42	{
364	mt->save[i] = 0;	43	mt->save[i] = 0;
365	mt->mod[i] = 0;	44	mt->mod[i] = 0;
366	}	45	}
		46
367	mt->chance = 0;	47	mt->chance = 0;
368	mt->difficulty = 0;	48	mt->difficulty = 0;
369	mt->magic = 0;	49	mt->magic = 0;
370	mt->damage = 0;	50	mt->damage = 0;
371	mt->wc = 0;	51	mt->wc = 0;
372	mt->ac = 0;	52	mt->ac = 0;
373	mt->sp = 0;	53	mt->sp = 0;
374	mt->weight = 100;	54	mt->weight = 100;
375	mt->value = 100;	55	mt->value = 100;
376	mt->next = NULL;	56	mt->density = 1;
		57	mt->next = 0;
		58
377	return mt;	59	return mt;
378	}	60	}
379		61
380	static void	62	void
381	load_materials (void)	63	load_materials (void)
382	{	64	{
383	char buf[MAX_BUF], filename[MAX_BUF], cp, next;	65	char filename[MAX_BUF];
384	FILE *fp;
385	materialtype_t *mt;
386	int i, value;
387		66
388	sprintf (filename, "%s/materials", settings.datadir);	67	sprintf (filename, "%s/materials", settings.datadir);
389	LOG (llevDebug, "Reading material type data from %s...", filename);	68	LOG (llevDebug, "Reading material type data from %s...\n", filename);
390	if ((fp = fopen (filename, "r")) == NULL)	69
		70	//TODO: somehow free old materials, or update them in-place
		71	materialt = 0;
		72
		73	object_thawer thawer (filename);
		74
		75	if (!thawer)
391	{	76	{
392	LOG (llevError, "Cannot open %s for reading\n", filename);	77	LOG (llevError, "Cannot open %s for reading\n", filename);
393	mt = get_empty_mat ();	78	goto done;
394	mt->next = NULL;
395	materialt = mt;
396	return;
397	}	79	}
398	mt = get_empty_mat ();	80
399	materialt = mt;	81	while (thawer.kw != KW_name)
400	while (fgets (buf, MAX_BUF, fp) != NULL)
401	{	82	{
402	if (*buf == '#')	83	thawer.next ();
403	continue;	84
404	if ((cp = strchr (buf, '\n')) != NULL)	85	if (thawer.kw == KW_EOF)
405	*cp = '\0';	86	goto done;
406	cp = buf;	87	}
407	while (cp == ' ') / Skip blanks */	88
408	cp++;	89	materialtype_t *mt;
409	if (!strncmp (cp, "name", 4))	90
410	{	91	for (;;)
411	/* clean up the previous entry */	92	{
412	if (mt->next != NULL)	93	switch (thawer.kw)
413	{	94	{
414	if (mt->description == NULL)	95	case KW_name:
		96	mt = get_empty_mat ();
		97	mt->next = materialt;
		98	materialt = mt;
		99
		100	thawer.get (mt->name);
415	mt->description = mt->name;	101	mt->description = mt->name;
416	mt = mt->next;	102	break;
		103
		104	case KW_description:
		105	thawer.get (mt->description);
		106	break;
		107
		108	case KW_material:
		109	thawer.get (mt->material);
		110	break;
		111
		112	case KW_saves:
417	}	113	{
418	mt->next = get_empty_mat ();	114	const char *cp = thawer.get_str () - 1;
419	mt->name = strchr (cp, ' ') + 1;	115
420	}
421	else if (!strncmp (cp, "description", 11))
422	{
423	mt->description = strchr (cp, ' ') + 1;
424	}
425	else if (sscanf (cp, "material %d", &value))
426	{
427	mt->material = value;
428	}
429	else if (!strncmp (cp, "saves", 5))
430	{
431	cp = strchr (cp, ' ') + 1;
432	for (i = 0; i < NROFATTACKS; i++)	116	for (int i = 0; i < NROFATTACKS; i++)
433	{
434	if (cp == NULL)
435	{	117	{
		118	if (!cp)
		119	{
436	mt->save[i] = 0;	120	mt->save[i] = 0;
437	continue;	121	continue;
		122	}
		123
		124	int value;
		125	++cp;
		126	sscanf (cp, "%d", &value);
		127	mt->save[i] = (sint8) value;
		128	cp = strchr (cp, ',');
438	}	129	}
439	if ((next = strchr (cp, ',')) != NULL)
440	*(next++) = '\0';
441	sscanf (cp, "%d", &value);
442	mt->save[i] = (sint8) value;
443	cp = next;
444	}
445	}
446	else if (!strncmp (cp, "mods", 4))
447	{
448	cp = strchr (cp, ' ') + 1;
449	for (i = 0; i < NROFATTACKS; i++)
450	{	130	}
451	if (cp == NULL)	131	break;
		132
		133	case KW_mods:
		134	{
		135	const char *cp = thawer.get_str () - 1;
		136
		137	for (int i = 0; i < NROFATTACKS; i++)
452	{	138	{
		139	if (!cp)
		140	{
453	mt->save[i] = 0;	141	mt->save[i] = 0;
454	continue;	142	continue;
		143	}
		144
		145	++cp;
		146	int value;
		147	sscanf (cp, "%d", &value);
		148	mt->mod[i] = (sint8) value;
		149	cp = strchr (cp, ',');
455	}	150	}
456	if ((next = strchr (cp, ',')) != NULL)
457	*(next++) = '\0';
458	sscanf (cp, "%d", &value);
459	mt->mod[i] = (sint8) value;
460	cp = next;
461	}
462	}	151	}
463	else if (sscanf (cp, "chance %d\n", &value))	152	break;
		153
		154	case KW_chance: thawer.get (mt->chance); break;
		155	case KW_difficulty: // cf+ alias, not original cf
		156	case KW_diff: thawer.get (mt->difficulty); break;
		157	case KW_magic: thawer.get (mt->magic); break;
		158	case KW_dam: // cf+ alias, not original cf
		159	case KW_damage: thawer.get (mt->damage); break;
		160	case KW_wc: thawer.get (mt->wc); break;
		161	case KW_ac: thawer.get (mt->ac); break;
		162	case KW_sp: thawer.get (mt->sp); break;
		163	case KW_weight: thawer.get (mt->weight); break;
		164	case KW_value: thawer.get (mt->value); break;
		165	case KW_density: thawer.get (mt->density); break;
		166
		167	case KW_EOF:
		168	goto done;
		169
		170	default:
		171	if (!thawer.parse_error ("materials file", "materials"))
		172	goto done;
		173	break;
464	{	174	}
465	mt->chance = (sint8) value;	175
466	}	176	thawer.next ();
467	else if (sscanf (cp, "diff %d\n", &value))
468	{
469	mt->difficulty = (sint8) value;
470	}
471	else if (sscanf (cp, "magic %d\n", &value))
472	{
473	mt->magic = (sint8) value;
474	}
475	else if (sscanf (cp, "damage %d\n", &value))
476	{
477	mt->damage = (sint8) value;
478	}
479	else if (sscanf (cp, "wc %d\n", &value))
480	{
481	mt->wc = (sint8) value;
482	}
483	else if (sscanf (cp, "ac %d\n", &value))
484	{
485	mt->ac = (sint8) value;
486	}
487	else if (sscanf (cp, "sp %d\n", &value))
488	{
489	mt->sp = (sint8) value;
490	}
491	else if (sscanf (cp, "weight %d\n", &value))
492	{
493	mt->weight = value;
494	}
495	else if (sscanf (cp, "value %d\n", &value))
496	{
497	mt->value = value;
498	}
499	}
500	if (mt->next)
501	{	177	}
502	delete mt->next;
503		178
504	mt->next = NULL;	179	done:
505	}	180	if (!materialt)
		181	materialt = get_empty_mat ();
		182
506	LOG (llevDebug, "Done.\n");	183	LOG (llevDebug, "Done.\n");
507	fclose (fp);
508	}	184	}
509		185
510	/* This loads the settings file. There could be debate whether this should	186	/* This loads the settings file. There could be debate whether this should
511	* be here or in the common directory - but since only the server needs this	187	* be here or in the common directory - but since only the server needs this
512	* information, having it here probably makes more sense.	188	* information, having it here probably makes more sense.
513	*/	189	*/
514	static void	190	void
515	load_settings (void)	191	load_settings (void)
516	{	192	{
517	char buf[MAX_BUF], *cp;	193	char buf[MAX_BUF], *cp;
518	int has_val, comp;	194	int has_val, comp;
519	FILE *fp;	195	FILE *fp;
522		198
523	/* We don't require a settings file at current time, but down the road,	199	/* We don't require a settings file at current time, but down the road,
524	* there will probably be so many values that not having a settings file	200	* there will probably be so many values that not having a settings file
525	* will not be a good thing.	201	* will not be a good thing.
526	*/	202	*/
527	if ((fp = open_and_uncompress (buf, 0, &comp)) == NULL)	203	if (!(fp = open_and_uncompress (buf, 0, &comp)))
528	{	204	{
529	LOG (llevError, "Warning: No settings file found\n");	205	LOG (llevError, "Error: No settings file found\n");
530	return;	206	exit (1);
531	}	207	}
		208
532	while (fgets (buf, MAX_BUF - 1, fp) != NULL)	209	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
533	{	210	{
534	if (buf[0] == '#')	211	if (buf[0] == '#')
535	continue;	212	continue;
536	/* eliminate newline */	213	/* eliminate newline */
…		…
550	*cp++ = 0;	227	*cp++ = 0;
551	has_val = 1;	228	has_val = 1;
552	}	229	}
553	else	230	else
554	{	231	{
555	cp = "";	232	cp = (char *)"";
556	has_val = 0;	233	has_val = 0;
557	}	234	}
558		235
559	if (!strcasecmp (buf, "motd"))	236	if (!strcasecmp (buf, "motd"))
560	{	237	{
…		…
730	else	407	else
731	{	408	{
732	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);	409	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);
733	}	410	}
734	}	411	}
735	else if (!strcasecmp (buf, "casting_time"))
736	{
737	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
738	{
739	settings.casting_time = TRUE;
740	}
741	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
742	{
743	settings.casting_time = FALSE;
744	}
745	else
746	{
747	LOG (llevError, "load_settings: Unknown value for " "casting_time: %s\n", cp);
748	}
749	}
750	else if (!strcasecmp (buf, "real_wiz"))
751	{
752	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
753	{
754	settings.real_wiz = TRUE;
755	}
756	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
757	{
758	settings.real_wiz = FALSE;
759	}
760	else
761	{
762	LOG (llevError, "load_settings: Unknown value for " "real_wiz: %s\n", cp);
763	}
764	}
765	else if (!strcasecmp (buf, "explore_mode"))
766	{
767	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
768	{
769	settings.explore_mode = TRUE;
770	}
771	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
772	{
773	settings.explore_mode = FALSE;
774	}
775	else
776	{
777	LOG (llevError, "load_settings: Unknown value for " "explore_mode: %s\n", cp);
778	}
779	}
780	else if (!strcasecmp (buf, "spellpoint_level_depend"))	412	else if (!strcasecmp (buf, "spellpoint_level_depend"))
781	{	413	{
782	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))	414	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
783	{	415	{
784	settings.spellpoint_level_depend = TRUE;	416	settings.spellpoint_level_depend = TRUE;
…		…
888	}	520	}
889	else if (!strcasecmp (buf, "set_friendly_fire"))	521	else if (!strcasecmp (buf, "set_friendly_fire"))
890	{	522	{
891	int val = atoi (cp);	523	int val = atoi (cp);
892		524
893	#if COZY_SERVER
894	if (val < 0 \|\| val > 100)	525	if (val < 0 \|\| val > 100)
895	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);	526	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);
896	#else
897	if (val < 1 \|\| val > 100)
898	LOG (llevError, "load_settings: set_friendly_fire must be between 1 an 100" ", %d is invalid\n", val);
899	#endif
900	else	527	else
901	settings.set_friendly_fire = val;	528	settings.set_friendly_fire = val;
902	}	529	}
903	else if (!strcasecmp (buf, "armor_max_enchant"))	530	else if (!strcasecmp (buf, "armor_max_enchant"))
904	{	531	{
…		…
957	{	584	{
958	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);	585	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);
959	}	586	}
960		587
961	}	588	}
962	else if (!strcasecmp (buf, "no_player_stealing"))
963	{
964	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
965	{
966	settings.no_player_stealing = TRUE;
967	}
968	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
969	{
970	settings.no_player_stealing = FALSE;
971	}
972	else
973	{
974	LOG (llevError, "load_settings: unknown value for no_player_stealing: %s\n", cp);
975	}
976
977	}
978	else if (!strcasecmp (buf, "create_home_portals"))
979	{
980	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
981	{
982	settings.create_home_portals = TRUE;
983	}
984	else if (!strcasecmp (cp, "off") \|\| !strcasecmp (cp, "false"))
985	{
986	settings.create_home_portals = FALSE;
987	}
988	else
989	{
990	LOG (llevError, "load_settings: Unknown value for create_home_portals: %s\n", cp);
991	}
992
993	}
994	else	589	else
995	{
996	LOG (llevError, "Unknown value in settings file: %s\n", buf);	590	LOG (llevError, "Unknown value in settings file: %s\n", buf);
997	}
998	}	591	}
999		592
1000	close_and_delete (fp, comp);	593	close_and_delete (fp, comp);
1001	}	594	}
1002
1003		595
1004	/*	596	/*
1005	* init() is called only once, when starting the program.	597	* init() is called only once, when starting the program.
1006	*/	598	*/
1007
1008	void	599	void
1009	init (int argc, char **argv)	600	init (int argc, char **argv)
1010	{	601	{
1011	init_done = 0; /* Must be done before init_signal() */	602	init_done = 0; /* Must be done before init_signal() */
1012	logfile = stderr;
1013	parse_args (argc, argv, 1); /* First arg pass - right now it does
1014	* nothing, but in future specifying the
1015	* LibDir in this pass would be reasonable*/
1016		603
		604	init_environ ();
1017	cfperl_init ();	605	cfperl_init ();
1018	init_library (); /* Must be called early */
1019	load_settings (); /* Load the settings file */
1020	init_weather ();
1021	load_materials ();
1022	parse_args (argc, argv, 2);
1023	fprintf (logfile, "Welcome to CrossFire, v%s\n", VERSION);
1024	fprintf (logfile, "Copyright (C) 1994 Mark Wedel.\n");
1025	fprintf (logfile, "Copyright (C) 1992 Frank Tore Johansen.\n");
1026
1027	if (strcmp (settings.dm_mail, "") != 0)
1028	{
1029	fprintf (logfile, "Maintained locally by: %s\n", settings.dm_mail);
1030	fprintf (logfile, "Questions and bugs should be mailed to above address.\n");
1031	}
1032
1033	SRANDOM (time (NULL));
1034
1035	init_startup (); /* Write (C), check shutdown/forbid files */
1036	init_uuid ();
1037	init_signals (); /* Sets up signal interceptions */
1038	init_commands (); /* Sort command tables */
1039	read_map_log (); /* Load up the old temp map files */
1040	init_skills ();
1041
1042	parse_args (argc, argv, 3);
1043
1044	if (settings.daemonmode)
1045	logfile = BecomeDaemon (settings.logfilename[0] == '\0' ? "logfile" : settings.logfilename);
1046
1047	init_beforeplay ();
1048	init_ericserver ();
1049	init_done = 1;	606	init_done = 1;
1050	}	607	}
1051		608
1052	void	609	void
1053	usage (void)	610	usage (void)
1054	{	611	{
1055	(void) fprintf (logfile, "Usage: crossfire [-h] [-<flags>]...\n");	612	fprintf (stderr, "Usage: deliantra-server [-h] [-<flags>]...\n");
1056	}	613	}
1057		614
1058	void	615	void
1059	help (void)	616	help (void)
1060	{	617	{
…		…
1101	}	658	}
1102		659
1103	void	660	void
1104	init_beforeplay (void)	661	init_beforeplay (void)
1105	{	662	{
1106	init_archetypes (); /* If not called before, reads all archetypes from file */
1107	init_artifacts (); /* If not called before, reads all artifacts from file */	663	init_artifacts (); /* If not called before, reads all artifacts from file */
1108	init_spells (); /* If not called before, links archtypes used by spells */
1109	init_regions (); /* If not called before, reads all regions from file */
1110	init_archetype_pointers (); /* Setup global pointers to archetypes */
1111	init_races (); /* overwrite race designations using entries in lib/races file */	664	init_races (); /* overwrite race designations using entries in lib/races file */
1112	init_gods (); /* init linked list of gods from archs */	665	init_gods (); /* init linked list of gods from archs */
1113	init_readable (); /* inits useful arrays for readable texts */	666	init_readable (); /* inits useful arrays for readable texts */
1114	init_formulae (); /* If not called before, reads formulae from file */	667	init_formulae (); /* If not called before, reads formulae from file */
1115
1116	switch (settings.dumpvalues)
1117	{
1118	case 1:
1119	print_monsters ();
1120	exit (0);
1121	case 2:
1122	dump_abilities ();
1123	exit (0);
1124	case 3:
1125	dump_artifacts ();
1126	exit (0);
1127	case 4:
1128	dump_spells ();
1129	exit (0);
1130	case 5:
1131	exit (0);
1132	case 6:
1133	dump_races ();
1134	exit (0);
1135	case 7:
1136	dump_alchemy ();
1137	exit (0);
1138	case 9:
1139	dump_alchemy_costs ();
1140	exit (0);
1141	case 10:
1142	dump_monster_treasure (settings.dumparg);
1143	exit (0);
1144	}
1145	}
1146
1147	void
1148	init_startup (void)
1149	{
1150	char buf[MAX_BUF];
1151	FILE *fp;
1152	int comp;
1153
1154	#ifdef SHUTDOWN_FILE
1155	sprintf (buf, "%s/%s", settings.confdir, SHUTDOWN_FILE);
1156	if ((fp = open_and_uncompress (buf, 0, &comp)) != NULL)
1157	{
1158	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
1159	printf ("%s", buf);
1160	close_and_delete (fp, comp);
1161	exit (1);
1162	}
1163	#endif
1164
1165	if (forbid_play ())
1166	{ /* Maybe showing highscore should be allowed? */
1167	LOG (llevError, "CrossFire: Playing not allowed.\n");
1168	exit (-1);
1169	}
1170	}
1171
1172	/*
1173	* compile_info(): activated with the -o flag.
1174	* It writes out information on how Imakefile and config.h was configured
1175	* at compile time.
1176	*/
1177
1178	void
1179	compile_info (void)
1180	{
1181	int i = 0;
1182
1183	printf ("Non-standard include files:\n");
1184	#if !defined (__STRICT_ANSI__) \|\| defined (__sun__)
1185	# if !defined (Mips)
1186	printf ("<stdlib.h>\n");
1187	i = 1;
1188	# endif
1189	# if !defined (MACH) && !defined (sony)
1190	printf ("<malloc.h>\n");
1191	i = 1;
1192	# endif
1193	#endif
1194	#ifndef __STRICT_ANSI__
1195	# ifndef MACH
1196	printf ("<memory.h\n");
1197	i = 1;
1198	# endif
1199	#endif
1200	#ifndef sgi
1201	printf ("<sys/timeb.h>\n");
1202	i = 1;
1203	#endif
1204	if (!i)
1205	printf ("(none)\n");
1206	printf ("Datadir:\t\t%s\n", settings.datadir);
1207	printf ("Localdir:\t\t%s\n", settings.localdir);
1208	#ifdef PERM_FILE
1209	printf ("Perm file:\t<ETC>/%s\n", PERM_FILE);
1210	#endif
1211	#ifdef SHUTDOWN_FILE
1212	printf ("Shutdown file:\t<ETC>/%s\n", SHUTDOWN_FILE);
1213	#endif
1214	printf ("Save player:\t<true>\n");
1215	printf ("Save mode:\t%4.4o\n", SAVE_MODE);
1216	printf ("Playerdir:\t<VAR>/%s\n", settings.playerdir);
1217	printf ("Itemsdir:\t<VAR>/%s\n", settings.uniquedir);
1218	printf ("Tmpdir:\t\t%s\n", settings.tmpdir);
1219	printf ("Map max timeout:\t%d\n", MAP_MAXTIMEOUT);
1220	printf ("Max objects:\t%d\n", MAX_OBJECTS);
1221	#ifdef USE_CALLOC
1222	printf ("Use_calloc:\t<true>\n");
1223	#else
1224	printf ("Use_calloc:\t<false>\n");
1225	#endif
1226
1227	#ifdef X_EDITOR
1228	printf ("Editor:\t\t%s\n", X_EDITOR);
1229	#endif
1230
1231	printf ("Max_time:\t%d\n", MAX_TIME);
1232
1233	execl ("/bin/uname", "uname", "-a", NULL);
1234	LOG (llevError, "Oops, shouldn't have gotten here: execl(/bin/uname) failed: %s\n", strerror (errno));
1235	exit (-1);
1236	}	668	}
1237		669
1238	/* Signal handlers: */	670	/* Signal handlers: */
1239		671
1240	void	672	static void
		673	rec_sigabrt (int i)
		674	{
		675	signal (SIGABRT, SIG_DFL);
		676
		677	LOG (llevError, "SIGABRT received.\n");
		678	cleanup ("SIGABRT received", 1);
		679	}
		680
		681	static void
1241	rec_sigsegv (int i)	682	rec_sigsegv (int i)
1242	{	683	{
		684	signal (SIGSEGV, SIG_DFL);
		685
1243	LOG (llevError, "SIGSEGV received.\n");	686	LOG (llevError, "SIGSEGV received.\n");
1244	fatal_signal (1, 1);	687	cleanup ("SIGSEGV received", 1);
1245	}	688	}
1246		689
1247	void	690	static void
1248	rec_sigint (int i)
1249	{
1250	LOG (llevInfo, "SIGINT received.\n");
1251	fatal_signal (0, 1);
1252	}
1253
1254	void
1255	rec_sighup (int i)
1256	{
1257	LOG (llevInfo, "SIGHUP received\n");
1258
1259	if (init_done)
1260	cleanup ();
1261
1262	exit (0);
1263	}
1264
1265	void
1266	rec_sigquit (int i)	691	rec_sigquit (int i)
1267	{	692	{
		693	signal (SIGQUIT, SIG_IGN);
		694
1268	LOG (llevInfo, "SIGQUIT received\n");	695	LOG (llevInfo, "SIGQUIT received\n");
1269	fatal_signal (1, 1);	696	cleanup ("SIGQUIT received", 1);
1270	}	697	}
1271		698
1272	void	699	static void
1273	rec_sigbus (int i)	700	rec_sigbus (int i)
1274	{	701	{
1275	#ifdef SIGBUS	702	signal (SIGBUS, SIG_DFL);
		703
1276	LOG (llevError, "SIGBUS received\n");	704	LOG (llevError, "SIGBUS received\n");
1277	fatal_signal (1, 1);	705	cleanup ("SIGBUS received", 1);
1278	#endif
1279	}	706	}
1280		707
1281	void	708	void
1282	rec_sigterm (int i)	709	reset_signals ()
1283	{	710	{
1284	LOG (llevInfo, "SIGTERM received\n");	711	signal (SIGABRT, SIG_DFL);
1285	fatal_signal (0, 1);	712	signal (SIGQUIT, SIG_DFL);
1286	}	713	signal (SIGSEGV, SIG_DFL);
1287		714	signal (SIGBUS , SIG_DFL);
1288	void	715	signal (SIGINT , SIG_DFL);
1289	fatal_signal (int make_core, int close_sockets)	716	signal (SIGTERM, SIG_DFL);
1290	{
1291	cleanup (make_core);
1292	}	717	}
1293		718
1294	void	719	void
1295	init_signals (void)	720	init_signals (void)
1296	{	721	{
1297	signal (SIGHUP, rec_sighup);	722	// large stack, but it's important data we want to save, and it is not usually
1298	signal (SIGINT, rec_sigint);	723	// being physically allocated anyways
1299	signal (SIGQUIT, rec_sigquit);	724	const size_t stacksize = 8 * 1024 * 1024 + SIGSTKSZ;
1300	signal (SIGSEGV, rec_sigsegv);	725
1301	signal (SIGPIPE, SIG_IGN);	726	stack_t ss;
1302	#ifdef SIGBUS	727	ss.ss_sp = malloc (stacksize);
1303	signal (SIGBUS, rec_sigbus);	728	ss.ss_flags = 0;
1304	#endif	729	ss.ss_size = stacksize;
1305	signal (SIGTERM, rec_sigterm);	730	sigaltstack (&ss, 0);
		731
		732	struct sigaction sa;
		733
		734	sigfillset (&sa.sa_mask);
		735	sa.sa_flags = SA_RESTART;
		736
		737	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);
		738	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);
		739	sa.sa_handler = rec_sigquit; sigaction (SIGQUIT, &sa, 0);
		740	sa.sa_handler = rec_sigbus; sigaction (SIGBUS, &sa, 0);
		741
		742	sa.sa_flags \|= SA_ONSTACK;
		743	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);
1306	}	744	}
1307		745
1308	/* init_races() - reads the races file in the lib/ directory, then	746	/* init_races() - reads the races file in the lib/ directory, then
1309	* overwrites old 'race' entries. This routine allow us to quickly	747	* overwrites old 'race' entries. This routine allow us to quickly
1310	* re-configure the 'alignment' of monsters, objects. Useful for	748	* re-configure the 'alignment' of monsters, objects. Useful for
1311	* putting together lists of creatures, etc that belong to gods.	749	* putting together lists of creatures, etc that belong to gods.
1312	*/	750	*/
1313
1314	void	751	void
1315	init_races (void)	752	init_races (void)
1316	{	753	{
1317	FILE *file;	754	FILE *file;
1318	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];	755	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];
…		…
1323	return;	760	return;
1324	init_done = 1;	761	init_done = 1;
1325	first_race = 0;	762	first_race = 0;
1326		763
1327	sprintf (fname, "%s/races", settings.datadir);	764	sprintf (fname, "%s/races", settings.datadir);
1328	LOG (llevDebug, "Reading races from %s...", fname);	765	LOG (llevDebug, "Reading races from %s...\n", fname);
1329	if (!(file = fopen (fname, "r")))	766	if (!(file = fopen (fname, "r")))
1330	{	767	{
1331	LOG (llevError, "Cannot open races file %s: %s\n", fname, strerror (errno));	768	LOG (llevError, "Cannot open races file %s: %s\n", fname, strerror (errno));
1332	return;	769	return;
1333	}	770	}
…		…
1343	*cp = '\0';	780	*cp = '\0';
1344		781
1345	cp = buf;	782	cp = buf;
1346	while (cp == ' ' \|\| cp == '!' \|\| *cp == '@')	783	while (cp == ' ' \|\| cp == '!' \|\| *cp == '@')
1347	{	784	{
1348	if (*cp == '!')	785	if (*cp == '!') set_race = 0;
1349	set_race = 0;
1350	if (*cp == '@')	786	if (*cp == '@') set_list = 0;
1351	set_list = 0;	787
1352	cp++;	788	cp++;
1353	}	789	}
1354		790
1355	if (sscanf (cp, "RACE %s", variable))	791	if (sscanf (cp, "RACE %s", variable))
1356	{ /* set new race value */	792	/* set new race value */
1357	strcpy (race, variable);	793	strcpy (race, variable);
1358	}
1359	else	794	else
1360	{	795	{
1361	char *cp1;	796	char *cp1;
1362		797
1363	/* Take out beginning spaces */	798	/* Take out beginning spaces */
…		…
1374	if (cp[strlen (cp) - 1] == '\n')	809	if (cp[strlen (cp) - 1] == '\n')
1375	cp[strlen (cp) - 1] = '\0';	810	cp[strlen (cp) - 1] = '\0';
1376		811
1377	/* set creature race to race value */	812	/* set creature race to race value */
1378	if ((mon = archetype::find (cp)) == NULL)	813	if ((mon = archetype::find (cp)) == NULL)
1379	LOG (llevError, "\nCreature %s in race file lacks archetype", cp);	814	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);
1380	else	815	else
1381	{	816	{
1382	if (set_race && (!mon->clone.race \|\| strcmp (mon->clone.race, race)))	817	if (set_race && (!mon->race \|\| strcmp (&mon->race, race)))
1383	{	818	{
1384	if (mon->clone.race)	819	if (mon->race)
1385	LOG (llevDebug, "\n Resetting race to %s from %s for archetype %s", race, &mon->clone.race, &mon->name);	820	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->race, &mon->archname);
1386		821
1387	mon->clone.race = race;	822	mon->race = race;
1388	}	823	}
1389		824
1390	/* if the arch is a monster, add it to the race list */	825	/* if the arch is a monster, add it to the race list */
1391	if (set_list && QUERY_FLAG (&mon->clone, FLAG_MONSTER))	826	if (set_list && QUERY_FLAG (mon, FLAG_MONSTER))
1392	add_to_racelist (race, &mon->clone);	827	add_to_racelist (race, mon);
1393	}	828	}
1394	}	829	}
1395	}	830	}
1396		831
1397	fclose (file);	832	fclose (file);
…		…
1406		841
1407	for (list = first_race; list; list = list->next)	842	for (list = first_race; list; list = list->next)
1408	{	843	{
1409	fprintf (stderr, "\nRACE %s:\t", &list->name);	844	fprintf (stderr, "\nRACE %s:\t", &list->name);
1410	for (tmp = list->member; tmp; tmp = tmp->next)	845	for (tmp = list->member; tmp; tmp = tmp->next)
1411	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->name, tmp->ob->level);	846	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->archname, tmp->ob->level);
1412	}	847	}
1413		848
1414	fprintf (stderr, "\n");	849	fprintf (stderr, "\n");
1415	}	850	}
1416		851

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/server/init.C (file contents): Revision 1.21 by root, Wed Dec 20 09:14:22 2006 UTC vs. Revision 1.70 by root, Thu Jan 1 16:05:13 2009 UTC

Diff Legend

Comparing deliantra/server/server/init.C (file contents):
Revision 1.21 by root, Wed Dec 20 09:14:22 2006 UTC vs.
Revision 1.70 by root, Thu Jan 1 16:05:13 2009 UTC