use IO::Socket;
use IO::Select;
use Socket;
use DBI;
require ("cgiforms.pl");
require ("dbsearch.pl");


#-Get User Query: Convert to DBIServer format:
@SQLStrings = ParseQueryString("\x22XP 1333\x22");
@DBIServerQueries = DBIServerEncapQuery(@SQLStrings);

#-Socket stuff:
$remote_host = "127.0.0.1";
$remote_port = "57660";

#-Create socket, connect to server:
$DBIClient = IO::Socket::INET->new(PeerAddr=> $remote_host, PeerPort=> $remote_port, Proto=> "tcp", Type=> SOCK_STREAM);

#-Loop through queries, send to server, get database results:
foreach $DBIServerQuery (@DBIServerQueries)
{
     print $DBIClient "$DBIServerQuery";
     while(defined(<$DBIClient>))
          {print "$_";}
}
print $DBIClient "DBISERVER_CLIENT_DONE\r\n";
$DBIClient->close;