#!/usr/bin/perl -w

# Sort out the input and output files

my ($infile, $dir) = @ARGV;
defined($infile) && defined($dir) || usage();
$infile && $dir || usage();
$record_count = 0;
$record_element = 'rdfescription';
$filename_element = 'dc:identifier';

#Create Infile
if (@ARGV > 0)
{
open(INFILE, "<$ARGV[0]") || die "Failed to open $ARGV[0]\n";
$infile = "INFILE";
}
else { $infile = "STDIN"; }

#Create Outfile
if (@ARGV > 1)
{
open(OUTFILE, ">$ARGV[1]/$record_count.xml") || die "Failed to open $ARGV[1]/$record_count.xml\n";
$outfile = "OUTFILE";
}
else { $outfile = "STDOUT"; }

else
print OUTFILE ("New Information");

#$stop = ((INFILE == $record_element) || (INFILE == eof));
#if ($stop)

close (INFILE);
close (OUTFILE);


sub msg {
print @_, "\n";
}

sub usage {
msg("Usage: $0 <file> <directory>");
exit(1);
}