146 |
|
|
147 |
sub destroyBadRequests { |
sub destroyBadRequests { |
148 |
foreach my $conn (@Connections) { |
foreach my $conn (@Connections) { |
149 |
if (time-$conn->{'connectionStart'} > 30 && !exists($conn->{'subscriberID'}) && $conn->{'type'} eq 'Meteor::Subscriber') { |
if (time-$conn->{'connectionStart'} > 30 && !$conn->{'autoClose'} && !exists($conn->{'subscriberID'}) && $conn->{'type'} eq 'Meteor::Subscriber') { |
150 |
&::syslog('debug',"Closing misbehaving subscriber %s",$conn->{'socketFN'}); |
&::syslog('debug',"Closing misbehaving subscriber %s",$conn->{'socketFN'}); |
151 |
$conn->close(); |
$conn->close(); |
152 |
} |
} |