<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: Люди, помогите с perl&apos;ом</title>
    <link>https://opennet.dev/openforum/vsluhforumID1/81860.html</link>
    <description>Есть такой скрипт:&lt;br&gt;&lt;br&gt;#!/usr/bin/perl&lt;br&gt;&lt;br&gt;use IO::Socket;&lt;br&gt;use constant PORT =&amp;gt; 1000;&lt;br&gt;use constant USER =&amp;gt; &apos;guest&apos;;&lt;br&gt;use constant GROUP =&amp;gt; &apos;guest&apos;;&lt;br&gt;use constant PIDFILE =&amp;gt; &apos;/var/tmp/eliza.pid&apos;;&lt;br&gt;&lt;br&gt;use POSIX qw( :sys_wait_h );&lt;br&gt;use POSIX qw(setsid);&lt;br&gt;use Carp &apos;croak&apos;,&apos;cluck&apos;;&lt;br&gt;use IO::File;&lt;br&gt;use Sys::Syslog qw(:DEFAULT setlogsock);&lt;br&gt;use constant PIDPATH =&amp;gt; &apos;/var/run&apos;;&lt;br&gt;use constant FACILITY =&amp;gt; &apos;local0&apos;;&lt;br&gt;&lt;br&gt;my ($pid, $pidfile);&lt;br&gt;&lt;br&gt;sub init_server &#123;&lt;br&gt;my ($user,$group);&lt;br&gt;($pidfile,$user,$group) = &#064;_;&lt;br&gt;$pidfile &amp;#124;&amp;#124;= getpidfilename();&lt;br&gt;my $fh = open_pid_file($pidfile);&lt;br&gt;become_daemon();&lt;br&gt;print $fh $$;&lt;br&gt;close $fh;&lt;br&gt;init_log();&lt;br&gt;change_privileges($user,$group) if defined $user &amp;&amp; defined $group;&lt;br&gt;return $pid = $$;&lt;br&gt;&#125;&lt;br&gt;&lt;br&gt;sub become_daemon &#123;&lt;br&gt;        die &quot;Can&apos;t fork&quot; unless defined (my $child = fork);&lt;br&gt;        exit 0 if $child;&lt;br&gt;        setsid();&lt;br&gt;        open(STDIN,&quot;/dev/null&quot;);&lt;br&gt;        open(STDERR,&quot;&amp;gt;&amp;STDOUT&quot;);&lt;br&gt;        chdir &apos;/&apos;;&lt;br&gt;        umask(0);&lt;br&gt;        $ENV&#123;PATH&#125; = &apos;/bin:/sbin:/usr/bin:/usr/</description>

<item>
    <title>Люди, помогите с perl&apos;ом (mrV)</title>
    <link>https://opennet.dev/openforum/vsluhforumID1/81860.html#4</link>
    <pubDate>Tue, 09 Sep 2008 06:59:49 GMT</pubDate>
    <description>&amp;gt;Ну тогда остается либо предположить присутствие нечистой силы, либо ваше неумение настроить &lt;br&gt;&amp;gt;и читать syslog. Обратите внимание, что логируется с разными приоритетами, вполне &lt;br&gt;&amp;gt;возможно, что у вас все кроме crit отбрасывается. &lt;br&gt;&lt;br&gt;Не первый пост, в котором товарищ просто-напросто унижает людей, просящих помощь.&lt;br&gt;</description>
</item>

<item>
    <title>Люди, помогите с perl&apos;ом (angra)</title>
    <link>https://opennet.dev/openforum/vsluhforumID1/81860.html#3</link>
    <pubDate>Sun, 07 Sep 2008 13:38:16 GMT</pubDate>
    <description>Ну тогда остается либо предположить присутствие нечистой силы, либо ваше неумение настроить и читать syslog. Обратите внимание, что логируется с разными приоритетами, вполне возможно, что у вас все кроме crit отбрасывается. &lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>Люди, помогите с perl&apos;ом (sanches)</title>
    <link>https://opennet.dev/openforum/vsluhforumID1/81860.html#2</link>
    <pubDate>Sun, 07 Sep 2008 07:21:10 GMT</pubDate>
    <description>&amp;gt;Может стоит для начала лог посмотреть? &lt;br&gt;&lt;br&gt;ничего там нет.&lt;br&gt;</description>
</item>

<item>
    <title>Люди, помогите с perl&apos;ом (angra)</title>
    <link>https://opennet.dev/openforum/vsluhforumID1/81860.html#1</link>
    <pubDate>Sun, 07 Sep 2008 03:13:04 GMT</pubDate>
    <description>Может стоит для начала лог посмотреть?&lt;br&gt;</description>
</item>

</channel>
</rss>
