slightly OT: perl script for finding samba connections

[Yan Seiner]

I know this is verging on OT, but here goes:

I am working on a security script for samba with dhcp.  Basically, what
this will do is allow access only to authenticated users from known
machines.

I have a great start from some donated scripts, but perl is not my
native tongue...  I am using --with-utmp to track samba connections. 
What I need is some guidance on getting the samba connections from the
utmp database into perl.  A perl equivalent of "who" so to speak, that I
can then parse for /smb/.

Thanks,

--Yan

--

Daddy, did all the hair that fell off your head stick to your arms?
Akari, age 4
 ... 
 oberon.cardhome.lan: 6:15am up 11:50, 4 users, load average: 0.34,
0.14, 0.15