#!/usr/bin/perl -w
# $Id: testreader,v 1.1 2005/09/15 19:53:49 ianb Exp $
# Ian Beckwith <ianb@nessie.mcc.ac.uk>
#

use strict;
use XML::PFIF;
use XML::PFIF::Person;
use XML::PFIF::Note;
use XML::PFIF::Reader;

use vars qw($me);
$me=($0=~/(?:.*\/)?(.*)/)[0];

die("Usage: $me infile.xml\n") unless(scalar(@ARGV)==1);
my $file=shift;

my $reader=new XML::PFIF::Reader({file=>$file, callback=>\&do_person});


print XML::PFIF::start_xml();
print XML::PFIF::start_pfif();

if(!$reader->parse())
{
    warn("$me: $file: XML parse error\n");
}

print XML::PFIF::end_pfif();


sub do_person
{
    my $person=shift;
    print $person->to_xml();
    $person->dispose();
    return 1;
}

