--- cipe-1.5.2/pkcipe/main.c	Fri Jan  5 00:04:38 2001
+++ cipe-1.5.2-p/pkcipe/main.c	Sun May  5 22:11:40 2002
@@ -270,6 +270,7 @@
 	    sa.sin_addr.s_addr=htonl(INADDR_ANY);
 	}
 	Log(LOG_INFO, "connect from %s", inet_ntoa(sa.sin_addr));
+	setenv("real_peer", inet_ntoa(sa.sin_addr), 1);
 	return doFD(0, or ? ra.sin_addr : sa.sin_addr);
     }
 }