/*
 * iroffer by David Johnson (PMG)
 * Copyright (C) 1998-2005 David Johnson
 *
 * By using this file, you agree to the terms and conditions set
 * forth in the GNU General Public License.  More information is
 * available in the LICENSE file.
 *
 * If you received this file without documentation, it can be
 * downloaded from http://iroffer.org/
 *
 * SPDX-FileCopyrightText: 1998-2005 David Johnson
 * SPDX-FileCopyrightText: 2004-2025 Dirk Meyer
 * SPDX-License-Identifier: GPL-2.0-only
 *
 * @(#) iroffer_admin.c 1.215@(#)
 * pmg@wellington.i202.centerclick.org|src/iroffer_admin.c|20051123201143|48668
 *
 */

/* include the headers */
#include "iroffer_config.h"
#include "iroffer_defines.h"
#include "iroffer_headers.h"
#include "iroffer_globals.h"
#include "dinoex_utilities.h"
#include "dinoex_admin.h"
#include "dinoex_curl.h"
#include "dinoex_jobs.h"
#include "dinoex_irc.h"
#include "dinoex_main.h"
#include "dinoex_transfer.h"
#include "dinoex_upload.h"
#include "dinoex_queue.h"
#include "dinoex_config.h"
#include "dinoex_misc.h"

/* local functions */
static void u_help(const userinput * const u);
static void u_dcl(const userinput * const u);
static void u_dcld(const userinput * const u);
static void u_redraw(const userinput * const u);
static void u_delhist(const userinput * const u);
static void u_info(const userinput * const u);
static void u_psend(const userinput * const u);
static void u_status(const userinput * const u);
static void u_rehash(const userinput * const u);
static void u_botinfo(const userinput * const u);
static void u_ignl(const userinput * const u);
static void u_unignore(const userinput * const u);
static void u_msgread(const userinput * const u);
static void u_msgdel(const userinput * const u);
static void u_memstat(const userinput * const u);
static void u_shutdown(const userinput * const u);
static void u_debug(const userinput * const u);
static void u_jump(const userinput * const u);
static void u_servers(const userinput * const u);
static void u_trinfo(const userinput * const u);
static void u_crash(const userinput * const u);
static void u_chanl(const userinput * const u);

typedef struct
{
  const unsigned short help_section;
  const unsigned short level;
  const userinput_method_e methods_allowed;
  void (*handler)(const userinput * const);
  const char *command;
  const char *args;
  const char *desc;
} userinput_parse_t;


/* local info */
static const userinput_parse_t userinput_parse[] = {
{1,1,method_allow_all,u_help,          "HELP",NULL,"Shows help"},
{1,0,method_allow_all_xdl,a_xdl_full,  "XDLFULL",NULL,"Lists all offered packs"},
{1,0,method_allow_all_xdl,a_xdl_group, "XDLGROUP","[group]","Show packs from <group>"},
{1,0,method_allow_all_xdl,a_xdl,       "XDL",NULL,"Lists offered groups and packs without group"},
{1,1,method_allow_all,a_xdlock,        "XDLOCK",NULL,"Show all locked packs"},
{1,1,method_allow_all,a_xdtrigger,     "XDTRIGGER",NULL,"Show all packs with dynamic triggers"},
{1,1,method_allow_all,a_find,          "FIND","pattern","List packs that matches <pattern>"},
{1,5,method_allow_all,a_xds,           "XDS",NULL,"Save state file"},
{1,1,method_allow_all,u_dcl,           "DCL",NULL,"Lists current transfers"},
{1,1,method_allow_all,u_dcld,          "DCLD",NULL,"Lists current transfers with details"},
{1,1,method_allow_all,u_trinfo,        "TRINFO","id","Lists information about transfer <id>"},
{1,1,method_allow_all,a_getl,          "GETL",NULL,"Lists current upload queue"},
{1,1,method_allow_all,a_qul,           "QUL",NULL,"Lists current queue"},
{1,1,method_allow_all,u_ignl,          "IGNL",NULL,"Show ignored list"},
{1,3,method_allow_all,a_listul,        "LISTUL","[dir]","Shows contents of upload directory"},
{1,3,method_allow_all,a_diskfree,      "DISKFREE",NULL,"Shows free space in upload directory"},
{1,5,method_allow_all,u_chanl,         "CHANL","[net]","Shows channel list with member list"},

{2,2,method_allow_all,a_close,         "CLOSE","[id]","Cancels transfer <id>"},
{2,2,method_allow_all,a_closeu,        "CLOSEU","[id]","Cancels upload <id>"},
{2,2,method_allow_all,a_acceptu,       "ACCEPTU","min [hostmask]","Accepting uploads from <hostmask> for <x> minutes"},
{2,2,method_allow_all,a_get,           "GET","net nick n [password]","Request pack <n> from bot <nick>"},
{2,2,method_allow_all,a_get,           "CLOSEGET","net nick","Cancel Request for bot <nick>"},
{2,2,method_allow_all,a_rmq,           "RMQ","[position]","Removes entry at <position> from main queue"},
{2,2,method_allow_all,a_rmiq,          "RMIQ","[position]","Removes entry at <position> from idle queue"},
{2,2,method_allow_all,a_rmallq,        "RMALLQ","","Removes entries from idle and main queue"},
{2,5,method_allow_all,a_nomin,         "NOMIN","id","Disables minspeed for transfer <id>"},
{2,5,method_allow_all,a_nomax,         "NOMAX","id","Disables maxspeed for transfer <id>"},
{2,5,method_allow_all,a_unlimited,     "UNLIMITED","id","Disables bandwidth limits for transfer <id>"},
{2,5,method_allow_all,a_maxspeed,      "MAXSPEED","id x","Set max bandwidth limit of <x> kB/s for transfer <id>"},
{2,2,method_allow_all,a_send,          "SEND","nick n [net]","Sends pack <n> to <nick>"},
{2,2,method_allow_all,a_queue,         "QUEUE","nick n [net]","Queues pack <n> for <nick> into main queue"},
{2,2,method_allow_all,a_iqueue,        "IQUEUE","nick n [net]","Queues pack <n> for <nick> into idle queue"},
{2,2,method_allow_all,a_iqueue,        "BATCH","nick n-m [net]","Queues pack <n> to <m> for <nick> into idle queue"},
{2,2,method_allow_all,u_psend,         "PSEND","channel style [net]","Sends <style> (full|minimal|summary) XDCC LIST to <channel>"},
{2,2,method_allow_all,a_qsend,         "QSEND","[id]","Start an extra transfer from main queue"},
{2,2,method_allow_all,a_iqsend,        "IQSEND","[id]","Push entry from idle queue into main queue"},
{2,5,method_allow_all,a_slotsmax,      "SLOTSMAX","[slots]","temporary change slotsmax to <slots>"},
{2,5,method_allow_all,a_queuesize,     "QUEUESIZE","[slots]","temporary change queuesize to <slots>"},
{2,5,method_allow_all,a_requeue,       "REQUEUE","x y","Moves main queue entry from position <x> to <y>"},
{2,5,method_allow_all,a_reiqueue,      "REIQUEUE","x y","Moves idle queue entry from position <x> to <y>"},

{3,0,method_allow_all_xdl,u_info,      "INFO","n","Show info for pack <n>"},
{3,4,method_allow_all,a_remove,        "REMOVE","n [m]","Removes pack <n> or <n> to <m>"},
{3,4,method_allow_all,a_removedir,     "REMOVEDIR","dir","Remove every pack found in <dir>"},
{3,4,method_allow_all,a_removegroup,   "REMOVEGROUP","group","Remove every pack found in <group>"},
{3,4,method_allow_all,a_removematch,   "REMOVEMATCH","pattern","Remove every pack matching this pattern"},
{3,4,method_allow_all,a_removelost,    "REMOVELOST","[pattern]","Remove lost packs matching this pattern"},
{3,3,method_allow_all,a_renumber3,     "RENUMBER","x [y] z","Moves packs <x> to <y> to position <z>"},
{3,3,method_allow_all,a_sort,          "SORT","[field] [field]","Sort all packs by fields"},
{3,3,method_allow_all,a_add,           "ADD","filename","Add new pack with <filename>"},
{3,3,method_allow_all,a_adddir,        "ADDDIR","dir","Add every file in <dir>"},
{3,3,method_allow_all,a_addnew,        "ADDNEW","dir","Add new files in <dir>"},
{3,3,method_allow_all,a_addgroup,      "ADDGROUP","group dir","Add new files in <dir> to <group>"},
{3,3,method_allow_all,a_addmatch,      "ADDMATCH","pattern","Add new files matching this pattern"},
{3,3,method_allow_all,a_autoadd,       "AUTOADD",NULL,"scan autoadd_dirs for new files now"},
{3,3,method_allow_all,a_autocancel,    "AUTOCANCEL",NULL,"Cancels pending add and remove actions"},
{3,3,method_allow_all,a_autogroup,     "AUTOGROUP",NULL,"Create a group for each directory with packs"},
{3,3,method_allow_all,a_noautoadd,     "NOAUTOADD","x","Disables AUTOADD for next <x> minutes"},
{3,3,method_allow_all,a_chfile,        "CHFILE","n filename","Change file of pack <n> to <filename>"},
{3,3,method_allow_all,a_newdir,        "NEWDIR","dirname newdir","rename pathnames of all matching packs"},
{3,3,method_allow_all,a_chdesc,        "CHDESC","n [msg]","Change description of pack <n> to <msg>"},
{3,3,method_allow_all,a_chnote,        "CHNOTE","n [msg]","Change note of pack <n> to <msg>"},
{3,3,method_allow_all,a_chtime,        "CHTIME","n [msg]","Change add time of pack <n> to <msg>"},
{3,3,method_allow_all,a_chmins,        "CHMINS","n [m] x","Change min speed to <x> kB/s for pack <n> to <m>"},
{3,3,method_allow_all,a_chmaxs,        "CHMAXS","n [m] x","Change max speed to <x> kB/s for pack <n> to <m>"},
{3,3,method_allow_all,a_chlimit,       "CHLIMIT","n [m] x","Change download limit to <x> transfers per day for pack <n> to <m>"},
{3,3,method_allow_all,a_chlimitinfo,   "CHLIMITINFO","n [msg]","Change over limit info of pack <n> to <msg>"},
{3,3,method_allow_all,a_chtrigger,     "CHTRIGGER","n [msg]","Change trigger for pack <n> to <msg>"},
{3,3,method_allow_all,a_deltrigger,    "DELTRIGGER","n [m]","Delete trigger for pack <n> to <m>"},
{3,5,method_allow_all,a_chgets,        "CHGETS","n [m] x","Set the get counter to <x> for pack <n> to <m>"},
{3,5,method_allow_all,a_chcolor,       "CHCOLOR","n [m] x[,b][,s]","Set the pack <n> to <m> to color <x>, background <b> and style <s>"},
{3,2,method_allow_all,a_lock,          "LOCK","n [m] password","Lock the pack <n> to <m> with <password>"},
{3,2,method_allow_all,a_unlock,        "UNLOCK","n [m]","Unlock the pack <n> to <m>"},
{3,2,method_allow_all,a_lockgroup,     "LOCKGROUP","group password","Lock all packs in <group> with <password>"},
{3,2,method_allow_all,a_unlockgroup,   "UNLOCKGROUP","group","Unlock all packs in <group>"},
{3,2,method_allow_all,a_relock,        "RELOCK","old-password password","Lock all packs with <old-password> with <password>"},
{3,3,method_allow_all,a_groupdesc,     "GROUPDESC","group msg","Change description of <group> to <msg>"},
{3,3,method_allow_all,a_group,         "GROUP","n group","Change group of pack <n> to <group>"},
{3,3,method_allow_all,a_movegroup,     "MOVEGROUP","n m group","Change group to <group> for pack <n> to <m>"},
{3,3,method_allow_all,a_regroup,       "REGROUP","group new","Change all packs of <group> to group <new>"},
{3,3,method_allow_all,a_newgroup,      "NEWGROUP","group dir","Change any files in <dir> to <group>"},
{3,2,method_allow_all,a_announce,      "ANNOUNCE","n [msg]","ANNOUNCE <msg> for pack <n> in all joined channels"},
{3,2,method_allow_all,a_newann,        "NEWANN","n [channel] [net]","ANNOUNCE for the last <n> packs in all joined channels"},
{3,2,method_allow_all,a_mannounce,     "MANNOUNCE","n m [msg]","ANNOUNCE <msg> for pack <n> to <m> in all joined channels"},
{3,2,method_allow_all,a_cannounce,     "CANNOUNCE","channel n [msg]","ANNOUNCE <msg> for pack <n> in <channel>"},
{3,2,method_allow_all,a_sannounce,     "SANNOUNCE","n [m]","Short ANNOUNCE pack <n> to <m> in all joined channels"},
{3,2,method_allow_all,a_noannounce,    "NOANNOUNCE","x","Disables all announces for next <x> minutes"},
{3,3,method_allow_all,a_addann,        "ADDANN","filename","Add and announce new pack"},
{3,2,method_allow_all,a_md5,           "MD5","[n] [m]","Calculate MD5 and CRC sums of pack <n> to <m>"},
{3,2,method_allow_all,a_crc,           "CRC","[n] [m]","Check CRC of pack <n> to <m>"},
{4,5,method_allow_all,a_filemove,      "FILEMOVE","filename newfile","rename file on disk"},
{4,5,method_allow_all,a_movefile,      "MOVEFILE","n filename","rename the file of pack <n> on disk to <filename>"},
{4,3,method_allow_all,a_movegroupdir,  "MOVEGROUPDIR","group dir","move any file in group <g> to dir <dir>"},
{4,5,method_allow_all,a_filedel,       "FILEDEL","filename","remove file from disk"},
{4,5,method_allow_all,a_fileremove,    "FILEREMOVE","n [m]","remove pack <n> or <n> to <m> and remove its file from disk"},
{4,5,method_allow_all,a_showdir,       "SHOWDIR","dir","list directory on disk"},
{4,5,method_allow_all,a_makedir,       "MAKEDIR","dir","create a new directory on disk"},
#ifdef USE_CURL
{4,3,method_allow_all,a_fetch,         "FETCH","file url","download url and save file in upload dir"},
{4,3,method_allow_all,a_fetchcancel,   "FETCHCANCEL","[id]","stop download of fetch with <id>"},
#endif /* USE_CURL */

{5,2,method_allow_all,a_msg,           "MSG","nick message","Send <message> to user or channel <nick>"},
{5,2,method_allow_all,a_amsg,          "AMSG","msg","Announce <msg> in all joined channels"},
{5,2,method_allow_all,a_msgnet,        "MSGNET","net nick message","Send <message> to user or channel <nick>"},
{5,2,method_allow_all,a_mesg,          "MESG","message","Sends <message> to all users who are transferring"},
{5,2,method_allow_all,a_mesq,          "MESQ","message","Sends <message> to all users in a queue"},
{5,2,method_allow_all,a_ignore,        "IGNORE","x hostmask","Ignore <hostmask> (nick!user@host) for <x> minutes, wildcards allowed"},
{5,2,method_allow_all,u_unignore,      "UNIGNORE","hostmask","Un-Ignore <hostmask>"},
{5,2,method_allow_all,a_bannhost,      "BANNHOST","x hostmask","Stop transfers and ignore <hostmask> (nick!user@host) for <x> minutes"},
{5,2,method_allow_all,a_bannnick,      "BANNNICK","nick [net]","Stop transfers and remove <nick> from queue"},
{5,5,method_allow_all,a_nosave,        "NOSAVE","x","Disables autosave for next <x> minutes"},
{5,2,method_allow_all,a_nosend,        "NOSEND","x [msg]","Disables XDCC SEND for next <x> minutes"},
{5,2,method_allow_all,a_nolist,        "NOLIST","x","Disables XDCC LIST and plist for next <x> minutes"},
{5,2,method_allow_all,a_nomd5,         "NOMD5","x","Disables MD5 and CRC calculation for next <x> minutes"},
{5,3,method_allow_all,u_msgread,       "MSGREAD",NULL,"Show MSG log"},
{5,5,method_allow_all,u_msgdel,        "MSGDEL",NULL,"Delete MSG log"},
{5,3,method_allow_all,a_rmul,          "RMUL","filename","Delete a file in the upload dir"},
{5,5,method_allow_all,a_raw,           "RAW","command","Send <command> to server (RAW IRC)"},
{5,5,method_allow_all,a_rawnet,        "RAWNET","net command","Send <command> to server (RAW IRC)"},
{5,5,method_allow_all,a_lag,           "LAG","[net]","Show lag on networks"},

{6,2,method_allow_all,u_servers,       "SERVERS","[net]","Shows the server list"},
{6,2,method_allow_all,a_hop,           "HOP","[channel] [net]","leave and rejoin a channel to get status"},
{6,2,method_allow_all,a_nochannel,     "NOCHANNEL","x [channel]","leave channel for <x> minutes"},
{6,2,method_allow_all,a_join,          "JOIN","channel [net] [key]","join channel till rehash"},
{6,2,method_allow_all,a_part,          "PART","channel [net]","part channel till rehash"},
{6,2,method_allow_all,u_jump,          "JUMP","server [net]","Switches to a random server or server <server>"},
{6,5,method_allow_all,a_servqc,        "SERVQC","[net]","Clears the server send queue"},
{6,2,method_allow_all,u_status,        "STATUS",NULL,"Show Useful Information"},
{6,5,method_allow_all,u_rehash,        "REHASH",NULL,"Re-reads config file(s) and reconfigures"},
{6,2,method_allow_all,u_botinfo,       "BOTINFO",NULL,"Show Information about the bot status"},
{6,5,method_allow_all,u_memstat,       "MEMSTAT",NULL,"Show Information about memory usage"},
{6,5,method_allow_all,a_version,       "VERSION",NULL,"Show Information about iroffer version"},
{6,5,method_allow_all,a_clearrecords,  "CLEARRECORDS",NULL,"Clears transfer, bandwidth, uptime, and transfer limits",},
{6,5,method_allow_all,a_cleargets,     "CLEARGETS",NULL,"Clears download counters for each pack and total sent and uptime"},
{6,5,method_console,  u_redraw,        "REDRAW",NULL,"Redraws the Screen"},
{6,5,method_console,  u_delhist,       "DELHIST",NULL,"Deletes console history"},
{6,1,method_dcc,      a_quit,          "QUIT",NULL,"Close this DCC chat"},
{6,1,method_dcc,      a_quit,          "EXIT",NULL,"Close this DCC chat"},
{6,1,method_dcc,      a_quit,          "LOGOUT",NULL,"Close this DCC chat"},
{6,1,method_msg,      a_chatme,        "CHATME","[options]","Sends you a DCC Chat Request"},
{6,1,method_allow_all,a_chatl,         "CHATL",NULL,"Lists DCC chat information"},
{6,5,method_allow_all,a_closec,        "CLOSEC","[id]","Closes DCC chat <id>"},
{6,5,method_console,  u_debug,         "DEBUG","x","Set debugging level to <x>"},
{6,5,method_allow_all,a_config,        "CONFIG","key value","Set config variable <key> to <value>"},
{6,5,method_allow_all,a_print,         "PRINT","key","Print config variable <key>"},
{6,1,method_allow_all,a_identify,      "IDENTIFY","[net]","Send stored password again to nickserv"},
{6,2,method_allow_all,a_holdqueue,     "HOLDQUEUE","[x]","Change holdqueue flag, x=1 set, x=0 reset"},
{6,5,method_allow_all,a_offline,       "OFFLINE","[net]","Close given network or all networks"},
{6,5,method_allow_all,a_online,        "ONLINE","[net]","Connect to given network or to all networks"},
#ifdef USE_RUBY
{6,5,method_allow_all,a_ruby,          "RUBY","method [args]","Call a method in the ruby_script with parameters <args>"},
#endif /* USE_RUBY */
{6,5,method_allow_all,u_shutdown,      "SHUTDOWN","act","Shutdown iroffer, <act> is \"now\", \"delayed\", or \"cancel\""},
{6,5,method_console,  a_backgroud,     "BACKGROUND",NULL,"Switch to background mode"},
{6,5,method_allow_all,a_dump,          "DUMP",NULL,"Write a dump into the logfile"},
{6,5,method_allow_all,a_restart,       "RESTART",NULL,"Shutdown and restart the bot"},
{6,5,method_console,  u_crash,         "CRASH",NULL,"Write a dump into the logfile and exit"},
};



void u_fillwith_console (userinput * const u, char *line)
{
  
  updatecontext();
  
  bzero((char *)u, sizeof(userinput));
  u->method = method_console;
  u->level = ADMIN_LEVEL_CONSOLE;
  
  a_parse_inputline(u, line);
}

void u_fillwith_dcc (userinput * const u, dccchat_t *chat, char *line)
{
  
  updatecontext();
  
  bzero((char *)u, sizeof(userinput));
  u->method = method_dcc;
  u->chat = chat;
  u->net = chat->net;
  u->level = chat->level;
  u->hostmask = mystrdup(chat->hostmask);
  
  a_parse_inputline(u, line);
}

static void u_fillwith_clean (userinput * const u)
{
  
  updatecontext();
  
  u->chat = NULL;
  u->net = 0;
  u->level = ADMIN_LEVEL_PUBLIC;
  free_userinput(u);
}

static void u_runcmd(userinput * const u)
{
#ifdef DEBUG
  ir_uint64 ms1;
  ir_uint64 ms2;
#endif /* DEBUG */
  char *tempstr;
  int i;

#ifdef DEBUG
  ms1 = get_time_in_ms();
#endif /* DEBUG */
  for (i=0; i < (int)((sizeof(userinput_parse)/sizeof(userinput_parse_t))); i++) {
    if (u->level < userinput_parse[i].level)
      continue;
    if ((userinput_parse[i].methods_allowed & u->method) == 0)
      continue;
    if (strcmp(userinput_parse[i].command, u->cmd) != 0)
      continue;
  
    tempstr = mymalloc(maxtextlength);
    tempstr[0] = 0;
    if (u->method == method_console) {
      snprintf(tempstr, maxtextlength - 1, "(console)");
    }
    if (u->method == method_dcc) {
      snprintf(tempstr, maxtextlength - 1, "(DCC Chat: %s)" " (network: %s)",
               save_nick(u->chat->nick), gnetwork->name);
    }
    if (u->method == method_msg) {
      snprintf(tempstr, maxtextlength - 1, "(MSG: %s)" " (network: %s)",
               u->snick, gnetwork->name);
    }
    if (tempstr[0] != 0) {
      ioutput(OUT_S|OUT_L|OUT_D, COLOR_MAGENTA, "ADMIN %s requested %s", u->cmd, tempstr);
    }
    mydelete(tempstr);
    userinput_parse[i].handler(u);

#ifdef DEBUG
    ms2 = get_time_in_ms();
    if (gdata.debug > 0)
      ioutput(OUT_S|OUT_L|OUT_D, COLOR_MAGENTA, "ADMIN %s"
              " running: %ld ms", u->cmd, (long)(ms2 - ms1));
#endif /* DEBUG */
    return;
  }
  a_respond(u, "** User Command Not Recognized, try \"HELP\"");
}

#define u_respond a_respond

void u_parseit(userinput * const u) {
   gnetwork_t *backup;
   
   updatecontext();
   
   backup = gnetwork;
   if ( gnetwork == NULL )
     gnetwork = &(gdata.networks[0]);
   if (!u->cmd || !strlen(u->cmd)) {
      u_respond(u,"** Missing Command, try again");
      }
   else {
      u_runcmd(u);
      }
   
   u_fillwith_clean(u);
   gnetwork = backup;
   
   }

static const char *expand_args_shutdown[] = {
  "NOW", "DELAYED", "CANCEL", NULL /* NOTRANSLATE */
};

static size_t u_expand_list(char *buffer, size_t max, const char **list)
{
  const char *first = NULL;
  size_t found = 0;
  size_t j;
  int i;

  j = strlen(buffer);
  for (i=0; list[i]; i++) {
    if (strncmp(list[i], buffer, j))
      continue;

    found++;
    if (first == NULL) first = list[i];
  }
  if (found == 0)
    return 0;
  if (found == 1) {
    snprintf(buffer, max, "%s ", first); /* NOTRANSLATE */
    return strlen(first) - j + 1;
  }
  tostdout("** Args:");
  for (i=0; list[i]; i++) {
    if (strncmp(list[i], buffer, j))
      continue;

    if (list[i] != first)
      tostdout(","); /* NOTRANSLATE */
    tostdout(" %s", list[i]); /* NOTRANSLATE */
  }
  tostdout("\n"); /* NOTRANSLATE */
  return 0;
}

static size_t u_expand_args(const char *args)
{
  char *buffer;
  size_t max;

  buffer = strchr(gdata.console_input_line, ' ');
  if (buffer == NULL)
    return 0;
  ++buffer;
  max = INPUT_BUFFER_LENGTH - strlen(buffer);
  if (strcmp(args, "act") == 0) {
    return u_expand_list(buffer, max, expand_args_shutdown);
  }
  if (strcmp(args, "key") == 0) {
    return config_expand(buffer, max, 1);
  }
  if (strcmp(args, "key value") == 0) {
    return config_expand(buffer, max, 0);
  }
  return 0;
}

static void u_expand_help(int i)
{
  tostdout("** Command: %s %s, %s\n",
           userinput_parse[i].command,
           userinput_parse[i].args ? userinput_parse[i].args : "(no args)",
           userinput_parse[i].desc);
}

static size_t u_expand_command2(char *cmd)
{
  const char *first = NULL;
  char *end;
  size_t found = 0;
  size_t j;
  int firsti = 0;
  int i;

  end = strchr(cmd, ' ');
  if (end != NULL) {
    *end = 0;
    for (i=0; i<(int)((sizeof(userinput_parse)/sizeof(userinput_parse_t))); i++) {
      if (strcasecmp(userinput_parse[i].command, cmd))
        continue;

      if ((userinput_parse[i].methods_allowed & method_console) == 0)
        continue;

      if (userinput_parse[i].args) {
        j = u_expand_args(userinput_parse[i].args);
        if (j > 0) {
          return j;
        }
      }

      u_expand_help(i);
      break;
    }
    return 0;
  }
  caps(cmd);
  j = strlen(cmd);
  for (i=0; i<(int)((sizeof(userinput_parse)/sizeof(userinput_parse_t))); i++) {
    if (strncmp(userinput_parse[i].command, cmd, j))
      continue;

    if ((userinput_parse[i].methods_allowed & method_console) == 0)
      continue;

    found++;
    if (first == NULL) {
      first = userinput_parse[i].command;
      firsti = i;
    }
  }
  if (found == 0) {
    tostdout("** User Command Not Recognized, try \"HELP\"");
    tostdout("\n"); /* NOTRANSLATE */
    return 0;
  }
  if (found == 1) {
    if (strcmp(userinput_parse[firsti].command, cmd)) {
      snprintf(gdata.console_input_line, INPUT_BUFFER_LENGTH, "%s ", first); /* NOTRANSLATE */
      return strlen(first) - j + 1;
    }
    u_expand_help(firsti);
    return 0;
  }
  tostdout("** Commands:");
  for (i=0; i<(int)((sizeof(userinput_parse)/sizeof(userinput_parse_t))); i++) {
    if (strncmp(userinput_parse[i].command, cmd, j))
      continue;

    if ((userinput_parse[i].methods_allowed & method_console) == 0)
      continue;

    if (userinput_parse[i].command != first)
      tostdout(","); /* NOTRANSLATE */
    tostdout(" %s", userinput_parse[i].command); /* NOTRANSLATE */
  }
  tostdout("\n"); /* NOTRANSLATE */
  return 0;
}

size_t u_expand_command(void)
{
  char *cmd;
  size_t found;

  cmd = mystrdup(gdata.console_input_line);
  found = u_expand_command2(cmd);
  mydelete(cmd);
  return found;
}

static void u_help(const userinput * const u)
{
  size_t i;
  unsigned int which=0;
  
  updatecontext();
  
  for (which=1; which<7; which++)
    {
      if ((which == 4) && (gdata.direct_file_access == 0))
        continue;
      
      u_respond(u,"-- %s Commands --",
                which==1?"Info":
                which==2?"Transfer":
                which==3?"Pack":
                which==4?"File":
                which==5?"Misc":
                which==6?"Bot":"<Unknown>");
      
      for (i=0; i<(sizeof(userinput_parse)/sizeof(userinput_parse_t)); i++)
        {
          if (userinput_parse[i].methods_allowed & u->method &&
              (userinput_parse[i].level <= u->level ) &&
              userinput_parse[i].help_section == which)
            {
              if (userinput_parse[i].args)
                {
                  int spaces;
                  
                  spaces = 20 - 1;
                  spaces -= sstrlen(userinput_parse[i].command);
                  spaces = max2(0,spaces);
                  
                  a_respond(u, "  %s %-*s : %s",
                            userinput_parse[i].command,
                            spaces,
                            userinput_parse[i].args,
                            userinput_parse[i].desc);
                }
              else
                {
                  u_respond(u,"  %-20s : %s",
                            userinput_parse[i].command,
                            userinput_parse[i].desc);
                }
            }
        }
    }
  a_respond(u, "For additional help, see the documentation at " "https://iroffer.net/");
  
}

void u_xdl_head(const userinput * const u)
{
   char *tempstr;
   char *tempnick;
   char *chan;
   char *line;
   const char *mynick;
   unsigned int i;
   unsigned int a;
   unsigned int m, m1;
   size_t len;
   int head;
   xdcc *xd;
   channel_t *ch;
   ir_uint64 xdccsent;
   
   updatecontext();
   tempstr  = mymalloc(maxtextlength);

   if (u->method==method_xdl_channel_min) m = 1; else m = 0;
   if (u->method==method_xdl_channel_sum) m1 = 1; else m1 = 0;
   mynick = get_user_nick();
   
   head = 0;
   switch (u->method)
    {
    case method_xdl_channel:
    case method_xdl_channel_min:
    case method_xdl_channel_sum:
      ch = irlist_get_head(&(gnetwork->channels));
      while(ch)
        {
          for (line = irlist_get_head(&(ch->headline));
               line;
               line = irlist_get_next(line))
            {
              tempnick = mystrdup(u->snick);
              for (chan = strtok(tempnick, ","); chan != NULL; chan = strtok(NULL, ",") ) /* NOTRANSLATE */
                {
                  if (!strcasecmp(ch->name, chan))
                    {
                      userinput u2;
                      
                      u2 = *u;
                      u2.snick = chan;
                      a_respond(&u2, "\2**\2 %s \2**\2", line);
                      head ++;
                    }
                }
              mydelete(tempnick);
            }
          ch = irlist_get_next(ch);
        }
      break;
    default:
      if (gdata.hide_list_stop == 0)
        a_respond(u, "\2**\2 To stop this listing, type \"/MSG %s XDCC STOP\" \2**\2",
                  mynick);
      break;
    }
   
   if (head == 0)
     {
        for (line = irlist_get_head(&gdata.headline);
             line;
             line = irlist_get_next(line))
          a_respond(u, "\2**\2 %s \2**\2", line);
     }
   
   if (!m && !m1)
     {
       if (gdata.slotsmax < irlist_size(&gdata.trans))
         {
           a = irlist_size(&gdata.trans);
         }
       else
         {
           a = gdata.slotsmax;
         }
       
       snprintf(tempstr, maxtextlength,
                "\2**\2 %u %s \2**\2  %u of %u %s open",
                irlist_size(&gdata.xdccs),
                irlist_size(&gdata.xdccs) != 1 ? "packs" : "pack",
                a - irlist_size(&gdata.trans),
                a,
                a != 1 ? "slots" : "slot");
       len = strlen(tempstr);
       
       if (gdata.slotsmax <= irlist_size(&gdata.trans))
         {
           snprintf(tempstr + len, maxtextlength - len,
                    ", Queue: %u/%u",
                    irlist_size(&gdata.mainqueue),
                    gdata.queuesize);
           len = strlen(tempstr);
         }
       
       if (gdata.transferminspeed > 0)
         {
           snprintf(tempstr + len, maxtextlength - len,
                    ", Min: %1.1fkB/s",
                    gdata.transferminspeed);
           len = strlen(tempstr);
         }
       
       if (gdata.transfermaxspeed > 0)
         {
           snprintf(tempstr + len, maxtextlength - len,
                    ", Max: %1.1fkB/s",
                    gdata.transfermaxspeed);
           len = strlen(tempstr);
         }
       
       if (gdata.record > 0.5)
         {
           snprintf(tempstr + len, maxtextlength - len,
                    ", Record: %1.1fkB/s",
                    gdata.record);
           len = strlen(tempstr);
         }
       
       u_respond(u, "%s", tempstr); /* NOTRANSLATE */
       
       
       for (i=0,xdccsent=0; i<XDCC_SENT_SIZE; i++)
         {
           xdccsent += (ir_uint64)gdata.xdccsent[i];
         }
       
       snprintf(tempstr, maxtextlength,
                "\2**\2 Bandwidth Usage \2**\2 Current: %1.1fkB/s,",
                ((float)xdccsent) / XDCC_SENT_SIZE / 1024.0);
       len = strlen(tempstr);
       
       if (gdata.maxb)
         {
           snprintf(tempstr + len, maxtextlength - len,
                    " Cap: %u.0kB/s,",
                    gdata.maxb / 4);
           len = strlen(tempstr);
         }
       
       if (gdata.sentrecord > 0.5)
         {
           snprintf(tempstr + len, maxtextlength - len,
                    " Record: %1.1fkB/s",
                    gdata.sentrecord);
           len = strlen(tempstr);
         }
       
       u_respond(u, "%s", tempstr); /* NOTRANSLATE */
       
       a_respond(u, "\2**\2 To request a file, type \"/MSG %s XDCC SEND x\" \2**\2",
                 mynick);
       
       if ((gdata.hide_list_info == 0) && (gdata.disablexdccinfo == 0))
          a_respond(u, "\2**\2 To request details, type \"/MSG %s XDCC INFO x\" \2**\2",
                    mynick);
       
       i = 0;
       xd = irlist_get_head(&gdata.xdccs);
       while(xd)
         {
           if (xd->group != NULL)
             {
               i++;
             }
           xd = irlist_get_next(xd);
         }
       if (i > 0)
         {
           if (gdata.xdcclist_grouponly)
             {
               a_respond(u, "\2**\2 To list a group, type \"/MSG %s XDCC LIST group\" \2**\2",
                         mynick);
            
               if (!gdata.restrictprivlistfull)
                 a_respond(u, "\2**\2 To list all packs, type \"/MSG %s XDCC LIST ALL\" \2**\2",
                           mynick);
            }
         }
     }
   
   if (m1)
     {
       if (!gdata.restrictprivlist)
         {
           a_respond(u, "\2**\2 For a listing type: \"/MSG %s XDCC LIST\" \2**\2",
                     mynick);
         }
       if (gdata.creditline)
         {
           u_respond(u,"\2**\2 %s \2**\2",gdata.creditline);
         }
     }
   
   mydelete(tempstr);
}

static void u_dcl(const userinput * const u)
{
  const char *y;
  int i;
  upload *ul;
  transfer *tr;

  updatecontext();
  
#ifdef USE_CURL
  if (!irlist_size(&gdata.trans) && !irlist_size(&gdata.uploads) && !fetch_started)
#else /* USE_CURL */
  if (!irlist_size(&gdata.trans) && !irlist_size(&gdata.uploads))
#endif /* USE_CURL */
    {
      a_respond(u, "No active transfers");
      return;
    }
  
  if (irlist_size(&gdata.trans))
    {
      a_respond(u, "Current %s", irlist_size(&gdata.trans)!=1 ? "transfers" : "transfer");
      a_respond(u, "   ID  User        Pack File                               Status");
    }
  
  tr = irlist_get_head(&gdata.trans);
  while(tr)
    {
      y = t_print_state(tr);
      
      if (tr->tr_status == TRANSFER_STATUS_SENDING)
        {
          a_respond(u, "  %3i  %-9s   %-4d %-32s   %s %2.0f%%",
                    tr->id, tr->nick, number_of_pack(tr->xpack), getfilename(tr->xpack->file), y,
                    ((float)tr->bytessent)*100.0/((float)tr->xpack->st_size));
        }
      else
        {
          a_respond(u, "  %3i  %-9s   %-4d %-32s   %s",
                    tr->id, tr->nick, number_of_pack(tr->xpack), getfilename(tr->xpack->file), y);
        }
      tr = irlist_get_next(tr);
    }
  
#ifdef USE_CURL
  if (irlist_size(&gdata.uploads) || fetch_started)
#else /* USE_CURL */
  if (irlist_size(&gdata.uploads))
#endif /* USE_CURL */
    {
      a_respond(u, "Current %s", irlist_size(&gdata.uploads)!=1 ? "uploads" : "upload" );
      u_respond(u,"   ID  User        File                               Status");
    }
  
  i = 0;
  ul = irlist_get_head(&gdata.uploads);
  while (ul)
    {
      y = l_print_state(ul);
      
      if (ul->ul_status == UPLOAD_STATUS_GETTING)
        {
          u_respond(u,"   %2i  %-9s   %-32s   %s %2.0f%%",
                    i,ul->nick,getfilename(ul->file),y,
                    ((float)ul->bytesgot)*100.0/((float)ul->totalsize));
        }
      else
        {
          u_respond(u,"   %2i  %-9s   %-32s   %s",
                    i,ul->nick,getfilename(ul->file),y);
        }
      ul = irlist_get_next(ul);
      i++;
    }
#ifdef USE_CURL
  dinoex_dcl(u);
#endif /* USE_CURL */
}

static void u_dcld(const userinput * const u)
{
  char *tempstr2, *tempstr3, *tempstr4;
  const char *y;
  int i,left,started;
  upload *ul;
  transfer *tr;
  
  updatecontext();
  
#ifdef USE_CURL
  if (!irlist_size(&gdata.trans) && !irlist_size(&gdata.uploads) && !fetch_started)
#else /* USE_CURL */
  if (!irlist_size(&gdata.trans) && !irlist_size(&gdata.uploads))
#endif /* USE_CURL */
    {
      a_respond(u, "No active transfers");
      return;
    }
  
   tempstr2 = mymalloc(maxtextlengthshort);
   tempstr3 = mymalloc(maxtextlengthshort);
   tempstr4 = mymalloc(maxtextlengthshort);
   
   if (irlist_size(&gdata.trans))
     {
       a_respond(u, "Current %s", irlist_size(&gdata.trans)!=1 ? "transfers" : "transfer");
       a_respond(u, " ID  User        Pack File                               Status");
       u_respond(u,"  ^-    Speed    Current/    End   Start/Remain    Min/  Max  Resumed");
       u_respond(u," --------------------------------------------------------------------");
     }
   
  tr = irlist_get_head(&gdata.trans);
  while(tr)
    {
      y = t_print_state(tr);
      
      a_respond(u, "network: %u: %s", tr->net, gdata.networks[tr->net].name);
      
      if (tr->tr_status == TRANSFER_STATUS_SENDING)
        {
          a_respond(u, "%3i  %-9s   %-4d %-32s   %s %2.0f%%",
                    tr->id, tr->nick, number_of_pack(tr->xpack), getfilename(tr->xpack->file), y,
                    ((float)tr->bytessent)*100.0/((float)tr->xpack->st_size));
        }
      else
        {
          a_respond(u, "%3i  %-9s   %-4d %-32s   %s",
                    tr->id, tr->nick, number_of_pack(tr->xpack), getfilename(tr->xpack->file), y);
        }
      
      if (tr->tr_status == TRANSFER_STATUS_SENDING || tr->tr_status == TRANSFER_STATUS_WAITING)
        {
          left = min2(359999,(tr->xpack->st_size-tr->bytessent)/((int)(max2(tr->lastspeed,0.001)*1024)));
          started = min2(359999, gdata.curtime-tr->con.connecttime);
          snprintf(tempstr2, maxtextlengthshort,
                   "%1.1fK", tr->xpack->minspeed);
          snprintf(tempstr3, maxtextlengthshort,
                   "%6liK", (long)(tr->startresume/1024));
          snprintf(tempstr4, maxtextlengthshort,
                   "%1.1fK", tr->maxspeed);
          
          u_respond(u,
                    "  ^- %5.1fK/s    %6" LLPRINTFMT "dK/%6" LLPRINTFMT "dK  %2i%c%02i%c/%2i%c%02i%c  %5s/%5s  %7s",
                    tr->lastspeed,
                    (tr->bytessent/1024),
                    (tr->xpack->st_size/1024),
                    started < 3600 ? started/60 : started/60/60 ,
                    started < 3600 ? 'm' : 'h',
                    started < 3600 ? started%60 : (started/60)%60 ,
                    started < 3600 ? 's' : 'm',
                    left < 3600 ? left/60 : left/60/60 ,
                    left < 3600 ? 'm' : 'h',
                    left < 3600 ? left%60 : (left/60)%60 ,
                    left < 3600 ? 's' : 'm',
                    (tr->nomin || (tr->xpack->minspeed == 0.0)) ? "no" : tempstr2 ,
                    (tr->nomax || (tr->maxspeed == 0.0)) ? "no" : tempstr4 ,
                    tr->startresume ? tempstr3 : "no");
          u_respond(u, "  ^- [%s country=%s]", tr->con.remoteaddr, tr->country ? tr->country : "??" );
        }
      else
        {
          u_respond(u,"  ^-    -----    -------/-------   -----/------  -----/-----      ---");
        }
      tr = irlist_get_next(tr);
    }
  
#ifdef USE_CURL
  if (irlist_size(&gdata.uploads) || fetch_started)
#else /* USE_CURL */
  if (irlist_size(&gdata.uploads))
#endif /* USE_CURL */
    {
      a_respond(u, "Current %s", irlist_size(&gdata.uploads)!=1 ? "uploads" : "upload");
      u_respond(u," ID  User        File                               Status");
      u_respond(u,"  ^-    Speed    Current/    End   Start/Remain");
      u_respond(u," --------------------------------------------------------------");
    }
  
  i = 0;
  ul = irlist_get_head(&gdata.uploads);
  while(ul)
    {
      y = l_print_state(ul);
      
      if (ul->ul_status == UPLOAD_STATUS_GETTING)
        {
          u_respond(u," %2i  %-9s   %-32s   %s %2.0f%%",
                    i,ul->nick,getfilename(ul->file),y,
                    ((float)ul->bytesgot)*100.0/((float)ul->totalsize));
        }
      else
        {
          u_respond(u," %2i  %-9s   %-32s   %s",
                    i,ul->nick,getfilename(ul->file),y);
        }
      
      if (ul->ul_status == UPLOAD_STATUS_GETTING || ul->ul_status == UPLOAD_STATUS_WAITING)
        {
          left = min2(359999,(ul->totalsize-ul->bytesgot)/((int)(max2(ul->lastspeed,0.001)*1024)));
          started = min2(359999, gdata.curtime-ul->con.connecttime);
          
          u_respond(u,
                    "  ^- %5.1fK/s    %6" LLPRINTFMT "dK/%6" LLPRINTFMT "dK  %2i%c%02i%c/%2i%c%02i%c",
                    ul->lastspeed,
                    (ul->bytesgot/1024),
                    (ul->totalsize/1024),
                    started < 3600 ? started/60 : started/60/60 ,
                    started < 3600 ? 'm' : 'h',
                    started < 3600 ? started%60 : (started/60)%60 ,
                    started < 3600 ? 's' : 'm',
                    left < 3600 ? left/60 : left/60/60 ,
                    left < 3600 ? 'm' : 'h',
                    left < 3600 ? left%60 : (left/60)%60 ,
                    left < 3600 ? 's' : 'm'
                    );
        }
      else
        {
          u_respond(u, "  ^-    -----    -------/-------   -----/------  -----/-----      ---");
        }
      ul = irlist_get_next(ul);
      i++;
    }
  
  mydelete(tempstr2);
  mydelete(tempstr3);
  mydelete(tempstr4);
#ifdef USE_CURL
  dinoex_dcld(u);
#endif /* USE_CURL */
  
  a_respond(u, " --------------------------------------------------------------------");
}

static void u_info(const userinput * const u)
{
  ir_uint32 zipcrc32;
  xdcc *xd;
  char *sizestrstr;
  char *sendnamestr;
  char tempstr[maxtextlengthshort];
  unsigned int num;
  
  updatecontext();
  
  num = get_pack_nr(u, u->arg1);
  if (num <= 0)
    return;
  
  xd = get_xdcc_pack(num);
  if (group_restricted(u, xd))
    return;
  
  a_respond(u, "Pack Info for Pack #%u:", num);
  
  sendnamestr = getsendname(xd->file);
  if (u->level > 0) 
    {
  a_respond(u, " Filename       %s", xd->file);

  a_respond(u, " Sendname       %s", sendnamestr);
    }
  else
    {
  a_respond(u, " Filename       %s", sendnamestr);
    }

  if (strcmp(xd->desc, sendnamestr) != 0) 
    {
  a_respond(u, " Description    %s", xd->desc);
    }
  mydelete(sendnamestr);

  if (xd->note && xd->note[0])
    {
      u_respond(u, " Note           %s", xd->note);
    }
  
  sizestrstr = sizestr(1, xd->st_size);
  a_respond(u, " Filesize       %" LLPRINTFMT "d [%sB]",
            xd->st_size, sizestrstr);
  mydelete(sizestrstr);
  
  user_getdatestr(tempstr, xd->mtime, maxtextlengthshort);
  u_respond(u, " Last Modified  %s", tempstr);
  
  if (u->level > 0) 
    {
  a_respond(u, " Device/Inode   %" LLPRINTFMT "u/%" LLPRINTFMT "u",
            (ir_uint64)xd->st_dev, (ir_uint64)xd->st_ino);
    }
  
  a_respond(u, " Gets           %u", xd->gets);
  if (xd->minspeed > 0)
    {
      a_respond(u, " Minspeed       %1.1fkB/sec", xd->minspeed);
    }
  if (xd->maxspeed > 0)
    {
      a_respond(u, " Maxspeed       %1.1fkB/sec", xd->maxspeed);
    }
  
  if (xd->has_md5sum)
    {
      u_respond(u, " md5sum         " MD5_PRINT_FMT, MD5_PRINT_DATA(xd->md5sum));
    }
  if (xd->has_crc32)
    {
      a_respond(u, " crc32          " CRC32_PRINT_FMT, xd->crc32);
    }
  zipcrc32 = get_zip_crc32_pack(xd);
  if (zipcrc32 != 0)
    {
      a_respond(u, " content crc32  " CRC32_PRINT_FMT, zipcrc32);
    }
  if ((u->level > 0) && (xd->xtime != 0))
    {
      user_getdatestr(tempstr, xd->xtime, maxtextlengthshort);
      a_respond(u, " Pack Added     %s", tempstr);
    }
  if (xd->lock)
    {
      a_respond(u, " is protected by password");
    }

  return;
}

static void u_redraw(const userinput * const UNUSED(u)) {
   updatecontext();
   
   initscreen(0, 1);
   gotobot();
   }

static void u_delhist(const userinput * const u)
{
  updatecontext();
  
  a_respond(u, "Deleted all %u lines of console history",
            irlist_size(&gdata.console_history));
  
  irlist_delete_all(&gdata.console_history);
  gdata.console_history_offset = 0;
  
  return;
}

static void u_psend(const userinput * const u)
{
  userinput manplist;
  userinput_method_e method;
  channel_t *ch;
  gnetwork_t *backup;
  int net;
  const char *nname;
  
  updatecontext();
  
  net = get_network_msg(u, u->arg3);
  if (net < 0)
    return;

  if (invalid_channel(u, u->arg1) != 0)
    return;

  if (!u->arg2 || !strlen(u->arg2))
    {
      method = method_xdl_channel;
      u_respond(u, "No PLIST style specified. Using style full");
    }
  else
    {
      if (strcmp(u->arg2,"full") == 0)
        {
          method = method_xdl_channel;
        }
      else if (strcmp(u->arg2,"minimal") == 0)
        {
          method = method_xdl_channel_min;
        }
      else if (strcmp(u->arg2,"summary") == 0)
        {
          if (gdata.restrictprivlist && !gdata.creditline && !irlist_size(&gdata.headline))
            {
              u_respond(u,"Summary Plist makes no sense with restrictprivlist set and no creditline or headline");
              return;
            }
          else
            {
              method = method_xdl_channel_sum;
            }
        }
      else
        {
          u_respond(u, "PLIST format is not (full|minimal|summary)");
          return;
        }
    }
  
  ch = NULL;
  backup = gnetwork;
  gnetwork = &(gdata.networks[net]);
  if (u->arg1[0] == '#')
    {
      ch = is_not_joined_channel(u, u->arg1);
      if (ch == NULL)
        {
           gnetwork = backup;
           return;
        }
    }
  
  bzero((char *)&manplist, sizeof(userinput));
  manplist.method = method;
  manplist.net = gnetwork->net;
  manplist.level = ADMIN_LEVEL_PUBLIC;
  a_fillwith_plist(&manplist, u->arg1, ch);
  u_parseit(&manplist);
  nname = gnetwork->name;
  gnetwork = backup;
  
  a_respond(u, "Sending PLIST with style %s to %s on network %s",
            u->arg2 ? u->arg2 : "full",
            u->arg1, nname);
  
}

static void u_status(const userinput * const u) {
   char *tempstr = mymalloc(maxtextlength);
   
   updatecontext();
   
   getstatusline(tempstr,maxtextlength);
   u_respond(u, "%s", tempstr); /* NOTRANSLATE */
   
   mydelete(tempstr);
   }

static void u_rehash(const userinput * const u) {
   
   /* other variables */
   char *templine = mymalloc(maxtextlength);
   unsigned int ss;
   xdcc *xd;
   
   updatecontext();
   
   if (u->method==method_out_all) u_respond(u,"Caught SIGUSR2, Rehashing...");
   
   gdata.r_transferminspeed = gdata.transferminspeed;
   gdata.r_transfermaxspeed = gdata.transfermaxspeed;
   a_rehash_prepare();
   
   if (gdata.logfd != FD_UNUSED)
     {
       close(gdata.logfd);
       gdata.logfd = FD_UNUSED;
     }
   
   config_reset();
   
   set_loginname();
   
   /* go */
   a_read_config_files(u);
   
   /* see what needs to be redone */
   
   u_respond(u,"Reconfiguring...");
   rehash_dinoex();
   a_rehash_needtojump(u);
   a_rehash_channels();
   a_rehash_jump();
   
   if (strcmp_null(gdata.pidfile, gdata.r_pidfile))
     {
       u_respond(u,"pidfile changed, switching");
       if (gdata.r_pidfile)
         {
           unlink(gdata.r_pidfile);
         }
       if (gdata.pidfile)
         {
           writepidfile(gdata.pidfile);
         }
     }
   a_rehash_cleanup(u);
   
   gdata.maxb = gdata.overallmaxspeed;
   if (gdata.overallmaxspeeddayspeed != gdata.overallmaxspeed) {
      struct tm *localt;
      localt = localtime(&gdata.curtime);

      if ((unsigned int)localt->tm_hour >= gdata.overallmaxspeeddaytimestart
          && (unsigned int)localt->tm_hour < gdata.overallmaxspeeddaytimeend
          && ( gdata.overallmaxspeeddaydays & (1 << (unsigned int)localt->tm_wday)) )
         gdata.maxb = gdata.overallmaxspeeddayspeed;
      }
   
   if ( gdata.r_transferminspeed != gdata.transferminspeed)
     {
       xd = irlist_get_head(&gdata.xdccs);
       while(xd)
         {
           if (xd->minspeed == gdata.r_transferminspeed)
             {             
               xd->minspeed = gdata.transferminspeed;
             }
           xd = irlist_get_next(xd);
         }
     }
   
   if ( gdata.r_transfermaxspeed != gdata.transfermaxspeed)
     {
       xd = irlist_get_head(&gdata.xdccs);
       while(xd)
         {
           if (xd->maxspeed == gdata.r_transfermaxspeed)
             {
               xd->maxspeed = gdata.transfermaxspeed;
             }
           xd = irlist_get_next(xd);
         }
     }
   
   /* check for completeness */
   u_respond(u,"Checking for completeness of config file ...");
   
   if ( gdata.config_nick == NULL )
     a_respond(u, "**WARNING** Missing vital information: %s, fix and re-rehash ASAP",
               "user_nick"); /* NOTRANSLATE */
   
   if ( gdata.user_realname == NULL )
     a_respond(u, "**WARNING** Missing vital information: %s, fix and re-rehash ASAP",
               "user_realname"); /* NOTRANSLATE */
   
   if ( gdata.user_modes == NULL )
     a_respond(u, "**WARNING** Missing vital information: %s, fix and re-rehash ASAP",
               "user_modes"); /* NOTRANSLATE */
   
   if ( gdata.slotsmax == 0 )
     a_respond(u, "**WARNING** Missing vital information: %s, fix and re-rehash ASAP",
               "slotsmax"); /* NOTRANSLATE */
   
   for (ss=0; ss<gdata.networks_online; ss++)
     {
       if ( !irlist_size(&gdata.networks[ss].servers) )
         a_respond(u, "**WARNING** Missing vital information: %s, fix and re-rehash ASAP",
                   "server"); /* NOTRANSLATE */

     }
   
   if ( irlist_size(&gdata.uploadhost) && ( gdata.uploaddir == NULL || strlen(gdata.uploaddir) < 2U ) )
      u_respond(u,"**WARNING** incomplete upload information, fix and re-rehash ASAP");
      
   if ( !irlist_size(&gdata.downloadhost) )
     {
       u_respond(u,"**WARNING** no download hosts defined");
     }
   
   if ( !gdata.statefile )
     {
       u_respond(u,"**WARNING** no state file defined");
     }
   
   u_respond(u,"Done.");
   
   reverify_restrictsend();
   
   start_sends();
   
   mydelete(templine);

   }

static void u_botinfo(const userinput * const u) {
   char *tempstr = mymalloc(maxtextlength);
   struct rusage r;
   size_t len;
   int ii;
   unsigned int ss;
   channel_t *ch;
   gnetwork_t *backup;

   updatecontext();
   
   u_respond(u,"BotInfo:");

   a_respond(u, "iroffer-dinoex"
             " " VERSIONLONG FEATURES ", " /* NOTRANSLATE */
             "https://iroffer.net/" 
             "%s%s", /* NOTRANSLATE */
             gdata.hideos ? "" : " - ", /* NOTRANSLATE */
             gdata.hideos ? "" : gdata.osstring);

   getuptime(tempstr, 0, gdata.startuptime, maxtextlength);
   u_respond(u,"iroffer started up %s ago",tempstr);

   getuptime(tempstr, 0, gdata.curtime-gdata.totaluptime, maxtextlength);
   u_respond(u,"total running time of %s",tempstr);

   getrusage(RUSAGE_SELF,&r);
   
   u_respond(u,"cpu usage: %2.2fs user (%2.5f%%), %2.2fs system (%2.5f%%)",
                  ((float)r.ru_utime.tv_sec+(((float)r.ru_utime.tv_usec)/1000000.0)),
            100.0*((float)r.ru_utime.tv_sec+(((float)r.ru_utime.tv_usec)/1000000.0))/((float)(max2(1,gdata.curtime-gdata.startuptime))),
                  ((float)r.ru_stime.tv_sec+(((float)r.ru_stime.tv_usec)/1000000.0)),
            100.0*((float)r.ru_stime.tv_sec+(((float)r.ru_stime.tv_usec)/1000000.0))/((float)(max2(1,gdata.curtime-gdata.startuptime)))
            );

   for (ss=0; ss<gdata.networks_online; ss++)
     {
       const char *how;
       char *msg;
       int nat;
       a_respond(u, "network: %u: %s", ss + 1, gdata.networks[ss].name);
       msg = mymalloc(maxtextlength);
       nat = my_dcc_ip_show(msg, maxtextlength - 1, ss);
       a_respond(u, "DCC IP: %s NAT=%u OFFLINE=%u", msg, nat, gdata.networks[ss].offline);
       mydelete(msg);
       
       backup = gnetwork;
       gnetwork = &(gdata.networks[ss]);
       a_respond(u, "configured nick: %s, actual nick: %s, realname: %s, modes: %s",
                 get_config_nick(),
                 get_user_nick(),
                 gdata.user_realname,
                 get_user_modes());
       gnetwork = backup;
       
       how = text_connectionmethod(gdata.networks[ss].connectionmethod.how);
       switch (gdata.networks[ss].connectionmethod.how)
         {
         case how_direct:
         case how_ssl:
             {
                a_respond(u, "current server: %s:%u (%s)",
                          gdata.networks[ss].curserver.hostname ? gdata.networks[ss].curserver.hostname : "<unknown>",
                          gdata.networks[ss].curserver.port, how);
             }
           break;
         case how_bnc:
           if (gdata.networks[ss].connectionmethod.vhost)
             {
               a_respond(u, "current server: %s:%u (%s at %s:%i with %s)",
                         gdata.networks[ss].curserver.hostname,
                         gdata.networks[ss].curserver.port, how,
                         gdata.networks[ss].connectionmethod.host,
                         gdata.networks[ss].connectionmethod.port,
                         gdata.networks[ss].connectionmethod.vhost);
             }
           else
             {
               a_respond(u, "current server: %s:%u (%s at %s:%i)",
                         gdata.networks[ss].curserver.hostname,
                         gdata.networks[ss].curserver.port, how,
                         gdata.networks[ss].connectionmethod.host,
                         gdata.networks[ss].connectionmethod.port);
             }
           break;
         case how_wingate:
         case how_custom:
           a_respond(u, "current server: %s:%u (%s at %s:%i)",
                     gdata.networks[ss].curserver.hostname,
                     gdata.networks[ss].curserver.port, how,
                     gdata.networks[ss].connectionmethod.host,
                     gdata.networks[ss].connectionmethod.port);
           break;
         }
       
       a_respond(u, "current server actual name: %s ",
                 gdata.networks[ss].curserveractualname ? gdata.networks[ss].curserveractualname : "<unknown>");
       if (gdata.networks[ss].serverstatus == SERVERSTATUS_CONNECTED)
         {
           getuptime(tempstr, 0, gdata.networks[ss].connecttime, maxtextlength - 1);
           a_respond(u, "current server connected for: %s ", tempstr);
         }
       
       ch = irlist_get_head(&gdata.networks[ss].channels);
       while(ch)
         {
           snprintf(tempstr, maxtextlength,
                    "channel %10s: joined: %3s",
                    ch->name,
                    ch->flags & CHAN_ONCHAN ? "for " : "no");
           len = strlen(tempstr);
           
           if (ch->flags & CHAN_ONCHAN )
             {
               getuptime(tempstr + len, 0, ch->lastjoin, maxtextlength - 1 - len);
               len = strlen(tempstr);
             }
           
           if (ch->key)
             {
               snprintf(tempstr + len, maxtextlength - len,
                        ", key: %s",
                        ch->key);
               len = strlen(tempstr);
             }
           
           if (ch->fish)
             {
               len += add_snprintf(tempstr + len, maxtextlength - len,
                               ", fish: %s",
                               ch->fish);
             }
           
           if (ch->plisttime)
             {
               snprintf(tempstr + len, maxtextlength - len,
                        ", plist every %2i min (%s)",
                        ch->plisttime,
                        text_pformat(ch->flags));
             }
           
           a_respond(u, "%s", tempstr); /* NOTRANSLATE */
           
           ch = irlist_get_next(ch);
         }
     }
   
   u_respond(u, "bandwidth: lowsend: %i, minspeed: %1.1f, maxspeed: %1.1f, overallmaxspeed: %i",
             gdata.lowbdwth,gdata.transferminspeed,gdata.transfermaxspeed,gdata.maxb/4);
   
   if (gdata.overallmaxspeed != gdata.overallmaxspeeddayspeed)
     {
       a_respond(u, "           default max: %i, day max: %i ( %i:00 -> %i:00, days=\"%s%s%s%s%s%s%s\" )",
                 gdata.overallmaxspeed/4,gdata.overallmaxspeeddayspeed/4,
                 gdata.overallmaxspeeddaytimestart, gdata.overallmaxspeeddaytimeend,
                 (gdata.overallmaxspeeddaydays & (1 << 1)) ? "M":"",
                 (gdata.overallmaxspeeddaydays & (1 << 2)) ? "T":"",
                 (gdata.overallmaxspeeddaydays & (1 << 3)) ? "W":"",
                 (gdata.overallmaxspeeddaydays & (1 << 4)) ? "R":"",
                 (gdata.overallmaxspeeddaydays & (1 << 5)) ? "F":"",
                 (gdata.overallmaxspeeddaydays & (1 << 6)) ? "S":"",
                 (gdata.overallmaxspeeddaydays & (1 << 0)) ? "U":"");
     }
   else
     {
       u_respond(u, "           default max: %i, day max: (same)",
                 gdata.overallmaxspeed/4);
     }
   
   for (ii=0; ii<NUMBER_TRANSFERLIMITS; ii++)
     {
       char *tempstr2 = mymalloc(maxtextlength);
       char *used;
       char *limit;
       
       user_getdatestr(tempstr2, gdata.transferlimits[ii].ends, maxtextlength);
       used = sizestr(0, gdata.transferlimits[ii].used);
       
       if (gdata.transferlimits[ii].limit)
         {
           limit = sizestr(0, gdata.transferlimits[ii].limit);
           u_respond(u, "transferlimit: %7s (ends %s): used %s, " "limit %s",
                     transferlimit_type_to_string(ii), tempstr2,
                     used, limit);
           mydelete(limit);
         }
       else
         {
           u_respond(u, "transferlimit: %7s (ends %s): used %s, " "unlimited",
                     transferlimit_type_to_string(ii), tempstr2 ,
                     used);
         }
       mydelete(used);
       mydelete(tempstr2);
     }
   
   u_respond(u, "files: pid: %s, log: %s, state: %s, xdcclist: %s",
             (gdata.pidfile?gdata.pidfile:"(none)"),
             (gdata.logfile?gdata.logfile:"(none)"),
             (gdata.statefile?gdata.statefile:"(none)"),
             (gdata.xdcclistfile?gdata.xdcclistfile:"(none)"));
   
   a_respond(u, "config %s: %s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s",
             gdata.configfile[1]?"files":"file",
             gdata.configfile[0],
             gdata.configfile[1]?", ":"",gdata.configfile[1]?gdata.configfile[1]:"",
             gdata.configfile[2]?", ":"",gdata.configfile[2]?gdata.configfile[2]:"",
             gdata.configfile[3]?", ":"",gdata.configfile[3]?gdata.configfile[3]:"",
             gdata.configfile[4]?", ":"",gdata.configfile[4]?gdata.configfile[4]:"",
             gdata.configfile[5]?", ":"",gdata.configfile[5]?gdata.configfile[5]:"",
             gdata.configfile[6]?", ":"",gdata.configfile[6]?gdata.configfile[6]:"",
             gdata.configfile[7]?", ":"",gdata.configfile[7]?gdata.configfile[7]:"",
             gdata.configfile[8]?", ":"",gdata.configfile[8]?gdata.configfile[8]:"",
             gdata.configfile[9]?", ":"",gdata.configfile[9]?gdata.configfile[9]:""
             );
   
   if (irlist_size(&gdata.uploadhost)) {
      snprintf(tempstr, maxtextlength,
               "%" LLPRINTFMT "dMB",
               (gdata.uploadmaxsize/1024/1024));
      u_respond(u, "upload allowed, dir: %s, max size: %s",
                gdata.uploaddir,
                gdata.uploadmaxsize?tempstr:"none");
      }
   
   if (gdata.md5build.xpack) {
      a_respond(u, "calculating MD5/CRC32 for pack %u",
                number_of_pack(gdata.md5build.xpack));
      }

   if (gdata.stdout_buffer_init)
     {
       u_respond(u,"console buffering: %u written, %u flushed, %u dropped (%u queued)",
                 gdata.stdout_buffer.count_written,
                 gdata.stdout_buffer.count_flushed,
                 gdata.stdout_buffer.count_dropped,
                 gdata.stdout_buffer.count_written - gdata.stdout_buffer.count_flushed);
     }
   
   u_respond(u,"transfer method: %s (blocksize %d)",
#if defined(HAVE_LINUX_SENDFILE)
             (gdata.transfermethod == TRANSFERMETHOD_LINUX_SENDFILE) ? "linux-sendfile" :
#endif
#if defined(HAVE_FREEBSD_SENDFILE)
             (gdata.transfermethod == TRANSFERMETHOD_FREEBSD_SENDFILE) ? "freebsd-sendfile" :
#endif
#if defined(HAVE_MMAP)
             (gdata.transfermethod == TRANSFERMETHOD_MMAP) ? "mmap/write" :
#endif
             (gdata.transfermethod == TRANSFERMETHOD_READ_WRITE) ? "read/write" : "unknown",
             BUFFERSIZE);
   
   if (gdata.delayedshutdown) {
      u_respond(u,"NOTICE: Delayed shutdown activated, iroffer will shutdown once there are no active transfers");
      u_respond(u,"NOTICE: To cancel the delayed shutdown, issue \"SHUTDOWN CANCEL\"");
      }
   if (gdata.holdqueue) {
      u_respond(u, "NOTICE: HOLDQUEUE is on, no new transfers are started.");
      }
   
   mydelete(tempstr);
   }


static void u_ignl(const userinput * const u)
{
  int first;
  int left, ago;
  igninfo *ignore;
  
  updatecontext();
  
  if (!irlist_size(&gdata.ignorelist))
    {
      u_respond(u,"No Hosts Ignored or Watched");
      return;
    }
  
  first = 1;
  ignore = irlist_get_head(&gdata.ignorelist);
  while(ignore)
    {
      if (ignore->flags & IGN_IGNORING)
        {
          if (first)
            {
              u_respond(u,"Current Ignore List:");
              u_respond(u,"  Last Request  Un-Ignore    Type  Hostmask");
              first = 0;
            }
          
          ago = gdata.curtime-ignore->lastcontact;
          left = gdata.autoignore_threshold*(ignore->bucket+1);
          
          u_respond(u,"  %4i%c%02i%c ago   %4i%c%02i%c  %6s  %-32s",
                    ago < 3600 ? ago/60 : ago/60/60 ,
                    ago < 3600 ? 'm' : 'h',
                    ago < 3600 ? ago%60 : (ago/60)%60 ,
                    ago < 3600 ? 's' : 'm',
                    left < 3600 ? left/60 : left/60/60 ,
                    left < 3600 ? 'm' : 'h',
                    left < 3600 ? left%60 : (left/60)%60 ,
                    left < 3600 ? 's' : 'm',
                    ignore->flags & IGN_MANUAL ? "manual" : "auto",
                    ignore->hostmask);
        }
      ignore = irlist_get_next(ignore);
    }

  first = 1;
  ignore = irlist_get_head(&gdata.ignorelist);
  while(ignore)
    {
      if (!(ignore->flags & IGN_IGNORING))
        {
          if (first)
            {
              u_respond(u,"Current Watch List:");
              u_respond(u,"  Last Request   Un-Watch          Hostmask");
              first = 0;
            }
          
          ago = gdata.curtime-ignore->lastcontact;
          left = gdata.autoignore_threshold*(ignore->bucket+1);
          
          u_respond(u,"  %4i%c%02i%c ago   %4i%c%02i%c          %-32s",
                    ago < 3600 ? ago/60 : ago/60/60 ,
                    ago < 3600 ? 'm' : 'h',
                    ago < 3600 ? ago%60 : (ago/60)%60 ,
                    ago < 3600 ? 's' : 'm',
                    left < 3600 ? left/60 : left/60/60 ,
                    left < 3600 ? 'm' : 'h',
                    left < 3600 ? left%60 : (left/60)%60 ,
                    left < 3600 ? 's' : 'm',
                    ignore->hostmask);
        }
      ignore = irlist_get_next(ignore);
    }

  return;
}

static void u_unignore(const userinput * const u)
{
  igninfo *ignore;
  
  updatecontext();
  
  if (!u->arg1)
    {
      u_respond(u,"Try specifying a hostmask to un-ignore");
      return;
    }
  
  ignore = irlist_get_head(&gdata.ignorelist);
  while(ignore)
    {
      if (strcasecmp(ignore->hostmask, u->arg1) == 0)
        {
          mydelete(ignore->hostmask);
          irlist_delete(&gdata.ignorelist, ignore);
          
          u_respond(u, "Ignore removed for %s",u->arg1);
          write_statefile();
          
          break;
        }
      else
        {
          ignore = irlist_get_next(ignore);
        }
    }
  
  if (!ignore)
    {
      u_respond(u,"Hostmask not found");
    }
  
  return;
}

static void u_msgread(const userinput * const u)
{
  unsigned int count;
  char *tempstr;
  msglog_t *ml;
  
  updatecontext();
  
  tempstr = mymalloc(maxtextlength);
   
  for (ml = irlist_get_head(&gdata.msglog); ml; ml = irlist_get_next(ml))
    {
      user_getdatestr(tempstr, ml->when, maxtextlength);
      
      u_respond(u, "%s: %s", tempstr, ml->hostmask); /* NOTRANSLATE */
      u_respond(u, " ^- %s", ml->message); /* NOTRANSLATE */
    }
  
  mydelete(tempstr);
  
  count = irlist_size(&gdata.msglog);
  a_respond(u, "msglog: %i %s in log%s%s",
            count,
            count != 1 ? "messages" : "message",
            count ? ", use MSGDEL to remove " : "",
            count > 1 ? "them" : (count == 1 ? "it" : ""));
  return;
}


static void u_msgdel(const userinput * const u)
{
  msglog_t *ml;
  
  updatecontext();
  
  a_respond(u, "msglog: deleted %u messages",
            irlist_size(&gdata.msglog));
  
  while ((ml = irlist_get_head(&gdata.msglog)))
    {
      mydelete(ml->hostmask);
      mydelete(ml->message);
      irlist_delete(&gdata.msglog, ml);
    }
  
  write_statefile();
  return;
}


static void u_memstat(const userinput * const u)
{
  unsigned int i;
  long numcountrecent, sizecount;
  struct rusage r;
#ifdef HAVE_MMAP
  xdcc *xd;
  unsigned int mmap_count;
#endif
  
  updatecontext();
  
  u_respond(u,"iroffer memory usage:");
  
  getrusage(RUSAGE_SELF,&r);
  
  u_respond(u,"rusage: maxrss %li, ixrss %li, idrss %li, "
            "isrss %li, minflt %li, majflt %li, nswap %li",
            r.ru_maxrss, r.ru_ixrss, r.ru_idrss,
            r.ru_isrss, r.ru_minflt, r.ru_majflt, r.ru_nswap);
  u_respond(u,"        inbloc %li, oublock %li, msgsnd %li, "
            "msgrcv %li, nsignals %li, nvcsw %li, nivcsw %li",
            r.ru_inblock, r.ru_oublock, r.ru_msgsnd,
            r.ru_msgrcv, r.ru_nsignals, r.ru_nvcsw, r.ru_nivcsw);
  
  a_respond(u, "gdata:  %ld bytes", (long)sizeof(gdata_t));
  
  numcountrecent = sizecount = 0;
  for (i=0; i<(MEMINFOHASHSIZE * gdata.meminfo_depth); i++)
    {
      if (gdata.meminfo[i].ptr != NULL)
        {
          sizecount += gdata.meminfo[i].size;
          if (gdata.meminfo[i].alloctime > gdata.curtime-600)
            {
              numcountrecent++;
            }
        }
    }
  
  u_respond(u, "heap:   %li bytes, %i allocations (%li created in past 10 min) (depth %d)",
            sizecount,
            gdata.meminfo_count,
            numcountrecent,
            gdata.meminfo_depth);
  
#ifdef HAVE_MMAP
  mmap_count = 0;
  for (xd = irlist_get_head(&gdata.xdccs); xd; xd = irlist_get_next(xd))
    {
      mmap_count += irlist_size(&xd->mmaps);
    }
  
  u_respond(u,"mmaps:  %i kbytes, %u file mappings",
            mmap_count * IR_MMAP_SIZE / 1024, mmap_count);
#endif
  
  if (u->arg1 && !strcmp(u->arg1,"list"))
    {
      meminfo_t *meminfo;
      meminfo_t *meminfo2 = NULL;
      unsigned int meminfo_depth;
      
      /*
       * we need to copy the entire table so we dont walk it
       * while it while it can be modified
       */
      meminfo_depth = gdata.meminfo_depth;
      meminfo = mycalloc(sizeof(meminfo_t) * MEMINFOHASHSIZE * meminfo_depth);
      memcpy(meminfo, gdata.meminfo,
             sizeof(meminfo_t) * MEMINFOHASHSIZE * meminfo_depth);
      
      u_respond(u,"iroffer heap details:");
      u_respond(u,"     id |    address |    size |     when | where");
      
      for (i=0; i<(MEMINFOHASHSIZE * meminfo_depth); i++)
        {
          if (meminfo[i].ptr != NULL)
            {
              a_respond(u, "%3u %3u | 0x%8.8lX | %6iB | %7" TTPRINTFMT "s | %s:%d %s()",
                        i / meminfo_depth,
                        i % meminfo_depth,
                        (long)meminfo[i].ptr,
                        meminfo[i].size,
                        meminfo[i].alloctime-gdata.startuptime,
                        meminfo[i].src_file,
                        meminfo[i].src_line,
                        meminfo[i].src_func);
            }
        }
      mydelete(meminfo);
      mydelete(meminfo2);
    }
  
#ifdef HAVE_MMAP
  if (u->arg1 && !strcmp(u->arg1,"list") && mmap_count)
    {
      int pack_count = 1;
      
      u_respond(u,"iroffer memmap details:");
      u_respond(u," pack |                 location |    address | references");
      
      for (xd = irlist_get_head(&gdata.xdccs); xd; xd = irlist_get_next(xd))
        {
          mmap_info_t *mm;
          
          irlist_sort2(&xd->mmaps, irlist_sort_cmpfunc_off_t);
          
          for (mm = irlist_get_head(&xd->mmaps); mm; mm = irlist_get_next(mm))
            {
              u_respond(u," %4i | 0x%8.8" LLPRINTFMT "X .. 0x%8.8" LLPRINTFMT "X | %p | %10d",
                        pack_count,
                        (ir_uint64)(mm->mmap_offset),
                        mm->mmap_offset + mm->mmap_size - 1,
                        mm->mmap_ptr,
                        mm->ref_count);
            }
          pack_count++;
        }
    }
#endif
  
  if (!u->arg1 || strcmp(u->arg1,"list"))
    {
      u_respond(u,"for a detailed listing use \"memstat list\"");
    }
}

static void u_shutdown(const userinput * const u) {
   updatecontext();
   
   if (u->arg1)
     {
       caps(u->arg1);
     }
   
   if (!u->arg1 || (strcmp(u->arg1, "NOW") && strcmp(u->arg1, "DELAYED") && strcmp(u->arg1, "CANCEL")) ) { /* NOTRANSLATE */
      u_respond(u,"Usage: SHUTDOWN <now|delayed|cancel>");
      return;
      }
   
   if (!strcmp(u->arg1, "NOW")) { /* NOTRANSLATE */
      gdata.needsshutdown = 1;
      }
   else if (!strcmp(u->arg1, "DELAYED")) { /* NOTRANSLATE */
      u_respond(u,"Delayed shutdown activated, iroffer will shutdown once there are no active transfers");
      u_respond(u,"To cancel the delayed shutdown, issue \"SHUTDOWN CANCEL\"");
      gdata.delayedshutdown=1;
      }
   else if (!strcmp(u->arg1, "CANCEL")) { /* NOTRANSLATE */
      u_respond(u,"Delayed shutdown canceled");
      gdata.delayedshutdown=0;
      }
   
   }

static void u_debug(const userinput * const u) {
   updatecontext();
   
   if (!u->arg1) return;
   
   gdata.debug = atoi(u->arg1);
   }

static void u_jump(const userinput * const u)
{
  gnetwork_t *backup;
  int net;
  
  updatecontext();
  
  net = get_network_msg(u, u->arg2);
  if (net < 0)
    return;

  if (u->arg1)
    {
      int num;
      num = atoi(u->arg1);
      
      if ((num < 0) || ((unsigned int)num > irlist_size(&gdata.networks[net].servers)))
        {
          u_respond(u,"Try specifying a valid server number, use \"servers\" for a list");
        }
      else
        {
          backup = gnetwork;
          gnetwork = &(gdata.networks[net]);
          gnetwork->serverconnectbackoff = 0;
          switchserver(num-1);
          gnetwork = backup;
        }
    }
  else
    {
      backup = gnetwork;
      gnetwork = &(gdata.networks[net]);
      gnetwork->serverconnectbackoff = 0;
      switchserver(-1);
      gnetwork = backup;
    }
}

static void u_servers(const userinput * const u)
{
  int i;
  server_t *ss;
  int net;
  
  updatecontext();
  
  net = get_network_msg(u, u->arg1);
  if (net < 0)
    return;
  
  u_respond(u,"Server List:");
  u_respond(u,"  Num  Server                         Port  Password");
  
  ss = irlist_get_head(&gdata.networks[net].servers);
  i = 1;
  while(ss)
    {
      u_respond(u,"  %3i  %-27s  %6u  %s",
                i,
                ss->hostname,
                ss->port,
                ss->password ? "(hidden)" : "(none)");
      ss = irlist_get_next(ss);
      i++;
    }
  
  u_respond(u,"Current Server: %s:%u (%s)",
            gdata.networks[net].curserver.hostname,
            gdata.networks[net].curserver.port,
            gdata.networks[net].curserveractualname ? gdata.networks[net].curserveractualname : "<unknown>");
  
}

static void u_trinfo(const userinput * const u)
{
  unsigned int num = 0;
  char *tempstr2, *tempstr3;
  const char *y;
  int left,started,lcontact;
  transfer *tr;
  
  updatecontext();
  
  if (u->arg1) num = atoi(u->arg1);
  
  tr = does_tr_id_exist(num);
  if (tr == NULL)
    {
      u_respond(u,"Try Specifying a Valid Transfer Number");
      return;
    }
  
  u_respond(u,"Transfer Info for ID %i:",num);
  
  y = t_print_state(tr);
  
  u_respond(u,"User %s, Hostname %s, Status %s",
            tr->nick,tr->hostname,y);
  
  u_respond(u,"File: %s",getfilename(tr->xpack->file));
  
  a_respond(u, "Start %" LLPRINTFMT "dK, Current %" LLPRINTFMT "dK, End %" LLPRINTFMT "dK (%2.0f%% File, %2.0f%% Xfer)",
            (tr->startresume/1024),
            (tr->bytessent/1024),
            (tr->xpack->st_size/1024),
            ((float)tr->bytessent)*100.0/((float)tr->xpack->st_size),
            ((float)(tr->bytessent-tr->startresume))*100.0/((float)max2(1,(tr->xpack->st_size-tr->startresume))));
  
  tempstr2 = mymalloc(maxtextlengthshort);
  tempstr3 = mymalloc(maxtextlengthshort);
  
  snprintf(tempstr2, maxtextlengthshort, "%1.1fK/s", tr->xpack->minspeed);
  snprintf(tempstr3, maxtextlengthshort, "%1.1fK/s", tr->maxspeed);
  
  a_respond(u, "Min %s, Current %1.1fK/s, Max %s, In Transit %" LLPRINTFMT "dK",
            (tr->nomin || (tr->xpack->minspeed == 0.0)) ? "no" : tempstr2 ,
            tr->lastspeed,
            (tr->nomax || (tr->maxspeed == 0.0)) ? "no" : tempstr3 ,
            (tr->bytessent-tr->lastack/1024));
  
  mydelete(tempstr2);
  mydelete(tempstr3);
  
  left     = min2(359999,(tr->xpack->st_size-tr->bytessent)/((int)(max2(tr->lastspeed,0.001)*1024)));
  started  = min2(359999, gdata.curtime-tr->con.connecttime);
  lcontact = min2(359999, gdata.curtime-tr->con.lastcontact);
  u_respond(u,"Transfer started %i%c %i%c ago, Finish in %i%c %i%c, Last contact %i%c %i%c ago.",
            started < 3600 ? started/60 : started/60/60 ,
            started < 3600 ? 'm' : 'h',
            started < 3600 ? started%60 : (started/60)%60 ,
            started < 3600 ? 's' : 'm',
            left < 3600 ? left/60 : left/60/60 ,
            left < 3600 ? 'm' : 'h',
            left < 3600 ? left%60 : (left/60)%60 ,
            left < 3600 ? 's' : 'm',
            lcontact < 3600 ? lcontact/60 : lcontact/60/60 ,
            lcontact < 3600 ? 'm' : 'h',
            lcontact < 3600 ? lcontact%60 : (lcontact/60)%60 ,
            lcontact < 3600 ? 's' : 'm');
  
  a_respond(u, "Local: %s, Remote: %s",
            tr->con.localaddr, tr->con.remoteaddr);
  
  u_respond(u,"Sockets: Listen %i, Transfer %i, File %i",
            (tr->con.listensocket == FD_UNUSED) ? 0 : tr->con.listensocket,
            (tr->con.clientsocket == FD_UNUSED) ? 0 : tr->con.clientsocket,
            (tr->xpack->file_fd == FD_UNUSED) ? 0 : tr->xpack->file_fd);
  
#ifdef HAVE_MMAP
  if (tr->mmap_info)
    {
      u_respond(u,"MMAP: [%p] 0x%.8" LLPRINTFMT "X .. 0x%.8" LLPRINTFMT "X .. 0x%.8" LLPRINTFMT "X",
                tr->mmap_info->mmap_ptr,
                (ir_uint64)(tr->mmap_info->mmap_offset),
                (ir_uint64)(tr->bytessent),
                (ir_uint64)(tr->mmap_info->mmap_offset + tr->mmap_info->mmap_size - 1));
    }
#endif
  
}


void u_listdir(const userinput * const u, const char *dir)
{
  DIR *d;
  struct dirent *f;
  char *thefile, *tempstr;
  irlist_t dirlist = EMPTY_IRLIST;
  int thedirlen;
  
  updatecontext();
  
  thedirlen = strlen(dir);
  
  d = opendir(dir);
  
  if (!d)
    {
      a_respond(u, "Can't Access Directory: %s %s", dir, strerror(errno));
      return;
    }
  
  while ((f = readdir(d)))
    {
      if (strcmp(f->d_name, ".") && strcmp(f->d_name, "..")) /* NOTRANSLATE */
        {
          irlist_add_string(&dirlist, f->d_name);
        }
    }
  
  closedir(d);
  
  irlist_sort2(&dirlist, irlist_sort_cmpfunc_string);
  
  if (!irlist_size(&dirlist))
    {
      u_respond(u,"Upload directory is empty");
    }
  else
    {
      a_respond(u, "Listing '%s':", dir);
      
      thefile = irlist_get_head(&dirlist);
      while (thefile)
        {
          struct stat st;
          size_t len = strlen(thefile);
          
          tempstr = mymalloc(len + thedirlen + 2);
          
          snprintf(tempstr, len + thedirlen + 2,
                   "%s/%s", dir, thefile);
          
          if (lstat(tempstr,&st) < 0)
            {
              u_respond(u,"cannot access '%s', ignoring: %s",
                        tempstr, strerror(errno));
            }
          else if (S_ISREG(st.st_mode))
            {
              char *sizestrstr;
              sizestrstr = sizestr(1, st.st_size);
              
              u_respond(u,"%9s  %s",
                        sizestrstr,
                        thefile);
              mydelete(sizestrstr);
            }
          else if (S_ISDIR (st.st_mode) ||
                   S_ISCHR (st.st_mode) ||
                   S_ISBLK (st.st_mode) ||
                   S_ISFIFO(st.st_mode) ||
                   S_ISLNK (st.st_mode) ||
                   S_ISSOCK(st.st_mode))
            {
              u_respond(u,"%9s  %s",
                        S_ISDIR (st.st_mode) ? "=DIR=" :
                        S_ISCHR (st.st_mode) ? "=CHAR=" :
                        S_ISBLK (st.st_mode) ? "=BLOCK=" :
                        S_ISFIFO(st.st_mode) ? "=FIFO=" :
                        S_ISLNK (st.st_mode) ? "=SYMLINK=" :
                        S_ISSOCK(st.st_mode) ? "=SOCKET=" :
                        "???",
                        thefile);
            }
          
          mydelete(tempstr);
          
          thefile = irlist_delete(&dirlist, thefile);
        }
    }
  u_diskinfo(u, dir);
  return;
  
}


void u_diskinfo(const userinput * const u, const char *dir)
{
#ifndef NO_STATVFS
  struct statvfs stf;
#else
#ifndef NO_STATFS
  struct statfs stf;
#endif
#endif
  
  updatecontext();
   
#ifndef NO_STATVFS
  if (statvfs(dir, &stf) < 0)
    {
      u_respond(u,"Unable to determine device sizes: %s",
                strerror(errno));
    }
  else
    {
      char *d_size, *d_used, *d_free, *d_resv;
      
      d_size = sizestr(0, (off_t)stf.f_blocks * (off_t)stf.f_frsize);
      d_used = sizestr(0, (off_t)(stf.f_blocks - stf.f_bavail) * (off_t)stf.f_frsize);
      d_free = sizestr(0, (off_t)stf.f_bavail * (off_t)stf.f_frsize);
      d_resv = sizestr(0, (off_t)(stf.f_bfree - stf.f_bavail) * (off_t)stf.f_frsize);
      
      u_respond(u,"Device size: %s, used %s, free %s, reserved %s",
                d_size, d_used, d_free, d_resv);
      
      mydelete(d_size);
      mydelete(d_used);
      mydelete(d_free);
      mydelete(d_resv);
    }
#else
#ifndef NO_STATFS
  if (statfs(dir, &stf) < 0)
    {
      u_respond(u,"Unable to determine device sizes: %s",
                strerror(errno));
    }
  else
    {
      char *d_size, *d_used, *d_free, *d_resv;
      
      d_size = sizestr(0, (off_t)stf.f_blocks * (off_t)stf.f_bsize);
      d_used = sizestr(0, (off_t)(stf.f_blocks - stf.f_bavail) * (off_t)stf.f_bsize);
      d_free = sizestr(0, (off_t)stf.f_bavail * (off_t)stf.f_bsize);
      d_resv = sizestr(0, (off_t)(stf.f_bfree - stf.f_bavail) * (off_t)stf.f_bsize);
      
      u_respond(u,"Device size: %s, used %s, free %s, reserved %s",
                d_size, d_used, d_free, d_resv);
      
      mydelete(d_size);
      mydelete(d_used);
      mydelete(d_free);
      mydelete(d_resv);
    }
#endif
#endif
  
  return;
  
}

static void
#ifdef __GNUC__
__attribute__ ((noreturn))
#endif
u_crash(const userinput * const UNUSED(u)) {
   
   updatecontext();
   
   abort();
   
}

#define USERS_PER_CHAN_LINE  6

static void u_chanl(const userinput * const u)
{
  int j;
  member_t *member;
  char *tempstr;
  channel_t *ch;
  int net;
  
  updatecontext();

  net = get_network_msg(u, u->arg1);
  if (net < 0)
    return;

  u_respond(u,"Channel Members:");
  
  tempstr = mymalloc(maxtextlength);
  ch = irlist_get_head(&gdata.networks[net].channels);
  while(ch)
    {
      j = 0;
      member = irlist_get_head(&ch->members);
      while(member)
        {
          if (!(j%USERS_PER_CHAN_LINE))
            {
              snprintf(tempstr, maxtextlength, "%s: ", ch->name); /* NOTRANSLATE */
            }
          snprintf(tempstr + strlen(tempstr),
                   maxtextlength - strlen(tempstr),
                   "%s%s ", member->prefixes, member->nick); /* NOTRANSLATE */
          if (!((j+1)%USERS_PER_CHAN_LINE))
            {
              u_respond(u, "%s", tempstr); /* NOTRANSLATE */
              tempstr[0] = '\0';
            }
          
          member = irlist_get_next(member);
          j++;
        }
      
      if (j%USERS_PER_CHAN_LINE)
        {
          u_respond(u, "%s", tempstr); /* NOTRANSLATE */
        }
      
      a_respond(u, "%s: %i %s", /* NOTRANSLATE */
                ch->name, j, j!=1 ? "users" : "user");
      
      ch = irlist_get_next(ch);
    }
  
  mydelete(tempstr);
  
}
/* End of File */
