<!--spmacro:module(check)
sub country {
my $out = qq|<div align="center"><img style="padding-right:100px;" src="../images/text-knit_orig_250.gif" alt=""> </div>|;    

my $IPaddress = $ENV{'REMOTE_ADDR'};
    my @ipArray = split(/\./, $IPaddress);
    $code=($ipArray[0] * 16777216) + ($ipArray[1] * 65536) + ($ipArray[2] * 256) + ($ipArray[3]);  
    
    if (!$main::liveview) {    
        open(F, "<", "../../woll-insel-Partnershop/ip-to-country.csv") or die "Konnte die Datei nicht öffnen";
        my @lines = <F>;
        close(F);
        
        foreach my $line (@lines) {
            my ($von, $bis, $country) = split(/,/, $line);

            # IP zwischen Start- und End-IP
            if ($code >= $von && $code <= $bis){
                if ($country eq "DE") {
                    $out = qq|
        <table  style="width:100%;"><tr>
              <td><img style="padding-left:200px;" src="../images/text-knit_orig_250.gif" alt=""> </td>
              <td><a href="http://start.shopgate.com/wolle-for-you" target="_new"> <img src="http://www.wolle-online.eu/woll-insel-Partnershop/images/shopgate/shop-logo.jpg" alt="Shopgate - Eine App. Alle Shops." border="0"/> </a></td>
        </tr>
        <tr><td colspan="2" align="right"> <b>NEU</b> "Wolle for you" jetzt auch auf Ihrem iPhone<br> <a href="http://www.shopgate.com/de/buyoverview" target="_new"> so funktioniert's </a></td></tr>
        </table>
                    |;
                }
                main::mprint ($out);
            }
        }    
    }        
}
-->