ZoneMinder
/
zoneminder
mirror of https://github.com/ZoneMinder/zoneminder.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Slight modifications to the socket file. 

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@139 e3e1d417-86f3-4887-817a-d78f3d33393f
pull/27/merge
stan 2002-12-10 10:59:11 +00:00
parent 5e075cae48
commit a9523e957f
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/zmdc.pl.z
View File

@ -14,8 +14,7 @@
# ==========================================================================
use constant DAEMON_PATH => '/usr/local/zm/bin/';
use constant DAEMON_PATH => './';
use constant SOCK_FILE => '/tmp/zm.sock';
use constant DC_SOCK_FILE => '/tmp/zmdc.sock';
# ==========================================================================
#
@ -69,7 +68,7 @@ foreach my $arg ( @ARGV )
socket( CLIENT, PF_UNIX, SOCK_STREAM, 0 ) or die( "Can't open socket: $!" );
my $saddr = sockaddr_un( SOCK_FILE );
my $saddr = sockaddr_un( DC_SOCK_FILE );
if ( !connect( CLIENT, $saddr ) )
{
@ -91,7 +90,7 @@ if ( !connect( CLIENT, $saddr ) )
dprint( "Server starting at ".strftime( '%y/%m/%d %H:%M:%S', localtime() )."\n" );
socket( SERVER, PF_UNIX, SOCK_STREAM, 0 ) or die( "Can't open socket: $!" );
unlink( SOCK_FILE );
unlink( DC_SOCK_FILE );
bind( SERVER, $saddr ) or die( "Can't bind: $!" );
listen( SERVER, SOMAXCONN ) or die( "Can't listen: $!" );
@ -256,7 +255,7 @@ if ( !connect( CLIENT, $saddr ) )
stop( $process->{daemon}, @{$process->{args}} );
}
dprint( "Server shutdown at ".strftime( '%y/%m/%d %H:%M:%S', localtime() )."\n" );
unlink( SOCK_FILE );
unlink( DC_SOCK_FILE );
close( CLIENT );
close( SERVER );
exit();