35 |
# meterod version |
# meterod version |
36 |
################################################################################ |
################################################################################ |
37 |
|
|
38 |
$::VERSION='1.05.03'; |
$::VERSION='1.05.04'; |
39 |
$::RELEASE_DATE='not yet released'; |
$::RELEASE_DATE='not yet released'; |
40 |
|
|
41 |
############################################################################### |
############################################################################### |
102 |
{ |
{ |
103 |
$0="$::PGM daemon"; |
$0="$::PGM daemon"; |
104 |
|
|
105 |
unless($::CONF{'Debug'}) |
my $facility=$::CONF{'SyslogFacility'} || $Meteor::Syslog::DEFAULT_FACILITY; |
106 |
|
|
107 |
|
unless($::CONF{'Debug'} || $facility eq 'none') |
108 |
{ |
{ |
109 |
# close standard file descriptors |
# close standard file descriptors |
110 |
close(STDIN); |
close(STDIN); |
127 |
} |
} |
128 |
else |
else |
129 |
{ |
{ |
130 |
print "$::PGM PID: $$\n"; |
&::syslog('info',"PID\t%s",$$); |
131 |
} |
} |
132 |
} |
} |
133 |
|
|
181 |
my $rVec=$serverVector; |
my $rVec=$serverVector; |
182 |
my $wVec=''; |
my $wVec=''; |
183 |
my $eVec=''; |
my $eVec=''; |
184 |
|
|
185 |
my $rout; |
my $rout; |
186 |
my $wout; |
my $wout; |
187 |
my $eout; |
my $eout; |
188 |
|
|
189 |
Meteor::Connection->addAllHandleBits(\$rVec,\$wVec,\$eVec); |
Meteor::Connection->addAllHandleBits(\$rVec,\$wVec,\$eVec); |
190 |
|
|
191 |
my $timeout=$MAIN_LOOP_TIMEOUT; |
my $timeout=$MAIN_LOOP_TIMEOUT; |