/*****************************************************************************
 *
 * FILE:	checkbox.c
 * DESCRIPTION:	operate parameters
 * DATE:	Fri, Apr  5 2002
 * UPDATE:	Sun, Aug 19 2007
 * AUTHOR:	Kouichi ABE (WALL) / °¤Éô¹¯°ì
 * E-MAIL:	kouichi@MysticWALL.COM
 * URL:		http://www.MysticWALL.COM/
 * COPYRIGHT:	(c) 2002-2007 °¤Éô¹¯°ì¡¿Kouichi ABE (WALL), All rights reserved.
 * COMPILE:	gcc -export-dynamic checkbox.c -o checkbox.cgi
 *		-I/usr/local/include -L/usr/local/lib
 *		-lcockatrice -lcatoblepas -lwkf -lmd
 * $Id: checkbox.c,v 1.2 2007/08/19 16:50:38 kouichi Exp $
 *
 *****************************************************************************/

#include <stdio.h>
#include <string.h>
#include <cockatrice.h>
#include <catoblepas.h>

void	view(CGI *);

void
view(cgi)
	register CGI *	cgi;
{
  HTML *	html;

  cgi->header("text/html");

  html = newHTML401(HTML4);
  if (html) {
    register VList *	vp;

    html->html.attr.lang = "ja";
    html->head.begin();
    html->title("It's a show time!");
    html->head.end();
    html->body.begin();
    html->H1("Fruits");
    html->p.begin();
    for (vp = cgi->params("fruits"); vp != NULL; vp = vp->next) {
      html->print(vp->value);
      html->BR;
    }
    html->p.end();
    html->body.end();
    html->html.end();
    html->done();
  }
}

int
main(argc, argv)
	int	argc;
	char	**argv;
{
  CGI *	cgi;

  cgi = newCGI(CC_MODULE_STANDARD);
  if (cgi == NULL) {
    fprintf(stderr, "Error: %d\n", cgi_errno);
    return -1;
  }
  view(cgi);
  cgi->done();

  return 0;
}