如何找到进程启动时使用的原始用户名？

Question

有一个 perl 脚本需要以 root 身份运行，但我们必须确保运行该脚本的用户最初没有以用户“foo”身份登录，因为它将在脚本过程中被删除。

那么，我如何查明自登录以来可能已多次起诉的用户是否在该链中的任何时间都没有模拟过“foo”？

我发现一个有趣的 perl 脚本，它调用以下两个 shell 脚本，但我认为这只适用于 Solaris。

my $shell_parent = 
`ps -ef | grep -v grep | awk \'{print \$2\" \"\$3}\' | egrep \"^@_\" | awk \'{print \$2}'`;

my $parent_owner = 
`ps -ef | grep -v grep | awk \'{print \$1\" \"\$2}\' | grep @_ | awk \'{print \$1}\'`;

这需要在 Linux 和 Solaris 上工作，我宁愿消除对 shell 的重复调用，并将整个事情保留在 Perl 中。

Answer 1

快速而肮脏（仅限 UNIX）：

my $user = (split /\s/,`who am i`)[0];

who am i 命令返回 TTY 的所有者 - 即您登录时的身份。

如果您想在纯 Perl 中执行此操作：

use POSIX;
my $tty = POSIX::ttyname(1); # The tty we are running in
my $uid = (stat $tty)[4];    # The owner uid of that tty
my $user = getpwuid($uid);   # The user with that uid

这将返回正确的用户，即使在多次 su 之后。这通常会让您（经验不足的）系统管理员感到害怕。

Answer 2

这是一个检查直接 setuid 更改的 Perl 程序：

#! /usr/bin/perl

sub callingUser() {
    my ($login, $pass, $uid, $gid) = getpwuid(
lt;);
    return $login;
}

sub effectiveUser() {
    my ($login, $pass, $uid, $gid) = getpwuid(
gt;);
    return $login;
}

printf("Real user name: %s\n", effectiveUser());
printf("Calling user name: %s\n", callingUser());

但是既然您提到 setuid 更改可能以前发生过，您可能必须解析 ps 的输出：我将使用以下命令来执行此操作。该命令仅使用 POSIX 中定义的功能，所以我希望它是可移植到各种系统：

ps -e -o pid,ppid,user,ruser

Answer 3

也许下面的就是你想要的。函数hasBeenUser读取进程表，然后沿着从当前进程到父进程的进程链。如果途中的任何进程的 user 或 real user 字段等于所讨论的用户名，则该函数返回一个非零值。

#! /usr/bin/perl

sub hasBeenUser($) {
        my ($username) = @_;

        my $procs = {};
        open(PS, "ps -e -o pid,ppid,user,ruser |") or die;
        while (defined(my $line = <PS>)) {
                next unless $line =~ m"^(\d+)\s+(\d+)\s+(\S+)\s+(\S+)\s+$";
                my ($pid, $ppid, $user, $ruser) = (int($1), int($2), $3, $4);
                $procs->{$pid} = [$pid, $ppid, $user, $ruser];
        }
        close(PS) or die;

        my $pid = $;
        while (exists($procs->{$pid})) {
                my $proc = $procs->{$pid};
                delete $procs->{$pid}; # don't risk ending in an endless loop.
                warn "D: checking process $pid\n";
                if ($proc->[2] eq $username || $proc[3] eq $username) {
                        warn "E: process $pid was called by $username.\n";
                        return 1;
                }
                last if $pid < 2;
                $pid = $proc->[1];
        }
        return 0;
}

hasBeenUser("del"); # should return 0
hasBeenUser("root"); # should return nonzero

Answer 4

当从 mc 调用脚本时（至少在我们的 RHEL 中），我发现了一个极端情况，这导致 who am i 不输出任何内容。为了避免这种情况，我在 bash 中生成了以下一行代码：

REALUSERNAME=$(ps uhp `ps -AjH | grep \`ps -u $USER fh | awk '{ print $0; if(index($0, "ps -u $USER fh")) exit 0;}' | tac | awk '{if(!index($0, "\\\\\_")){print $1; exit 0;}}'\` | awk '{print $3}'` | awk '{print $1}')

本质上，这会在 ps -u $USER fh 的树输出上向后行走，然后在最上面的用户名列上进行裁剪。

欢迎思考，更好的解决方案:-)