view release on metacpan or  search on metacpan

lib/Umlmgr/Utils.pm  view on Meta::CPAN

    $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.