Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
COM	[ DIR ]	drwxr-xr-x
My	[ DIR ]	drwxr-xr-x
SOAP	[ DIR ]	drwxr-xr-x
UDDI	[ DIR ]	drwxr-xr-x
WSDL	[ DIR ]	drwxr-xr-x
XML	[ DIR ]	drwxr-xr-x
XMLRPC	[ DIR ]	drwxr-xr-x
forms	[ DIR ]	drwxr-xr-x
server	[ DIR ]	drwxr-xr-x
allclients.pl	1.3 KB	-rw-r--r--
authentication.pl	1.1 KB	-rw-r--r--
autoexamples.pl	890 B	-rw-r--r--
chat.pl	1.1 KB	-rw-r--r--
compress.pl	488 B	-rw-r--r--
cookie.pl	458 B	-rw-r--r--
cookieauth.pl	386 B	-rw-r--r--
customschema.pl	3.12 KB	-rw-r--r--
fullsearch.pl	1023 B	-rw-r--r--
getdom.pl	1.77 KB	-rw-r--r--
google.pl	886 B	-rw-r--r--
inline.daemon	672 B	-rw-r--r--
iterator.pl	866 B	-rw-r--r--
joke.pl	469 B	-rw-r--r--
oneliners	187 B	-rw-r--r--
oo-apache.pl	798 B	-rw-r--r--
parametersbyname.pl	979 B	-rw-r--r--
pingpong.pl	1.01 KB	-rw-r--r--
soapmark.pl	1.92 KB	-rw-r--r--
soapsmtp.pl	768 B	-rw-r--r--
tcpclient.pl	572 B	-rw-r--r--
terraserver.pl	1.29 KB	-rw-r--r--
weblog.pl	480 B	-rw-r--r--

Code Editor : customschema.pl

#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

# example that shows how to handle types specified in other schemas

package EncodedTypes;

sub as_TickDirection { $_[1] }
sub as_Exchanges { $_[1] }

package main;

use SOAP::Lite;

$d = SOAP::Deserializer->new;
$d->xmlschemas->{'http://marketdata.earthconnect.net/encodedTypes'} = 'EncodedTypes';

$r = $d->deserialize(q!<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:tns="http://marketdata.earthconnect.net/"
xmlns:types="http://marketdata.earthconnect.net/encodedTypes"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">

<soap:Body soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<tns:GetProfessionalQuoteResponse>
  <GetProfessionalQuoteResult href="#id1" />
</tns:GetProfessionalQuoteResponse>

<soapenc:Array id="id1" soapenc:arrayType="types:ProfessionalQuote[1]">
  <Item href="#id2" />
</soapenc:Array>

<types:ProfessionalQuote id="id2" xsi:type="types:ProfessionalQuote">
  <CompanyName xsi:type="xsd:string">EarthConnect Corporation</CompanyName>
  <LastPrice xsi:type="xsd:decimal">66.7</LastPrice>
  <LastPriceTime xsi:type="xsd:dateTime">2001-07-17T14:19:45.3310450-07:00</LastPriceTime>
  <Change xsi:type="xsd:decimal">0.34</Change>
  <Volume xsi:type="xsd:long">23456778</Volume>
  <Tick xsi:type="types:TickDirection">Down</Tick>
  <Bid xsi:type="xsd:decimal">88.21</Bid>
  <Ask xsi:type="xsd:decimal">88.22</Ask>
  <BidSize xsi:type="xsd:int">300</BidSize>
  <AskSize xsi:type="xsd:int">5800</AskSize>
  <DayLow xsi:type="xsd:decimal">64.8987</DayLow>
  <DayHigh xsi:type="xsd:decimal">68.4356</DayHigh>
  <Open xsi:type="xsd:decimal">87.43</Open>
  <PreviousClose xsi:type="xsd:decimal">86.34</PreviousClose>
  <LastTradeVolume xsi:type="xsd:int">640</LastTradeVolume>
  <Exchange xsi:type="types:Exchanges"> one of NASDAQ or NYSE or AMEX or INDEX</Exchange>
  <Valid href="#id3" />
</types:ProfessionalQuote>

<types:ProfessionalQuoteValues id="id3" xsi:type="types:ProfessionalQuoteValues">
  <CompanyName xsi:type="xsd:boolean">false</CompanyName>
  <LastPrice xsi:type="xsd:boolean">false</LastPrice>
  <LastPriceTime xsi:type="xsd:boolean">false</LastPriceTime>
  <Change xsi:type="xsd:boolean">false</Change>
  <Volume xsi:type="xsd:boolean">false</Volume>
  <Tick xsi:type="xsd:boolean">false</Tick>
  <Bid xsi:type="xsd:boolean">false</Bid>
  <Ask xsi:type="xsd:boolean">false</Ask>
  <BidSize xsi:type="xsd:boolean">false</BidSize>
  <AskSize xsi:type="xsd:boolean">false</AskSize>
  <DayLow xsi:type="xsd:boolean">false</DayLow>
  <DayHigh xsi:type="xsd:boolean">false</DayHigh>
  <Open xsi:type="xsd:boolean">false</Open>
  <PreviousClose xsi:type="xsd:boolean">false</PreviousClose>
  <LastTradeVolume xsi:type="xsd:boolean">false</LastTradeVolume>
</types:ProfessionalQuoteValues>
</soap:Body>

</soap:Envelope>!)->result;

print "Tick (types:TickDirection): ", $r->[0]->{Tick}, "\n";
print "Exchange (types:Exchanges): ", $r->[0]->{Exchange}, "\n";

${this.title}

Code Editor : customschema.pl