freebsd-nq/gnu/libexec/uucp/libunix/corrup.c
1994-05-07 18:14:43 +00:00

34 lines
549 B
C

/* corrup.c
Save a file in the .Corrupt directory. */
#include "uucp.h"
#include "sysdep.h"
#include "uudefs.h"
#include "system.h"
char *
zsysdep_save_corrupt_file (zfile)
const char *zfile;
{
const char *zslash;
char *zto;
zslash = strrchr (zfile, '/');
if (zslash == NULL)
zslash = zfile;
else
++zslash;
zto = zsappend3 (zSspooldir, CORRUPTDIR, zslash);
if (! fsysdep_move_file (zfile, zto, TRUE, FALSE, FALSE,
(const char *) NULL))
{
ubuffree (zto);
return NULL;
}
return zto;
}