path: root/src/IO.c

 /*@@
   @file      IO.c
   @date      Sun Sep 17 16:19:17 2000
   @author    Tom Goodale
   @desc 
   Stuff for displaying IO callbacks on the web page.
   @enddesc 
   @version $Header$
 @@*/

#include "cctk.h"

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

#include "util_String.h"

#include "CactusBase/IOUtil/src/ioGH.h"

#include "DevThorns/httpd/src/http_Request.h"
#include "DevThorns/httpd/src/http_Content.h"

static char *rcsid = "$Header$";

CCTK_FILEVERSION(DevThorns_httpd_utils_IO_c)

/********************************************************************
 *********************     Local Data Types   ***********************
 ********************************************************************/

struct httpuFileList
{
  struct httpuFileList *next;
  char *filename;
  char *linkname;
  IOUtil_AdvertisedFileDesc_t data;  
};

struct httpuMimeType
{
  struct httpuMimeType *next;
  const char *name;
};

/********************************************************************
 ********************* Local Routine Prototypes *********************
 ********************************************************************/

static int IOFileListener(cGH *GH, const char *filename,
                          const IOUtil_AdvertisedFileDesc_t *description);

static int AdvertisedFilePage(cGH *cctkGH, httpRequest *request, void *data);

static int SendFilePage(cGH *cctkGH, httpRequest *request, void *data);

/********************************************************************
 ********************* Other Routine Prototypes *********************
 ********************************************************************/

/********************************************************************
 *********************     Local Data   *****************************
 ********************************************************************/

static struct httpuFileList *filelist   = NULL;
static struct httpuMimeType *mimetypes  = NULL;

/********************************************************************
 *********************     External Routines   **********************
 ********************************************************************/

int HTTP_util_RegisterIOPages(void)
{
  IOUtil_AdvertisedFileListenerCallbacks_t listener;

  listener.advertise = IOFileListener;

  IOUtil_RegisterAdvertisedFileListener (NULL, CCTK_THORNSTRING,
                                         &listener);

  HTTP_RegisterPage("/Output/index.html", AdvertisedFilePage, NULL);

  HTTP_ContentLink("/Output/index.html", "Files",
                   "Downloadable files",
                   HTTP_QUICKLINK);

  HTTP_RegisterPage("/Output", SendFilePage, NULL);

  return 0;
}
/********************************************************************
 *********************     Local Routines   *************************
 ********************************************************************/

 /*@@
   @routine    IOFileListener
   @date       Sun Sep 17 17:56:22 2000
   @author     Tom Goodale
   @desc 
   Listener for advertised files.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/
static int IOFileListener(cGH *GH, const char *filename,
                          const IOUtil_AdvertisedFileDesc_t *description)
{
  struct httpuFileList *entry;
  struct httpuMimeType *type;
  char *position;

  entry = (struct httpuFileList *)malloc(sizeof(struct httpuFileList));

  if(entry)
  {
    entry->next             = NULL;
    entry->filename         = Util_Strdup(filename);
    entry->linkname         = Util_Strdup(filename);
    entry->data.thorn       = Util_Strdup(description->thorn);
    entry->data.varname     = Util_Strdup(description->varname);
    entry->data.mimetype    = Util_Strdup(description->mimetype);
    entry->data.slice       = Util_Strdup(description->slice);
    entry->data.description = Util_Strdup(description->description);

    entry->next = filelist;
    filelist = entry;

    /* Need to mangle the filename to get a decent linkname */
    for(position=entry->linkname; *position;position++)
    {
      if(*position == '/')
      {
        *position = '@';
      }
    }

    for(type=mimetypes; type; type=type->next)
    {
      if(!strcmp(type->name,entry->data.mimetype))
      {
        break;
      }
    }

    /* Keep a list of mimetypes too. */
    if(!type)
    {
      type = (struct httpuMimeType *)malloc(sizeof(struct httpuMimeType));
      
      if(type)
      {
        type->name = Util_Strdup(description->mimetype);

        type->next = mimetypes;
        mimetypes  = type;
      }
    }                                            
  }

  return 0;
}

static const char *cactus_header = 
"</HEAD>\n"
"<BODY BGCOLOR=\"#FFFFFF\""
"        link=\"#1B831D\" vlink=\"#768000\" alink=\"#00FF00\">\n"
"<center>"
"</A>"
"<table width=70% border=0><tr><td>"
"\n";

static const char *cactus_footer =
"</table>"
"\n"
"<HR size=1>\n"
"<ADDRESS><DIV ALIGN=left>\n"
"<SMALL>\n"
"<A HREF=\"http://www.cactuscode.org/\">Cactus Home Page</A><BR>\n"
"Cactus Web Interface by <A HREF=\"mailto:cactusmaint@cactuscode.org\">The Cactus Team</A><BR>\n"
"</SMALL></DIV></ADDRESS></BODY></HTML>\n";

 /*@@
   @routine    AdvertisedFilePage
   @date       Sun Sep 17 18:26:01 2000
   @author     Tom Goodale
   @desc 
   Page to deal with advertised files.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/
static int AdvertisedFilePage(cGH *cctkGH, httpRequest *request, void *data)
{
  int retval;
  char message[4098];
  struct httpuFileList *list;

  /* Status message */
  strcpy(message,"HTTP/1.0 200 OK\r\n");
  
  HTTP_Write(request, message, strlen(message));

  /* Content-Type */
  strcpy(message,"Content-Type: text/html\r\n\r\n");

  HTTP_Write(request, message, strlen(message));

  /* Start the page */
  strcpy(message, "<HTML><HEAD><TITLE>Cactus Downloadable Files</TITLE>\n");
  strcat(message, cactus_header);

  strcat(message, "<center><h1>Downloadable Files</h1></center>");

  HTTP_Write(request, message, strlen(message));

  strcpy(message, "<center>");
  HTTP_Write(request, message, strlen(message));

  strcpy(message,
         "<center>[<A HREF=\"/\">This Simulation Homepage</A>]</center>\n"
         "</center><p>From this page you can download various output files \n"
         "from the simulation. \n"
         "<table cellspacing=5 border=0\n>"
         "<tr><th>File Name</th><th>Variable</th><th>Description</th></tr>\n");

  HTTP_Write(request, message, strlen(message));

  for (list = filelist; list; list = list->next)
  {
    sprintf(message, 
            "<tr><td valign=top><A HREF=\"/Output/%s\">%s</A></td>"
            "<td valign=top>%s</td><td valign=top>%s</td></tr>",
            list->linkname, list->filename, 
            list->data.varname, list->data.description);
      HTTP_Write(request, message, strlen(message));
  }

  strcpy(message,"</table></center>");
  HTTP_Write(request, message, strlen(message));
  
  /* Write out the footer part. */

  retval = HTTP_Write(request, cactus_footer, strlen(cactus_footer));

  return retval;
}


 /*@@
   @routine    SendFilePage
   @date       Sun Sep 17 18:43:40 2000
   @author     Tom Goodale
   @desc 
   Sends an advertised file.
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/
static int SendFilePage(cGH *cctkGH, httpRequest *request, void *data)
{
  int retval;
  char message[4098];
  struct httpuFileList *list;
  int filedes;

  for (list = filelist; list; list = list->next)
  {
    if(!strcmp(list->linkname, request->residual))
    {
      if((filedes = open(list->filename, O_RDONLY)) >= 0)
      {    
        strcpy(message,"HTTP/1.0 200 OK\r\n");
  
        HTTP_Write(request, message, strlen(message));
        
        /* Content-Type */
        sprintf(message,"Content-Type: %s\r\n\r\n", list->data.mimetype);
        
        HTTP_Write(request, message, strlen(message));

        HTTP_ContentSendFromFile(request, filedes);

        close(filedes);
      }
      else
      {
        strcpy(message,"HTTP/1.0 500 Server Internal Error\r\n");
        HTTP_Write(request, message, strlen(message));
        
        /* Content-Type */
        strcpy(message,"Content-Type: text/html\r\n\r\n");
        
        HTTP_Write(request, message, strlen(message));

        sprintf(message,
                "<HTML>\n<HEAD><TITLE>Error 500: Internal Error</TITLE></HEAD>\n"
                "<BODY><CENTER><p>Unable to open %s</P></BODY>\n</HTML>\n",
                list->filename);
        HTTP_Write(request, message, strlen(message));
      }
      break;
    }
  }

  if(!list)
  {
    strcpy(message,"HTTP/1.0 404 Not Found\r\n");
    HTTP_Write(request, message, strlen(message));
    
    /* Content-Type */
    strcpy(message,"Content-Type: text/html\r\n\r\n");
    
    HTTP_Write(request, message, strlen(message));
    
    sprintf(message,
            "<HTML>\n<HEAD><TITLE>Error 404: Not Found</TITLE></HEAD>\n"
            "<BODY><CENTER><p>%s does not exist</P></BODY>\n</HTML>\n",
            request->uri);
    HTTP_Write(request, message, strlen(message));
  } 

  return 0;
}