#!/usr/local/bin/perl

# * print out ALL data

#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, "a.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, "b.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, "c.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, "d.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, "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);
#*****************************************************************************



$letter = join("", $filehead, "l.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, "m.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, "n.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, "o.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, "p.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, "q.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, "r.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, "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");