X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=www%2Fwsh.c;h=a67590a45146f60bbe810d73512409d258b4dd53;hb=a6f3beb071fe8c894ee6c846c86296c84f48e3d4;hp=990d141120803af48f27ed9841e2e9e3d9d73ef0;hpb=d66a4b9debb168d9a03368429bcc933c57553c74;p=egate.git

diff --git a/www/wsh.c b/www/wsh.c
index 990d141..a67590a 100644
--- 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)
         {