#!/usr/bin/perl

## $Id$

use lib '/ww/webwork/development/'; # mainWeBWorKDirectory;
use Global;

# This file is test_delim2html.pl  

# Call with command arguments of the form:   inputFile 
 



my ($fileName1) = @ARGV;

my $scriptDirectory   = $Global::scriptDirectory;
require "${scriptDirectory}$Global::FILE_pl";

my $string = &delim2html($fileName1);

if ($fileName1 =~ m|\.|) {           ## change extension
    $fileName1 =~ s|\..*|\.html|;     
}
else {$fileName1 .= '.html';}   

open(FILE, ">$fileName1");
print FILE "$string";
close FILE;