mpolo's scratchpad

---- Headers returned by code below
HTTP/1.0 200 OK
Content-Type: text/html
Client-Date: Thu, 08 Jan 2004 12:51:58 GMT
Client-Peer: 172.16.110.12:80
Client-Response-Num: 1
Refresh: 0; URL=https://www.cieups.com/ups.app/xml/Rate/

<HTML></HTML>

[download]

---- Begin program
#!/usr/bin/perl

use XML::Parser;
use LWP::UserAgent;

$lwp=LWP::UserAgent->new;
$lwp->proxy(['http','https'],'http://zzzzz:xxxx@172.16.110.12:80/');
$XML=<<XML;
<?xml version="1.0"?>
<AccessRequest xml:lang="en-US">
  <AccessLicenseNumber>xxxxx</AccessLicenseNumber>
  <UserId>xxxx</UserId>
  <Password>xxxxx</Password>
</AccessRequest>
<?xml version="1.0"?>
<RatingServiceSelectionRequest xml:lang="en-US">
  <Request>
    <TransactionReference>
      <CustomerContext>Rating and Service</CustomerContext>
      <XpciVersion>1.0001</XpciVersion>
    </TransactionReference>
    <RequestAction>Rate</RequestAction>
    <RequestOption>shop</RequestOption>
 </Request>
  <PickupType>
  <Qode>01</Qode>
  </PickupType>
  <Shipment>
    <Shipper>
      <Address>
    <PostalCode>30076</PostalCode>
      </Address>
    </Shipper>
    <ShipTo>
      <Address>
    <PostalCode>30041</PostalCode>
      </Address>
    </ShipTo>
    <Service>
    <Qode>11</Qode>
    </Service>
    <Package>
      <PackagingType>
        <Qode>02</Qode>
        <Description>Package</Description>
      </PackagingType>
        <Description>Package</Description>
      </PackagingType>
      <Description>Rate Shopping</Description>
      <PackageWeight>
        <Weight>33</Weight>
      </PackageWeight>
     </Package>
    <ShipmentServiceOptions/>
  </Shipment>
</RatingServiceSelectionRequest>
XML
push @{ $lwp->requests_redirectable }, 'POST';
$request=HTTP::Request->new(POST =>'https://www.cieups.com/ups.app/xml
+/Rate/');
$request->header('content-type'=>'application/x-www-form-urlencoded');
$request->header('content-length'=>length($XML));
print length($XML);
$request->content($XML);
$response=$lwp->request($request);

print "\n";
#print $request->as_string;
#äprint $response->status_line;
#print $response->content;
print $response->as_string;

[download]


No such thing as a small change
	PerlMonks