/*++
/* NAME
/* open_lock 3
/* SUMMARY
/* open or create file and lock it for exclusive access
/* SYNOPSIS
/* #include <open_lock.h>
/*
/* VSTREAM *open_lock(path, flags, mode, why)
/* const char *path;
/* int flags;
/* mode_t mode;
/* VSTRING *why;
/* DESCRIPTION
/* This module opens or creates the named file and attempts to
/* acquire an exclusive lock.  The lock is lost when the last
/* process closes the file.
/*
/* Arguments:
/* .IP "path, flags, mode"
/* These are passed on to safe_open().
/* .IP why
/* storage for diagnostics.
/* SEE ALSO
/* safe_open(3) carefully open or create file
/* myflock(3) get exclusive lock on file
/* DIAGNOSTICS
/* In case of problems the result is a null pointer and a problem
/* description is returned via the global \fIerrno\fR variable.
/* LICENSE
/* .ad
/* .fi
/* The Secure Mailer license must be distributed with this software.
/* AUTHOR(S)
/* Wietse Venema
/* IBM T.J. Watson Research
/* P.O. Box 704
/* Yorktown Heights, NY 10598, USA
/*--*/

/* System library. */

#include <sys_defs.h>
#include <unistd.h>
#include <fcntl.h>

/* Utility library. */

#include <msg.h>
#include <vstream.h>
#include <vstring.h>
#include <safe_open.h>
#include <myflock.h>
#include <open_lock.h>

/* open_lock - open file and lock it for exclusive access */

VSTREAM *open_lock(const char *path, int flags, mode_t mode, VSTRING *why)
{
    VSTREAM *fp;

    /*
     * Carefully create or open the file, and lock it down. Some systems
     * don't have the O_LOCK open() flag, or the flag does not do what we
     * want, so we roll our own lock.
     */
    if ((fp = safe_open(path, flags, mode, (struct stat *) 0, -1, -1, why)) == 0)
 return (0);
    if (myflock(vstream_fileno(fp), INTERNAL_LOCK,
  MYFLOCK_OP_EXCLUSIVE | MYFLOCK_OP_NOWAIT) < 0) {
 vstring_sprintf(why, "unable to set exclusive lock: %m");
 vstream_fclose(fp);
 return (0);
    }
    return (fp);
}