#!/usr/bin/perl

use CGI qw/:standard/;
print header, start_html('KahlUA'), h1('KahlUA Address Book Update');

open (ADDRESS, "+< /home/kahlua/lookup_book.txt") or print "$!";
print "<h4>Current database:</h4><font color=\"000000\"> <table border cellspacing=8> <TR> <TH> Name <TH> Number <TR>";

while (<ADDRESS>) {
	($name, $number) = split (/\t/, $_, 2);
	print "<TR><TD><font color=\"770000\">$name</font>\n";
        print "<TD><font color=\"005500\">$number</font>\n";
    }
print HTML "</TR> </table>";

print "</table>" . p, p, h4('Add a new entry:'), start_form, "New name: ", textfield('name'), "New number: ", textfield('number'), p, submit, end_form, hr;

if (param()) {
	seek(ADDRESS, 0, 2);
	print ADDRESS lc param('name') . "\t" . param('number');
}