// Copyright (C) 1999,2000 Bruce Guenter <bruceg@em.ca>

//

// 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

#include <config.h>

#include <stdlib.h>

#include "cgi/cgi-base.h"

#include "misc/server.h"

#include "vpwentry/vpwentry.h"

#include "fdbuf/fdbuf.h"

static mystring domain;

static mystring userlink;

static mystring cell_pre;

static mystring cell_post;

static mystring p_pre;

static mystring table_align;

mystring do_subst(mystring link, const mystring& ref)

{

  int pos;

  int start = 0;

  unsigned advance = ref.length();

  while((pos = link.find_first('%', start)) >= 0) {

    link = link.left(pos) + ref + link.right(pos+1);

    start = pos + advance;

  }

  return link;

}

struct user

{

  mystring name;

  mystring code;

  user* next;

  user(const mystring& n, const mystring& c);

};

user::user(const mystring& n, const mystring& c)

  : name(n), code(c), next(0)

{

}

void show_user(const user* user)

{

  vpwentry vpw;

  vpw.from_record(user->name, user->code);

  mystring link;

  mystring elink;

  if(!!userlink) {

    link = "<a href=\"" + do_subst(userlink, vpw.name) + "\">";

    elink = "</a>";

  }

  fout << "<tr>"

       << cell_pre << link << vpw.name << elink << cell_post

       << cell_pre << vpw.mailbox << cell_post;

  for(mystring_iter iter = vpw.forwards; iter; ++iter)

    fout << cell_pre << *iter << cell_post;

  fout << "</tr>\n";

}

mystring load_users(int fd, unsigned& count, user**& array)

{

  user* tail = 0;

  user* head = 0;

  for(count = 0; ; count++) {

    response r(response::read(fd));

    if(!r)

      return r.message();

    if(!r.msg)

      break;

    mystring name(r.msg.c_str());

    mystring code(r.msg.c_str() + name.length()+1,

		  r.msg.length() - name.length()-1);

    user* node = new user(name, code);

    if(!head)

      head = node;

    else

      tail->next = node;

    tail = node;

  }

  if(count) {

    array = new user*[count];

    unsigned i = 0;

    for(user* node = head; node; node = node->next)

      array[i++] = node;

  }

  return "";

}

static int user_cmp(const void* ptra, const void* ptrb)

{

  const user* a = *(const user**)ptra;

  const user* b = *(const user**)ptrb;

  int res = a->name != b->name;

  return res;

}

void show_domain(int fd)

{

  unsigned count = 0;

  user** users;

  mystring msg = load_users(fd, count, users);

  if(count == 0) {

    fout << p_pre << "This domain contains no users.</p>\n";

    return;

  }

  if(!!msg) {

    fout << p_pre << "<samp>" << msg << "</samp></p>\n";

    return;

  }

  qsort(users, count, sizeof users[0], user_cmp);

  fout << p_pre << "This domain contains " << count << " users:</p>\n";

  fout << "<table border=1 align=\"" << table_align << "\">\n"

    "<tr><td><u>Username</u></td>"

    "<td><u>Mailbox</u></td>"

    "<td><u>Forwards</u></td></tr>\n";

  for(unsigned i = 0; i < count; i++)

    show_user(users[i]);

  fout << "</table>\n";

}

void setup_format(const CGIArgs& args)

{

  p_pre = "<p align=\"" + args.get("p-align", "left") + "\">";

  cell_pre = args["cell-pre"];

  cell_post = args["cell-post"];

  cell_pre = "<td align=\"" + args.get("cell-align", "left") + "\">"

    + cell_pre;

  cell_post = cell_post + "</td>";

  userlink = args["userlink"];

  table_align = args.get("table-align", "left");

}

CGI_MAIN 

{

  mystring body_flags = args["body-flags"];

  mystring title_pre = args.get("title-pre", "<h1>");

  mystring title_post = args.get("title-post", "</h1>");

  setup_format(args);

  domain = vdomain;

  server_call call("listdomain", vdomain, password);

  response resp = call.call();

  if(!resp)

    error(resp.msg);

  else {

    content_type("text/html");

    fout << "<html>"

      "<head>"

      "<title>Listing of Virtual Domain '" << vdomain << "'</title>"

      "</head>\n"

      "<body " << body_flags << ">\n" <<

      p_pre << title_pre << "Listing of Virtual Domain "

      "'" << vdomain << "'" << title_post << "</p>"

      "<hr>\n";

    show_domain(call.socket());

    const mystring referer = getenv("HTTP_REFERER");

    if(!!referer)

      fout << p_pre << "<a href=\"" << referer << "\">Back</a></p>\n";

    fout << "</body>\n"

      "</html>\n";

  }

}