[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.66 by root, Tue Sep 23 04:29:11 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
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		28
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	{
371	mt->value = 100;	53	mt->value = 100;
372	mt->next = NULL;	54	mt->next = NULL;
373	return mt;	55	return mt;
374	}	56	}
375		57
376	static void	58	void
377	load_materials (void)	59	load_materials (void)
378	{	60	{
379	char buf[MAX_BUF], filename[MAX_BUF], cp, next;	61	char filename[MAX_BUF];
380	FILE *fp;
381	materialtype_t *mt;	62	materialtype_t *mt;
382	int i, value;
383		63
384	sprintf (filename, "%s/materials", settings.datadir);	64	sprintf (filename, "%s/materials", settings.datadir);
385	LOG (llevDebug, "Reading material type data from %s...\n", filename);	65	LOG (llevDebug, "Reading material type data from %s...\n", filename);
386	if ((fp = fopen (filename, "r")) == NULL)	66
		67	object_thawer thawer (filename);
		68
		69	if (!thawer)
387	{	70	{
388	LOG (llevError, "Cannot open %s for reading\n", filename);	71	LOG (llevError, "Cannot open %s for reading\n", filename);
389	mt = get_empty_mat ();	72	mt = get_empty_mat ();
390	mt->next = NULL;	73	mt->next = 0;
391	materialt = mt;	74	materialt = mt;
392	return;	75	return;
393	}	76	}
		77
394	mt = get_empty_mat ();	78	mt = get_empty_mat ();
395	materialt = mt;	79	materialt = mt;
396	while (fgets (buf, MAX_BUF, fp) != NULL)	80
		81	for (;;)
397	{	82	{
398	if (*buf == '#')	83	thawer.next ();
399	continue;	84
400	if ((cp = strchr (buf, '\n')) != NULL)	85	switch (thawer.kw)
401	*cp = '\0';
402	cp = buf;
403	while (cp == ' ') / Skip blanks */
404	cp++;
405	if (!strncmp (cp, "name", 4))
406	{	86	{
		87	case KW_name:
407	/* clean up the previous entry */	88	/* clean up the previous entry */
408	if (mt->next != NULL)	89	if (mt->next)
409	{	90	{
410	if (mt->description == NULL)	91	if (!mt->description)
411	mt->description = mt->name;	92	mt->description = mt->name;
		93
412	mt = mt->next;	94	mt = mt->next;
413	}	95	}
		96
414	mt->next = get_empty_mat ();	97	mt->next = get_empty_mat ();
415	mt->name = strchr (cp, ' ') + 1;	98	thawer.get (mt->name);
416	}	99	break;
417	else if (!strncmp (cp, "description", 11))	100
		101	case KW_description:
		102	thawer.get (mt->description);
		103	break;
		104
		105	case KW_material:
		106	thawer.get (mt->material);
		107	break;
		108
		109	case KW_saves:
418	{	110	{
419	mt->description = strchr (cp, ' ') + 1;	111	const char *cp = thawer.get_str () - 1;
420	}	112
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++)	113	for (int i = 0; i < NROFATTACKS; i++)
429	{
430	if (cp == NULL)
431	{	114	{
		115	if (!cp)
		116	{
432	mt->save[i] = 0;	117	mt->save[i] = 0;
433	continue;	118	continue;
		119	}
		120
		121	int value;
		122	++cp;
		123	sscanf (cp, "%d", &value);
		124	mt->save[i] = (sint8) value;
		125	cp = strchr (cp, ',');
434	}	126	}
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	{	127	}
447	if (cp == NULL)	128	break;
		129
		130	case KW_mods:
		131	{
		132	const char *cp = thawer.get_str () - 1;
		133
		134	for (int i = 0; i < NROFATTACKS; i++)
448	{	135	{
		136	if (!cp)
		137	{
449	mt->save[i] = 0;	138	mt->save[i] = 0;
450	continue;	139	continue;
		140	}
		141
		142	++cp;
		143	int value;
		144	sscanf (cp, "%d", &value);
		145	mt->mod[i] = (sint8) value;
		146	cp = strchr (cp, ',');
451	}	147	}
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	}	148	}
459	else if (sscanf (cp, "chance %d\n", &value))	149	break;
		150
		151	case KW_chance: thawer.get (mt->chance); break;
		152	case KW_difficulty: // cf+ alias, not original cf
		153	case KW_diff: thawer.get (mt->difficulty); break;
		154	case KW_magic: thawer.get (mt->magic); break;
		155	case KW_dam: // cf+ alias, not original cf
		156	case KW_damage: thawer.get (mt->damage); break;
		157	case KW_wc: thawer.get (mt->wc); break;
		158	case KW_ac: thawer.get (mt->ac); break;
		159	case KW_sp: thawer.get (mt->sp); break;
		160	case KW_weight: thawer.get (mt->weight); break;
		161	case KW_value: thawer.get (mt->value); break;
		162	case KW_density: thawer.get (mt->density); break;
		163
		164	case KW_EOF:
		165	goto done;
		166
		167	default:
		168	if (!thawer.parse_error ("materials file", "materials"))
		169	goto done;
		170	break;
460	{	171	}
461	mt->chance = (sint8) value;
462	}
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	}	172	}
		173
		174	done:
496	if (mt->next)	175	if (mt->next)
497	{	176	{
498	delete mt->next;	177	delete mt->next;
499		178
500	mt->next = NULL;	179	mt->next = 0;
501	}	180	}
		181
502	LOG (llevDebug, "Done.\n");	182	LOG (llevDebug, "Done.\n");
503	fclose (fp);
504	}	183	}
505		184
506	/* This loads the settings file. There could be debate whether this should	185	/* 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	186	* be here or in the common directory - but since only the server needs this
508	* information, having it here probably makes more sense.	187	* information, having it here probably makes more sense.
509	*/	188	*/
510	static void	189	void
511	load_settings (void)	190	load_settings (void)
512	{	191	{
513	char buf[MAX_BUF], *cp;	192	char buf[MAX_BUF], *cp;
514	int has_val, comp;	193	int has_val, comp;
515	FILE *fp;	194	FILE *fp;
…		…
518		197
519	/* We don't require a settings file at current time, but down the road,	198	/* 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	199	* there will probably be so many values that not having a settings file
521	* will not be a good thing.	200	* will not be a good thing.
522	*/	201	*/
523	if ((fp = open_and_uncompress (buf, 0, &comp)) == NULL)	202	if (!(fp = open_and_uncompress (buf, 0, &comp)))
524	{	203	{
525	LOG (llevError, "Warning: No settings file found\n");	204	LOG (llevError, "Error: No settings file found\n");
526	return;	205	exit (1);
527	}	206	}
		207
528	while (fgets (buf, MAX_BUF - 1, fp) != NULL)	208	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
529	{	209	{
530	if (buf[0] == '#')	210	if (buf[0] == '#')
531	continue;	211	continue;
532	/* eliminate newline */	212	/* eliminate newline */
…		…
546	*cp++ = 0;	226	*cp++ = 0;
547	has_val = 1;	227	has_val = 1;
548	}	228	}
549	else	229	else
550	{	230	{
551	cp = "";	231	cp = (char *)"";
552	has_val = 0;	232	has_val = 0;
553	}	233	}
554		234
555	if (!strcasecmp (buf, "motd"))	235	if (!strcasecmp (buf, "motd"))
556	{	236	{
…		…
726	else	406	else
727	{	407	{
728	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);	408	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);
729	}	409	}
730	}	410	}
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"))	411	else if (!strcasecmp (buf, "spellpoint_level_depend"))
762	{	412	{
763	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))	413	if (!strcasecmp (cp, "on") \|\| !strcasecmp (cp, "true"))
764	{	414	{
765	settings.spellpoint_level_depend = TRUE;	415	settings.spellpoint_level_depend = TRUE;
…		…
869	}	519	}
870	else if (!strcasecmp (buf, "set_friendly_fire"))	520	else if (!strcasecmp (buf, "set_friendly_fire"))
871	{	521	{
872	int val = atoi (cp);	522	int val = atoi (cp);
873		523
874	#if COZY_SERVER
875	if (val < 0 \|\| val > 100)	524	if (val < 0 \|\| val > 100)
876	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);	525	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	526	else
882	settings.set_friendly_fire = val;	527	settings.set_friendly_fire = val;
883	}	528	}
884	else if (!strcasecmp (buf, "armor_max_enchant"))	529	else if (!strcasecmp (buf, "armor_max_enchant"))
885	{	530	{
…		…
938	{	583	{
939	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);	584	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);
940	}	585	}
941		586
942	}	587	}
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	588	else
976	{
977	LOG (llevError, "Unknown value in settings file: %s\n", buf);	589	LOG (llevError, "Unknown value in settings file: %s\n", buf);
978	}
979	}	590	}
980		591
981	close_and_delete (fp, comp);	592	close_and_delete (fp, comp);
982	}	593	}
983		594
984	/*	595	/*
985	* init() is called only once, when starting the program.	596	* init() is called only once, when starting the program.
986	*/	597	*/
987
988	void	598	void
989	init (int argc, char **argv)	599	init (int argc, char **argv)
990	{	600	{
991	init_done = 0; /* Must be done before init_signal() */	601	init_done = 0; /* Must be done before init_signal() */
992	rndm.seed (time (0));	602	rndm.seed (time (0));
993		603
994	logfile = stderr;	604	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 ();	605	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;	606	init_done = 1;
1029	}	607	}
1030		608
1031	void	609	void
1032	usage (void)	610	usage (void)
1033	{	611	{
1034	(void) fprintf (logfile, "Usage: crossfire [-h] [-<flags>]...\n");	612	fprintf (stderr, "Usage: deliantra-server [-h] [-<flags>]...\n");
1035	}	613	}
1036		614
1037	void	615	void
1038	help (void)	616	help (void)
1039	{	617	{
…		…
1080	}	658	}
1081		659
1082	void	660	void
1083	init_beforeplay (void)	661	init_beforeplay (void)
1084	{	662	{
1085	init_archetypes (); /* If not called before, reads all archetypes from file */
1086	init_artifacts (); /* If not called before, reads all artifacts from file */	663	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 */	664	init_races (); /* overwrite race designations using entries in lib/races file */
1091	init_gods (); /* init linked list of gods from archs */	665	init_gods (); /* init linked list of gods from archs */
1092	init_readable (); /* inits useful arrays for readable texts */	666	init_readable (); /* inits useful arrays for readable texts */
1093	init_formulae (); /* If not called before, reads formulae from file */	667	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	}	668	}
1214		669
1215	/* Signal handlers: */	670	/* Signal handlers: */
1216		671
1217	void	672	static void
1218	rec_sigabrt (int i)	673	rec_sigabrt (int i)
1219	{	674	{
1220	signal (SIGABRT, SIG_DFL);	675	signal (SIGABRT, SIG_DFL);
1221		676
1222	LOG (llevError, "SIGABRT received.\n");	677	LOG (llevError, "SIGABRT received.\n");
1223	cleanup ("SIGABRT received", 1);	678	cleanup ("SIGABRT received", 1);
1224	}	679	}
1225		680
1226	void	681	static void
1227	rec_sigsegv (int i)	682	rec_sigsegv (int i)
1228	{	683	{
1229	signal (SIGSEGV, SIG_DFL);	684	signal (SIGSEGV, SIG_DFL);
1230		685
1231	LOG (llevError, "SIGSEGV received.\n");	686	LOG (llevError, "SIGSEGV received.\n");
1232	cleanup ("SIGSEGV received", 1);	687	cleanup ("SIGSEGV received", 1);
1233	}	688	}
1234		689
1235	void	690	static void
1236	rec_sigquit (int i)	691	rec_sigquit (int i)
1237	{	692	{
1238	signal (SIGQUIT, SIG_IGN);	693	signal (SIGQUIT, SIG_IGN);
1239		694
1240	LOG (llevInfo, "SIGQUIT received\n");	695	LOG (llevInfo, "SIGQUIT received\n");
1241	cleanup ("SIGQUIT received", 1);	696	cleanup ("SIGQUIT received", 1);
1242	}	697	}
1243		698
1244	void	699	static void
1245	rec_sigbus (int i)	700	rec_sigbus (int i)
1246	{	701	{
1247	signal (SIGBUS, SIG_DFL);	702	signal (SIGBUS, SIG_DFL);
1248		703
1249	LOG (llevError, "SIGBUS received\n");	704	LOG (llevError, "SIGBUS received\n");
1250	cleanup ("SIGBUS received", 1);	705	cleanup ("SIGBUS received", 1);
		706	}
		707
		708	void
		709	reset_signals ()
		710	{
		711	signal (SIGABRT, SIG_DFL);
		712	signal (SIGQUIT, SIG_DFL);
		713	signal (SIGSEGV, SIG_DFL);
		714	signal (SIGBUS , SIG_DFL);
		715	signal (SIGINT , SIG_DFL);
		716	signal (SIGTERM, SIG_DFL);
1251	}	717	}
1252		718
1253	void	719	void
1254	init_signals (void)	720	init_signals (void)
1255	{	721	{
…		…
1264	sigaltstack (&ss, 0);	730	sigaltstack (&ss, 0);
1265		731
1266	struct sigaction sa;	732	struct sigaction sa;
1267		733
1268	sigfillset (&sa.sa_mask);	734	sigfillset (&sa.sa_mask);
1269	sa.sa_flags = SA_ONSTACK \| SA_RESTART;	735	sa.sa_flags = SA_RESTART;
1270		736
1271	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);	737	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);
1272	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);	738	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);
1273	sa.sa_handler = rec_sigquit; sigaction (SIGQUIT, &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;
1274	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);	743	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);
1275	sa.sa_handler = rec_sigbus; sigaction (SIGBUS, &sa, 0);
1276	}	744	}
1277		745
1278	/* init_races() - reads the races file in the lib/ directory, then	746	/* init_races() - reads the races file in the lib/ directory, then
1279	* overwrites old 'race' entries. This routine allow us to quickly	747	* overwrites old 'race' entries. This routine allow us to quickly
1280	* re-configure the 'alignment' of monsters, objects. Useful for	748	* re-configure the 'alignment' of monsters, objects. Useful for
…		…
1312	*cp = '\0';	780	*cp = '\0';
1313		781
1314	cp = buf;	782	cp = buf;
1315	while (cp == ' ' \|\| cp == '!' \|\| *cp == '@')	783	while (cp == ' ' \|\| cp == '!' \|\| *cp == '@')
1316	{	784	{
1317	if (*cp == '!')	785	if (*cp == '!') set_race = 0;
1318	set_race = 0;
1319	if (*cp == '@')	786	if (*cp == '@') set_list = 0;
1320	set_list = 0;	787
1321	cp++;	788	cp++;
1322	}	789	}
1323		790
1324	if (sscanf (cp, "RACE %s", variable))	791	if (sscanf (cp, "RACE %s", variable))
1325	{ /* set new race value */	792	/* set new race value */
1326	strcpy (race, variable);	793	strcpy (race, variable);
1327	}
1328	else	794	else
1329	{	795	{
1330	char *cp1;	796	char *cp1;
1331		797
1332	/* Take out beginning spaces */	798	/* Take out beginning spaces */
…		…
1346	/* set creature race to race value */	812	/* set creature race to race value */
1347	if ((mon = archetype::find (cp)) == NULL)	813	if ((mon = archetype::find (cp)) == NULL)
1348	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);	814	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);
1349	else	815	else
1350	{	816	{
1351	if (set_race && (!mon->clone.race \|\| strcmp (mon->clone.race, race)))	817	if (set_race && (!mon->race \|\| strcmp (mon->race, race)))
1352	{	818	{
1353	if (mon->clone.race)	819	if (mon->race)
1354	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->clone.race, &mon->name);	820	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->race, &mon->archname);
1355		821
1356	mon->clone.race = race;	822	mon->race = race;
1357	}	823	}
1358		824
1359	/* 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 */
1360	if (set_list && QUERY_FLAG (&mon->clone, FLAG_MONSTER))	826	if (set_list && QUERY_FLAG (mon, FLAG_MONSTER))
1361	add_to_racelist (race, &mon->clone);	827	add_to_racelist (race, mon);
1362	}	828	}
1363	}	829	}
1364	}	830	}
1365		831
1366	fclose (file);	832	fclose (file);
…		…
1375		841
1376	for (list = first_race; list; list = list->next)	842	for (list = first_race; list; list = list->next)
1377	{	843	{
1378	fprintf (stderr, "\nRACE %s:\t", &list->name);	844	fprintf (stderr, "\nRACE %s:\t", &list->name);
1379	for (tmp = list->member; tmp; tmp = tmp->next)	845	for (tmp = list->member; tmp; tmp = tmp->next)
1380	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->name, tmp->ob->level);	846	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->archname, tmp->ob->level);
1381	}	847	}
1382		848
1383	fprintf (stderr, "\n");	849	fprintf (stderr, "\n");
1384	}	850	}
1385		851

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.66 by root, Tue Sep 23 04:29:11 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.66 by root, Tue Sep 23 04:29:11 2008 UTC