wiki.c

/* Rendering of InterWiki links. */
/*
    The syntax is: <wiki>wiki:page</wiki>
    Example: <wiki>WikiPedia:Starlost</wiki>
*/
#include <ctype.h>

#include <apr.h>
#include <apr_strings.h>
#include <httpd.h>

#include <libxml/tree.h>

#include "private.h"
#include "buffer.h"
#include "db.h"
#include "req.h"
#include "xml_util.h"
#include "wiki.h"

/* Note: the intermap file lives at http://usemod.com/intermap.txt
   and should be installed in the database under data/intermap.txt */
static const char *
wiki_get_intermap (VirguleReq *vr)
{
  const char *result;
  int intermap_size;

  result = apr_table_get (vr->render_data, "wiki_intermap");
  if (result != NULL)
    return result;

  result = virgule_db_get (vr->db, "data/intermap.txt", &intermap_size);
  if (result == NULL)
    result = "";

  apr_table_set (vr->render_data, "wiki_intermap", result);

  return result;
}

static char *
wiki_lookup_intermap (VirguleReq *vr, const char *wikiname)
{
  apr_pool_t *p = vr->r->pool;
  const char *intermap = wiki_get_intermap (vr);
  int i, j;
  int end;
  int next;
  char *result;

  for (i = 0; intermap[i]; i = next)
    {
      for (end = i; intermap[end] && intermap[end] != '\n'; end++);
      next = end;
      if (intermap[next] == '\n') next++;
      for (j = 0; wikiname[j] && i + j < end; j++)
	if (wikiname[j] != intermap[i + j])
	  break;
      if (!wikiname[j] && i + j < end && intermap[i + j] == ' ')
	{
	  int val_ix = i + j + 1;
	  result = apr_palloc (p, end - val_ix + 1);
	  memcpy (result, intermap + val_ix, end - val_ix);
	  result[end - val_ix] = '\0';
	  return result;
	}
    }
  return NULL;
}


void
virgule_wiki_link (VirguleReq *vr, xmlNode *n)
{
    apr_pool_t *p = vr->r->pool;
    char *link = virgule_xml_get_string_contents (n);
    int i;
    char c;
    int colon = -1;
    const char *tail;
    char *wikiname;
    char *wiki_loc;
    char *tmp;

    if (link == NULL)
	return;
    
    for (i = 0; (c = link[i]) != 0; i++)
    {
	if (c == ':' && colon == -1)
	    colon = i;
	else if (!isalnum (c) && c != ':' && c != '/' &&
	    c != '.' && c != '?' && c != '=')
	return;
    }

    tail = link + colon + 1;
    if (colon < 0)
        wikiname = "Wiki";
    else
    {
        wikiname = apr_palloc (p, colon + 1);
        memcpy (wikiname, link, colon);
        wikiname[colon] = '\0';
    }
    wiki_loc = wiki_lookup_intermap (vr, wikiname);
    xmlNodeSetName (n, (xmlChar *)"a");

    if (wiki_loc == NULL)
    {    
        xmlSetProp (n, (xmlChar *)"href",(xmlChar *)"http://usemod.com/intermap.txt");
        tmp = apr_psprintf (p, "unkown Wiki:%s", tail);
        xmlNodeSetContent (n, (xmlChar *)tmp);
    }
    else
    {
        tmp =  apr_psprintf (p, "%s%s", wiki_loc, tail);
        xmlSetProp (n, (xmlChar *)"href",(xmlChar *)tmp);
    }
}