scipt para criacao de usuario no sistema.

Galera to com o seguinte problema fiz um scrript para cricacao de ususario no sistema...ele ja cria o no linux, o dominio no apache e no dns ...mas qdo rodo no localhost ele roda sem problemas agora quando chamo ele atraves de uma pagina da web ele da uns erro de senha. (visivel apenas pelos logs)

ja tentei utilizar o sudo e liberar os comando para o usuario e o grupo do apache e funcionou mas ao chegar no comando para abrir o arquivo com os dominios virtuais para inserir os parametros ele volta o mesmo erro....abaixo segue o script


alguem q utiliza sciprt para criacao poderia me ajudar ??estou precisando muito disso...


#!/usr/bin/perl

# Cria o subdiretorio para ativacao do dominio
system("/usr/bin/sudo /usr/sbin/useradd -d /home/dominio/users/wolf -s /bin/false -p 123 wolf");
system("/usr/bin/sudo /bin/mkdir /etc/httpd/logs/wolf");
system("/usr/bin/sudo /bin/chmod 755 /home/dominio/users/wolf");
system("/usr/bin/sudo /bin/cp /home/dominio/users/dominio/index_users.htm /home/dominio/users/wolf/index.htm");
system("/usr/bin/sudo /bin/chown wolf:apache /home/dominio/users/wolf -R");
# Fim

# Cria dominio com php
open(dominio,">>/etc/httpd/conf/dominios.virtuais");
print dominio "#### wolf.COM.BR ####\n";
print dominio "<VirtualHost *:80>\n";
print dominio "ServerAdmin [email protected]\n";
print dominio "DocumentRoot /home/dominio/users/wolf\n";
print dominio "DirectoryIndex index.htm index.php\n";
print dominio "ServerName www.wolf.com.br\n";
print dominio "ErrorLog /etc/httpd/logs/wolf/error_log\n";
print dominio "CustomLog /etc/httpd/logs/wolf/access_log common\n";
print dominio "<Directory \"/home/dominio/users/wolf\">\n";
print dominio "AddType application/x-httpd-php .php\n";
print dominio "</Directory>\n";
print dominio "</VirtualHost>\n";
print dominio "######################\n";
close(dominio);
# Restart APACHE
system("/usr/bin/sudo /usr/bin/killall -HUP httpd\n");
# Fim
# Fim

# Cria o dominio no DNS
open(dominioDNS,">>/etc/named.conf\n");
print dominioDNS "\n\n\n#### wolf.COM.BR ####\n";
print dominioDNS "zone \"wolf.com.br\" IN {\n";
print dominioDNS " type master;\n";
print dominioDNS " file \"wolf.hosts\";\n";
print dominioDNS " allow-update { none; };\n";
print dominioDNS "};\n";
print dominioDNS "######################\n";
close(dominioDNS);



system("/usr/bin/sudo /bin/touch /var/named/chroot/var/named/wolf.hosts");
open(dominioDNS,">>/var/named/chroot/var/named/wolf.hosts");
print dominioDNS "\$TTL 21600\n";
print dominioDNS "@ IN SOA www.wolf.com.br. root.ns.wolf.com.br. (\n";
print dominioDNS "2003103000 ; Serial\n";
print dominioDNS "10800 ; Refresh\n";
print dominioDNS "3600 ; Retry\n";
print dominioDNS "604800 ; Expire\n";
print dominioDNS "86400 ) ; Minimum\n";
print dominioDNS "@ IN NS www.wolf.com.br.\n";
print dominioDNS "IN MX 0 mail.wolf.com.br.\n";
print dominioDNS "www IN A 192.168.0.2\n";
print dominioDNS "mx IN A 192.168.0.4\n";
print dominioDNS "ftp IN A 192.168.0.2\n";
print dominioDNS "mail IN A 192.168.0.4\n";
print dominioDNS "@ IN A 192.168.0.2\n";

close(dominioDNS);
# Fim

# Restart do DNS
system("/usr/bin/sudo /etc/rc.d/init.d/named restart\n");
# Fim




obrigado..

Vwolf