tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-28 16:24:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Updated the Tentacle server to the latest version.

Browse Source
This commit is contained in:
Ramon Novoa 2014-11-27 15:37:36 +01:00
parent 9dabd9ce8d
commit ecc7cadeb7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pandora_server/bin/tentacle_server
View File

@ -600,6 +600,7 @@ sub send_data_proxy {
## Close the proxy socket. ## Close the proxy socket.
################################################################################ ################################################################################
sub close_proxy { sub close_proxy {
$t_proxy_socket->shutdown (2);
$t_proxy_socket->close (); $t_proxy_socket->close ();
print_log ("Proxy socket closed"); print_log ("Proxy socket closed");
@ -612,6 +613,7 @@ sub close_proxy {
sub stop_server { sub stop_server {
foreach my $t_server_socket (@t_server_sockets) { foreach my $t_server_socket (@t_server_sockets) {
$t_server_socket->shutdown (2);
$t_server_socket->close (); $t_server_socket->close ();
} }
print_log ("Server going down"); print_log ("Server going down");
@ -688,6 +690,7 @@ sub accept_connections {
if ($t_use_libwrap && (! hosts_ctl($t_program_name, $t_client_socket))) { if ($t_use_libwrap && (! hosts_ctl($t_program_name, $t_client_socket))) {
print_log ("Connection from " . $t_client_socket->peerhost() . " is closed by tcpwrappers."); print_log ("Connection from " . $t_client_socket->peerhost() . " is closed by tcpwrappers.");
$t_client_socket->shutdown (2);
$t_client_socket->close(); $t_client_socket->close();
} }
else { else {
@ -736,6 +739,8 @@ sub serve_client() {
} }
}; };
$t_client_socket->shutdown (2);
$t_client_socket->close ();
$t_sem->up(); $t_sem->up();
} }
@ -1485,6 +1490,7 @@ sub callback_start {
sub callback_stop { sub callback_stop {
foreach my $t_server_socket (@t_server_sockets) { foreach my $t_server_socket (@t_server_sockets) {
$t_server_socket->shutdown (2);
$t_server_socket->close (); $t_server_socket->close ();
} }