XML :: Atom :: Server.

¿øÀÚ API ¿ë ¼­¹ö
Áö±Ý ´Ù¿î·Îµå

XML :: Atom :: Server. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Tatsuhiko Miyagawa
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~miyagawa/

XML :: Atom :: Server. ű×


XML :: Atom :: Server. ¼³¸í

Atom API ¿ë ¼­¹ö XML :: Atom :: Server´Â Atom API ¼­¹ö¿ë ±âº» Ŭ·¡½º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÇÁ·ÎÅäÄÝÀÇ SOAP ¹× REST Çü½Ä°ú WSSE ÀÎÁõÀ» ¸ðµÎ ó¸®ÇÕ´Ï´Ù. ±×°ÍÀº ¶ÇÇÑ mod_perl Çڵ鷯·Î ½ÇÇàÇϰųª CGI ÇÁ·Î±×·¥ÀÇ ÀϺηΠ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù. IT´Â Ç׸ñ °Ô½Ã, Ç׸ñ ¸ñ·Ï °Ë»ö, Ç׸ñ »èÁ¦ µîÀÇ ±â´ÉÀ» Á¦°øÇÏÁö ¾Ê½À´Ï´Ù. :: Atom :: Server, handle_request ¸Þ¼­µå¸¦ ¹«½Ã ÇÏ°íÀÌ STASS.Synopsis ÆÐÅ°Áö ³» :: ¼­¹ö ÆÐÅ°Áö¿Í °°Àº ¸ðµç ÇÔ¼ö¸¦ ó¸®ÇÕ´Ï´Ù. ±âº» QW (XML :: Atom :: Server)¸¦ »ç¿ëÇϽʽÿÀ. sub handle_request {my $ server = shift; $ Server-> ÀÎÁõ ¶Ç´Â ¹Ýȯ; my $ method = $ Server-> request_method; if ($ ¸Þ¼Òµå EQ 'POST') {RETURN $ SERVER-> NEW_POST; } ...} ³» %ÀÇ ¾ÏÈ£; sub password_for_user {my $ server = shift; MY ($ username) = @_; $ passwords {$ username}; } sub new_post {my $ server = À̵¿; ³» $ ENTRY = $ SERVER-> ATOM_BODY ¶Ç´Â RETURN; ## $ Ç׸ñÀº XML :: Atom :: Entry °´Ã¼ÀÔ´Ï´Ù. ## ... »õ Ç׸ñ ÀúÀå ...} ÆÐÅ°Áö ¸ÞÀÎ; MY $ Server = My :: Server-> New; $ Server-> ½ÇÇà; ¿ä±¸ »çÇ× : ¡¤ Perl.


XML :: Atom :: Server. °ü·Ã ¼ÒÇÁÆ®¿þ¾î