/*****************************************************************************/
/*
                                sHTTPDmon.c

Pronounced: ess-http-dee-mon

A CGI executable, browser viewable monitor, using the underlying HTTPDmon
executing in a PTD subprocess with the ANSI screen sequences converted into
HTML.

Also see SCREPER.C code.

Must be subject to WASD_CONFIG_AUTH authorisation!



HOW IT WORKS
------------
This was really just an exercise in screen-scraping the output of a "regular"
command-line application onto a browser HTML page.  The script uses JavaScript
and the HTML DOM to build and populate that page.

The script has two modes of operation.

   1) build the browser page with display element
   2) populate the display element with output from the CLI application

The /build/ mode provides a browser page with the basic HTML/CSS/JavaScript
resources.  Inside that page an XMLHttpRequest() initiates the execution of
another instance of the script this time with a query-string.

The presence of the query-string initiates the /populate/ mode where the script
uses the pseudo-terminal driver (PTD) to create a terminal session and then
spawn a subprocess attached to that terminal.  In that subprocess the CLI
application (in this case HTTPDmon) is invoked and its output to the
pseudo-terminal processed (scraped) to be HTML-escaped and otherwise munged for
representative display in the display element.  This munged output is
transmitted back to the browser XMLHttpRequest() in these chunks.  Each chunk
is parsed from the total output and displayed as that chunk.

Screen scraper code in module SCREPER.C



REQUIRED PRIVILEGES
-------------------
Same as required for HTTPDmon, so...

$ INSTALL REPLACE CGI-BIN:[000000]SHTTPDMON /PRIVILEGE=(SYSPRV,SYSLCK,WORLD)



COPYRIGHT
---------
Copyright (C) 2021-2023 Mark G.Daniel

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

   http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.



VERSION LOG
-----------
18-SEP-2022  MGD  implement CSP same-origin 'strict-dynamic' constraints
28-MAY-2021  MGD  initial
*/
/*****************************************************************************/

#define SOFTWAREVN "v1.1.0"
#define SOFTWARENM "SHTTPDMON"
#ifdef __ALPHA
#  define SOFTWAREID SOFTWARENM " " SOFTWAREVN " AXP"
#endif
#ifdef __ia64
#  define SOFTWAREID SOFTWARENM " " SOFTWAREVN " IA64"
#endif
#ifdef __x86_64
#  define SOFTWAREID SOFTWARENM " " SOFTWAREVN " X86"
#endif

#include <ctype.h>
#include <descrip.h>
#include <errno.h>
#include <fcntl.h>
#include <in.h>
#include <ints.h>
#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#include <stat.h>
#include <unistd.h>
#include <unixio.h>

#include <dvidef.h>
#include <iodef.h>
#include <iosbdef.h>
#include <jpidef.h>
#include <libdef.h>
#include <lib$routines.h>
#include <starlet.h>
#include <ssdef.h>
#include <syidef.h>

#include "screper.h"

#define FI_LI "SHTTPMON",__LINE__

#ifndef UINT64PTR
/* mainly to allow easy use of the __unaligned directive */
#define UINTPTR __unaligned unsigned int*
#define ULONGPTR __unaligned unsigned long*
#define USHORTPTR __unaligned unsigned short*
#define UINT64PTR __unaligned uint64*
#define INT64PTR __unaligned int64*
#endif

int  dbug = 0,
     begun,
     inspect;
      
char  *CgiQueryString,
      *CgiRemoteUser,
      *CgiServerSoftware;

char  ScriptName [64];

char  *MonStyle =
"<style type=\"text/css\">\n\
body { font-family:arial,verdana,helvetica,sans; font-size:11pt; \
background-color:white; color:black; margin:1em; }\n\
h1 { font-size:1.3em; }\n\
.problem { color:red; }\n\
</style>\n";

/* prototypes */
void sHttpdMonExit (int, int);

/*****************************************************************************/
/*
*/

int main (int argc, char *argv[])

{
   static unsigned long  JpiPidItem = JPI$_PID;
   static unsigned long  SyiNodeNameItem = SYI$_NODENAME;
   static char  SyiNodeName [16];
   static $DESCRIPTOR (SyiNodeNameDsc, SyiNodeName);

   int  status;
   ushort  slen;
   char  *cptr, *rptr, *sptr, *zptr;;
   char  scrdo [128];
   void  *scrptr;

   /*********/
   /* begin */
   /*********/

   if (argc > 1)
   {
      if (!strncasecmp (argv[1], "/VERSION", 4))
         fprintf (stdout, "%s\n%s\n", SOFTWAREID, ScreperDo(NULL,"-version"));
      exit (SS$_NORMAL);
   }

   if (!(stdout = freopen ("SYS$OUTPUT", "w", stdout, "ctx=bin")))
      sHttpdMonExit (vaxc$errno, __LINE__);

   lib$getsyi (&SyiNodeNameItem, 0, &SyiNodeNameDsc, &slen, 0, 0);
   SyiNodeName[slen] = '\0';

   if (!(CgiServerSoftware = getenv ("WWW_SERVER_SOFTWARE")))
      CgiServerSoftware = getenv ("SERVER_SOFTWARE");

   if (!CgiServerSoftware) sHttpdMonExit (SS$_NORMAL, __LINE__);

   if (cptr = getenv ("SHTTPDMON_INSPECT"))
      inspect = atol (cptr);

   if (!(CgiRemoteUser = getenv ("SHTTPDMON_REMOTE_USER")))
      if (!(CgiRemoteUser = getenv ("WWW_REMOTE_USER")))
         if (!(CgiRemoteUser = getenv ("REMOTE_USER")))
            CgiRemoteUser = "";

   if (!*CgiRemoteUser)
   {
      fprintf (stdout,
"Status: 403 Forbidden\r\n\
Content-Type: text/html\r\n\
\r\n\
<!DOCTYPE html>\n\
<html>\n\
<head>\n\
<meta name=\"generator\" content=\"%s\">\n\
<title>%s:: %s</title>\n\
%s\
</head>\n\
<body>\n\
<pre><span class=\"problem\">authorization failure</span></pre>\n\
</body>\n\
</html>\n",
               SOFTWAREID, SyiNodeName, ScriptName, MonStyle);
      sHttpdMonExit (SS$_NORMAL, __LINE__);
   }

   if (!(CgiQueryString = getenv ("WWW_QUERY_STRING")))
      if (!(CgiQueryString = getenv ("QUERY_STRING")))
         CgiQueryString = "";

   strcpy (ScriptName, "sHTTPDmon"); 

   scrptr = ScreperInit ();

   if (strstr (CgiQueryString, "populate="))
   {
      /************/
      /* populate */
      /************/

      /* facilitate development - no referer then is populate=1 directly */
      if (!(rptr = getenv ("WWW_HTTP_REFERER")))
         rptr = getenv ("HTTP_REFERER");

      if (inspect && rptr)
         fprintf (stdout,
"Status: 200 OK\r\n\
Content-Type: text/plain\r\n\
Script-Control: X-record-mode=1\r\n\
%s\
\n\n",
                  ScreperDo(scrptr,"-csp"));
      else
         fprintf (stdout,
"Status: 200 OK\r\n\
Content-Type: text/html\r\n\
Script-Control: X-stream-mode=1\r\n\
Script-Control: X-timeout-output=none\r\n\
Script-Control: X-content-encoding-gzip=0\r\n\
%s\
\r\n",
                  ScreperDo(scrptr,"-csp"));

      fflush (stdout);
      begun = 1;

      if (!rptr)
         /* no referer then is populate=1 directly */
         fprintf (stdout, "<!DOCTYPE html>\n<html>\n%s<body>\n<pre>\n",
                  ScreperDo(scrptr,"-css"));

      sprintf (scrdo, "-inspect=%d -utility=\"%s\" -page=32 -snap=10 -dcl=\
SET PROCESS /PRIVILEGE=(SYSPRV,SYSLCK,WORLD)\n\
@WASD_FILE_DEV\n\
HTTPDMON = \"$HT_EXE:HTTPDMON\"\n\
HTTPDMON /STATUS", inspect, "sHTTPDmon");

      sptr = ScreperDo(scrptr, scrdo);
      if (*(USHORTPTR)sptr == '%X')
         status = strtol (sptr+2, NULL, 16);
      else
         status = SS$_BUGCHECK;

      sHttpdMonExit (status, __LINE__);
   }
   else
   {
      /**************/
      /* build page */
      /**************/

      fprintf (stdout,
"Status: 200 OK\r\n\
Content-Type: text/html\r\n\
Script-Control: X-stream-mode\r\n\
%s\
\r\n\
<!DOCTYPE html>\n\
<html>\n\
<head>\n\
<meta name=\"generator\" content=\"%s\">\n\
<title>%s:: %s</title>\n\
%s\
%s\
<style type=\"text/css\">\n\
.problem { color:red; }\n\
</style>\n\
</head>\n\
<body>\n\
%s\
</body>\n\
</html>\n",
               ScreperDo(scrptr,"-csp"),
               SOFTWAREID, SyiNodeName, ScriptName,
               ScreperDo(scrptr,"-css"),
               ScreperDo(scrptr,"-javascript"),
               ScreperDo(scrptr,"-screen"));
      begun = 1;
   }

   sHttpdMonExit (SS$_NORMAL, __LINE__);
}

/*****************************************************************************/
/*
Provide some WATCHable exit information.
*/

void sHttpdMonExit (int status, int line)

{
   /*********/
   /* begin */
   /*********/

   if (!begun)
      fputs ("Status: 200 OK\r\n\
Content-Type: text/plain\r\n\
Script-Control: X-record-mode=1\r\n\
\r\n", stdout);

    fprintf (stdout, "\n<!-- sHTTPDmon:%d %%X%08.08X -->\n", line, status);

    exit (status);
}

/*****************************************************************************/