script para add usuarios

1. script para add usuarios

Maximilian Hotta
x-bomber

(usa Mandrake)

Enviado em 08/11/2006 - 10:41h

Buenas pessoal...
sera que algueem pode me dar uma mao??

seguinte.
Tenho um script de inclusao de usuarios, e criação de um diretorio HOME, acessivel somente a este usuario...
eh criado um diretorio /home, onde eh armazenado o perfil da rede, e um diretorio /dados/home aonde o usuario pode armazenar seus documentos, etc.

ao executar o script, da a seguinte msg:bad interpreter:arquivo ou diretorio nao encontrado

mas os arquivos que estao no script, exixtem(no caso eh o relacaousuario.txt)e os diretorio tmb existem....

sera que alguem pode dar uma mao??abaixo o script que estou tentando executar

#!/usr/bin/perl
#

#Relação de usuarios existentes no sistema
#Para inclusão de novos usuários deve-se incluir o usuário
#no arquivo abaixo.
$file = "relacaousuarios.txt";

if ( -e $file )
{
open(arq, $file) or die "Não foi possivel abrir o arquivo";
@linhas = <arq>;
close(arq);


$i=0;
while (@linhas[$i])
{
#($nome) = (@linhas[$i]);
# Separa o arquivo da lista em partes, como nome, grupo.
($cgm, $nome, $grupo, $turmaux) = split(/\|/, @linhas[$i]);

# Cria diretórios Home
system "/bin/mkdir /home/" . $nome;
system "/bin/mkdir /dados/home/" . $nome;
print "/bin/mkdir /home/" . $nome;

#print "-----------------------------------------\n";

# Imprime na tela a lista com os nomes dos usuários e
#os atributos que estão sendo assumidos.
# Seta permissões para usuários
print "/bin/chown -Rv " .$nome." /home/".$nome;
system "/bin/chown ".$nome.":$grupo"." /home/".$nome;
system "/bin/chown ".$nome.":$grupo"." /dados/home/".$nome;

#print "-----------------------------------------\n";
$i++;
}
}