собственный http сервер

[bulsoft]

os - ubuntu 10.10
цель - создать собственный маленький http сервер

что сделано:
установлен xinetd

Код: [Выделить]

sudo apt-get install xinetdвыбран порт для сервера и в /etc/services добавлена строка

Код: [Выделить]

aupu 20000/tcpв /etc/xinetd.d создан файл aupu

Код: [Выделить]

service aupu
{
socket_type = stream
protocol = tcp
user = root
wait = no
server = /home/bulsoft/Documents/lpt/server.pl
} 
создан файл /home/bulsoft/Documents/lpt/server.pl и назначены права на выполнение

Код: [Выделить]

#!/usr/bin/perl
use strict;

print "HTTP/1.0 200 OK\n";
print "Date: Sat, 01 Jan 2000 00:00:00 GMT\n";
print "Server: AUPU/0.01\n";
print "Content-type: text/html\n";
print "Connection: keep-alive\n\n";

foreach my $env_var (keys %ENV){print "$env_var=$ENV{$env_var}<BR>\n"};
print "OK";
перезапущен демон  xinetd /etc/init.d/xinetd restart

в браузере набираем

Код: [Выделить]

http://127.0.0.1:20000 или http://127.0.0.1:20000/?n=1 или http://127.0.0.1:20000/12345
в результате:

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

HOME=/home/bulsoft
XAUTHORITY=/var/run/gdm/auth-for-bulsoft-HvVOVr/database
SUDO_GID=1000
DISPLAY=:0.0
PWD=/home/bulsoft
LANG=ru_RU.utf8
USER=root
LOGNAME=root
USERNAME=root
PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/X11R6/bin
COLORTERM=gnome-terminal
LS_COLORS=rs=0:di=01;34:ln=01;36:mh=00:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=40;31;01:su=37;41:sg=30;43:ca=30;41:tw=30;42:ow=34;42:st=37;44:ex=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.lzma=01;31:*.tlz=01;31:*.txz=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.dz=01;31:*.gz=01;31:*.lz=01;31:*.xz=01;31:*.bz2=01;31:*.bz=01;31:*.tbz=01;31:*.tbz2=01;31:*.tz=01;31:*.deb=01;31:*.rpm=01;31:*.jar=01;31:*.rar=01;31:*.ace=01;31:*.zoo=01;31:*.cpio=01;31:*.7z=01;31:*.rz=01;31:*.jpg=01;35:*.jpeg=01;35:*.gif=01;35:*.bmp=01;35:*.pbm=01;35:*.pgm=01;35:*.ppm=01;35:*.tga=01;35:*.xbm=01;35:*.xpm=01;35:*.tif=01;35:*.tiff=01;35:*.png=01;35:*.svg=01;35:*.svgz=01;35:*.mng=01;35:*.pcx=01;35:*.mov=01;35:*.mpg=01;35:*.mpeg=01;35:*.m2v=01;35:*.mkv=01;35:*.ogm=01;35:*.mp4=01;35:*.m4v=01;35:*.mp4v=01;35:*.vob=01;35:*.qt=01;35:*.nuv=01;35:*.wmv=01;35:*.asf=01;35:*.rm=01;35:*.rmvb=01;35:*.flc=01;35:*.avi=01;35:*.fli=01;35:*.flv=01;35:*.gl=01;35:*.dl=01;35:*.xcf=01;35:*.xwd=01;35:*.yuv=01;35:*.cgm=01;35:*.emf=01;35:*.axv=01;35:*.anx=01;35:*.ogv=01;35:*.ogx=01;35:*.aac=00;36:*.au=00;36:*.flac=00;36:*.mid=00;36:*.midi=00;36:*.mka=00;36:*.mp3=00;36:*.mpc=00;36:*.ogg=00;36:*.ra=00;36:*.wav=00;36:*.axa=00;36:*.oga=00;36:*.spx=00;36:*.xspf=00;36:
SUDO_USER=bulsoft
SHELL=/bin/bash
REMOTE_HOST=127.0.0.1
TERM=xterm
SUDO_COMMAND=/etc/init.d/xinetd restart
SUDO_UID=1000
OK

вопрос: где брать параметры запроса ?
$ENV{'QUERY_STRING'} пуст ...

[andrey_p]

В @ARGV поищи.

[AnrDaemon]

Внимательно читаем http://tools.ietf.org/html/rfc2616#page-31

[bulsoft]

В @ARGV поищи.

добавил

Код: [Выделить]

print "$_<br>" foreach @ARGV;результат: пусто
Пользователь решил продолжить мысль 22 Июня 2011, 11:12:26:

Внимательно читаем http://tools.ietf.org/html/rfc2616#page-31

читал очень внимательно
не нашел

[AnrDaemon]

"CRLF" не нашли? У вас сервер заголовки в одну строчку лепит!!!!!

[bulsoft]

"CRLF" не нашли? У вас сервер заголовки в одну строчку лепит!!!!!

не понял где искать ....

[AnrDaemon]

Не искать, а читать. 4-ю главу с самого начала.

[bulsoft]

так уже 20 раз читаю эту главу ....
подскажи  где прочитать параметры, которые передает клиент серверу ?
потому что сервер отвечает правильно и firefox как минимум его понимает (смотрю firebug-сеть)

что http://localhost:20000,  что http://localhost:20000/12345 одинаково

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

GET localhost:20000 200 OK localhost:20000 237 B 7ms
ЗаголовкиОтветHTML
Заголовки ответа показать исходный код
Date Sat, 01 Jan 2000 00:00:00 GMT
Server AUPU/0.01
Content-Type text/html
Connection keep-alive
Заголовки запроса показать исходный код
Host localhost:20000
User-Agent Mozilla/5.0 (X11; Linux i686; rv:2.0.1) Gecko/20100101 Firefox/4.0.1
Accept text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding gzip, deflate
Accept-Charset windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive 115
Connection keep-alive

[AnrDaemon]

Что ты вообще передаёшь...

Код: [Выделить]

GET / HTTP/1.0<CR><LF>
Host: localhost<CR><LF>
<CR><LF>
request body...
Ответ должен быть

Код: [Выделить]

200 Ok HTTP/1.0<CR><LF>
Content-Type: text/...<CR><LF>
<CR><LF>
Reply body
А у тебя вместо <CR><LF> везде <LF> понатыканы.
Поставь себе cURL и проверяй.

curl -siH "Host: hostname" http://localhost:20000/ > reply

и смотри, что конкретно отвечает сервер. Лучше для смотрения использовать HEX редактор или вьювер с возможностью просмотра HEX дампа.

[bulsoft]

добавил \r

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl
use strict;

print "HTTP/1.0 200 OK\r\n";
print "Content-type: text/html\r\n";
print "Connection: keep-alive\r\n\r\n";

foreach my $env_var (keys %ENV){print "$env_var=$ENV{$env_var}<br>"};
print "<hr>";

print "$_<br>" foreach @ARGV;
print "<hr>";

print "OK";

результат такой же

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

VERBOSE=no
runlevel=2
UPSTART_INSTANCE=
PREVLEVEL=N
RUNLEVEL=2
PATH=/sbin:/usr/sbin:/bin:/usr/bin
previous=N
REMOTE_HOST=127.0.0.1
TERM=linux
PWD=/
UPSTART_JOB=rc
UPSTART_EVENTS=runlevel
OK

т.е. браузер понимает мой ответ и без \r
проблема в том что я не знаю откуда читать параметры от клиета т.е.

Код: [Выделить]

Код:

GET / HTTP/1.0<CR><LF>
Host: localhost<CR><LF>
<CR><LF>
request body... где это ?

в этом примере все понятно

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

        #!/usr/bin/perl
        use LWP::Socket;
         
        $headers = "HTTP/1.1 200 OK\r\nContent-Type: text/html\r\n\r\n";
        $sock = new LWP::Socket();
        $sock->bind('127.0.0.1', '8080');
        $sock->listen(10);
         
        while ( $socket = $sock->accept(10) ) {
            $content = "Hello from Habr";
            $file_name; $socket->read( \$file_name );
            $file_name =~ s/GET \/([^ ]*) HTTP.+/$1/s;
            if ( open FILE, '<', $file_name ) {
                $content = join "", <FILE>; close FILE;
            }
            $socket->write( $headers . $content );
            $socket->shutdown();
        }


открыли сокет и читают оттуда, а в моем случае откуда читать, если открытием занимается xinetd ?

я так думаю STDIN, но как по тайм ауту не знаю

[AnrDaemon]

Читать, пока не кончатся данные.
А вообще - наверняка гугл знает точно.
У вас на самом деле два вопроса -
1. Как и откуда читать данные. Ответ есть в доках на (x)inetd
2. Какие данные читать и писать. Ответ есть в RFC2616

[bulsoft]

точно STDIN, можно и без \r, но пусть будет по стандарту

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/perl
use strict;
use IO::Select;

print "HTTP/1.0 200 OK\r\n";
print "Content-type: text/html\r\n";
print "Connection: keep-alive\r\n\r\n";

my $foo;
my $s = IO::Select->new();
$s->add(\*STDIN);
if ($s->can_read(0.5)) {
   chomp($foo = <STDIN>);
   print $foo;
}
print "<hr>";
print "OK";

вывод http://localhost:20000/

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

GET / HTTP/1.1
 OK

вывод http://localhost:20000/12345

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

GET /12345 HTTP/1.1
 OK

вывод http://localhost:20000/?n=1

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

GET /?n=1 HTTP/1.1
 OK

всем спасибо тема закрыта