return;
}
- if ( exists( $current_service->{$vip_id} )
- && (defined $current_service->{$vip_id}{other_virtual_option}
- && defined $nv->{other_virtual_key}
- && $current_service->{$vip_id}{other_virtual_option}
- eq $nv->{other_virtual_key} )) {
- # service already exists, modify it
- ld_edit_virtual($nv);
+ if ( exists( $current_service->{$vip_id} )){
+ if(( defined $current_service->{$vip_id}{other_virtual_option}
+ && defined $nv->{other_virtual_key})
+ && $current_service->{$vip_id}{other_virtual_option}
+ ne $nv->{other_virtual_key} ) {
+ ld_delete_virtual($nv);
+ # no such service, create a new one
+ ld_add_virtual($nv);
+ $nv->{other_virtual_key}
+ = $current_service->{$vip_id}{other_virtual_option};
+ }
+ else {
+ # service already exists, modify it
+ ld_edit_virtual($nv);
+ }
}
else {
# no such service, create a new one
- ld_delete_virtual($nv);
- # no such service, create a new one
ld_add_virtual($nv);
}
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print <<"L7VSADM";
+Layer-7 Virtual Server version x.x.x
+Prot LocalAddress:Port ProtoMod Scheduler
+ SSL_config_file
+ Socket option
+ Access_log_flag
+ Access_log_file
+ Access_log_rotate option
+ -> RemoteAddress:Port Forward Weight ActiveConn InactConn
+TCP [2001::1]:80 ip rr
+ none
+ none
+ 0
+ none
+ none
+ -> [fe80::%eth1]:8080 Masq 5 0 3
+L7VSADM
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print <<"L7VSADM";
+Layer-7 Virtual Server version x.x.x
+Prot LocalAddress:Port ProtoMod Scheduler
+ SSL_config_file
+ Socket option
+ Access_log_flag
+ Access_log_file
+ Access_log_rotate option
+ -> RemoteAddress:Port Forward Weight ActiveConn InactConn
+TCP [2001:1:2:3:4:5:6:7]:80 ip rr
+ none
+ none
+ 0
+ none
+ none
+ -> [fe80:ffff:ffff:eeee:dddd:cccc:bbbb:aaaa]:80 Masq 3 0 3
+ -> [fe80:1:22:333:4444:5:66:777]:80 Masq 2 0 3
+ -> [fe80:ffff:ffff::ffff:ffff]:80 Masq 1 0 4
+L7VSADM
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print <<"L7VSADM";
+Layer-7 Virtual Server version x.x.x
+Prot LocalAddress:Port ProtoMod Scheduler
+ SSL_config_file
+ Socket option
+ Access_log_flag
+ Access_log_file
+ Access_log_rotate option
+ -> RemoteAddress:Port Forward Weight ActiveConn InactConn
+TCP [2001::2]:80 sessionless rr
+ /etc/l7vs/ssl/ssl.target_1.cf
+ deferaccept,nodelay,cork,quickackoff
+ 1
+ /var/log/l7vs/l7vsd_conn.log
+TCP [::]:8080 sslid rr
+ none
+ deferaccept,nodelay,cork,quickackoff
+ 0
+ none
+ none
+TCP [3901:222:333:444:555::]:10000 ip rr
+ none
+ none
+ 1
+ none
+ none
+L7VSADM
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print <<"L7VSADM";
+Layer-7 Virtual Server version x.x.x
+Prot LocalAddress:Port ProtoMod Scheduler
+ SSL_config_file
+ Socket option
+ Access_log_flag
+ Access_log_file
+ Access_log_rotate option
+ -> RemoteAddress:Port Forward Weight ActiveConn InactConn
+TCP [::]:80 sessionless rr
+ none
+ none
+ 1
+ none
+ none
+ -> 192.168.0.1:80 Masq 1 0 3
+ -> 192.168.0.2:80 Masq 1 0 3
+TCP [::1]:10 sslid rr
+ none
+ none
+ 1
+ none
+ none
+TCP [0:0:0:0:0:0:0:0]:20 ip rr
+ none
+ none
+ 1
+ none
+ none
+ -> [222:333:4::55]:80 Masq 1 0 4
+L7VSADM
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print <<"L7VSADM";
+Layer-7 Virtual Server version x.x.x
+Prot LocalAddress:Port ProtoMod Scheduler
+ SSL_config_file
+ Socket option
+ Access_log_flag
+ Access_log_file
+ Access_log_rotate option
+ -> RemoteAddress:Port Forward Weight ActiveConn InactConn
+ -> [::]:80 Masq 1 0 3
+ -> [1:2:3:4:5:6:7:8]:25 Masq 1 0 3
+ -> [3:4:5::]:8080 Masq 1 0 4
+L7VSADM
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print <<"L7VSADM";
+Layer-7 Virtual Server version x.x.x
+Prot LocalAddress:Port ProtoMod Scheduler
+ SSL_config_file
+ Socket option
+ Access_log_flag
+ Access_log_file
+ Access_log_rotate option
+ -> RemoteAddress:Port Forward Weight ActiveConn InactConn
+ -> [::1]:80 Masq 1 0 3
+TCP [2001::1]:8080 sessionless rr
+ none
+ none
+ 1
+ none
+ none
+ -> 192.168.0.2:80 Masq 1 0 4
+L7VSADM