/*++
/* NAME
/*	REMOVE 3
/* SUMMARY
/*	remove or stash away file
/* SYNOPSIS
/*	\fBint	REMOVE(path)\fR
/*	\fBconst char *path;\fR
/* DESCRIPTION
/*	\fBREMOVE()\fR removes a file, or renames it to a unique name,
/*	depending on the setting of the boolean \fBvar_dont_remove\fR
/*	flag.
/* DIAGNOSTICS
/*	The result is 0 in case of success, -1 in case of trouble.
/*	The global \fBerrno\fR variable reflects the nature of the
/*	problem.
/* FILES
/*	saved/*, stashed-away files.
/* SEE ALSO
/*	remove(3)
/* 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 <sys/stat.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <warn_stat.h>

/* Utility library. */

#include <vstring.h>

/* Global library. */

#include <mail_params.h>

/* REMOVE - squirrel away a file instead of removing it */

int     REMOVE(const char *path)
{
    static VSTRING *dest;
    char   *slash;
    struct stat st;

    if (var_dont_remove == 0) {
	return (remove(path));
    } else {
	if (dest == 0)
	    dest = vstring_alloc(10);
	vstring_sprintf(dest, "saved/%s", ((slash = strrchr(path, '/')) != 0) ?
			slash + 1 : path);
	for (;;) {
	    if (stat(vstring_str(dest), &st) < 0)
		break;
	    vstring_strcat(dest, "+");
	}
	return (rename(path, vstring_str(dest)));
    }
}
