hello2.c

/*
 * FILE:
 * hello2.c
 *
 * FUNCTION:
 * the second in a series of cgi-bin programming eamples.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "gnc-engine.h"
#include "io-gncxml.h"
#include "Query.h"

int
main (int argc, char *argv[])
{
    int fake_argc = 1;
    char * fake_argv[] = {"hello2", 0};
    QofBook *book;
    Account *root;
    Query *q, *qq;
    GList *split_list, *sl2, *node;
    Split *s;
    char *bufp;
    int i, ii, rc, sz;


    /* intitialize the engine */
    gnc_engine_init (fake_argc, fake_argv);

    /* contact the database, which is a flat file for this demo */
    book = qof_book_new ();

    rc = gnc_book_begin (book, "file:/tmp/demo.gnucash", FALSE);
    if (!rc)
    {
        int err = gnc_book_get_error (book);
        printf ("HTTP/1.1 500 Server Error\n");
        printf ("\n");
        printf ("%d %s\n", err, strerror (err));
        goto bookerrexit;
    }

    rc = gnc_book_load (book);
    if (!rc)
    {
        int err = gnc_book_get_error (book);
        printf ("HTTP/1.1 500 Server Error\n");
        printf ("\n");
        printf ("%d %s\n", err, strerror (err));
        goto bookerrexit;
    }

    /* the root pointer points to our local cache of the data */
    root = gnc_book_get_root_account (book);

    /* build a query */
    q = qof_query_create_for(GNC_ID_SPLIT);
    xaccQuerySetGroup (q, root);
    qof_query_set_max_results (q, 30);

    /* Get everything between some random dates */
    /* In real life, we would use a query as specified by the user */
    xaccQueryAddDateMatch (q, TRUE, 28, 2, 1982,
                           FALSE, 16, 10, 2010,
                           QOF_QUERY_OR);

    split_list = qof_query_run (q);

    /* count number of splits */
    i = 0;
    for (node = split_list; node; node = node->next)
    {
        s = node->data;
        i++;
    }

    gncxml_write_query_to_buf(q, &bufp, &sz);
    qq = gncxml_read_query (bufp, sz);
    qof_query_set_max_results (qq, 30);
    xaccQuerySetGroup (qq, root);
    sl2 = qof_query_run (qq);

    /* count number of splits */
    ii = 0;
    for (node = sl2; node; node = node->next)
    {
        s = node->data;
        ii++;
    }

    /* print the HTTP header */
    printf ("HTTP/1.1 200 OK\n");
    printf ("Content-Type: text/xml\n");
    printf ("Content-Length: %d\n", sz);
    printf ("\n");

    printf ("%s", bufp);

    printf (" its %d and %d \n", i, ii);

    free (bufp);
    qof_query_destroy (q);


bookerrexit:
    /* close the book */
    qof_book_destroy (book);

    /* shut down the engine */
    gnc_engine_shutdown ();

    return 0;
}