~dangarner/xibo/334359

function serializeEnvelope($body,$headers=false,$namespaces=array(),$style='rpc',$use='encoded',$encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'){

675

// TODO: add an option to automatically run utf8_encode on $body and $headers

676

// if $this->soap_defencoding is UTF-8. Not doing this automatically allows

677

// one to send arbitrary UTF-8 characters, not just characters that map to ISO-8859-1

678

679

$this->debug("In serializeEnvelope length=" . strlen($body) . " body (max 1000 characters)=" . substr($body, 0, 1000) . " style=$style use=$use encodingStyle=$encodingStyle");

680

$this->debug("headers:");

681

$this->appendDebug($this->varDump($headers));

682

$this->debug("namespaces:");

683

$this->appendDebug($this->varDump($namespaces));

684

685

// serialize namespaces

686

$ns_string = '';

687

foreach(array_merge($this->namespaces,$namespaces) as $k => $v){

688

$ns_string .= " xmlns:$k=\"$v\"";

689

}

690

if($encodingStyle) {

691

$ns_string = " SOAP-ENV:encodingStyle=\"$encodingStyle\"$ns_string";

692

}

693

694

// serialize headers

695

if($headers){

696

if (is_array($headers)) {

697

$xml = '';

698

foreach ($headers as $k => $v) {

699

if (is_object($v) && get_class($v) == 'soapval') {

700

$xml .= $this->serialize_val($v, false, false, false, false, false, $use);

701

} else {

702

$xml .= $this->serialize_val($v, $k, false, false, false, false, $use);

703

}

704

}

705

$headers = $xml;

706

$this->debug("In serializeEnvelope, serialized array of headers to $headers");

707

}

708

$headers = "<SOAP-ENV:Header>".$headers."</SOAP-ENV:Header>";

709

}

710

// serialize envelope

711

return

712

'<?xml version="1.0" encoding="'.$this->soap_defencoding .'"?'.">".

713

'<SOAP-ENV:Envelope'.$ns_string.">".

714

$headers.

715

"<SOAP-ENV:Body>".

716

$body.

717

"</SOAP-ENV:Body>".

718

"</SOAP-ENV:Envelope>";

719

}

720

721

/**

722

* formats a string to be inserted into an HTML stream

723

724

* @param string $str The string to format

725

* @return string The formatted string

726

* @access public

727

* @deprecated

728

729

function formatDump($str){

730

$str = htmlspecialchars($str);

731

return nl2br($str);

732

}

733

734

/**

735

* contracts (changes namespace to prefix) a qualified name

736

737

* @param string $qname qname

738

* @return string contracted qname

739

* @access private

740

741

function contractQname($qname){

742

// get element namespace

743

//$this->xdebug("Contract $qname");

744

if (strrpos($qname, ':')) {

745

// get unqualified name

746

$name = substr($qname, strrpos($qname, ':') + 1);

747

// get ns

748

$ns = substr($qname, 0, strrpos($qname, ':'));

749

$p = $this->getPrefixFromNamespace($ns);

750

if ($p) {

751

return $p . ':' . $name;

752

}

753

return $qname;

754

} else {

755

return $qname;

756

}

757

}

758

759

/**

760

* expands (changes prefix to namespace) a qualified name

761

762

* @param string $qname qname

763

* @return string expanded qname

764

* @access private

765

766

function expandQname($qname){

767

// get element prefix

768

if(strpos($qname,':') && !ereg('^http://',$qname)){

769

// get unqualified name

770

$name = substr(strstr($qname,':'),1);

771

// get ns prefix

772

$prefix = substr($qname,0,strpos($qname,':'));

773

if(isset($this->namespaces[$prefix])){

774

return $this->namespaces[$prefix].':'.$name;

775

} else {

776

return $qname;

777

}

778

} else {

779

return $qname;

780

}

781

}

782

783

/**

784

* returns the local part of a prefixed string

785

* returns the original string, if not prefixed

786

787

* @param string $str The prefixed string

788

* @return string The local part

789

* @access public

790

791

function getLocalPart($str){

792

if($sstr = strrchr($str,':')){

793

// get unqualified name

794

return substr( $sstr, 1 );

795

} else {

796

return $str;

797

}

798

}

799

800

/**

801

* returns the prefix part of a prefixed string

802

* returns false, if not prefixed

803

804

* @param string $str The prefixed string

805

* @return mixed The prefix or false if there is no prefix

806

* @access public

807

808

function getPrefix($str){

809

if($pos = strrpos($str,':')){

810

// get prefix

811

return substr($str,0,$pos);

812

}

813

return false;

814

}

815

816

/**

817

* pass it a prefix, it returns a namespace

818

819

* @param string $prefix The prefix

820

* @return mixed The namespace, false if no namespace has the specified prefix

821

* @access public

822

823

function getNamespaceFromPrefix($prefix){

824

if (isset($this->namespaces[$prefix])) {

825

return $this->namespaces[$prefix];

826

}

827

//$this->setError("No namespace registered for prefix '$prefix'");

828

return false;

829

}

830

831

/**

832

* returns the prefix for a given namespace (or prefix)

833

* or false if no prefixes registered for the given namespace

834

835

* @param string $ns The namespace

836

* @return mixed The prefix, false if the namespace has no prefixes

837

* @access public

838

839

function getPrefixFromNamespace($ns) {

840

foreach ($this->namespaces as $p => $n) {

841

if ($ns == $n || $ns == $p) {

842

$this->usedNamespaces[$p] = $n;

843

return $p;

844

}

845

}

846

return false;

847

}

848

849

/**

850

* returns the time in ODBC canonical form with microseconds

851

852

* @return string The time in ODBC canonical form with microseconds

853

* @access public

854

855

function getmicrotime() {

856

if (function_exists('gettimeofday')) {

857

$tod = gettimeofday();

858

$sec = $tod['sec'];

859

$usec = $tod['usec'];

860

} else {

861

$sec = time();

862

$usec = 0;

863

}

864

return strftime('%Y-%m-%d %H:%M:%S', $sec) . '.' . sprintf('%06d', $usec);

865

}

866

867

/**

868

* Returns a string with the output of var_dump

869

870

* @param mixed $data The variable to var_dump

871

* @return string The output of var_dump

872

* @access public

873

874

function varDump($data) {

875

ob_start();

876

var_dump($data);

877

$ret_val = ob_get_contents();

878

ob_end_clean();

879

return $ret_val;

880

}

881

882

/**

883

* represents the object as a string

884

885

* @return string

886

* @access public

887

888

function __toString() {

889

return $this->varDump($this);

890

}

891

}

892

893

// XML Schema Datatype Helper Functions

894

895

//xsd:dateTime helpers

896

897

/**

898

* convert unix timestamp to ISO 8601 compliant date string

899

900

* @param string $timestamp Unix time stamp

901

* @param boolean $utc Whether the time stamp is UTC or local

902

* @access public

903

904

function timestamp_to_iso8601($timestamp,$utc=true){

905

$datestr = date('Y-m-d\TH:i:sO',$timestamp);

906

if($utc){

907

$eregStr =

908

'([0-9]{4})-'. // centuries & years CCYY-

909

'([0-9]{2})-'. // months MM-

910

'([0-9]{2})'. // days DD

911

'T'. // separator T

912

'([0-9]{2}):'. // hours hh:

913

'([0-9]{2}):'. // minutes mm:

914

'([0-9]{2})(\.[0-9]*)?'. // seconds ss.ss...

915

'(Z|[+\-][0-9]{2}:?[0-9]{2})?'; // Z to indicate UTC, -/+HH:MM:SS.SS... for local tz's

916

917

if(ereg($eregStr,$datestr,$regs)){

918

return sprintf('%04d-%02d-%02dT%02d:%02d:%02dZ',$regs[1],$regs[2],$regs[3],$regs[4],$regs[5],$regs[6]);

919

}

920

return false;

921

} else {

922

return $datestr;

923

}

924

}

925

926

/**

927

* convert ISO 8601 compliant date string to unix timestamp

928

929

* @param string $datestr ISO 8601 compliant date string

930

* @access public

931

932

function iso8601_to_timestamp($datestr){

933

$eregStr =

934

'([0-9]{4})-'. // centuries & years CCYY-

935

'([0-9]{2})-'. // months MM-

936

'([0-9]{2})'. // days DD

937

'T'. // separator T

938

'([0-9]{2}):'. // hours hh:

939

'([0-9]{2}):'. // minutes mm:

940

'([0-9]{2})(\.[0-9]+)?'. // seconds ss.ss...

941

'(Z|[+\-][0-9]{2}:?[0-9]{2})?'; // Z to indicate UTC, -/+HH:MM:SS.SS... for local tz's

942

if(ereg($eregStr,$datestr,$regs)){

943

// not utc

944

if($regs[8] != 'Z'){

945

$op = substr($regs[8],0,1);

946

$h = substr($regs[8],1,2);

947

$m = substr($regs[8],strlen($regs[8])-2,2);

948

if($op == '-'){

949

$regs[4] = $regs[4] + $h;

950

$regs[5] = $regs[5] + $m;

951

} elseif($op == '+'){

952

$regs[4] = $regs[4] - $h;

953

$regs[5] = $regs[5] - $m;

954

}

955

}

956

return gmmktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);

957

// return strtotime("$regs[1]-$regs[2]-$regs[3] $regs[4]:$regs[5]:$regs[6]Z");

958

} else {

959

return false;

960

}

961

}

962

963

/**

964

* sleeps some number of microseconds

965

966

* @param string $usec the number of microseconds to sleep

967

* @access public

968

* @deprecated

969

970

function usleepWindows($usec)

971

{

972

$start = gettimeofday();

973

974

975

{

976

$stop = gettimeofday();

977

$timePassed = 1000000 * ($stop['sec'] - $start['sec'])

978

+ $stop['usec'] - $start['usec'];

979

}

980

while ($timePassed < $usec);

981

}

982

983

984

b'\\ No newline at end of file'

Older »