#!/usr/local/bin/perl

require "lib/constants.pl";

# * print out just the new voices

#filename w/double \\ if applicable
#$filehead = "c:\\www\\voices\\";
$filehead = "$WWWDIR/voices/";

$unsorted = join("", $filehead, "new.htm");
$head     = join("", $filehead, "index.htm");


#make output a web page
print "Content-type: text/html\n\n";


#*****************************************************************************
open(INFILE, "$head") ||
     die("Can't open input file $head");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************

#*****************************************************************************
open(INFILE, "$unsorted") ||
     die("Can't open input file $unsorted");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************


print("</PRE>\n");

