#!/usr/bin/perl -w
use strict;
use warnings;
 
use FindBin;
use lib $FindBin::Bin;
use Spline::Socketmap;
use Spline::Srs;
 
$Spline::Socketmap::timeout = 10;
$Spline::Socketmap::handler = sub {
    my ($map, $key) = @_;
    Spline::Srs::handle($map, $key);
};

Spline::Socketmap->run({
    syslog_ident => 'srs',
    conf_file    => ($< == 0 ? '' : $ENV{"HOME"}) . '/etc/srs.conf',
});

# vim: set et ts=4: