POE :: 구성 요소 :: IRC :: Qnet.

POE :: Component :: IRC :: Qnet은 QuakeNet 용 완전 이벤트 중심의 IRC 클라이언트 모듈입니다.
지금 다운로드

POE :: 구성 요소 :: IRC :: Qnet. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Chris Williams
  • 게시자 웹사이트:
  • http://search.cpan.org/~bingos/Test-POE-Client-TCP-0.06/lib/Test/POE/Client/TCP.pm

POE :: 구성 요소 :: IRC :: Qnet. 태그


POE :: 구성 요소 :: IRC :: Qnet. 설명

POE :: Component :: IRC :: Qnet은 QuakeNet 용 완전 이벤트 중심의 IRC 클라이언트 모듈입니다. POE :: Component :: IRC :: QNET은 QuakeNet 용 완전 이벤트 중심의 IRC 클라이언트 모듈입니다. Synopsis는 엄격합니다. 경고를 사용하십시오. POE QW (구성 요소 :: IRC :: QNET)를 사용하십시오. 내 $ nickname = 'Flable'. $$; 내 $ IRCNAME = '선원 봇을 찌푸리십시오'; 내 $ port = 6667; 내 $ qauth = 'flibblebot'; 내 $ QPASS = 'FUBAR'; my @channels = ( '#blah', '#foo', '#bar'); # 새 POCO-IRC 객체 및 구성 요소를 만듭니다. $ IRC = POE :: 구성 요소 :: IRC :: Qnet-> Spawn (Nick => $ NickName, Port => $ 포트, IRCNAME => $ IRCNAME,) 또는 "OH NOOO! $!"; PoE :: Session-> create (package_states => ,], 힙 => {IRC => $ IRC},); $ poe_kernel-> run (); 종료 0; SUB _START {MY ($ kernel, $ heap) = @_ ; # 객체 #에서 구성 요소의 세션 ID를 얻고 지정된 서버에 등록하고 연결합니다. $ IRC_SESSION = $ heap -> {IRC} -> session_id (); $ kernel-> post ($ IRC_SESSION => 레지스터 => '' '' ''); $ kernel-> post ($ inc_session => connect => {}); undef; } Sub IRC_001 {My ($ kernel, $ sender) = @_ ; # 힙 #의 힙을 액세스하여 언제든지 구성 요소의 개체를 가져 오십시오. 내 $ POCO_OBJECT = $ SENDER-> get_heap (); "연결된", $ POCO_OBJECT-> SERVER_NAME (), "N"을 인쇄하십시오. # QuakeNet의 Q Bot $ kernel-> post ($ sender => qbot_auth => $ qauth => $ qpass)로 인증 할 수 있습니다. 모든 IRC_ * 이벤트에서 송신자는 @channels에 대해 POCO-IRC 세션 $ kernel-> post ($ sender => join => $ _)가됩니다. undef; } Sub IRC_Public {My ($ kernel, $ sender, $ who, $ where, $, $ what) = @_ ; MY $ Nick = (Split /! /, $ 누가) ; MY $ CHANNEL = $ 어디서 -> ; if (my ($ rot13) = $ = ~ / ^ rot13 (. +) /) {$ rot13 = TR ; $ kernel-> post ($ sender => privmsg => $ 채널 => "$ nick : $ rot13"); } undef; } # 우리는 모든 이벤트에 등록한이 일은 디버그 정보를 생성합니다. sub _default {my ($ 이벤트, $ args) = @_ ; 내 @OUTPUT = ( "$ 이벤트 :"); foreach my $ arg (@ $ args) {if (ref ($ arg) eq 'array') {push (@output, ""); } else {push (@output, " '$ arg"); }} stdout print join '', @output, "n"; 반환 0; } 요구 사항 : · Perl 요구 사항 : · Perl.


POE :: 구성 요소 :: IRC :: Qnet. 관련 소프트웨어

회사 소개