[Tech] ingroup()

[Franco Bagnoli]

On Thu, 21 Mar 2002, Leonardo Boselli wrote:

> Esiste nel perl standard una funzione del tipo:
> bool ingroup(username,groupname)
> che mi ritorni vero o falso a seconda se l'user username sia o no
> membro del gruppo groupname ?
> in modo che possa fare:
>   if( ! ingroup($user,"gruppoammesso"))
>     { printf "Prrrrrr...\n"; die; }
>   else
>     { ... bigprogram ... }
> ?

if ((getgrnam($group))[3] !~ /\b$user\b/) {
   print "Prrrrrr...\n"; die;
} else {
   print "ok\n";
}

-- 
Franco Bagnoli (franchino) <bagnoli@dma.unifi.it>
virtual location: Dipartimento di Energetica "S. Stecco"
real location: Dip. Matematica Applicata "G. Sansone", Universita' Firenze,
Via S. Marta, 3 I-50139 Firenze, Italy. Tel. +39 0554796422, fax: +39 055471787
GPG Key fingerprint = 169D 9EA5 8FD3 7EDA E43A  9830 255F BCEC 0D63 3728