#/usr/local/perl-5.6.0/bin/perl -w
#Jing Zhao 7/08/2003 version1
# this program convert the table image.txt into seperate xml files
# use image.txt as input tab delimited files.

$inputDir = "./";
$outputDir = "./xml/";
$file = "image.txt";

opendir(SRC, "$inputDir")||die "Can't open dir $inputDir\n";
opendir(DEC, "$outputDir") || die "Can't open dir $outputDir\n";
open(FILE, "$inputDir$file") || die "Can't open file"."$inputDir$file"."\n";

$num_field = 0; #indecate how many fields current row has(always 14)

while (<FILE>){  #put one line(one row of table) into array of files
  chomp;
  push(@files,$_);
  #print OUT $_;
}

foreach (@files){
  foreach (@fields = split "\t", $_){  
    $num_field++;
  } 
  print "$fields[0]\n";
  print "$num_field\n";
  $num_field = 0;
  $fields[0] =~ s/ //g;
  open(OUT, ">$outputDir$fields[0].xml") || die "Can't open file".">$outputDir$fields[0]"."\n";
  print OUT "<?xml version = \"1.0\" encoding =\"iso-8859-1\"?>\n";
  print OUT "<Image xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation = \"http://www.isrl.uiuc.edu/~openkey/demo/images/html/image4_1.xsd\">\n";  
  print OUT "<!--Created by Jing Zhao 2/24/2003-->\n";
  print OUT "  <Key>$fields[0]</Key>\n";
  print OUT "  <Scale>$fields[1]</Scale>\n";
  print OUT "  <Date_Image_Created>$fields[2]</Date_Image_Created>\n";
  print OUT "  <Taxon_Name>$fields[3]</Taxon_Name>\n";
  print OUT "  <Description>$fields[4]</Description>\n";
  print OUT "  <Location>$fields[5]</Location>\n";
  print OUT "  <Copyright>$fields[6]</Copyright>\n";  
  print OUT "  <Contributor>$fields[7]</Contributor>\n";
  print OUT "  <Derived_From>$fields[8]</Derived_From>\n";
  print OUT "</Image>";
}
    # clear the buffer @files
while (@files){
  pop(@files);
}
#close (OUT);
close (FILE);   

closedir(SRC);
#close(FILE);
close(OUT);