#!/bin/perl 

## a script, not needed now, for convering the whodoeswhat file from text to rdf.
## libby.miller@bristol.ac.uk, July 2002

my $infilen=$ARGV[0];


open (IN,$infilen);  

print STDOUT "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"
 xmlns:pm=\"http://www.w3.org/2002/02/esw/pm#\" >
";

my $url;
my $bool=1;
my $bool1=1;

while(<IN>){



if($_=~ m/WP_url:\s+(.*)\s+/){

  if($bool==0){
   print "\n</rdf:Description>\n</pm:deliverable>";
   $bool=1;
  }
  if($bool1==0){
   print "\n</rdf:Description>";
   $bool1=1;
  }

print "\n\n<rdf:Description rdf:about='$1'>";
$url=$1;
$bool1=0;
}

if($_=~ m/WP_number:\s*(.*)\s*/){
print "\n<pm:workpackage>$1</pm:workpackage>";
}

if($_=~ m/WP_name:\s*(.*)\s*/){
print "\n<pm:real_name>$1</pm:real_name>";
}

if($_=~ m/WP_lead_partner_url:\s*(.*)\s*/){
print "\n<pm:lead_partner_url rdf:resource='$1'/>";
}

if($_=~ m/WP_lead_email:\s*(.*),?\s*[(.*)\s*]?/){
print "\n<pm:lead_email rdf:resource='mailto:$1'/>";
}

if($_=~ m/WP_effort_partner_email:\s*(.*)\s*email:\s*(.*)\s*/){
print "\n<pm:effort_partner_url rdf:resource='$1'/>";
print "\n<pm:effort_partner_email rdf:resource='mailto:$2'/>";
}

if($_=~ m/deliv_num_(.*):\s*([^\s]*)\s*/){

  if($bool==0){
   print "\n</rdf:Description>\n</pm:deliverable>";
   $bool=1;
  }


print "\n\n<pm:deliverable>\n<rdf:Description rdf:about='$url#del_$1'>";
print "\n<pm:name>$2</pm:name>";
$bool=0;
}

if($_=~ m/deliv_lead_email:\s*(.*)\s*/){
print "\n<pm:deliv_lead_email rdf:resource='mailto:$1' />";
}

if($_=~ m/deliv_interest_email:\s*(.*)\s*/){
print "\n<pm:deliv_interest_email rdf:resource='mailto:$1' />";
}


#print STDOUT $_;

}


print  "\n</rdf:Description>\n</pm:deliverable></rdf:Description>\n</rdf:RDF>";

close(IN);