summaryrefslogtreecommitdiff
blob: 248fcc08f203be137d8882ee94fb00bc73ae8fd2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
--- midentd.orig	2004-05-13 21:57:43.642441512 -0400
+++ midentd	2004-05-13 22:01:10.165045304 -0400
@@ -74,6 +75,7 @@
 	close STDIN; open STDIN, "/dev/null";
 	close STDOUT; open STDOUT, ">/dev/null";
 	close STDERR; open STDERR, ">/dev/null";
+	open PIDFILE, ">/var/run/midentd.pid";
 	umask 0466;
 	&logger ("Daemon started, listening.");
 	# FIXME, maximum number of connections should be limited
@@ -87,6 +89,8 @@
 	if ($< != $uid || $> != $uid) {
 		die "Can't change UID\n";
 	}
+    print PIDFILE $$;
+    close PIDFILE;
 	while (accept (SOCKET, SERVER)) {
 		$in = *SOCKET;
 		$out = *SOCKET;