REORG Delete everything that's not innduct or build system or changed for innduct

[innduct.git] / backends / filechan.c

diff --git a/backends/filechan.c b/backends/filechan.c
deleted file mode 100644 (file)
index 93e81a8..0000000
--- a/backends/filechan.c
+++ /dev/null
@@ -1,132 +0,0 @@
-/*  $Id: filechan.c 6135 2003-01-19 01:15:40Z rra $
-**
-**  An InterNetNews channel process that splits a funnel entry into
-**  separate files.  Originally from Robert Elz <kre@munnari.oz.au>.
-*/
-
-#include "config.h"
-#include "clibrary.h"
-#include <errno.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-
-#include "inn/innconf.h"
-#include "inn/messages.h"
-#include "libinn.h"
-#include "paths.h"
-
-#include "map.h"
-
-int
-main(int ac, char *av[])
-{
-    char               buff[2048];
-    char                *p;
-    char                *next;
-    int                 i;
-    int                 fd;
-    int                        Fields;
-    const char         *Directory;
-    bool               Map;
-    FILE               *F;
-    struct stat                Sb;
-    uid_t              uid;
-    gid_t              gid;
-    uid_t              myuid;
-
-    /* First thing, set up our identity. */
-    message_program_name = "filechan";
-
-    /* Set defaults. */
-    if (!innconf_read(NULL))
-        exit(1);
-    Fields = 1;
-    Directory = innconf->pathoutgoing;
-    Map = false;
-    myuid = geteuid();
-    umask(NEWSUMASK);
-
-    /* Parse JCL. */
-    while ((i = getopt(ac, av, "d:f:m:p:")) != EOF)
-       switch (i) {
-       default:
-            die("usage error");
-            break;
-       case 'd':
-           Directory = optarg;
-           break;
-       case 'f':
-           Fields = atoi(optarg);
-           break;
-       case 'm':
-           Map = true;
-           MAPread(optarg);
-           break;
-       case 'p':
-           if ((F = fopen(optarg, "w")) == NULL)
-                sysdie("cannot fopen %s", optarg);
-           fprintf(F, "%ld\n", (long)getpid());
-           if (ferror(F) || fclose(F) == EOF)
-                sysdie("cannot fclose %s", optarg);
-           break;
-       }
-
-    /* Move, and get owner of current directory. */
-    if (chdir(Directory) < 0)
-        sysdie("cannot chdir to %s", Directory);
-    if (stat(".", &Sb) < 0)
-        sysdie("cannot stat %s", Directory);
-    uid = Sb.st_uid;
-    gid = Sb.st_gid;
-
-    /* Read input. */
-    while (fgets(buff, sizeof buff, stdin) != NULL) {
-       if ((p = strchr(buff, '\n')) != NULL)
-           *p = '\0';
-
-       /* Skip the right number of leading fields. */
-       for (i = Fields, p = buff; *p; p++)
-           if (*p == ' ' && --i <= 0)
-               break;
-       if (*p == '\0')
-           /* Nothing to write.  Probably shouldn't happen. */
-           continue;
-
-       /* Add a newline, get the length of all leading fields. */
-       *p++ = '\n';
-       i = p - buff;
-
-       /* Rest of the line is space-separated list of filenames. */
-       for (; *p; p = next) {
-           /* Skip whitespace, get next word. */
-           while (*p == ' ')
-               p++;
-           for (next = p; *next && *next != ' '; next++)
-               continue;
-           if (*next)
-               *next++ = '\0';
-
-           if (Map)
-               p = MAPname(p);
-           fd = open(p, O_CREAT | O_WRONLY | O_APPEND, BATCHFILE_MODE);
-           if (fd >= 0) {
-               /* Try to lock it and set the ownership right. */
-               inn_lock_file(fd, INN_LOCK_WRITE, true);
-               if (myuid == 0 && uid != 0)
-                   chown(p, uid, gid);
-
-               /* Just in case, seek to the end. */
-               lseek(fd, 0, SEEK_END);
-
-               errno = 0;
-               if (write(fd, buff, i) != i)
-                    sysdie("write failed");
-
-               close(fd);
-           }
-       }
-    }
-
-    exit(0);
-    /* NOTREACHED */
-}