#!/usr/bin/perl 

use strict;
use esmith::TestUtils;
use esmith::FormMagick::Panel::useraccounts1;

#delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; 

open (USUARIOS, "</root/usuarios.txt") or die "Cant open the file /root/usuarios.txt";
while (<USUARIOS>) {
	delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; 
	my @p = split (":");
	my $cuenta = $p[0]; 
	my $nom = $p[1];
	my $ape = $p[2];
	chop $ape;

	#my $cuenta = "flopez"; 
	#my $nom = "Francisco";
	#my $ape = "Lopez";
	
	print esmith::FormMagick::Panel::useraccounts1->create_user("$cuenta", "$nom", "$ape", "225-5656", "Epensa", "Sistemas", "Lima", "Salazar Araoz 171") . "\n";
	esmith::FormMagick::Panel::useraccounts1->reset_password("$cuenta", "password");
	
	print "Se ha creado el usuario $p[0]\n"; 
	}
        
close (USUARIOS);