File Coverage

blib/lib/App/Milter/Limit/Util.pm

Criterion	Covered	Total	%
statement	12	41	29.2
branch	0	18	0.0
condition			n/a
subroutine	4	8	50.0
pod	4	4	100.0
total	20	71	28.1

package App::Milter::Limit::Util;
$App::Milter::Limit::Util::VERSION = '0.52';
# ABSTRACT: utility functions for App::Milter::Limit


use strict;
use POSIX qw(setsid);
use File::Path 2.0 ();
use App::Milter::Limit::Config;


sub daemonize {
    my $pid = fork and exit 0;

    my $sid = setsid();

    # detach from controlling TTY
    $SIG{HUP} = 'IGNORE';
    $pid = fork and exit 0;

    # reset umask
    umask 027;

    chdir '/' or die "can't chdir: $!";

    open STDIN,  '+>/dev/null';
    open STDOUT, '+>&STDIN';
    open STDERR, '+>&STDIN';

    return $sid;
}


sub get_uid {
    my $user = shift;

    unless ($user =~ /^\d+$/) {
        my $uid = getpwnam($user);
        unless (defined $uid) {
            die qq{no such user "$user"\n};
        }

        return $uid;
    }
    else {
        return $user;
    }
}


sub get_gid {
    my $group = shift;

    unless ($group =~ /^\d+$/) {
        my $gid = getgrnam($group);
        unless (defined $gid) {
            die qq{no such group "$group"\n};
        }

        return $gid;
    }
    else {
        return $group;
    }
}


sub make_path {
    my $path = shift;

    unless (-d $path) {
        File::Path::make_path($path, { mode => 0755 });
    }

    my $conf = App::Milter::Limit::Config->global;

    chown $$conf{user}, $$conf{group}, $path
        or die "chown($path): $!";
}

1;

__END__