serc.c

/* ------------------------------ serc.c ---------------------------------- */


/* Copyright (c) 1990 - 1994 Adalberto Otranto Tardelli. All rights reserved.
 * Written by A.O.Tardelli 7/90
 * Redistribution and use in source and binary forms are freely permitted
 * provided that the above copyright notice and attribution and date of work
 * and this paragraph are duplicated in all such forms.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 * This program performs a MicroISIS master file dump, formatted display,
 * search and record limits, pattern changes, data base join, field update,
 * master file update and ISO-2709 processing. Input can also be a plain file.
 * A description of this program is available in CISIS Interface Application -
 * MX Program. Sao Paulo, BIREME - Latin American and Caribbean Center on
 * Health Sciences Information/PAHO-WHO, April 1991. 12p. See also:
 * - http://www.bireme.br (IsisFamily/CisisUtilities)
 * - ftp://ftp.bireme.br/cisis
 * Currently works with CISIS Interface 4.01 and BorlandC 5.02 or
 * MSVC 6.0 for win32/console application, and for Linux/gcc, HPUX/CC and
 * Sun/CC, among other platforms.  AOT, 21/02/2001.
*/

/*
..Client program that makes a connection for a byte stream socket in the Internet namespace.
*/
/*
*/

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

#include "cisis.h"      /* CISIS Interface header file */
#include "cirun.h"      /* CISIS Interface runtime declarations */
//#include "cihsh.h"      /* CISIS Interface hashing & binary table search */

#if !PC
#include "ciupdsocx.c"  /* CISIS socket mainclient() */
#endif

#if GCC
#define PGCC  1
#else
#define uint16_t unsigned short
#endif

#define PORT            1417
#define MESSAGE         "wtrig2 ... text=..."
#define SERVERHOST      "serverofi.bireme.br"


#define TAG1   1
#define TAG2   2
#define TAG23  2


void serc_syntax(void);
void serc_syntax()
{
}


int
main(int argc, char *argv[])
{
    //RECSTRU *recp; /* mandatory for defines REC RDB MF0 MFR DIR, FIELDP */
    LONGX maxmfrl=MAXMFRL;   // default

    char *serverhost=SERVERHOST;
    uint16_t port=PORT;
    LONGX xval;

    char *wwwcgip=NULL;     // allocated in cicgi0
    char *parmwtmsg=NULL;   // wtrig2 command line - calling argument wtrig2
    char *wtmsg=NULL;   // wtrig2 command line - allocated if not parmwtmsg

    char *parmhtmsg=NULL;   // http command line - calling argument http
    char *htmsg=NULL;       // http command line - allocated if not parmhtmsg

    char *parmxtmsg=NULL;   // xttt command line - calling argument xttt
    char *xtmsg=NULL;       // xttt command line - allocated if not parmxtmsg

    int debug=0;
    int force=0;
    int outfmthtml=0;

    char *txtvp="";        // text parameter
    int txtvlen=0;         // text parameter
    char *txt1vp="";        // text1 parameter
    int txt1vlen=0;         // text1 parameter
    
    char *p,*q,*x;
    char *hhp;
//    char *hdatap;

    int len,y;
    char *np,*vp;
    int nlen,vlen;
    int npairs; //=0;

    char *buffer;//=NULL    // reply from mainserver/wtrig2
    int buffersize;

    char *cgimsg=NULL;      // reply from mainserver/wtrig2
    LONGX cgimsgsize;


    int rc; //=0;

    int i;


    /* go
    */
    for (i=1; i < argc; i++) {
        p=argv[i];
        if (strcmp(p,"hello") == 0) {
            //serc_syntax();
            printf("%s",cicopyr("Utility SERC"));
            printf("\n");
            printf("serc [hello] [debug] [cipar=<file>] \n");
            printf("     [port=1417|<port>] \n");
            printf("     [host=localhost|<host>]  \n");
            printf("     \"wtrig2 c=col [maxrel=n] [minsim=0.n] [text1=x] [text=x]\" \n");
            printf("\n");
            exit(1);
        }
        if (strcmp(p,"force") == 0) {
            force=1;
            continue;
        }
        if (strcmp(p,"debug") == 0) {
            debug=1;
            continue;
        }
        if (strncmp(p,"cipar=",6) == 0) {
            if ((dbxcipfp=fopen(p+6,"r")) == NULL) fatal(p);
            continue;
        }
        if (strncmp(p,"port=",5) == 0) {
            if (sscanf(p+5,"%"_LD_,&xval) != 1) fatal(p);
            port=(uint16_t)xval;
            continue;
        }
        if (strncmp(p,"host=",5) == 0) {
            if (!*(p+5)) fatal(p);
            serverhost=p+5;
            continue;
        }
        if (strncmp(p,"wtrig2 ",6) == 0) {
            parmwtmsg=p;
            continue;
        }
        if (strncmp(p,"xttp ",5) == 0) {
            parmxtmsg=p;
            continue;
        }
        parmhtmsg=p;
        //if (strncmp(p,"http ",5) == 0) {
        //    continue;
        //}
        //printf("Content-type: text/plain\n\n");
        //fatal(p);
    }
    
    
        if (force) {
            putenv("REQUEST_METHOD=GET");
//putenv("QUERY_STRING=wtrig2=on&c=lilrelff&text1=Jose+Meio+Silva&text=titulo+1%0D%0A%0D%0Atitulo+2%0D%0Atitulo+3%0D%0A&maxrel=3&minsim=0.20&serc.go=submit");
          //putenv("QUERY_STRING=wtrig2=on&collection=lilrelff&text1=Jos%E9+da+Silva+Junior&text=Publica%E7%E3o+eletr%F4nica+hoje%0D%0AElectronic+publishing+today%0D%0AOn+the+Virtual+Health+Library&maxrel=3&minsim=0.20&serc.go=submit");

putenv("QUERY_STRING=wtrig2=on&cipar=similar/jdlilacs.cip&collection=lilrelff&text1=Jose+da+Silva+Junior&text=Publicacao+eletronica+hoje%0D%0AElectronic+publishing+today%0D%0AOn+the+Virtual+Health+Library&maxrel=3&minsim=0.20&serc.goxml=submit");

        }

        
    /* setup alloc
    */
    p=dbxcipar(NULL,"maxmfrl",'='); if (dbxcipok) sscanf(p,"%"_LD_,&maxmfrl);
    if (maxmfrl < (LONGX)MSNVSPLT || (RECHSIZE+maxmfrl) > ALLOMAXV) maxmfrl=MAXMFRL;
    rec_maxmfrl=maxmfrl;
    //fmt_fsiz=maxmfrl;
    cgimsgsize=maxmfrl;
    buffersize=(int)maxmfrl;

    /* reply header
    */
    if (outfmthtml) {
        printf("Content-type: text/html\n\n");
        printf("<html><body><pre>\n");
    }
    else {
        //printf("Content-type: text/plain\n\n");
        printf("Content-type: text/xml\n\n");
        printf("<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n");

        fprintf(stdout, "<sercla-jd version=\"1.0\">\n");
    }

    /* setup wtrig2 parms
    */
    if (!parmwtmsg) {
        /* get CGI data
        */
        p=getenv("REQUEST_METHOD"); if (debug) if (p) printf("+++ REQUEST_METHOD=%s<br />\n",p);
        q=getenv("QUERY_STRING");   if (debug) if (q) printf("+++ QUERY_STRING=%s<br />\n",q);
        if (p) cicgi0(NULL, NULL, &wwwcgip, (UWORD)1, "tag");  // H1 10 ^ndbn^vcdsH1 10 ^ncount^v2H1 7 ^nnow^vH1 10 ^nbtell^v0H1 20 ^nbool^vplants*waterH1 15 ^npft^vmfn/v24/
        if (debug) if (!wwwcgip) printf("+++ wwwcgip=%s<br />\n","void");

        /* setup service parameters
        */
        //drive mainserver to wtrig2
        if (wwwcgip) if (strstr(wwwcgip,"^nwtrig2^von")) {

            if (debug) printf("+++ wwwcgip=%s<br />\n",wwwcgip);

            // alloc cgi message
            cgimsg=loadfile(NULL,'@',"",NULL,cgimsgsize,'\0');
            if (!cgimsg) fatal("serc/alloc/cgimsg");
            x=cgimsg;

            /* loop throught cgi data pairs ^nNam^v[Val]
            */
            // H1.len.^nNam^v[Val]
            // <--y--><---len---->
            for (p=wwwcgip, npairs=0; strncmp(p,"H1 ",3) == 0; ) {

                hhp=p;
                p+=3; y=3;
                for (len=0; isdigit(*p); p++, y++)
                    len=10*len+(int)(*p)-(int)'0';
                p++; y++;
                // ^nNam^v[Val]
                p+=2;
                // Nam^v[Val]
                np=p;
                for (nlen=0; *p; p++) if (*p == SFLDCHR) break; else nlen++;
                // ^v[Val]
                p+=2;
                // [Val]
                vp=p;
                p=hhp+y+len;
                npairs++;
                //
                np[nlen]='\0';                        // Nam dlm
                vlen=len-nlen-2-2;                    // memmove
                if (debug) printf("+++ pair %d: %s[%d+%d,%d,%d]<br />\n",npairs,hhp,y,len,nlen,vlen);
                if (vlen < 0) fatal("serc/vlen");

                  //internal parms - execute 
                  if (strcmp(np,"debug") == 0) {
                      if (!vlen) debug=1;
                      else sscanf(vp,"%d",&debug);
                      continue;
                  }
                  if (strcmp(np,"cipar") == 0) {
                      if (vlen) { char c=vp[vlen]; vp[vlen]='\0'; if ((dbxcipfp=fopen(vp,"r")) == NULL) fatal(vp); vp[vlen]=c; }
                      continue;
                  }
                  if (strcmp(np,"port") == 0) {
                      if (sscanf(vp,"%"_LD_,&xval) != 1) fatal(np);
                      port=(uint16_t)xval;
                      continue;
                  }
//                  if (strcmp(np,"host") == 0) {
//                      if (!vp) fatal(np);
//                      serverhost=vp;   // falta delimitar
//                      continue;
//                  }
                          
                  //start wtrig2 parms
                  if (strcmp(np,"wtrig2") == 0) {
                      wtmsg=x;                           //trig move parms from now on
                      sprintf(x,"wtrig2"); x+=strlen(x); //drive
                      continue;
                  }
                  // text1= text= parms
                  if (strcmp(np,"text") == 0) {
                      txtvp=vp; txtvlen=vlen;
                      continue;
                  }
                  if (strcmp(np,"text1") == 0) {
                      txt1vp=vp; txt1vlen=vlen;
                      continue;
                  }
                  // normalize c= d= parms
                  if (strcmp(np,"c") == 0 || strcmp(np,"collection") == 0) {
                      np="c";
                  }
                  if (strcmp(np,"d") == 0 || strcmp(np,"document") == 0) {
                      np="d";
                  }
                  //move wtrig2/other parms - w2p0.c now discart non-w2 parms
                  if (wtmsg) {
                      if (!vlen) { sprintf(x," %s" ,np); x+=strlen(x); }
                      else       { sprintf(x," %s=",np); x+=strlen(x); memmove(x,vp,vlen); x+=vlen; }
                  }
                  else if (debug) printf("+++ pair %d: %s[%d+%d,%d,%d] - ignored <br />\n",npairs,hhp,y,len,nlen,vlen);
                  
            } // end loop
            
            *x='\0';
            if (*p) fatal("serc/wwwcgip");

        } //end drive mainserver to wtrig2

    } /* end if !parmwtmsg */


    /* Run
    */

    // alloc reply buffer / move nul to 1st byte
    buffer=loadfile(NULL,'@',"",NULL,(LONGX)buffersize,'\0');
    if (!buffer) fatal("serc/alloc/buffer");

    // drive mainserver to wtrig2
    if (parmwtmsg || wtmsg) {

       int cmd=debug;
       char *message=parmwtmsg;
       int maxrds=1;
                      
       if (wtmsg) {  //cgi overrides parms!
           char *x=wtmsg+strlen(wtmsg);
           message=wtmsg;           
           if (txt1vlen) {
             sprintf(x," text1="); x+=strlen(x); memmove(x,txt1vp,txt1vlen); x+=txt1vlen; *x='\0';
           }
           if (txtvlen) {
             sprintf(x," text=" ); x+=strlen(x); memmove(x,txtvp,txtvlen);   x+=txtvlen;  *x='\0';
           }
       } /* end wtmsg */

       if (debug) printf("serc: message=%s<br />\n",message);
       if (message) {
           if (debug || cmd >= 3) printf("serc: \"%s\" %s %d [%d read]\n",message,serverhost,port,maxrds);
#if !PC
           rc=mainclient(cmd, message, serverhost, port, buffer, buffersize, maxrds);
#else
           rc=0;
#endif
           if (debug || cmd >= 3) if (rc < 0) printf("serc: failure %d \n", rc);
       }

    } /* end parmwtmsg || wtmsg */


    // reply
    if (buffer) printf("%s",buffer);

    // reply trailer
    if (outfmthtml) 
        printf("</pre></body></html>\n");
    else
        printf("</sercla-jd>\n");


    /* release working areas
    */
    //if (buffer)  FREE(buffer);
    //if (cgimsg)  FREE(cgimsg);
    //if (wwwcgip) FREE(wwwcgip);

    /* Done
    */
    return 0;
}

/* 
*/