#include "includes.h"
#ifndef O_NONBLOCK
#define O_NONBLOCK
#endif
pid_t pidfile_pid(const char *name)
{
int fd;
char pidstr[20];
pid_t pid;
unsigned int ret;
pstring pidFile;
slprintf(pidFile, sizeof(pidFile)-1, "%s/%s.pid", lp_piddir(), name);
fd = sys_open(pidFile, O_NONBLOCK | O_RDONLY, 0644);
if (fd == -1) {
return 0;
}
ZERO_ARRAY(pidstr);
if (read(fd, pidstr, sizeof(pidstr)-1) <= 0) {
goto noproc;
}
ret = atoi(pidstr);
if (ret == 0) {
DEBUG(1, ("Could not parse contents of pidfile %s\n",
pidFile));
goto noproc;
}
pid = (pid_t)ret;
if (!process_exists_by_pid(pid)) {
goto noproc;
}
if (fcntl_lock(fd,SMB_F_SETLK,0,1,F_RDLCK)) {
goto noproc;
}
close(fd);
return (pid_t)ret;
noproc:
close(fd);
unlink(pidFile);
return 0;
}
void pidfile_create(const char *program_name)
{
int fd;
char buf[20];
char *short_configfile;
pstring name;
pstring pidFile;
pid_t pid;
if (strcmp( CONFIGFILE, dyn_CONFIGFILE) == 0) {
strncpy( name, program_name, sizeof( name)-1);
} else {
short_configfile = strrchr( dyn_CONFIGFILE, '/');
if (short_configfile == NULL) {
short_configfile = dyn_CONFIGFILE;
} else {
short_configfile++;
}
slprintf( name, sizeof( name)-1, "%s-%s", program_name, short_configfile+1);
}
slprintf(pidFile, sizeof(pidFile)-1, "%s/%s.pid", lp_piddir(), name);
pid = pidfile_pid(name);
if (pid != 0) {
DEBUG(0,("ERROR: %s is already running. File %s exists and process id %d is running.\n",
name, pidFile, (int)pid));
exit(1);
}
fd = sys_open(pidFile, O_NONBLOCK | O_CREAT | O_WRONLY | O_EXCL, 0644);
if (fd == -1) {
DEBUG(0,("ERROR: can't open %s: Error was %s\n", pidFile,
strerror(errno)));
exit(1);
}
if (fcntl_lock(fd,SMB_F_SETLK,0,1,F_WRLCK)==False) {
DEBUG(0,("ERROR: %s : fcntl lock of file %s failed. Error was %s\n",
name, pidFile, strerror(errno)));
exit(1);
}
memset(buf, 0, sizeof(buf));
slprintf(buf, sizeof(buf) - 1, "%u\n", (unsigned int) sys_getpid());
if (write(fd, buf, strlen(buf)) != (ssize_t)strlen(buf)) {
DEBUG(0,("ERROR: can't write to file %s: %s\n",
pidFile, strerror(errno)));
exit(1);
}
}