#pragma no_shadow, no_inherit
#pragma strong_types,save_types,rtt_checks
#pragma pedantic,range_check,warn_deprecated
#pragma warn_empty_casts,warn_missing_return,warn_function_inconsistent

inherit "/std/secure_thing";

#include <properties.h>
#include <defines.h>

#define BARCHIV "/d/erzmagier/boing/balance/barchives"

#define BS(x) break_string(x,78,0,BS_LEAVE_MY_LFS)
#define BSI(x, y) break_string(x, 78, y, BS_LEAVE_MY_LFS|BS_INDENT_ONCE)

private varargs void print_map(mapping tmp,int cutoff);

protected void create()
{
  ::create();
  SetProp(P_NAME,"Balance-Tool");
  SetProp(P_AUTOLOADOBJ,1);
  SetProp(P_NODROP,1);
  SetProp(P_NEVERDROP,1);
  AddId(({"btool","balancetool","balance-tool"}));
  SetProp(P_SHORT,"Ein Balance-Tool light");
  SetProp(P_LONG,
    BS("Dies ist das Balance-Tool light. Es versteht folgende Befehle:")+
    BSI("btop <n>:\nZeigt den letzten genehmigten Antrag zu Top n.","- ")+
    BSI("bsuch [-s] <str>:\nSucht case-sensitiv nach str, -s bricht jeden "
    "Eintrag nach 78 Zeichen ab. str darf eine RegExp sein.", "- ")+
    BSI("binhalt [-s] [uid]:\nZeigt den gesamten Inhalt des Balancearchives, "
    "-s bricht jeden Eintrag nach 78 Zeichen ab, uid filtert auf "
    "_vollstaendige_ uids.", "- ")+"\n"+
    BS("Es kann vorkommen, dass Eintraege der falschen UID zugeordnet sind, "
    "oder dass die Genehmigung nicht sehr aussagekraeftig ist, in diesem "
    "Fall bitte eine Mail an das Balanceteam schreiben."));
  AddCmd("btop",
    function int(string str)
    {
      int n;
      if(!str || sscanf(str,"%d",n)!=1)
      {
        notify_fail(
          BS("Syntax: btop <n>"));
        return 0;
      }
      this_interactive()->More(
        BS(BARCHIV->GetLightAnnounce(n)));
      return 1;
    });
  AddCmd("bsuch",
    function int()
    {
      string str=this_interactive()->_unparsed_args();
      if(!str || !sizeof(str))
      {
        notify_fail(
          BS("Syntax: bsuch [-s] <str>"));
        return 0;
      }
      int cutoff;
      string* arr=old_explode(str," ");

      if(arr[0]=="-s")
      {
        cutoff=1;
        if (sizeof(arr)>=2)
        {
          str=implode(arr[1..]," ");
        }
        else
        {
          this_interactive()->ReceiveMsg(
            "Kein Suchmuster angegeben.",
            MT_NOTIFICATION);
          return 1;
        }
      }
      mapping tmp=BARCHIV->SearchIndex(str);
      if(!sizeof(tmp))
      {
        this_interactive()->ReceiveMsg(
          "Keine Eintraege gefunden.",
          MT_NOTIFICATION);
      }
      else
      {
        print_map(tmp,cutoff);
      }
      return 1;
    });
  AddCmd("binhalt",
    function int(string str)
    {
      int cutoff;
      string check;
      
      mapping tmp=BARCHIV->GetIndexForWizards();
      if(sizeof(str))
      {
        string* arr=old_explode(str," ");
      
        if(arr[0]=="-s")
        {
          cutoff=1;
          if(sizeof(arr)>=2)
          {
            check=arr[1];
          }
        }
        else
        {
          check=arr[0];
        }
        
        if(sizeof(check))
        {
          tmp=filter(tmp,
            function int(int key, <int|string>* values)
            {
              return values[2]==check;
            });
        }
      }

      print_map(tmp,cutoff);
      return 1;
    });
}

#define B_SUBJECT 0
#define B_TIME 1
#define B_UID 2

private varargs void print_map(mapping tmp, int cutoff)
{
	if (!mappingp(tmp) || !sizeof(tmp))
	{
		this_interactive()->ReceiveMsg("Keine Daten vorhanden.\n");
		return;
	}

  string ret = "";
  string topic;

  // Kein automatisch ausgehandelter Wert vorhanden? Dann Default setzen.
  int cols = (PL->QueryProp(P_TTY_COLS) || 78);
  // War ein Wert gesetzt, aber < 35 (was der Mindestwert bei Auto-
  // Negotiation ist), dann auf 35 begrenzen.
  cols = max(cols, 35);

  // Auf die fuers Subject verfuegbare Breite kuerzen: 7 Zeichen fuer die
  // BTOP-Nummer abziehen und ein bisschen was als Puffer am rechten Rand
  // des Terminals. Erfahrungsgemaess melden Clients oft mehr Zeichen als
  // Terminbreite als sie darstellen, so dass wir das hier kompensieren
  // muessen.
  cols -= 10;

  foreach(int i : sort_array(m_indices(tmp),#'>))
  {
    topic = sprintf("%s {%s} (%s)",
      regreplace(tmp[i,B_SUBJECT], " \\[angenommen\\]", "", 1),
      tmp[i,B_UID],
      strftime("%d.%m.%Y", tmp[i,B_TIME]));
    if (cutoff)
      ret += sprintf(" %4d: %-.*s\n", i, cols, topic);
    else
      ret += sprintf(" %4d: %=-*s\n", i, cols, topic);
  }
  this_interactive()->More(ret);
}