#!/usr/bin/perl

use strict; 
use Data::Dumper; 
use SOAP::Lite xmlschema => 2001; 
use HTTP::Cookies; 
use Cwd; 
use HTML::Entities;

# TeamPageのURLを指定します。
# URLの末尾に /rpc が必要です。
my $url="https://sandbox.teampage.jp/rpc";

my $traction=SOAP::Lite 
->uri('urn:Traction') 
->proxy($url) 
->maptype({ 
PublishEntry => 'urn:Traction' 
});

# ユーザー名とパスワード
my $userpw="username:password";
# 記事タイトル 
my $title="Test by using perl";
# 記事の本文
my $body="This is the body of this test article."; 
# 投稿先スペースの名前
my $project="Sales"; 
# 投稿時に記事に付けるタグ
my $labels="FAQ"; 
my $entry;

$entry=bless{ 
'project' => SOAP::Data->type(string => $project), 
'title' => SOAP::Data->type(string => $title), 
'labels' => SOAP::Data->type(string => $labels), 
'body' => SOAP::Data->type(string => $body) 
}=> 'PublishEntry';

my $result=$traction->Publish($userpw,$entry); 

#error
if ($result->fault){ 
print $result->faultstring; 
}else{ 
print "tractionID=" . $result->result->{'tractionId'}; 
}