5f779a00e3
worker with task have $0 set to e.g: 1024 ? Sl 0:48 \_ worker-PC 1 Task: 51919-fedora-19-i386
28 lines
926 B
Perl
28 lines
926 B
Perl
#!/usr/bin/perl
|
|
# this scrip query for all running VM and terminate those
|
|
# which are not currently started by some ansible script
|
|
|
|
while (chomp($a = qx(ps ax |grep -v 'sh -c ps ax' |grep 'Task: ' | grep -v grep))) {
|
|
# we are starting some VM and could not determine correct list of running VMs
|
|
sleep 5;
|
|
}
|
|
|
|
#print qx(ps ax |grep ' 172.16.3.' |awk '{ print \$33 }');
|
|
@IPs = split('\s+', qx(ps ax |grep ' 172.16.3.' |awk '{ print \$33 }'));
|
|
|
|
#print "Running instances\n";
|
|
#print join(", ", @IPs), "\n";
|
|
for my $i (@IPs) {
|
|
$check{$i} = 1;
|
|
}
|
|
|
|
@instances = split('\n', qx(/bin/euca-describe-instances));
|
|
@TO_DELETE = ();
|
|
for my $i (@instances) {
|
|
my @COLUMNS = split('\s+', $i);
|
|
next if $COLUMNS[0] eq 'RESERVATION';
|
|
#print $COLUMNS[1], ", ", $COLUMNS[15], "\n";
|
|
push(@TO_DELETE, $COLUMNS[1]) unless $check{$COLUMNS[15]};
|
|
}
|
|
$id_merged = join(" ", @TO_DELETE);
|
|
qx|euca-terminate-instances $id_merged| if ($id_merged);
|