GID mit perl setzten

[blackm]

Hi,

ich möchte die GID eines Prozesses ändern. Mit

Code: Alles auswählen

#! /usr/bin/perl -w

use strict;
use diagnostics;
use POSIX;


print "UID: $>\n"; # $> --> effektive UID
print "GID: $)\n"; # $) --> effective GID

POSIX::setuid(23456);
POSIX::setgid(456);
POSIX::setpgid(456, 456);
system("touch /tmp/test");
system("ls -l /tmp/test");
unlink("/tmp/test");
$) = 45674;

print "$>\n";
print "$)\n";

wollte ich das ganze testen. Klappt aber leider nicht (Das Script lief als root). Die erzeugte Datei gehört dem user 23456 und der Gruppe root....

Jemand ne Idee?

by, Martin

[pdreker]

Der User exisitert im System?

Passiert einfach nix, oder gibt's nen Fehler? PERL ist da manchmal etwas schweigsam. Kontrollier doch 'mal die Rückgabewerte von setuid und Co...

Patrick

[Olaf Dietsche]

Nachdem du setuid() gemacht hast, bist du nicht mehr root und darfst deswegen setgid() nicht mehr ausführen. Versuche mal setuid() am Schluß aufzurufen.

[blackm]

Mensch Olaf, du bist auf jeden Fall der Held des Tages für mich. Sowas in der Richtig war mir heute Nacht auch eingefallen (komische Sachen von ich träume, oder?) aber wer weiss wann ich das ausprobiert hätte...

Nun funktioniert es, Danke für den Hinweis.

[Olaf Dietsche]

Danke für die Blumen