Найти имя пользователя службы каталогов с помощью скрипта входа в Perl

Question

Я создал скрипт входа в Perl, который должен запускаться на клиентах Mac OS X и записывать имя пользователя в службе каталогов.

Я пытался использовать getlogin(), getpwuid($<) соответственно.

Теперь проблема в том, что, поскольку скрипт входа в систему запускается от имени root в системе, когда клиент входит в систему, getpwuid($<) всегда дает мне имя пользователя от имени root.При использовании функции getlogin() я получаю имя пользователя, но для пользователя, который ранее входил в систему.

Я использую среду открытого каталога, состоящую из сервера Mac OS.

Есть идеи, как решить эту проблему?

Answer 1

Вы говорите о loginhook скрипте? Если это так, ему будет передано имя пользователя в качестве аргумента, поэтому $ARGV[0] должно быть тем, что вам нужно.

Answer 2

Можете ли вы просто использовать last? (man-страница) Имена и продолжительность входа уже указаны в файле wtmpЯ не думаю, что вам нужно регистрировать их самостоятельно.