Control and Status Page

This page is the control center for interacting with\n" " the current simulation. It is possible to steer certain\n" " parameters, as well as pause, restart, or terminate the" " simulation.

\n" "

\n"); HTTP_Send(request, "

Run Control

\n" "

Select if the run should be paused, running normally, " "or terminated.\n" " You may also single step to the next iteration.

\n"); HTTP_Send(request, "\n" "\n"); SetToCString(message, "\n"); HTTP_SendString(request, message); SetToCString(message, "\n"); HTTP_SendString(request, message); HTTP_Send(request, "\n"); HTTP_Send(request, "\n"); HTTP_Send(request, "

PAUSE

RUN

TERMINATE

\n" "\n" "\n" "\n" "\n" "

\n"); HTTP_Send(request, "

Run Until

\n" "

The following parameters allow you to select an iteration\n" "number or physical time at which the code will pause.\n" " You may also choose to pause if a particular expression made up\n" " of grid scalars, simulation time and iteration is true. \n" " Note that even if 'run' is selected above, the settings here have" " precedence.

\n"); SetToCString(message, "\n"); ConcatCString(message,"" "\n" "\n" "\n"); ConcatCString(message, "" "\n" "\n" "\n"); ConcatCString(message, "\n" "\n" "\n" "\n"); ConcatCString(message,"

Iteration
Time
Expression

\n"); HTTP_SendString(request, message); HTTP_Send(request, "

\n" "

Running CACTUS Status Information : Terminated

Simulation Home Page

\n" "

Simulation web server:

\n" "

This browser is connected to a Cactus simulation which \n" "contains a web server thorn. This thorn allows you to monitor \n" "the simulation,\n" "and view and change parameters

\n" "

Depending on which other thorns are active, there may be \n" "additional features available, such as the viewing and \n" "downloading of output files

\n"); /* CONFIGURATION DETAILS */ SetToCString(message, "

Simulation:

\n" "

Flesh version "); ConcatCString(message, CCTK_FullVersion() ); ConcatCString(message, "
Flesh compiled on " __DATE__" \n" "at "__TIME__"
Single processor run
Multiprocessor run on "); ConcatDecimal( message, CCTK_nProcs(cctkGH) ); ConcatCString( message, " CPUs

\n"); /************************************************************************/ /* NEW COLUMN */ HTTP_Send(request, "

"); /************************************************************************/ /* CURRENT STATE OF SIMULATION */ if (cctkGH) { SetToCString(message, "

Current state:

\n" "

Physical time "); ConcatDouble(message, cctkGH->cctk_time ); ConcatCString(message, "
Iteration number "); ConcatDecimal(message, cctkGH->cctk_iteration ); ConcatCString(message, "
Current cactus state is unknown
This Cactus run is over.

"); /* LIST COMPILED THORNS */ { int i; int nthorns = CCTK_NumCompiledThorns(); const char **thorns = (const char **)malloc(nthorns * sizeof(char *)); for(i=0; i < nthorns; i++) { thorns[i] = CCTK_CompiledThorn (i); } /* Sort the thorns */ qsort(thorns, nthorns, sizeof(char *), CompareStrings); SetToCString(message, "

Compiled thorns:

\n" "

This list shows all thorns compiled into the executable; those \n" "thorns which have been activated in the parameter file for this \n" "simulation are shown in red

\n" "

"); if (CCTK_IsThornActive(thorns[i])) { ConcatCString(message, " "); ConcatCString(message, thorns[i]); ConcatCString(message, " "); } else { ConcatCString(message, thorns[i]); } ConcatCString(message, "

\n"); free(thorns); } HTTP_SendString(request, message); /* Finish table started by blurb */ HTTP_Send(request, "

\n"); /* Write out the footer part. */ HTTP_SetContentFooterString(cctkGH,0,message); retval = HTTP_SendString(request, message); String_Delete( message ); return retval; } /*@@ @routine HTTP_ContentSendFromFile @date Sun Sep 17 17:35:57 2000 @author Tom Goodale @desc Reads data from the filedescriptor and sends it to the HTTP request. @enddesc @calls @calledby @history @endhistory @@*/ int HTTP_ContentSendFromFile(httpRequest *request, int filedes) { int bytes_sent = 0; int n_bytes = 0; char buffer[4098] = EMPTYSTRING; bytes_sent = 0; while((n_bytes = read(filedes, buffer,sizeof(buffer))) > 0) { HTTP_Write(request, buffer, n_bytes); bytes_sent += n_bytes; } if(n_bytes == -1) { bytes_sent = -bytes_sent; } return bytes_sent; } /*@@ @routine AboutPage @date Sun Sep 17 2000 @author Gabrielle Allen @desc Displays a page about the web server @enddesc @calls @calledby @@*/ static int AboutPage(const cGH *cctkGH, httpRequest *request, void *data) { int retval = -1; String *message = String_New(); /* avoid compiler warning about unused parameter */ data = data; HTTP_SendOKHeader( request ); HTTP_SetDoctype( message ); HTTP_SendString(request, message); /* Start the page */ SetToCString(message, "\nAbout Cactus Server\n"); HTTP_SetHeadInfo( message); HTTP_SendString(request, message ); HTTP_Send(request, "\n\n"); HTTP_SetContentHeaderString(cctkGH,0,message,NULL); HTTP_SendString(request, message); HTTP_Send(request, "

About this Web Server

\n"); SetToCString(message, "

These web pages are served by a simulation \n" "which is using the Cactus Code and Computational ToolKit, \n" "a freely available, parallel, collaborative," " portable and \n" "modular programming environment for HPC.

\n" "

The HTTPD module, or thorn " "which is serving these pages\n" " can be added to any Cactus application to provide on-line \n" "monitoring and control of simulations from any web browser.

\n" "

This HTTPD server and thorn interface has been designed and \n" "and implemented by Tom Goodale, based on the original idea and \n" "implementation by Werner Benger.

\n"); retval = HTTP_SendString(request, message); SetToCString(message, "

For more information about Cactus, visit our " "permanent home page at \n" "www.cactuscode.org

\n"); retval = HTTP_SendString(request, message); /* Write out the footer part. */ HTTP_SetContentFooterString(cctkGH,0,message); retval = HTTP_SendString(request, message); String_Delete( message); return retval; } /*@@ @routine CookieTestPage @date Mon Sep 18 23:28:19 2000 @author Tom Goodale @desc Test and example page for cookies. This will disappear soon. @enddesc @calls @calledby @history @endhistory @@*/ static int CookieTestPage(const cGH *cctkGH, httpRequest *request, void *data) { int retval = -1; String *message = String_New(); const char *value = NULL; char *value2 = NULL; /* avoid compiler warning about unused parameter */ data = data; /* Status message */ HTTP_Send(request,"HTTP/1.0 200 OK\r\n"); /* Cookie */ HTTP_CookieSend(request, "user1", "foobar4", NULL,NULL,NULL,0); HTTP_CookieSend(request, "user2", "foobar3", NULL,NULL,NULL,0); HTTP_CookieSend(request, "user3", "foobar2", NULL,NULL,NULL,0); HTTP_CookieSend(request, "user4", "foobar1", NULL,NULL,NULL,0); HTTP_Send(request,"Content-Type: text/html\r\n\r\n"); HTTP_SetDoctype( message ); HTTP_SendString(request, message); /* Start the page */ HTTP_Send(request, "Cookie Test\n"); HTTP_SetHeadInfo( message); HTTP_SendString(request, message ); HTTP_Send(request, "\n\n"); HTTP_SetContentHeaderString(cctkGH,0,message,NULL); HTTP_SendString(request, message); HTTP_Send(request, "

Cookie Test

\n"); HTTP_Send(request, "

"); value = HTTP_HeaderValue(request, "Cookie"); SetToCString(message, "

Cookie was '"); ConcatCString(message, value); ConcatCString(message, "'

\n"); HTTP_SendString(request, message); value2 = HTTP_CookieGet(request,"user3"); SetToCString(message, "

Cookie from decoder was '"); ConcatCString(message, value2); ConcatCString(message, "'

\n"); free(value2); HTTP_SendString(request, message); HTTP_Send(request,"

\n"); /* Write out the footer part. */ HTTP_SetContentFooterString(cctkGH,0,message); retval = HTTP_SendString(request, message); String_Delete( message ); return retval; }

Active Thorns:

"); Concat(message, title ); ConcatCString(message, "

Available options:

Simulation:

Control and Status Page

Run Control

Run Until

Simulation Home Page

Simulation web server:

Simulation:

Current state:

Compiled thorns:

About this Web Server

Cookie Test