---

zsig-responses.vtc

/* -*- C -*-
 * zsig-responses.vtc: Automatic zsig responses
 * $Id$
 */

/* ----- Zsig responses ----- */

zsig_responses ?:= make_tree(.stricmp);

/* Stored zsig responses for classes and instances of class message. */
class_responses ?:= make_tree(.stricmp);
instance_responses ?:= make_tree(.stricmp);

func add_response(zsig, response)
{
  insert_tree(zsig_responses, zsig, response);
}

func Response(s) [p, zsig, response]
{
  p = strstr(s, "::");
  if (!p) return output("Can't find :: separator.\n");
  strcpy(zsig = "", s, p - s);
  while (*zsig && zsig[strlen(zsig) - 1] == ' ')
    zsig[strlen(zsig) - 1] = 0;
  response = skipspaces(p + 2);
  add_response(zsig, response);
}

func save_responses(fp)
{
  traverse_tree(zsig_responses, .save_responses_internal, fp);
}

func save_responses_internal(zsig, response, fp)
{
  fprintf(fp, "add_response(%s, %s);\n", stringconst(zsig),
          stringconst(response));
}
add_to_hook(save_hook, .save_responses);

func note_zsig_responses(z, sig) [sigresponse, t]
{
  /* If we have a response for this zsig, store it away for either the
   * class or instance of the zephyrgram. */
  sigresponse = find_tree(zsig_responses, sig);
  if (sigresponse && !z->personal)
  {
    t = table(sigresponse, time);
    if (stricmp(z->class, "message") == 0)
      insert_tree(instance_responses, z->instance, t);
    else
      insert_tree(class_responses, z->class, t);
  }
}

func get_zsig_response(class, instance) [t]
{
  if (class && *class && (stricmp(class,"message") != 0))
    t = find_tree(class_responses, class);
  else if (instance)
    t = find_tree(instance_responses, instance);
  if (t && time - t[1] <= 60)
    return t[0];
  return 0;
}


add_cmd("response", -1, .Response, "/response <zsig>::<response>");

---