perl

[Ondrej Cernos]

> > M> Zdravim chtel bych se zeptat jak muzu provest v skriptu napsanem v perlu
> > M> napriklad prikaz adduser + parametry. Nejak me to nejde.
> >
> > `/usr/bin/adduser blabla`;
> >
> > ty apostrofy jsou obracene. (Klavesa nad tabelatorem)
> 
> spravne ma byt /usr/sbin/adduser !!!
> jinak ten perlovskej skript bude mozne spoustet pouze pod root nebo pod su 
> modem.

K tomu je treba dodat dve veci:

1. suid bit na skriptech je kernelem ignorovany (tj. suid se neprovede)
2. Obejit to lze nejakym wrapperem typu

#define REAL_PATH "/cesta/ke/skriptu.pl"
main(ac, av)
        char **av;
{
        execv(REAL_PATH, av);
}

kteremu se priradi suid bit.

Ovsem perl, pokud zjisti ze bezi suid, je velmi haklivy na bezpecnost a
kod vaseho skriptu bude muset byt napsany dle jistych pravidel...

ondrej