Loading ...
Sorry, an error occurred while loading the content.

Re: [soaplite] Re: Why doesn't this work? (now it works)

Expand Messages
  • Robert Nicholson
    Finally got it to work sub lookup_bill_dots { my $bill = shift(@_); my $fedex_wdsl = http://ws2.serviceobjects.net/pt/PackTrack.asmx?WSDL ; my $license =
    Message 1 of 7 , Oct 22, 2004
    • 0 Attachment
      Finally got it to work

      sub lookup_bill_dots {
      my $bill = shift(@_);

      my $fedex_wdsl =
      "http://ws2.serviceobjects.net/pt/PackTrack.asmx?WSDL";

      my $license = "XXXXXXXXXXX";

      my $fedex_search = SOAP::Lite
      -> uri('http://www.serviceobjects.com/')
      -> on_action( sub { join '/',
      'http://www.serviceobjects.com', $_[1] })
      ->
      proxy('http://ws2.serviceobjects.net/pt/PackTrack.asmx');

      my $method = SOAP::Data->name('FedEx_GetTrackingInfo')
      -> attr({ xmlns =>
      'http://www.serviceobjects.com/'});

      my @params = (

      SOAP::Data->type("xsd:string")->name("TrackingNumber" => $bill)
      ->uri('http://www.serviceobjects.com/'),
      SOAP::Data->name("LicenseKey" => $license)
      ->uri('http://www.serviceobjects.com/')
      );

      print $fedex_search->call($method => @params)->result;
      }
    Your message has been successfully submitted and would be delivered to recipients shortly.