VPF::Добавить строку в Http заголовок

artmetrist

Дата 21.3.2015, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 18.3.2015

Репутация: нет
Всего: нет

Цитата(tzirechnoy @ 20.3.2015, 12:25)

Цитата

первой строчкой в http заголовке должна идти строка GET

GET ... -- это строка запроса, а не заголовок.

Строка запроса в заголовке!!!
"Строки после главной строки запроса (GET /index.html HTTP/1.1) имеют следующий формат: Параметр: значение. Таким образом задаются параметры запроса. Это является необязательным, все строки после главной строки запроса могут отсутствовать; в этом случае сервер принимает их значение по умолчанию или по результатам предыдущего запроса (при работе в режиме Connection: Keep-Alive). "
Т.е. кроме этой строки остальные параметры не обязательны... клиент-сервер могут обмениваться только заголовками, что по вашему запрос в этом случае?

artmetrist

Дата 21.3.2015, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 18.3.2015

Репутация: нет
Всего: нет

Вообщем заголовок получилось сформировать, только в ответ тишина...

Код


#!/usr/bin/perl

use Socket;
use MIME::Base64 qw(encode_base64);
 my $user = 'usr';
 my $pass = 'pass';
my $auth = encode_base64($user.":".$pass);
print $auth;
$|++;
my $request=<<REQ;
GET /gori.jpg HTTP/1.1
Host: webdav.yandex.ru
Accept: */*
Authorization: Basic $auth
REQ
print $request;
socket(SOCK, PF_INET, SOCK_STREAM,getprotobyname('tcp'));
my $host = 'webdav.yandex.ru';
my $iaddr=inet_aton($host);
print "host $host\n";
print "iaddr $iaddr\n";
my $port=443;
my $paddr=sockaddr_in($port,$iaddr);
print "paddr $paddr\n";
connect(SOCK, $paddr);
send(SOCK, $request, 0);
my @data = <SOCK>;
close(SOCK);
print "data @data\n";
exit 0

Вывод работы скрипта:

Код


dXNyOnBhc3M=
GET /gori.jpg HTTP/1.1
Host: webdav.yandex.ru
Accept: */*
Authorization: Basic dXNyOnBhc3M=

host webdav.yandex.ru
iaddr մ�5
paddr �մ�5
data

tzirechnoy

Дата 23.3.2015, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1173
Регистрация: 30.1.2009

Репутация: -1
Всего: 16

Цитата

Строка запроса в заголовке!!! "Строки

Цитата

только в ответ тишина...

Неудивительно -- поскольку порт 443, традицыонно, используется для подключения по протоколу SSL/TLS, а не голому HTTP.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »