mod_perl温故知新 〜Perl CGIの高速化からメールサーバまで〜

2011/07/16に Hokkaido.pm#5 で発表したスライドです。

Transcript

1. mod_perlԹނ஌৽ ʙPerl CGIͷߴ଎Խ͔Β ϝʔϧαʔό·Ͱʙ גࣜձࣾfonfun ඌܗ మ࣍ (OGATA Tetsuji) Twitter: @xtetsuji 2011/7/16
2. ࣗݾ঺հͳͲ
3. ࣗݾ঺հ(1/2) • ඌܗ మ࣍ (OGATA Tetsuji) Twitter: @xtetsuji • http://post.tetsuji.jp/ (࠷ۙϒϩά࢝Ί·ͨ͠) ͜͜ͰޠΓ͖Εͳ͍͜ͱ΋ॻ͖͍ͨͰ͢ • ๺ւಓͷԻߋொ(ଳ޿ࢢͷྡொ)ग़਎Ͱ͢ɻ ߴߍଔۀ·Ͱͷ18೥ؒΛ๺ւಓͰա͝͠· ͨ͠
4. ࣗݾ঺հ(2/2) • ਓੜॳεϐʔΧʔ (͓खॊΒ͔ʹ…) • (ϙετ)ϞμϯPerlʹ৐Ε͍ͯͳ͍30୅ • JavaScript / Shell Script(bash) // Emacs Lisp • झຯ: ΫϥγοΫԻָɺΧϑΣࢄࡦɺ ࿏ઢόε
5. ॴଐ঺հ(1/2) • גࣜձࣾfonfun(ϑΥϯϑΝϯ) http://www.fonfun.co.jp/ • ओྗ੡඼ɿϦϞʔτϝʔϧ http://rmail.jp/ • ೚ҙஂମg15ΞιγΤʔγϣϯ http://g15.jp/
6. ॴଐ঺հ(2/2) • גࣜձࣾfonfun(چ໊ࣾ:ωοτϏϨοδ) • 1999೥͔Β΢Σϒϝʔϧ (঎඼໊:ϦϞʔτϝʔϧ)Λӡ༻ • 2003೥ʹୈ4ੈ୅γεςϜ(Perl + Apache/ mod_perl + Oracle + Post fi x)Λ։ൃ • ࠷ۙ৽͍ٕ͠ज़తͳࢼΈʹνϟϨϯδத
7. ࠓճ͓࿩Λ͍ͤͯͨͩ͘͞ ͜ͱʹͳͬͨܦҢ • ஍ݩʹεΧΠΞʔΫγεςϜͱ͍͏ձ͕ࣾ͋Δ • YAPC::Asia2010ͰεϙϯαʔΛ͍ͯ͠ΔͷΛൃݟ • ڵຯ͕͋Δͱݴ͍ͬͯͨΒɺͱ͋Δਓ͕தͷਓ Ͱ͋ΔӬ୩͞Μ(@onagatani)Λ঺հͯ͘͠Εͨ • ͔͠΋ Hokkaido.pm ͷҒ͍ਓͩͬͨʂ • ͍·͜͜
8. Agenda
9. Agenda • I. mod_perlΛৼΓฦͬͯΈ·ͤΜ͔ʁ • II. mod_perlͷਅ਷͸Apacheͷ֦ு • III. Apache2&mod_perl2ͰHTTPͷ֎΁ • IV. ଵଦͱԠ༻ - qpsmtpd & nginx... • ·ͱΊ
10. I. mod_perlΛ ৼΓฦͬͯΈ·ͤΜ͔ʁ
11. ͍·͞Β Apache+mod_perl? • ʲ࣭໰ʳWAFɺPSGI/PlackΛ࢖͑͹ɺ ApacheͳͲҙࣝ͠ͳ͍͍ͯ͘ͷͰ͸ʁ • ʲճ౴ʳ͔֬ʹͦ͏͔΋͠Ε·ͤΜɻ ͚ͩͲɺ஌ࣝͱͯ͠஌͓͍ͬͯͯ΋ଛ͸ ແ͍͸ͣͰ͢ • ྫ͑͹Plack+mod_perl2Ͱ΋ɺมͳόά Λ౿ΜͰ͠·͏͜ͱ΋͋ΔΑ͏Ͱ͢ ※ http://subtech.g.hatena.ne.jp/cho45/20101221/1292941055 ※1. WAF=Web Application Framework ※1
12. ͍·͞Β Apache+mod_perl? • Apache+mod_perl+WAFͰ΋mod_perlͷ ಺ଆΛଟগ஌͓͚ͬͯ͹… • όάΛ౿Μͩ࣌ɺ໾ཱͭ • ύϑΥʔϚϯεվળͷώϯτ͕͋Δ
13. ͍·͞Β Apache+mod_perl? • ࠓ΋Apache͸࠷΋࢖ΘΕ͍ͯΔαʔό • ͲͷLinuxσΟετϦϏϡʔγϣϯʹ΋ େ఍Apacheͱmod_perlͷύοέʔδ͸ ඪ४Ͱ༻ҙ͞Ε͍ͯΔ(͸ͣ)
14. ͍·͞Β Apache+mod_perl? • ࠓ΋Apache͸࠷΋ ࢖ΘΕ͍ͯΔαʔό • ApacheͷγΣΞ͸ 2011೥7݄ݱࡏ65.86% (2011೥6݄ͩͱ64.88%) (http://news.netcraft.com/ archives/2011/07/08/ july-2011-web-server- survey.html ΑΓ) • ͍ͭͷੈ΋൒਺Ҏ্Apache Market Share for Top Servers Across All Domains August 1995 - June 2011
15. ͍·͞Β Apache+mod_perl? • ͍ͭͰ΋θϩ͔Β࠷৽ͷWAFΛ࢖ͬͯ ։ൃ͕Ͱ͖Δͱ͸ݶΒͳ͍ • डୗҊ݅΍ίϯςϯπҠ؅Ҋ݅ͳͲɺ ϨΨγʔͳApacheͱPerl CGI(or PHP)ͷ ੡඼Λ౉͞ΕΔ͜ͱ΋͋Δେਓͷੈք • ϦϑΝΫλϦϯάɺ ϚΠάϨʔγϣϯ...
16. mod_perlͷόʔδϣϯ • Apache1.3 → mod_perl1 • Apache2.x → mod_perl2 • 1ͱ2Ͱ͸mod_perlͷจ๏ͷҧ͍͸େ͖͍ • ྺ࢙ͷڱؒͷmod_perl1.99(ཁ஫ҙ) • ※ݱࡏApache1͸deprecated͕ͩɺੈؒͰ͸ݱ໾ͱݴ͑ΔͷͰɺmod_perl1 ʹ͍ͭͯ΋ɺͳΔ΂͘৮Ε·͢
17. mod_perlͷྺ࢙ • mod_perl1 fi rst public release: 1996/3/25 (http://perl.apache.org/dist/mod_perl-1.0-current/Changes ΑΓ) • mod_perl2 fi rst public release: 2002/4/6 (http://perl.apache.org/dist/mod_perl-2.0-current/Changes ΑΓ)
18. • mod_perl1 • mod_perl2 • ͜͏ॻ͘͜ͱͰɺ֦ுࢠ”.pl”ͷPerl CGI ͕ߴ଎Խ͢Δ Perl CGI ͷߴ଎Խ AddHandler perl-script .pl PerlHandler Apache::Registry AddHandler perl-script .pl PerlResponseHandler \ ModPerl::Registry # ↓Apache Con fi gurations
19. ྫ͑͹ hello.pl
20. mod_perl1ͰHello1.pm • ʮϨεϙϯεϋϯυϥʯΛॻ͘ • Ϩεϙϯεϋϯυϥͱ͸ɺୈҰҾ਺ʹϦΫ ΤετΦϒδΣΫτ($r)Λड͚औΔ handler αϒϧʔνϯ͕ఆٛ͞Εͨύοέʔδ • http://hello.example.jp/ ҎԼʹΞΫηεͨ͠ Βɺว͘ Content-Type: text/plain Ͱఆܗͷѫ ࡰ͢Δ͚ͩͷαϯϓϧΛ࡞ͬͯΈΔ
21. mod_perl1ͰHello1.pm # apache1.3 con fi guration <VirtualHost A.B.C.D:80> ServerName hello.example.jp SetHandler perl-script PerlHandler Hello1 </VirtualHost>
22. mod_perl1ͰHello1.pm
23. mod_perl2ͰHello2.pm • ಉ༷ͷαϯϓϧΛ࡞੒ • جຊ͸mod_perl1ͱಉ͡ • จ๏͸݁ߏҧ͍·͢
24. mod_perl2ͰHello2.pm # apache2.x con fi guration <VirtualHost A.B.C.D:80> ServerName hello.example.jp SetHandler perl-script PerlResponseHandler Hello2 </VirtualHost>
25. mod_perl2ͰHello2.pm • PerlHandler → PerlResponseHandler ໊લ͕Α͏΍͘໌շʹͳͬͨ • ͨͩ Hello2.pm ͷίʔυ͸݁ߏҧ͍·͢
26. mod_perl2ͰHello2.pm
27. mod_perl2ͰHello2.pm • mod_perl1͸mod_perlͷύοέʔδ໊લ ۭؒ͸ Apache:: ͷΈ • mod_perl2͸mod_perlͷύοέʔδ໊લ ۭ͕ؒ Apache2::ɺModPerl::ɺAPR:: ౳ͱ ࡉ෼Խ͞Εɺmod_perl1ͷڊେͳΫϥε (Apache object౳)΋Mix-inతʹ෼ׂ͞Εͨ
28. Helloͱѫࡰͯ͠΋... • ࠓ·Ͱ΍͖ͬͯͨͷ͸CGI΍WAFͰ΋ Ͱ͖Δ؆୯HTTPϨεϙϯεΛฦ͢ॲཧ • Α͏΍͘ຊ୊΁...
29. II. mod_perlͷਅ਷͸ Apacheͷ֦ு
30. mod_perlͷਅ਷͸ Apacheͷ֦ு • ࠓ·Ͱݟ͖ͯͨͷ͸ɺHTTPϨεϙϯε Λฦ͢ॲཧ • mod_perl͸HTTPϨεϙϯεΛฦ͚ͩ͢ Ͱͳ͘ɺͦͷલॲཧ΍ޙॲཧ΋Ͱ͖Δ
31. Apacheͷ಺෦ॲཧ • MPM͸ଟ͘࢖ΘΕ͍ͯΔPreforkΛԾఆ • ਌ϓϩηεΛىಈ͢Δͱɺઃఆʹैͬ ͯࢠϓϩηεΛઃఆͷ਺͚ͩىಈ (prefork) • ֤ࢠϓϩηε͸HTTPϦΫΤετΛ଴ͭ • Ͱ͸ࢠϓϩηε͝ͱͷHTTPॲཧ͸...
32. Apacheͷ಺෦ॲཧ • ϦΫΤετΛड͚Δ • ϔομΛղੳ͢Δ • ඞཁʹԠͯ͡URLΛม׵ͨ͠ΓɺDocumentRootΛख͕͔Γʹ࣮ύε ΛׂΓग़͢ • ΞΫηε੍ޚɺೝূɺঝೝ(BASICೝূͳͲ) • MIMEλΠϓΛߟ͑Δ • ϨεϙϯεΛग़͢(੩తϑΝΠϧɺϓϩάϥϜग़ྗ) • ϩά(ΞΫηεϩάɺΤϥʔϩά)Λग़ྗ͢Δ • ࣍ͷϦΫΤετΛ଴ͭ
33. Apacheͷ಺෦ॲཧ • ͬ͘͟Γྻڍ͚ͨͩ͠ͳͷʹϏογϦ • ֤ॲཧΛߦ͍ͬͯΔ෦෼ʹ͸ϑοΫ͕͋ͬͯɺ ͜͜ʹ֤छॲཧΛڬΉ͜ͱ͕Մೳ →Apache Moduleʢmod_xxxxxx) •Apache Module ͰͰ͖Δ͜ͱΛ Perl ͰͰ͖ ΔΑ͏ʹͨ͠΋ͷ͕mod_perl • ͜Ε͕mod_perlͷਅ਷Ͱ͢
34. Apache/mod_perl ॲཧϑΣʔζ • ֤ϑοΫ͕͋Δ෦෼: ʮ(ॲཧ)ϑΣʔζʯ • ϦΫΤετ଴ͪঢ়ଶ͔Β֤ϑΣʔζΛҰ ८͢ΔͷͰɺશମΛʮϦΫΤεταΠΫ ϧʯͱݺͼ·͢ • Apache/mod_perlͷ1ͱ2Ͱ݁ߏҧ͍·͢ • Apache/mod_perlͷ2ͷ΄͏͕ߴػೳ
35. ॲཧϑΣʔζ: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
36. ॲཧϑΣʔζ:mod_perl1 ※ʮPractical mod_perlʯΑΓൈਮ
37. ॲཧϑΣʔζ: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
38. ॲཧϑΣʔζ:mod_perl2 ※ʮPractical mod_perlʯΑΓൈਮ
39. ࣮ྫ • ࣌ؒͷ౎߹্ɺଟ͘Λ͝঺հͰ͖·ͤ Μ͕ɺগ࣮͠ྫΛݟͯΈ·͠ΐ͏
40. ࣮ྫ: mod_rewriteͷ ϦϑΝΫλϦϯά • Α͘࢖ΘΕ͍ͯΔ͝ଘ஌mod_rewrite • ୯७ͳURLਖ਼نදݱஔ׵ʹศར • ͨͩɺॲཧߦ਺͕ଟ͘ͳ͖ͬͯͨΓɺ (ؤுΕ͹ॻ͚Δ͕)৚݅෼ذ΍൓෮ॲཧ ʹखΛग़͢ͱ్୺ʹࠇຐज़Խ
41. ࣮ྫ: mod_rewriteͷ ϦϑΝΫλϦϯά • mod_rewriteॲཧΛɺURLΛॻ͖׵͑Δ ϑΣʔζͷPerlTransHandlerͰ࣮૷͢Δ • (࢖͏ͳΒ)৚݅෼ذ΍൓෮ॲཧ͕Perlͷ ίʔυʹͳΔͷͰՄಡੑ͕Α͘ͳΔ • mod_rewriteࣗ਎PerlTransHandlerʹରԠ ͢ΔC APIͷϑΣʔζͰಈ࡞͍ͯ͠·͢ ※࣮ࡍ͸PerlFixupHandlerʹରԠ͢ΔϑΣʔζͰ΋͓࢓ࣄΛ͍ͯ͠·͢
42. ࣮ྫ: mod_rewriteͷ ϦϑΝΫλϦϯά # required “RewriteURL.pm” <VirtualHost A.B.C.D:80> ServerName hello.example.jp PerlTransHandler RewriteURL </VirtualHost>
43. ࣮ྫ: mod_rewriteͷ ϦϑΝΫλϦϯά
44. • ʮϨεϙϯεϋϯυϥʯͱಉ͡Α͏ͳ จࣈ௨ΓʮϋϯυϥʯΛॻ͖·͢ • sub handler { my $r = shift; ... } • ଞͷϑΣʔζͰ΋͜ͷॻ͖ग़͠͸ఆੴ ࣮ྫ: mod_rewriteͷ ϦϑΝΫλϦϯά
45. ଞʹͰ͖Δ͜ͱҰྫ • ֤ϑΣʔζͰ͜Μͳ͜ͱ͕Ͱ͖ΔΑʂ ͱ͍͏֓೦͚ͩ͝঺հ͠·͢ɻ • ࣮ࡍͷମݧஊΛଟ͘੝Γ͜ΜͰΈ·͢
46. ଞʹͰ͖Δ͜ͱҰྫ • PerlPostReadRequestHandler औΓٸ͗ѱ࣭ͳDDoSΛःஅ(Ԡٸાஔ) • return DONE; # cut off! • ຊདྷ͸PerlAccessHandlerͰ͢Δͷ͕ྑ͍ • ࠷ऴతʹ͸LB΍iptablesͰःஅ͔ͳ
47. ଞʹͰ͖Δ͜ͱҰྫ • PerlTransHandler͸ຊ౰ʹ໾ཱͪ·͢ • mod_rewrite͕εΠε੡ΞʔϛʔφΠϑ ͳΒɺPerlTransHandler͸ϓϩͷྉཧਓ ͕࢖͏ߴڃแஸʁͦΕͱ΋೔ຊ౛ʁ • URLॻ͖׵͚͑ͩͰͳ͘ϦμΠϨΫτ΋ ౰વͰ͖·͢(return REDIRECT; ͳͲ)
48. ଞʹͰ͖Δ͜ͱҰྫ • Perl{Authen,Authz}Handler γϯάϧαΠϯΦϯ࣮૷ PHPͰ΋ϨεϙϯεॲཧʹೖΔલʹ CookieॲཧͳͲΛPerlͰߦ͑Δ • Access,Authen,Authzͷ3छ͸3Aͱ΋ݺ͹ ΕΔɻΞΫηε੍ޚɺೝূɺڐՄɻ
49. ଞʹͰ͖Δ͜ͱҰྫ •طʹେྔͷHTMLϑΝΠϧͷ͋Δ੩తαΠτΛड ͚औͬͨϓϩάϥϚͷݽ܉ฃಆ • ґཔʮUser-AgentΛݟͯ *.html ͷ Content-Type Λ text/html ͔ application/xhtml+xml ͔ɺग़͠෼͚ͯ͠ ͍͚ͨͩ·͔͢ʁʯ • PerlTypeHandler ͔ PerlFixupHandler Ͱ΍Γ·͠ΐ͏ (ೖग़ྗϔομॲཧ: $r->headers_in, $r->headers_out)
50. ଞʹͰ͖Δ͜ͱҰྫ • ґཔʮΞϑΟϦΤΠτͰશͯͷHTML ϑΝΠϧͷ</body>ͷલʹಈతʹίʔυ ΛೖΕ͍͖ͯͨͩ(ryʯ • PerlHandler / PerlResponseHandler Λ࢖͑ ͹͓खܰʹղܾ • $r->print(thiswork(slurp($r-> fi lename())));
51. ଞʹͰ͖Δ͜ͱҰྫ • ґཔʮiϞʔυHTMLͰॻ͔Εͨֆจࣈ ೖΓ੩తHTML͕େྔʹ͋ΔΜͰ͕͢ɺ SBM୺຤͕དྷͨΒม׵(ryʯ • ͜Ε΋ PerlHandler / PerlResponseHandler Ͱ͓ख͔ܰͭಁա తʹղܾ͠·͠ΐ͏
52. ଞʹͰ͖Δ͜ͱҰྫ ࣾ಺ίʔυ Kepler/Apache/ConvertEmoji.pm ΑΓൈਮ
53. ଞʹͰ͖Δ͜ͱҰྫ • HTTPϨεϙϯεग़ྗॲཧ / PerlHandler / PerlResponseHandler ͕׬ྃͨ͠ޙ... • PerlLogHandler͸$r͔ΒHTTPϨεϙϯε ݁Ռ΍ૹ৴αΠζ਺͕औಘՄೳͳঢ়ଶ • ༷ʑͳDBʹϩάΛॻ͖ग़ͨ͠Γ௨஌Λ ͨ͠ΓͰ͖·͢
54. ଞʹͰ͖Δ͜ͱҰྫ • ଞʹ΋ຊ౰ʹ৭ʑͳ࢖͍ํ͕Ͱ͖Δ mod_perlͷHTTPॲཧͰ͕͢ɺͦΖͦΖ ࣍ͷ࿩ʹҠΓ·͢
55. III. Apache2&mod_perl2 ͰHTTPͷ֎΁
56. Apache2&mod_perl2Ͱ HTTPͷ֎΁ • ઌ΄Ͳ঺հͨ͠mod_perlͷॲཧϑΣʔ ζ͸HTTP Request/Responseͷ͓࿩ • $r : Apache (mod_perl1) • $r : Apache2::RequestRec (mod_perl2) • ׳श໊ $r ͷ r ͸ request/response ͷ r
57. Apache2/mod_perl2 Ͱͷ৽ઃαΠΫϧ • Apache2ʹ͸HTTPΛѻ͏Ҏ֎ͷαΠΫϧ΋͋Δ • ServerLifeCycle ؔ࿈ • Protocol / Connection ؔ࿈ • Filter ؔ࿈ • Thread ؔ࿈ •౰વmod_perl2Ͱ΋ɺͦΕΛ࢖ͬͯHTTPҎ֎ͷॲ ཧ͕ॻ͚Δ ※ http://perl.apache.org/docs/2.0/user/con fi g/con fi g.html Λࢀর
58. Apache2/mod_perl2 Connection αΠΫϧ • ࠓճ͸ConnectionαΠΫϧʹ஫໨ • (HTTPͰ͸ͳ͍)ProtocolαΠΫϧͱ΋ • ConnectionαΠΫϧ͸HTTPΛѻ͏ αΠΫϧɾϑΣʔζΑΓ΋લʹҐஔ͢Δ • Apache2ͰͷԠ༻ྫ: mod_ssl
59. Connection αΠΫϧͷ ॲཧϑΣʔζ PerlPreConnectionHandler PerlProcessConnectionHandler ※ʮPractical mod_perlʯΑΓൈਮ
60. • 2͚ͭͩɻHTTPΑΓ΋γϯϓϧʁ • PerlPreConnectionHandler • Apacheॲཧͷຊ౰ʹ๯಄ʹҐஔ͢Δ • PerlProcessConnectionHandler •ࠓճ͜͜ʹSMTPαʔόΛ࡞Γ·͢ Connection αΠΫϧͷ ॲཧϑΣʔζ
61. Apache2 SMTPαʔόͷ ࡞੒ಈػ • ։ൃ಺༰͸ϝʔϦϯάϦεταʔϏε • Post fi x pipeΛ࢖͑͹PerlϓϩάϥϜͰI/O ॲཧ͕ॻ͚Δ͕ɺforkͷίετ͕ߴ͍ • ॏ͍DBॲཧɺֆจࣈॲཧ͕͔ͨͬͨ͠
62. Apache2 SMTPαʔόͷߏ ੒ • ϋʔυ΢ΣΞߏ੒: 2୆(load balancing) • ֎෦ͱͷૹड৴SMTPαʔό͸ɺطʹ Քಇதͷผͷϋʔυ΢ΣΞ਺े୆ఔ ౓ͷΫϥελ͕͋Δ • ʮApache2 SMTPαʔόʯͷ಺෦Ͱ͸ɺ Post fi xʹड৴ͱૹ৴ͷॲཧΛґཔ...
63. Apache2 SMTPαʔόͷߏ ੒ •໼ҹ͸SMTPͷྲྀΕ •αʔό಺Ͱ྆୺ͰPost fi xΛߏ͑ ͍ͤͯ͞Δͷ͸ɺ൥ࡶͳΩϡʔ ͷ؅ཧΛল͖͍ͨࢥ࿭͕͋Δ •Apache2 SMTP αʔό͕1ͭͷ Post fi x͔ΒݟͯผϙʔτͰಈ࡞ ͍ͯ͠ΔίϯςϯπϑΟϧλͷ Α͏ʹՔಇ͢Δ
64. mod_perl2Ͱ PerlProcessConnectionHandler • ʮίωΫγϣϯϋϯυϥʯΛॻ͘ • ࠓ·Ͱͷ$rͱҧ͍$c (Apache2::Connection) ΦϒδΣΫτΛୈҰҾ਺ʹड͚औΔ • sub handler { my $c = shift; ... } • Apacheͷઃఆ • ࣮ࡍͷྫΛ঺հ͠·͕͢ɺ௕͍ͷͰൈਮ
65. PerlProcessConnectionHandler Ͱॻ͍ͨSMTPαʔόͷৄࡉ Listen 10025 gm fi lter AcceptFilter gm fi lter none <VirtualHost 127.0.0.1:10025> TransferLog /var/log/httpd/gm fi lter.log ErrorLog /var/log/httpd/gm fi lter_error.log PerlModule Encode::NV \ ARM::G4::Apache2::GMFilter \ Apache::DBI PerlProcessConnectionHandler \ ARM::G4::Apache2::GMFilter </VirtualHost>
66. PerlProcessConnectionHandler Ͱॻ͍ͨSMTPαʔόͷৄࡉ ࣾ಺ίʔυ ARM/G4/Apache2/GMFilter.pm ΑΓൈਮ1:๯಄෦෼
67. PerlProcessConnectionHandler Ͱॻ͍ͨSMTPαʔόͷৄࡉ • ϙΠϯτɿॏ͍ͨϞδϡʔϧΛେྔʹ useͯ͠΋େৎ෉ʂ • $cͷͨΊʹ use Apache2::Connection • Socket I/OॲཧͷͨΊʹAPR::Socket, APR::Brigade, APR::Bucket౳΋use͢Δ
68. PerlProcessConnectionHandler Ͱॻ͍ͨSMTPαʔόͷৄࡉ ࣾ಺ίʔυ ARM/G4/Apache2/GMFilter.pm ΑΓൈਮ2:handler෦
69. PerlProcessConnectionHandler Ͱॻ͍ͨSMTPαʔόͷৄࡉ • Socket I/Oͷѻ͍ํ͸͞·͟· • ͪͳΈʹPreforkͳͷͰchdir()ͯ͠΋OK
70. PerlProcessConnectionHandler Ͱॻ͍ͨSMTPαʔόͷৄࡉ • ͜͏ͯ͠ɺPost fi x pipeΛ࢖ΘͣʹɺPerl Λ࢖ͬͯDB઀ଓ͋Γɺֆจࣈม׵͋Γ ͷϝʔϦϯάϦεταʔϏεΛ࣮૷͢ Δ͜ͱ͕Ͱ͖ͨ • αʔϏε໊: άϧʔϓϝʔϧ • ػձ͕͋Ε͹ΑΖ͓͘͠ئ͍͠·͢ URL: http://rmail.jp/feature/4_5.html
71. IV. ଵଦͱԠ༻ qpsmtpd & nginx...
72. θϩ͔Βॻ͘ͷ͸໘౗ • Apache2 ConnectionϑΣʔζͰSMTPαʔ όΛ࣮૷Ͱ͖Δͷ͸෼͔ͬͨ • ͚ͩͲθϩ͔Β࣮૷͢ΔͳΜͯ໘౗ • ͝΋ͬͱ΋ • ͦΜͳਓͷͨΊʹɺqpsmtpdͱ͍͏ Perl࣮૷ͷSMTPαʔό͕͋Γ·͢
73. qpsmtpd • http://smtpd.develooper.com/ • ։ൃ౰࣌΋ଘࡏΛฉ͖ٴΜͰ͍͕ͨɺ αʔόݎ࿚ੑΛ͏·͘ධՁͰ͖ͳ͔ͬ ͨͷͰ࠾༻Λݟૹͬͨ
74. qpsmtpd͸࣮͸ݎ͍ • Perlͷdaemonʹ͍͍ҹ৅͕ͳ͔ͬͨ (౰࣌ͷPOE౳) • qpsmtpdͷEngineతͳ෺͸޷ΈͰબ΂Δ • ͔͠΋ϝχϡʔ๛෋
75. qpsmtpd͸࣮͸ݎ͍ • qpsmtpdͷࠜఈΛࢧ͑ΔEngine=Transport • pipe (CGI like) • fork-server • prefork-server •Apache (Apache::Qpsmtpd) • async (Danga::Socket base?)
76. qpsmtpd͸࣮͸ݎ͍ • Apache::Qpsmtpdͱ͔ɺ͋Δ͠ʂ • ޙͰιʔείʔυݟͨΒɺฐࣾͰ࣮ફ ͨ͠άϧʔϓϝʔϧͷ࣮૷࿦ͦͷ΋ͷ
77. qpsmtpd͸࣮͸ݎ͍ • Danga::Socketϕʔε΋ݎͦ͏ͩ͠ɺ࣍͸ qpsmtpdͰ΋໰୊ͳ͍ͱࢥͬͨ • ݱࡏ΋Post fi x pipeͰՔಇ͍ͯ͠Δɺฐࣾ ண৴௨஌ϓϩάϥϜΛqpsmtpdͰॻ͖͔ ͍͑ͨͱࢥ͏΄Ͳɺࠓ͸ྑ͍ҹ৅Λ ͍࣋ͬͯΔ
78. qpsmtpd·ͱΊ • ͳͷͰࠓճʮApacheͰಈ࡞͢ΔSMTP αʔόʯʹڵຯΛ࣋ͬͨํ͸ qpsmtpd(Apache::Qpsmtpd)ʹ৮ΕΔͱ͍ ͍Ͱ͢ • ϓϥάΠϯ΋Ϟμϯͳॻ͖ํͰྑ͍
79. nginx • http://nginx.org/ • ࠓ࿩୊ͷ΢Σϒαʔό • ࠓ೥ͷय़ʹstable͕ొ৔ͯ͠ීٴʹ஄Έ • FastCGIͷಈ࡞؀ڥͱͯ͠΋࢖ΘΕΔ
80. nginxͷ EmbeddedPerlModule ※ http://wiki.nginx.org/EmbeddedPerlModule ΑΓ
81. nginxͷ EmbeddedPerlModule ※ http://wiki.nginx.org/EmbeddedPerlModule ΑΓ
82. nginxͷ EmbeddedPerlModule • ͍͢͝mod_perl1ͬΆ͍ • ࣮ࡍɺେ෦෼ͷϝιου͸mod_perl1ͱ ͦͬ͘Γಉ͡ • গ͠ҧ͍͕͋ΔͷͰ஫ҙ͕ඞཁͳఔ౓
83. nginx EmbeddedPerlModule ஫ҙ఺ • worker(single threaded process)ͷಛੑ্ ͱ͋ΔϦΫΤετͰ௕࣌ؒI/OΛϒϩο Ωϯά͢Δͱαʔόશମ͕ࢭ·Γ·͢ • (mod_perlʹൺ΂ͯ)ϊ΢ϋ΢͕গͳ͍
84. nginx EmbeddedPerlModule ·ͱΊ • ஫ҙ఺΋͋Δ͕ັྗతɺ໘നͦ͏ • mod_perl1ษڧ͓͍ͯͯ͠ྑ͔ͬͨʂ • C10K໰୊ͳͲաࠅͳ໰୊ʹཱͪ޲͔͏ ৔߹ɺੑೳʹ಄ଧͪײ͕͋Δ Apache(mod_perl)ͷ༗ྗͳ୅ସͱͳΓ͏ Δ
85. ·ͱΊ
86. ·ͱΊ • ࠓͰ΋mod_perlͷ஌ࣝΛ஌͓ͬͯ͘ͱɺ͍͟ͱ͍ ͏ͱ͖ྑ͍͜ͱ͕͋Δ(͔΋) • mod_perlͷจ๏͸ଞͷ੡඼ʹ΋ӨڹΛ༩͍͑ͯΔ • Apache2/mod_perl2͸Connection΋ॻ͚ͯɺHTTP Ҏ֎ͷ೚ҙͷ(Apacheͱಉఔ౓ͷ)ݎ࿚ͳαʔό͕ Perl(mod_perl)Ͱ࣮૷Մೳ • ฐࣾͰ͸༷ʑͳܗଶͰmod_perlΛ׆༻͍ͯ͠·͢
87. ࠓճ৮ΕΒΕͳ͔͚ͬͨͲ ڵຯਂ͍τϐοΫ • Filter • mod_perl1 ٖࣅFilterؔ࿈ Apache::Filter, Apache::OutputChain • mod_perl2 ωΠςΟϒFilterؔ࿈ Perl{Input,Output}FilterHandler
88. ࢀߟจݙ • ༸ॻʹͳΓ·͕͢ɺ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/)
89. ࢀߟจݙ • Apache C API(mod_*.c)ͷࢀߟॻ੶ • Apache֦ுΨΠυ(্ɾԼ) (Oreilly 2000; C APIΛmod_perlʹԊͬͯղઆͨ͠ྑॻͰ͕ͨ͠ ݱࡏઈ൛ͩͦ͏Ͱ͢) • The Apache Modules Book (Prentice Hall 2007; ͪ͜Β͸׬શʹC APIͷຊ)
90. ࢀߟจݙ • WEB+DB PRESS Vol.33 (2006/6)ͷ࿈ࡌ ʮRecent Perl WorldʯͰҏ౻௚໵͞Μ͕ ʮʲୈ2ճʳmod_perl 2.0Λ࢖͍౗͢ʯ ͱ͍͏هࣄΛॻ͍͍ͯ·͢ • ࣮ࡍʹNet::DNSΛ࢖ͬͯDNSαʔόΛ ॻ͍͍ͯΔσϞ΋ࢀߟʹͳΓ·͢ http://gihyo.jp/magazine/wdpress/archive/2006/vol33
91. ͝ਗ਼ௌ ͋Γ͕ͱ͏͍͟͝·ͨ͠