[agd-cvs] server/src dfuns.c,1.13,1.14

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

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10923

Modified Files:
	dfuns.c 
Log Message:
Added dfuns query_ip, query_hostname, asctime, changed time().

Index: dfuns.c
===================================================================
RCS file: /cvsroot/agd/server/src/dfuns.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- dfuns.c	18 Mar 2004 20:47:36 -0000	1.13
+++ dfuns.c	21 Mar 2004 08:52:29 -0000	1.14
@@ -3,6 +3,7 @@
 #include "dfuns.h"
 #include <time.h>
 #include <errno.h>
+#include <netdb.h> /* for gethostbyaddr() */
 
 extern time_t startup_time; /* for uptime() */
 extern variable_t *fp, *sp;
@@ -53,6 +54,7 @@
 	return len;
 }
 
+#if 0
 char *do_time(void)
 {
 	static char buf[512];
@@ -63,6 +65,7 @@
 	strftime(buf, 512, "%T %d %B %Y", tm);
 	return buf;
 }
+#endif
 
 void shout(char *s, object_t *exclude)
 {
@@ -88,8 +91,49 @@
 	push_void();
 }
 
+char *get_ip(object_t *ob) {
+	if(!ob->iaob)
+		return NULL;
+	return inet_ntoa(ob->iaob->conn.addr.sin_addr);
+}
+
+void df_query_ip(void) {
+	char *s;
+	s = get_ip(fp->u.ob);
+	pop_stack();
+	push_string(s, ST_STATIC);
+}
+
+void df_query_hostname(void) {
+	char *s;
+	struct hostent *he;
+
+	s = get_ip(fp->u.ob);
+	if(!s)
+		goto out;
+	he = gethostbyaddr(s, strlen(s), AF_INET);
+	if(!he)
+		goto out;
+	s = he->h_name;
+
+out:
+	pop_stack();
+	push_string(s, ST_STATIC);
+}
+
 void df_time(void) {
-	push_string(do_time(), ST_STATIC);
+	push_int(time(NULL));
+}
+
+void df_asctime(void) {
+	time_t t;
+	char *s;
+	
+	t = fp->u.i;
+	s = ctime(&t);
+	s[strlen(s)-1] = '\0'; /* Remove the newline. */
+	pop_stack();
+	push_string(s, ST_STATIC);
 }
 
 void df_shout(void) {
@@ -250,10 +294,3 @@
 	push_string(s, ST_MALLOC);
 }
 
-/* Debugging. */
-void df_print_objs(void)
-{
-	print_objs();
-	push_void();
-}
-