use DBI;
use IO::Socket;
use UltimateAuction qw(%form $couser $copass $db $dbh %config @auction_types);
use strict;
use Digest::MD5 qw(md5_hex);
require 'C:/Apache24/htdocs/choo/cgi-bin/ua/variables/variables.cgi';
require 'C:/Apache24/htdocs/choo/cgi-bin/ua/variables/accountvars.cgi';

&UltimateAuction::service;

# connect to our database
my $db = &UltimateAuction::mysql_connect;


my %cookie   =  &UltimateAuction::get_cookie();
my $couser = $cookie{'Username'};
my $copass = $cookie{'Password'};
local %form = &UltimateAuction::fetch_form;


require 'http://localhost/choo/cgi-bin/ua/includes/print_item_list.pl';
require 'http://localhost/choo/cgi-bin/ua/includes/print_category_list.pl';
require 'http://localhost/choo/cgi-bin/ua/includes/print_category_featured.pl';
require 'http://localhost/choo/cgi-bin/ua/includes/gallery_featured.pl';