Change source of ipsec setting of connections.cgi.

fixes bug #0000637

diff --git a/html/cgi-bin/connections.cgi b/html/cgi-bin/connections.cgi
index b370d12881ef8bec2bf208c0d64efc013d66e8bb..7b53c009ec7e189161969a2b9a3bed24e5cc86e2 100644 (file)
--- a/html/cgi-bin/connections.cgi
+++ b/html/cgi-bin/connections.cgi
@@ -57,7 +57,7 @@ if (open(IP, "${General::swroot}/red/local-ipaddress")) {
         push(@colour, ${Header::colourfw} );
 }
 
         push(@colour, ${Header::colourfw} );
 }
 

-my @vpn = `grep "rightsubnet=" /etc/ipsec.conf | cut -f2 -d"=" | sed "s|/| |g"`;
+my @vpn = `/usr/local/bin/ipsecctrl I|grep erouted|cut -d"]" -f3|cut -d"=" -f4|cut -d";" -f1| sed "s|/| |g"`;

   foreach my $route (@vpn) {
                 chomp($route);
                 my @temp = split(/[\t ]+/, $route);
   foreach my $route (@vpn) {
                 chomp($route);
                 my @temp = split(/[\t ]+/, $route);