Skip to Content
Programming Jabber
book

Programming Jabber

by DJ Adams
January 2002
Beginner
480 pages
13h 15m
English
O'Reilly Media, Inc.
Content preview from Programming Jabber

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.

Example 10-20. The approv script, written in Perl
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

More than 5,000 organizations count on O’Reilly

AirBnbBlueOriginElectronic ArtsHomeDepotNasdaqRakutenTata Consultancy Services

QuotationMarkO’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.
Julian F.
Head of Cybersecurity
QuotationMarkI wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.
Addison B.
Field Engineer
QuotationMarkI’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.
Amir M.
Data Platform Tech Lead
QuotationMarkI'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Mark W.
Embedded Software Engineer

You might also like

Professional XMPP Programming with JavaScript® and jQuery

Professional XMPP Programming with JavaScript® and jQuery

Jack Moffitt
Hacking Web Performance

Hacking Web Performance

Maximiliano Firtman

Publisher Resources

ISBN: 0596002025Errata Page