From: Michael Tremer Date: Tue, 19 Mar 2024 15:38:19 +0000 (+0100) Subject: ovpnmain.cgi: Don't load colours when they are already loaded in header.pl X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e17bb0d17dbdaa1cfe99d9ea41ff7e12faaee79e;p=people%2Fms%2Fipfire-2.x.git ovpnmain.cgi: Don't load colours when they are already loaded in header.pl Signed-off-by: Michael Tremer --- diff --git a/html/cgi-bin/ovpnmain.cgi b/html/cgi-bin/ovpnmain.cgi index dbbae2144..c1c72b73a 100755 --- a/html/cgi-bin/ovpnmain.cgi +++ b/html/cgi-bin/ovpnmain.cgi @@ -44,10 +44,8 @@ require "${General::swroot}/location-functions.pl"; use warnings; use CGI::Carp 'fatalsToBrowser'; -my %color = (); my %mainsettings = (); &General::readhash("${General::swroot}/main/settings", \%mainsettings); -&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color); ### ### Initialize variables @@ -2853,8 +2851,8 @@ END @ccdconf=($ccdconfhash{$key}[0],$ccdconfhash{$key}[1]); $count++; my $ccdhosts = &hostsinnet($ccdconf[0]); - if ($count % 2){ print" ";} - else{ print" ";} + if ($count % 2){ print" ";} + else{ print" ";} print"$ccdconf[0]$ccdconf[1]$ccdhosts/".(&ccdmaxclients($ccdconf[1])+1).""; print < @@ -2961,10 +2959,10 @@ END for (my $idx = 1; $idx <= $user2; $idx++){ if ($idx % 2) { print ""; - $col="bgcolor='$color{'color22'}'"; + $col="bgcolor='$Header::color{'color22'}'"; } else { print ""; - $col="bgcolor='$color{'color20'}'"; + $col="bgcolor='$Header::color{'color20'}'"; } print "$users[$idx-1]{'CommonName'}"; print "$users[$idx-1]{'RealAddress'}"; @@ -4698,7 +4696,7 @@ if ($cgiparams{'TYPE'} eq 'host') { foreach my $key (sort { uc($ccdconfhash{$a}[0]) cmp uc($ccdconfhash{$b}[0]) } keys %ccdconfhash) { $count++; @ccdconf=($ccdconfhash{$key}[0],$ccdconfhash{$key}[1]); - if ($count % 2){print"";}else{print"";} + if ($count % 2){print"";}else{print"";} print"$ccdconf[0]$ccdconf[1]"; &fillselectbox($ccdconf[1],$ccdconf[0],$cgiparams{$name}); print""; @@ -5326,11 +5324,11 @@ END print ""; if ($hasExpired || $expiresSoon) { - $col="bgcolor='$color{'color14'}'"; + $col="bgcolor='$Header::color{'color14'}'"; } elsif ($id % 2) { - $col="bgcolor='$color{'color20'}'"; + $col="bgcolor='$Header::color{'color20'}'"; } else { - $col="bgcolor='$color{'color22'}'"; + $col="bgcolor='$Header::color{'color22'}'"; } print "$confighash{$key}[1]"; if ($hasExpired) { @@ -5563,12 +5561,12 @@ END END ; - my $col1="bgcolor='$color{'color22'}'"; - my $col2="bgcolor='$color{'color20'}'"; + my $col1="bgcolor='$Header::color{'color22'}'"; + my $col2="bgcolor='$Header::color{'color20'}'"; # DH parameter line - my $col3="bgcolor='$color{'color22'}'"; + my $col3="bgcolor='$Header::color{'color22'}'"; # ta.key line - my $col4="bgcolor='$color{'color20'}'"; + my $col4="bgcolor='$Header::color{'color20'}'"; if (-f "${General::swroot}/ovpn/ca/cacert.pem") { my @casubject = &General::system_output("/usr/bin/openssl", "x509", "-text", "-in", "${General::swroot}/ovpn/ca/cacert.pem"); @@ -5746,9 +5744,9 @@ END if (keys %cahash > 0) { foreach my $key (keys %cahash) { if (($key + 1) % 2) { - print "\n"; + print "\n"; } else { - print "\n"; + print "\n"; } print "$cahash{$key}[0]\n"; print "$cahash{$key}[1]\n";