#!/usr/bin/perl

use Readonly;
Readonly my $DBI_HOST => 'mysql.moloneyminds.com';
Readonly my $DBI_DATABASE => 'ew4896562';
Readonly my $DBI_USER => 'ew4896562';
Readonly my $DBI_PASSWORD => 'kazee';

use DBI;
use Carp;
use CGI;

my $dbh = DBI->connect("dbi:mysql:host=$DBI_HOST:database=$DBI_DATABASE", $DBI_USER, $DBI_PASSWORD)
      || croak DBI::errstr;

my $cgi = new CGI;

use HTML::Template;

my $html;

my $t = new HTML::Template(filename => 'templates/client.tmpl', die_on_bad_params => 0);


my $page = $dbh->selectrow_hashref("SELECT * FROM client WHERE id = 1");
$page->{text} =~ s#\n#</p><p>#g;
$page->{text} = "<p>$page->{text}</p>";


$t->param($page);


print "Content-type: text/html\n\n";

print $t->output;