* USE OR PERFORMANCE OF THIS SOFTWARE.
*
* $Log: wsh.c,v $
- * Revision 1.1 1995/10/20 11:49:28 adam
+ * Revision 1.14 2001/02/26 14:32:36 adam
+ * Updated for YAZ 1.7. HTML output tidy up. Added LOC target.
+ *
+ * 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
+ * First version of WWW gateway with embedded Tcl.
+ *
+ * Revision 1.1 1995/10/20 11:49:28 adam
* First version of www gateway.
*
*/
#include <stdio.h>
#include <stdlib.h>
-#include <strings.h>
-#include <assert.h>
-#include <unistd.h>
-#include <ctype.h>
-
-#include "wproto.h"
-
-#define TIMEOUT_SHORT 300
-#define TIMEOUT_MEDIUM 1800
-#define TIMEOUT_LONG 7200
-
-static WCLIENT wcl;
-static char *mod = "wsh";
+#include <string.h>
+#include "whtml.h"
+#include "wtcl.h"
+#include "wirtcl.h"
int main (int argc, char **argv)
{
- char *argument, *p, parms[512];
- int timeout = TIMEOUT_SHORT;
+ W_Interp_Type w_interp_type;
- chdir("/usr/local/etc/httpd/cgi-bin");
- gw_log_init ("egw");
- 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");
-
- if (!(wcl = wproto_init()))
- {
- gw_log (GW_LOG_FATAL, mod, "init");
- exit(1);
- }
- while (wproto_process(wcl, timeout) > 0)
+ if (!strcmp (*argv, "egwtcl"))
+ w_interp_type = w_interp_tcl;
+ else if (!strcmp (*argv, "egwirtcl"))
+ w_interp_type = w_interp_irtcl;
+ else if (!strcmp (*argv, "egwhtml"))
+ w_interp_type = w_interp_html;
+ else
{
- wo_clear(wcl, "text/html");
- wo_printf(wcl, "<HTML><TITLE>INDEX</TITLE>\n");
- strcpy(parms, wcl->wf_parms);
- argument = p = parms;
- while (*p && *p != '/')
- p++;
- if (*p == '/')
- *(p++) = '\0';
- gw_log (GW_LOG_DEBUG, mod, "command: %s", argument);
- wo_printf (wcl, "<BODY>hej - %s</BODY>\n", argument);
- wo_finish(wcl);
+ gw_log (GW_LOG_FATAL, "wsh", "Cannot determine shell type. prog=%s",
+ *argv);
+ exit (1);
}
- wproto_terminate(wcl);
- return 0;
+ wshmain (argc, argv, w_interp_type);
+ exit (0);
}
+
+