Professional Web Applications Themes

Question to use SOAP::Lite - PERL Beginners

Hi, I would like to use SOAP::Lite to communicate with the web server, but I need to send the token to get the access. Does anyone know how to set up in SOAP::Lite? I have the following code, but I get the errorcode 1001, "Request must have exactly one security token" message back. Does anyone give me some hints? Thanks use SOAP::WSDL; use SOAP::Lite; my $soap=SOAP::WSDL->new( wsdl => 'http://172.16.230.101/ccws/ccws.asmx?WSDL' ); $soap->proxy( 'http://172.16.230.101/ccws/ccws.asmx'); $soap->wsdlinit; $soap->on_action(sub{'http://comverse-in.com/prepaid/ccws/RetrieveVoucherByB atchSerial'}); $serializer = SOAP::Serializer->envelope(method => 'security', SOAP::Header->name(Security=> '')->attr({mustUnderstand=>'1'},{xmlns=>'http://schemas.xmlsoap.org/ws/2002/ 07/secext'}), SOAP::Header->name(UsernameToken => '')->attr({xmlns=>'http://schemas.xmlsoap.org/ws/2002/07/utility'}, {Id=>'SecurityToken-2b8987f9-37e4-47b1-9a4a-12415aef5735'}), SOAP::Header->name(Username => 'web'), SOAP::Header->name(Password => 'qwerty')->attr({'Type'=>'PasswordText'}), SOAP::Header->name(Nonce => '0AJuLu+MMip44x1Mv9S1fg=='), SOAP::Header->name(Created => '2004-09-17T21:05:38Z'), ); ...

  1. #1

    Default Question to use SOAP::Lite

    Hi,

    I would like to use SOAP::Lite to communicate with the web server, but I
    need to send the token to get the access. Does anyone know how to set up in
    SOAP::Lite? I have the following code, but I get the errorcode 1001,
    "Request must have exactly one security token" message back. Does anyone
    give me some hints? Thanks


    use SOAP::WSDL;
    use SOAP::Lite;

    my $soap=SOAP::WSDL->new( wsdl =>
    'http://172.16.230.101/ccws/ccws.asmx?WSDL' );

    $soap->proxy( 'http://172.16.230.101/ccws/ccws.asmx');

    $soap->wsdlinit;


    $soap->on_action(sub{'http://comverse-in.com/prepaid/ccws/RetrieveVoucherByB
    atchSerial'});

    $serializer = SOAP::Serializer->envelope(method => 'security',
    SOAP::Header->name(Security=>
    '')->attr({mustUnderstand=>'1'},{xmlns=>'http://schemas.xmlsoap.org/ws/2002/
    07/secext'}),
    SOAP::Header->name(UsernameToken =>
    '')->attr({xmlns=>'http://schemas.xmlsoap.org/ws/2002/07/utility'},
    {Id=>'SecurityToken-2b8987f9-37e4-47b1-9a4a-12415aef5735'}),
    SOAP::Header->name(Username => 'web'),
    SOAP::Header->name(Password =>
    'qwerty')->attr({'Type'=>'PasswordText'}),
    SOAP::Header->name(Nonce => '0AJuLu+MMip44x1Mv9S1fg=='),
    SOAP::Header->name(Created => '2004-09-17T21:05:38Z'),
    );

    my $som=$soap->call( 'RetrieveVoucherByBatchSerial',
    batchNumber => '77000',
    serialNumber => '7120408');


    if ($som->fault)
    {
    print "\nfaultdetail:\n";
    print $som->faultdetail;
    print "\nfaultcode:\n";
    print $som->faultcode;
    print "\nfaultstring:\n";
    print $som->faultstring;
    print "\nfaultactor:\n";
    print $som->faultactor;
    }



    Angela Guest

  2. #2

    Default Question to use SOAP::Lite

    Hi,

    I would like to use SOAP::Lite to communicate with the web server, but I
    need to send the token to get the access. Does anyone know how to set up in
    SOAP::Lite? I have the following code, but I get the errorcode 1001,
    "Request must have exactly one security token" message back. Does anyone
    give me some hints? Thanks


    use SOAP::WSDL;
    use SOAP::Lite;

    my $soap=SOAP::WSDL->new( wsdl =>
    'http://172.16.230.101/ccws/ccws.asmx?WSDL' );

    $soap->proxy( 'http://172.16.230.101/ccws/ccws.asmx');

    $soap->wsdlinit;


    $soap->on_action(sub{'http://comverse-in.com/prepaid/ccws/RetrieveVoucherByB
    atchSerial'});

    $serializer = SOAP::Serializer->envelope(method => 'security',
    SOAP::Header->name(Security=>
    '')->attr({mustUnderstand=>'1'},{xmlns=>'http://schemas.xmlsoap.org/ws/2002/
    07/secext'}),
    SOAP::Header->name(UsernameToken =>
    '')->attr({xmlns=>'http://schemas.xmlsoap.org/ws/2002/07/utility'},
    {Id=>'SecurityToken-2b8987f9-37e4-47b1-9a4a-12415aef5735'}),
    SOAP::Header->name(Username => 'web'),
    SOAP::Header->name(Password =>
    'qwerty')->attr({'Type'=>'PasswordText'}),
    SOAP::Header->name(Nonce => '0AJuLu+MMip44x1Mv9S1fg=='),
    SOAP::Header->name(Created => '2004-09-17T21:05:38Z'),
    );

    my $som=$soap->call( 'RetrieveVoucherByBatchSerial',
    batchNumber => '77000',
    serialNumber => '7120408');


    if ($som->fault)
    {
    print "\nfaultdetail:\n";
    print $som->faultdetail;
    print "\nfaultcode:\n";
    print $som->faultcode;
    print "\nfaultstring:\n";
    print $som->faultstring;
    print "\nfaultactor:\n";
    print $som->faultactor;
    }
    Angela Guest

  3. #3

    Default RE: Question to use SOAP::Lite


     

    Hint: better ask to soap-lite list :-)
    http://lists.perl.org/showlist.cgi?name=SOAP-Lite

    Josť.


    **** DISCLAIMER ****

    "This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the recipient(s) named above.
    Any use of the information contained herein (including, but not limited to,total or partial reproduction, communication or distribution in any form) by other persons than the designated recipient(s) is prohibited.
    If you have received this e-mail in error, please notify the sender either by telephone or by e-mail and delete the material from any computer".

    Thank you for your cooperation.

    For further information about Proximus mobile phone services please see ourwebsite at http://www.proximus.be or refer to any Proximus agent.

    NYIMI Guest

  4. #4

    Default Re: Question to use SOAP::Lite

    Thanks

    "NYIMI Jose )" <net> wrote in message
    news:nt.mobile.belgacom.be...

     

    Hint: better ask to soap-lite list :-)
    http://lists.perl.org/showlist.cgi?name=SOAP-Lite

    Josť.


    **** DISCLAIMER ****

    "This e-mail and any attachment thereto may contain information which is
    confidential and/or protected by intellectual property rights and are
    intended for the sole use of the recipient(s) named above.
    Any use of the information contained herein (including, but not limited to,
    total or partial reproduction, communication or distribution in any form) by
    other persons than the designated recipient(s) is prohibited.
    If you have received this e-mail in error, please notify the sender either
    by telephone or by e-mail and delete the material from any computer".

    Thank you for your cooperation.

    For further information about Proximus mobile phone services please see our
    website at http://www.proximus.be or refer to any Proximus agent.


    Angela Guest

Similar Threads

  1. SOAP::Lite
    By Nicholas Garfield in forum PERL Modules
    Replies: 7
    Last Post: March 8th, 08:08 AM
  2. Writing a HTML/ASP SOAP client for a SOAP::Lite destination
    By jim.long@vanderbilt.edu in forum PERL Modules
    Replies: 0
    Last Post: March 17th, 12:19 AM
  3. Replies: 1
    Last Post: November 12th, 08:31 PM
  4. SOAP::Lite : BUG somewhere
    By J Krugman in forum PERL Modules
    Replies: 0
    Last Post: January 9th, 04:18 PM
  5. SOAP::Lite HELP!
    By Mike Zupan in forum PERL Miscellaneous
    Replies: 0
    Last Post: August 23rd, 05:02 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139