* The RPM spec changes SELinux to 'permissive' (only for developmer, it will be removed before RC stage). Signed-off-by: Digimer <digimer@alteeve.ca>main
Digimer
7 years ago
parent
5f06752167
commit
b8bb781c5e
6 changed files with 298 additions and 7 deletions
@ -0,0 +1,288 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# Simple little program that takes the name of VM, parses its XML to find the 'vnetx' bridge links, |
||||
# determines which bridge they're connected to and then takes the interfaces down, waits a few seconds, and |
||||
# brings it back up. It cycles the interfaces connected to the BCN, then the SN and finally the IFN, always |
||||
# in that order. |
||||
# |
||||
# The goal of this program is to simplify testing the Striker and Anvil! node installer scripts when using |
||||
# KVM/qemu based VMs. |
||||
# |
||||
# Exit codes; |
||||
# 0 = Normal exit. |
||||
# 1 = Not run as root |
||||
# 2 = Server name not passed in |
||||
# 3 = Server not found |
||||
# 4 = Server not running |
||||
# |
||||
|
||||
use strict; |
||||
use warnings; |
||||
|
||||
$| = 1; |
||||
|
||||
our $debug = 1; |
||||
my $server = defined $ARGV[0] ? $ARGV[0] : ""; |
||||
if (not $server) |
||||
{ |
||||
print "[ Error ] - Server name required. Usage: '$0 <server>'\n"; |
||||
exit(2); |
||||
} |
||||
# Make sure we're running as 'root' |
||||
# $< == real UID, $> == effective UID |
||||
if (($< != 0) && ($> != 0)) |
||||
{ |
||||
# Not root |
||||
print "[ Error ] - This program requires root (or sudo) access.\n"; |
||||
exit(1); |
||||
} |
||||
#print "Searching: [$server] for 'vnetX' interfaces...\n"; |
||||
|
||||
# We don't read switches, as the only allowed switch is the server's name. |
||||
check_server_running($server); |
||||
|
||||
# If we're here, the server was found and running. |
||||
my $nics = get_nic_list($server); |
||||
|
||||
# Now cycle the NICs. |
||||
cycle_nics($server, $nics); |
||||
|
||||
exit(0); |
||||
|
||||
|
||||
############################################################################################################# |
||||
# Functions # |
||||
############################################################################################################# |
||||
|
||||
# This does the work of cycling the NICs. |
||||
sub cycle_nics |
||||
{ |
||||
my ($server, $nics) = @_; |
||||
print __LINE__."; [ Debug ] - server: [".$server."]\n" if $debug >= 2; |
||||
|
||||
print "Cycling network cables on the server: [".$server."]...\n"; |
||||
|
||||
my $nics_processed = 1; |
||||
my $say_network = ""; |
||||
foreach my $bridge_type ("bcn", "sn", "ifn") |
||||
{ |
||||
print __LINE__."; [ Debug ] - bridge_type: [".$bridge_type."]\n" if $debug >= 2; |
||||
foreach my $network_number (sort {$a cmp $b} keys %{$nics->{$bridge_type}}) |
||||
{ |
||||
print __LINE__."; [ Debug ] - network_number: [".$network_number."]\n" if $debug >= 2; |
||||
foreach my $bridge_number (sort {$a cmp $b} keys %{$nics->{$bridge_type}{$network_number}}) |
||||
{ |
||||
if ($bridge_type eq "bcn") |
||||
{ |
||||
$say_network = "Back-Chanel Network ".$network_number." - Bridge ".$bridge_number; |
||||
} |
||||
elsif ($bridge_type eq "sn") |
||||
{ |
||||
$say_network = "Storage Network ".$network_number." - Bridge ".$bridge_number; |
||||
} |
||||
elsif ($bridge_type eq "ifn") |
||||
{ |
||||
$say_network = "Internet-Facing Network ".$network_number." - Bridge ".$bridge_number; |
||||
} |
||||
|
||||
print __LINE__."; [ Debug ] - bridge_number: [".$bridge_number."]\n" if $debug >= 2; |
||||
foreach my $this_vnet (sort {$a cmp $b} keys %{$nics->{$bridge_type}{$network_number}{$bridge_number}}) |
||||
{ |
||||
print __LINE__."; [ Debug ] - this_vnet: [".$this_vnet."]\n" if $debug >= 2; |
||||
|
||||
my $this_mac = $nics->{$bridge_type}{$network_number}{$bridge_number}{$this_vnet}; |
||||
print __LINE__."; [ Debug ] - nics->${bridge_type}::${network_number}::${bridge_number}::${this_vnet}: [".$nics->{$bridge_type}{$network_number}{$bridge_number}{$this_vnet}."]\n" if $debug >= 2; |
||||
|
||||
# Down |
||||
print "Unplugging: [".$this_vnet."] from: [".$say_network."]"; |
||||
my $shell_call = "virsh domif-setlink ".$server." ".$this_vnet." down"; |
||||
print "\n".__LINE__."; [ Debug ] - shell_call: [".$shell_call."]\n" if $debug >= 2; |
||||
open (my $file_handle, $shell_call." 2>&1 |") or die "Failed to call: [$shell_call], error was: $!\n"; |
||||
while(<$file_handle>) |
||||
{ |
||||
chomp; |
||||
my $line = $_; |
||||
print __LINE__."; [ Debug ] - line: [".$line."]\n" if $debug >= 2; |
||||
} |
||||
close $file_handle; |
||||
|
||||
for (1..3) |
||||
{ |
||||
#print "- Sleeping briefly\n"; |
||||
print "."; |
||||
sleep 1; |
||||
} |
||||
|
||||
print " Reconnecting"; |
||||
$shell_call = "virsh domif-setlink ".$server." ".$this_vnet." up"; |
||||
print "\n".__LINE__."; [ Debug ] - shell_call: [".$shell_call."]\n" if $debug >= 2; |
||||
open ($file_handle, $shell_call." 2>&1 |") or die "Failed to call: [$shell_call], error was: $!\n"; |
||||
while(<$file_handle>) |
||||
{ |
||||
chomp; |
||||
my $line = $_; |
||||
print __LINE__."; [ Debug ] - line: [".$line."]\n" if $debug >= 2; |
||||
} |
||||
close $file_handle; |
||||
|
||||
print __LINE__."; [ Debug ] - nics_processed: [".$nics_processed."], nics->count: [".$nics->{count}."]\n" if $debug >= 2; |
||||
if ($nics_processed < $nics->{count}) |
||||
{ |
||||
#print "- Sleeping briefly\n"; |
||||
for(1..3) |
||||
{ |
||||
print "."; |
||||
sleep 1; |
||||
} |
||||
print " Up\n"; |
||||
} |
||||
else |
||||
{ |
||||
print ". Up.\n"; |
||||
} |
||||
$nics_processed++; |
||||
} |
||||
} |
||||
} |
||||
} |
||||
print "- Done.\n"; |
||||
|
||||
return(0); |
||||
} |
||||
|
||||
# This parses the server's XML definition and returns a hash reference of interfaces to cycle. |
||||
sub get_nic_list |
||||
{ |
||||
my ($server) = @_; |
||||
|
||||
my $nic_count = 0; |
||||
my $nics = {}; |
||||
my $bridge_number = 0; |
||||
my $network_number = 0; |
||||
my $bridge_type = ""; |
||||
my $this_vnet = ""; |
||||
my $this_mac = ""; |
||||
my $in_interface = 0; |
||||
my $shell_call = "virsh dumpxml ".$server; |
||||
print __LINE__."; [ Debug ] - shell_call: [".$shell_call."]\n" if $debug >= 2; |
||||
open (my $file_handle, $shell_call." 2>&1 |") or die "Failed to call: [$shell_call], error was: $!\n"; |
||||
while(<$file_handle>) |
||||
{ |
||||
chomp; |
||||
my $line = $_; |
||||
print __LINE__."; [ Debug ] - line: [".$line."]\n" if $debug >= 2; |
||||
|
||||
if ($line =~ /<interface type='network'>/) |
||||
{ |
||||
$in_interface = 1; |
||||
} |
||||
|
||||
if ($in_interface) |
||||
{ |
||||
print __LINE__."; [ Debug ] - line: [".$line."]\n" if $debug >= 2; |
||||
|
||||
if (($line =~ /source network='(.*?)'/) or ($line =~ /bridge='(.*?)'/)) |
||||
{ |
||||
my $this_bridge = $1; |
||||
print __LINE__."; [ Debug ] - this_bridge: [".$this_bridge."]\n" if $debug >= 2; |
||||
|
||||
($bridge_type, $network_number, $bridge_number) = ($this_bridge =~ /^(\D+)(\d+)_bridge(\d+)$/); |
||||
print __LINE__."; [ Debug ] - bridge_type: [".$bridge_type."], network_number: [".$network_number."], bridge_number: [".$bridge_number."]\n" if $debug >= 2; |
||||
} |
||||
if ($line =~ /target dev='(.*?)'/) |
||||
{ |
||||
$this_vnet = $1; |
||||
print __LINE__."; [ Debug ] - this_vnet: [".$this_vnet."]\n" if $debug >= 2; |
||||
} |
||||
if ($line =~ /address='(.*?)'/) |
||||
{ |
||||
$this_mac = $1; |
||||
print __LINE__."; [ Debug ] - this_mac: [".$this_mac."]\n" if $debug >= 2; |
||||
} |
||||
} |
||||
|
||||
if ($line =~ /<\/interface>/) |
||||
{ |
||||
# Record the details. |
||||
print __LINE__."; [ Debug ] - bridge_type: [".$bridge_type."], network_number: [".$network_number."], bridge_number: [".$bridge_number."], this_vnet: [".$this_vnet."], this_mac: [".$this_mac."]\n" if $debug >= 2; |
||||
|
||||
$nics->{$bridge_type}{$network_number}{$bridge_number}{$this_vnet} = $this_mac; |
||||
$nic_count++; |
||||
print __LINE__."; [ Debug ] - nics->${bridge_type}::${network_number}::${bridge_number}::${this_vnet}: [".$nics->{$bridge_type}{$network_number}{$bridge_number}{$this_vnet}."]\n" if $debug >= 2; |
||||
|
||||
# Clear the variables. |
||||
$in_interface = 0; |
||||
$bridge_number = 0; |
||||
$network_number = 0; |
||||
$bridge_type = ""; |
||||
$this_vnet = ""; |
||||
$this_mac = ""; |
||||
} |
||||
} |
||||
close $file_handle; |
||||
|
||||
$nics->{count} = $nic_count; |
||||
print __LINE__."; [ Debug ] - nics->count: [".$nics->{count}."]\n" if $debug >= 2; |
||||
|
||||
return($nics); |
||||
} |
||||
|
||||
# This checks to see if the name of the server was found and is running. It will exit if a problem is found. |
||||
sub check_server_running |
||||
{ |
||||
my ($server) = @_; |
||||
|
||||
my $found = 0; |
||||
my $shell_call = "virsh list --all"; |
||||
print __LINE__."; [ Debug ] - shell_call: [".$shell_call."]\n" if $debug >= 2; |
||||
open (my $file_handle, $shell_call." 2>&1 |") or die "Failed to call: [$shell_call], error was: $!\n"; |
||||
while(<$file_handle>) |
||||
{ |
||||
chomp; |
||||
my $line = $_; |
||||
$line =~ s/\n$//; |
||||
$line =~ s/^\s+//; |
||||
$line =~ s/\s+$//; |
||||
$line =~ s/\s+/ /g; |
||||
print __LINE__."; [ Debug ] - line: [".$line."]\n" if $debug >= 2; |
||||
|
||||
# Look for running servers |
||||
if ($line =~ /^(\d+) (.*?) (.*)$/) |
||||
{ |
||||
my $id = $1; |
||||
my $this_server = $2; |
||||
my $state = $3; |
||||
print __LINE__."; [ Debug ] - id: [".$id."], server: [".$this_server."], state: [".$state."]\n" if $debug >= 2; |
||||
|
||||
if ($server eq $this_server) |
||||
{ |
||||
# Found it |
||||
$found = 1; |
||||
last; |
||||
} |
||||
} |
||||
|
||||
# Look for stopped servers |
||||
if ($line =~ /^- (.*?) (.*)$/) |
||||
{ |
||||
my $this_server = $1; |
||||
my $state = $2; |
||||
print __LINE__."; [ Debug ] - id: [-], server: [".$this_server."], state: [".$state."]\n" if $debug >= 2; |
||||
|
||||
if ($server eq $this_server) |
||||
{ |
||||
print "[ Error ] - The server: [".$server."] is not running.\n"; |
||||
exit(4); |
||||
} |
||||
} |
||||
} |
||||
close $file_handle; |
||||
|
||||
if (not $found) |
||||
{ |
||||
print "[ Error ] - The server: [".$server."] was not found.\n"; |
||||
exit(3); |
||||
} |
||||
|
||||
return(0); |
||||
} |
||||
Loading…
Reference in new issue