Misc updates

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3438 57a11ea4-9604-0410-9ed3-97b8803252fd

src/experimental/cgi-bin/Makefile.am

@@ -1,7 +1,7 @@
 # cgi-bin Makefile.am file.
 
 
-bin_PROGRAMS = hello hello2 fastcgi-hello gnc-server
+bin_PROGRAMS = hello hello2 fastcgi-hello hello3 gnc-server
 
 CFLAGS = @CFLAGS@ ${GLIB_CFLAGS} 
 
@@ -17,6 +17,9 @@ hello_SOURCES = \
 hello2_SOURCES = \
   hello2.c
 
+hello3_SOURCES = \
+  hello3.c
+
 fastcgi_hello_SOURCES = \
   fastcgi-hello.c
 

src/experimental/cgi-bin/gnc-server.c

@@ -66,7 +66,7 @@ main (int argc, char *argv[])
          gncxml_write_group_to_buf(grp, &bufp, &sz);
 
          /* print the HTTP header */
-         printf("Content-type: text/html\r\n"
+         printf("Content-type: text/gnc-xml\r\n"
                 "Content-Length: %d\r\n"
                "\r\n", sz);
    

src/experimental/cgi-bin/hello3.c

@@ -0,0 +1,137 @@
+/*
+ * FILE:
+ * hello3.c
+ *
+ * FUNCTION:
+ * experimental gnucash server
+ * written as a demo, not real code.
+ * this file is here mostly as a simple intro to what 
+ * the server is doing.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "gnc-book.h"
+#include "gnc-engine.h"
+#include "Group.h"
+#include "io-gncxml.h"
+ 
+#include "fcgi_stdio.h"
+
+
+int
+main (int argc, char *argv[]) 
+{
+   int err, fake_argc =1;
+   char * fake_argv[] = {"hello", 0};
+   GNCBook *book;
+   AccountGroup *grp;
+   char *bufp;
+   int rc, sz;
+   
+   /* intitialize the engine */
+   gnc_engine_init (fake_argc, fake_argv);
+
+   /* contact the database, which is a flat file for this demo */
+   book = gnc_book_new ();
+
+   rc = gnc_book_begin (book, "file:/tmp/demo.xac", FALSE);
+   if (!rc) goto bookerrexit;
+
+   rc = gnc_book_load (book);
+   if (!rc) goto bookerrexit;
+
+   /* the grp pointer points to our local cache of the data */
+   grp = gnc_book_get_group (book);
+   
+   /* --------------------------------------------------- */
+   /* done with initialization, go into event loop */
+
+   while(FCGI_Accept() >= 0) 
+   {
+      GList *split_list;
+      Query *q = NULL;
+      char *request_method;
+      int read_len=0;
+
+      /* get the request method */
+      request_method = getenv ("REQUEST_METHOD");
+
+      /* Lets pretend that method=get means user has logged 
+       * in.  Send the user the accounts and currencies, 
+       * but not the transactions/splits. */
+      if (!strcmp ("GET", request_method))
+      {
+         gncxml_write_group_to_buf(grp, &bufp, &sz);
+
+         /* print the HTTP header */
+         printf("Content-type: text/gnc-xml\r\n"
+                "Content-Length: %d\r\n"
+               "\r\n", sz);
+   
+         /* send the xml to the client */
+         printf ("%s", bufp);
+         free (bufp);
+
+         /* wait for the next request */
+         continue;
+      }
+
+
+      if (!strcmp ("POST", request_method)) 
+      {
+         char * content_length = getenv("CONTENT_LENGTH");
+         read_len = atoi (content_length);
+
+         /* read 'read_len' bytes from stdin ... */
+         bufp = (char *) malloc (read_len);
+         fread (bufp, read_len, 1, stdin);
+
+         /* conver the xml input into a gnucash query structure... */
+         q = gncxml_read_query (bufp, read_len);
+         xaccQuerySetGroup (q, grp);
+
+         /* hack -- limit to 30 splits ... */
+         xaccQuerySetMaxSplits (q, 30);
+         split_list = xaccQueryGetSplits (q);
+
+         xaccFreeQuery (q);
+
+         /* wait for the next request */
+         continue;
+      }
+
+      /* if we got to here, an error -- unknown method */
+      printf("Content-type: text/plain\r\n"
+             "\r\n"
+             "unknown request type \n");
+   
+
+   }
+
+bookerrexit:
+
+   err = gnc_book_get_error (book);
+
+   /* 500 Server Error */
+   FCGI_SetExitStatus (500);
+
+   printf("Content-type: text/plain\r\n\r\n"
+          "error was %s\n", strerror (err));
+
+   FCGI_Finish();
+
+   /* close the book */
+   gnc_book_destroy (book);
+
+   /* shut down the engine */
+   gnc_engine_shutdown ();
+
+   sleep (1);
+
+   return 0;
+}
+