[Perl] Como desarrolar...

[Alejandra Carrillo V.]

> -----Original Message-----
> From: perl-admin@tlali.iztacala.unam.mx
> [mailto:perl-admin@tlali.iztacala.unam.mx]On Behalf Of Jessica Alvarez
> Sent: Tuesday, October 09, 2001 3:38 PM
> To: perl@tlali.iztacala.unam.mx
> Subject: [Perl] Como desarrolar...
>
>
> Hola ..
>
> Estoy en un proyecto en el cual se debe de dar de alta
> a usuarios por unas formas de cgi por el web, ahora mi
> problema es que solo root puede dar de alta usuarios,
> los privilegios si los tengo, pero como le hago para
> hacer estos cgi's, es decir existe algunas funciones
> de perl para hacer los sockets o algo por el estilo,
> el administrador del servidor me dijo que eran unos
> sockets que tenia que programar pero no se por donde
> empezar..
>
> Gracias...

   Podr=EDas utilizar CGIWRAP para correr el cgi como usuario
   root, aunque creo que puede ser riegozo. Lo puedes bajar
   de http://www.unixtools.org/cgiwrap/

   yo ten=EDa una rutina que con una forma web daba de alta
   usuarios en linux, conten=EDa en la forma:

   <form method=3D"POST" action=3D"/cgi-bin/cgiwrap/root/add-user.pl">

   y el script de perl:

   #!/usr/bin/perl
   use CGI qw/:all/;
   use CGI::Carp qw(fatalsToBrowser);
   $usuario  =3D param('usuario');
   $command =3D "/usr/sbin/useradd";
   $exe =3D `$command  -m -c \'\' -d /home/$usuario -s \'/bin/bash\' -G \=
'\' -g 100 -e \'\' $usuario`;

   La forma y el script estaban en la p=E1gina personal del usuario
   root en el directorio public_html.

   Espero que te sirva.

   Ciao,
   Alejandra.