Some things you may want to look at... AMF::Perl http://www.simonf.com/flap/ WebORB for .NET http://www.themidnightcoders.com/weborb/dotnet/
--- In [email protected], Cameron <[EMAIL PROTECTED]> wrote: > > I figured out my own answer if anyone is interested. The first part of > the "response" from perl needs to be "Content-type:text/xml\n\n" with > two \n's at the end. I only had one. Putting the second one in worked > for retuning XML to my resultFormat="object". This is nice. Now I can > use my old perl scripts. > > Cameron wrote: > > > > I've set up a test just to see if I can make it work. I have a program > > which needs to run some remote functions inside a perl script mostly > > because there just isn't a better way to do it. I make a call to the > > perl script using the httpservice and it all works fine except for the > > return result. I know the perl script is executing because I have it > > write the data to a file as well as try to write it back to the stream, > > but no matter how I try to return it, I get an http request error. I've > > tried setting the resultFormat to "object" and "printing" a string > > variable which is composed of XML data from perl, but no luck. I also > > tried printing the XML directly to the stream...no go. I've tried using > > resultFormat="text" and "printing" the data from perl as html, but also > > without success. Does anyone know how I can actually get a return from > > the perl? > > FWIW...the perl script is telneting to a router, pinging a private ip > > address within the router, and returning the result. I know I could > > re-write this in PHP, but my server is Windows and doesn't have php. All > > the rest of my program and scripts are in .net. > > code sample is below: > > > > <script>... > > > > //function to ping customer radios for diagnostics > > private function ping_cust():void{ > > PingCustSvc.url = "http://www.myurl.com/pingcust.pl > > <http://www.myurl.com/pingcust.pl>"; > > PingCustSvc.method = "POST"; > > > > var Obj:Object = new Object(); > > Obj.w = wispid; > > Obj.cid = tgtdata; > > Obj.rip = CustInfRouterIP.text; > > Obj.cpeip = CustInfCpeIP.text; > > > > PingCustSvc.send(Obj); > > > > } > > > > //handler for ping customer result > > public function PingResult(event:ResultEvent):void{ > > response = event.result.pings.ping; > > for (var i:int = 0; i < response.length; ++i) { > > var resstr:String = resstr + response[i].result + "\n"; > > } > > //var resstr:String = event.result.toString(); //attempt to > > get data if it comes as string > > Alert.show(resstr, "Ping Results"); > > } > > > > //httpservice fault handler > > public function handleFault(event:FaultEvent):void > > { > > > > var faultstr:String = event.fault.faultDetail; > > Alert.show(event.fault.faultString, "Error"); > > } > > ... > > </script> > > > > <mx:HTTPService id="PingCustSvc" result="PingResult(event)" > > fault="handleFault(event)" useProxy="false" method="POST" > > resultFormat="object" /> > > > > >
