[agd-cvs] server/lib/sys login.lpc,1.1,1.2

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib/sys
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1210

Modified Files:
	login.lpc 
Log Message:
Some changes to keep up with the driver. :)

Index: login.lpc
===================================================================
RCS file: /cvsroot/agd/server/lib/sys/login.lpc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- login.lpc	21 Jul 2004 12:11:21 -0000	1.1
+++ login.lpc	24 Jul 2004 18:07:20 -0000	1.2
@@ -1,12 +1,11 @@
-/* For later, when we do users()->query_name() */
 string query_name() {
 	return "someone not logged in yet";
 }
 
 void logon() {
 	write("Welcome! You are connecting from " /* +
-		query_hostname(this_object()) + " ("*/  + 
-		query_ip(this_object()) + /*")"*/".\n");
+		query_ip_name(this_object()) + " ("*/  + 
+		query_ip_number(this_object()) + /*")"*/".\n");
 	write("\nEnter your name: ");
 	input_to("logon2");
 }
@@ -18,17 +17,16 @@
 	ob = clone_object("/sys/player");
 	if(!ob) {
 		write("Uh-oh, the player object doesn't load!\n");
-		destruct(this_object());
+		destruct();
 		return;
 	}
 
 	ob->set_name(name);
-	t = strftime(time(), "[%H:%M] ");
-        shout(t + name + " has joined the game\n");
-        write(t + "You have joined the game.\n");
+	shout(name + " enters the game\n");
 	write("Use 'help' to get a list of commands.\n");
 	exec(ob);
-	destruct(this_object());
+	ob->setup_cmds();
+	destruct();
 }
 
 void logon2(string name) {
@@ -82,5 +80,5 @@
 
 void net_dead() {
 	/* Don't want to keep stray login objects. */
-	destruct(this_object());
+	destruct();
 }