|
- #!/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
-
- }
|
