+
+ $Lang::tr{'flag'}
+ |
+
+
+ $Lang::tr{'countrycode'}
+ |
+
+
+ $Lang::tr{'country'}
+ |
+
+ |
+
+END
+ }
+ }
+
+ # Check if our group contains any entries.
+ if ($country_code eq "none") {
+ print "$Lang::tr{'fwhost err emptytable'} |
\n";
+ } else {
+ # Check if we are currently editing a group and assign column backgound colors.
+ my $col='';
+ if ( ($fwhostsettings{'ACTION'} eq 'editgeoipgrp' || $fwhostsettings{'update'} ne '')
+ && $fwhostsettings{'grp_name'} eq $customgeoipgrp{$key}[0]) {
+ $col="bgcolor='${Header::colouryellow}'";
+ } elsif ($count %2 == 0){
+ $col="bgcolor='$color{'color20'}'";
+ } else {
+ $col="bgcolor='$color{'color22'}'";
+ }
+
+ # Get country flag.
+ my $icon = &GeoIP::get_flag_icon($customgeoipgrp{$key}[2]);
+
+ # Print column with flag icon.
+ my $col_content;
+ if ($icon) {
+ $col_content = "";
+ } else {
+ $col_content = "N/A";
+ }
+
+ print "$col_content | \n";
+
+ # Print column with country code.
+ print "$customgeoipgrp{$key}[2] | \n";
+
+ # Print column with full country name.
+ my $country_name = &GeoIP::get_full_country_name($customgeoipgrp{$key}[2]);
+ print "$country_name | \n";
+
+ # Generate from for removing entries from a group.
+ print "\n";
+ print " | \n";
+ print "\n";
+ }
+
+ $helper=$customgeoipgrp{$key}[0];
+ $number++;
+ }
+
+ print"