--- sysplogd	2009/04/11 09:52:59	8
+++ sysplogd	2009/04/11 12:17:53	13
@@ -8,24 +8,31 @@
 use DBI;
 use Getopt::Long;
 
-my $port = 514;
+our $port = 514;
+our $MAXLEN = 1524;
 
-my $MAXLEN = 1524;
+our $dsn    = 'DBI:Pg:dbname=syslog';
+our $user   = 'dpavlin';
+our $log    = '/tmp/sysplog.log';
+
+my $config = $0;
+$config =~ s{/[^/]+$}{/conf.pl};
+if ( -e $config ) {
+	require $config;
+	warn "# using $config ", -s $config, $/;
+}
 
-my $dsn    = 'DBI:Pg:dbname=syslog;host=llin.lan';
-my $user   = 'dpavlin';
 my $debug  = 0;
 my $schema = 0;
-my $log    = '/tmp/sysplog.log';
 
 GetOptions(
 	'debug+'  => \$debug,
 	'schema!' => \$schema,
 	'log=s'   => \$log,
+	'port=i'  => \$port,
 ) || die "usage: $0 --debug --schema\n";
 
-my @facilities = ( qw/
-/ );
+our $VERSION = '0.00';
 
 my $sql_schema = q{
 
@@ -105,7 +112,6 @@
 
 _log "INFO: listen on $port";
 
-my $rin = '';
 my $buf;
 while(1) {
 	$sock->recv($buf, $MAXLEN);