Un Geek En Australia

#!/usr/local/bin/perl
# Archivo usado para crear TODOS los usuarios en el sistema. Por defecto los usuarios se crean sin acceso al shell.
# El archivo a usar se llama usuarios
# El archivo tiene que tener la siguiente estructura.
# usuario:password:nombre:grupo

$file = ‘usuarios.txt’;

# $usuario = Nombre de Usuario
# $nombre = Nombre de la persona
# $password = Password de la cuenta
# $grupo = Grupo primario al cual pertenece

sub trim {
my($string)=@_;
for($string){
s/^\s+//;
s/\s+$//;
}
return $string;
}

$comillas = chr(34);
$slash = chr(47);
open (FILE,”$file”);

print “Que desea hacer?\n”;
print “1. Crear todos los usuarios\n”;
print “2. Eliminar todos los usuarios\n”;
$elec = <stdin>;

while($linea = ){
chop($linea);
@fields = split(/:/,$linea);
$usuario = @fields[0];
$password = @fields[1];
$nombre = “$comillas@fields[2]$comillas”;
$grupo = @fields[3];
chop($grupo);
$pass_enc = crypt(trim($password) , ‘yourkey’);
if($elec == 1) {
system(”useradd $usuario”);
system(”usermod -s /bin/nologin -c $nombre -g $grupo -p $pass_enc $usuario”);
print “Usuario $usuario creado\n”;
}
elsif ($elec == 2) {
system(”userdel $usuario”);
system(”groupdel $usuario”);
print “Usuario $usuario eliminado\n”;
}
else {
print “Por favor escoja un valor entre el 1 o el 2″;
}
}
close(FILE);