root/trunk/DJabberd-VCard/lib/DJabberd/Plugin/VCard.pm @ 867

package DJabberd::Plugin::VCard;
use strict;
use base 'DJabberd::Plugin';
use warnings;

our $logger = DJabberd::Log->get_logger();

# this spec implements the jep--0054 vcard spec using an SQLite store
# later it should be refactored to have pluggable stores
# but I really just want to get it out there -- sky
# This should be split into the following
#  DJabberd::Plugin::VCard::IQ isa DJabberd::IQ
#  DJabberd::Plugin::VCard::SQLite isa Djabberd::Plugin::VCard
#  DJabberd::Plugin::VCard manages and loads everythign



sub iq_class {
    "DJabberd::Plugin::VCard::IQ";
}


sub register {
    my ($self, $vhost) = @_;
    my $vcard_cb = sub {
        my ($vh, $cb, $iq) = @_;
        unless ($iq->isa("DJabberd::IQ")) {
            $cb->decline;
            return;
        }
        if(my $to = $iq->to_jid) {
            unless ($vh->handles_jid($to)) {
                $cb->decline;
                return;
            }
        }
        if ($iq->signature eq 'get-{vcard-temp}vCard') {
            $self->get_vcard($vh, $iq);
            $cb->stop_chain;
            return;
        } elsif ($iq->signature eq 'set-{vcard-temp}vCard') {
            $self->set_vcard($vh, $iq);
            $cb->stop_chain;
            return;
        }
        $cb->decline;
    };
    $vhost->register_hook("switch_incoming_client",$vcard_cb);
    $vhost->register_hook("switch_incoming_server",$vcard_cb);
    $vhost->add_feature("vcard-temp");

}


sub get_vcard {
    my ($self, $vhost, $iq) = @_;


    my $user;
    if ($iq->to) {
        $user = $iq->to_jid->as_bare_string;
    } else {
        # user is requesting their own vCard
        $user = $iq->connection->bound_jid->as_bare_string;
    }
    $logger->info("Getting vcard for user '$user'");
    my $reply;
    if(my $vcard = $self->load_vcard($user)) {
        $reply = $self->make_response($iq, $vcard);
    } else {
        $reply = $self->make_response($iq, "<vCard xmlns='vcard-temp'/>");
    }
    $reply->deliver($vhost);

}


sub make_response {
    my ($self, $iq, $vcard) = @_;



    my $response = $iq->clone;
    my $from = $iq->from;
    my $to   = $iq->to;
    $response->set_raw($vcard);

    $response->attrs->{"{}type"} = 'result';
    $response->set_to($from);
    $to ? $response->set_from($to) : delete($response->attrs->{"{}from"});

    return $response;
}

sub set_vcard {
    my ($self, $vhost, $iq) = @_;

    my $vcard = $iq->first_element();
    my $user  = $iq->connection->bound_jid->as_bare_string;
    $self->store_vcard($user, $vcard);

    $logger->info("Set vcard for user '$user'");
    $self->make_response($iq)->deliver($vhost);
}


1;