#!/usr/bin/perl
# added to httpd.conf:
# LoadModule fcgid_module libexec/apache24/mod_fcgid.so
#
# AddHandler fcgid-script .fcgi
#
#
# Load testing is done with the following command:
# http_load -parallel 100 -seconds 30 ./URLs.txt
use FCGI;
use DBI;
use Encode;
$| = 1;
binmode STDOUT, ":utf8";
my $request = FCGI::Request();
while($request->Accept() >= 0) {
my ($dbh,$select,$body,@row);
binmode STDOUT, ":utf8";
$body = "Content-type:text/html; charset=utf-8\r\n\r\n";
$body .= '';
$dbh = DBI->connect('DBI:mysql:database=testdatabase:host=::','root','',{mysql_enable_utf8 => 1}) or die 'Could not connect'; # connect to the database
$select = $dbh->prepare('SELECT testvalue FROM utf8test');
$select->execute;
while(@row = $select->fetchrow_array) {
$body .= "$row[0]
\n";
}
$body .= '';
$body = encode_utf8($body);
print $body;
}