#!/usr/bin/perl
#
# Autore: Federico Di Cesare
# Data: 20/01/2017
# Descrizione: script per l'inserimento di un utente in MajorNet dal captive portal (tramite frontendproc)
#

#Require
require '/etc/mnvars.pl';
require '/usr/local/majormin/useradmin/userLibNew.pl';
require '/usr/local/majormin/useradmin/userlib.pl';
#Variabili
my $uid = $ARGV[0];
my $password = $ARGV[1];
my $mail = "";
my $displayname= "";
if ($ARGV[2] ne "") {
	$displayname = $ARGV[2] ;
	chop($displayname);
}
if ($ARGV[3] ne "") {
	$mail = $ARGV[3] ;
	
}


if ($uid ne "") {
	
	my %in = ( displayName => $displayname, uid => $uid , userPassword => $password, mail => $mail);
	my $res;
	#Aggiungo un utente
	$res = &deleteUser($uid);
	print $res.";";
	if ($res eq 0) {
		print "OK";
		
	}
	if ($res eq 1) {
		print "error";
		
	}
	

	# Variabile che indica il risultato dell'operazione
	#       * -1: errore durante l'operazione
	#       * 0: operazione avvenuta con successo (creazione)
	#       * 5: operazione avvenuta con successo (modifica)
	#       * 1: raggiunto il numero massimo di utenti possibili
	#       * 2: raggiunto il numero massimo di licenze possibili
	#       * 3: inseriti dei campi non corretti
	#       * 4: inserito un UID riservato per il sistema
	
}