#!/usr/local/bin/perl

# * print out S-Z voices, followed by new voices

#filename w/double \\ if applicable
#$filehead = "c:\\www\\voices\\";
$filehead = "/home/clint/WWW/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);
#*****************************************************************************




print "<a name=\"TheVoices\"></a>\n";
print "********************************* THE VOICES **********************************\n";
print "********************************* THE VOICES **********************************\n";





$letter = join("", $filehead, "s.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************



$letter = join("", $filehead, "t.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************



$letter = join("", $filehead, "u.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************



$letter = join("", $filehead, "v.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************



$letter = join("", $filehead, "w.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************


$letter = join("", $filehead, "x.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************




$letter = join("", $filehead, "y.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************



$letter = join("", $filehead, "z.htm");
#*****************************************************************************
open(INFILE, "$letter") ||
     die("Can't open input file $letter");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************







print "\n\n\n";
#*****************************************************************************
open(INFILE, "$unsorted") ||
     die("Can't open input file $unsorted");
$line = <INFILE>;
until ($line eq "") {
    print "$line";
    $line = <INFILE>;
}
close(INFILE);
#*****************************************************************************


print("</PRE>\n");