#!/usr/local/bin/perl5.8.0
# WebGenDB Utility
# This script creates a batch load from a tab delimited file with format
# ObjID, SObjID, Transcription file name.

if ($#ARGV <1) {
    print "usage: addTanscBatch.pl <inputFile> <outputFile>\n";
    exit;
}

$inFile = $ARGV[0];
$outFile = $ARGV[1];

open(INPUT,"<$inFile");
open(OUTPUT, ">$outFile");

print OUTPUT "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print OUTPUT "<Export xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation=\"GenDBLoad.xsd\">\n";

while ($line = <INPUT>) {
    ($objId, $sObjId, $fileName) = split(/\t/, $line);
    print OUTPUT "<Object TYPE=\"\" ID=\"Object$objId\" OBJID=\"$objId\" SOBJID=\"$sObjId\">\n";
    print OUTPUT "<Transcr.FileName>$fileName</Transcr.FileName>\n";
    print OUTPUT "</Object>\n";
}

print OUTPUT "</Export>\n";