From cb9ab5905b5931578fe378d82f03de2ce21ceb7e Mon Sep 17 00:00:00 2001
From: neingeist <neingeist@bl0rg.net>
Date: Mon, 20 May 2002 13:12:42 +0000
Subject: [PATCH] Initial CVS Import

---
 nullidentd | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 nullidentd

diff --git a/nullidentd b/nullidentd
new file mode 100755
index 0000000..62b3e78
--- /dev/null
+++ b/nullidentd
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+$TIMEOUT            = 3;
+$BUFLEN             = 1024;
+
+vec($rin='', fileno(STDIN), 1) = 1;
+select($rout=$rin, undef, undef, $TIMEOUT);
+
+if (vec($rout, fileno(STDIN),1)) 
+{
+   exit if (sysread(STDIN, $line, $BUFLEN) < 1);
+   ($serverPort, $clientPort) = split(',', $line);
+   $serverPort = int($serverPort);
+   $clientPort = int($clientPort);
+   exit if ($serverPort < 1 || $clientPort < 1);
+
+   printf("%s , %s : USERID : %s : %s\r\n", $serverPort, $clientPort, "MSDOS", "billgates");
+}