/*
 * Copyright (C) 2000,2001  Florian Sander
 *
 * 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.
 */

static int tcl_incrstats STDVAR
{
  int set, type;

  Context;
  BADARGS(5, 6, " user chan type value ?set?");
  if (argc == 6)
    set = atoi(argv[5]);
  else
    set = 0;
  type = typetoi(argv[3]);
  if (type == -3) {
    Tcl_AppendResult(irp, "invalid type", NULL);
    return TCL_ERROR;
  }
  incrstats(argv[1], argv[2], type, atoi(argv[4]), set);
  Context;
  return TCL_OK;
}

static int tcl_getstats STDVAR
{
  char s[30];
  int today = 0;

  Context;
  BADARGS(4, 5, " user chan type ?today?");
  if (typetoi(argv[3]) < 0) {
    Tcl_AppendResult(irp, "invalid type", NULL);
    return TCL_ERROR;
  }
  if (argc == 5)
    today = atoi(argv[4]);
  if ((today != 1) && (today != 0)) {
    Tcl_AppendResult(irp, "invalid today parameter. Must be 0 or 1.", NULL);
    return TCL_ERROR;
  }
  sprintf(s, "%d", getstats(argv[1], argv[2], argv[3], today));
  Tcl_AppendResult(irp, s, NULL);
  Context;
  return TCL_OK;
}

static int tcl_livestats STDVAR
{
  int port;

  Context;
  BADARGS(2, 2, " port");
  if (!strcasecmp(argv[1], "off") || !strcasecmp(argv[1], "0")) {
    stop_httpd();
    return TCL_OK;
  }
  port = atoi(argv[1]);
  if (port < 1) {
    Tcl_AppendResult(irp, "invalid port", NULL);
    return TCL_ERROR;
  }
  start_httpd(port);
  return TCL_OK;
}

static int tcl_resetuser STDVAR
{
  char *user, *chan;
  locstats *ls;

  Context;
  BADARGS(3, 3, " user channel");
  user = argv[1];
  chan = argv[2];
  ls = findlocstats(chan, user);
  if (!ls) {
    Tcl_AppendResult(irp, "couldn't find stats for user", NULL);
    return TCL_ERROR;
  }
  resetlocstats(ls);
  return TCL_OK;
}

static int tcl_resetslang STDVAR
{
  Context;
  slang_free(coreslangs);
  coreslangs = NULL;
  return TCL_OK;
}

static int tcl_getslang STDVAR
{
  Context;
  BADARGS(2, 2, " ID");
  Tcl_AppendResult(irp, getslang(atoi(argv[1])), NULL);
  return TCL_OK;
}

static int tcl_nick2suser STDVAR
{
  struct stats_member *m;

  Context;
  BADARGS(3, 3, " nick channel");
  m = getschanmember(argv[1], argv[2]);
  if (m && m->user)
    Tcl_AppendResult(irp, m->user->user, NULL);
  else
    Tcl_AppendResult(irp, "*", NULL);
  return TCL_OK;
}

static int tcl_findsuser STDVAR
{
  struct stats_userlist *u;
  struct userrec *ou;

  Context;
  BADARGS(2, 2, " nick!user@host");
  ou = get_user_by_host(argv[1]);
  if (ou)
	Tcl_AppendResult(irp, ou->handle, NULL);
  else {
    u = findsuser(argv[1]);
    if (u)
      Tcl_AppendResult(irp, u->user, NULL);
    else
      Tcl_AppendResult(irp, "*", NULL);
  }
  return TCL_OK;
}

static int tcl_loadstatsskin STDVAR
{
//  char *name, *file, *skin, *lang;

  Context;
  BADARGS(2, 2, " skinfile");
  if (!loadskin(argv[1])) {
    Tcl_AppendResult(irp, "Couldn't load skin!!!", NULL);
    return TCL_ERROR;
  } else {
    return TCL_OK;
  }
}

static int tcl_setchanslang STDVAR
{
  Context;
  BADARGS(3, 3, " channel language");
  chanlangs = slang_chanlang_add(chanlangs, argv[1], argv[2]);
  return TCL_OK;
}

static int tcl_loadstatslang STDVAR
{
//  int ret = 0;
  char *shortname, *longname, *filename;
  struct slang_header *slang;

  Context;
  BADARGS(4, 4, " language description langfile");
  shortname = argv[1];
  longname = argv[2];
  filename = argv[3];
  coreslangs = slang_create(coreslangs, shortname, longname);
  slang = slang_find(coreslangs, shortname);
  Assert(slang);
  if (!slang_load(slang, filename)) {
    Tcl_AppendResult(irp, "Couldn't open slang file!!!", NULL);
    return TCL_ERROR;
  }
  return TCL_OK;
}

static int tcl_schattr STDVAR
{
  struct stats_userlist *u;
  int i;
  char s[30];

  BADARGS(3, 99, " user [+/-list] [+/-addhosts] ...");
  u = findsuser_by_name(argv[1]);
  if (!u) {
    Tcl_AppendResult(irp, "Unknown user.", NULL);
    return TCL_ERROR;
  }
  for (i = 2; i < argc; i++) {
    if (!user_changeflag(u, argv[i])) {
      snprintf(s, sizeof(s), "Unknown flag: %s", argv[i]);
      Tcl_AppendResult(irp, s, NULL);
      return TCL_ERROR;
    }
  }
  return TCL_OK;
}

static int tcl_activeusers STDVAR
{
	globstats *gs;
	locstats *ls;

	BADARGS(1, 2, " [channel]");
	for (gs = sdata; gs; gs = gs->next)
	{
		if (argc == 2)
			if (!rfc_casecmp(argv[1], gs->chan))
				continue;
		for (ls = gs->local; ls; ls = ls->next)
		{
			if (ls->values[S_TOTAL][T_WORDS] < 1)
				continue;
			Tcl_AppendElement(irp, ls->user);
		}
	}
	return TCL_OK;
}

static tcl_cmds mytcls[] =
{
  {"incrstats", tcl_incrstats},
  {"getstats", tcl_getstats},
  {"livestats", tcl_livestats},
  {"resetuser", tcl_resetuser},
  {"nick2suser", tcl_nick2suser},
  {"resetslang", tcl_resetslang},
  {"getslang", tcl_getslang},
  {"setchanslang", tcl_setchanslang},
  {"findsuser", tcl_findsuser},
  {"loadstatsskin", tcl_loadstatsskin},
  {"loadstatslang", tcl_loadstatslang},
  {"schattr", tcl_schattr},
  {"activeusers", tcl_activeusers},
  {0, 0}
};