On Fri, 2003-12-12 at 00:32, Stas Bekman wrote:
> Can you please try this one:
>
> % perl -le ' \
> my($uid, $gid) = (getpwnam("nobody"))[2..3]; \
> $( = $) = $gid+0; \
> die "failed to change gid to $gid (now: $(, $))" if $( != $gid; \
> $< = $> = $uid+0; \
> die "failed to change uid to $uid (now: $<, $>)" if $< != $uid; \
> print -r q{/root} && -w _ && -x _ ? q{OK} : q{NOK};'
>
Answer is NOK
Regards
Volker
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
