Control and Status Page

Run Control

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

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"); - strcpy(message, - "\n" - "\n"); + Send_HTTP(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_Write(request, message, strlen(message)); + Send_HTTP(request, + "

\n" + "\n"); - sprintf(message, - "\n", - pause ? "checked" : ""); - HTTP_Write(request, message, strlen(message)); + SetToCString(message, + "\n"); + Send_HTTP_String(request, message); - sprintf(message, - "\n", - pause ? "" : "checked"); - HTTP_Write(request, message, strlen(message)); + SetToCString(message, + "\n"); + Send_HTTP_String(request, message); - strcpy(message, - "\n"); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, + "\n"); - strcpy(message, - "\n"); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, + "\n"); - strcpy(message, - "

PAUSE

RUN

TERMINATE

\n" - "\n" - "\n" - "\n" - "

\n"); - - HTTP_Write(request, message, strlen(message)); - - strcpy(message, - "

Run Until

\n" - "

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

"); - - HTTP_Write(request, message, strlen(message)); - - strcpy(message, - "\n"); - - sprintf(message,"%s" - "" - "\n" - "\n", message, until_it, until_it_active ? "checked" : ""); - sprintf(message,"%s" - "" - "\n" - "\n", message, until_time, until_time_active ? "checked" : ""); - sprintf(message,"%s" - "" - "\n" - "\n", message, until_expression, until_expression_active ? "checked" : ""); - - strcat(message,"

Iteration
Time
Expression

\n"); + Send_HTTP(request, + "\n" + "\n" + "\n" + "\n" + "\n" + "

\n"); + + Send_HTTP(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_Write(request, message, strlen(message)); + Send_HTTP_String(request, message); - strcpy(message, - "\n" - "

Simulation Home Page

" - "

Simulation web server:

" - "

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

" - "

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

"); - - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, + "

\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 */ - sprintf(message, "

Simulation:

" - "

Flesh version %s" - "
Flesh compiled on " - __DATE__ " at "__TIME__ "

Simulation:

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

\n"); - /******************************************************************************/ + /************************************************************************/ /* NEW COLUMN */ - strcpy(message, "

"); - - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "

"); - /*******************************************************************************/ + /************************************************************************/ /* CURRENT STATE OF SIMULATION */ if (cctkGH) { - sprintf(message, "

Current state:

" - "

Physical time %f" - "\n" - "
Iteration number %d" - "

Current state:

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

This Cactus run is over.

"); /* LIST COMPILED THORNS */ - { int i; - int nthorns; - const char **thorns; - - nthorns = CCTK_NumCompiledThorns(); - - thorns = (const char **)malloc(nthorns * sizeof(char *)); + int nthorns = CCTK_NumCompiledThorns(); + const char **thorns = (const char **)malloc(nthorns * sizeof(char *)); for(i=0; i < nthorns; i++) { @@ -1234,42 +1279,45 @@ static int ControlTerminationPage(const cGH *cctkGH, httpRequest *request) /* Sort the thorns */ qsort(thorns, nthorns, sizeof(char *), CompareStrings); - strcpy(message, "

Compiled thorns:

" - "

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

" - "

Compiled thorns:

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

"); + ConcatCString(message, "
"); if (CCTK_IsThornActive(thorns[i])) { - sprintf(message,"%s%s\n", message, thorns[i]); + ConcatCString(message, " "); + ConcatCString(message, thorns[i]); + ConcatCString(message, " "); } else { - sprintf(message, "%s%s\n", message, thorns[i]); + ConcatCString(message, thorns[i]); } + ConcatCString(message, "

\n"); free(thorns); } - HTTP_Write(request, message, strlen(message)); + Send_HTTP_String(request, message); /* Finish table started by blurb */ - strcpy(message, "

"); - - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "

\n"); /* Write out the footer part. */ - HTTP_ContentFooter(cctkGH,0,4098,message); - retval = HTTP_Write(request, message, strlen(message)); + SetHTML_ContentFooter(cctkGH,0,message); + retval = Send_HTTP_String(request, message); + + String_Delete( message ); return retval; } @@ -1289,12 +1337,12 @@ static int ControlTerminationPage(const cGH *cctkGH, httpRequest *request) @@*/ int HTTP_ContentSendFromFile(httpRequest *request, int filedes) { - int bytes_sent; - int n_bytes; - char buffer[4098]; + int bytes_sent = 0; + int n_bytes = 0; + char buffer[4098] = EMPTYSTRING; bytes_sent = 0; - while((n_bytes = read(filedes, buffer,4098)) > 0) + while((n_bytes = read(filedes, buffer,sizeof(buffer))) > 0) { HTTP_Write(request, buffer, n_bytes); bytes_sent += n_bytes; @@ -1309,7 +1357,6 @@ int HTTP_ContentSendFromFile(httpRequest *request, int filedes) } - /*@@ @routine AboutPage @date Sun Sep 17 2000 @@ -1322,60 +1369,54 @@ int HTTP_ContentSendFromFile(httpRequest *request, int filedes) @@*/ static int AboutPage(const cGH *cctkGH, httpRequest *request, void *data) { - int retval; - char message[4098]; + int retval = -1; + String *message = String_New(); /* avoid compiler warning about unused parameter */ data = data; - /* 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)); + SendHTTP_OK_Header( request ); + SetHTML_Doctype( message ); + Send_HTTP_String(request, message); /* Start the page */ - strcpy(message, "About Cactus Server\n"); - HTTP_ContentHeader(cctkGH,0,4098,message,NULL); - strcat(message,""); - HTTP_Write(request, message, strlen(message)); + SetToCString(message, "\nAbout Cactus Server\n"); + SetHTML_HeadHeader( message); + Send_HTTP_String(request, message ); - strcpy(message, ""); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "\n\n"); + SetHTML_ContentHeader(cctkGH,0,message,NULL); + Send_HTTP_String(request, message); - strcpy(message, "

About this Web Server

"); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "

About this Web Server

\n"); - strcpy(message, "

These web pages are served by a simulation " - "which is using the Cactus Code and Computational ToolKit, " + 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 " - "modular programming environment for HPC.

" - "

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

" - "

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

"); + " 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_Write(request, message, strlen(message)); + retval = Send_HTTP_String(request, message); - strcpy(message, "

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

"); + SetToCString(message, "

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

\n"); - retval = HTTP_Write(request, message, strlen(message)); + retval = Send_HTTP_String(request, message); /* Write out the footer part. */ - HTTP_ContentFooter(cctkGH,0,4098,message); - retval = HTTP_Write(request, message, strlen(message)); + SetHTML_ContentFooter(cctkGH,0,message); + retval = Send_HTTP_String(request, message); + String_Delete( message); return retval; } @@ -1397,18 +1438,16 @@ static int AboutPage(const cGH *cctkGH, httpRequest *request, void *data) @@*/ static int CookieTestPage(const cGH *cctkGH, httpRequest *request, void *data) { - int retval; - char message[4098]; - const char *value; - char *value2; + int retval = -1; + String *message = String_New(); + const char *value = NULL; + char *value2 = NULL; /* avoid compiler warning about unused parameter */ data = data; /* Status message */ - strcpy(message,"HTTP/1.0 200 OK\r\n"); - - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request,"HTTP/1.0 200 OK\r\n"); /* Cookie */ HTTP_CookieSend(request, "user1", "foobar4", NULL,NULL,NULL,0); @@ -1419,45 +1458,49 @@ static int CookieTestPage(const cGH *cctkGH, httpRequest *request, void *data) HTTP_CookieSend(request, "user4", "foobar1", NULL,NULL,NULL,0); - strcpy(message,"Content-Type: text/html\r\n\r\n"); - - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request,"Content-Type: text/html\r\n\r\n"); + SetHTML_Doctype( message ); + Send_HTTP_String(request, message); /* Start the page */ - strcpy(message, "Cookie Test\n"); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "Cookie Test\n"); + SetHTML_HeadHeader( message); + Send_HTTP_String(request, message ); - HTTP_ContentHeader(cctkGH,0,4098,message,NULL); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "\n\n"); - strcat(message, "

Cookie Test

"); + SetHTML_ContentHeader(cctkGH,0,message,NULL); + Send_HTTP_String(request, message); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "

Cookie Test

\n"); - strcpy(message, ""); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request, "

"); value = HTTP_HeaderValue(request, "Cookie"); - sprintf(message, "

Cookie was '%s'

\n", value); + SetToCString(message, "

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

\n"); - HTTP_Write(request, message, strlen(message)); + Send_HTTP_String(request, message); value2 = HTTP_CookieGet(request,"user3"); - sprintf(message, "

Cookie from decoder was '%s'

\n", value2); + SetToCString(message, "

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

\n"); free(value2); - HTTP_Write(request, message, strlen(message)); + Send_HTTP_String(request, message); - strcpy(message,"

"); - HTTP_Write(request, message, strlen(message)); + Send_HTTP(request,"\n"); /* Write out the footer part. */ - HTTP_ContentFooter(cctkGH,0,4098,message); - retval = HTTP_Write(request, message, strlen(message)); + SetHTML_ContentFooter(cctkGH,0,message); + retval = Send_HTTP_String(request, message); + String_Delete( message ); return retval; } -- cgit v1.2.3

Active Thorns:

%s

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

Available options:

Available options:

Simulation:

Control and Status Page

Control and Status Page

Run Control

Run Control

Run Until

Run Until

Simulation Home Page

Simulation Home Page

Simulation web server:

Simulation web server:

Simulation:

Simulation:

Current state:

Current state:

Compiled thorns:

Compiled thorns:

About this Web Server

About this Web Server

Cookie Test

Cookie Test