Perl > AddAccount script pour diboo

#!/usr/bin/perl -w

# Script d'installation d'un compte diboo
#
# Usage : perl add_diboo_account.pl [login] [mot_de_passe] [prenom] [nom]
#
# Le script installe :
#                       - le compte client VHCS (via VHCS/add_vhcs_account.pl) {1}
#                       - un login FTP par défaut (via VHCS/add_vhcs_ftpAccount.pl) {2}
#                       - le compte sur le forum diboo (via Diboo/add_forum_account.pl) {3}
#                       - l'enregistrement DNS (ou le modifie si l'enregistrement est déja présent {4}

$user_login = $ARGV[0];
$user_pass = $ARGV[1];
$user_fname = $ARGV[2];
$user_lname = $ARGV[3];
$migration = $ARGV[4];

if(!defined($user_login) || !defined($user_pass) || !defined($user_fname) || !defined($user_lname)) {
        print "Un ou plusieurs arguments sont manquants. L'utilisateur n'a pu être ajouténn";
        print "Syntaxe : perl add_diboo_account.pl [login] [mot_de_passe] [prenom] [nom]n";
        exit;
}

# {1}
system("cd VHCS && ./add_vhcs_account.pl ".$user_login." ".$user_pass." ".$user_fname." ".$user_lname);

# {2}
system("cd VHCS && ./add_vhcs_ftpAccount.pl ".$user_login." ".$user_pass);

# {3}
if($migration ne "migration") {
        system("cd Diboo && ./add_forum_account.pl ".$user_login." ".$user_pass);
}

# {4}
system("cd Diboo && ./add_dns_record.pl ".$user_login);