#!/usr/bin/perl -Tw

use CGI qw(:standard);
#use CGI::Carp;

use DBI;
my $dbh = DBI->connect("DBI:mysql:book","user", "password");

$|++; # Make the pipes piping hot!

my $cgiquery = new CGI;
my $myself = $cgiquery->self_url;

print $cgiquery->header(-expires=>'now');
print $cgiquery->start_html(-"title"=>'Entry Administration ',
                            -"author"=>'brian@brie.com',
                            -"meta"=>{'keywords'=>'brian database',
                                    'copyright'=>'Copyright 1997 Big Brie'},
                            -"BGCOLOR"=>'white');



print "<H1 ALIGN=center>Database Administration Interface</H1>\n";
print '<P ALIGN=center>Developed by the man himself<BR><BR><A HREF="http://www.brie.com/brian/">Mr. Brian Lavender</A>' , "\n";


print "<H2>Table of data waiting for administration</H2>\n";
print '<A HREF="http://brie.com/cgi-bin/testing/database01.pl">Public User Page</A>';
print "\n\n";

print "<P>This page will have new features coming.\n";
print '<P>' , "\n";
print 'It will have a methods of moving the data into the other table, removing it, 
       and editing it. It will also require a password for access';

print "<P>\n";

my $query = "select * from entries";
my $sth = $dbh->prepare($query);
if ($sth->execute) {
  print "<TABLE BORDER CELLPADDING=5>\n"; #Make this table a real table
  print "<TR>\n";
  foreach (@{$sth->{NAME}}) { # print the Headers of the table
      print "<TH>", $_ , "</TH>\n";
  }
  print "</TR>\n";
  print "\n";
  while (my @row = $sth->fetchrow()){ #Get each row from the Msql object
      print "<TR>\n";
      foreach (@row) { # print all the elements
          print "<TD>", $_ , "</TD>\n";
      }
      print "</TR>\n";
  }
  print "</TABLE>\n";
}

print q{
  <P>
  <HR>
  <FONT SIZE=-1>
  <ADDRESS>

  <A HREF="http://www.brie.com"><IMG SRC="/pictures/smllogo.gif" ALIGN=baseline WIDTH=50 BORDER=0 HEIGHT=34></A>
  (C) 1997 
  <P>

  <A HREF="http://www.brie.com"><B>Brie Web Publishing</B></A><BR>
  PO Box 19184<BR>
  Sacramento, CA  95819<BR>
  (916) 443-6195
  </ADDRESS>
  <FONT SIZE=-1>
};

print $cgiquery->end_html, "\n"; # That is the end of it