Как я могу реализовать простой прокси WHOIS в Perl? - PullRequest
Новая
       1

Как я могу реализовать простой прокси WHOIS в Perl?

4 голосов
/ 16 июля 2011

У меня есть несколько WHOIS серверов, для которых я хочу иметь один прокси.Прокси-сервер должен пересылать запросы соответствующим серверам на основе данных в запросе.Как подойти к этой проблеме?

Ответы [ 2 ]

6 голосов
/ 17 июля 2011

Шаг 1, прочитайте RFC для WHOIS
Шаг 2, внедрите фиктивный сервер с Net :: Server
Шаг 3, внедрите прокси, используя свой фиктивный сервер и Net :: Whois :: Proxy или какой-либо другой модуль WHOIS

При быстром сканировании RFC кажется, что это простой текстовый протокол, который ожидает одну завершенную строку CRLF и затем отправляеткапля CRLF завершает строки и закрывает сокет.

Да, это действительно выглядит так просто, учитывая этот код 

#!/usr/bin/perl

{
    package Whois;
    use strict;
    use warnings;

    use parent 'Net::Server';

    sub process_request {
        my $request = <>;
        print "you sent me $request";
    }

}

Whois->run;

, вы можете сказать 

whois -h localhost -p 20203 foo.com

иполучить обратно 

you sent me foo.com

Учитывая тег "высокая нагрузка", вы, вероятно, захотите переключиться на Net::Server::PreForkSimple индивидуальность, когда закончите тестирование.

И только потому, что мне было скучно: 

#!/usr/bin/perl

package Whois {
    use strict;
    use warnings;

    use parent 'Net::Server::PreFork';

    use Net::Whois::Raw;

    my %handler = (
        org => "whois.publicinterestregistry.net",
    );

    sub process_request {
        (my $request = <>) =~ s/[.]([^.]+)\x{0d}\x{0a}/.$1/;

        print exists $handler{$1} ?
            whois $request, $handler{$1} :
            "I don't know where to look for $request\r\n";
    }

}

Whois->run(
    user              => "nobody",
    group             => "nobody",
    port              => 43,
    min_servers       => 1,      #min number of children
    max_servers       => 10,     #max number of children
    min_spare_servers => 1,      #fork if we don't have this many waiting
    max_spare_servers => 5,      #kill if we have this many waiting
    max_requests      => 10_000, #num of requests before killing a child    
);

, который, когда я запускаю 

sudo perl whois.pl

, а затем 

whois -h localhost foo.org

дает нам 

NOTICE: Access to .ORG WHOIS information is provided to assist persons in
determining the contents of a domain name registration record in the Public Interest Registry
registry database. The data in this record is provided by Public Interest Registry
for informational purposes only, and Public Interest Registry does not guarantee its
accuracy.  This service is intended only for query-based access.  You agree
that you will use this data only for lawful purposes and that, under no
circumstances will you use this data to: (a) allow, enable, or otherwise
support the transmission by e-mail, telephone, or facsimile of mass
unsolicited, commercial advertising or solicitations to entities other than
the data recipient's own existing customers; or (b) enable high volume,
automated, electronic processes that send queries or data to the systems of
Registry Operator or any ICANN-Accredited Registrar, except as reasonably
necessary to register domain names or modify existing registrations.  All
rights reserved. Public Interest Registry reserves the right to modify these terms at any
time. By submitting this query, you agree to abide by this policy.

Domain ID:D1608104-LROR
Domain Name:FOO.ORG
Created On:10-Jan-1995 05:00:00 UTC
Last Updated On:07-Mar-2011 00:26:43 UTC
Expiration Date:09-Jan-2012 05:00:00 UTC
Sponsoring Registrar:Fabulous.com Pty Ltd. (R133-LROR)
Status:CLIENT DELETE PROHIBITED
Status:CLIENT TRANSFER PROHIBITED
Registrant ID:fabwpp-000700385
Registrant Name:Domain Hostmaster, CustomerID : 85519846801225
Registrant Organization:Whois Privacy Services Pty Ltd
Registrant Street1:PO Box 923
Registrant Street2:
Registrant Street3:
Registrant City:Fortitude Valley
Registrant State/Province:QLD
Registrant Postal Code:4006
Registrant Country:AU
Registrant Phone:+61.730070090
Registrant Phone Ext.:
Registrant FAX:+61.730070091
Registrant FAX Ext.:
Registrant Email:85519846801225-959797@whoisprivacyservices.com.au
Admin ID:fabwpp-000700385
Admin Name:Domain Hostmaster, CustomerID : 85519846801225
Admin Organization:Whois Privacy Services Pty Ltd
Admin Street1:PO Box 923
Admin Street2:
Admin Street3:
Admin City:Fortitude Valley
Admin State/Province:QLD
Admin Postal Code:4006
Admin Country:AU
Admin Phone:+61.730070090
Admin Phone Ext.:
Admin FAX:+61.730070091
Admin FAX Ext.:
Admin Email:85519846801225-959797@whoisprivacyservices.com.au
Tech ID:fabwpp-000700385
Tech Name:Domain Hostmaster, CustomerID : 85519846801225
Tech Organization:Whois Privacy Services Pty Ltd
Tech Street1:PO Box 923
Tech Street2:
Tech Street3:
Tech City:Fortitude Valley
Tech State/Province:QLD
Tech Postal Code:4006
Tech Country:AU
Tech Phone:+61.730070090
Tech Phone Ext.:
Tech FAX:+61.730070091
Tech FAX Ext.:
Tech Email:85519846801225-959797@whoisprivacyservices.com.au
Name Server:NS1.HITFARM.COM
Name Server:NS2.HITFARM.COM
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
Name Server:
DNSSEC:Unsigned


whois.publicinterestregistry.net
0 голосов
/ 16 июля 2011

Я не эксперт по whois, но Net :: Whois :: Proxy может показаться тем, что вы хотите.

...