#!/usr/bin/perl

use CGI_Lite;
use Pg;

$dbmain="ovid_users";
$table="users";

$Option_ref = Pg::conndefaults();
($key, $val);

while (<STDIN>) {
    @values=split /\&/;
    foreach $value (@values) {
	@fields=split /\=/,$value;
	$fields[1]=url_decode($fields[1]);
	$fields[1]=~s/\'/\\\'/gi;
	$fields[1]=~tr/\+/\ /;
	$vars{$fields[0]}=$fields[1];
    }
}

$conn = Pg::connectdb("dbname=$dbmain");
die $conn->errorMessage unless PGRES_CONNECTION_OK eq $conn->status;

$query="SELECT * FROM $table WHERE lower(name) LIKE lower('\%$vars{\"search\"}\%');";  
$result=$conn->exec("$query");

die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;