Daemon::SSL nach Annahme der Verbindung forken (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]15223[/thread]

Daemon::SSL nach Annahme der Verbindung forken

Leser: 24

Articles: hide open all | hide show old branches

+14 replies
drux

2010-06-30 00:37
User since
2010-06-30
6 Artikel
BenutzerIn
Aloha,
Ich habe dieselbe Frage im Perlunity-Forum schonmal gestellt, aber entweder ist sie zu trivial oder ich hab einfach was grundsaetzlich nicht verstanden ^^' (oder alle sind im Urlaub)
ich nutze ein HTTP::Daemon::SSL Objekt welches auf Anfragen eines Clients an einem bestimmten Port wartet.
Nun moechte ich, dass der "Server" bei jedem neuen Aufbau eines Clients den request nicht selbst bearbeitet, sondern sich forked und den request den kindprozess abarbeiten laesst, damit der eltern-prozess weiter verbindungen annehmen kann und sie dann wieder weiterreicht.
Zur Zeit sieht das so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

while ( 1 ) {# prevents from exiting when client connects without SSL while (my $c = $d->accept()) { my $pid = fork(); die "Cannot fork: $!" unless defined($pid); if ($pid == 0) { # &handle($c); sleep(10); exit(0); } } }
handle wuerde den request nehmen und auswerten. Zur Zeit habe ich zu Testzwecken ein sleep drin, damit ich sehe ob man eine anfrage 2x senden kann und er sie gleichzeitig verarbeitet.

Meine frage waere jetzt, ob ich grundsaetzlich was falsch verstanden habe oder einen Denkfehler drin hab oder sonstwas ...
Komisch ist zB dass der Daemon zwar forked wenn ich eine anfrage sende, jedoch nur einmal, heisst bei der zweiten und dritten kommt kein neuer prozess.

Vielen Dank schonmal
so far...
Guck mal wer da kommt! Der Wayne-Train!
- murphy
  
  2010-06-30 03:50
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Der wiedergegebene Code sieht eigentlich so aus, als sollte er funktionieren.
  
  Was wohl noch fehlt ist ein Aufräumen der beendeten Kindprozesse (im einfachsten Fall mittels local $SIG{CHLD} = 'IGNORE' vor der Ereignisschleife) sowie der nicht mehr verwendeten akzeptierten Verbindungen.
  When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- pq
  
  2010-06-30 12:46
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  also ich habe das mal mit HTTP::Daemon getestet und da funktioniert das einwandfrei. Habe 5 GET-Requests parallel gestartet, und es wurden 5 Prozesse gestartet.
  
  Kannst du es mal mit HTTP::Daemon versuchen, ob es da klappt?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - drux
    
    2010-07-06 19:13
    
    User since
    2010-06-30
    6 Artikel
    BenutzerIn
    
    Hi, sry das ich mich nicht gemeldet hab, aber is grad ein wenig stressig wegen verschiedenen Abgaben in der Uni.
    Ich werde es mal mit HTTP::Daemon testen und sobald ich was weiss mich wieder melden. Danke schonmal ;)
    Guck mal wer da kommt! Der Wayne-Train!
- +9 replies
- pq
  
  2010-07-04 12:12
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  kommt da noch was? würde mich persönlich jedenfalls interessieren, ob die vorschläge was gebracht haben.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +8 replies
  - drux
    
    2010-07-06 20:32
    User since
    2010-06-30
    6 Artikel
    BenutzerIn
    
    Also: mit dem HTTP::Daemon scheint es besser zu gehen.
    Ich habe 4 Requests gestarten und 3 instanzen bekommen O.o (warum auch immer) jede wartet 10 sek. aber er ist nach ca 30sek erst mit der letzten anfrage durch. sollte das nicht eigentlich nach 10 sekunden der Fall sein, da ja alle 3 zeitgleich ausgefuehrt werden?
    Allerdings hab ich auch keine erklaerung warum es mit dem SSL nicht geht :/
    Ich poste vollstanedigkeitshalber mal noch den rest des Daemon:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
    
    #!/usr/bin/perl use warnings; use strict; use HTTP::Daemon; use POSIX qw(setsid); use Digest::SHA qw(sha256_hex); require 'functions.pl' or die $!; my $d = HTTP::Daemon->new(LocalAddr => "localhost", LocalPort => 8080, ReuseAddr => 1) || die "Couldn't start server! Reason: $!"; print "Serving as (".$$.") on ".$d->sockhost.":".$d->sockport."\n"; # # catching the exit- or termination status of the child process to avoid zombies # $SIG{CHLD} = sub {wait ()}; # # daemonizing, In- and Output to /dev/null and forking the server => giving control back to the shell # #&daemonize; # # looping and forking a child to process the incoming request that was accepted by the main program # while ( 1 ) {# prevents from exiting when client connects without SSL while (my $c = $d->accept()) { my $pid = fork(); die "Cannot fork: $!" unless defined($pid); if ($pid == 0) { #&handle($c); sleep(10); exit(0); } } } close($d);
    
    Last edited: 2010-07-06 20:34:21 +0200 (CEST)
    Guck mal wer da kommt! Der Wayne-Train!
    - +2 replies
    - pq
      
      2010-07-06 22:39
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      dann stellt sich die frage, welches betriebssystem du benutzt. (und welche perl-version?)
      
      unter windows z.b. ist forking so eine sache.
      
      hier unter debian klappt es jedenfalls wie gewünscht parallel. nach ~10 sec sind alle requests durch.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - drux
        
        2010-07-06 23:45
        
        User since
        2010-06-30
        6 Artikel
        BenutzerIn
        
        Code: (dl )
        
        1 2
        
        drux@debiserv:~/xenter$ perl -v This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi
        
        Code: (dl )
        
        1 2
        
        Linux debiserv 2.6.32-22-generic #36-Ubuntu SMP Thu Jun 3 19:31:57 UTC 2010 x86_64 GNU/Linux
        
        Das gibt mir jetzt zu denken :/
        Guck mal wer da kommt! Der Wayne-Train!
    - +5 replies
    - pq
      
      2010-07-06 23:57
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      ähm, moment,
      ich habe tatsächlich anderen code benutzt, bzw. in der schleife noch was gemacht, was du im original gar nicht drinhattest.
      hab ich einfach aus der manpage übernommen (das mit get_request):
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      while (my $c = $d->accept) { while (my $r = $c->get_request) { my $pid = fork; next unless defined $pid; if ($pid) { print "forked child $pid\n"; } else { print "child $$, handling request\n"; sleep 5; print $c "Status 200 OK\n"; exit; } } }
      
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - pq
        
        2010-07-07 00:00
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        wahlweise das fork auch um die get_request-schleife drumherum, geht beides bei mir.
        wenn ich das get_request ganz weglasse, kriege ich halt fehlermeldungen beim request.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - drux
        
        2010-07-07 00:04
        
        User since
        2010-06-30
        6 Artikel
        BenutzerIn
        
        Also so wie ich das sehe unterscheiden die beiden snippets sich durch das next und die schleife um den request abzufangen.
        Der wird bei mir schon in der sub verarbeitet:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        sub handle { my $c = shift; my $r = $c->get_request; my %_GET=(); my %_POST=(); if ($r) { %_GET = &parseQueryString($r->url()); if (defined($r->content_length)) { %_POST = &parsePostFields($r); } $c->send_status_line(); #... code ... } }
        
        ich werd mal schauen ob ich das umbauen kann und obs klappt...
        Aber ich erinnere mich das auch schonmal gehabt zu haben und aus irgendeinem Grund das dann gewechselt habe
        Guck mal wer da kommt! Der Wayne-Train!
        
        +2 replies
        
        pq
        
        2010-07-07 00:12
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        am besten mal ein minimalbeispiel bauen, also teste einfach mal meine version, ich hab mittels
        $ GET http://localhost:8081/ &
        auf der kommandozeile getestet.
        
        irgendwo muss ja dann ein unterschied sein...
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        drux
        
        2010-07-07 00:28
        
        User since
        2010-06-30
        6 Artikel
        BenutzerIn
        
        ich glaube es liegt an irgendetwas im system.
        Hab jetzt dein beispiel in ein paar varianten getestet, dann nochmal meins und nun geht es manchmal und manchmal nicht...
        Auf jedenfall kann er 2 gleichzeitig starten. Das reicht eigentlich auch schon. Aber warum das so ist... tja, keine ahnung.
        Wenn ich mich weit aus dem fenster lehnen muesste wuerde ich sagen ubuntu ^^ ich werd es dann mal auf dem debian server testen ;)
        aber vielen dank fuer deine hilfe, vor allem um dir uhrzeit :)
        Guck mal wer da kommt! Der Wayne-Train!
- sri
  
  2010-07-07 22:38
  
  User since
  2004-01-29
  828 Artikel
  BenutzerIn
  
  Eventuell einfach ein Web Framework wie Mojolicious nehmen, was bereits einen hervorragenden Prefork Web Server eingebaut hat.
  http://mojolicio.us/

View all threads created 2010-06-30 00:37.