#!/usr/bin/perl -w
# Server component of SQLite client/server prototype.
use DBI::ProxyServer;
{
DBI::ProxyServer::main(
# clients => [ '192.168.0.115' ],
-debug => 1,
-localport => 16000,
-logfile => '/tmp/Server.log',
-mode => 'fork',
-pidfile => '/tmp/Server.pid',
, @ARGV);
}
####
Use of uninitialized value in string eq at /opt/perl/lib/site_perl/5.8.8/i686-linux/DBI/ProxyServer.pm line 99.
Tue Oct 2 12:21:27 2007 debug, Server starting in operation mode fork
Tue Oct 2 12:21:27 2007 notice, Server starting
Tue Oct 2 12:21:27 2007 debug, Writing PID to /tmp/Server.pid
####
$ netstat -natp | grep LIST
tcp 0 0 0.0.0.0:16000 0.0.0.0:* LISTEN 2624/perl