#!/usr/local/bin/webwork-perl

use lib '.'; use webworkInit; # WeBWorKInitLine
use capa2PG;


# begin Timing code
use Benchmark;
my $beginTime = new Benchmark;
# end Timing code



 my $ARGV;
 my @file_lines;
unless ( @ARGV) {
	print "Useage   convert_1_CAPA_aux_2_PG.pl  input_file   >output.file\n\n";
	exit;
}
 while ($ARGV = shift) {
     print "#   READING FROM $ARGV\n\n";
 	
  	open(ARGV, "<$ARGV") || die " Can't read file $ARGV ";
  	@file_lines = <ARGV>;
  	close(ARGV);
  	print parse_CAPA_aux_file(\@file_lines);
 }

## begin Timing code
my $endTime = new Benchmark;
print "\n#################################################\n## Processing time = ", timestr( timediff($endTime,$beginTime) ), 
      "\n#################################################\n";
## end Timing code