On Tue, 27 Nov 2001, Matei Conovici wrote:
>
>
> > > > > cum se face in perl setuid/setgid ? (fara /bin/su sau altceva extern)
>
> > suidperl nu mai exista (s-a curatat SUID_ul la ultimul find -perm +4000)
> > deci scriptul este lansat ca root si are drepturi sa faca setuid/setgid
> > problema este cum se face asta din perl?
>
> Man, la mine merge:
>
> --8<--
> #! /usr/bin/perl
>
> $< = 501;
> $( = 20;
>
> $> = 501;
> $) = 20;
>
> system("id -a");
> ---
>
> uid=501 gid=20(dialout) groups=0(root)
>
> Ca sa te scoti din restul de grupuri (setgroups) ar tb. ca la $( si $)
> sa pui acelasi gid de doua ori cam asa '20 20', dar la mine nu a parut
> sa functioneze, sau am gresit la ceva...
>
> Matei
> ---
> Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
> unsubscribe from this list.
>
>
mersi a mers beton
deci cu grupurile cum fac ?
----------------------------
Mihai RUSU
"... and what if this is as good as it gets ?"
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
