blob: d7f6dfdb80d06b084295838a2c27d2dfab1d3043 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/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:
|