#!/usr/local/bin/perl
#use DB_File;
require "/home/roger/lib/weblib.lib";
require "/home/todd/toddweb.env";
&htmlopen("The Todd Rundgren Connection presents the TR Fan Directory|");
dbmopen(FANDIR,"$PAGEHOMEDIR/db/fandir.db",0644);
print "<form action=$weblib::URL method=POST>\n";
print &htmltable("Fan Directory Information Form","border");
print &htmlrow("First Name",&field(Fname),"Last Name",&field(Lname));
print &htmlrow("Home address",&field(Haddr),"City/State or City/Country",&field(City).&field(State));
print &htmlrow("E-mail address",&field(Email),"Todd Fan since",&field(Since,4));
print &htmltableend;
sub field{
local($fieldname,$fieldsize)=@_;
$fieldsize=20 unless $fieldsize;
return "<input name=$fieldname size=$fieldsize value=$value{$fieldname}>";
}