Отпечатай - Проблем с Perl+SUID wrapper и syslog

Титла: Проблем с Perl+SUID wrapper и syslog
Публикувано от: wfw в Mar 18, 2014, 09:33

Здравейте,
имам следния досаден проблем: Perl скрипт, който трябва да работи с правата на друг потребител го стартирам с един wrapper, който е SUID, защото perl suid го спряха в Debian 7.
Всичко работи, само че скрипта, вместо да логва на правилното място в syslog (в случая mail|info), логва в user. и е много досадно, защото mail|warning отива в user.emerg, а и не мога да си намеря нещата на правилните места. Някой с идеи?

Титла: Re: Проблем с Perl+SUID wrapper и syslog
Публикувано от: Demayl в Mar 18, 2014, 13:11

Какъв модул ползваш за syslog

Титла: Re: Проблем с Perl+SUID wrapper и syslog
Публикувано от: wfw в Mar 18, 2014, 13:26

Код:

use Sys::Syslog qw(:DEFAULT setlogsock);
setlogsock('unix');

...

syslog('mail|info',"$msgtype: $msg");

Титла: Re: Проблем с Perl+SUID wrapper и syslog
Публикувано от: Demayl в Mar 18, 2014, 19:09

user.emerg в самия syslog plain text файла ли е, ако е така си добави едно

Код:

openlog( 'syslog', 'pid' )

Или може да погледнеш на http://search.cpan.org/~saper/Sys-Syslog-0.33/Syslog.pm#Facilities ($2) и да видиш какво ще е ок за теб като аргументи

Linux за българи: Форуми

Linux секция за напреднали => Хардуерни и софтуерни проблеми => Темата е започната от: wfw в Mar 18, 2014, 09:33