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

Comparing deliantra/server/server/init.C (file contents):
Revision 1.38 by root, Wed Jan 24 16:36:10 2007 UTC vs.
Revision 1.68 by root, Sun Dec 28 06:59:27 2008 UTC

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

Diff Legend

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

Comparing deliantra/server/server/init.C (file contents): Revision 1.38 by root, Wed Jan 24 16:36:10 2007 UTC vs. Revision 1.68 by root, Sun Dec 28 06:59:27 2008 UTC

Diff Legend

Comparing deliantra/server/server/init.C (file contents):
Revision 1.38 by root, Wed Jan 24 16:36:10 2007 UTC vs.
Revision 1.68 by root, Sun Dec 28 06:59:27 2008 UTC