モダンmod_perl入門 #yapcasia

2012/09/29 に YAPC::Asia Tokyo 2012 で発表したスライドです。

Transcript

1. Ϟμϯmod_perlೖ໳ (Modern mod_perl Guide) ඌܗ మ࣍ (OGATA Tetsuji) Twitter: @xtetsuji 2012/09/29 YAPC::Asia Tokyo 2012
2. Attention for audience • This slide is mainly written by Japanese, and few English. In the future, I will write and share this slide of English version, perhaps. • I speach by Japanese language. • If you do not known Japanese language, please fun and feel from some Perl code and few English description on this slide.
3. Self-introduction
4. ࣗݾ঺հ • ඌܗ మ࣍ (OGATA Tetsuji) • Twitter: @xtetsuji • Blog: http://post.tetsuji.jp/ • SlideShare: http://www.slideshare.net/xtetsuji • Α͘ߦ͘: Hokkaido.pm, Hachioji.pm • ಘҙٕ: mod_perl (ଞ͸Α͘஌Βͳ͍)
5. ॴଐ঺հ • גࣜձࣾfonfun(ϑΥϯϑΝϯ) http://www.fonfun.co.jp/ • ओྗ੡඼ɿϦϞʔτϝʔϧ http://rmail.jp/
6. Agenda
7. Agenda • About mod_perl basics • mod_perl handler basics • Refactoring mod_rewrite • mod_perl meets PHP • Apache worker MPM and Perl ithreads • compare mod_{lang} families • In future my activities
8. If time is left • Compare with others • Connection cycle: Let’s make SMTP Server by mod_perl • Other topics
9. In the fi rst
10. Respect for ... ϞμϯPerlೖ໳ (ᠳӭࣾ 2009; http://books.shoeisha.co.jp/book/b73388.html )
11. ࢀߟจݙ • ༸ॻʹͳΓ·͕͢ɺmod_perlΛษڧ͢Δ্Ͱ ໾ཱͭ3࡭ • Practical mod_perl (Orelly 2003; http://modperlbook.org/) • The mod_perl Developer’s Cookbook (Sams Publishing 2002; http://www.modperlcookbook.org/) • mod_perl2 User’s Guide (Onyx Neon 2007; http://modperl2book.org/)
13. About mod_perl basics
14. History of mod_perl • mod_perl1 fi rst public release: 1996/3/25 (see: http://perl.apache.org/dist/mod_perl-1.0-current/Changes) • mod_perl2 fi rst public release: 2002/4/6 (see: http://perl.apache.org/dist/mod_perl-2.0-current/Changes)
15. • mod_perl1 • mod_perl2 • ͜͏ॻ͘͜ͱͰɺ֦ுࢠ”.pl”ͷPerl CGI ͕ߴ଎Խ͢Δ (Registry→PerlRunͰ΋Մ) Perl CGI ͷߴ଎Խ AddHandler perl-script .pl PerlHandler Apache::Registry AddHandler perl-script .pl PerlResponseHandler \ ModPerl::RegistryPrefork # ↓Apache Con fi gurations
16. Perl CGIͷߴ଎Խ • CGI.pmɺCGI::Simple ౳͸಺෦Ͱ mod_perlߴ଎Խ؀ڥΛαϙʔτࡁΈ • ͱ͸͍͑Ӭଓ؀ڥͳͷͰɺάϩʔόϧ ม਺ͷѻ͍౳஫ҙ͕ඞཁ →ϞμϯPerlͳίʔυΛॻ͜͏
17. mod_perlͬͯԿʁ • Perl CGIͷߴ଎Խʁˠ෭࣍తͳޮՌ • ຊ౰͸ʮApache͕ϞδϡʔϧͰఏڙ͢ ΔػೳΛCݴޠΛ࢖ΘͣPerlͰॻ͚Δ Α͏ʹͨ͠΋ͷʯ͕mod_perl • Cݴޠ͕ಡΈॻ͖Ͱ͖ͳ͍Զ׻ت
18. About mod_perl basics • Perl CGIͷߴ଎Խʹ͍ͭͯ͸͍ͩͿׂѪ ͍͖ͤͯͨ͞·͕͢ɺੈؒʹग़ճͬͯ ͍Δؒҧͬͨ஌ࣝͷੋਖ਼͚ͩ͸Ͳ͔͜ Ͱ͍ͨ͠ • ޙ͸Apacheͷmod_perl֦ுϋϯυϥΛ ಡΈॻָ͖ͯ͠͠Έ·͠ΐ͏
19. mod_perl handler basics
20. mod_perl essence is extension of Apache • mod_perl ͷ Perl CGIߴ଎Խ؀ڥͰ͸ɺ HTTPϦΫΤετΛड͚ͯϨεϙϯεΛ ฦ͢͜ͱ͕ग़དྷΔͷ͸प஌ͷ௨Γ • mod_perl͸HTTPϨεϙϯεΛฦ͚ͩ͢ Ͱͳ͘ɺͦͷલॲཧ΍ޙॲཧ΋Ͱ͖Δ
21. Apache internal • MPM͸ଟ͘࢖ΘΕ͍ͯΔpreforkΛ૝ఆ • ਌ϓϩηεΛىಈ͢Δͱɺઃఆʹैͬ ͯࢠϓϩηεΛઃఆͷ਺͚ͩىಈ (prefork) • ֤ࢠϓϩηε͸HTTPϦΫΤετΛ଴ͭ • Ͱ͸ࢠϓϩηε͝ͱͷHTTPॲཧ͸...
22. Apache internal • ϦΫΤετΛड͚Δ • ϔομΛղੳ͢Δ • ඞཁʹԠͯ͡URLΛม׵ͨ͠ΓɺDocumentRootΛख͕͔Γʹ࣮ύε ΛׂΓग़͢ • ΞΫηε੍ޚɺೝূɺঝೝ(BASICೝূͳͲ) • MIMEλΠϓΛߟ͑Δ • ϨεϙϯεΛग़͢(੩తϑΝΠϧɺϓϩάϥϜग़ྗ) • ϩά(ΞΫηεϩάɺΤϥʔϩά)Λग़ྗ͢Δ • ࣍ͷϦΫΤετΛ଴ͭ
23. Apache internal • ֤ॲཧΛߦ͍ͬͯΔ෦෼ʹ͸ϑοΫ͕ ͋ͬͯɺ͜͜ʹ֤छॲཧΛڬΉ͜ͱ͕ Մೳ → Apache Moduleʢmod_xxxxxx) •Apache Module ͰͰ͖Δ͜ͱΛ Perl ͰͰ͖ΔΑ͏ʹͨ͠΋ͷ → mod_perl
24. Apache/mod_perl process phase • ֤ϑοΫ͕͋Δ෦෼: ʮ(ॲཧ)ϑΣʔζʯ • ϦΫΤετ଴ͪঢ়ଶ͔Β֤ϑΣʔζΛ Ұ८͢ΔͷͰɺશମΛ ʮϦΫΤεταΠΫϧʯͱݺͼ·͢
25. Phase of mod_perl1 PerlChildInitHandler PerlPostReadRequestHandler PerlInitHandler PerlTransHandler PerlHeaderParserHandler PerlAccessHandler PerlAuthenHandler PerlAuthzHandler PerlTypeHandler PerlFixupHandler PerlFixupHandler PerlHandler PerlLogHandler PerlCleanupHandler PerlChildExitHandler ※Ұ෦লུ͕͋Γ·͢ɻৄ͘͠͸ҎԼΛࢀর http://perl.apache.org/docs/1.0/guide/con fi g.html#toc_Perl_Handlers
26. Phase of mod_perl1 ※ʮPractical mod_perlʯΑΓൈਮ
27. Phase of mod_perl2 PerlChildInitHandler PerlPostReadRequestHandler PerlInitHandler PerlTransHandler PerlMapToStorageHandler PerlHeaderParserHandler PerlAccessHandler PerlAuthenHandler PerlAuthzHandler PerlTypeHandler PerlFixupHandler PerlFixupHandler PerlResponseHandler PerlLogHandler PerlCleanupHandler PerlChildExitHandler ※͔ͳΓলུ͕͋Γ·͢ɻৄ͘͠͸ҎԼΛࢀর http://perl.apache.org/docs/2.0/user/con fi g/con fi g.html
28. Phase of mod_perl2 ※ʮPractical mod_perlʯΑΓൈਮ
29. fi rst mod_perl1 handler package MyApache::Hello; use strict; use warnings; use Apache::Constants qw(OK); sub handler { my $r = shift; # "Apache" object $r->send_http_header('text/plain'); $r->print("Hello! mod_perl1.\n"); return OK; } 1;
30. fi rst mod_perl2 handler package MyApache2::Hello; use strict; use warnings; use Apache2::RequestRec (); # for $r->content_type() use Apache2::RequestIO (); # for $r->print() use Apache2::Const -compile => qw(OK); sub handler { my $r = shift; # "Apache2::RequestRec" object $r->content_type('text/plain'); $r->print("Hello! mod_perl2.\n"); return Apache2::Const::OK; } 1;
31. Apache{1,2} con fi gs # Apache1 <Location /> SetHandler perl-script PerlHandler MyApache1::Hello </Location> # Apache2 <Location /> SetHandler modperl PerlResponseHandler MyApache2::Hello </Location>
32. fi rst mod_perl handler • શͯ͸ sub handler ͱ $r ͷड͚औΓ͔Β • ͜Ε͸ͲͷॲཧϑΣʔζͰ΋ಉ༷ • mod_perl2 Ͱ͸ $r ͷϝιου܈͕֤छ ผύοέʔδͰ؅ཧ͞Ε͍ͯΔͨΊɺ ϝιουʹΑͬͯࣄલʹద੾ͳ Apache2::* Λ use ͓ͯ͘͠ඞཁ͕͋Δ
33. fi rst mod_perl handler • PerlHandler / PerlResponseHandler ʹϋϯ υϥΛηοτ͓͚ͯ͠͹ɺશͯͷϑΝ ΠϧͷॲཧΛϑοΫͰ͖ΔͷͰɺ*.html ϑΝΠϧ౳Λ͔͋ͨ΋ಁաతʹॲཧ͢ Δ͜ͱ͕Ͱ͖Δ → ֆจࣈॲཧͳͲ
34. Refactoring mod_rewrite
35. About mod_rewrite • URLΛॻ͖׵͑ΔApacheϞδϡʔϧ • ʮApacheͷεΠε੡ΞʔϛʔφΠϑʯ • ؆୯ͳίʔυͰURLॻ͖׵͕͑Մೳͩ ͚ΕͲɺ਺ेߦ΋ॻ͚͹ຐ۸ͷ׬੒ • ࠇຐज़ͱݺ͹ΕΔཧ༝
36. Refactoring mod_rewrite • mod_perl Ͱ͸ PerlTransHandler ͱ͍͏ URL Λॻ͖׵͑ΔϑΣʔζΛ༻ҙͯ͠ ͍Δ • ͜͜ʹ URL ม׵ॲཧΛڬΊΔ
37. Apache1 URI Trans package MyApache1::Trans; use strict; use warnings; use Apache::Constants qw(DECLINED); sub handler { my $r = shift; my $uri = $r->uri(); # e.g. "/path/to/foo.html" ### ... modify $uri ... $r->uri($uri); return DECLINED; # I tell a lie that I do nothing. } 1;
38. Apache2 URI Trans package MyApache2::Trans; use strict; use warnings; use Apache2::RequestRec (); # for $r->uri() use Apache2::Const -compile => qw(DECLINED); sub handler { my $r = shift; my $uri = $r->uri(); # e.g. "/path/to/foo.html" ### ... modify $uri ... $r->uri($uri); # set $uri return Apache2::Const::DECLINED; # I tell a lie that I do nothing. } 1;
39. Apache{1,2} con fi gs # Apache1 # e.g. In <VirtualHost> Directive PerlTransHandler MyApache1::Trans # Apache2 # e.g. In <VirtualHost> Directive PerlTransHandler MyApache2::Trans
40. mod_perl URI Trans pros than mod_rewrite • mod_rewriteʹൺ΂ͯՄಡੑ͕ߴ͘ͳΔ • DBΛҾ͍ͨΓmemcachedʹΞΫηε͠ ͨΓPerlͰग़དྷΔ͜ͱ͸ԿͰ΋Ͱ͖Δ
41. mod_perl URI Trans cons than mod_rewrite • ෳ਺ͷϑΝΠϧ؅ཧ͕ඞཁͱͳΔ(*.pm) • Perl/mod_perl͕෼͔Βͳ͍୲౰ऀ΁ͷ Ҿ͖ܧ͕͗೉͘͠ͳΔ • Directory Context(<Location>, .htaccess) ʹॻ͔Εͨmod_rewriteઃఆͷ৔߹͸ɺ ผ్έΞ͕ඞཁͳέʔε΋͋Δ
42. mod_perl meets PHP
43. PHP pathetic story of Perl Monger • ୭͔͕ൃ஫ͨ͠ΞϓϦ͕PHP੡Ͱɺطʹ উखʹೲ඼ͪ͠Ό͍ͬͯΔ • ֖Λ։͚Δͱ࣮૷ͱ͔͕ςΩτ΢ա͗ • ܖ໿΍ॾʑͷཧ༝ͰखΛೖΕΒΕͳ͍ • ӡ༻୲౰ͰPerl͔͠஌Βͳ͍Զ͕PHPͷ σόοάͱ͔…
44. mod_perl meets PHP • PHP͕࣮ߦ͞ΕΔલޙʹmod_perlͰԿ͔ ϑοΫΛࠩ͠ࠐΊͳ͍͔ • PHPॲཧલʹೝূɾڐՄॲཧ • PHPॲཧޙʹग़ྗΛϑΟϧλ…౳ʑ
45. Review request phase
46. Access/Authen/Authz and PHP • session_*()ͷ࢖͍ํ౳͕μϝͳέʔεͰ ͸ɺPHPதͷͦΕΒͷίʔυΛআڈͯ͠ mod_perlͷAccess/Authen/AuthzϑΣʔζ Ͱରॲ͢Δέʔε΋ߟ͑ΒΕΔ • CookieɺX-UP-Subno౳ͷRequest Header ͸શͯಡΊΔ → ೝূΛݞ୅ΘΓͰ͖Δ
47. package MyApache2::Auth; use strict; use warnings; # $r->headers_in() and $r->headers_out() returns APR::Table use APR::Table (); use Apache2::RequestRec (); use Apache2::Const -compile => qw(OK REDIRECT); sub handler { my $r = shift; my $cookie = $r->headers_in->get('Cookie'); # raw cookie my $x_up_subno = $r->headers_in->get('X-UP-Subno'); my ($is_success, $location, $set_cookie); ### ### ... modify and analyze this session information ... ### if ( $is_success ) { $r->headers_out->set('Set-Cookie' => $set_cookie); return Apache2::Const::OK; } else { $r->headers_out->set(Location => $location); $r->err_headers_out->set(Location => $location); return Apache2::Const::REDIRECT; } } 1; # e.g. In <VirtualHost> Directive PerlAccessHandler MyApache2::Auth
48. Request output fi lter and PHP • PHPͷग़ྗΛϑΟϧλ͢Δ • Apache2ͷωΠςΟϒϑΟϧλͳͷͰɺ PHPͷ ob_*() (output buffering) ౳ͷઃఆ ʹҰ੾Өڹ͞Εͳ͍ • Ԡ༻ྫ: ֆจࣈม׵ɺPHPͰॻ͖͖Εͳ ͍෦෼ΛޙͰஔ׵͢Δɺ౳ʑ
49. Requets output fi lter practice • Filter ͷ৔߹ sub handler { ... } ͸ $r (Request Object)Ͱ͸ͳ͘ɺ $f (Filter Object) ΛୈҰҾ਺ʹड͚औΔ • PerlOutputFilterHandler σΟϨΫςΟϒ • ࠓճ͸վߦΛআڈ͢Δ؆୯ͳαϯϓϧ Λ঺հ
50. package MyApache2::FilterObfuscate; use APR::Table (); use Apache2::Filter (); use Apache2::RequestRec (); use Apache2::Const -compile => qw(OK); my $READ_CHUNK_LENGTH = 2048; sub handler { my $f = shift; # $f is "Apache2::Filter" object ### If filter is chained, this filter is first? unless ($f->ctx) { $f->r->headers_out->unset('Content-Length'); $f->ctx(1); } while ($f->read(my $buffer, $READ_CHUNK_LENGTH)) { $buffer =~ s/[\r\n]//g; $f->print($buffer); } return Apache2::Const::OK; } 1; # e.g. In <VirtualHost> Directive <FilesMatch “.*(html?|php)$”> PerlOutputFilterHandler MyApache2::FilterObfuscate </FilesMatch>
51. PHP and Perl are friend • Apacheͷ্ͰPHPͱPerl͸༑ୡʂ • ଞʹ΋֤छϑοΫΛ࢖ͬͯmod_perl͸ PHPΛॿ͚Δ͜ͱ͕Ͱ͖Δ • Մೳੑ͸ແݶେ
52. Apache worker MPM and Perl ithreads
53. Apache worker MPM and Perl ithreads • Apache worker MPM: εϨου(pthread) ͱϓϩηεͷϋΠϒϦοτಈ࡞ • Perl ithreds: ݏΘΕऀ • ಉ࣌ฒߦॲཧ͢ΔͳΒParallel::Prefork ౳΍AnyEventΛ࢖͏ͷ͕ࠓͷPerlྲّྀ
54. εϨουͷϝϦοτ • ֤ϦΫΤετϑΣʔζؒͰม਺ڞ༗͕ Մೳ (poor man’s memcached?) • Կ͔ਓͱ͸ҧ͏ࣄΛͯ͠ΔϫΫϫΫײ
55. εϨουͷσϝϦοτ • Perl ithreads͕҆ఆ͍ͯ͠ͳ͍ • ֤εϨουຖʹΠϯλʔϓϦλϓʔϧ Λ࡞੒͢Δઃܭ্ɺpreforkͱίετ͸ ͦΕ΄ͲมΘΒͳ͍ • εϨουηʔϑΛҙࣝ͢Δඞཁ͕͋Δ
56. Instruction worker MPM & mod_perl • worker MPM্Ͱͷmod_perlͷϊ΢ϋ΢ ͸ಛʹগͳ͍ͷͰϋϚΔͱةݥ • PerlͷεϨου͸ෆ҆ఆͰ͋ΔࣄΛ৺ಘ ্ͨͰɺෳࡶͳࣄ͸ͤͯ͞͸͍͚ͳ͍
57. Queue server by mod_perl2 thread • ࠓճ͸εϨουͷม਺ڞ༗Λར༻ͨ͠ mod_perl2ͷจࣈྻQueueαʔόΛ࣮ԋ • “POST /” ͰRequest BodyΛQueueingɺ • “GET /” ͰQueueΛPickup
58. Queue server by mod_perl2 thread (1) package My::Queue; use strict; use warnings; use threads; use threads::shared; my @queue :shared; sub push_queue { my $value = shift; return 0 if !defined $value; push @queue, $value; return 1; } sub shift_queue { return shift @queue } 1;
59. Queue server by mod_perl2 thread (2) package MyApache2::ThreadQueue; use strict; use warnings; use threads; use Apache2::RequestRec (); use Apache2::RequestIO (); use Apache2::Const -compile => qw(OK HTTP_METHOD_NOT_ALLOWED); use My::Queue; my $READ_CHUNK_LENGH = 2048; ### ### ... following sub handler { ... } ... ###
60. Queue server by mod_perl2 thread (3) ### continued sub handler { my $r = shift; if ( $r->method eq 'POST' ) { my $value; while ( $r->read(my $buf, $READ_CHUNK_LENGH) ) { $value .= $buf; } My::Queue::push_queue($value); $r->content_type('text/plain'); $r->print('Queued'); return Apache2::Const::OK; } elsif ( $r->method eq 'GET' ) { my $retval = My::Queue::shift_queue(); $r->content_type('text/plain'); $r->print($retval); return Apache2::Const::OK; } else { return Apache2::Const::HTTP_METHOD_NOT_ALLOWED; } } 1;
61. worker MPM and perl ithreads practice • ෳࡶͳࣄ͸ͤͯ͞͸͍͚ͳ͍ • ෳࡶͳࣄΛͤ͞Δ৔߹ʹ͸े෼ࢼݧΛ • େࣄͳ͜ͱͳͷͰ(ry • લग़ͷQueue server͸100KBఔ౓ͷจࣈ ྻͷೖग़ྗΛ10K/minͤͯ͞΋໰୊ແ͠
62. compare mod_{lang} families
63. mod_{lang} (1) • mod_perl: ࠷΋ྺ࢙͕ݹ͍΋ͷͷҰͭ • mod_ruby: ։ൃఀ଺ঢ়ଶˠmod_mruby • mod_python: ։ൃఀ଺ঢ়ଶ • mod_lua: Apache2.4͔ΒίΞϞδϡʔϧ • mod_mruby: 2012೥4݄ʹొ৔͠׆ൃ
64. mod_{lang} (2) • mod_wsgi: Python WSGI ࣮૷ • mod_php: ͍ΘΏΔPHP • ͪ͜Β͸ࠓ·ͰͷҙຯͰApacheΛ ʮ֦ுʯ͢Δ΋ͷͰ͸ͳ͍ • ଞʹ΋ͨ͘͞Μmod_{lang}͸͋ΔΒ͍͠
65. Benchmark http://blog.matsumoto-r.jp/?p=2669 ΑΓ
66. Benchmark http://blog.matsumoto-r.jp/?p=2669 ΑΓ
67. Benchmark • Perl CGIߴ଎Խ؀ڥ(PerlRun, Registry)ͷ ৔߹͸mtime(ϑΝΠϧͷ࠷ऴߋ৽೔࣌) Λ౎౓ݟΔͷͰɺstatγεςϜίʔϧͷ ίετ͕ແࢹͰ͖ͳ͍ • mod_perlωΠςΟϒϋϯυϥͰউෛʂ
68. Benchmark • ࣮ࡍɺmod_perlωΠςΟϒϋϯυϥͰ ಉ౳ͷϕϯνϚʔΫΛߦ͏ͱ About 7000 Response/secͱͷ͜ͱ (Thanks @matsumotory) • Yet another perl5 implement Ͱ mod_*perl Λ࡞Δͱྑ͍উෛ͕Ͱ͖Δ͔ͳ
69. In future my activities
70. In future my activities • mod_perlͷ໾ཱͭ৘ใ΍ίʔυΛެ։ ͍͖͍ͯͨ͠ • mod_perlͰࠔ͍ͬͯΔਓΛॿ͚͍ͨ
71. In future my activities • ࠓޙ΋mod_perlք۾Λ੝Γ্͍͛ͨ • TwitterΞΧ΢ϯτ࡞ͬͨ @mod_perl_info • ΢ΣϒαΠτ΋࡞੒த(ະ׬੒) http://modperl.info/ • ৄࡉɺׂѪͨ͠෦෼ͷଓ͖͸Ͳ͔͜Ͱ
72. Timeup?
73. Questions?
74. ˑService Slidesˑ
75. Compare with others
76. Compare with others • Pure CGI • FastCGI • PSGI/Plack, WAF
77. mod_perl and pure CGI • ύϑΥʔϚϯεΛཁٻ͠ͳ͚Ε͹ྑ͍ • ApacheҎ֎ͷ΢ΣϒαʔόͰ΋࢖͑Δ • Ϩϯλϧαʔό౳ɺmod_perl͢Β࢖͑ ͳ͍؀ڥ͸ະͩʹଟ͍
78. mod_perl and FastCGI • ͲͪΒ΋ಉ͡Ӭଓ؀ڥɺదࡐదॴ • Apache֦ுͳΒmod_perlɺCGIͷߴ଎Խ ͷΈͳΒFastCGI • mod_perlͷ৔߹Apacheϓϩηεࣗ਎͕ ංେԽ͍ͯ͘͜͠ͱΛݏ͏޲͖΋͋Δ
79. mod_perl and PSGI/Plack, WAF • Ϟμϯͳ΢ΣϒΞϓϦΛࠓ͔Βॻ͘ͷ Ͱ͋Ε͹PlackϕʔεͷWAFΛબ΅͏ • ApacheΛ֦ுͯ͠ଞͷݴޠͱͷ࿈ܞ΍ Apacheࣗମͷಈ࡞Λ֦ுͰ͖Δͷ͸ mod_perlͷ໘໨༂೗
80. Should you choice mod_perl? • Apacheͱ͍͏࿮ͷதͰ͸͋Δ΋ͷͷɺ mod_perlͷՄೳੑ͸ͱͯ΋޿͍ • ύϑΥʔϚϯεɺҠ২ੑɺ༷ʑͳཁૉ Λݕ౼ͯ͠ɺmod_perlΛ࢖͏͔ߟ͑Δ • طʹ͋ΔApache্ͷϨΨγʔίʔυΛ ϦϑΝΫλϦϯά͢ΔͳΒྑ͍બ୒
81. Connection cycle: Let’s make SMTP Server by mod_perl
82. Connection cycle • HTTPҎ֎ͷαʔόΛॻ͖͍ͨ • Apacheͱಉ༷ͷ҆ఆੑ͕ཉ͍͠ • Apache2/mod_perl2Ͱ͸ɺConnectionΛ HTTPҎ֎ͷࣗલͷ΋ͷʹॻ͖׵͑Δࣄ ͕Ͱ͖Δ (e.g. mod_ssl)
83. About Connection Cycle PerlPreConnectionHandler PerlProcessConnectionHandler ※ʮPractical mod_perlʯΑΓൈਮ
84. Why I want to write SMTP server by perl • DBҾ͖͍ͨ • ֆจࣈॲཧ͍ͨ͠ • ௨ৗͷMTA(Sendmail/qmail/Post fi x౳)ͷ pipeͰ͸εέʔϧͰ͖ͳ͍
85. Qpsmtpd • http://smtpd.develooper.com/ • ࣮ࡍʹࢲ(ձࣾ)΋mod_perl2 Connection cycleͰSMTPαʔόΛ࣮૷ͯ͠Έͨ΋ͷ ͷɺطʹPerlք۾ʹ͸Qpsmtpdͱ͍͏ MTA͕͋Δ
86. Qpsmtpd has some Engine=Transport • pipe (CGI like) • fork-server • prefork-server •Apache (Apache::Qpsmtpd) • async (Danga::Socket base)
87. Qpsmtpd’s Apache::Qpsmtpd • Apache2 / mod_perl2 ͷ Connection cycle ͷྑ͍Ԡ༻ྫ • ͜ΕΛݟΔͱApache2ΛEngineͱͯ͠ MTAΛ࡞Δํ๏͕ྑ͘෼͔Δ
88. Other topics
89. Test of mod_perl handler • ʮϞμϯPerlೖ໳ʯʹৄ͘͠ॻ͍ͯ͋Δ • Apache2::FakeRequestΛ࢖ِͬͯ෺ͷ$r Λ࡞ͬͯϋϯυϥΛςετͰ͖Δ • ॲཧ୯Ґͷςετ͸Test::More౳Ͱ • ৄ͘͠͸ׂѪɺ΋͘͠͸্ड़ͷॻ੶Λ
90. nginx: HttpPerlModule http://wiki.nginx.org/HttpPerlModule
91. nginx: HttpPerlModule • ߏจ΍ߟ͑ํ͕mod_perl1ͱࠅࣅ ˠmod_perlͷ஌ࣝΛྲྀ༻Մೳ • ͨͩ͠ΠϕϯτۦಈαʔόͳΒͰ͸ͷ ֤छ੍ݶ΋͋ΔͷͰ஫ҙ • ੈؒͰͷԠ༻ྫ΋গ͠ग़͖͍ͯͯΔ • Ҏલ͸EmbeddedPerlModuleͱ͍͏ ໊લͩͬͨ(1.0→1.2Ͱ໊শมߋʁ)
92. nginx: HttpPerlModule package hello; use nginx; sub handler { my $r = shift; $r->send_http_header("text/html"); return OK if $r->header_only; $r->print("hello!\n<br/>"); $r->rflush; if (-f $r->filename or -d _) { $r->print($r->uri, " exists!\n"); } return OK; } 1; __END__ http://wiki.nginx.org/HttpPerlModule ΑΓ
93. nginx: HttpPerlModule • mod_perl2Ͱ͸ͳ͘mod_perl1ͷߏจͷ ӨڹΛڧ͘ड͚͍ͯΔ ($r->send_http_headers()౳ʹݟΒΕΔ) • nginxઃఆϑΝΠϧͷॻ͖ํʹ͍ͭͯ͸ ׂѪˠલड़ͷWikiʹৄࡉ͕͋Δ
94. ׂѪͨ͜͠ͱ • Perl CGIͷߴ଎Խ؀ڥͷৄࡉ • Apache2.4؀ڥͰͷmod_perl→ݱ࣌఺ (2012/09)Ͱਖ਼ࣜʹαϙʔτ͍ͯ͠ͳ͍ • Apache2.4 event MPM؀ڥͰͷ mod_perl→্هಉ༷
95. ͜Ε͔ΒͷApache • Apache2.4Ͱmod_perl͕αϙʔτ͞Εͨ Βɺevent MPM্Ͱmod_perlಈ͔͍ͨ͠ • Apache͸͜Ε͔Β΋ਐԽ͍͖ͯ͠·͢ • mod_lua, mod_sed͕Apache2.4ͰίΞϞ δϡʔϧೖΓɺ͔͠͠Experimentalѻ͍
96. Questions?
97. ͝ਗ਼ௌ ͋Γ͕ͱ͏͍͟͝·ͨ͠