>>я имею ввиду что у LWP есть возмодность обращаться через HTTP к таким директориям
и причём тут LWP и возможность обращаться ? может кто-нибудь расскажет ? .) через сокеты помойму более правильно
Код:
#!/usr/bin/perl
use Socket;
use MIME::Base64;
$host = 'blabla';
$port = '80';
$login = 'vexoid';
$passw = 'deforum';
$link = '/nechto.trebueshee.auth';
$encoded = encode_base64($login . ':' . $passw, '');
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(SOCK, $paddr);
send (SOCK, "GET $link HTTP/1.0\nAuthorization: Basic $encoded\nHOST:$host\n\n", 0);
@data=<SOCK>;
close(SOCK);
print "Content-Type: text/html\n\n";
print @data;
Новости дизайна |
Галереи |
О проекте |
RSS
Правила |
FAQ |
Поиск |
Наша команда |
Регистрация |
Вход
