#!/usr/bin/perl print "Content-type: text/html\n\n"; $ip = $ENV{'REMOTE_ADDR'}; # Pega seu ip $ip = substr($ip,0,4); # pega os quatro primeiro digitos do seu ip if($ip =~ /200/){ # ve se tem o 200 nesses 4 primeiros digitos print "Você esta se conectando do Brasil"; # Se siver, ok }else{ print "Você não esta conectado pelo Brasil"; # se nao, avisa }
Qualquer duvida, entre em contato.
abraços
Edição feita por: Gabriel, 26/04/2004, 00:17.