Perlscript mit Rootrechten

[Nils Juenemann]

Lutz Donnerhacke wrote:

> Du möchtest einen Wrapper für Dein Perl Script schreiben, der folgender-
> maßen aussieht und der +s ist.

nils at extreme:~ > wrapper testprg
Insecure $ENV{PATH} while running setuid at /home/nils/testprg line 2.

Programm wird nicht ausgefuehrt. 

nils at extreme:~ > cat testprg
#!/usr/bin/perl
system("ls /root");

Wenn ich die Shellvariablen PATH und IFS auskommentiere funktioniert es 
allerdings.

const char pathtoscript[] = "/home/nils/";
char * const enviroment[] = {
/*  "PATH=/bin:/sbin:/usr/bin:/usr/sbin",
    "IFS=' \t\r\n'", */
    "SHELL=/bin/sh",
    NULL
};

Gruss

nils

-- 
Hi! I'm a .signature virus! Copy me into you .signature to help me
spread!