実装ガイド › ケース スタディ例 › ケース スタディ 22： PERL を使用してレポートを生成する

ケース スタディ 22： PERL を使用してレポートを生成する

以下の例では、PERL スクリプトを使用して、CA Business Service Insight レポート Web サービスに接続し、HTTP ストリームを使用して条件 XML パラメータを SOAP エンベロープで転送する方法を示します。

注： SOAP エンベロープで転送される XML コードには、「<」または「>」記号を含めることはできないため、これらの記号には HTML コード（つまり、< = &gt;、> = &lt;）を使用します

#!/usr/bin/perl

#use strict;

use LWP::UserAgent;
use HTTP::Request::Common;
use XML::Simple;
use Data::Dumper;

my $userAgent = LWP::UserAgent > new(agent => 'Mozilla/5.0');

### Creating a Oblicore Session Context - Oblicore Session ID is stored in $scid ###

my $message = "<?xml version=¥"1.0¥" encoding=¥"utf-8¥"?>
<soap:Envelope xmlns:xsi=¥"http://www.w3.org/2001/XMLSchema-instance¥" xmlns:xsd=¥"http://www.w3.org/2001/XMLSchema¥" xmlns:soap=¥"http://schemas.xmlsoap.org/soap/envelope/¥">
  <soap:Body>
    <CreateSessionContext xmlns=¥"http://www.oblicore.com¥">
      <userName>sadmin</userName>
      <organizationName>Oblicore</organizationName>
    </CreateSessionContext>
  </soap:Body>
</soap:Envelope>";

my $response = $userAgent > request(POST 'http://obonob/WebServices/OblicoreAuth.asmx',Content_type => 'text/xml', Content => $message);

print $response > error_as_HTML unless $response > is_success;

my $result = $response > as_string;

my $xmlstart      = index $result, "<?xml";
my $xmlend       = length $result;

my $xmltext       = substr $result, $xmlstart, ($xmlend - $xmlstart);

my $xml               = new XML::Simple;
my $data             = $xml > XMLin($xmltext);

my $scid = ($data > {'soap:Body'} > {'CreateSessionContextResponse'} > {'CreateSessionContextResult'});

print "Session ID : ".$scid."¥n";

### Try to get contract list from Oblicore ###

my $criteria_xml = "&lt;Criteria&gt;&lt;Name&gt;a*&lt;/Name&gt;&lt;Status&gt;EFFECTIVE&lt;/Status&gt;&lt;/Criteria&gt;";

print  "<?xml version=¥"1.0¥" encoding=¥"utf-8¥"?>
<soap:Envelope xmlns:xsi=¥"http://www.w3.org/2001/XMLSchema-instance¥" xmlns:xsd=¥"http://www.w3.org/2001/XMLSchema¥" xmlns:soap=¥"http://schemas.xmlsoap.org/soap/envelope/¥">
  <soap:Body>
    <GetContractsAdvanced xmlns=¥"http://www.oblicore.com¥">
      <sessionID>".$scid."</sessionID>
      <criteriaXML>".$criteria_xml."</criteriaXML>
    </GetContractsAdvanced>
  </soap:Body>
</soap:Envelope>";

my $message = "<?xml version=¥"1.0¥" encoding=¥"utf-8¥"?>
<soap:Envelope xmlns:xsi=¥"http://www.w3.org/2001/XMLSchema-instance¥" xmlns:xsd=¥"http://www.w3.org/2001/XMLSchema¥" xmlns:soap=¥"http://schemas.xmlsoap.org/soap/envelope/¥">
  <soap:Body>
    <GetContractsAdvanced xmlns=¥"http://www.oblicore.com¥">
      <sessionID>".$scid."</sessionID>
      <criteriaXML>".$criteria_xml."</criteriaXML>
    </GetContractsAdvanced>
  </soap:Body>
</soap:Envelope>";

#my $message = "<?xml version=¥"1.0¥" encoding=¥"utf-8¥"?>
#<soap:Envelope xmlns:xsi=¥"http://www.w3.org/2001/XMLSchema-instance¥" xmlns:xsd=¥"http://www.w3.org/2001/XMLSchema¥" xmlns:soap=¥"http://schemas.xmlsoap.org/soap/envelope/¥">
#  <soap:Body>
#    <GetContracts xmlns=¥"http://www.oblicore.com¥">
#      <sessionID>".$scid."</sessionID>
#    </GetContracts>
#  </soap:Body>
#</soap:Envelope>";

### is_well_formed($message)

print $message;

my $response = $userAgent > request(POST 'http://obonob/WebServices/Contracts.asmx', Content_Type => 'text/xml', Content => $message);

print $response > error_as_HTML unless $response > is_success;

my $result = $response > as_string;

print Dumper($result); # Output of contract list

### Close the Oblicore Session ###

my $message = "<?xml version=¥"1.0¥" encoding=¥"utf-8¥"?>
<soap:Envelope xmlns:xsi=¥"http://www.w3.org/2001/XMLSchema-instance¥" xmlns:xsd=¥"http://www.w3.org/2001/XMLSchema¥" xmlns:soap=¥"http://schemas.xmlsoap.org/soap/envelope/¥">
  <soap:Body>
    <ClearSessionContext xmlns=¥"http://www.oblicore.com¥">
      <sessionContextID>".$scid."</sessionContextID>
    </ClearSessionContext>
  </soap:Body>
</soap:Envelope>";

my $response = $userAgent > request(POST 'http://obonob/WebServices/OblicoreAuth.asmx', Content_Type => 'text/xml', Content => $message);

print $response > error_as_HTML unless $response > is_success;