/*
 *  ircd-ratbox: A slightly useful ircd.
 *  m_info.c: Sends information about the server.
 *
 *  Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
 *  Copyright (C) 1996-2002 Hybrid Development Team
 *  Copyright (C) 2002-2005 ircd-ratbox development team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
 *  USA
 *
 */

#include "stdinc.h"
#include "m_info.h"
#include "channel.h"
#include "client.h"
#include "common.h"
#include "match.h"
#include "ircd.h"
#include "hook.h"
#include "numeric.h"
#include "s_serv.h"
#include "s_user.h"
#include "send.h"
#include "s_conf.h"
#include "msg.h"
#include "parse.h"
#include "modules.h"

static void send_conf_options(struct Client *source_p);
static void send_birthdate_online_time(struct Client *source_p);
static void send_info_text(struct Client *source_p);
static void info_spy(struct Client *);

static int m_info(struct Client *, struct Client *, int, const char **);
static int mo_info(struct Client *, struct Client *, int, const char **);

struct Message info_msgtab = {
    "INFO", 0, 0, 0, MFLG_SLOW,
    {mg_unreg, {m_info, 0}, {mo_info, 0}, mg_ignore, mg_ignore, {mo_info, 0}}
};

int doing_info_hook;

mapi_clist_av1 info_clist[] = { &info_msgtab, NULL };
mapi_hlist_av1 info_hlist[] = {
    { "doing_info",		&doing_info_hook },
    { NULL, NULL }
};

DECLARE_MODULE_AV1(info, NULL, NULL, info_clist, info_hlist, NULL, "$Revision: 3396 $");

/*
 * jdc -- Structure for our configuration value table
 */
struct InfoStruct {
    const char *name;	/* Displayed variable name */
    unsigned int output_type;	/* See below #defines */
    void *option;		/* Pointer reference to the value */
    const char *desc;	/* ASCII description of the variable */
};
/* Types for output_type in InfoStruct */
#define OUTPUT_STRING      0x0001	/* Output option as %s w/ dereference */
#define OUTPUT_STRING_PTR  0x0002	/* Output option as %s w/out deference */
#define OUTPUT_DECIMAL     0x0004	/* Output option as decimal (%d) */
#define OUTPUT_BOOLEAN     0x0008	/* Output option as "ON" or "OFF" */
#define OUTPUT_BOOLEAN_YN  0x0010	/* Output option as "YES" or "NO" */
#define OUTPUT_BOOLEAN2	   0x0020	/* Output option as "YES/NO/MASKED" */

/* *INDENT-OFF* */
static struct InfoStruct info_table[] = {
    /* --[  START OF TABLE  ]-------------------------------------------- */
    {
        "opers_see_all_users",
        OUTPUT_BOOLEAN_YN,
        &opers_see_all_users,
        "Farconnect notices available or operspy accountability limited"
    },
    {
        "max_connections",
        OUTPUT_DECIMAL,
        &maxconnections,
        "Max number connections"
    },
    {
        "anti_nick_flood",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.anti_nick_flood,
        "NICK flood protection"
    },
    {
        "anti_spam_exit_message_time",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.anti_spam_exit_message_time,
        "Duration a client must be connected for to have an exit message"
    },
    {
        "use_part_messages",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.use_part_messages,
        "Whether or not the server should allow users to show messages on PART"
    },
    {
        "caller_id_wait",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.caller_id_wait,
        "Minimum delay between notifying UMODE +g users of messages"
    },
    {
        "client_exit",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.client_exit,
        "Prepend 'Client Exit:' to user QUIT messages"
    },
    {
        "client_flood",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.client_flood,
        "Number of lines before a client Excess Flood's",
    },
    {
        "connect_timeout",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.connect_timeout,
        "Connect timeout for connections to servers"
    },
    {
        "default_ident_timeout",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.default_ident_timeout,
        "Amount of time the server waits for ident responses from clients",
    },
    {
        "default_floodcount",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.default_floodcount,
        "Startup value of FLOODCOUNT",
    },
    {
        "hide_channel_below_users",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.hide_channel_below_users,
        "Hide channels below this many users in standard /LIST output",
    },
    {
        "default_adminstring",
        OUTPUT_STRING,
        &ConfigFileEntry.default_adminstring,
        "Default adminstring at startup.",
    },
    {
        "default_operstring",
        OUTPUT_STRING,
        &ConfigFileEntry.default_operstring,
        "Default operstring at startup.",
    },
    {
        "default_operhost",
        OUTPUT_STRING,
        &ConfigFileEntry.default_operhost,
        "Default vhost for operators to receive upon opering up.",
    },
    {
        "static_quit",
        OUTPUT_STRING,
        &ConfigFileEntry.static_quit,
        "Quit message to show for all users.",
    },
    {
        "servicestring",
        OUTPUT_STRING,
        &ConfigFileEntry.servicestring,
        "String shown in whois for opered services.",
    },
    {
        "disable_auth",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.disable_auth,
        "Controls whether auth checking is disabled or not"
    },
    {
        "disable_fake_channels",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.disable_fake_channels,
        "Controls whether bold etc are disabled for JOIN"
    },
    {
        "dots_in_ident",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.dots_in_ident,
        "Number of permissable dots in an ident"
    },
    {
        "expire_override_time",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.expire_override_time,
        "Period of time after which to unset user mode +p"
    },
    {
        "failed_oper_notice",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.failed_oper_notice,
        "Inform opers if someone /oper's with the wrong password"
    },
    {
        "fname_userlog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_userlog,
        "User log file"
    },
    {
        "fname_fuserlog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_fuserlog,
        "Failed user log file"
    },

    {
        "fname_operlog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_operlog,
        "Operator log file"
    },
    {
        "fname_foperlog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_foperlog,
        "Failed operator log file"
    },
    {
        "fname_serverlog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_serverlog,
        "Server connect/disconnect log file"
    },
    {
        "fname_klinelog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_klinelog,
        "KLINE etc log file"
    },
    {
        "fname_operspylog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_operspylog,
        "Oper spy log file"
    },
    {
        "fname_ioerrorlog",
        OUTPUT_STRING,
        &ConfigFileEntry.fname_ioerrorlog,
        "IO error log file"
    },
    {
        "global_snotices",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.global_snotices,
        "Send out certain server notices globally"
    },
    {
        "hide_error_messages",
        OUTPUT_BOOLEAN2,
        &ConfigFileEntry.hide_error_messages,
        "Hide ERROR messages coming from servers"
    },
    {
        "hide_spoof_ips",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.hide_spoof_ips,
        "Hide IPs of spoofed users"
    },
    {
        "hub",
        OUTPUT_BOOLEAN_YN,
        &ServerInfo.hub,
        "Server is a hub"
    },
    {
        "kline_delay",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.kline_delay,
        "Duration of time to delay kline checking"
    },
    {
        "kline_reason",
        OUTPUT_STRING,
        &ConfigFileEntry.kline_reason,
        "K-lined clients sign off with this reason"
    },
    {
        "dline_with_reason",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.dline_with_reason,
        "Display D-line reason to client on disconnect"
    },
    {
        "kline_with_reason",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.kline_with_reason,
        "Display K-line reason to client on disconnect"
    },
    {
        "max_accept",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.max_accept,
        "Maximum nicknames on accept list",
    },
    {
        "max_nick_changes",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.max_nick_changes,
        "NICK change threshhold setting"
    },
    {
        "max_nick_time",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.max_nick_time,
        "NICK flood protection time interval"
    },
    {
        "max_targets",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.max_targets,
        "The maximum number of PRIVMSG/NOTICE targets"
    },
    {
        "min_nonwildcard",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.min_nonwildcard,
        "Minimum non-wildcard chars in K lines",
    },
    {
        "min_nonwildcard_simple",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.min_nonwildcard_simple,
        "Minimum non-wildcard chars in xlines/resvs",
    },
    {
        "network_name",
        OUTPUT_STRING,
        &ServerInfo.network_name,
        "Network name"
    },
    {
        "network_desc",
        OUTPUT_STRING,
        &ServerInfo.network_desc,
        "Network description"
    },
    {
        "autochanmodes",
        OUTPUT_STRING,
        &ConfigChannel.autochanmodes,
        "Channelmodes set on channel creation"
    },
    {
        "exemptchanops",
        OUTPUT_STRING,
        &ConfigChannel.exemptchanops,
        "Channelmodes that chanops are exempt from"
    },
    {
        "nick_delay",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.nick_delay,
        "Delay nicks are locked for on split",
    },
    {
        "no_oper_flood",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.no_oper_flood,
        "Disable flood control for operators",
    },
    {
        "true_no_oper_flood",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.true_no_oper_flood,
        "Really disable flood control for opers, not just make it very high",
    },
    {
        "non_redundant_klines",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.non_redundant_klines,
        "Check for and disallow redundant K-lines"
    },
    {
        "operspy_admin_only",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.operspy_admin_only,
        "Send +Z operspy notices to admins only"
    },
    {
        "operspy_dont_care_user_info",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.operspy_dont_care_user_info,
        "Remove accountability and some '!' requirement from non-channel operspy"
    },
    {
        "secret_channels_in_whois",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.secret_channels_in_whois,
        "Defines whether secret channels are always shown in whois to opers with oper:spy priv."
    },
    {
        "pace_wait",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.pace_wait,
        "Minimum delay between uses of certain commands"
    },
    {
        "pace_wait_simple",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.pace_wait_simple,
        "Minimum delay between less intensive commands"
    },
    {
        "ping_cookie",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.ping_cookie,
        "Require ping cookies to connect",
    },
    {
        "reject_after_count",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.reject_after_count,
        "Client rejection threshold setting",
    },
    {
        "reject_ban_time",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.reject_ban_time,
        "Client rejection time interval",
    },
    {
        "reject_duration",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.reject_duration,
        "Client rejection cache duration",
    },
    {
        "short_motd",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.short_motd,
        "Do not show MOTD; only tell clients they should read it"
    },
    {
        "stats_e_disabled",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.stats_e_disabled,
        "STATS e output is disabled",
    },
    {
        "stats_c_oper_only",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.stats_c_oper_only,
        "STATS C output is only shown to operators",
    },
    {
        "stats_h_oper_only",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.stats_h_oper_only,
        "STATS H output is only shown to operators",
    },
    {
        "stats_i_oper_only",
        OUTPUT_BOOLEAN2,
        &ConfigFileEntry.stats_i_oper_only,
        "STATS I output is only shown to operators",
    },
    {
        "stats_k_oper_only",
        OUTPUT_BOOLEAN2,
        &ConfigFileEntry.stats_k_oper_only,
        "STATS K output is only shown to operators",
    },
    {
        "stats_o_oper_only",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.stats_o_oper_only,
        "STATS O output is only shown to operators",
    },
    {
        "stats_P_oper_only",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.stats_P_oper_only,
        "STATS P is only shown to operators",
    },
    {
        "stats_y_oper_only",
        OUTPUT_BOOLEAN_YN,
        &ConfigFileEntry.stats_y_oper_only,
        "STATS Y is only shown to operators",
    },
    {
        "throttle_count",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.throttle_count,
        "Connection throttle threshold",
    },
    {
        "throttle_duration",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.throttle_duration,
        "Connection throttle duration",
    },
    {
        "tkline_expire_notices",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.tkline_expire_notices,
        "Notices given to opers when tklines expire"
    },
    {
        "ts_max_delta",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.ts_max_delta,
        "Maximum permitted TS delta from another server"
    },
    {
        "ts_warn_delta",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.ts_warn_delta,
        "Maximum permitted TS delta before displaying a warning"
    },
    {
        "warn_no_nline",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.warn_no_nline,
        "Display warning if connecting server lacks N-line"
    },
    {
        "use_propagated_bans",
        OUTPUT_BOOLEAN,
        &ConfigFileEntry.use_propagated_bans,
        "KLINE sets fully propagated bans"
    },
    {
        "away_interval",
        OUTPUT_DECIMAL,
        &ConfigFileEntry.away_interval,
        "The minimum time between aways",
    },
    {
        "default_split_server_count",
        OUTPUT_DECIMAL,
        &ConfigChannel.default_split_server_count,
        "Startup value of SPLITNUM",
    },
    {
        "default_split_user_count",
        OUTPUT_DECIMAL,
        &ConfigChannel.default_split_user_count,
        "Startup value of SPLITUSERS",
    },
    {
        "knock_delay",
        OUTPUT_DECIMAL,
        &ConfigChannel.knock_delay,
        "Delay between a users KNOCK attempts"
    },
    {
        "knock_delay_channel",
        OUTPUT_DECIMAL,
        &ConfigChannel.knock_delay_channel,
        "Delay between KNOCK attempts to a channel",
    },
    {
        "kick_on_split_riding",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.kick_on_split_riding,
        "Kick users riding splits to join +i or +k channels"
    },
    {
        "max_bans",
        OUTPUT_DECIMAL,
        &ConfigChannel.max_bans,
        "Total +b/e/I/q modes allowed in a channel",
    },
    {
        "max_bans_large",
        OUTPUT_DECIMAL,
        &ConfigChannel.max_bans_large,
        "Total +b/e/I/q modes allowed in a +L channel",
    },
    {
        "max_chans_per_user",
        OUTPUT_DECIMAL,
        &ConfigChannel.max_chans_per_user,
        "Maximum number of channels a user can join",
    },
    {
        "no_create_on_split",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.no_create_on_split,
        "Disallow creation of channels when split",
    },
    {
        "no_join_on_split",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.no_join_on_split,
        "Disallow joining channels when split",
    },
    {
        "only_ascii_channels",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.only_ascii_channels,
        "Controls whether non-ASCII is disabled for JOIN"
    },
    {
        "cycle_host_change",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.cycle_host_change,
        "Controls if when a users' host changes, they cycle channels",
    },
    {
        "host_in_topic",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.host_in_topic,
        "Defines whether a topicsetters host or just nick is shown on TOPIC",
    },
    {
        "admin_on_channel_create",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.admin_on_channel_create,
        "Give users +ao on channel create",
    },
    {
        "use_halfop",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_halfop,
        "Enable chanmode +h (halfop)",
    },
    {
        "use_admin",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_admin,
        "Enable chanmode +a (admin)",
    },
    {
        "use_owner",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_owner,
        "Enable chanmode +y (owner)",
    },
    {
        "use_except",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_except,
        "Enable chanmode +e (ban exceptions)",
    },
    {
        "use_invex",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_invex,
        "Enable chanmode +I (invite exceptions)",
    },
    {
        "use_forward",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_forward,
        "Enable chanmode +f (channel forwarding)",
    },
    {
        "use_knock",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_knock,
        "Enable /KNOCK",
    },
    {
        "use_local_channels",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.use_local_channels,
        "Enable local channels (&channels)"
    },
    {
        "resv_forcepart",
        OUTPUT_BOOLEAN_YN,
        &ConfigChannel.resv_forcepart,
        "Force-part local users on channel RESV"
    },
    {
        "disable_hidden",
        OUTPUT_BOOLEAN_YN,
        &ConfigServerHide.disable_hidden,
        "Prevent servers from hiding themselves from a flattened /links",
    },
    {
        "flatten_links",
        OUTPUT_BOOLEAN_YN,
        &ConfigServerHide.flatten_links,
        "Flatten /links list",
    },
    {
        "hidden",
        OUTPUT_BOOLEAN_YN,
        &ConfigServerHide.hidden,
        "Hide this server from a flattened /links on remote servers",
    },
    {
        "links_delay",
        OUTPUT_DECIMAL,
        &ConfigServerHide.links_delay,
        "Links rehash delay"
    },
    /* --[  END OF TABLE  ]---------------------------------------------- */
    { (char *) 0, (unsigned int) 0, (void *) 0, (char *) 0}
};
/* *INDENT-ON* */

/*
** m_info
**  parv[1] = servername
*/
static int
m_info(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
    static time_t last_used = 0L;

    if((last_used + ConfigFileEntry.pace_wait) > rb_current_time()) {
        /* safe enough to give this on a local connect only */
        sendto_one(source_p, form_str(RPL_LOAD2HI),
                   me.name, source_p->name, "INFO");
        sendto_one_numeric(source_p, RPL_ENDOFINFO, form_str(RPL_ENDOFINFO));
        return 0;
    } else
        last_used = rb_current_time();

    if(hunt_server(client_p, source_p, ":%s INFO :%s", 1, parc, parv) != HUNTED_ISME)
        return 0;

    info_spy(source_p);

    send_info_text(source_p);
    send_birthdate_online_time(source_p);

    sendto_one_numeric(source_p, RPL_ENDOFINFO, form_str(RPL_ENDOFINFO));
    return 0;
}

/*
** mo_info
**  parv[1] = servername
*/
static int
mo_info(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
    if(hunt_server(client_p, source_p, ":%s INFO :%s", 1, parc, parv) == HUNTED_ISME) {
        info_spy(source_p);
        send_info_text(source_p);

        if(IsOper(source_p)) {
            send_conf_options(source_p);
            sendto_one_numeric(source_p, RPL_INFO, ":%s",
                               rb_lib_version());
        }

        send_birthdate_online_time(source_p);

        sendto_one_numeric(source_p, RPL_ENDOFINFO, form_str(RPL_ENDOFINFO));
    }

    return 0;
}

/*
 * send_info_text
 *
 * inputs	- client pointer to send info text to
 * output	- none
 * side effects	- info text is sent to client
 */
static void
send_info_text(struct Client *source_p)
{
    const char **text = infotext;

    while (*text) {
        sendto_one_numeric(source_p, RPL_INFO, form_str(RPL_INFO), *text++);
    }

    sendto_one_numeric(source_p, RPL_INFO, form_str(RPL_INFO), "");
}

/*
 * send_birthdate_online_time
 *
 * inputs	- client pointer to send to
 * output	- none
 * side effects	- birthdate and online time are sent
 */
static void
send_birthdate_online_time(struct Client *source_p)
{
    char tbuf[26]; /* this needs to be 26 - see ctime_r manpage */
    sendto_one(source_p, ":%s %d %s :Birth Date: %s, compile # %s",
               get_id(&me, source_p), RPL_INFO,
               get_id(source_p, source_p), creation, generation);

    sendto_one(source_p, ":%s %d %s :On-line since %s",
               get_id(&me, source_p), RPL_INFO,
               get_id(source_p, source_p), rb_ctime(startup_time, tbuf, sizeof(tbuf)));
}

/*
 * send_conf_options
 *
 * inputs	- client pointer to send to
 * output	- none
 * side effects	- send config options to client
 */
static void
send_conf_options(struct Client *source_p)
{
    Info *infoptr;
    int i = 0;

    /*
     * Now send them a list of all our configuration options
     * (mostly from config.h)
     */
    for (infoptr = MyInformation; infoptr->name; infoptr++) {
        if(infoptr->intvalue) {
            sendto_one(source_p, ":%s %d %s :%-30s %-5d [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       infoptr->name, infoptr->intvalue,
                       infoptr->desc);
        } else {
            sendto_one(source_p, ":%s %d %s :%-30s %-5s [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       infoptr->name, infoptr->strvalue,
                       infoptr->desc);
        }
    }

    /*
     * Parse the info_table[] and do the magic.
     */
    for (i = 0; info_table[i].name; i++) {
        switch (info_table[i].output_type) {
            /*
             * For "char *" references
             */
        case OUTPUT_STRING: {
            char *option = *((char **) info_table[i].option);

            sendto_one(source_p, ":%s %d %s :%-30s %-5s [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       info_table[i].name,
                       option ? option : "NONE",
                       info_table[i].desc ? info_table[i].desc : "<none>");

            break;
        }
        /*
         * For "char foo[]" references
         */
        case OUTPUT_STRING_PTR: {
            char *option = (char *) info_table[i].option;

            sendto_one(source_p, ":%s %d %s :%-30s %-5s [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       info_table[i].name,
                       EmptyString(option) ? "NONE" : option,
                       info_table[i].desc ? info_table[i].desc : "<none>");

            break;
        }
        /*
         * Output info_table[i].option as a decimal value.
         */
        case OUTPUT_DECIMAL: {
            int option = *((int *) info_table[i].option);

            sendto_one(source_p, ":%s %d %s :%-30s %-5d [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       info_table[i].name,
                       option,
                       info_table[i].desc ? info_table[i].desc : "<none>");

            break;
        }

        /*
         * Output info_table[i].option as "ON" or "OFF"
         */
        case OUTPUT_BOOLEAN: {
            int option = *((int *) info_table[i].option);

            sendto_one(source_p, ":%s %d %s :%-30s %-5s [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       info_table[i].name,
                       option ? "ON" : "OFF",
                       info_table[i].desc ? info_table[i].desc : "<none>");

            break;
        }
        /*
         * Output info_table[i].option as "YES" or "NO"
         */
        case OUTPUT_BOOLEAN_YN: {
            int option = *((int *) info_table[i].option);

            sendto_one(source_p, ":%s %d %s :%-30s %-5s [%-30s]",
                       get_id(&me, source_p), RPL_INFO,
                       get_id(source_p, source_p),
                       info_table[i].name,
                       option ? "YES" : "NO",
                       info_table[i].desc ? info_table[i].desc : "<none>");

            break;
        }

        case OUTPUT_BOOLEAN2: {
            int option = *((int *) info_table[i].option);

            sendto_one(source_p, ":%s %d %s :%-30s %-5s [%-30s]",
                       me.name, RPL_INFO, source_p->name,
                       info_table[i].name,
                       option ? ((option == 1) ? "MASK" : "YES") : "NO",
                           info_table[i].desc ? info_table[i].desc : "<none>");
        }		/* switch (info_table[i].output_type) */
        }
    }			/* forloop */


    /* Don't send oper_only_umodes...it's a bit mask, we will have to decode it
     ** in order for it to show up properly to opers who issue INFO
     */

    sendto_one_numeric(source_p, RPL_INFO, form_str(RPL_INFO), "");
}

/* info_spy()
 *
 * input        - pointer to client
 * output       - none
 * side effects - hook doing_info is called
 */
static void
info_spy(struct Client *source_p)
{
    hook_data hd;

    hd.client = source_p;
    hd.arg1 = hd.arg2 = NULL;

    call_hook(doing_info_hook, &hd);
}
