diff plugins/zephyr/ZGetWGPort.c @ 1700:1e0fa7e130d0

[gaim-migrate @ 1710] Zephyr. committer: Tailor Script <[e-mail]>

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/zephyr/ZGetWGPort.c	Thu Apr 12 09:21:16 2001 +0000
@@ -0,0 +1,42 @@
+/* This file is part of the Project Athena Zephyr Notification System.
+ * It contains source for the ZGetWGPort function.
+ *
+ *	Created by:	Robert French
+ *
+ *	$Source$
+ *	$Author: warmenhoven $
+ *
+ *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
+ *	For copying and distribution information, see the file
+ *	"mit-copyright.h". 
+ */
+/* $Header$ */
+
+#ifndef lint
+static char rcsid_ZGetWGPort_c[] = "$Header$";
+#endif
+
+#include <internal.h>
+
+int ZGetWGPort()
+{
+    char *envptr, name[128];
+    FILE *fp;
+    int wgport;
+	
+    envptr = getenv("WGFILE");
+    if (!envptr) {
+	(void) sprintf(name, "/tmp/wg.%d", getuid());
+	envptr = name;
+    } 
+    if (!(fp = fopen(envptr, "r")))
+	return (-1);
+
+    /* if fscanf fails, return -1 via wgport */
+    if (fscanf(fp, "%d", &wgport) != 1)
+	    wgport = -1;
+
+    (void) fclose(fp);
+
+    return (wgport);
+}