#!/usr/bin/perl -w -T
# luetaan xhtml-dokumentin alkuosa tiedostosta
# tulostetaan taulukkoon tiedostosta luettuja henkilötietoja
use strict;

print "Content-type: text/html\n\n";

my $INFILE;
open($INFILE,  "pohja.txt")   or die "pohja.txt ei aukea: $!";
my @alku = <$INFILE>;

print @alku;
close($INFILE);

print "
<h1>Henkilötietoja</h1>
<p>Henkilöiden yhteystietoja sun muuta.</p>
";

open($INFILE,  "tiedot.txt")   or die "tiedot.txt ei aukea: $!";

my $rivi;

print "
<table>
<caption>Tiedot</caption>
<tr><th>Nimi</th><th>Sähköposti</th><th>huone</th></tr>
";

while ( $rivi = <$INFILE> ) {
  my ($nimi, $email, $huone) = split(/;/, $rivi);
print "
<tr>
<td>$nimi</td>
<td>$email</td>
<td>$huone</td>
</tr>
";

}

print "
</table>
</body>
</html>
";