NAME
WWW::Finger::Fingerpoint - Investigate E-mail Addresses using Fingerpoint
SYNOPSIS
## Using WWW::Finger
use WWW::Finger;
my $finger = WWW::Finger->new("joe@example.com");
if ($finger)
{
if ($finger->isa('WWW::Finger::Fingerpoint'))
{
print "WWW::Finger used WWW::Fingerpoint\n";
}
print $finger->name . "\n"; # print person's name.
}
## Using WWW::Finger::Fingerpoint directly
use RDF::Query::Client;
use WWW::Finger::Fingerpoint;
my $fingerpoint = WWW::Finger::Fingerpoint->new("joe@example.com");
if ($fingerpoint->webid)
{
my $sparql = sprintf(
"SELECT * WHERE {<%s> <http://xmlns.com/foaf/0.1/homepage> ?page.}",
$fingerpoint->webid);
my $query = RDF::Query::Client->new($sparql);
my $results = $query->execute($fingerpoint->endpoint);
while (my $row = $results->next)
{
print "Found page: " . $row->{'page'}->uri . "\n";
}
}
DESCRIPTION
As well as the standard WWW::Finger methods, WWW::Finger::Fingerpoint provides this additional method:
get($p1, $p2, ...)-
$p1, $p2 and are RDF predicate URIs. Returns a list of values which are non-bnode objects of triples where the predicate URI is one of the parameters and the subject URI is the person/agent fingered.
# Returns phone numbers... $finger->get('http://xmlns.com/foaf/0.1/phone', 'http://rdf.data-vocabulary.org/#tel');
SEE ALSO
RDF::Query::Client, RDF::Trine.
http://buzzword.org.uk/2009/fingerpoint/spec.
AUTHOR
Toby Inkster, <tobyink@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2009-2010 by Toby Inkster
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8 or, at your option, any later version of Perl 5 you may have available.