+sub getcolor
+{
+ my $val=shift;
+ if($optionsfw{'SHOWCOLORS'} eq 'on'){
+ foreach my $alias (sort keys %aliases)
+ {
+ if ($val eq $alias){
+ $tdcolor="style='border: 2px solid red;'";
+ return;
+ }
+ }
+ if ($val eq 'GREEN'){
+ $tdcolor="style='border: 2px solid green;'";
+ }elsif ($val eq 'ORANGE'){
+ $tdcolor="style='border: 2px solid orange;'";
+ }elsif ($val eq 'BLUE'){
+ $tdcolor="style='border: 2px solid blue;'";
+ }elsif ($val eq 'IPFire' ){
+ $tdcolor="style='border: 2px solid red;'";
+ }elsif($val =~ /^(.*?)\/(.*?)$/){
+ my ($sip,$scidr) = split ("/",$val);
+ if ( &General::IpInSubnet($sip,$netsettings{'ORANGE_ADDRESS'},$netsettings{'ORANGE_NETMASK'})){
+ $tdcolor="style='border: 2px solid orange;'";
+ }
+ if ( &General::IpInSubnet($sip,$netsettings{'GREEN_ADDRESS'},$netsettings{'GREEN_NETMASK'})){
+ $tdcolor="style='border: 2px solid green;'";
+ }
+ if ( &General::IpInSubnet($sip,$netsettings{'BLUE_ADDRESS'},$netsettings{'BLUE_NETMASK'})){
+ $tdcolor="style='border: 2px solid blue;'";
+ }
+ if ( &General::IpInSubnet($sip,$netsettings{'RED_ADDRESS'},$netsettings{'RED_NETMASK'})){
+ $tdcolor="style='border: 2px solid red;'";
+ }
+ }elsif ($val eq 'Default IP'){
+ $tdcolor="style='border: 2px solid red;'";
+ }else{
+ $tdcolor='';
+ }
+ }
+}