Perl 웹 서비스 클라이언트 예제

Perl 웹 서비스 클라이언트와의 통합을 보여주는 예시입니다.

주:

다음 예제에서는 Perl 언어 와 SOAP::Lite 패키지를 사용해야 합니다.

시스템 요구 사항

펄 5.8

• SOAP::Lite(필수 구성 요소 http://soaplite.com/prereqs.html)
• 크립트::SSLeay
• IO::소켓::SSL

삽입

다음 예에서는 인시던트 테이블에 기록을 삽입합니다.

#!/usr/bin/perl -w
 
# declare usage of SOAP::Liteuse SOAP::Lite;
 
# specifying this subroutine, causes basic auth to use# its credentials when challengedsub SOAP::Transport::HTTP::Client::get_basic_credentials{# login as the itil userreturn'itil'=>'itil';}
 
# declare the SOAP endpoint heremy$soap= SOAP::Lite->proxy('https://myinstance.service-now.com/incident.do?SOAP');
 
# calling the insert functionmy$method= SOAP::Data->name('insert')->attr({xmlns =>'http://www.service-now.com/'});
 
# create a new incident with the following short_description and categorymy@params=( SOAP::Data->name(short_description =>'This is an example short description'));push(@params, SOAP::Data->name(category =>'Hardware'));
 
# invoke the SOAP callmy$result=$soap->call($method=>@params);
 
# print any SOAP faults that get returned
print_fault($result);# print the SOAP response that get return
print_result($result);
 
# convenient subroutine for printing all resultssub print_result {my($result)=@_;
 
  if($result->body&&$result->body->{'insertResponse'}){my%keyHash=%{$result->body->{'insertResponse'}};foreachmy$k(keys%keyHash){print"name=$k   value=$keyHash{$k}\n";}}}
 
# convenient subroutine for printing all SOAP faultssub print_fault {my($result)=@_;
 
  if($result->fault){print"faultcode=".$result->fault->{'faultcode'}."\n";print"faultstring=".$result->fault->{'faultstring'}."\n";print"detail=".$result->fault->{'detail'}."\n";}}

삽입(XML 페이로드 포함)

다음은 페이로드 필드가 XML 문서인 ecc_queue 테이블에 기록을 삽입하는 예입니다. 이것은 Perl 언어와 SOAP::Lite 패키지를 사용하여 수행되며 XML 문서 작성은 XML::Writer 패키지를 사용합니다.

#!/usr/bin/perl -w#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;use XML::Writer;use XML::Writer::String;
 
## Get parameters passed by OVO notification#$OVMSG{id}=$ARGV[0];$OVMSG{node_name}=$ARGV[1];$OVMSG{node_type}=$ARGV[2];$OVMSG{date_created}=$ARGV[3];$OVMSG{time_created}=$ARGV[4];$OVMSG{date_received}=$ARGV[5];$OVMSG{time_received}=$ARGV[6];$OVMSG{application}=$ARGV[7];$OVMSG{msg_group}=$ARGV[8];$OVMSG{object}=$ARGV[9];$OVMSG{severity}=$ARGV[10];$OVMSG{operator_list}=$ARGV[11];$OVMSG{msg_text}=$ARGV[12];$OVMSG{instruction}=$ARGV[13];
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://<instance name>.service-now.com/ecc_queue.do?SOAP');
 
my$method= SOAP::Data->name('insert')->attr({xmlns =>'http://www.service-now.com/'});
 
# get all incidents with category Networkmy@params=( SOAP::Data->name(agent =>'OVO_Notification'));push(@params, SOAP::Data->name(queue =>'input'));push(@params, SOAP::Data->name(name =>'HP Openview OVO Notification'));push(@params, SOAP::Data->name(source =>$OVMSG{id}));
 
my$s= XML::Writer::String->new();my$writer=new XML::Writer(OUTPUT =>$s);
 
#$writer->xmlDecl();$writer->startTag('notification');
 
write_element('id');
write_element('node_name');
write_element('node_type');
write_element('date_created');
write_element('time_created');
write_element('date_received');
write_element('time_received');
write_element('application');
write_element('msg_group');
write_element('object');
write_element('severity');
write_element('operator_list');
write_element('msg_text');
write_element('instruction');
 
$writer->endTag('notification');
 
$writer->end;
 
sub write_element {my$label=shift;my$value=$OVMSG{$label};$writer->startTag($label);if($value){$writer->characters($value);}$writer->endTag($label);}
 
push(@params, SOAP::Data->name(payload =>$s->value()));
 
print$soap->call($method=>@params)->result;</pre>
 
=== Response to the ''insert''===<source lang="xml"><?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" 
    xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
    xmlns:xsi="http://www.w3.org/2001/XML Schema-instance"><soap:Body><insertResponse xmlns="http://www.service-now.com/ecc_queue"><sys_id>1a5ad50e0a0a021101bef2e07705f87a</sys_id><name>HP Openview OVO Notification</name></insertResponse></soap:Body></soap:Envelope>

업데이트

#!/usr/bin/perl -w
 
#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://localhost:8080/glide/incident.do?SOAP');
 
my$method= SOAP::Data->name('update')->attr({xmlns =>'http://www.service-now.com/'});
 
# update incident by sys_idmy@params=( SOAP::Data->name(sys_id =>'e8caedcbc0a80164017df472f39eaed1'));push(@params, SOAP::Data->name(short_description =>'this is a new description'));
 
my$result=$soap->call($method=>@params);
 
print_fault($result);
print_result($result);
 
sub print_result {my($result)=@_;
 
  if($result->body&&$result->body->{'updateResponse'}){my%keyHash=%{$result->body->{'updateResponse'}};foreachmy$k(keys%keyHash){print"name=$k   value=$keyHash{$k}\n";}}}
 
sub print_fault {my($result)=@_;
 
  if($result->fault){print"faultcode=".$result->fault->{'faultcode'}."\n";print"faultstring=".$result->fault->{'faultstring'}."\n";print"detail=".$result->fault->{'detail'}."\n";}}

getKeys

다음은 가 네트워크인 인시던트의 기록에 대한 목록을 검색하는 예입니다.

#!/usr/bin/perl -w
 
#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://<instance name>.service-now.com/incident.do?SOAP');
 
my$method= SOAP::Data->name('getKeys')->attr({xmlns =>'http://www.service-now.com/'});
 
# get all incidents with category Networkmy@params=( SOAP::Data->name(category =>'Network')); 
 
print$soap->call($method=>@params)->result;

가져오기

다음은 sys_id 값을 사용하여 인시던트 기록을 검색하는 예입니다.

#!/usr/bin/perl -w#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://<instance name>.service-now.com/incident.do?SOAP');
 
my$method= SOAP::Data->name('get')->attr({xmlns =>'http://www.service-now.com/'});
 
# get incident by sys_idmy@params=( SOAP::Data->name(sys_id =>'9d385017c611228701d22104cc95c371'));
 
my%keyHash=%{$soap->call($method=>@params)->body->{'getResponse'}};
 
# iterate through all fields and print themforeachmy$k(keys%keyHash){print"$k=$keyHash{$k}\n";}

getRecords

인시던트 번호 값을 사용하여 인시던트를 쿼리하려면

#!/usr/bin/perl -w#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://<instance name>.service-now.com/incident.do?SOAP');
 
my$method= SOAP::Data->name('getRecords')->attr({xmlns =>'http://www.service-now.com/'});# get incident by numbermy@params=( SOAP::Data->name(number =>'INC10001'));
 
my%keyHash=%{$soap->call($method=>@params)->body->{'getRecordsResponse'}->{'getRecordsResult'}};
 
# iterate through all fields and print themforeachmy$k(keys%keyHash){print"$k=$keyHash{$k}\n";}

getRecords(여러 결과 반환)

다음은 범주가 "네트워크"인 모든 인시던트를 쿼리하여 인시던트 기록의 배열을 검색하고 표시하는 예입니다

#!/usr/bin/perl -w#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://<instance name>.service-now.com/incident.do?SOAP');
 
my$method= SOAP::Data->name('getRecords')->attr({xmlns =>'http://www.service-now.com/'});
 
# get incident by sys_idmy@params=( SOAP::Data->name(category =>'Network'));
 
my%keyHash=%{$soap->call($method=>@params)->body->{'getRecordsResponse'}};
 
my$i=0;my$size=@{$keyHash{'getRecordsResult'}};for($i=0;$i<$size;$i++){my%record=%{$keyHash{'getRecordsResult'}[$i]};print"------------------------------ $i ----------------------------\n";foreachmy$kk(keys%record){print"$kk=$record{$kk}\n";}}

삭제 기록

#!/usr/bin/perl -w
 
#use SOAP::Lite ( +trace => all, maptype => {} );use SOAP::Lite;
 
sub SOAP::Transport::HTTP::Client::get_basic_credentials{return'itil'=>'itil';}
 
my$soap= SOAP::Lite->proxy('http://localhost:8080/glide/incident.do?SOAP');
 
my$method= SOAP::Data->name('deleteRecord')->attr({xmlns =>'http://www.service-now.com/'});
 
# delete incident by sys_idmy@params=( SOAP::Data->name(sys_id =>'46f67787a9fe198101e06dfcf3a78e99'));
 
my$result=$soap->call($method=>@params);
 
print_fault($result);
print_result($result);
 
sub print_result {my($result)=@_;
 
  if($result->body&&$result->body->{'deleteRecordResponse'}){my%keyHash=%{$result->body->{'deleteRecordResponse'}};foreachmy$k(keys%keyHash){print"name=$k   value=$keyHash{$k}\n";}}}
 
sub print_fault {my($result)=@_;
 
  if($result->fault){print"faultcode=".$result->fault->{'faultcode'}."\n";print"faultstring=".$result->fault->{'faultstring'}."\n";print"detail=".$result->fault->{'detail'}."\n";}}