Changeset 1045
- Timestamp:
- 07/03/06 11:24:27
- trunk/plagger/bin/plagger-ircbot (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/bin/plagger-ircbot
r1021 r1045 37 37 38 38 msg 'creating irc component'; 39 POE::Component::IRC-> new('bot')39 POE::Component::IRC->spawn( alias => 'bot' ) 40 40 or die "Couldn't create IRC POE session: $!"; 41 41 … … 45 45 _start => \&bot_start, 46 46 _stop => \&bot_stop, 47 connect => \&bot_connect, 47 48 irc_001 => \&bot_connected, 48 49 irc_372 => \&bot_motd, … … 92 93 $kernel->call( IKC => publish => notify_irc => ['update'] ); 93 94 $kernel->post( bot => register => 'all' ); 94 $kernel->post( 95 $kernel->yield('connect'); 96 } 97 98 sub bot_connect 99 { 100 my ( $kernel, $heap ) = @_[ KERNEL, HEAP ]; 101 msg "attempting to connect to server"; 102 $kernel->post( 95 103 bot => connect => { 96 104 Nick => $config->{nickname},
