@@ -73,7 +73,7 @@ sub new {
7373 bless $self , $class ;
7474
7575 $options {options }-> add_options(arguments => {
76- ' remote-baie -id:s@' => { name => ' remote_baie_id ' },
76+ ' remote-instance -id:s@' => { name => ' remote_instance_id ' },
7777 ' ldev-id:s@' => { name => ' ldev_id' },
7878 ' group-id:s' => { name => ' group_id' , default => ' ' },
7979 });
@@ -85,25 +85,25 @@ sub check_options {
8585 my ($self , %options ) = @_ ;
8686 $self -> SUPER::check_options(%options );
8787
88- my $baie_id = $self -> {option_results }-> {baie_id };
89- # If remote_baie_id starts with + or - then it is added to baie_id to determine the effective array ID to use
88+ my $instance_id = $self -> {option_results }-> {instance_id };
89+ # If remote_instance_id starts with + or - then it is added to instance_id to determine the effective array ID to use
9090 # otherwise it is used as is
9191
92- if (ref $self -> {option_results }-> {remote_baie_id } eq ' ARRAY' ) {
93- foreach my $c_id (reverse @{$self -> {option_results }-> {remote_baie_id }}) {
92+ if (ref $self -> {option_results }-> {remote_instance_id } eq ' ARRAY' ) {
93+ foreach my $c_id (reverse @{$self -> {option_results }-> {remote_instance_id }}) {
9494 next if $c_id eq ' ' ;
9595 if ($c_id =~ / ^[\+ -]\d +$ / ) {
96- $baie_id += $c_id ;
96+ $instance_id += $c_id ;
9797 } elsif ($c_id =~ / ^\d +$ / ) {
98- $baie_id = $c_id ;
98+ $instance_id = $c_id ;
9999 } else {
100- $self -> {output }-> option_exit(short_msg => " Please set a valid --remote-baie -id option." );
100+ $self -> {output }-> option_exit(short_msg => " Please set a valid --remote-instance -id option." );
101101 }
102102 last
103103 }
104104 }
105105
106- $self -> {remote_baie_id } = $baie_id ;
106+ $self -> {remote_instance_id } = $instance_id ;
107107
108108 $self -> {ldev_ids } = flatten_arrays($self -> {option_results }-> {ldev_id });
109109
@@ -117,12 +117,12 @@ sub manage_selection {
117117 my ($self , %options ) = @_ ;
118118
119119 # https://docs.hitachivantara.com/r/en-us/command-control-interface/01-87-03/mk-90rd7009/data-and-system-management-commands/pairdisplay
120- # pairdisplay -ITC<baie -id+1000> -g <group> -CLI -fxce
120+ # pairdisplay -ITC<instance -id+1000> -g <group> -CLI -fxce
121121
122122 $self -> {pairs } = {};
123123 my ($stdout ) = $options {custom }-> execute_command(
124124 command => ' pairdisplay' ,
125- command_options => ' -ITC' . $self -> {remote_baie_id } . ' -g ' . $self -> {group_id } . ' -CLI -fxce'
125+ command_options => ' -ITC' . $self -> {remote_instance_id } . ' -g ' . $self -> {group_id } . ' -CLI -fxce'
126126 );
127127
128128 foreach my $line (split /\n/, $stdout ) {
@@ -173,13 +173,13 @@ __END__
173173
174174Check Hitachi E-Series TrueCopy/Universal Replicator pair status.
175175
176- Command used: C<pairdisplay -ITC<baie -id+1000 > -g <group> -CLI -fxce>
176+ Command used: C<pairdisplay -ITC<instance -id+1000 > -g <group> -CLI -fxce>
177177
178178=over 8
179179
180- =item B<--remote-baie -id >
180+ =item B<--remote-instance -id >
181181
182- Remote array ID. If starts with + or -, it is added to the local array ID, otherwise used as is (e.g. C<--remote-baie -id='100' > or C<--remote-baie -id='+1000' > ).
182+ Remote array ID. If starts with + or -, it is added to the local array ID, otherwise used as is (e.g. C<--remote-instance -id='100' > or C<--remote-instance -id='+1000' > ).
183183
184184=item B<--group-id >
185185
0 commit comments