diff options
author | Alexander Sulfrian <alex@spline.inf.fu-berlin.de> | 2016-06-21 20:40:19 +0200 |
---|---|---|
committer | Alexander Sulfrian <alex@spline.inf.fu-berlin.de> | 2016-06-21 21:37:20 +0200 |
commit | 9871df4963670f7a2627d4e8d59515055ae803d6 (patch) | |
tree | 7fd50352d35351e204a4add57b4a79a4a6b79250 | |
parent | 99b5ef197b23ea72220ef568b38f0f3c97943293 (diff) | |
download | srs-9871df4963670f7a2627d4e8d59515055ae803d6.tar.gz srs-9871df4963670f7a2627d4e8d59515055ae803d6.tar.bz2 srs-9871df4963670f7a2627d4e8d59515055ae803d6.zip |
Use embeded package to test default values
You should be able to set it in the configuration file.
-rwxr-xr-x | srs | 38 |
1 files changed, 22 insertions, 16 deletions
@@ -4,25 +4,31 @@ use warnings; use FindBin; use lib $FindBin::Bin; -use English; -use Spline::Socketmap::Srs; - -my $defaults = { - syslog_ident => 'srs', - log_level => 1, -}; +{ + package SrsServer; + use base 'Spline::Socketmap::Srs'; + use English; + + sub default_values { + my $defaults = { + syslog_ident => 'srs', + log_level => 1, + }; + + # Load config file by default if it exists + my $config_file = '/etc/srs.conf'; + $config_file = $ENV{HOME} . $config_file if $UID != 0; + $defaults->{conf_file} = $config_file if -e $config_file; -# Load config file by default if it exists -my $config_file = '/etc/srs.conf'; -$config_file = $ENV{HOME} . $config_file if $UID != 0; -$defaults->{conf_file} = $config_file if -e $config_file; + # Default to current user (if not root) + $defaults->{user} = $EUID if $EUID != 0; + $defaults->{group} = $EGID if $EGID != 0; -# Default to current user (if not root) -$defaults->{user} = $EUID if $EUID != 0; -$defaults->{group} = $EGID if $EGID != 0; + return $defaults; + } +} -my $server = Spline::Socketmap::Srs->new(); -$server->run($defaults); +SrsServer->run(); # vim: set et ts=4: |