Perl : AddAccount

TitreAddAccount
Postée le30-05-2007
Affichée343
Lienhttp://www.codeswall.info/source-5.html
DescriptionAddAccount
EtatInconnu. Inconnu.
Code d'insertion
OptionsRetirer les numéros de lignes.
TéléchargementTelecharger en format txtTelecharger en format pdf
  1. #!/usr/bin/perl -w
  2.  
  3. # Script d'installation d'un compte diboo
  4. #
  5. # Usage : perl add_diboo_account.pl [login] [mot_de_passe] [prenom] [nom]
  6. #
  7. # Le script installe :
  8. #                       - le compte client VHCS (via VHCS/add_vhcs_account.pl) {1}
  9. #                       - un login FTP par défaut (via VHCS/add_vhcs_ftpAccount.pl) {2}
  10. #                       - le compte sur le forum diboo (via Diboo/add_forum_account.pl) {3}
  11. #                       - l'enregistrement DNS (ou le modifie si l'enregistrement est déja présent {4}
  12.  
  13. $user_login = $ARGV[0];
  14. $user_pass = $ARGV[1];
  15. $user_fname = $ARGV[2];
  16. $user_lname = $ARGV[3];
  17. $migration = $ARGV[4];
  18.  
  19. if(!defined($user_login) || !defined($user_pass) || !defined($user_fname) || !defined($user_lname)) {
  20.         print "Un ou plusieurs arguments sont manquants. L'utilisateur n'a pu être ajouténn";
  21.         print "Syntaxe : perl add_diboo_account.pl [login] [mot_de_passe] [prenom] [nom]n";
  22.         exit;
  23. }
  24.  
  25. # {1}
  26. system("cd VHCS && ./add_vhcs_account.pl ".$user_login." ".$user_pass." ".$user_fname." ".$user_lname);
  27.  
  28. # {2}
  29. system("cd VHCS && ./add_vhcs_ftpAccount.pl ".$user_login." ".$user_pass);
  30.  
  31. # {3}
  32. if($migration ne "migration") {
  33.         system("cd Diboo && ./add_forum_account.pl ".$user_login." ".$user_pass);
  34. }
  35.  
  36. # {4}
  37. system("cd Diboo && ./add_dns_record.pl ".$user_login);