Lines Matching refs:vip
48 my $vip = $1;
57 $address = inet_aton($vip);
65 $ipvs = &ipvs ($vip, $port, $ipvs);
68 config ($vip, $port, $ipvs);
71 $vip = $vip || "";
72 if (exists ($ipvs->{$vip}) and exists ($ipvs->{$vip}->{$port})) {
73 foreach my $host (sort keys %{$ipvs->{$vip}->{$port}}) {
75 print "$fname.value ", $ipvs->{$vip}->{$port}->{$host}, "\n";;
108 foreach my $vip (sort keys %{$ipvs}) {
109 foreach my $port (sort keys %{$ipvs->{$vip}}) {
110 print "${vip}_$port\n";
118 my $vip = shift;
128 $vip = $vip || "";
129 if (exists ($ipvs->{$vip}) and exists ($ipvs->{$vip}->{$port})) {
130 foreach my $host (sort keys %{$ipvs->{$vip}->{$port}}) {
149 my $vip = shift;
159 $cvip = ($vip?$2:"");