[Madrid-pm] Presentacion y primera. SOS
Miren Urkixo
miren en tinieblas.com
Mie Mayo 16 14:55:29 PDT 2007
Hola soy nueva por aqui, buenas noches
Estoy empezando con perl ytengo que hacer unas cosillas.
bien, os comento a ver si me podeis hechar una mano.
Resulta que estoy haciendo un programita para dar de alta, en un linux,
usuairos. lo tengo que hacer y ademas con perl.
bien he hecho algo que lleva el codigo de abajo con el que pretendo dar de
alta un usuari ocon el comando:
useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s \/bin\/bash
$aplicacion
donde aplic_base es un directorio (/home/pruebas) y $aplicacion es el
usuario
me da unerror en la linea del user add.
Me podriais ayudar?
muchas gracias y un saludo
Ah por otra parte el comando este me pide el password encriptado (cryp) me
podeis ayudar tambien en esto?
muchas gracias
#!/usr/bin/perl
use CGI;
$aplic_base="/home/pruebas";
#tantas lineas como la sigueinte seran necesarias para que pida mas
parametros, una por cada parametro
$aplicacion = &promptEntrada("Codigo de aplicacion (Minusculas) ");
print "#############################################\n";
print "Empiezo a crear aplicacion $aplicacion ....\n";
print "#############################################\n";
if($aplicacion ne ""){
useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s
\/bin\/bash $aplicacion;
}else{
print "######################################\n";
print "Aplicacion NO correcta\n";
print "######################################\n";
exit;
}
sub promptEntrada{
local($promptString,$defaultValue) = @_;
if ($defaultValue) {
print $promptString, "[", $defaultValue, "]: ";
} else {
print $promptString, ": ";
}
$| = 1; # force a flush after our print
$_ = <STDIN>; # get the input from STDIN (presumably the
keyboard)
chomp;
if ("$defaultValue") {
print "Si\n";
return $_ ? $_ : $defaultValue; # return $_ if it has a value
} else {
print "No\n";
return $_;
}
}
Más información sobre la lista de distribución Madrid-pm