Anonymous

sub irc_433  #nickname in use
{
#use the serverhost as a session alias. Makes multi-net usage a lot easer 
#to debug
    my $self=shift;
    my $server=shift;  
    my $sess=$self->{KERNEL}->alias_resolve($server); 
    my $heap=$sess->get_heap(); #pull the heap with our settings
    my $nick=$heap->{"nick"};

    #drop existing connection
    $self->disconnect($server, ": $nick in use.\n");
    
    #generate random nick
    $nick = $nick . int(rand(10000)));

    print "Reconnecting with nick: $nick\n";   #reconnect
    $self->{KERNEL}->post(
                $server,
                'connect',{
                Nick     => $heap->{"nick"},
                Server   => $server,
                Username => $heap->{"username"},
                Ircname  => $heap->{"realname"},}
                );

}