X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fwsh.c;h=9ee4a1424c785bdb979ef7d0bb6e0bf3018ea020;hb=0869c05bd5a456f027823ca0783216acf4424b65;hp=990d141120803af48f27ed9841e2e9e3d9d73ef0;hpb=5414eafed41a60ef3625cfc6770184b36016186e;p=egate.git

diff --git a/www/wsh.c b/www/wsh.c
index 990d141..9ee4a14 100644
--- a/www/wsh.c
+++ b/www/wsh.c
@@ -41,7 +41,45 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wsh.c,v $
- * Revision 1.3  1995/10/23 16:55:41  adam
+ * Revision 1.13  1996/02/29 15:36:34  adam
+ * Main shell loop implemented as a separate function called wshmain.
+ *
+ * Revision 1.12  1996/02/19  15:45:00  adam
+ * Sort of targets in multiple-targets selection.
+ *
+ * Revision 1.11  1996/02/12  10:10:32  adam
+ * Resource/config system used by the gateway.
+ *
+ * Revision 1.10  1996/01/12  10:05:22  adam
+ * If script name ends with ';' HTTP/GET/Expires will be defined.
+ * The cgi interface only reads final handshake if response from
+ * server (shell) was zero-terminated [If it isn't it probably died].
+ *
+ * Revision 1.9  1996/01/09  10:46:51  adam
+ * New defines: LOGDIR/EGWDIR/CGIDIR set in Makefile.
+ *
+ * Revision 1.8  1995/12/20  16:31:33  adam
+ * Bug fix: shell might terminate even though new request was initiated
+ * by the cgi interface program.
+ * Work on more simple user interface and Europagate buttons.
+ *
+ * Revision 1.7  1995/11/06  17:44:23  adam
+ * State reestablised when shell restarts. History of previous
+ * result sets.
+ *
+ * Revision 1.6  1995/11/06  10:51:19  adam
+ * End of response marker in response from wsh/wproto to wcgi.
+ * Shells are respawned when necessary.
+ *
+ * Revision 1.5  1995/11/01  16:15:48  adam
+ * Better presentation of records. Query/set number persistent.
+ *
+ * Revision 1.4  1995/10/27  15:12:12  adam
+ * IrTcl incorporated in the gateway.
+ * Better separation of script types.
+ * Z39.50 gateway scripts entered.
+ *
+ * Revision 1.3  1995/10/23  16:55:41  adam
  * A lot of changes - really.
  *
  * Revision 1.2  1995/10/20  14:02:42  adam
@@ -53,95 +91,28 @@
  */
 
 #include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <assert.h>
-#include <unistd.h>
-#include <ctype.h>
-
-#include "winterp.h"
-
-#define TIMEOUT_SHORT 60
-#define TIMEOUT_MEDIUM 1800
-#define TIMEOUT_LONG 7200
-
-static WCLIENT wcl;
-static char *mod = "wsh";
+#include "whtml.h"
+#include "wtcl.h"
+#include "wirtcl.h"
 
 int main (int argc, char **argv)
 {
-    char *script, *parms, parms_buf[512];
-    int timeout = TIMEOUT_SHORT;
-    W_Interp w_interp;
+    W_Interp_Type w_interp_type;
 
-    chdir("/usr/local/etc/httpd/cgi-bin");
-    gw_log_init (*argv);
-    gw_log_file (GW_LOG_ALL, "/usr/local/etc/httpd/logs/egwsh_log");
-    gw_log_level (GW_LOG_ALL);
-    gw_log (GW_LOG_STAT, mod, "Europagate www shell: %s", *argv);
-    
-    if (!(wcl = wproto_init()))
-    {
-    	gw_log (GW_LOG_FATAL, mod, "init");
-    	exit(1);
-    }
-    gw_log_session (wcl->id);
     if (!strcmp (*argv, "egwtcl"))
-        w_interp = w_interp_create (w_interp_tcl, wcl, NULL);
+        w_interp_type = w_interp_tcl;
+    else if (!strcmp (*argv, "egwirtcl"))
+        w_interp_type = w_interp_irtcl;
     else if (!strcmp (*argv, "egwhtml"))
-        w_interp = w_interp_create (w_interp_html, wcl, NULL);
+        w_interp_type = w_interp_html;
     else
     {
-        gw_log (GW_LOG_FATAL, mod, "Cannot determine shell type. prog=%s",
+        gw_log (GW_LOG_FATAL, "wsh", "Cannot determine shell type. prog=%s",
 	        *argv);
         exit (1);
     }
-    while (wproto_process(wcl, timeout) > 0)
-    {
-    	wo_clear (wcl, "text/html");
-	strcpy (parms_buf, wcl->wf_parms);
-    	script = parms = parms_buf;
-    	while (*parms && *parms != '/')
-	    parms++;
-	if (*parms == '/')
-	    *parms++ = '\0';
-        if (*script)
-        {
-            char *p = script + strlen(script) - 1;
-            while (*p && p != script)
-                switch (*p)
-                {
-                case '+':
-                    wproto_cache (wcl, wcl->cache_level+1);
-                    *p = '\0';
-                    break;
-                case '-':
-                    if (p[1])
-                        wproto_cache (wcl, wcl->cache_level-atoi(p+1));
-                    else
-                        wproto_cache (wcl, wcl->cache_level-1);
-                    *p = '\0';
-                    break;
-                case '=':
-                    if (isdigit(p[1]))
-                        wproto_cache (wcl, atoi(p+1));
-                    *p = '\0';
-                    break;
-                default:
-                    --p;
-                }
-        }
-	gw_log (GW_LOG_DEBUG, mod, "script: %s", script);
-	gw_log (GW_LOG_DEBUG, mod, "parms: %s", parms);
-        if (w_interp_exec (w_interp, script, parms))
-        {
-            wo_printf (wcl, "<html><head><title>wsh error</title></head>\n");
-            wo_printf (wcl, "<body>Couldn't execute script %s</body></html>",
-                       script);
-        }
-	wo_finish(wcl);
-    }
-    wproto_terminate(wcl);
-    return 0;
+    wshmain (argc, argv, w_interp_type);
+    exit (0);
 }
 
+