Hi
Here is error from VCS 6.0
1) Configure heartbeat links using LLT over Ethernet
2) Configure heartbeat links using LLT over UDP
3) Automatically detect configuration for LLT over Ethernet
b) Back to previous menu
How would you like to configure heartbeat links? [1-3,b,q,?] (1)
Discovering NICs on prod ............................................................................................ Discovered e1000g0 e1000g1 e1000g2 e1000g3
Enter the NIC for the first private heartbeat link on prod: [b,q,?] (e1000g1) e1000g2
Would you like to configure a second private heartbeat link? [y,n,q,b,?] (n) y
Enter the NIC for the second private heartbeat link on prod: [b,q,?] (e1000g1) e1000g3
Would you like to configure a third private heartbeat link? [y,n,q,b,?] (n)
Do you want to configure an additional low-priority heartbeat link? [y,n,q,b,?] (n)
Are you using the same NICs for private heartbeat links on all systems? [y,n,q,b,?] (y)
Can't use string ("VCS60") as a HASH ref while "strict refs" in use at ../scripts/CPIP/Prod/VCS60.pm line 4714, <STDIN> line 6.
bash-3.00#
Following are the lines from script (Error Line Highlighted) did not find much difference between 5.1 (SP1) and 6.0, Also attaching same script FYR:
# ask for all heartbeat links
sub ask_hbnics {
my($cfg,$padv,$prod,$sys,$sysi,$msg,$cprod);
my($all,$ayn,%hbn,@en,$dsn,$hb,$hb2,$hb3,$hb4,$hbl,$ip,$port,$rpn,$rsn,$udp_port,$used_port);
return '' if (Cfg::opt('responsefile'));
$prod=shift;
$cfg=Obj::cfg();
$cprod=CPIC::get('prod');
$used_port = [];
for my $sys (@{CPIC::get('systems')}) {
$sysi=$sys->{sys};
$padv=$sys->padv;
if ($all) {
$hbn{lltlink1}{$sysi}=$en[1];
$hbn{lltlink2}{$sysi}=$en[2] if ($en[2]);
$hbn{lltlink3}{$sysi}=$en[3] if ($en[3]);
$hbn{lltlink4}{$sysi}=$en[4] if ($en[4]);
$hbn{lltlinklowpri1}{$sysi}=$en[$prod->{max_hipri_links}+1] if ($en[$prod->{max_hipri_links}+1]);
$cfg->{$sysi}{bonded_nics}=$cfg->{${CPIC::get('systems')}[0]->{sys}}{bonded_nics};
} else {
undef(@en);
$rsn=$rpn=[];
if (EDRu::inarr($sys,@{CPIC::get('systems')})) {
Msg::n();
$msg=Msg::new("Discovering NICs on $sysi", 40, 2398, "$sysi");
$msg->left;
$padv=$sys->padv;
$rsn=$padv->systemnics_sys($sys,1);
$rpn=$padv->gatewaynics_sys($sys);
EDRu::arruniq(@$rsn);
$dsn=join(' ',@$rsn);
if ($#$rsn<0) {
$msg=Msg::new("No NICs discovered", 40, 2399);
$msg->right;
} else {
$msg=Msg::new("Discovered $dsn", 40, 2400, "$dsn");
$msg->right;
#$msg=Msg::new("\nTo use aggregated interfaces for private heartbeat, enter the name of an aggregated interface. \nTo use a NIC for private heartbea
t, enter a NIC which is not part of an aggregated interface.\n");
#$msg->print;
Actually I want to try pervious version like 5.0 , can anybody know where I can download this?
Thanks & regards,
Anish