#!/usr/bin/perl

exit &foaf($ARGV[0]) ? 1 : 0;

use Storable qw(lock_nstore lock_retrieve);

sub foaf ($) {
	use LWP::Simple qw(get);
	my %users = %{ lock_retrieve '/etc/mail/filster/data/foaf' };
	return $users{$_[0]} if exists $users{$_[0]};
	my $content = get('http://eikeon.com/foaf/?mbox=mailto%3A' . $_[0]);
	$users{$_[0]} = 1 if $content =~ /<h2>[^<]+<a /i;
	$users{$_[0]} = 0;
	lock_nstore \%users, '/etc/mail/filster/data/foaf';
	return $users{$_[0]};
}