#!/usr/bin/perl
use XML::FOAF;
use URI;
my $uri = $ARGV[0];

my $foaf = XML::FOAF->new(URI->new($uri));
my $p = $foaf->person;
die "No person in FOAF file." unless $p;
die "Need a name or nick field." unless ($p->name || $p->nick);

print "\n[1]\n" if $p;
print "name=" . $p->name, "\n" if $p->name;
print "name=" . $p->nick, "\n" if ($p->nick && !$p->name); # need a name field
print "nick=" . $p->nick, "\n" if ($p->nick && !$p->name);
print "aim="  . $p->aimChatID, "\n" if $p->aimChatID;
print "yahoo=". $p->yahooChatID, "\n" if $p->yahooChatID;
print "msn=" . $p->msnChatID, "\n" if $p->msnChatID;
print "icq=" . $p->icqChatID, "\n" if $p->icqChatID;
print "jabber=" . $p->jabberChatID, "\n" if $p->jabberChatID;
print "url=" . $p->homepage . "\n" if $p->homepage;
print "weblog=" . $p->weblog . "\n" if $p->weblog;