X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fwinterp.c;h=c2a7faf254bc4305da204159075fcf78dee2d625;hb=5b5e33eaf7afda11d555540e3f15ac2d49d245a6;hp=61b03886bea8ff57e9fbd2eff63fff0f01b491ae;hpb=f37ddd57014f51c88ef36050ed08b4c6e226e094;p=egate.git

diff --git a/www/winterp.c b/www/winterp.c
index 61b0388..c2a7faf 100644
--- a/www/winterp.c
+++ b/www/winterp.c
@@ -41,7 +41,10 @@
  * USE OR PERFORMANCE OF THIS SOFTWARE.
  *
  * $Log: winterp.c,v $
- * Revision 1.1  1995/10/20 14:02:41  adam
+ * Revision 1.2  1995/10/23 16:55:38  adam
+ * A lot of changes - really.
+ *
+ * Revision 1.1  1995/10/20  14:02:41  adam
  * First version of WWW gateway with embedded Tcl.
  *
  */
@@ -53,7 +56,7 @@
 
 static char *mod = "winterp";
 
-W_Interp w_interp_create (W_Interp_Type type, void *args)
+W_Interp w_interp_create (W_Interp_Type type, WCLIENT wcl, void *args)
 {
     W_Interp p = malloc (sizeof(*p));
     gw_log (GW_LOG_DEBUG, mod, "Creating w_interp: %s", type->name);
@@ -63,6 +66,6 @@ W_Interp w_interp_create (W_Interp_Type type, void *args)
         exit (1);
     }
     p->ctrl = type;
-    p->mydata = (*p->ctrl->create)(args);
+    p->mydata = (*p->ctrl->create)(wcl, args);
     return p;
 }