#!/usr/bin/perl -w
# author: Xuejing Sun Dec. 2007
## convert a list of terms into xml format readable by taxonomy_xml module
$|=1; #Force buffer flush on STDOUT
($#ARGV == 1) || die "USAGE: perl taxonomy_list2xml.pl in_fn out_fn \n";
$in_fn=$ARGV[0];     
$out_fn=$ARGV[1];

$VID=1;
$VOCABULARY_NAME="Languages";

open (OUT,">$out_fn") or die;
open (IN,"<$in_fn")
    || die "Can't open input file $!";
@term_list=<IN>;
chomp(@term_list);
close IN;
print OUT "<?xml version=\"1.0\" standalone=\"no\"?>\n";
print OUT "<!DOCTYPE taxonomy SYSTEM \"taxonomy.dtd\">";
print OUT "<vocabulary>\n";
print OUT "<vid>$VID</vid><name>$VOCABULARY_NAME</name><description></description><help></help><relations>0</relations><hierarchy>0</hierarchy><multiple>0</multiple><required>0</required><module>taxonomy</module><weight>0</weight><nodes></nodes>";
$TID=1;
foreach (@term_list)
{
    next if (/^$/); 
    print OUT "<term><tid>$TID</tid><vid>$VID</vid><name>$_</name><description></description><weight>0</weight><depth>0</depth><parent>0</parent></term>";
    $TID++;
}
print OUT "</vocabulary>\n";
close OUT;