136 lines
4.0 KiB
Perl
Executable File
136 lines
4.0 KiB
Perl
Executable File
#!/usr/pbin/perl
|
|
use strict;
|
|
use warnings;
|
|
use v5.10;
|
|
|
|
my $ovarelease = "2023a";
|
|
my $ovafogrelease = "2023a";
|
|
my $home=$ENV{'HOME'};
|
|
my $ovafile="$home/Téléchargements/debian-bullseye-gsb-".$ovarelease.".ova";
|
|
my $ovafilefog="$home/Téléchargements/debian-buster-gsb-i".$ovafogrelease.".ova";
|
|
|
|
my %vmtab = (
|
|
#name => "s-adm", params => ":1024:"
|
|
name => "s-adm", params => ":1024:n-adm:n-infra",
|
|
name => "s-infra", params => ":1024:n-adm:n-infra",
|
|
name => "s-proxy", params => ":1024:n-adm:n-infra",
|
|
name => "r-int", params => ":1024:n-adm:n-link:n-wifi:n-user:n-infra",
|
|
name => "r-ext", params => ":1024:n-adm:n-dmz:eno1:n-linkvi:n-link",
|
|
name => "s-mon", params => ":1024:n-adm:n-infra",
|
|
name => "s-itil", params => ":1024:n-adm:n-infra",
|
|
name => "s-appli", params => ":1024:n-adm:n-infra",
|
|
name => "s-backup", params => ":1024:n-adm:n-infra",
|
|
name => "s-fog", params => ":1024:n-adm:n-infra:n-user",
|
|
name => "s-nxc", params => ":1024:n-adm:n-infra",
|
|
|
|
)
|
|
|
|
sub usage () {
|
|
say "$0 - version ${ovarelease}";
|
|
say "$0 : creation VM et parametrage interfaces";
|
|
say "usage : $0 <s-infra|r-int|r-ext|s-proxy|s-mon>";
|
|
exit 1 ;
|
|
}
|
|
|
|
sub create_vm () {
|
|
my $nom = shift ;
|
|
my $nomova = shift ;
|
|
if ( $nom == "s-fog" ) {
|
|
$nomova = $ovafilefog;
|
|
}
|
|
if ( ! -r $nomova ) {
|
|
say "$0 : erreur ouverture fichier $nomova ..."
|
|
exit 3
|
|
}
|
|
qx (vboxmanage import $nomova --vsys 0 --vmname $nom);
|
|
}
|
|
|
|
sub setif () {
|
|
my ($vm, $interf, $parm) = @ARGV;
|
|
qx(VBoxManage modifyvm $vm --nic"${2}" intnet);
|
|
qx(VBoxManage modifyvm $vm --intnet"${2}" "$3");
|
|
qx(VBoxManage modifyvm $vm --nictype"${2}" 82540EM);
|
|
qx(VBoxManage modifyvm $vm --cableconnected"${2}" on);
|
|
qx(VBoxManage modifyvm $vm --nicpromisc"${2}" allow-all);
|
|
}
|
|
|
|
sub create_if () {
|
|
# enp0s3
|
|
setif "$1" 1 "$2"
|
|
setif "$1" 2 "$3"
|
|
#(enp0s8)
|
|
}
|
|
|
|
|
|
create_vm "${vm}"
|
|
if [[ "${vm}" == "s-infra" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-proxy" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "r-int" ]] ; then
|
|
# n-adm, n-link, n-wifi, n-user, n-infra
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
setif "${vm}" 2 "n-link"
|
|
setif "${vm}" 3 "n-wifi"
|
|
setif "${vm}" 4 "n-user"
|
|
setif "${vm}" 5 "n-infra"
|
|
elif [[ "${vm}" == "r-ext" ]] ; then
|
|
./addint.r-ext
|
|
elif [[ "${vm}" == "s-mon" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-appli" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-backup" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-itil" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-nxc" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-fog" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
setif "${vm}" 3 "n-user"
|
|
elif [[ "${vm}" == "s-DNS-ext" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz"
|
|
elif [[ "${vm}" == "s-web-ext" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz"
|
|
elif [[ "${vm}" == "s-nxc" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-infra"
|
|
elif [[ "${vm}" == "s-lb" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz" "n-dmz-lb"
|
|
elif [[ "${vm}" == "s-web1" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz-lb" "n-dmz-db"
|
|
# setif "${vm}" 3 "n-dmz-lb"
|
|
elif [[ "${vm}" == "s-web2" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz-lb" "n-dmz-db"
|
|
elif [[ "${vm}" == "s-web3" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz-lb" "n-dmz-db"
|
|
# setif "${vm}" 3 "n-dmz-lb"
|
|
elif [[ "${vm}" == "s-lb-bd" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz-db"
|
|
elif [[ "${vm}" == "s-nas" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-dmz-db"
|
|
elif [[ "${vm}" == "r-vp1" ]] ; then
|
|
./addint.r-vp1
|
|
elif [[ "${vm}" == "r-vp2" ]] ; then
|
|
./addint.r-vp2
|
|
elif [[ "${vm}" == "s-agence" ]] ; then
|
|
create_if "${vm}" "n-adm" "n-agence"
|
|
|
|
else
|
|
echo "$0 : vm ${vm} non prevu"
|
|
exit 2
|
|
fi
|
|
|
|
|
|
sub usage () {
|
|
print "usage : mkvm.pl <vm-name>\n";
|
|
print "cree une VM a partir d'un fichier OVA et parametre les interfaces";
|
|
exit 1 ;
|
|
}
|
|
|
|
sub main () {
|
|
my $vm = shift;
|
|
usage unless ( $vm);
|
|
|
|
}
|