upstream/1.1.0_cvsrelease/1.1.0_cvs

1 files changed, 197 insertions, 0 deletions

diff --git a/gnu/libexec/uucp/libunix/recep.c b/gnu/libexec/uucp/libunix/recep.c
new file mode 100644
index 000000000000..84a211a7a946
--- /dev/null
+++ b/gnu/libexec/uucp/libunix/recep.c
@@ -0,0 +1,197 @@
+/* recep.c
+   See whether a file has already been received.
+
+   Copyright (C) 1992 Ian Lance Taylor
+
+   This file is part of the Taylor UUCP package.
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful, but
+   WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+   The author of the program may be contacted at ian@airs.com or
+   c/o Infinity Development Systems, P.O. Box 520, Waltham, MA 02254.
+   */
+
+#include "uucp.h"
+
+#include "uudefs.h"
+#include "uuconf.h"
+#include "sysdep.h"
+#include "system.h"
+
+#include <errno.h>
+
+#if HAVE_TIME_H
+#include <time.h>
+#endif
+
+#if HAVE_FCNTL_H
+#include <fcntl.h>
+#else
+#if HAVE_SYS_FILE_H
+#include <sys/file.h>
+#endif
+#endif
+
+static char *zsreceived_name P((const struct uuconf_system *qsys,
+				const char *ztemp));
+
+/* These routines are used to see whether we have already received a
+   file in a previous UUCP connection.  It is possible for the
+   acknowledgement of a received file to be lost.  The sending system
+   will then now know that the file was correctly received, and will
+   send it again.  This can be a problem particularly with protocols
+   which support channels, since they may send several small files in
+   a single window, all of which may be received correctly although
+   the sending system never sees the acknowledgement.  If these files
+   involve an execution, the execution will happen twice, which will
+   be bad.
+
+   We use a simple system.  For each file we want to remember, we
+   create an empty file names .Received/SYS/TEMP, where SYS is the
+   name of the system and TEMP is the name of the temporary file used
+   by the sender.  If no temporary file is used by the sender, we
+   don't remember that we received the file.  This is not perfect, but
+   execution files will always have a temporary file, so the most
+   important case is handled.  Also, any file received from Taylor
+   UUCP 1.04 or greater will always have a temporary file.  */
+
+/* Return the name we are going use for the marker, or NULL if we have
+   no name.  */
+
+static char *
+zsreceived_name (qsys, ztemp)
+     const struct uuconf_system *qsys;
+     const char *ztemp;
+{
+  if (ztemp != NULL
+      && *ztemp == 'D'
+      && strcmp (ztemp, "D.0") != 0)
+    return zsappend3 (".Received", qsys->uuconf_zname, ztemp);
+  else
+    return NULL;
+}
+
+/* Remember that we have already received a file.  */
+
+/*ARGSUSED*/
+boolean
+fsysdep_remember_reception (qsys, zto, ztemp)
+     const struct uuconf_system *qsys;
+     const char *zto;
+     const char *ztemp;
+{
+  char *zfile;
+  int o;
+
+  zfile = zsreceived_name (qsys, ztemp);
+  if (zfile == NULL)
+    return TRUE;
+  o = creat (zfile, IPUBLIC_FILE_MODE);
+  if (o < 0)
+    {
+      if (errno == ENOENT)
+	{
+	  if (fsysdep_make_dirs (zfile, TRUE))
+	    {
+	      ubuffree (zfile);
+	      return FALSE;
+	    }
+	  o = creat (zfile, IPUBLIC_FILE_MODE);
+	}
+      if (o < 0)
+	{
+	  ulog (LOG_ERROR, "creat (%s): %s", zfile, strerror (errno));
+	  ubuffree (zfile);
+	  return FALSE;
+	}
+    }
+
+  ubuffree (zfile);
+
+  /* We don't have to actually put anything in the file; we just use
+     the name.  This is more convenient than keeping a file with a
+     list of names.  */
+  if (close (o) < 0)
+    {
+      ulog (LOG_ERROR, "fsysdep_remember_reception: close: %s",
+	    strerror (errno));
+      return FALSE;
+    }
+
+  return TRUE;
+}
+
+/* See if we have already received a file.  Note that don't delete the
+   marker file here, because we need to know that the sending system
+   has received our denial first.  This function returns TRUE if the
+   file has already been received, FALSE if it has not.  */
+
+/*ARGSUSED*/
+boolean
+fsysdep_already_received (qsys, zto, ztemp)
+     const struct uuconf_system *qsys;
+     const char *zto;
+     const char *ztemp;
+{
+  char *zfile;
+  struct stat s;
+  boolean fret;
+
+  zfile = zsreceived_name (qsys, ztemp);
+  if (zfile == NULL)
+    return FALSE;
+  if (stat (zfile, &s) < 0)
+    {
+      if (errno != ENOENT)
+	ulog (LOG_ERROR, "stat (%s): %s", zfile, strerror (errno));
+      ubuffree (zfile);
+      return FALSE;
+    }
+
+  /* Ignore the file (return FALSE) if it is over one week old.  */
+  fret = s.st_mtime + 7 * 24 * 60 * 60 >= time ((time_t *) NULL);
+
+  if (fret)
+    DEBUG_MESSAGE1 (DEBUG_SPOOLDIR, "fsysdep_already_received: Found %s",
+		    zfile);
+
+  ubuffree (zfile);
+
+  return fret;
+}
+
+/* Forget that we have received a file.  */
+
+/*ARGSUSED*/
+boolean
+fsysdep_forget_reception (qsys, zto, ztemp)
+     const struct uuconf_system *qsys;
+     const char *zto;
+     const char *ztemp;
+{
+  char *zfile;
+
+  zfile = zsreceived_name (qsys, ztemp);
+  if (zfile == NULL)
+    return TRUE;
+  if (remove (zfile) < 0
+      && errno != ENOENT)
+    {
+      ulog (LOG_ERROR, "remove (%s): %s", zfile, strerror (errno));
+      ubuffree (zfile);
+      return FALSE;
+    }
+  return TRUE;
+}