Форум АНТИЧАТ - Куплю акки хостов.

Основное требования к хостам, чтобы выполнялся следующий скрипт. И по всем параметрам выдавал ОК

Код:

#!/usr/bin/perl -w



        $| = 1;



        print "Content-type: text/plain; charset=windows-1251\n\n" if $ENV{HTTP_USER_AGENT};



        print "System info\n";

        print "-----------\n\n";

        print "$^O";

        print "\n", `uname -a` if $^O !~ /win/i;

        print "\n\n";



        print "Perl modules\n";

        print "------------\n\n";

        print "strict .......................... ";

        unless (eval ("use strict; return 1;")) { print "Error"; } else { print "Ok"; }

        print "\nSys::Hostname ................... ";

        unless (eval ("use Sys::Hostname; return 1;")) { print "Error"; } else { print "Ok"; }

        print "\nPOSIX ........................... ";

        unless (eval ("use POSIX qw(setsid); return 1;")) { print "Error"; } else { print "Ok"; }

        print "\nErrno ........................... ";

        unless (eval ("use Errno qw(EINPROGRESS); return 1;")) { print "Error"; } else { print "Ok"; }

        print "\nIO::Socket ...................... ";

        unless (eval ("use IO::Socket qw(:DEFAULT :crlf); return 1;")) { print "Error"; } else { use IO::Socket qw(:DEFAULT :crlf); print "Ok"; }

        print "\nIO::Select ...................... ";

        unless (eval ("use IO::Select; return 1;")) { print "Error"; } else { print "Ok"; }

        print "\n\n";



        print "Server test\n";

        print "-----------\n\n";

        my $s = IO::Socket::INET->new(Proto => "tcp", LocalPort => 36000, Listen => SOMAXCONN, Reuse => 1);

        unless ($s) { print "Error"; } else { close $s; print "Ok"; }

        print "\n\n";



        print "Client test\n";

        print "-----------\n\n";

        my $r = (gethostbyname "smtp.mail.ru")[4];

        unless ($r) { print "Error > Can't resolve hostname"; exit; }

        $s = IO::Socket::INET->new(Proto => "tcp", Type => SOCK_STREAM);

        unless ($s) { print "Error > Can't create socket > $!"; exit; }

        unless ($s->connect(pack ("Sna4x8", 2, 25, $r))) { close $s; print "Error > Can't connect > $!"; exit; }

        $r = <$s>; close $s;

        if (length $r) { print "Ok\n$r"; } else { print "Error > Can't read response"; }

стучать в асеку 493009