package Hello
use strict;

use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Request;
use DBI;

use Apache2::Const -compile => qw(OK);

sub handler {
  my $db = 'nutrientsdb';
  my $hostname = '192.168.2.24';
  my $user = 'rejbyers';
  my $dbpwd = 'xxxxxxxxxxx';
  my $dbh = DBI->connect("DBI:mysql:database=$db;host=$hostname",$user,$dbpwd,{RaiseError => 1}) or die "Failed to connect to the DB.\n";
  my $r = shift;
  my $req = Apache2::Request->new($r);
  my $table = $req->param;
  my %p = %$table;
  my $name = $p{'name'};
  if ((defined $name) && (length($name) > 0)) {
    print "Hello $p{'name'}, the time is " . localtime() . "\n\n\n";
    foreach my $k (keys %p) {
      print "$k <=> $p{$k}\n";
    }
  } else {
    print "Hello World,  the time is " . localtime() . "\n";
  }
  return Apache2::Const::OK;
}

1;