diff --git a/html/cgi-bin/ovpnmain.cgi b/html/cgi-bin/ovpnmain.cgi
index 6516c4579..bc76c15b3 100644
--- a/html/cgi-bin/ovpnmain.cgi
+++ b/html/cgi-bin/ovpnmain.cgi
@@ -4664,7 +4664,7 @@ END
-
|
+
|
END
;
@@ -4691,7 +4691,7 @@ END
}
print "";
&Header::closebox();
- &Header::openbox('100%', 'LEFT', "$Lang::tr{'certificate authorities'}:");
+ &Header::openbox('100%', 'LEFT', "$Lang::tr{'certificate authorities'}");
print <
@@ -4826,7 +4826,7 @@ print <
END
@@ -4863,6 +4863,7 @@ END
;
my $id = 0;
my $gif;
+ my $col1="";
foreach my $key (sort { ncmp ($confighash{$a}[1],$confighash{$b}[1]) } keys %confighash) {
if ($confighash{$key}[0] eq 'on') { $gif = 'on.gif'; } else { $gif = 'off.gif'; }
if ($id % 2) {
@@ -4886,17 +4887,18 @@ END
if ($confighash{$key}[32] eq "" && $confighash{$key}[3] eq 'host' ){$confighash{$key}[32]="dynamic";}
print "| $confighash{$key}[32] | ";
print "$confighash{$key}[25] | ";
-
- my $active = "";
+ $col1="bgcolor='${Header::colourred}'";
+ my $active = "$Lang::tr{'capsclosed'}";
if ($confighash{$key}[0] eq 'off') {
- $active = "";
+ $col1="bgcolor='${Header::colourblue}'";
+ $active = "$Lang::tr{'capsclosed'}";
} else {
###
# m.a.d net2net
-###
-
+###
+
if ($confighash{$key}[3] eq 'net') {
if (-e "/var/run/$confighash{$key}[1]n2n.pid") {
@@ -4920,37 +4922,39 @@ END
#EXITING -- A graceful exit is in progress.
####
- if ( $tustate[1] eq 'CONNECTED') {
- $active = "";
- } else {
- $active = "";
+ if ( $tustate[1] eq 'CONNECTED') {
+ $col1="bgcolor='${Header::colourgreen}'";
+ $active = "$Lang::tr{'capsopen'}";
+ }else {
+ $col1="bgcolor='${Header::colourred}'";
+ $active = "$tustate[1]";
+ }
}
- }
}
- } else {
+ }else {
- my $cn;
- my @match = ();
- foreach my $line (@status) {
- chomp($line);
- if ( $line =~ /^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/) {
- @match = split(m/^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/, $line);
- if ($match[1] ne "Common Name") {
- $cn = $match[1];
- }
- $cn =~ s/[_]/ /g;
- if ($cn eq "$confighash{$key}[2]") {
- $active = "";
- }
- }
-
+ my $cn;
+ my @match = ();
+ foreach my $line (@status) {
+ chomp($line);
+ if ( $line =~ /^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/) {
+ @match = split(m/^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/, $line);
+ if ($match[1] ne "Common Name") {
+ $cn = $match[1];
+ }
+ $cn =~ s/[_]/ /g;
+ if ($cn eq "$confighash{$key}[2]") {
+ $col1="bgcolor='${Header::colourgreen}'";
+ $active = "$Lang::tr{'capsopen'}";
+ }
+ }
+ }
}
}
-}
print <$active
+ $active |
-
+
END
;
}