inetid is a simple wrapper for services started from inetd.conf. It can give you ip-, host- and port-information about the socket that's created when your service gets spawned by inetd. you can use it with or without tcp_wrappers. available in perl & C.