1
2
3
4
5
6
7
8
9
10
11
12
13

sub irc_372 {
    my ($kernel,$sender) = @_[KERNEL,SENDER];

    # Get the component's object at any time by accessing the heap of
    # the SENDER
    my $poco_object = $sender->get_heap();
    print "Connected to ", $poco_object->server_name(), "\n";

    # In any irc_* events SENDER will be the PoCo-IRC session
    $kernel->post( $sender => privmsg => 'nickserv' => 'IDENTIFY pass' );
    
    undef;  
}