#!/usr/bin/perl -w
use strict;
require 'html.pl';
use lib './MyLib';




  use DBI;
  my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
  $dbh->func( 'users', 'CSV', 'users.csv' 'ad_catalog');
  my $sth = $dbh->prepare("SELECT surname FROM users");
  $sth->execute();
  while (my $row = $sth->fetch) {
      print "@$row\n";
  }



# define variables


header();
print("<table width='90%'>");
print("<TR valign='top'><TD width='30%'>");

      print ("Menu<BR>");
      print ("====<BR>");
      print ("<a href='create-user.cgi'>Create New User</a><BR>");
      print ("Login User<BR>");
      print ("User Admin<BR>");
      print("</TD>");
print("<TD>");
      print ("CREATE USER<BR>");
      print ("==========<BR>");
      print ("This is where the code to create new users will be placed");
      print ("<P>");

     print ("USER VARIABLES<HR>");
my %user_data = qw(
id	blank
first_name		blank
surname		blank
date_of_birth	blank
email			blank
password		blank
active		blank
last_login		blank
create_date		blank
earnings		blank
cash			blank
judoka_limit	blank
sensei_limit	blank
dojo_limit		blank
team_limit		blank
rank			blank
);
open (OUTFILE, ">./user_data/test_user");
while (($a, $b) = each(%user_data)){
	print ("Key = $a and its value is $b<BR>");
        print OUTFILE ("$a\n$b");
}
close (OUTFILE);

print ("<HR>USERS ON SYSTEM<HR>");
opendir(USERS, "./user_data");
while ( my $name = readdir(USERS)) {
                                if ($name ne '.' and $name ne '..') {
                                print ("<a href='./user_data/$name'>$name</a><BR>");
                                }
}
closedir(USERS);

print("</TR>");
print("</table>");