Serwer HTTP Perl

[cossinuss]

Ja mam "problem" z Perlem. Próbowałem się dziś nauczyć podstaw i nie jest źle, bo już umiem uruchamiać programy Przymusiło mnie zadanko z technologii sieciowych.

use HTTP::Daemon;
  use HTTP::Status;  
  #use IO::File;

  my $d = HTTP::Daemon->new(
           LocalAddr => 'lukim',
           LocalPort => 4321,
       )|| die;
  
  print "Please contact me at: <URL:", $d->url, ">\n";


  while (my $c = $d->accept) {
      while (my $r = $c->get_request) {
          if ($r->method eq 'GET') {
              
              $file_s= "./index.html";    # index.html - jakis istniejacy plik
              $c->send_file_response($file_s);

          }
          else {
              $c->send_error(RC_FORBIDDEN)
          }

      }
      $c->close;
      undef($c);
  }

Pytanie, jak to działa i dlaczego przy uruchomieniu wyskakuje błąd:
(nie, żebym nie rozumiał po angielsku, ale jaki powinien być ten adres?)

Jeśli Ktoś chciałby wytłumaczyć, jak mam zacząć i jak nawiązać połączenie za pomocą klientów i co powinien zawierać plik index.html... Byłbym bardzo wdzięczny

Jeszcze klienci:

use LWP::Simple;

 $content = get("http://www.chip.pl/");
 die "Couldn't get it!" unless defined $content;
 
print $content;

 use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
  #$ua->agent("$0/0.1 " . $ua->agent);

  $ua->agent("Mozilla/8.0"); # pretend we are very capable browser

  $req = HTTP::Request->new(GET => 'http://www.chip.pl');
  $req->header('Accept' => 'text/html');

  # send request
  $res = $ua->request($req);

  # check the outcome
  if ($res->is_success) {
     print $res->content;
  }
  else {
     print "Error: " . $res->status_line . "\n";
  }

use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
  #$ua->agent("$0/0.1 " . $ua->agent);

  $ua->agent("Mozilla/8.0"); # pretend we are very capable browser

  $req = HTTP::Request->new(GET => 'http://www.google.pl/search?q=doom');
  $req->header('Accept' => 'text/html');

  # send request
  $res = $ua->request($req);

  # check the outcome
  if ($res->is_success) {
     print $res->content;
  }
  else {
     print "Error: " . $res->status_line . "\n";
  }

Z góry dziękuję za wszelkie wskazówki.

[markossx]

Błąd jest bo jak napisałem wstaw adres IP:
127.0.0.1 najlepiej na początek lub odwzoruj sobie w pliku hosts te nazwe (lukim) na adres swojej karty sieciowej.
To robi tak, że słucha w pętli na zadanym adresie i porcie by odbierać prawidłowe żądania HTTP wysłane na ten socket i serwować ewentualne pliki.
W tym wypadku obsługą protokołu zajmuje się
LINK

i co powinien zawierać plik index.html...

nie chcę Ciebie zniechęcać ale jak stawiasz takie pytanie to chyba za wcześnie jeszcze na zabawę perlem na poziomie sieci i socketów ale mogę się mylić.

[cossinuss]

nie chcę Ciebie zniechęcać ale jak stawiasz takie pytanie to chyba za wcześnie jeszcze na zabawę perlem na poziomie sieci i socketów ale mogę się mylić.

Z pewnością jest za wcześnie Tym bardziej, że informatyka to nie jest mój życiowy konik

Dobra to tak. Wrzuciłem sobie do folderu bierzącego jakąś stronkę index.html (mam nadzieję, że o to tylko chodzi i nic tam więcej nie musi być). Zmieniłem adres na swoje IP (znaczy domyślne). uruchomiłem w konsoli ten serwer. Odpaliłem operę i próbowałem się połączyć wpisując http://127.0.0.1:4321/ ale

Nie uzyskano połączenia z serwerem

.
Jestem na dobrej drodze?

// Poprawka, nie zauważyłem błędu w konsoli

HTTP:aemon: Bad hostname '⌂ ☺' ...propagated at server3.pl line 5.

[markossx]

Dobrze kombinujesz
Wyeliminuj błąd i odpal serwer.
Jak się serwer odpali to powinieneś mieć stan LISTEN na porcie 4321.
Sprawdź:
windows:

netstat -anob

linux:

netstat -vatn

btw:
looknij tez czy firewall nie blokuje czegoś.

[cossinuss]

Czas wrócić do zadania. Może komuś zechce się jeszcze potłumaczyć mi jak krowie na rowie .

Proszę o weryfikację moich rozważań:

use HTTP::Daemon;
  use HTTP::Status;
  use IO::File;



  # metoda new tworzy serwer
  # jesli nie uda się utworzyć Deamona to die. Kiedy może zajść taka sytuacja ??
  my $d = HTTP::Daemon->new(
           LocalAddr => 'lukim',
           LocalPort => 4322,
       )|| die;

  # $d->url zwraca adres serwera
  print "Please contact me at: <URL:", $d->url, ">\n";

  # accept "zwraca domyślnie wskaźnik do HTTP::Daemon::ClientConn"
    while (my $c = $d->accept) {

      # nasłuchiwanie
      while (my $r = $c->get_request) {

          # z HTTP::Request coś pobiera... :)
          if ($r->method eq 'GET') {

              # czytamy stronkę do stringa?
              $file_s= "./1/index.html";    # index.html - jakis istniejacy plik

              # wysyła odpowiedź zwrotną. Czy tu można podać ścieżkę pliku?
              # czy trzeba stringa?
              $c->send_file_response($file_s);
              
              # odesłanie nagłówka
              $c->send_file_response($headers_only);

          }
          else {
              $c->send_error(RC_FORBIDDEN)
          }

      }
      $c->close;
      undef($c);
  }

Teraz trochę pytań. Metoda send_basic_header podaje tylko tyle inforamcji, po wyświetleniu strony:
HTTP/1.1 200 OK
Date: Mon, 08 Jun 2009 22:07:32
Server: libwww-perl-daemon/1.33

Co oznacza zielona wartość? W zasadzie nie wiem do końca jakiej metody użyć, bo jest jeszcze klasa HTTP::Headers albo HTTP:Request, która odkapsułkowuje żądania, ale nie wiem jak się posłużyć metodą header($field).

Użyłem metody send_file_response(headers_only) i jest fajnie, bo klient mi w konsoli wyświetla więcej rzeczy:

HTTP/1.1 404 Not Found
Date: Mon, 08 Jun 2009 22:48:40 GMT
Server: libwww-perl-daemon/1.33
Content-Type: text/html
Content-Length: 53

<title>404 Not Found</title>
<h1>404 Not Found</h1>

tylko, czegoś tu nie znajduje. Pytanie, czego?

I jeszcze w LWP::UserAgent jest jakaś metoda ->default_headers, ale ona ustawia jakiś domyślny nagłówek dla wszystkich żądań

Teraz jeszcze ważna sprawa odnośnie klientów. Wydaje mi się, że cl2 i cl3 powinny odpalać przeglądarki i w nich wyświetlać inforamcje. Tymczasem robią to w konsoli, z której są uruchamiane. Hmm a może bezpośrednio z pliku uruchomię... Jakkolwiek, jakie parametry mam wpisać dla opery 9.64 i IE 8.0.cośtam ?

"Więcej światła!"

[cossinuss]

Podejrzałem u kolegi jeszcze coś takiego, żeby nagłówek wysłać tak

$c->send_response($r->as_string);

I ten nagłówek chyba podoba mi się najbardziej

HTTP/1.1 GET / HTTP/1.0
Host: lukim:4322
User-Agent: lwp-trivial/1.38



Date: Tue, 09 Jun 2009 00:03:27 GMT
Server: libwww-perl-daemon/1.33

Muszę jeszce przeanalizować komunikaty do i od serwera. Jak je przechwycić w wiresharku? Ewentualnie w innym programie.

[TQM]

Jak chcesz sprawdzic co Twoj klient wysyla i co odpowiada serwer to:

GET -SUse http://.......

Dostaniesz oba zestawy naglowkow i content strony. GET to wlasnie skrypt napisany w LWP o ile pamietam, ktory instlauje sie w systemie razem z modulami perla