#!/usr/bin/perl -w


use strict;
use DBI;
use CGI qw( -no_undef_params :standard);
use HTML::Template;

my $param = "";
my ($ownsel, $sortby, $letter, $ascdesc, $t);

my $dbh = DBI->connect('DBI:mysql:dbname;host=localhost',
		'someone', 'something')
	or die "Database connection: $!";
my $cgi = CGI->new;

my $base = $cgi->url;

if ( $cgi->param ) {
	if ( defined ( $cgi->param( 'sortby' ) ) ) {
	 $sortby = $_;
  } else {
	 $sortby = "name";
  }
	if (defined ( $cgi->param( 'ascdesc' ) ) ) {
	 $ascdesc = $_;
  } else {
	 $ascdesc =  "desc";
  }
	if (defined ( $cgi->param( 'letter' ) ) ) {
	 $letter = $_;
  } else {
	 $letter = " ";
  }
	ownertbl( $sortby, $ascdesc, $letter );
} else {
	homepage();
}

sub homepage {
	
	$t = HTML::Template->new( filename => 'home.tmpl',
						global_vars => '1' 
				  );

	my @alphabet = ();
	for ("A" .. "Z") {
		my %letter;
	  	$letter { 'letter' } = $_;
		push(@alphabet, \%letter);
	}

	$t->param( alphabet => \@alphabet,
				base => $base,
				sortby => $sortby,
				ascdesc => $ascdesc,
				letter => $letter
			);

	print $cgi->header;
	print $t->output;
}


sub ownertbl {

	( $sortby, $ascdesc, $letter ) = @_;

	my $sort = "";

	$sort = "ORDER BY " . $sortby . $ascdesc;

  if ( defined ( $letter ) ) {
	 $letter = "WHERE " . $sortby . " LIKE '" . $letter . "%'";
  } else {
	 $letter = " ";
  }

	my $query = "SELECT field1, field2, field3, field4, field5 
			FROM table
			$sort $letter";

	my $sth = $dbh->prepare( $query );

	$sth->execute( );

	my @ownsel = ();
	push @{$ownsel}, $_ while $_ = $sth->fetchrow_hashref();

	$t = HTML::Template->new( filename => 'ownertbl.tmpl' );

	$t->param(ownerall => \@ownsel,
				base => $base,
				letter => $letter
			);

	print STDERR "base = $base, sort = $sort, sortby = $sortby, ascdesc = $ascdesc, letter = $letter\n";
	print $cgi->header;
	print $t->output;
}


$dbh->disconnect;