% # Include for database related stuff use DBI; my $dbuser = "test"; my $dbpass = "test"; my $database = "test"; my $host = "localhost"; my $port = 3306; my $driver = "mysql"; my %standardStatements = ( "addrow" => "INSERT INTO test (string) VALUES (?)", "delrow" => "DELETE FROM test WHERE string=?", "selrow" => "SELECT * FROM test WHERE string=?", ); sub showDBError { my ($dbh) = @_; %>
<%= $dbh ? $dbh->errstr : $DBI::errstr %>
<% $Response->End(); } sub getStandardStatement { my ($dbh, $stname) = @_; my $ststr = $standardStatements{$stname}; return undef unless $ststr; my $sth = $dbh->prepare($ststr) || &showDBError($dbh); return $sth; } sub action { my ($dbh, $action, $str) = @_; my $sth = &getStandardStatement($dbh, $action); $sth->execute($str) || &showDBError($dbh); my $row = $sth->fetchrow_arrayref || return undef; return (@$row); } my $queryData = $Request->QueryString(); %> <% if ($queryData->{'nosql'}) { %><%= $k %>: <%= $row->{$k} %> | <% } %>
Your query was: <%= "@query" %>