plot.c

Go to the documentation of this file.

/******************************************************************************/
/* cgi_plot.c © Copyright 2004 by Raosoft Inc. All Rights Reserved.           */
/*                                                                            */
/* You may use and modify this file for your own use, but may not distribute  */
/* it or derivative works without the prior written consent of Raosoft, Inc.  */
/*                                                                            */
/* If you choose to share your modifications with Raosoft, Inc. the company   */
/* will attempt to incorporate them into future versions of this file.        */
/*                                                                            */
/* This software is provided "as is," and Raosoft makes no warranty, express  */
/* or implied, of fitness for a particular application. Every measure has been*/
/* taken to anticipate risks inherent to computer networks, but we cannot     */
/* guarantee safety or reliability of this program in every situation.        */
/*                                                                            */
/******************************************************************************/

#include "cgi.h"

#include "math.h"

void Instructions(STREAM htmlout,CGINameValue*Params,int pw)
{
    HTMLWrite(htmlout,"<form method=post>\n");
    HTMLWrite(htmlout,"Database: <input name=DATABASE value=\"");
   HTMLWrite(htmlout,GetFieldValue(Params,"DATABASE"));
   HTMLWrite(htmlout,"\">\n");
    HTMLWrite(htmlout,"<br>Plot names: <input name=PLOT value=\"");
   HTMLWrite(htmlout,GetFieldValue(Params,"PLOT"));
   HTMLWrite(htmlout,"\">\n");
    HTMLWrite(htmlout,"<br>Password: <input name=_PASSWORD value=\"\">\n");
    //if (pw) HTMLWrite(htmlout,GetFieldValue(Params,"_PASSWORD"));
    HTMLWrite(htmlout,"<br>Query: <input name=QUERY value=\"");
   HTMLWrite(htmlout,GetFieldValue(Params,"QUERY"));
   HTMLWrite(htmlout,"\">\n");
    HTMLWrite(htmlout,"<br>Crosstabs: <input name=CROSSTAB value=\"");
   HTMLWrite(htmlout,GetFieldValue(Params,"CROSSTAB"));
   HTMLWrite(htmlout,"\">\n");
   HTMLWrite(htmlout,"<br><input type=submit>\n");

    HTMLWrite(htmlout,"</form>\n\n");
}

/* borrowed from cgi_ezs.c */
int CalcCountSummary(CGINameValue* Params,char* fieldname)
{
     CGINameValue* start;
     start = GetField(Params,fieldname);

     /* Q1 or Q1_A */
     if (start)
      if (start->value)
       return *start->value ? 1 : 0;

     if (strchr(fieldname,'_')) /* is that specific answer set? Q1_1 or Q1=1&Q1=2 */
      {
       char* name = strdup(fieldname);
       char* code = strchr(name,'_');
       size_t l;
       *code=0;
       l = strlen(name);
       start = GetField(Params,name);
       if (!start) {CGIFREE(name); return 0; } /* no answers to this question */
       while (start->name) /* related field values are adjacent */
        {
         if (strncmp(start->name,name,l))
          break;

         if (start->value)
          if ((start->name[l] == '_' || start->name[l] == 0) && *start->value)
           if (HasToken(start->value,code+1,0))
            {CGIFREE(name); return 1;}

         start++;
        }
       CGIFREE(name);
      }
     else /* is any Q1 or Q1_1 set? */
      {
       start = GetField(Params,fieldname);
       if (!start)
       {
        size_t l = strlen(fieldname);
        start = Params;
        while (start->name)
        {
         if (!strncmp(start->name,fieldname,l))
          if (start->value)
           if ((start->name[l] == '_' || start->name[l] == 0) && *start->value)
            return 1;

         start++;
        }
       }
      }

 return 0;
}

void UpdateStatistics(CGINameValue* count,CGINameValue* sum,CGINameValue* record,
                      CGINameValue* xtab,CGINameValue* xcount,CGINameValue* xsum)
{
 size_t j;
 if (count)
 for(j=0; count[j].name; j++)
    {/* count */
     int x = atoi(count[j].value);
     int d = CalcCountSummary(record,count[j].name);
     x += d;

     if (d)
     {
      char temp[32];
      sprintf(temp,"%d",x);
      SetValue(count+j,temp);

      if (xtab) /* evaluate crosstab entries */
      {
       size_t i;
       char* name;
       CGINameValue* v;
       for(i=0; xtab[i].name; i++)
       {
        name = strdup(xtab[i].value);
        if (EvaluateLogic(name,record,0))
        {
         CGIFREE(name);
         name = strdup3(xtab[i].name,".",count[j].name);
         v = GetField(xcount,name);
         sprintf(temp,"%d",atoi(v->value) + d);
         SetValue(v,temp);
        }
        CGIFREE(name);
       }
      }
     }
    }

 if (sum)
 for(j=0; sum[j].name; j++)
    {/* count */
     double x = strtod(sum[j].value,0);
     double d = strtod(GetFieldValue(record,sum[j].name),0);
     if (x < 10E16 && x > -10E16 && d < 10E16 && d > -10E16)
     {
      if (d < 10E16 && d > -10E16)
       x += d;
     }

     if (d != 0.0)
     {
      char temp[64];
      sprintf(temp,"%f",x);
      SetValue(sum+j,temp);

      if (xtab) /* evaluate crosstab entries */
      {
       size_t i;
       char* name;
       CGINameValue* v;
       for(i=0; xtab[i].name; i++)
       {
        name = strdup(xtab[i].value);
        if (EvaluateLogic(name,record,0))
        {
         CGIFREE(name);
         name = strdup3(xtab[i].name,".",sum[j].name);
         v = GetField(xsum,name);
         sprintf(temp,"%f",strtod(v->value,0) + d);
         SetValue(v,temp);
        }
        CGIFREE(name);
       }

      }
     }
    }
}

/* database.ini
[database]
savedataname=x.asc
savestatname=database.sum

[crosstab]
Q1_1=Q1 eq 1
Q1_2=Q1 eq 2
Q1_3=Q1 eq 3
*/

/*
input variables: database, plot file, query

*/

#ifdef VPWSCGI
int CGImainPlot(char * argv0,CGINameValue* Params,STREAM htmlout)
#else
int CGImain(char * argv0,CGINameValue* Params,STREAM htmlout)
#endif
{
 /* end with a zero */
 /*char * databases[] = {"file1.asc","file2.asc",0};
 char * crosstabs[] = {"Q1_1=Q1 eq 1","Q1_2=Q1 eq 2","Q1_3=Q1 eq 3",0};
 */
 /* hard-code the summary file
 char * statistics = "plots.sum";
 */


 /* The database name, used for the .ini file */
 char * database = GetFieldValue(Params,"DATABASE");
 /* The name of the template test.plot file. */
 char * plot = GetFieldValue(Params,"PLOT");
 /* The password found in the database.ini file */
 char * password    = GetFieldValue(Params,"_PASSWORD");
 /* The query that will be applied to the database */
 char * query = GetFieldValue(Params,"QUERY");

 CGINameValue* config       = 0;//the [DATABASE] section of the .ini file
 CGINameValue* databases    = 0;//list of database names
 CGINameValue* plots        = 0;//
 CGINameValue* count           = 0;//list of the [COUNT] fields in the .sum file
 CGINameValue* sum          = 0;//list of the [SUM] fields in the .sum file
 CGINameValue* xtabs           = 0;//list of the [CROSSTAB] fields in the .sum file
 CGINameValue* xcount       = 0;//list of xcount results
 CGINameValue* xsum         = 0;//list of xsum results
 CGINameValue* total        = 0;//

 size_t xtabcount = 0;

 char fn[MAXPATH];
 int Security = CGI_ALLOW_REPORT;

 size_t i;

 SendCGIHeader(htmlout,NULL);

 if (database[strcspn(database,"/.\\*?$|'\"")] != 0)
  {
    HTMLWrite(htmlout,"Bad database name: ");
    HTMLWrite(htmlout,database);
    return 104;
  }

 if (!*database || !*plot)
   {
       Instructions(htmlout,Params,0);
       return 0;
   }

 databases = ReadPairedString(database,',',0);

 for (i=0; databases[i].name; i++)
 {
  #ifdef CGI_ALLOW
   Security &= GetSecurityFlags(argv0,GetFieldValue(Params,"HOST"),database,password);
  #else
   Security &= GetSecurityFlags(argv0,0,database,password);
  #endif
 }

 if (!(Security & CGI_ALLOW_REPORT))
   {
       Instructions(htmlout,Params,1);
       return 0;
   }


 databases = ReadPairedString(database,',',0);
 plots = ReadPairedString(plot,',',0);

 if (databases)
 {
  ExpandLocalPath(argv0,fn,databases[0].name,".ini");
  config = ReadINIFileSection(fn,"DATABASE",0);

 if (config == NULL)
   {
    Instructions(htmlout,Params,1);

    HTMLWrite(htmlout,argv0);
    HTMLWrite(htmlout,": A configuration file for the database \"<b>");
    HTMLEscape(htmlout,database);
    HTMLWrite(htmlout,"</b>\"was not found. Please check your spelling and server setup and try again.<P>\n");

    LogError("\nCould not open config file ");
    LogError(fn);

    DeleteNVP(databases);
    DeleteNVP(plots);
    return 21;
  }
 }

 if (config == NULL)
 {
    Instructions(htmlout,Params,1);
    return 21;
 }
 else
 {
  char statfile[MAXPATH];
  char *statistics = GetSetting(config,"SAVESTATNAME",NULLSTR);
  ExpandLocalPath(argv0,statfile,statistics,NULLSTR);
  count = ReadINIFileSection(statfile, "COUNT",0);
  sum = ReadINIFileSection(statfile, "SUM",0);
  /* clear the summary lists -- we're only loading the field names */

  if (count)
  for (i=0; count[i].name; i++)
   SetValue(count+i,"0");

  if (sum)
  for (i=0; sum[i].name; i++)
   SetValue(sum+i,"0");
 }

    xtabs = ReadINIFileSection(fn,"CROSSTAB",0);
   if (xtabs == NULL)
   {
    char* c = GetFieldValue(Params,"CROSSTAB");
    if (c)
      xtabs = ReadPairedString(c,';',0);
   }

    if (xtabs)
    {
        if (count)
        {
            size_t max = 0;
            size_t j=0;
            for (i=0; count[i].name; i++) max++;
            xcount = NewNVP(xtabcount * max);
            for (i=0; i<max; i++)
             for (j=0; j<xtabcount; j++)
             {
                xcount[i*xtabcount + j].name = strdup3(xtabs[j].name,".",count[i].name);
                xcount[i*xtabcount + j].value = strdup("0");
             }
        }

        if (sum)
        {
            size_t max = 0;
            size_t j = 0;
            for (i=0; sum[i].name; i++) max++;
            xsum = NewNVP(xtabcount * max);
            for (i=0; i<max; i++)
             for (j=0; j<xtabcount; j++)
             {
                xsum[i*xtabcount + j].name = strdup3(xtabs[j].name,".",sum[i].name);
                xsum[i*xtabcount + j].value = strdup("0");
             }
        }
    }

 for (i=0; databases[i].name; i++)
 {
  FILE * db;
  CGINameValue* record;

  ExpandLocalPath(argv0,fn,databases[i].name,NULLSTR);
  if (!DatabaseOpen(fn,&db,&record,0,0))
  {
   continue;
  }

  if (*query)
  {
    /* automatically skips deleted records */
    while (DatabaseFindNextRecord(db,record,Params,query))
    {
     UpdateStatistics(count,sum,record,xtabs,xcount,xsum);
    }
  }
  else
  {
    int flags=0;
    while (DatabaseReadRecord(db,record,&flags))
    {
     if (flags) continue; /* record marked deleted with a leading # mark */
     UpdateStatistics(count,sum,record,xtabs,xcount,xsum);
    }
  }

  DatabaseClose(db,record); /* closes the file and deletes record */
 }

 if (sum)
 {
  for (i=0;sum[i].name;i++)
  {
   char * x = strdup3(sum[i].name,".SUM","");
   CGIFREE(sum[i].name);
   sum[i].name = x;
  }
 }

 if (xsum)
 {
  for (i=0;xsum[i].name;i++)
  {
   char * x = strdup3(xsum[i].name,".SUM","");
   CGIFREE(xsum[i].name);
   xsum[i].name = x;
  }
 }

 /* Updated statistics for multiple databases. Now print the report */

if (plots)
{
   if (count) total = CopyListJoin(count,total,0);
   if (sum) total = CopyListJoin(sum,total,0);
   if (xcount) total = CopyListJoin(xcount,total,0);
   if (xsum) total = CopyListJoin(xsum,total,0);

    for (i=0;plots[i].name; i++)
    {
        FILE* report;
        ExpandLocalPath(argv0,fn,plot,".plot");
        report = fopen(fn,"rt");
        if (!report)
        {
            ExpandLocalPath(argv0,fn,plot,".rep");
           report = fopen(fn,"rt");
        }
        if (!report)
        {
            ExpandLocalPath(argv0,fn,plot,".html");
           report = fopen(fn,"rt");
        }
        if (report)
        {
            RunReport(argv0,htmlout,report,Params,total,0,0,0); /* set the next form in the file */
            fclose(report);
        }
    }
}
else /* print a table of the results */
{  /*
        count   crosstab1 crosstab2 crosstab
field   total   value     value     value
field_1
*/
 HTMLWrite(htmlout,"<pre>");
 if (count)  DebugShowNVP(htmlout,count);
 if (sum)    DebugShowNVP(htmlout,sum);
 if (xcount) DebugShowNVP(htmlout,xcount);
 if (xsum)   DebugShowNVP(htmlout,xsum);
 HTMLWrite(htmlout,"</pre>");

}

DeleteNVP(count);
DeleteNVP(sum);
DeleteNVP(xcount);
DeleteNVP(xsum);
DeleteNVP(xtabs);
DeleteNVP(databases);
DeleteNVP(plots);
DeleteNVP(total);
return 0;
}

Raosoft EZReport, EZSurvey, InterForm, RapidReport, Raosoft, and SurveyWin are registered trademarks of Raosoft, Inc. Page contents © 1996-2007 by Raosoft, Inc. You may use and modify this file for your own use, but may not distribute it or derivative works without the prior written consent of Raosoft, Inc. This software is provided "as is," and Raosoft makes no warranty, express or implied, of fitness for a particular application. Every measure has been taken to anticipate risks inherent to computer networks, but we cannot guarantee safety or reliability of this program in every situation.

Tel: 206-525-4025 (US) Email: raosoft@raosoft.com
http://www.raosoft.com/