Miscellany

sub _start {
        my ($kernel,$heap) = @_[KERNEL,HEAP];

        #print join("\n",@_);
        print("ALIAS: " . $_[KERNEL]->session_alias() . "\n");


        if($heap->{glombot}->{$_[SESSION]}->{reconnect}) {
                print(" === Reconnecting\n");
                $heap->{glombot}->{$_[SESSION]}->{log}->{server}->msg(1,"Reconnecting to server\n");
        } else {
        print "Session id2: $_[SESSION]\n";
                $heap->{glombot}->{$_[SENDER]->session_id()}->{log}->{server}->msg(1,"Initializing GlomBot\n");
        }

        print "Starting Bot\n";

        my $irc_session = $heap->{irc}->session_id();
        $kernel->post( $irc_session => register => 'all' );
        $kernel->post( $irc_session => connect => { } );
        undef;
}