marsadm: new primitives device-{ops-rate,amount-rate,rate}

This commit is contained in:
Thomas Schoebel-Theuer 2016-01-19 10:21:10 +01:00 committed by Thomas Schoebel-Theuer
parent c2fed92879
commit 2f35c9f6e7

View File

@ -5418,7 +5418,7 @@ sub eval_fn {
my $lnk = $$env{"resdir"} . "/actual-" . $$env{"host"} . "/replay-code"; my $lnk = $$env{"resdir"} . "/actual-" . $$env{"host"} . "/replay-code";
return get_link($lnk, 2); return get_link($lnk, 2);
} }
if (/^(sync|fetch|replay|work)[-_]?(rate|ops[-_]?rate|amount[-_]?rate|remain)$/) { if (/^(device|sync|fetch|replay|work)[-_]?(rate|ops[-_]?rate|amount[-_]?rate|remain)$/) {
my $what = $1; my $what = $1;
my $select = $2; my $select = $2;
if ($what eq "work") { if ($what eq "work") {
@ -5438,6 +5438,7 @@ sub eval_fn {
$name =~ s/-/_/; $name =~ s/-/_/;
my %names = my %names =
( (
"device" => "if",
"sync" => "sync", "sync" => "sync",
"fetch" => "file", "fetch" => "file",
"replay" => "replay", "replay" => "replay",
@ -6445,6 +6446,8 @@ my %trivial_globs =
=> "", => "",
"{sync,fetch,replay}-{ops-rate,amount-rate,rate,remain}" "{sync,fetch,replay}-{ops-rate,amount-rate,rate,remain}"
=> "", => "",
"device-{ops-rate,amount-rate,rate}"
=> "",
"replay-basenr" "replay-basenr"
=> "", => "",
"{fetch,replay,work}-{lognr,logcount}" "{fetch,replay,work}-{lognr,logcount}"