user/diald/lock.c

   1 /*
   2  * lock.c - lock/unlock the serial device.
   3  *
   4  * This code is derived from chat.c.
   5  */
   6
   7 #include "diald.h"
   8
   9 #ifdef sun
  10 # if defined(SUNOS) && SUNOS >= 41
  11 # ifndef HDB
  12 #  define       HDB
  13 # endif
  14 # endif
  15 #endif
  16
  17 #ifndef LOCK_PREFIX
  18 # ifdef __NetBSD__
  19 # define        PIDSTRING
  20 # define        LOCK_PREFIX     "/var/spool/lock/LCK.."
  21 # else
  22 #  ifdef HDB
  23 #   define      PIDSTRING
  24 #   define      LOCK_PREFIX     "/usr/spool/locks/LCK.."
  25 #  else /* HDB */
  26 #   define      LOCK_PREFIX     "/usr/spool/uucp/LCK.."
  27 #  endif /* HDB */
  28 # endif
  29 #endif /* LOCK_PREFIX */
  30
  31 static char *lock_file;
  32
  33 /*
  34  *      Create a lock file for the named lock device
  35  */
  36 int lock(char *dev)
  37 {
  38 #ifdef PIDSTRING
  39     char hdb_lock_buffer[12];
  40 #endif
  41     int fd, pid, n;
  42     char *p;
  43
  44     if ((p = strrchr(dev, '/')) != NULL)
  45         dev = p + 1;
  46     lock_file = malloc(strlen(LOCK_PREFIX) + strlen(dev) + 1);
  47     if (lock_file == NULL)
  48         return -1;
  49     strcat(strcpy(lock_file, LOCK_PREFIX), dev);
  50
  51     while ((fd = open(lock_file, O_EXCL | O_CREAT | O_RDWR, 0644)) < 0) {
  52         if (errno == EEXIST
  53             && (fd = open(lock_file, O_RDONLY, 0)) >= 0) {
  54             /* Read the lock file to find out who has the device locked */
  55 #ifdef PIDSTRING
  56             n = read(fd, hdb_lock_buffer, 11);
  57             if (n > 0) {
  58                 hdb_lock_buffer[n] = 0;
  59                 pid = atoi(hdb_lock_buffer);
  60             }
  61 #else
  62             n = read(fd, &pid, sizeof(pid));
  63 #endif
  64             if (n <= 0) {
  65                 syslog(LOG_ERR, "Can't read pid from lock file %s", lock_file);
  66                 close(fd);
  67             } else {
  68                 if (kill(pid, 0) == -1 && errno == ESRCH) {
  69                     /* pid no longer exists - remove the lock file */
  70                     if (unlink(lock_file) == 0) {
  71                         close(fd);
  72                         syslog(LOG_NOTICE, "Removed stale lock on %s (pid %d)",
  73                                dev, pid);
  74                         continue;
  75                     } else
  76                         syslog(LOG_WARNING, "Couldn't remove stale lock on %s",
  77                                dev);
  78                 } else
  79                     syslog(LOG_NOTICE, "Device %s is locked by pid %d",
  80                            dev, pid);
  81             }
  82             close(fd);
  83         } else
  84             syslog(LOG_ERR, "Can't create lock file %s: %m", lock_file);
  85         free(lock_file);
  86         lock_file = NULL;
  87         return -1;
  88     }
  89
  90 # ifdef PIDSTRING
  91     sprintf(hdb_lock_buffer, "%10d\n", getpid());
  92     write(fd, hdb_lock_buffer, 11);
  93 # else
  94     pid = getpid();
  95     write(fd, &pid, sizeof pid);
  96 # endif
  97
  98     close(fd);
  99     return 0;
 100 }
 101
 102 /*
 103  *      Remove our lockfile
 104  */
 105 void unlock()
 106 {
 107     if (lock_file) {
 108         unlink(lock_file);
 109         free(lock_file);
 110         lock_file = NULL;
 111     }
 112 }
 113