(\S+) # receive"
)? # (optional)
$/ix) {
- print "real:" . $real. "\n";
config_error($line, 'ERR0114', $config_line);
}
my ($ip1, $ip2, $port, $forward, $weight, $request, $receive)
my $sock = ld_open_socket( $r->{server}{ip}, $port, $v->{protocol}, $v->{checktimeout} );
if (!defined $sock) {
ld_log( _message('WRN3201', $ERRNO, $r->{server}{ip}, $port) ) if (!defined $status || $status eq $SERVICE_UP);
-sleep 1;
+
return $SERVICE_DOWN;
}
close($sock);
}
{
set_default();
- local @ld_read_l7vsadm_returns = ( {} );
+ local @ld_read_l7vsadm_returns = ( {
+ 'tcp:[2001::1]:8080:sessionless' => {
+ '192.168.0.2:80' => {
+ server => { ip => '192.168.0.2', port => 80 },
+ weight => 1,
+ forward => 'Masq',
+ option => { flags => '-r 192.168.0.2:80',
+ forward => '-m' },
+ },
+ 'other_virtual_option' => ' none none none none',
+ },
+ } );
local @get_virtual_id_str_returns = ();
$main::CONFIG{virtual} = [ { protocol => 'tcp' } ];
my %expected = %main::GLOBAL;