Net::XMPP2::Ext::VCard 0.13

Net::XMPP2::Ext::VCard is a Perl module that contains VCards (XEP-0054 & XEP-0084).

SYNOPSIS

use Net::XMPP2::Ext::VCard;

my $vcard = Net::XMPP2::Ext::VCard->new;
$con->reg_cb (
stream_ready => sub { $vcard->hook_on ($con) }
);

$vcard->retrieve ($con, 'elmex@jabber.org', sub {
my ($jid, $vcard, $error) = @_;

if ($error) {
warn "couldn't get vcard for elmex@jabber.org: " . $error->string . "n";
} else {
print "vCard nick for elmex@jabber.org: ".$vcard->{NICKNAME}."n";
print "Avatar hash for elmex@jabber.org: ".$vcard->{_avatar_hash}."n";
}
});

$vcard->store ($con, undef, { NICKNAME => 'net-xmpp2' }, sub {
my ($error) = @_;
if ($error) {
warn "upload failed: " . $error->string . "n";
} else {
print "upload successfuln";
}
});

Product's homepage

Requirements:

· Perl