|
- #!/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);
-
- #Aggiungo un utente
- my %res = &addUser(\%in);
- print "$res{'return'};";
- if ($res{'return'} eq 0) {
- print "OK";
-
- }
- if ($res{'return'} eq 1) {
- print "MaxUserReached";
-
- }
- if ($res{'return'} eq 2) {
- print "InsufResources";
-
- }
- if ($res{'return'} eq 3) {
- delete $res{'return'};
-
- while (my ($key, $value) = each(%res)) {
- if ($value eq 1) {
- print "$key nullValue ";
- } else {
- print "$key $in{$key} errorChars acceptedChars $value";
- }
- }
- }
- if ($res{'return'} eq 4) {
- print "systemUser";
- }
- if ($res{'return'} eq 5) {
- print "checkUID";
-
- }
-
- # 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
-
- }
|