File Coverage

blib/lib/Umlmgr/Utils.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	8	0.0
condition	0	3	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	16	47	34.0

package Umlmgr::Utils;

use 5.010000;
use strict;
use warnings;
use POSIX;

sub get_id {
    my ($user) = @_;
    my @pwnam = POSIX::getpwnam($user) or return;
    $pwnam[2]
}

sub become_user {
    my ($user) = @_;

    if ($< != 0 && $> != 0) { return 1 }
    my $id = get_id($user) or return;
    #$> = $< = $id;
    if (POSIX::setuid($id)) {
        my @puid = POSIX::getpwuid($id);
        POSIX::setgid($puid[3]);
        $ENV{HOME} = $puid[7];
        $ENV{TMP} = "$puid[7]/tmp";
        $ENV{TMPDIR} = "$puid[7]/tmp";
        $ENV{USER} = $user;
        return 1;
    } else { return }
}

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__