IrTcl incorporated in the gateway.

[egate.git] / www / wsh.c

diff --git a/www/wsh.c b/www/wsh.c
index 990d141..a67590a 100644 (file)
--- a/www/wsh.c
+++ b/www/wsh.c
@@ -41,7 +41,12 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: wsh.c,v $
- * Revision 1.3  1995/10/23 16:55:41  adam
+ * 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
@@ -59,7 +64,9 @@
 #include <unistd.h>
 #include <ctype.h>
 
-#include "winterp.h"
+#include "whtml.h"
+#include "wtcl.h"
+#include "wirtcl.h"
 
 #define TIMEOUT_SHORT 60
 #define TIMEOUT_MEDIUM 1800
@@ -88,6 +95,8 @@ int main (int argc, char **argv)
     gw_log_session (wcl->id);
     if (!strcmp (*argv, "egwtcl"))
         w_interp = w_interp_create (w_interp_tcl, wcl, NULL);
+    else if (!strcmp (*argv, "egwirtcl"))
+        w_interp = w_interp_create (w_interp_irtcl, wcl, NULL);
     else if (!strcmp (*argv, "egwhtml"))
         w_interp = w_interp_create (w_interp_html, wcl, NULL);
     else
@@ -103,7 +112,7 @@ int main (int argc, char **argv)
        script = parms = parms_buf;
        while (*parms && *parms != '/')
            parms++;
-       if (*parms == '/')
+       if (*parms)
            *parms++ = '\0';
         if (*script)
         {