Tipp: FastCGI mit FCGI oder CGI::Fast als externer Server (Perl/CGI)

[thread]17634[/thread]

Tipp: FastCGI mit FCGI oder CGI::Fast als externer Server

Tags: perl5 CGI FastCGI Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
pq

2012-08-03 21:57
User since
2003-08-04
12209 Artikel
Admin1
Nachdem ich sehr lange gebraucht habe, um FastCGI zum laufen zu bringen, da ich über mehrere dokumentations-bugs gestolpert bin, möchte ich hier das ganze als beispiel beschreiben.

Apache-Config:
Code: (dl )

1 2

FastCgiExternalServer /tmp/myapp.fcgi -host localhost:8888 Alias /myapp /tmp/myapp.fcgi/
Ganz wichtig ist hier:
Den Daemon startet man selbst von Hand. /tmp/myapp.fcgi ist hier nur ein virtueller Pfad, der nicht existieren sollte.

Das Alias mappt dann /myapp auf den externen Server auf port 8888.

Alternativ kann man auch einen Socketpfad angeben.

Als nächstes versuchte ich, das Skript als Daemon zu starten. Hier meine fehlgeschlagenen Versuche:
more (13.6kb)

und die richtig lautenden Beispiele:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

BEGIN { $ENV{FCGI_SOCKET_PATH} = "localhost:8888"; $ENV{FCGI_LISTEN_QUEUE} = 100; } use CGI::Fast; ... my $count; while (my $cgi = new CGI::Fast) { ... }
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

use FCGI; my $socket = FCGI::OpenSocket( ":8888", 5 ); my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket ); my $count; while( $request->Accept() >= 0 ) { CGI::initialize_globals(); my $cgi = CGI->new; ... } FCGI::CloseSocket( $socket );
Dieses Skript dann einfach starten und der Daemon läuft.
Last edited: 2012-08-03 22:04:12 +0200 (CEST)
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
- GwenDragon
  
  2012-08-03 22:19
  
  User since
  2005-01-17
  14876 Artikel
  Admin1
  
  Danke für solche Tipps.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- pq
  
  2012-08-04 12:25
  User since
  2003-08-04
  12209 Artikel
  Admin1
  Und wenn man mehrere Prozesse haben möchte, dann bei CGI::Fast den FCGI::ProcManager integrieren. Ich schreibs nochmal zusammen auf:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  BEGIN { $ENV{FCGI_SOCKET_PATH} = "localhost:8888"; $ENV{FCGI_LISTEN_QUEUE} = 100; } use FCGI::ProcManager; use CGI::Fast; my $proc_manager = FCGI::ProcManager->new({ n_processes => 10, }); $proc_manager->pm_manage(); ... my $count; while (my $cgi = new CGI::Fast) { $proc_manager->pm_pre_dispatch(); ... $proc_manager->pm_post_dispatch(); }
  
  Direkt mit FCGI zusammen dürfte es auch gehn, habe ich aber nicht probiert.
  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

View all threads created 2012-08-03 21:57.