[ic] SOAP access to Interchange

[Mike Heins]

Quoting Chris Sendall (cjs2 at admin.cam.ac.uk):
 
> Mike
> Thanks for looking at this
> 
> I needed to add use Vend::Dispatch to Server.pm
> and include open_cat in the export in Dispatch.pm
> 
> However the script then hangs - (where would STDERR go at this point?)
> 

I wondered what the effect of open_database would be...

Try removing all that and putting in the same place as
you had the open_cat() call:

        $::Variable = $Vend::Cfg->{Variable};
        $::Pragma = $Vend::Cfg->{Pragma};

i.e. a patch against the distribution Vend::Server:

--- /r/Server.pm	2004-07-27 19:48:35.000000000 -0500
+++ /rt/Server.pm	2005-04-19 09:13:49.839197576 -0500
@@ -1883,6 +1883,10 @@
 			}
 			else {
 #::logDebug("we have our SOAP enable, entity is $entity");
+
+				$::Variable = $Vend::Cfg->{Variable};
+				$::Pragma = $Vend::Cfg->{Pragma};
+
 				($Vend::SessionID, $CGI::cookiehost) = split /:/, $env{SESSION_ID};
 #::logDebug("Received ID=$Vend::SessionID, host='$CGI::cookiehost'");
 				$Vend::NoInterpolate = 1

-- 
Mike Heins
Perusion -- Expert Interchange Consulting    http://www.perusion.com/
phone +1.765.647.1295  tollfree 800-949-1889 <mike at perusion.com>

Opportunity is missed by most people because it is dressed in
overalls and looks like work. -- Thomas Edison