html.c

Go to the documentation of this file.

/*****************************************************************************
* Copyright (C) 2002,  F. Hoffmann-La Roche & Co., AG, Basel, Switzerland.   *
*                                                                            *
* This file is part of "Roche Bioinformatics Software Objects and Services"  *
*                                                                            *
* This file is free software; you can redistribute it and/or                 *
* modify it under the terms of the GNU Lesser General Public                 *
* License as published by the Free Software Foundation; either               *
* version 2.1 of the License, or (at your option) any later version.         *
*                                                                            *
* This file is distributed in the hope that it will be useful,               *
* but WITHOUT ANY WARRANTY; without even the implied warranty of             *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU          *
* Lesser General Public License for more details.                            *
*                                                                            *
* To obtain a copy of the GNU Lesser General Public License                  *
* please write to the Free Software                                          *
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  *
* or visit the WWW site http://www.gnu.org/copyleft/lesser.txt               *
*                                                                            *
* SCOPE: this licence applies to this file. Other files of the               *
*        "Roche Bioinformatics Software Objects and Services" may be         *
*        subject to other licences.                                          *
*                                                                            *
* CONTACT: clemens.broger@roche.com or detlef.wolf@roche.com                 *
*                                                                            *
*****************************************************************************/

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <time.h>

#include "log.h"
#include "hlrmisc.h"
#include "format.h"
#include "linestream.h"

#include "html.h"

static char *gCgiBuffer = NULL;
static int gCgiBufferSize;


static int hexdigit (register int c) 
{ /*
  Convert a hex digit (character) to a numeric value.
  The character must be a valid hex digit.  The result is undefined
  if it is not.  Digits > 9 can be either upper or lower case.
  */
  c &= 0x7f;
  if (c >= 'a' && c <= 'f')
    return (c - 'a' + 10);
  if (c >= 'A' && c <= 'F')
    return (c - 'A' + 10);
  return (c - '0');
}



static char x2c (char *const x) 
{ /*
  Convert a 2 digit hex string to a char.
  For example, x2c ("3f") ==> '?'.  No error checking is done.
  */
  return (hexdigit (x[0]) * 16) + hexdigit (x[1]) ;
}



void cgiDecodeWord (Stringa a) 
{ 
  char *cp = string(a) - 1 ;     /* one less for start of while loop */
  char c;
  char *c2 = string(a);
  
  while (c = *++cp) {
    switch (c) {

    case '%':
      *c2++ = x2c(++cp);
      ++cp;       /* skip second hex digit */
      if (!*cp)
        die ("cgiDecodeWord: % in post not followed by two characters.");
      break;
      
    case '+':
      *c2++ = ' ';
      break;
      
    default:
      *c2++ = c;
    }
  }
  
  *c2 = '\0';
  stringAdjust(a) ;
}



static char *g_domain = NULL ;


void cgiDomainSet(char *domain) 
{ 
  strReplace(&g_domain, domain) ;
}



char *cgiConstructCookie(char *name, char *value, int lifelength) 
{  
  /*
  18-May-1998> dmd: drop quotes and use cgiEncodeWord
  */
  static Stringa s = NULL ;
  static Stringa e = NULL ;
  stringCreateOnce(s, 40) ;
  stringCreateOnce(e, 40) ;

  cgiEncodeWord (value,e) ;

  stringCpy(s, name) ;
  stringCat(s, "=") ;
  stringCat(s, string(e)) ;
  if (lifelength != 0) {
    /* date format according to http://www.faqs.org/rfcs/rfc822.html, section 5.1 */
    char niceDate[40] ;
    time_t t;
    struct tm *tmp ;
    t = time(NULL) + lifelength ;
    tmp = localtime(&t) ;
    strftime(niceDate, sizeof(niceDate), "%a, %d-%b-%y 00:00:00 GMT", tmp) ;
    stringCat(s, "; expires=") ;
    stringCat(s, niceDate) ;
  }
  stringCat(s, "; path=/;") ;
  if (g_domain && *g_domain) {
    stringCat(s, " domain=") ;
    stringCat(s, g_domain) ;
    stringCat(s, ";") ;
  }    
  return string(s) ;
}



char *cgiReadCookie(char *name) {  
  /*
  1998-05-13 dorand: extend to handle unquoted values
  1998-05-19 dorand: return last name=value 
  */
  /*

----------------------------------------------------------------------------
Cookies:

NAME=VALUE
     This string is a sequence of characters excluding semi-colon, comma 
     and white space. If there is a need to place such data in the name 
     or value, some encoding method such as URL style %XX encoding is 
     recommended, though no encoding is defined or required. 

     However, experience has shown that quoted strings with 
     embedded blanks work (see rfc 2109)!

----------------------------------------------------------------------------

 implementation notes

  Support syntax above and if VALUE is quote delimited, unquote it.

  sample value of HTTP_COOKIE:
    Detlefs_cookie_name="apple tree"; zwei=zwei; zwei="drei"
  then
  name                -> value
  -------------------    ----------
  Detlefs_cookie_name -> apple tree
  zwei                -> drei
  drei                -> null

  algorithm should be:

  look for 'name=', 
  if value starts with '"' 
  then return until terminating '"'
  else return until eos
  */

  char *cp ;
  char *cp1 ;
  static Array cookie = 0 ;
  static Array value  = 0 ;

  if (! getenv("HTTP_COOKIE"))              
    return 0 ;                                 /* no cookies to examine */

  if (!cookie)
    cookie = stringCreate(100) ;

  stringCpy(cookie, getenv("HTTP_COOKIE")) ;   /* don't alter original: */
                                               /* allows multiple entry */
  if (!value)
    value = stringCreate(40) ;

  stringCpy(value, name) ;
  stringCat(value, "=") ;

  cp   = NULL;
  cp1  = string(cookie) ;          
           
  while (cp1 = strstr(cp1, string(value))) {  /* find start of name= */
    cp1 = cp1+strlen(name)+1 ;                /* skip name= */
    cp  = cp1 ;                               /* save start */
  }

  if (!cp) 
     return 0 ;

  if (*cp == '"') {                          
    stringCpy(value, cp+1) ;                   /* this value is quoted */

    if ((cp = strchr(string(value), '"')))     /* terminating '"' found */
      *cp = '\0' ;                             /* remove it */
    else 
      die("Cannot parse cookie ]]%s[[. Trailing \" missing.", string(cookie)) ;
  }
  else {     
    stringCpy(value, cp) ;                     /* this value is not quoted */

    if ((cp = strchr(string(value), ';')))     /* terminating ';' found */
      *cp = '\0' ;                             /* remove it */
  }   

  stringAdjust(value) ;
  cgiDecodeWord(value) ;
  return string(value) ;
}



static FILE *gHeaderDestination = NULL ;    



static void cgiLogImpl(char *format, va_list args) { /*
  the routine ensures that the HTTP protocol header is completed
  before writing any error message using functions die(), warn(),
  usage(), or romsg() from module log.
  usage: like printf()
  */
  gHeaderDestination = stderr ;
  cgiHeader(NULL) ;
}
  


void cgiInit(void) 
{ 
  /*
  aklenk 2001:
  a tentative solution to the problem, that the apache web server
  writes output to stderr to the error log file immediately instead
  of the user's browser - this results in server errors and/or empty
  documents and invisible error messages
  */

  char *server = getenv("SERVER_SOFTWARE");

  if (server && strNCaseEqual(server, "apache", 6)) {
    int fd;

    if (fflush(stderr)) 
      perror("PROBLEM: cgiInit: fflush") ;
    if (PLABLA_CLOSE(2) == -1) 
      perror("PROBLEM: cgiInit: close(2)") ;
    fd = dup(1); 
    if (fd == -1) {
      printf("PROBLEM: could not duplicate stdout\n") ;
      perror("PROBLEM: cgiInit: dup") ;
    }
    if (fd != 2) 
      printf("PROBLEM: cgiInit(): could not redirect stderr (fd %d) - possibly cgiInit() several calls to cgiInit().\n", fd) ;
    setbuf(stderr, NULL) ;
  }
  gHeaderDestination = stdout;
  log_registerDie(&cgiLogImpl) ;
  log_registerWarn(&cgiLogImpl) ;
  log_registerUsage(&cgiLogImpl) ;
  log_registerRomsg(&cgiLogImpl) ;
}



char *cgiGet2Post(void)
{ 
  /*
  implementation: content of 'QUERY_STRING' is copied to gCgiBuffer,
    the allocated memory is not freed until the program exits.
  */
  char *val = getenv("QUERY_STRING");
  if (val&&strlen(val)) {
    gCgiBufferSize=strlen(val);
    hlr_free(gCgiBuffer);
    gCgiBuffer = hlr_strdup(val);
  }
  return val;
}



void cgiGet2PostReset(void)    
{ 
  hlr_free(gCgiBuffer);
}



int cgiGetNextPair (int *first,Array item,Array value)
{ 
  /*
  1998-05-26> dmd: make re-entry possible
  */

  static char *bufferPtr;
  int mode;
  int c;

  if (gCgiBuffer == NULL) {
    char *contentLength = getenv ("CONTENT_LENGTH");
    gCgiBufferSize = contentLength ? atoi (contentLength) : 0;
    gCgiBuffer = hlr_malloc (gCgiBufferSize);
    fread (gCgiBuffer,gCgiBufferSize,1,stdin);
    bufferPtr = gCgiBuffer;
  }

  if (*first) {
    *first = 0;
    bufferPtr = gCgiBuffer;
  }

  if (item == 0 || value == 0) 
    die ("cgiGetNextPair: Array for item or value not initialized");
  arrayClear (item);
  arrayClear (value);
  mode = 'i';
  while (bufferPtr - gCgiBuffer < gCgiBufferSize) { /* 2000-03-07  klenka: final (?) bugfix */
    c = *(bufferPtr++);
    if (c == '+') c = ' ';
    if (c == '=') {
      array (item,arrayMax (item),char) = '\0';
      cgiDecodeWord (item) ;  /* bug fix: 1998-07-13  wolfd */
      mode = 'v';

      /* 1999-09-08  klenka: bug fix: check gCgiBuffer size even in case c == '=' */
      if (bufferPtr - gCgiBuffer == gCgiBufferSize) {
        array (value,arrayMax (value),char) = '\0';
        return 1;
      }
    }
    else if (c == '&' || bufferPtr - gCgiBuffer == gCgiBufferSize) {
      if (mode == 'i') {
        /* free (gCgiBuffer); */   /* dmd */
        return 0;
      }
      else {
        if (bufferPtr - gCgiBuffer == gCgiBufferSize)
          array (value,arrayMax (value),char) = c;
        array (value,arrayMax (value),char) = '\0';
        cgiDecodeWord (value);
        return 1;
      }
    }
    else {
      if (mode == 'i')
        array (item,arrayMax (item),char) = c;
      else if (mode == 'v' &&  c != '\r')
        array (value,arrayMax (value),char) = c;
    }
  }

  return 0;
}

static int gFirst = -1 ;
static Stringa gItem = NULL ;



void cgiGetInit(void)
{ 
  gFirst = 1 ;
  stringCreateOnce(gItem, 20) ;
}



char *cgiGetNext(Stringa value)
{ 
  if (gFirst == -1)
    die("cgiGetNext() without cgiGetInit()") ;
  if (cgiGetNextPair(&gFirst, gItem, value))
    return string(gItem) ;
  gFirst = -1 ;
  return NULL ;
}



char *cgiGetByName(char *name)
{ 
  int first = 1 ;
  static Array item  = NULL ;
  static Array value = NULL ;

  if (!value) { 
    value = arrayCreate(10, char) ;
    item  = arrayCreate(10, char) ;
  }

  while (cgiGetNextPair (&first,item,value)) 
    if (strEqual(name, string(item)))
      return string(value) ;
  return NULL ;
}



char *cgiGetByNameM(char *name)
{ 
  char *cp = cgiGetByName(name) ;
  if (!cp)
    die("cgiGetByNameM: name %s not found", name) ;
  return cp ;
}



int cgiGetFo(char *fieldName, Stringa value) 
{
  static int first = 1 ;
  static Array item = NULL ;
  stringCreateOnce(item, 10) ;
  if (cgiGetNextPair(&first, item, value)) {
    if (strDiffer(string(item), fieldName)) 
      die("cgiGetFo: expected to read field %s from form, but found %s.",
               fieldName, string(item)) ;
    return 1 ;
  }
  stringClear(value) ;
  return 0 ;
}



void cgiGetF(char *fieldName, Stringa value) 
{
  if (! cgiGetFo(fieldName, value))
    die("cgiGetF: expected field %s not found", fieldName) ;
}



void cgiEncodeWord (char *s, Stringa a) 
{ 
  char *cp = s - 1 ;
  unsigned char c ;
  char hex[3] ;

  if (!a) 
    die ("cgiEncode") ;
  arrayClear(a) ;
  while (c = *++cp) {
    if ( !isalnum(c) && c != '_' && c != '-' && c != '.' && c != ':') {
      sprintf(hex, "%02X", c) ;
      array(a, arrayMax(a), char) = '%' ;
      array(a, arrayMax(a), char) = hex[0] ;
      array(a, arrayMax(a), char) = hex[1] ;
    }
    else
      array(a, arrayMax(a), char) = c ;
  }
  array(a, arrayMax(a), char) = '\0' ;
}




/* ---------- cgiURL: mini-module for constructing parameterized URLs ---- */

static Stringa cgiurl = NULL ;
static int cgiHasParams ;
static Stringa cgiword = NULL ;



void cgiURLCreate (char *host,int port,char *program) 
{ 
  char portStr[20];
  stringCreateOnce(cgiurl, 50) ;
  stringCreateOnce(cgiword, 50) ;
  if (!host)
    die("cgiURLCreate: NULL host") ;
  stringCpy (cgiurl,"http://");
  stringCat (cgiurl,host);
  if (port) {
    stringCat (cgiurl,":");
    sprintf (portStr,"%d", port);
    stringCat (cgiurl,portStr);
  }
  if (program[0] != '/')
    stringCat (cgiurl,"/");
  stringCat (cgiurl, program);
  cgiHasParams = 0 ;
}



void cgiURLCreate2(char *cgiServerUrl, char *program) 
{
 
  stringCreateOnce(cgiurl, 50) ;
  stringCreateOnce(cgiword, 50) ;
  stringCpy(cgiurl, cgiServerUrl) ;
  if (program) {
    stringCat(cgiurl, "/") ;
    stringCat(cgiurl, program) ;
  }
  cgiHasParams = 0 ;
}



void cgiURLAdd(char *param) 
{
  if (!cgiurl) 
    die ("cgiURLAdd without cgiURLCreate") ;
  stringCat (cgiurl,cgiHasParams ? "+" : "?") ;
  cgiHasParams = 1 ;
  cgiEncodeWord (param, cgiword) ;
  stringCat (cgiurl,string (cgiword)) ;
}



void cgiURLAddNV(char *name,char *value) {
  
  if (!cgiurl) 
    die ("cgiURLAddNV without cgiURLCreate") ;
  stringCat (cgiurl,cgiHasParams ? "&" : "?") ;
  cgiHasParams = 1 ;
  cgiEncodeWord (name, cgiword) ;
  stringCat (cgiurl,string (cgiword)) ;
  if (value){
    stringCat (cgiurl,"=");
    cgiEncodeWord (value, cgiword) ;
    stringCat (cgiurl,string (cgiword)) ;
  }
}



void cgiURLAddInt(int param) 
{
  char s[21] ;
  hlr_itoa(s, param) ;
  cgiURLAdd(s) ;
}



char *cgiURLGet(void) 
{ 
  return string(cgiurl);
}



/* ---------- end of mini-module cgiURL ----------------------- */



int cgiIsCGI(void) 
{
  return ((getenv("HTTP_HOST") != NULL) || (getenv("HTTP_USER_AGENT") != NULL)) ;
}


static int gHeaderPrinted = 0 ;
static int gHeaderExpires = -1 ;  /* # of seceond the page is valid; -1 = eternity */
static Stringa gHeaderRedirUrl = NULL ;   /* "Location:" for HTTP redirection */
static Stringa gHeaderCharSet = NULL ;   /* character set specification  */




void cgiExpiresSet(int seconds_valid) 
{ 
  if (seconds_valid < -1)
    die("cgiExpiresSet: %d", seconds_valid) ;
  if (gHeaderPrinted)
    die("cgiExpiresSet: called after cgiHeader()") ;
  gHeaderExpires = seconds_valid ;
}



void cgiRedirSet(char *url)
{ 
  stringCreateOnce(gHeaderRedirUrl, 50) ;
  stringCpy(gHeaderRedirUrl, url) ;
}



void cgiEncodingSet(char *charset)
{ 
  stringCreateOnce(gHeaderCharSet, 15) ;
  if (charset && *charset)
    stringCpy(gHeaderCharSet,charset) ;
  else
    stringDestroy(gHeaderCharSet) ;
}



void cgiHeader(char *mimeType) {
  char exp[70] ;
  static Stringa charset = NULL;
  stringCreateOnce(charset,25);

  if (!cgiIsCGI()) 
    return ;
  if (mimeType && mimeType[0] == '\0')
    gHeaderPrinted = 1 ;
  if (gHeaderPrinted) 
    return ;
  gHeaderPrinted = 1 ;
  if (gHeaderExpires > -1) {
    char date[40] ;
    time_t t = time(0) + ((gHeaderExpires == 0) ? -36000 : gHeaderExpires) ;
    /* 0 means immediate refresh: since the clocks of the server running
       this cgi and the clock on the computer where the brower is sitting
       are usually off by a few minutes, i go back a while in time to force
       a reload */
    struct tm *gmt = gmtime(&t);
    strftime(date, 39, "%a, %d %b %Y %T GMT", gmt) ;
    sprintf(exp, "\r\nExpires: %.40s", date) ;
  }
  else
    exp[0] = '\0' ;

  if (gHeaderCharSet)
    stringPrintf(charset,"; charset=%s",string(gHeaderCharSet));
  else
    stringClear(charset);

  if (!gHeaderDestination)
    gHeaderDestination = stderr;
  fprintf(gHeaderDestination, "Content-Type: %s%s%s\r\n", 
    mimeType ? mimeType : "text/html", string(charset), exp) ; 
  if (gHeaderRedirUrl)
    fprintf(gHeaderDestination, "Location: %s\r\n", string(gHeaderRedirUrl)) ;
  fputs("\r\n", gHeaderDestination) ;
  
  fflush(gHeaderDestination) ;  /* to be sure this comes before any error msg */
}



void cgiHeaderCookie(char *mimeType, char *cookieSpec) 
{
  Array s = stringCreate(40) ;
  stringCpy(s, mimeType ? mimeType : "text/html") ;
  stringCat(s, "\r\nSet-Cookie: ") ;
  stringCat(s, cookieSpec) ;
  cgiHeader(string(s)) ;  /* treat like an extended mime type */
  arrayDestroy(s) ;
}



int cgiHeaderIsPrinted(void) 
{
  return gHeaderPrinted ;
}




/* ---------------------------- html_ functions ------------ */
/* the following functions are targeted to construct HTML text
   e.g. for hyperlinks
   in future I imagine here routines for building HTML tables.
   i think this is another class of functions than the cgi* stuff,
   so i give it a new prefix: html_
1998-06-17  wolfd
*/

static char *html_host = NULL ;
static char *html_program = NULL ;
static char *html_option = NULL ;
static int html_port = 0 ;  /* 0  = default HTTP port (80),
                               -1 = port and cgi path contained in html_host
                               >0 = use this port in constructing the URL
                            */


void html_URLSet(char *host, int port, char *program)
{
  if (port < 0)
    die("html_URLSet") ;
  strReplace(&html_host, host) ;
  html_port = port ;
  strReplace(&html_program, program) ;
  hlr_free(html_option) ;
}



void html_URLSet2(char *cgiServerUrl, char *program)
{ 
  html_port = -1 ; /* indicate mode */
  strReplace(&html_host, cgiServerUrl) ;
  strReplace(&html_program, program) ;
  hlr_free(html_option) ;
}



void html_URLOptSet(char *option)
{ 
  if (!html_host)
    die("html_URLOptSet: call html_URLSet() first") ;
  strReplace(&html_option, option) ;
}



char *html_clink3(char *class, char *method, char *p1, char *p2, char *p3) 
{ 
  if (html_port == -1)
    cgiURLCreate2(html_host, html_program) ;
  else
    cgiURLCreate(html_host, html_port, html_program) ;
  if (html_option)
    cgiURLAdd(html_option) ;
  cgiURLAdd(class) ;
  cgiURLAdd(method) ;
  if (p1)
    cgiURLAdd(p1) ;
  if (p2)
    cgiURLAdd(p2) ;
  if (p3)
    cgiURLAdd(p3) ;
  return cgiURLGet() ;
}



void html_hlink3(char *class, char *method, char *label, char *p1, char *p2, char *p3) 
{
  printf("<a href=\"%s\">%s</a>", html_clink3(class, method, p1, p2, p3), label) ;
}



void html_encode(char *inText, Array outText, int withExceptions) 
{ 
  char *cp = inText ;
  int i = 0;
  int j = 0;
  int inAnchorExcep = 0;
  int doReplace = 0;
  int step = 1;

  static struct {
    char orgChar;
    char *encoded;
  } et[] = {           /* table of chars needing encoding */
    { '<',  "&lt;"},
    { '>',  "&gt;"},
    { '&',  "&amp;"},
    { '"',  "&quot;"},
    { '\0', NULL } 
  } ;

  static struct {
    char *text ;
    int len ;
  } exceptions[] = {
    { "<A HREF", 7 },
    { "</A>", 4 },
    { "<EM>", 4 },
    { "</EM>", 5 },
    { "<B>", 3 },
    { "</B>", 4 },
    { NULL, 0 }
  } ;

  if (!inText || !outText)
    die("html_encode: null input") ;

  if (withExceptions && strNCaseEqual(inText, "<html>", 6)) {
    stringCpy(outText, inText) ;
    return ;
  }

  stringClear(outText);

  while (*cp) {
    doReplace = 0;
    step = 1;

    for (i = 0; et[i].orgChar; i ++ ) {

      if (*cp == et[i].orgChar) {

        if (withExceptions) {
          for( j = 0; exceptions[j].text; j ++ ) {
            if (strNCaseEqual (cp, exceptions[j].text, exceptions[j].len)) {
              if (j == 0)  /* remember anchor start was found */
                inAnchorExcep = 1;
              step = exceptions[j].len ;
              break;
            }
          }
          
          if (!exceptions[j].text)
            if (!inAnchorExcep) 
              doReplace = 1 ;
          
          if (inAnchorExcep && *cp == '>')
            inAnchorExcep = 0 ;
        }
        else
          doReplace = 1 ;

        break;
      }
    }
     
    if (doReplace) 
      stringCat(outText, et[i].encoded) ;
    else /* copy as is */
      stringNCat(outText, cp, step) ;
    
    cp += step ;
  }
}



char *html_encodeS(char *s)
{ 
  static Stringa b = NULL ;
  stringCreateOnce(b, 100) ;
  html_encode(s, b, /*withExceptions*/0) ;
  return string(b) ;
}



static int gUniqueInt = 0 ;



int html_uniqueIntGet(void)
{
  if (!gUniqueInt)
    gUniqueInt = time(NULL) ;
  return gUniqueInt ;
}



char *html_tab2table(char *tab, int firstLineIsHeader, int borderWidth, int withMarkup)
{ 
  static Stringa html = NULL;
  LineStream ls;
  char *line;
  char hd = firstLineIsHeader ? 'H' : 'D' ; /* hd = <tH> or <tD> */
  WordIter wi;
  char *word;
  char *endOfMarkup;
  char *value ;
  
  stringCreateClear (html,1000);
  ls = ls_createFromBuffer (tab);
  stringAppendf (html,"<TABLE BORDER=%d>\n",borderWidth);
  while (line = ls_nextLine (ls)) {
    if (line[0] == '\0')
      continue;
    stringCat(html,"<TR>");

    wi = wordFldIterCreate (line,"\t");
    while (word = wordNext (wi))
      if (withMarkup && *word=='\\' && (endOfMarkup=strchr(word+1,'\\')) ) {
        *endOfMarkup='\0';
        value = endOfMarkup[1] ? endOfMarkup+1 : "&nbsp;" ; 
        stringAppendf (html,"<T%c %s>%s</T%c>",
                       hd,word+1,value,hd);
      }
      else {
        value = word[0] ? word : "&nbsp;" ; 
        stringAppendf (html,"<T%c>%s</T%c>",
                       hd,value,hd);
      } 

    wordIterDestroy (wi);
    stringCat(html,"</TR>\n");
    hd = 'D' ;
  }
  ls_destroy (ls);
  stringCat (html,"</TABLE>\n");
  return string (html);
}



char *html_text2tables (char *tab,int firstLineIsHeader,int borderWidth, int withMarkup)
{ 
  static Stringa html = NULL;
  static Stringa tabbuf  = NULL;
  LineStream ls;
  char *line;

  stringCreateClear (html,1000);
  stringCreateClear (tabbuf, 1000);
  ls = ls_createFromBuffer (tab);
  while (line = ls_nextLine (ls)) {
    if (line[0] == '\0')
      continue;
    if (!strchr(line,'\t')) {
      if (stringLen(tabbuf)) {
        stringCat(html, html_tab2table(string(tabbuf), firstLineIsHeader, borderWidth, withMarkup)) ;
        stringClear(tabbuf) ;
      }
      stringCat(html, line) ;
      stringCat(html, "<br>\n") ;
      continue;
    }
    /* line with 2 or more columns */
    stringCat(tabbuf, line) ;
    stringCat(tabbuf, "\n") ;
  }
  ls_destroy (ls);
  if (stringLen(tabbuf))
    stringCat(html, html_tab2table(string(tabbuf), firstLineIsHeader, borderWidth, withMarkup)) ;
  return string (html);
}

static FILE *gAppletTagOutFileP = NULL ;
static Texta gParamNames = NULL;
static Texta gParamValues = NULL;
static Stringa gEmbedTag = NULL;



void html_appletTagOpen(FILE *fp, char *jarFileUrls, char *appletClass, int width, int height)
{ 
  gAppletTagOutFileP = fp ;
  fprintf(fp, "<OBJECT classid=\"clsid:8AD9C840-044E-11D1-B3E9-00805F499D93\"\n"
         "WIDTH=%d HEIGHT=%d\n"
         "CODEBASE=\"http://java.sun.com/products/plugin/1.3/jinstall-13-win32.cab#Version=1,3,0,0\">\n"
         "<PARAM NAME=\"type\" VALUE=\"application/x-java-applet;version=1.3\">\n"
         "<PARAM NAME=\"code\" VALUE=\"%s\">\n"
         "<PARAM NAME=\"archive\" VALUE=\"%s\">\n",
         width, height, appletClass, jarFileUrls) ;
  if (!gParamNames)
    gParamNames = textCreate (10);
  else
    textClear (gParamNames);
  if (!gParamValues)
    gParamValues = textCreate (10);
  else
    textClear (gParamValues);
  stringCreateClear (gEmbedTag,100);
  stringCat (gEmbedTag,"<COMMENT>\n");
  stringAppendf (gEmbedTag,"<EMBED type=\"application/x-java-applet;version=1.3\" width=%d height=%d\n",
                 width,height);
  stringCat (gEmbedTag,"pluginspage=\"http://java.sun.com/products/plugin/1.3/plugin-install.html\"\n");
  stringCat (gEmbedTag,"code=\"");
  stringCat (gEmbedTag,appletClass);
  stringCat (gEmbedTag,"\"\narchive=\"");
  stringCat (gEmbedTag,jarFileUrls);
  stringCat (gEmbedTag,"\"\n");
}



void html_appletParam(char *name, char *value)
{ 
  if (strchr(name, '"') || (value && strchr(value, '"'))) 
    die("html_appletParam: \" found.") ;
  textAdd (gParamNames,name);
  if (value)
    textAdd (gParamValues,value);
  else
    textAdd (gParamValues,"");
}



void html_appletTagClose(void)
{
  int i;

  for (i=0;i<arrayMax (gParamNames);i++)
    fprintf(gAppletTagOutFileP,"<PARAM NAME=\"%s\" VALUE=\"%s\">\n",
            arru (gParamNames,i,char *),arru (gParamValues,i,char *));
  fprintf (gAppletTagOutFileP,"%s",string (gEmbedTag));
  for (i=0;i<arrayMax (gParamNames);i++)
    fprintf(gAppletTagOutFileP,"%s=\"%s\"\n",
            arru (gParamNames,i,char *),arru (gParamValues,i,char *));
  fprintf (gAppletTagOutFileP,"<NOEMBED>\n</COMMENT>\n");
  fprintf(gAppletTagOutFileP, "<B><FONT COLOR=red>Sorry, cannot start Java applet. Possible reasons: "
         "You are neither using MS-InternetExplorer nor Netscape (Mozilla) or your browser does not support "
         "Java or Java has been disabled (check your browser settings)</FONT></B>\n");
  fprintf (gAppletTagOutFileP,"</NOEMBED></EMBED></OBJECT>\n");
}





/* --------------------------- web start jnlp ------------------------------------------------- */

static FILE *gFp;
static Texta gJars = NULL;
static Texta gArgs = NULL;
static char *gMainClass = NULL;



void html_webstartOpen (FILE *fp,char *codebase,char *title,char *homepage,
                        char *description,char *icon,int allPermissions,
                        char *heap,char *mainClass)
{ 
  gFp = fp;
  fprintf (fp,"<jnlp spec='1.0+' codebase='%s'>\n",codebase);
  fprintf (fp,"  <information>\n");
  if (!title)
    die ("html_webstartOpen: a title is required");
  fprintf (fp,"    <title>%s</title>\n",title);
  fprintf (fp,"    <vendor>Bioinformatics Basel</vendor>\n");
  if (homepage)
    fprintf (fp,"    <homepage href='%s'/>\n",homepage);
  if (icon)
    fprintf (fp,"    <icon href='%s'/>\n",icon);
  if (description)
    fprintf (fp,"    <description>%s</description>\n",description);
  fprintf (fp,"  </information>\n");
  if (allPermissions) {
    fprintf (fp,"  <security>\n");
    fprintf (fp,"    <all-permissions/>\n");
    fprintf (fp,"  </security>\n");
  }
  fprintf (fp,"  <resources>\n");
  if (heap)
    fprintf (fp,"    <j2se version='1.4.+' max-heap-size='%s'/>\n",
             heap);
  else
    fprintf (fp,"    <j2se version='1.4.+'/>\n");
  gMainClass = hlr_strdup (mainClass);
  if (!gJars)
    gJars = textCreate (5);
  else
    textClear (gJars);
  if (!gArgs)
    gArgs = textCreate (5);
  else
    textClear (gArgs);
}



void html_webstartAddJar (char *jar)
{ 
  textAdd (gJars,jar);
}



void html_webstartAddArg (char *arg)
{
  static Stringa enc = NULL;

  stringCreateOnce (enc,20);
  html_encode (arg,enc,0);
  textAdd (gArgs,string (enc));
}



void html_webstartClose (void)
{ 
  int i;

  for (i=0;i<arrayMax (gJars);i++)
    fprintf (gFp,"    <jar href='%s'/>\n",arru (gJars,i,char *));
  fprintf (gFp,"  </resources>\n");
  fprintf (gFp,"  <application-desc main-class='%s'>\n",gMainClass);
  hlr_free (gMainClass);
  for (i=0;i<arrayMax (gArgs);i++)
    fprintf (gFp,"    <argument>%s</argument>\n",arru (gArgs,i,char *));
  fprintf (gFp,"  </application-desc>\n");
  fprintf (gFp,"</jnlp>\n");
  if (gFp != stdout)
    fclose (gFp);
}

/* --------------------------------------------------------------------
  2000-06-08  klenka

  mini-module mp (multipart) for reading data from multipart forms
  these forms MUST have ENCTYPE="multipart/form-data" and can contain
  separate parts where each part may contain text or binary data

  functions from this mini-module use prefix cgiMp

  example program using these functions:
  on page:
  http://bioinfo.bas.roche.com:8080/bios/common/bioCompLibSeminar.html
  see 'Code example for file upload via WWW browser'
*/

static int gMpUsed = 0;
static int gMpBufferSize = 0;
static char *gMpBuffer = NULL;
static char gMpDelimiter[] = { 0x0d, 0x0a };
static int gMpBoundarySize = 0;
static char *gMpBoundary = NULL;
static char *gMpReadPos = NULL;
  
  
static int cgiIsMpInitialized(void) {
  /*
    returns 1 if mini module mp is initialized and 0 else
   */

  return gMpBufferSize && gMpBuffer && gMpBoundarySize && gMpBoundary;
}


static char *memmem(char *s1, int sz1, char *s2, int sz2) 
{ /*
  equivalent of strstr() on memory, returns pointer to first byte
  of first occurrence of s2 in s1
  */

  char *result = NULL;
  char *cp = s1;
  int sz = sz1 - sz2;

  while (cp - s1 <= sz) {
    if (!memcmp(cp, s2, sz2)) {
      result = cp;
      break;
    }

    cp ++;
  }

  return result;
}


/* useful for debugging when using mem stuff instead of zero-terminated strings
static void memputs(char *s, int sz) {
  int i = 0;

  while (i < sz)
    putchar((int) s[i ++]);
}
*/



void cgiMpInit(void) 
{ 
  char *contentType = getenv("CONTENT_TYPE");
  char *delimiterPos = ILLADR;

  if (cgiIsMpInitialized())
    die("cgiMpInit(): illegal use - already initialized");

  if (gMpUsed)
    die("cgiMpInit(): illegal use - has been used before");

  if (!contentType || strNDiffer(contentType, "multipart/form-data", 19))
    die("cgiMpInit(): invalid content-type: %s", s0(contentType));

  gMpBufferSize = atoi(getenv("CONTENT_LENGTH"));
  gMpBuffer = hlr_malloc(gMpBufferSize);

  if (fread(gMpBuffer, gMpBufferSize, 1, stdin) != 1)
    die("cgiMpInit(): input length does not match content length %d", gMpBufferSize);

  delimiterPos = memmem(gMpBuffer, gMpBufferSize, gMpDelimiter, sizeof(gMpDelimiter));

  if (!delimiterPos || delimiterPos == gMpBuffer)
    die("cgiMpInit(): invalid content format: %s", gMpBuffer);

  gMpBoundarySize = delimiterPos - gMpBuffer;
  gMpBoundary = hlr_malloc(gMpBoundarySize);
  memcpy(gMpBoundary, gMpBuffer, gMpBoundarySize);

  gMpUsed = 1;

  cgiMpReset();
}



int cgiMpNext(Stringa item, Array value, Stringa filename, 
              Stringa contentType) 
{ 
  int result = 0;
  char *readPos = ILLADR;
  char *boundaryPos = ILLADR;
  char *delimiterPos = ILLADR;
  char *namePos = ILLADR;
  char *filenamePos = ILLADR;
  Stringa myContentType = stringCreate(32);

  if (!cgiIsMpInitialized())
    die("cgiMpNext(): illegal use - not initialized");

  stringClear(item);
  stringClear(value);
  
  if (filename)
    stringClear(filename);

  if (contentType)
    stringClear(contentType);

  boundaryPos = memmem(gMpReadPos, gMpBufferSize - (gMpReadPos - gMpBuffer), 
                       gMpBoundary, gMpBoundarySize);

  if (boundaryPos) {
    result = 1;
    readPos = gMpReadPos;
    gMpReadPos = boundaryPos + gMpBoundarySize + sizeof(gMpDelimiter);

    /* parse content-disposition line */
    delimiterPos = memmem(readPos, boundaryPos - readPos, 
                          gMpDelimiter, sizeof(gMpDelimiter));

    if (delimiterPos == NULL)
      die("cgiMpNext(): no line delimiter found until next boundary: %s", readPos);

    if (strNDiffer(readPos, "Content-Disposition: form-data", 30))
      die("cgiMpNext(): invalid part format", readPos);

    if (namePos = memmem(readPos, delimiterPos - readPos, "name=", 5))
      strCopySubstr(namePos, '"', '"', item);
    else
      die("cgiMpNext(): invalid part format: %s", readPos);

    if (filename)
      if (filenamePos = memmem(namePos, delimiterPos - readPos, "filename=", 9))
        strCopySubstr(filenamePos, '"', '"', filename);

    /* parse optional content-type line */
    readPos = delimiterPos + sizeof(gMpDelimiter);
    delimiterPos = memmem(readPos, boundaryPos - readPos, 
                          gMpDelimiter, sizeof(gMpDelimiter));

    if (delimiterPos == NULL)
      die("cgiMpNext(): no line delimiter found until next boundary: %s", readPos);

    if (strNEqual(readPos, "Content-Type: ", 14)) {
      strCopySubstr(readPos + 13, ' ', 0x0d, myContentType);
      if(strEqual(string(myContentType), "text/plain"))
        stringClear(myContentType);
      readPos = delimiterPos + sizeof(gMpDelimiter);
      delimiterPos = memmem(readPos, boundaryPos - readPos, 
                            gMpDelimiter, sizeof(gMpDelimiter));
    }

    /* require blank line separation of part header and part data */
    if (delimiterPos != readPos)
      die("cgiMpNext(): invalid part format: %s", readPos);

    readPos += sizeof(gMpDelimiter);

    /* read part data (without final delimiter) */
    if (isEmptyString(myContentType)) {
      stringNCpy(value, readPos, boundaryPos - readPos - sizeof(gMpDelimiter));
      stringTranslate(value, "\r", "");
    }
    else {
      arraySetMax(value, 0);
      
      while (readPos < boundaryPos - sizeof(gMpDelimiter)) {
        array(value, arrayMax(value), char) = *readPos;
        readPos ++;
      }
    }
  }

  if (contentType)
    stringCpy(contentType, string(myContentType));

  stringDestroy(myContentType);

  return result;
}



void cgiMpReset(void) 
{ 
  if (!cgiIsMpInitialized())
    die("cgiMpReset(): illegal use - not initialized");

  gMpReadPos = gMpBuffer + gMpBoundarySize + sizeof(gMpDelimiter);
}



void cgiMpDeinit(void) 
{ 
  if (!cgiIsMpInitialized())
    die("cgiMpDeinit(): illegal use - not initialized");

  gMpReadPos = NULL;
  gMpBoundarySize = 0;
  hlr_free(gMpBoundary);
  gMpBufferSize = 0;
  hlr_free(gMpBuffer);
}

/* ------------------------ end of mini-module mp --------------------- */




void html_printGenericStyleSheet (int bodyFontSize)
{
  puts ("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">");
  puts ("<style type=\"text/css\" media=\"screen\">");
  printf ("body {font:%dpx Verdana,Arial,Helvetica, sans-serif; color:#2F4F4F; margin:50px 50px 50px 50px;}\n",bodyFontSize);
  puts ("h1 {font-size:20px; font-weight:1200; color:#0E4C92;}");
  puts ("h2 {font-size:14px; font-weight:1000; color:#0E4C92;}");
  puts (".note {font-style:italic}");
  puts ("a       {color:#0000CD; text-decoration:none;}");
  puts ("a:hover {color:#4B0082; text-decoration:none;}");  
  printf ("table {border-collapse:collapse; font-size:%dpx;}\n",bodyFontSize);
  puts ("</style>");
}

---