Re: [PERL] UID for sockets

[David Darville <sslug@sslug>]

On Thu, Oct 23, 2003 at 08:39:54PM +0200, Lars Thegler wrote:
> David Darville wrote:
> > Jeg sidder og har brug for at se hvilken bruger der forbinder sig til
> > en domain socket, men jeg kan ikke lige se hvordan man gør det.
> >
> > Derudover ville jeg også gerne kunne gøre det samme for tcp
> > forbindelser, via localhost - men der bliver nok lidt sværere.
> 
> Det er ikke lige et Perl spørgsmål, men prøv at kigge på 'lsof'.

Jo, det er er perl spørgsmål, og jeg fant selv løsningen. For domain sockets
kan man lave:

my ( $pid, $uid, $gid ) =
          unpack( 'LLL', getsockopt( $client, SOL_SOCKET, SO_PEERCRED ) );

Og for tcp forbindelser via localhost, kan man kigge i /proc/net/tcp

MVH David