shram
Новичок
Whois и определение IP
1.
вот скрипт определения IP
Если можно подкоректировать и проверить его на счёт ошибок и безопасности.
Как его вставить в страницу?
Чтоб в таком виде:
ВАШ IP: и тут чтоб отображался IP посетителя.
2.
Может чучуть не по теме, но простите...
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI qw
standard);
print "Content-Type: text/plain\n\n";
my $host=param('host');
$host=~s/[^a-zA-Z0-9._-]+//g;
print qx{whois $host};
мне нужен скрипт Whois
я смог только найти тока на перле...
если можно подкоректировать и проверить его на счёт ошибок и безопасности или исправить на хороший скрипт на php.
Как его вставить в страницу?
Чтоб в таком виде:
<form method=get action="/cgi-bin/whois.pl">
<input type=text name=whois size=16>
<input type=submit value="Check">
</form>
но ничего не выходит..
СПАСИБО! КТО ОТКЛИКНИТСя
1.
PHP:
<?php
//$ip - домен или ip
$whois = `whois $ip`;
//создаем переводы строк
$whois = trim(str_replace("\n","<br>",$whois));
//выводим результат на экран
echo "<p>$whois</p>";
?>Если можно подкоректировать и проверить его на счёт ошибок и безопасности.
Как его вставить в страницу?
Чтоб в таком виде:
ВАШ IP: и тут чтоб отображался IP посетителя.
2.
Может чучуть не по теме, но простите...
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI qw
standard);print "Content-Type: text/plain\n\n";
my $host=param('host');
$host=~s/[^a-zA-Z0-9._-]+//g;
print qx{whois $host};
мне нужен скрипт Whois
я смог только найти тока на перле...
если можно подкоректировать и проверить его на счёт ошибок и безопасности или исправить на хороший скрипт на php.
Как его вставить в страницу?
Чтоб в таком виде:
<form method=get action="/cgi-bin/whois.pl">
<input type=text name=whois size=16>
<input type=submit value="Check">
</form>
но ничего не выходит..
СПАСИБО! КТО ОТКЛИКНИТСя
(С примером)