| Volity :: Jabber. Volity :: Jabber´Â Jabber-Speaking Volity °´Ã¼ÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Volity :: Jabber. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jason McIntosh
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://volity.org/projects/gamut/
Volity :: Jabber. ű×
Volity :: Jabber. ¼³¸í
Volity :: Jabber´Â Jabber-Speaking Volity °´Ã¼ÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. Volity :: Jabber´Â Jabber-Speaking Volity objects.Synopsis ÆÐÅ°ÁöÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. My :: Volity :: Object; ±âº» QW (Volity :: Jabber)¸¦ »ç¿ëÇϽʽÿÀ. Çʵå QW (wubba_wubba); # ºÎ¸ðÀÇ ÃʱâÈ ¸Þ¼Òµå¸¦ ÀçÁ¤ÀÇÇÏ¿© ±¸¼º½Ã °ªÀ» ¼³Á¤ÇÕ´Ï´Ù. ÇÏÀ§ ÃʱâÈ {My $ self = shift; $ self-> super :: ÃʱâÈ (@_); # ºÎ¸ð´ÔÀÇ initÀ̶ó°í ºÎ¸£´Â °ÍÀ» ÀØÁö ¸¶½Ê½Ã¿À! # ÃʱâÈ´Â ¿©±â $ self-> wubba_wubba ( 'gronk gronk'); } # ±âº» Ŭ·¡½º ÇÏÀ§ handle_groupchat_message {My $ self = shift; MY ($ ¸Þ½ÃÁö) = @_; # µé¾î¿À´Â ¸Þ½ÃÁö¿¡ ´ëÇÑ Á¤º¸°¡ÀÖ´Â Çؽà ref. # µð¹ö±× ¸Þ½ÃÁö¸¦ º¸³À´Ï´Ù. $ self-> logger-> debug (sprintf ( "% s, '% s'n", $$ ¸Þ½ÃÁö {}, $$ ¸Þ½ÃÁö {Body})))); # ´õ ¸¹Àº ¸Þ½ÃÁö ó¸® ÄÚµå »ç¿ëÀÌ ¿©±â¿¡ ÀÖ½À´Ï´Ù. }ÀÌ ÆÐÅ°Áö´Â jabber¸¦ ¸»ÇÏ´Â Volity °´Ã¼ÀÇ ±âº» Ŭ·¡½º¸¦ Á¦°øÇÕ´Ï´Ù. ÀÌ·¯ÇÑ °´Ã¼´Â ±¸Ãà½Ã Jabber ¼¹ö¿¡ ÀÚµ¿À¸·Î ¿¬°á (¹× ÀÎÁõ) ÇÑ ´ÙÀ½ ÀϺΠÀϹÝÀûÀÎ jabbery »ç¹°À» ¼öÇàÇÏ´Â ¹æ¹ýÀ» Á¦°øÇÏ°í PoE Ä¿³Î¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Volity :: Jabber. °ü·Ã ¼ÒÇÁÆ®¿þ¾î