> > > > 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.
