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

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.32 by root, Mon Apr 2 18:04:45 2007 UTC vs.
Revision 1.75 by root, Wed Dec 26 21:38:02 2007 UTC

…		…
1	#! perl # MANDATORY	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	use List::Util qw(min max);
8		7
9	my $PLAYERDIR = sprintf "%s/%s", cf::localdir, cf::playerdir;	8	our $MAX_DISCONNECT_TIME = $cf::CFG{max_disconnect_time} \|\| 3600;
10		9
11	# paranoia function to overwrite a string-in-place	10	# paranoia function to overwrite a string-in-place
12	sub nuke_str {	11	sub nuke_str {
13	substr $_[0], 0, (length $_[0]), "x" x length $_[0]	12	substr $_[0], 0, (length $_[0]), "x" x length $_[0]
14	}	13	}
15		14
16	sub query {	15	sub query {
17	my ($ns, $flags, $text) = @_;	16	my ($ns, $flags, $text) = @_;
18		17
19	my $current = $Coro::current;	18	my $current = $Coro::current;
20	$ns->query ($flags, $text, sub { $current->ready; $current = $_[0]; });	19	$ns->query ($flags, $text, sub { $current->ready; $current = $_[0] });
21	Coro::schedule while ref $current;	20	Coro::schedule while ref $current;
22		21
23	$current	22	$current
24	}	23	}
25		24
41	return unless cf::player::find_active $user;	40	return unless cf::player::find_active $user;
42		41
43	$ns->send_drawinfo (	42	$ns->send_drawinfo (
44	"That player is already logged in on this server. "	43	"That player is already logged in on this server. "
45	. "If you want to create a new player, choose another name. "	44	. "If you want to create a new player, choose another name. "
46	. "If you are already a registered player, make sure nobody "	45	. "If you have already a registered, make sure nobody "
47	. "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 "
48	. "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 "
49	. "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 "
50	. "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, "
51	. "this will fix anything.",	50	. "this will fix anything.",
52	cf::NDI_RED	51	cf::NDI_RED
53	);	52	);
54		53
55	1	54	1
56	}	55	}
57		56
58	sub check_clean_save {	57	sub enter_map {
59	my ($pl) = @_;	58	my ($pl) = @_;
60		59
		60	my $ob = $pl->ob;
		61
		62	my ($map, $x, $y)
		63	= $ob->{_link_pos}
		64	? @{delete $ob->{_link_pos}}
		65	: ($pl->maplevel, $ob->x, $ob->y);
		66
		67	$ob->enter_link;
		68
61	if (my $time = delete $pl->{unclean_save}) {	69	if (my $time = delete $pl->{unclean_save}) {
62	$pl->ns->send_drawinfo (	70	if (my $m = cf::map::find $map) {
		71	if ($time < $m->{instantiate_time}) {
		72	# the map was reset in the meantime
		73	my $age = $cf::RUNTIME - $time;
		74
		75	warn $ob->name, " map reset after logout, logout age $age (>= $MAX_DISCONNECT_TIME)\n";#d#
		76
		77	# for now, just go back to savebed
		78	($map, $x, $y) = $pl->savebed;
		79
		80	if ($age >= $MAX_DISCONNECT_TIME) {
		81	$ob->message (
		82	"You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
		83	. "Unfortunately, nobody was near to help you when the monsters arrived to eat you. "
		84	. "Maybe you can find comfort in the thought that your body was quite satisfying in taste... "
		85	. "H<You disconnected too long without having used a savebed.>",
		86	cf::NDI_RED
		87	);
		88	# kill them.
		89	# reminds me of the famous badness 10000 syndrome...
		90	$ob->stats->hp (-10000); #] if they survive this they deserved to live
		91	$pl->killer ("a cave-in");
		92	} else {
		93	$ob->message (
		94	"You didn't use a bed to reality to leave this realm, leaving your body in great danger. "
		95	. "Fortunately, some friendly dwellers found you, checked your passport, and brought you to safety. "
		96	. "Better use a savebed next time, much worse things could have happened... "
		97	. "H<You disconnected without having used a savebed. When you do that for too long, you might die.>",
		98	cf::NDI_RED
		99	);
		100	}
		101	} else {
		102	$ob->message (
63	"You didn't use a savebed to leave this realm. This is very dangerous, "	103	"You didn't use a bed to reality to leave this realm. This is very dangerous, "
64	. "as lots of things could happen when you leave by other means, such as cave-ins, "	104	. "as lots of things could happen when you leave by other means, such as cave-ins, "
65	. "or monsters suddenly snapping your body. Better use a savebed next time.",	105	. "or monsters suddenly snapping your body. Better use a savebed next time. "
		106	. "H<Always apply a bed of reality to disconnect from the server.>",
66	cf::NDI_RED	107	cf::NDI_RED
		108	);
		109	}
67	);	110	}
68	#d#TODO
69	}	111	}
		112
		113	$ob->goto ($map, $x, $y);
70	}	114	}
71		115
72	# delete a player directory, be non-blocking AND synchronous...	116	# delete a player directory, be non-blocking AND synchronous...
73	# (thats hard, so we crap out and fork).	117	# (thats hard, so we crap out and fork).
74	sub nuke_playerdir {	118	sub nuke_playerdir {
75	my ($user) = @_;	119	my ($user) = @_;
76		120
77	aio_stat "$PLAYERDIR/$user";	121	my $temp = "$PLAYERDIR/~$Coro::current~deleting~";
78	system "cd \Q$PLAYERDIR\E "	122
79	. "&& mv \Q$user\E ~\Q$Coro::current\E~deleting~ 2>/dev/null "	123	cf::fork_call {
80	. "&& (rm -rf ~\Q$Coro::current\E~deleting~ &)";	124	rename "$PLAYERDIR/$user", $temp;
		125	system "rm", "-rf", $temp;
		126	};
81	}	127	}
82		128
83	sub addme {	129	cf::client->attach (on_addme => sub {
84	my ($ns) = @_;	130	my ($ns) = @_;
85		131
86	if (!$ns->facecache)	132	if (!$ns->facecache)
87	{	133	{
88	$ns->send_drawinfo (<<EOF, cf::NDI_RED);	134	$ns->send_drawinfo (<<EOF, cf::NDI_RED);
89		135
90		136
91	***	137	***
92	*** WARNING:	138	*** WARNING:
93	*** Your client does not support face/image caching,	139	*** Your client does not support face/image caching,
…		…
98	***	144	***
99	*** CFPlus: all known versions automatically enable the facecache.	145	*** CFPlus: all known versions automatically enable the facecache.
100	*** cfclient: use the -cache commandline option.	146	*** cfclient: use the -cache commandline option.
101	*** cfclient: map will not redraw automatically (bug).	147	*** cfclient: map will not redraw automatically (bug).
102	*** gcfclient: use -cache commandline option, or enable	148	*** gcfclient: use -cache commandline option, or enable
103	*** gcfclient: Client=>Configure=>Map & Image=>Cache Images.	149	*** gcfclient: Client => Configure => Map & Image => Cache Images.
104	*** jcrossclient: your client is broken, use CFPlus or gcfclient.	150	*** jcrossclient: your client is broken, use CFPlus or gcfclient.
105	***	151	***
106	***	152	***
107	EOF	153	EOF
108	if ($ns->version =~ /jcrossclient/) {	154	if ($ns->version =~ /jcrossclient/) {
…		…
111	$ns->flush;	157	$ns->flush;
112	return $ns->destroy;	158	return $ns->destroy;
113	}	159	}
114		160
115	# $ns->facecache = true;	161	# $ns->facecache = true;
116	}	162	}
		163
		164	if ($ns->mapmode < cf::Map1aCmd) {
		165	$ns->send_drawinfo (<<EOF, cf::NDI_RED);
		166
		167
		168	***
		169	*** WARNING:
		170	*** Your client is too old. Please upgrade to a newer version.
		171	EOF
		172
		173	$ns->flush;
		174	return $ns->destroy;
		175	}
117		176
118	$ns->pl and return $ns->destroy;	177	$ns->pl and return $ns->destroy;
119		178
120	$ns->async (sub {	179	$ns->async (sub {
		180	$Coro::current->{desc} = "addme init";
		181
121	my ($user, $pass);	182	my ($user, $pass);
122		183
123	$ns->send_packet ("addme_success");	184	$ns->send_packet ("addme_success");
124		185
125	for (;;) {	186	for (;;) {
…		…
148	. "(only a-z, A-Z and 0-9 are allowed), "	209	. "(only a-z, A-Z and 0-9 are allowed), "
149	. "or is not between 3 and 18 characters in length.",	210	. "or is not between 3 and 18 characters in length.",
150	cf::NDI_RED	211	cf::NDI_RED
151	);	212	);
152	}	213	}
		214	Coro::Timer::sleep 0.4;
153	}	215	}
154		216
155	check_playing $ns, $user and next;	217	check_playing $ns, $user and next;
		218
		219	$Coro::current->{desc} = "addme($user) pass";
156		220
157	$ns->send_drawinfo (	221	$ns->send_drawinfo (
158	"Welcome $user, please enter your password now. "	222	"Welcome $user, please enter your password now. "
159	. "New users should now choose a password. "	223	. "New users should now choose a password. "
160	. "Anything your client lets you enter is fine.",	224	. "Anything your client lets you enter is fine.",
…		…
168	$ns->send_drawinfo (	232	$ns->send_drawinfo (
169	"Try to use at least three characters as your password please, "	233	"Try to use at least three characters as your password please, "
170	. "that cannot be too much to ask for :)",	234	. "that cannot be too much to ask for :)",
171	cf::NDI_RED	235	cf::NDI_RED
172	);	236	);
		237	Coro::Timer::sleep 0.4;
173	}	238	}
174		239
175	# lock this username for the remainder of this login session	240	# lock this username for the remainder of this login session
176	if ($cf::LOGIN_LOCK{$user}) {	241	if ($cf::LOGIN_LOCK{$user}) {
177	$ns->send_drawinfo (	242	$ns->send_drawinfo (
…		…
183	}	248	}
184	local $cf::LOGIN_LOCK{$user} = 1;	249	local $cf::LOGIN_LOCK{$user} = 1;
185		250
186	check_playing $ns, $user and next;	251	check_playing $ns, $user and next;
187		252
		253	$Coro::current->{desc} = "addme($user) check";
		254
188	# try to read the user file and check the password	255	# try to read the user file and check the password
189	if (my $pl = cf::player::find $user) {	256	if (my $pl = cf::player::find $user) {
190	aio_stat $pl->path and next;	257	aio_stat $pl->path and next;
191	my $mtime = (stat _)[9];	258	my $mtime = (stat _)[9];
192	my $hash = $pl->password;	259	my $hash = $pl->password;
…		…
194	if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) {	261	if ($cf::CFG{ext_login_nocheck} or $hash eq crypt $pass, $hash) {
195	nuke_str $pass;	262	nuke_str $pass;
196	# password matches, wonderful	263	# password matches, wonderful
197	my $pl = cf::player::find $user or next;	264	my $pl = cf::player::find $user or next;
198	$pl->connect ($ns);	265	$pl->connect ($ns);
199	check_clean_save $pl;	266	enter_map $pl;
200	last;	267	last;
201	} elsif (can_cleanup $pl, $mtime) {	268	} elsif (can_cleanup $pl, $mtime) {
202	Coro::Timer::sleep 1;	269	Coro::Timer::sleep 1;
203		270
204	$ns->send_drawinfo (	271	$ns->send_drawinfo (
…		…
229	. "(check for Numlock and other semi-obvious error sources).",	296	. "(check for Numlock and other semi-obvious error sources).",
230	cf::NDI_RED	297	cf::NDI_RED
231	);	298	);
232	next;	299	next;
233	}	300	}
		301	} else {
		302	# unable to load the playerfile:
		303	# check wether the player dir exists, which means the file is corrupted or
		304	# something very similar.
		305	if (!aio_stat cf::player::playerdir $user) {
		306	$ns->send_drawinfo (
		307	"Unable to retrieve this player. It might be a locked or broken account. "
		308	. "If this is your account, ask a dungeon master for assistance. "
		309	. "Otherwise choose a different login name.",
		310	cf::NDI_RED
		311	);
		312	next;
		313	}
234	}	314	}
235		315
236	# the rest of this function is character creation	316	# the rest of this function is character creation
		317	$Coro::current->{desc} = "addme($user) chargen";
237		318
238	# just to make sure nothing is left over	319	# just to make sure nothing is left over
239	nuke_playerdir $user;	320	nuke_playerdir $user;
240		321
241	my $pass2 = query $ns, cf::CS_QUERY_HIDEINPUT, "Please type your password again.";	322	my $pass2 = query $ns, cf::CS_QUERY_HIDEINPUT, "Please type your password again.";
…		…
245	nuke_str $pass2;	326	nuke_str $pass2;
246	$ns->send_drawinfo (	327	$ns->send_drawinfo (
247	"The passwords do not match, please try again.",	328	"The passwords do not match, please try again.",
248	cf::NDI_RED	329	cf::NDI_RED
249	);	330	);
		331	Coro::Timer::sleep 0.5;
250	next;	332	next;
251	}	333	}
252		334
253	nuke_str $pass2;	335	nuke_str $pass2;
254		336
255	my $pl = cf::player::new $user;	337	my $pl = cf::player::new $user;
256	$pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);	338	$pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);
257	nuke_str $pass;	339	nuke_str $pass;
258	$pl->connect ($ns);	340	$pl->connect ($ns);
259
260	my $ob = $pl->ob;	341	my $ob = $pl->ob;
		342
		343	$ob->goto ($pl->maplevel, $ob->x, $ob->y);
261		344
262	while () {	345	while () {
263	$ob->update_stats;	346	$ob->update_stats;
264	$pl->save_stats;	347	$pl->save_stats;
265		348
…		…
275	$ob->swap_stats ($res - 1, $swap - 1);	358	$ob->swap_stats ($res - 1, $swap - 1);
276	}	359	}
277	} else {	360	} else {
278	$ob->roll_stats;	361	$ob->roll_stats;
279	}	362	}
		363
		364	Coro::Timer::sleep 0.2;
280	}	365	}
281		366
282	$ob->set_animation (2);	367	$ob->set_animation (2);
283	$ob->add_statbonus;	368	$ob->add_statbonus;
284		369
285	$ns->send_drawinfo ($ob->msg, cf::NDI_BLUE);	370	while () {
286	$ns->send_packet (sprintf "query %d %s", cf::CS_QUERY_SINGLECHAR,	371	$ns->send_msg ("chargen-race-title", ucfirst $pl->title, -1);
		372	my $msg = $ob->msg;
		373	$msg =~ s/(?<=\S)\n(?=\S)/ /g;
		374	$ns->send_msg ("chargen-race-description", $msg, cf::NDI_BLUE);
		375
		376	my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
287	"Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n");	377	"Now choose a character.\nPress any key to change outlook.\nPress `d' when you're pleased.\n";
288		378
289	$ns->state (cf::ST_CHANGE_CLASS);	379	last if $res =~ /[dD]/;
		380
		381	$pl->chargen_race_next;
		382	Coro::Timer::sleep 0.2;
		383	}
		384
		385	$pl->chargen_race_done;
		386
		387	while () {
		388	my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
		389	"Now choose a gender.\nPress 'f' to become female, and 'm' to become male.\n";
		390
		391	if ($res =~ /^[fF]/) {
		392	$pl->gender (1);
		393	last;
		394	} elsif ($res =~ /^[mM]/) {
		395	$pl->gender (0);
		396	last;
		397	}
		398	Coro::Timer::sleep 0.2;
		399	}
		400
		401	$ob->reply (undef, "Welcome to Deliantra!");
		402
290	delete $pl->{deny_save};#d# too early	403	delete $pl->{deny_save};
291		404
292	last;	405	last;
293	}	406	}
294	});	407	});
295	}	408	});
296		409
297	cf::register_command quit => sub {	410	cf::register_command quit => sub {
298	my ($ob, $arg) = @_;	411	my ($ob, $arg) = @_;
299		412
300	$ob->reply (undef,	413	$ob->reply (undef,
…		…
371	$pl->{unclean_save} = $cf::RUNTIME;	484	$pl->{unclean_save} = $cf::RUNTIME;
372	}	485	}
373	},	486	},
374	);	487	);
375		488
376	sub setup {
377	my ($ns, $args) = @_;
378
379	# run through the cmds of setup
380	# syntax is setup <cmdname1> <parameter> <cmdname2> <parameter> ...
381	#
382	# we send the status of the cmd back, or a FALSE is the cmd is the server unknown
383	# The client then must sort this out
384
385	my %setup = split / +/, $args;
386	while (my ($k, $v) = each %setup) {
387
388	if ($k eq "sound") {
389	$ns->sound ($v);
390
391	} elsif ($k eq "exp64") {
392	$setup{$k} = 1;
393
394	} elsif ($k eq "spellmon") {
395	$ns->monitor_spells ($v);
396
397	} elsif ($k eq "darkness") {
398	$ns->darkness ($v);
399
400	} elsif ($k eq "map1cmd") {
401	$ns->mapmode (cf::Map1Cmd) if $v > 0;
402
403	} elsif ($k eq "map1acmd") {
404	$ns->mapmode (cf::Map1aCmd) if $v > 0;
405
406	} elsif ($k eq "newmapcmd") {
407	$ns->newmapcmd ($v);
408
409	} elsif ($k eq "mapinfocmd") {
410	$ns->mapinfocmd ($v);
411
412	} elsif ($k eq "extcmd") {
413	$ns->extcmd ($v > 0);
414
415	} elsif ($k eq "extmap") {
416	$ns->extmap ($v);
417
418	} elsif ($k eq "facecache") {
419	$ns->facecache ($v);
420
421	} elsif ($k eq "faceset") {
422	$ns->faceset (0);
423	$setup{$k} = 0;
424	# $ns->image2 (1)
425
426	} elsif ($k eq "itemcmd") {
427	# Version of the item protocol command to use. Currently,
428	# only supported versions are 1 and 2. Using a numeric
429	# value will make it very easy to extend this in the future.
430	$ns->itemcmd ($v) if $v >= 1 && $v <= 2;
431
432	$setup{$k} = $ns->itemcmd;
433
434	} elsif ($k eq "mapsize") {
435	my ($x, $y) = split /x/, $v;
436
437	$ns->mapx ($x = max 9, min cf::MAP_CLIENT_X, $x);
438	$ns->mapy ($y = max 9, min cf::MAP_CLIENT_Y, $y);
439
440	$setup{$k} = "${x}x${y}";
441
442	} elsif ($k eq "extendedMapInfos") {
443	$ns->ext_mapinfos ($v);
444
445	} elsif ($k eq "extendedTextInfos") {
446	$ns->has_readable_type ($v);
447
448	} else {
449	# other commands:
450	# sexp: no idea, probably for oudated servers
451	# tick: more stupidity, server should sned a tick per tick
452
453	$setup{$k} = "FALSE";
454	}
455	}
456
457	$ns->send_packet (join " ", setup => %setup);
458
459	cf::datalog setup =>
460	request => $args,
461	reply => \%setup,
462	client => $ns->version,
463	;
464	}
465
466	cf::client->attach (
467	on_addme => \&addme,
468	on_setup => \&setup,
469	);
470
471	#############################################################################	489	#############################################################################
472		490
473	our $SCHEDULE_INTERVAL = 10; # time the player scheduler sleeps between runs	491	our $SCHEDULE_INTERVAL = $cf::CFG{player_schedule_interval} \|\| 10; # time the player scheduler sleeps between runs
474	our $SAVE_TIMEOUT = 20; # save players every n seconds	492	our $SAVE_TIMEOUT = $cf::CFG{player_save_interval} \|\| 20; # save players every n seconds
475		493
476	our $SCHEDULER = cf::async_ext {	494	our $SCHEDULER = cf::async_ext {
477	my $schedule_interval = Coro::Event->timer (after => 1, interval => $SCHEDULE_INTERVAL);	495	$Coro::current->{desc} = "player scheduler";
		496
478	while () {	497	while () {
479	$schedule_interval->next;	498	Coro::EV::timer_once $SCHEDULE_INTERVAL;
480		499
481	# this weird form of iteration over values is used because	500	# this weird form of iteration over values is used because
482	# the hash changes underneath us frequently, and for	501	# the hash changes underneath us frequently, and for
483	# keeps a direct reference to the value without (in 5.8 perls)	502	# keeps a direct reference to the value without (in 5.8 perls)
484	# keeping a reference, so this is prone to crashes or worse.	503	# keeping a reference, so this is prone to crashes or worse.
…		…
488	or next;	507	or next;
489	$pl->valid or next;	508	$pl->valid or next;
490		509
491	eval {	510	eval {
492	if ($pl->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {	511	if ($pl->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {
493	$cf::WAIT_FOR_TICK_ONE->wait;
494	$pl->save;	512	$pl->save;
495		513
496	unless ($pl->active) {	514	unless ($pl->active \|\| $pl->ns) {
497	# check refcounts, this is tricky and needs to be adjusted to fit server internals	515	# check refcounts, this is tricky and needs to be adjusted to fit server internals
498	my $ob = $pl->ob;	516	my $ob = $pl->ob;
499	Scalar::Util::weaken $pl;	517
500	Scalar::Util::weaken $ob;
501	my $a_ = $pl->refcnt;#d#
502	my $b_ = $ob->refcnt;#d#
503	my $pl_ref = $pl->refcnt_cnt;	518	my $pl_ref = $pl->refcnt_cnt;
504	my $ob_ref = $ob->refcnt_cnt;	519	my $ob_ref = $ob->refcnt_cnt;
505		520
506	## pl_ref == one from object + one from cf::PLAYER	521	## pl_ref == $pl + ob->contr + %cf::PLAYER
507	## ob_ref == one from simply being an object	522	## ob_ref == $ob + pl->observe + simply being an object
508	if ($pl_ref == 2 && $ob_ref == 1) {	523	if ($pl_ref == 3 && $ob_ref == 3) {
509	warn "player-scheduler destroy ", $ob->name;#d#	524	warn "player-scheduler destroy ", $ob->name;#d#
510		525
511	# remove from sight and get fresh "copies"	526	# remove from sight and get fresh "copies"
512	$pl = delete $cf::PLAYER{$ob->name};	527	$pl = delete $cf::PLAYER{$ob->name};
513	$ob = $pl->ob;	528	$ob = $pl->ob;
514		529
515	$ob->destroy;
516	$pl->destroy;	530	$pl->destroy; # destroys $ob
517	} else {	531	} else {
		532	my $a_ = $pl->refcnt;#d#
		533	my $b_ = $ob->refcnt;#d#
		534
518	warn "player-scheduler refcnt ", $ob->name, " $pl_ref,$a_ $ob_ref,$b_\n";#d#	535	warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref ob $ob_ref (C pl $a_ ob $b_)\n";#d#
519	}	536	}
520	}	537	}
521	}	538	}
522	};	539	};
523	warn $@ if $@;	540	warn $@ if $@;

Diff Legend

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

Comparing deliantra/server/ext/login.ext (file contents): Revision 1.32 by root, Mon Apr 2 18:04:45 2007 UTC vs. Revision 1.75 by root, Wed Dec 26 21:38:02 2007 UTC

Diff Legend

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.32 by root, Mon Apr 2 18:04:45 2007 UTC vs.
Revision 1.75 by root, Wed Dec 26 21:38:02 2007 UTC