The approv Script
As mentioned already, the approv script
(shown in Example 10-20)
is rather small and insignificant. Its purpose is to take
the order number it receives, wrap it in a descriptive message
that includes a URL, and send it to the approver’s JID.
Written in Perl, the approv script uses a minimum set of features from the Jabber::Connection library.
use strict;
use Jabber::Connection;
my ($order, $approver) = @ARGV;
my $c = new Jabber::Connection(server => 'qmacro.dyndns.org');
die "Cannot connect: ".$c->lastError unless $c->connect();
$c->auth('approv','secret','approv');
$c->send(<<EO_MSG);
<message to="$jid">
<subject>Order Approval Required</subject>
<body>
An order ($order) requiring your approval has been placed.
Please visit http://qmacro.dyndns.org/approv?$order to
approve.
Thank you.
</body>
</message>
EO_MSG
$c->disconnect;
The script receives the two parameters passed from R/3 into the
$order and $approver
variables. Having connected to the Jabber server at
qmacro.dyndns.org and authenticated as
the user approv, it sends off a formatted
message to the approver, before disconnecting.
The script itself is extremely simple and is not of primary importance.
What is crucial here is the role that Jabber is playing.
The
<message/> element of Jabber’s
protocol is used to span the R/3 world with the IM world, enabling a business process cycle to take place
outside the normal boundaries of R/3 interaction. On a simple ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access