#!/usr/bin/perl
use XML::FOAF;
use URI;
my $uri = $ARGV[0];
my $file = $ARGV[1];
my $foaf = XML::FOAF->new(URI->new($uri), "FOAF-Fetch, crschmid\@uiuc.edu");
my $p = $foaf->person;
die "No person in FOAF file." unless $p;
die "Need a name or nick field." unless ($p->name || $p->nick);
if (open (FILE, ">>$file")) 
{ 
    print "Opened"; 
    print FILE "\n[1]\n" if $p;
    print FILE "name=" . $p->name, "\n" if $p->name;
    print FILE "name=" . $p->nick, "\n" if ($p->nick && !$p->name); # need a name field
    print FILE "nick=" . $p->nick, "\n" if ($p->nick && !$p->name);
    print FILE "email=" . $p->mbox, "\n" if ($p->mbox);
    print FILE "aim="  . $p->aimChatID, "\n" if $p->aimChatID;
    print FILE "yahoo=". $p->yahooChatID, "\n" if $p->yahooChatID;
    print FILE "msn=" . $p->msnChatID, "\n" if $p->msnChatID;
    print FILE "icq=" . $p->icqChatID, "\n" if $p->icqChatID;
    print FILE "jabber=" . $p->jabberChatID, "\n" if $p->jabberChatID;
    print FILE "url=" . $p->homepage . "\n" if $p->homepage;
    print FILE "weblog=" . $p->weblog . "\n" if $p->weblog;
    print FILE "phone=" . $p->phone . "\n" if $p->phone;
}

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 "email=" . $p->mbox, "\n" if ($p->mbox);
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;
print "phone=" . $p->phone . "\n" if $p->phone;