RepoMirrors
/
mars
mirror of https://github.com/schoebel/mars
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

marsadm: augment 'wait-resource' with specific wait conditions

This commit is contained in:
Thomas Schoebel-Theuer 2013-05-14 15:05:31 +02:00
parent faa1c8d802
commit 2ab837cf09
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
userspace/marsadm
View File

@ -187,8 +187,38 @@ sub sleep_timeout {
$timeout -= $rest;
}
# wait for some condition
sub wait_cond {
my ($cmd, $res, $specific) = @_;
my $is_actual = ($specific =~ s/^is-//);
my $is_on = !($specific =~ s/-off$//);
$specific =~ s/-on$//;
if ($is_actual) {
my %table =
(
"attach" => "is-attached",
"primary" => "is-primary",
"device" => "device-$res",
);
my $name = $table{$specific};
ldie "actual indicator '$specific' does not exist\n" unless exists($table{$specific});
check_status($cmd, $res, $name, $is_on ? 1 : 0, 1);
} else {
my %table =
(
"attach" => "attach",
"connect" => "connect",
"replay" => "allow-replay",
"sync" => "sync",
);
my $name = $table{$specific};
ldie "button '$specific' does not exist\n" unless exists($table{$specific});
check_todo($cmd, $res, $name, $is_on ? 1 : 0, 1);
}
}
# wait until some communication has occurred
sub wait_cluster {
return wait_cond(@_) if int(@_) >= 3;
my $cmd = shift;
my $res = shift || "all";
my $start_time = mars_time();