Script Que Mostra País

É isso memo...

Óia...eu tinha kolokado la na sessão de links... um site q tem umas banderinhas q encaxam perfeitamente no q vc precisa...perfeitamente mesmo... pq os nomes dos arquivos são os mesmos do banco de dados do seu script... + a galerinha legal aki sumiu com o link hehehe já revirei a cat de links e num ta...

+ Tipo...se vc axar...arquivos .gif que tenham nomes como... br.gif, us.gif, ar.gif.. sigla dos países aí fica moleza... vo passah o script como ficaria:

#!/usr/bin/perl
##############################################################################
# Country Determinator Version 1.0 #
# Copyright 1998 UtilMind Solutions info@utilmind.com #
# #
# Created Nov 19, 1998 Last Modified Nov 19, 1998 #
##############################################################################

$path="http://www.site.com.....br/bandeiras"; # Local onde se encontram as imagens em formato gif. Sem barra no final.

# Set Variables
$countries_path = "countries.txt";

print "Content-Type: text/html\n\n";

$host = &gethostname;
$host =~ tr/a-z/A-Z/; # UpperCase

$hostlength = length($host);

&smartdetect;

# Get domain extension
$tempstr = $host;

for ($i = $hostlength; $i >= 0; $i--) {
$ch = chop($tempstr);
if ($ch eq '.') {
$host = substr($host, $i, $hostlength - $i);
$i = 0;
}
}

# Get needed Country name from file
open(FILE,$countries_path) || die Cant locate countries.txt file;
@LINES = <FILE>;
close(FILE);
$SIZE = @LINES;

for ($i = 0; $i <= $SIZE; $i++) {
$countrystr = $LINES[$i];
$tempstr = $countrystr;
$len = length($countrystr);
for ($j = $len; $j >= 0; $j--) {
$ch = chop($tempstr);
if ($ch eq '`') {
$country_ext = substr($countrystr, 0, $j - 1);
if ($host eq $country_ext) {
$img=lc($country_ext).".gif";
$host = substr($countrystr, $j, $len - $j - 1);
$pais=$host;

print qq|
<font style="font-family:Tahoma; font-size:8pt; color:#343434">
Olá, seu IP é referente ao país <b><img src="$path/$img" border="0"> $pais</b>
</font>
|;

exit;
}
$j = 0;
}
}
}

print "Unknown";

exit;

################################################
# Detecting Country by other parameters
# For example, my RemoteHost - xxx.Kiev.dial.sovam.com, but country is Ukraine
# - .KIEV. is Ukraine
sub smartdetect {
&seeksubstr('.KIEV.', 'Ukraine');
}

########################################################################
# Usage: seeksubstr(SubString, Country); #
# Returns: nothing, but print country name and exit if substring found #
########################################################################
sub seeksubstr {
$len = length($_[0]);

if ($hostlength > $len) {
for ($i = $hostlength - $len; $i >= 0; $i--) {
$tempstr = substr($host, $i, $len);
if ($tempstr eq $_[0]) {
print "$_[1]";
exit;
}
}
}
}

###############################
# #
# GET HOST NAME FUNCTION #
# #
###############################
sub gethostname {
$ipnum =$ENV{REMOTE_ADDR};
@digits = split (/\./, $ipnum);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);

return $host;
}

Aí vai aparecer tipo assim:

Olá, seu IP é referente ao país Brazil.

Para mudar o valor de Brazil para Brasil é só editar o arquivo countries.txt

Falow

#16 Whitesnake

#17 legenlegenlegen

#18 prix

#19 Whitesnake

#20 legenlegenlegen

Attached Files

1 user(s) are reading this topic