poll_oc.pl

#!/usr/bin/perl

use strict;
use warnings;

sub wait_for_project {
	my $base_name = shift;
	while (1) {
		my $out = `oc get projects`;
		if ($out =~ /($base_name-\w+)/) {
			return $1;
		}
	}
}

# TODO Wait for running state
sub wait_for_pod {
	my $project = shift;
	my $base_name = shift;
	while (1) {
		my $out = `oc -n $project get pods`;
		if ($out =~ /$base_name-deploy/) {
			next;
		}
		if ($out =~ /($base_name-\w+)/) {
			return $1;
		}
	}
}

my $project = wait_for_project("extended-test-mysql-replication");
print "Found project $project\n";
my $slave_pod = wait_for_pod($project, "mysql-slave-1");
print "Found slave pod $slave_pod\n";

exec "oc -n $project logs -f $slave_pod";