Update zmdc.pl.in

This commit is contained in:
peruchi 2016-08-02 16:26:27 -03:00 committed by GitHub
parent 0238656542
commit 0d85d3e60d
1 changed files with 6 additions and 1 deletions

View File

@ -69,7 +69,12 @@ use IO::Handle;
use autouse 'Pod::Usage'=>qw(pod2usage);
#use Data::Dumper;
use constant SOCK_FILE => $Config{ZM_PATH_SOCKS}.'/zmdc'.$Config{ZM_SERVER_ID}.'.sock';
if ( ! defined('ZM_SERVER_ID') ) {
use constant SOCK_FILE => $Config{ZM_PATH_SOCKS}.'/zmdc.sock';
}
else {
use constant SOCK_FILE => $Config{ZM_PATH_SOCKS}.'/zmdc'.$Config{ZM_SERVER_ID}.'.sock';
}
$| = 1;