#!/usr/bin/perl

use strict;
use Data::Dumper;
use LWP::UserAgent;

my $type = "TIFF";
my $ua = new LWP::UserAgent;
my $service = "http://ops.epo.org//soap-services/document-retrieval";

my $content = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ops="http://ops.epo.org">';
$content = $content . '<soapenv:Header/>';
$content = $content . '<soapenv:Body>';
$content = $content . "<ops:document-retrieval id=\"EP        1000000A1 I \" page-number=\"1\" document-format=\"SINGLE_PAGE_$type\" system=\"ops.epo.org\">";
$content = $content . '</ops:document-retrieval>';
$content = $content . '</soapenv:Body>';
$content = $content . '</soapenv:Envelope>';

my $header = new HTTP::Headers (
        'Content-Type'   => 'text/xml; charset=utf-8',
        'SOAPAction'     => 'document-retrieval',
   );

my $req = new HTTP::Request('POST',$service,$header,$content);
my $res = $ua->request($req);
print "request string:\n". $req->as_string."\n";

print "content type: ". $res->content_type."\n";
print "header = ". $res->headers_as_string()."\n";

#my $response = $res->headers_as_string();
#my $response .= $res->content;
#print "---response---\n$response\n";

#my ($body,$mime);
#eval
#{
#   $mime = $res->parts([1]);
   #$body = $mime->body_handle();
#};
#if ($@)
#{ die "error: $@\n"; }

if ($res->is_success)
{
  my $dlfile = "file.$type";
  open(OUT, ">$dlfile") or die "whoops $!";
  binmode(OUT);
  print OUT $res->content;
  close OUT;
}
else
{ warn "request failed...\n"; }