Unnamed

sub account_connect {

    my ($account, $data) = @_;

    debug("Account \"" . $account->get_username() . "\" just connected.\n");

    my %components = ('room' => 'Card Games');
    my $connection = Gaim::Account::get_connection($account);

    print Dumper(\%components);
    print Dumper($connection);

    Gaim::Serv::join_chat($connection, \%components);
}