#!/usr/local/bin/perl

# * print out E-K 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, "e.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, "f.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, "g.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, "h.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, "i.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, "j.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, "k.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");

