[rlug] Re: perl question

[Bogdan Marinca]

On Tue, 27 Nov 2001, Bogdan Marinca wrote:
[...]
> > asa am zis si eu dar programelul meu de test imi da ca nu are aceasta
> > functie setuid()/setgid()
> > :((
> ai pus un
> 
> use POSIX;
> 
> pe la inceputul scriptului cum iti zisei?
> 
> (si totusi parca nu prea are efect setuid() dupa cum tocmai am 
> facut un test, wtf?, tie`ti merge?) :((

Acelasi drac face ...

sub setuid {
    usage "setuid(uid)" if @_ != 1;
    $< = $_[0];
}

deci ramane doar varianta cu /usr/bin/suidperl
sau ... un apel system din perl ... sa mai sap ...

Bogdan
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to 
unsubscribe from this list.