[ViewVC] Diff of: cvs/deliantra/server/ext/login.ext

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.23 by root, Tue Jan 9 15:36:18 2007 UTC vs.
Revision 1.84 by root, Wed Apr 30 06:40:28 2008 UTC

…		…
1	#! perl	1	#! perl # mandatory
2		2
3	# login handling	3	# login handling
4		4
5	use Fcntl;	5	use Fcntl;
6	use Coro::AIO;	6	use Coro::AIO;
7		7
8	my $PLAYERDIR = sprintf "%s/%s", cf::localdir, cf::playerdir;	8	our $MAX_DISCONNECT_TIME = $cf::CFG{max_disconnect_time} \|\| 3600;
9		9
10	# paranoia function to overwrite a string-in-place	10	# paranoia function to overwrite a string-in-place
11	sub nuke_str {	11	sub nuke_str {
12	substr $_[0], 0, (length $_[0]), "x" x length $_[0]	12	substr $_[0], 0, (length $_[0]), "x" x length $_[0]
13	}	13	}
14		14
15	sub query {	15	sub query {
16	my ($ns, $flags, $text) = @_;	16	my ($ns, $flags, $text) = @_;
17		17
18	my $current = $Coro::current;	18	my $current = $Coro::current;
19	$ns->query ($flags, $text, sub { $current->ready; $current = $_[0]; });	19	$ns->query ($flags, $text, sub { $current->ready; $current = $_[0] });
20	Coro::schedule while ref $current;	20	Coro::schedule while ref $current;
21		21
22	$current	22	$current
23	}	23	}
24		24
40	return unless cf::player::find_active $user;	40	return unless cf::player::find_active $user;
41		41
42	$ns->send_drawinfo (	42	$ns->send_drawinfo (
43	"That player is already logged in on this server. "	43	"That player is already logged in on this server. "
44	. "If you want to create a new player, choose another name. "	44	. "If you want to create a new player, choose another name. "
45	. "If you are already a registered player, make sure nobody "	45	. "If you have already a registered, make sure nobody "
46	. "else is using your account at this time. If you lost your conenction "	46	. "else is using your account at this time. If you lost your connection "
47	. "then the server will likely timeout within a minute. If you still "	47	. "then the server will likely timeout within a minute. If you still "
48	. "cannot log-in after a minute, you are still logged in. Make sure "	48	. "cannot log-in after a minute, you are still logged in. Make sure "
49	. "you do not have another client running. If you use windows, reboot, "	49	. "you do not have another client running. If you use windows, reboot, "
50	. "this will fix anything.",	50	. "this will fix anything.",
51	cf::NDI_RED	51	cf::NDI_RED
52	);	52	);
53		53
54	1	54	1
55	}	55	}
56		56
57	sub check_clean_save {	57	sub safe_spot($) {
58	my ($pl) = @_;	58	my ($pl) = @_;
		59
		60	my $ob = $pl->ob;
59		61
60	unless (delete $pl->{clean_save}) {	62	my $m = $ob->map
61	#d#TODO	63	or return;
		64	my $x = $ob->x;
		65	my $y = $ob->y;
		66
		67	# return 0;#d#
		68	# warn join ":", $m->at ($x, $y);#d#
		69	# warn "FOO$m { ".scalar ($m->at ($x, $y))." }\n";
		70	# return 0;
		71
		72	scalar grep $_->type == cf::SAVEBED, $m->at ($x, $y)
		73	}
		74
		75	sub enter_map {
		76	my ($pl) = @_;
		77
		78	my $ob = $pl->ob;
		79
		80	my ($map, $x, $y)
		81	= $ob->{_link_pos}
		82	? @{delete $ob->{_link_pos}}
		83	: ($pl->maplevel, $ob->x, $ob->y);
		84
		85	$ob->enter_link;
		86
		87	my $m = cf::map::find $map;
		88	my $time = delete $pl->{unclean_save};
		89
		90	if ($time && $m) {
		91	if ($time < $m->{instantiate_time}) {
		92	# the map was reset in the meantime
		93	my $age = $cf::RUNTIME - $time;
		94
		95	warn $ob->name, " map reset after logout, logout age $age (>= $MAX_DISCONNECT_TIME)\n";#d#
		96
		97	if ($age >= $MAX_DISCONNECT_TIME) {
		98	$ob->message (
		99	"You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
		100	. "Unfortunately, nobody was near to help you when the monsters arrived to eat you. "
		101	. "Maybe you can find comfort in the thought that your body was quite satisfying in taste... "
		102	. "H<You disconnected too long without having used a savebed.>",
		103	cf::NDI_RED
		104	);
		105	# kill them.
		106	# reminds me of the famous badness 10000 syndrome...
		107	$ob->stats->hp (-10000); #] if they survive this they deserved to live
		108	my $killer = cf::arch::get "killer_login";
		109	$pl->killer ($killer);
		110	$killer->destroy;
		111	} else {
		112	($map, $x, $y) = $pl->savebed;
		113
		114	$ob->message (
		115	"You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
		116	. "Fortunately, some friendly dwellers found you, checked your passport, and brought you to safety. "
		117	. "Better use a savebed next time, much worse things could have happened... "
		118	. "H<You disconnected without having used a savebed. When you do that for too long, you might die.>",
		119	cf::NDI_RED
		120	);
		121	}
		122	} else {
		123	$ob->message (
		124	"You didn't use a bed to reality to leave this realm. This is very dangerous, "
		125	. "as lots of things could happen when you leave by other means, such as cave-ins, "
		126	. "or monsters suddenly snapping your body. Better use a savebed next time. "
		127	. "H<Always apply a bed of reality to disconnect from the server.>",
		128	cf::NDI_RED
		129	);
		130	}
62	}	131	}
		132
		133	$ob->goto ($map, $x, $y);
63	}	134	}
64		135
65	# delete a player directory, be non-blocking AND synchronous...	136	# delete a player directory, be non-blocking AND synchronous...
66	# (thats hard, so we crap out and fork).	137	# (thats hard, so we crap out and fork).
67	sub nuke_playerdir {	138	sub nuke_playerdir {
68	my ($user) = @_;	139	my ($user) = @_;
69		140
70	aio_stat "$PLAYERDIR/$user";	141	my $temp = "$PLAYERDIR/~$Coro::current~deleting~";
71	system "cd \Q$PLAYERDIR\E "
72	. "&& mv \Q$user\E ~\Q$Coro::current\E~deleting~ 2>/dev/null "
73	. "&& (rm -rf ~\Q$Coro::current\E~deleting~ &)";
74	}
75		142
76	sub addme {	143	cf::fork_call {
		144	rename "$PLAYERDIR/$user", $temp;
		145	system "rm", "-rf", $temp;
		146	};
		147	}
		148
		149	cf::client->attach (on_addme => sub {
77	my ($ns) = @_;	150	my ($ns) = @_;
78		151
79	$ns->destroy if $ns->pl;	152	if (!$ns->facecache)
		153	{
		154	$ns->send_drawinfo (<<EOF, cf::NDI_RED);
		155
		156
		157	***
		158	*** WARNING:
		159	*** Your client does not support face/image caching,
		160	*** or it has been disabled. Face caching is mandatory
		161	*** so please enable it or use a newer client.
		162	***
		163	*** Look at your client preferences:
		164	***
		165	*** deliantra: all known versions automatically enable the facecache.
		166	*** cfclient: use the -cache commandline option.
		167	*** cfclient: map will not redraw automatically (bug).
		168	*** gcfclient: use -cache commandline option, or enable
		169	*** gcfclient: Client => Configure => Map & Image => Cache Images.
		170	*** jcrossclient: your client is broken, use deliantra or gcfclient.
		171	***
		172	***
		173	EOF
		174	if ($ns->version =~ /jcrossclient/) {
		175	# let them, for now
		176	} else {
		177	$ns->flush;
		178	return $ns->destroy;
		179	}
		180
		181	# $ns->facecache = true;
		182	}
		183
		184	if ($ns->mapmode < cf::Map1aCmd) {
		185	$ns->send_drawinfo (<<EOF, cf::NDI_RED);
		186
		187
		188	***
		189	*** WARNING:
		190	*** Your client is too old. Please upgrade to a newer version.
		191	EOF
		192
		193	$ns->flush;
		194	return $ns->destroy;
		195	}
		196
		197	$ns->pl and return $ns->destroy;
80		198
81	$ns->async (sub {	199	$ns->async (sub {
		200	$Coro::current->{desc} = "addme init";
		201
82	my ($user, $pass);	202	my ($user, $pass);
83		203
84	$ns->send_packet ("addme_success");	204	$ns->send_packet ("addme_success");
85		205
86	for (;;) {	206	for (;;) {
…		…
99	$ns->send_drawinfo (	219	$ns->send_drawinfo (
100	"That username is currently used in another login session. "	220	"That username is currently used in another login session. "
101	. "Chose another, or wait till the other session has ended.",	221	. "Chose another, or wait till the other session has ended.",
102	cf::NDI_RED	222	cf::NDI_RED
103	);	223	);
104	} elsif ($user =~ /^[a-zA-Z0-9][a-zA-Z0-9\-_]{2,17}$/) {	224	} elsif ($user =~ /^[a-zA-Z0-9][a-zA-Z0-9\-_]{2,17}\z/) {
105	last;	225	last;
106	} else {	226	} else {
107	$ns->send_drawinfo (	227	$ns->send_drawinfo (
108	"Your username contains illegal characters "	228	"Your username contains illegal characters "
109	. "(only a-z, A-Z and 0-9 are allowed), "	229	. "(only a-z, A-Z and 0-9 are allowed), "
110	. "or is not between 3 and 18 characters in length.",	230	. "or is not between 3 and 18 characters in length.",
111	cf::NDI_RED	231	cf::NDI_RED
112	);	232	);
113	}	233	}
		234	Coro::Timer::sleep 0.4;
114	}	235	}
115		236
116	check_playing $ns, $user and next;	237	check_playing $ns, $user and next;
		238
		239	$Coro::current->{desc} = "addme($user) pass";
117		240
118	$ns->send_drawinfo (	241	$ns->send_drawinfo (
119	"Welcome $user, please enter your password now. "	242	"Welcome $user, please enter your password now. "
120	. "New users should now choose a password. "	243	. "New users should now choose a password. "
121	. "Anything your client lets you enter is fine.",	244	. "Anything your client lets you enter is fine.",
…		…
129	$ns->send_drawinfo (	252	$ns->send_drawinfo (
130	"Try to use at least three characters as your password please, "	253	"Try to use at least three characters as your password please, "
131	. "that cannot be too much to ask for :)",	254	. "that cannot be too much to ask for :)",
132	cf::NDI_RED	255	cf::NDI_RED
133	);	256	);
		257	Coro::Timer::sleep 0.4;
134	}	258	}
135		259
136	# lock this username for the remainder of this login session	260	# lock this username for the remainder of this login session
137	if ($cf::LOGIN_LOCK{$user}) {	261	if ($cf::LOGIN_LOCK{$user}) {
138	$ns->send_drawinfo (	262	$ns->send_drawinfo (
…		…
144	}	268	}
145	local $cf::LOGIN_LOCK{$user} = 1;	269	local $cf::LOGIN_LOCK{$user} = 1;
146		270
147	check_playing $ns, $user and next;	271	check_playing $ns, $user and next;
148		272
		273	$Coro::current->{desc} = "addme($user) check";
		274
149	# try to read the user file and check the password	275	# try to read the user file and check the password
150	if (my $pl = cf::player::find $user) {	276	if (my $pl = cf::player::find $user) {
151	aio_stat $pl->path and next;	277	aio_stat $pl->path and next;
152	my $mtime = (stat _)[9];	278	my $mtime = (stat _)[9];
153	my $hash = $pl->password;	279	my $hash = $pl->password;
…		…
155	if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) {	281	if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) {
156	nuke_str $pass;	282	nuke_str $pass;
157	# password matches, wonderful	283	# password matches, wonderful
158	my $pl = cf::player::find $user or next;	284	my $pl = cf::player::find $user or next;
159	$pl->connect ($ns);	285	$pl->connect ($ns);
160	check_clean_save $pl;	286	enter_map $pl;
161	$pl->{clean_save} = 1;
162	last;	287	last;
163	} elsif (can_cleanup $pl, $mtime) {	288	} elsif (can_cleanup $pl, $mtime) {
164	Coro::Timer::sleep 1;	289	Coro::Timer::sleep 1;
165		290
166	$ns->send_drawinfo (	291	$ns->send_drawinfo (
…		…
191	. "(check for Numlock and other semi-obvious error sources).",	316	. "(check for Numlock and other semi-obvious error sources).",
192	cf::NDI_RED	317	cf::NDI_RED
193	);	318	);
194	next;	319	next;
195	}	320	}
		321	} else {
		322	# unable to load the playerfile:
		323	# check wether the player dir exists, which means the file is corrupted or
		324	# something very similar.
		325	if (!aio_stat cf::player::playerdir $user) {
		326	$ns->send_drawinfo (
		327	"Unable to retrieve this player. It might be a locked or broken account. "
		328	. "If this is your account, ask a dungeon master for assistance. "
		329	. "Otherwise choose a different login name.",
		330	cf::NDI_RED
		331	);
		332	next;
		333	}
196	}	334	}
197		335
198	# the rest of this function is character creation	336	# the rest of this function is character creation
		337	$Coro::current->{desc} = "addme($user) chargen";
199		338
200	# just to make sure nothing is left over	339	# just to make sure nothing is left over
201	nuke_playerdir $user;	340	nuke_playerdir $user;
202		341
203	my $pass2 = query $ns, cf::CS_QUERY_HIDEINPUT, "Please type your password again.";	342	my $pass2 = query $ns, cf::CS_QUERY_HIDEINPUT, "Please type your password again.";
…		…
207	nuke_str $pass2;	346	nuke_str $pass2;
208	$ns->send_drawinfo (	347	$ns->send_drawinfo (
209	"The passwords do not match, please try again.",	348	"The passwords do not match, please try again.",
210	cf::NDI_RED	349	cf::NDI_RED
211	);	350	);
		351	Coro::Timer::sleep 0.5;
212	next;	352	next;
213	}	353	}
214		354
215	nuke_str $pass2;	355	nuke_str $pass2;
216		356
217	my $pl = cf::player::new $user;	357	my $pl = cf::player::new $user;
218	$pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);	358	$pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);
219	nuke_str $pass;	359	nuke_str $pass;
220	$pl->connect ($ns);	360	$pl->connect ($ns);
221
222	my $ob = $pl->ob;	361	my $ob = $pl->ob;
		362
		363	$ob->goto ($pl->maplevel, $ob->x, $ob->y);
223		364
224	while () {	365	while () {
225	$ob->update_stats;	366	$ob->update_stats;
226	$pl->save_stats;	367	$pl->save_stats;
227		368
…		…
237	$ob->swap_stats ($res - 1, $swap - 1);	378	$ob->swap_stats ($res - 1, $swap - 1);
238	}	379	}
239	} else {	380	} else {
240	$ob->roll_stats;	381	$ob->roll_stats;
241	}	382	}
		383
		384	Coro::Timer::sleep 0.2;
242	}	385	}
243		386
244	$ob->set_animation (2);	387	$ob->set_animation (2);
245	$ob->add_statbonus;	388	$ob->add_statbonus;
246		389
247	$ns->send_drawinfo ($ob->msg, cf::NDI_BLUE);	390	while () {
248	$ns->send_packet (sprintf "query %d %s", cf::CS_QUERY_SINGLECHAR,	391	$ns->send_msg ("chargen-race-title", ucfirst $pl->title, -1);
		392	my $msg = $ob->msg;
		393	$msg =~ s/(?<=\S)\n(?=\S)/ /g;
		394	$ns->send_msg ("chargen-race-description", $msg, cf::NDI_BLUE);
		395
		396	my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
249	"Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n");	397	"Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n";
250		398
251	$ns->state (cf::ST_CHANGE_CLASS);	399	last if $res =~ /[dD]/;
		400
		401	$pl->chargen_race_next;
		402	Coro::Timer::sleep 0.2;
		403	}
		404
		405	$pl->chargen_race_done;
		406
		407	while () {
		408	my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
		409	"Now choose a gender.\nPress 'f' to become female, and 'm' to become male.\n";
		410
		411	if ($res =~ /^[fF]/) {
		412	$pl->gender (1);
		413	last;
		414	} elsif ($res =~ /^[mM]/) {
		415	$pl->gender (0);
		416	last;
		417	}
		418	Coro::Timer::sleep 0.2;
		419	}
		420
		421	$ob->reply (undef, "Welcome to Deliantra!");
		422
252	delete $pl->{deny_save};#d# too early	423	delete $pl->{deny_save};
253		424
254	last;	425	last;
255	}	426	}
256	});	427	});
257	}	428	});
258		429
259	cf::register_command quit => sub {	430	cf::register_command quit => sub {
260	my ($ob, $arg) = @_;	431	my ($ob, $arg) = @_;
261		432
262	$ob->reply (undef,	433	$ob->reply (undef,
…		…
278	} else {	449	} else {
279	$ob->reply (undef,	450	$ob->reply (undef,
280	"Ok, quitting, hope to see you again.",	451	"Ok, quitting, hope to see you again.",
281	cf::NDI_UNIQUE \| cf::NDI_RED);	452	cf::NDI_UNIQUE \| cf::NDI_RED);
282	$pl->ns->flush;	453	$pl->ns->flush;
283	$pl->quit_character;	454	cf::async { $pl->quit_character };
284	}	455	}
285	});	456	});
286	};	457	};
287		458
288	cf::object->attach (	459	cf::object->attach (
…		…
296		467
297	# update respawn position	468	# update respawn position
298	$pl->savebed ($bed->map->path, $bed->x, $bed->y);	469	$pl->savebed ($bed->map->path, $bed->x, $bed->y);
299	cf::async { $pl->save };	470	cf::async { $pl->save };
300		471
		472	my $killer = cf::arch::get "killer_logout";
301	$pl->killer ("left");	473	$pl->killer ($killer);
		474	$killer->destroy;
302	$ob->check_score;	475	$ob->check_score;
303		476
304	$ob->reply (undef, "In the future, you will wake up here when you die.");	477	$ob->reply (undef, "In the future, you will wake up here when you die.");
305		478
306	$pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub {	479	$pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub {
…		…
328		501
329	if ($cleanly) {	502	if ($cleanly) {
330	$_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;	503	$_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;
331	} else {	504	} else {
332	$_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;	505	$_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE \| cf::NDI_UNIQUE) for cf::player::list;
333	delete $pl->{clean_save};	506	$pl->{unclean_save} = $cf::RUNTIME
		507	unless safe_spot $pl;
334	}	508	}
335	},	509	},
336	);	510	);
337		511
338	cf::client->attach (
339	on_addme => \&addme,
340	);
341
342	#############################################################################	512	#############################################################################
343		513
344	our $SCHEDULE_INTERVAL = 10; # time the player scheduler sleeps between runs	514	our $SCHEDULE_INTERVAL = $cf::CFG{player_schedule_interval} \|\| 10; # time the player scheduler sleeps between runs
345	our $SAVE_TIMEOUT = 20; # save players every n seconds	515	our $SAVE_TIMEOUT = $cf::CFG{player_save_interval} \|\| 20; # save players every n seconds
346	our $SAVE_INTERVAL = 0.5; # save at max. one player every $SAVE_INTERVAL
347		516
348	our $SCHEDULER = cf::async_ext {	517	our $SCHEDULER = cf::async_ext {
		518	$Coro::current->{desc} = "player scheduler";
		519
349	while () {	520	while () {
350	Coro::Timer::sleep $SCHEDULE_INTERVAL;	521	Coro::EV::timer_once $SCHEDULE_INTERVAL;
351		522
352	# this weird form of iteration over values is used because	523	# this weird form of iteration over values is used because
353	# the hash changes underneath us frequently, and for	524	# the hash changes underneath us frequently, and for
354	# keeps a direct reference to the value without (in 5.8 perls)	525	# keeps a direct reference to the value without (in 5.8 perls)
355	# keeping a reference, so this is prone to crashes or worse.	526	# keeping a reference, so this is prone to crashes or worse.
…		…
361		532
362	eval {	533	eval {
363	if ($pl->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {	534	if ($pl->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {
364	$pl->save;	535	$pl->save;
365		536
366	unless ($pl->active) {	537	unless ($pl->active \|\| $pl->ns) {
367	# check refcounts, this is tricky and needs to be adjusted to fit server internals	538	# check refcounts, this is tricky and needs to be adjusted to fit server internals
368	my $ob = $pl->ob;	539	my $ob = $pl->ob;
369	Scalar::Util::weaken $pl;	540
370	Scalar::Util::weaken $ob;
371	my $a_ = $pl->refcnt;#d#
372	my $b_ = $ob->refcnt;#d#
373	my $pl_ref = $pl->refcnt_cnt;	541	my $pl_ref = $pl->refcnt_cnt;
374	my $ob_ref = $ob->refcnt_cnt;	542	my $ob_ref = $ob->refcnt_cnt;
375		543
376	## pl_ref == one from object + one from cf::PLAYER	544	## pl_ref == $pl + ob->contr + %cf::PLAYER
377	## ob_ref == one from simply being an object	545	## ob_ref == $ob + pl->observe + simply being an object
378	if ($pl_ref == 2 && $ob_ref == 1) {	546	if ($pl_ref == 3 && $ob_ref == 3) {
379	warn "player-scheduler destroy ", $ob->name;#d#	547	warn "player-scheduler destroy ", $ob->name;#d#
380		548
381	# remove from sight and get fresh "copies"	549	# remove from sight and get fresh "copies"
382	$pl = delete $cf::PLAYER{$ob->name};	550	$pl = delete $cf::PLAYER{$ob->name};
383	$ob = $pl->ob;	551	$ob = $pl->ob;
384		552
385	$ob->destroy;
386	$pl->destroy;	553	$pl->destroy; # destroys $ob
387	} else {	554	} else {
		555	my $a_ = $pl->refcnt;#d#
		556	my $b_ = $ob->refcnt;#d#
		557
388	warn "player-scheduler refcnt ", $ob->name, " $pl_ref,$a_ $ob_ref,$b_\n";#d#	558	warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref/3 ob $ob_ref/3 (C pl $a_/1 ob $b_/2)\n";#d#
389	}	559	}
390	}	560	}
391	Coro::Timer::sleep $SAVE_INTERVAL;
392	}	561	}
393	};	562	};
394	warn $@ if $@;	563	warn $@ if $@;
395	Coro::cede;	564	cf::cede_to_tick;
396	};	565	};
397	}	566	}
398	};	567	};
399		568
400	$SCHEDULER->prio (1);	569	$SCHEDULER->prio (1);

Diff Legend

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

Comparing deliantra/server/ext/login.ext (file contents): Revision 1.23 by root, Tue Jan 9 15:36:18 2007 UTC vs. Revision 1.84 by root, Wed Apr 30 06:40:28 2008 UTC

Diff Legend

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.23 by root, Tue Jan 9 15:36:18 2007 UTC vs.
Revision 1.84 by root, Wed Apr 30 06:40:28 2008 UTC