Foro - Perl en Español

por **Logan** » 2005-11-07 14:10 @632

Hola a todos.

Necesito hacer un script que cambie el usuario durante su ejecución, es decir, después de que cree un archivo se cambie de usuario para que pueda escribir en un sistema de archivos.

He intentado con esto:
system("su - user");
system("pwdofuser");

Pero no funciona :cry:

¿Alguien podría ayudarme, por favor?

Saludos

Pues no, es para cambiar de personalidad (de usuario).

Te decía que miraras también el siguiente mensaje porque en él recuerda que para poder hacer el cambio de usuario, hay que poner el bit suid al script.

No tengo ningún ejemplo más.

A ver si alguno de los expertos de por aquí puede explicar algo mejor como hacer esto.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my ($login,$pass,$uid,$gid) = getpwnam('username');
# gid must be changed before uid. at least on my computer <img src="http://perlenespanol.com/foro/images/smilies/icon_smile.gif" alt=":)" title="Smile" />
$( = $gid;
$) = $gid;
$< = $uid;
$> = $uid;
 
## Check that we managed to change Group/User IDs properly...
## Change warn to die if it's important to you
if (  ((split(/ /,$)))[0] ne $gid) || ((split(/ /,$())[0] ne $gid)  ) {
         warn "Couldn't Change Group ID!\n";
}
 
if (  ($> ne $uid) || ($< ne $uid)  ) {
         warn "Couldn't Change User ID!\n";
}
 
## We don't need these anymore...
undef($login);
undef($pass);
undef($uid);
undef($gid);
 
# and so the program will actually RUN at this user:
fork and exit;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **AkonD** » 2005-11-08 10:08 @464

Perl no deja cambiar el valor de la variables $<, $>, $) y $( a no ser que la máquina tenga soporte para setreuid() y system call.

Por otra parte, el script está algo mal ya que se pueden ver los errores al asignar la variable sino tenemos system call o setreuid().

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my ($login,$pass,$uid,$gid) = getpwnam('username');
# gid must be changed before uid. at least on my computer :)
$( = $gid or die $!;
$) = $gid or die $!;
$< = $uid or die $!; 
$> = $uid or die $!;
 
## We don't need these anymore...
undef($login);
undef($pass);
undef($uid);
undef($gid);
 
# and so the program will actually RUN at this user:
fork and exit;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Uso del "su -" en un script

Uso del "su -" en un script

Publicidad

¿Quién está conectado?