Perl SDK - Revision history

FileEX at 10:20, 15 July 2024

2024-07-15T10:20:05Z

← Older revision		Revision as of 10:20, 15 July 2024
Line 32:		Line 32:

	[[Category:SDK]]		[[Category:SDK]]
			[[Category:Tutorials]]

FileEX at 10:19, 15 July 2024

2024-07-15T10:19:27Z

← Older revision		Revision as of 10:19, 15 July 2024
Line 30:		Line 30:
	</syntaxhighlight>		</syntaxhighlight>
	The function returns an array of the values returned by the function.		The function returns an array of the values returned by the function.

			[[Category:SDK]]

Talidan at 20:24, 23 September 2016

2016-09-23T20:24:11Z

← Older revision		Revision as of 20:24, 23 September 2016
Line 1:		Line 1:
	Currently there is not a Perl SDK as such, but you can use the following code to call a function on an MTA server, assuming you have access:		Currently there is not a Perl SDK as such, but you can use the following code to call a function on an MTA server, assuming you have access:

	<syntaxhighlight ~~lang="lua"~~ lang="perl">		<syntaxhighlight lang="perl">
	using JSON;		using JSON;

Line 26:		Line 26:

	Syntax:		Syntax:
	<syntaxhighlight ~~lang="lua"~~ lang="perl">		<syntaxhighlight lang="perl">
	my $ret = callFunction("hostname:httpPort", "resourceName", "functionName" [, args ...]);		my $ret = callFunction("hostname:httpPort", "resourceName", "functionName" [, args ...]);
	</syntaxhighlight>		</syntaxhighlight>
	The function returns an array of the values returned by the function.		The function returns an array of the values returned by the function.

EAi at 18:02, 18 July 2009

2009-07-18T18:02:36Z

← Older revision		Revision as of 18:02, 18 July 2009
Line 1:		Line 1:
	Currently there is not a Perl SDK as such, but you can use the following code to call a function on an MTA server, assuming you have access:		Currently there is not a Perl SDK as such, but you can use the following code to call a function on an MTA server, assuming you have access:

	<syntaxhighlight lang="lua">~~[perl]~~		<syntaxhighlight lang="lua" lang="perl">
	using JSON;		using JSON;

Line 26:		Line 26:

	Syntax:		Syntax:
	<syntaxhighlight lang="lua">~~[perl]~~		<syntaxhighlight lang="lua" lang="perl">
	my $ret = callFunction("hostname:httpPort", "resourceName", "functionName" [, args ...]);		my $ret = callFunction("hostname:httpPort", "resourceName", "functionName" [, args ...]);
	</syntaxhighlight>		</syntaxhighlight>
	The function returns an array of the values returned by the function.		The function returns an array of the values returned by the function.

EAi at 20:21, 26 June 2007

2007-06-26T20:21:04Z

New page

Currently there is not a Perl SDK as such, but you can use the following code to call a function on an MTA server, assuming you have access:

<syntaxhighlight lang="lua">[perl]
using JSON;

sub callFunction {
my ($server, $resourcename, $functionname) = @_;
my $content = objToJson([@_[3..$#_]]);
$ua = LWP::UserAgent->new;
$ua->parse_head(0);
$ua->agent("");
my $url = "http://" . $server . "/" . $resourcename . "/call/" . $functionname;
$req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($content);
$req->header('Accept' => 'text/html');
$res = $ua->request($req);
my $ret = "";
eval {
$ret = jsonToObj($res->content);
};
return $ret;
}
</syntaxhighlight>
This requires that you install the JSON package. You can do this easily by navigating to your perl 'bin' directory and executing "cpan", then typing "install JSON".

Syntax:
<syntaxhighlight lang="lua">[perl]
my $ret = callFunction("hostname:httpPort", "resourceName", "functionName" [, args ...]);
</syntaxhighlight>
The function returns an array of the values returned by the function.