--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/uucpbb/src/openarts.c	Fri Apr 01 22:04:25 2005 +0000
@@ -0,0 +1,188 @@
+/* openarts.c - Open a number of articles, if possible.
+    Copyright (C) 1994 Brad Spencer
+
+    This file is part of the OS-9 UUCP package, UUCPbb.
+
+    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 UUCPbb, Bob Billson, can be contacted at:
+    bob@kc2wz.bubble.org  or  uunet!kc2wz!bob  or  by snail mail:
+    21 Bates Way, Westfield, NJ 07090
+*/
+
+#include "uucp.h"
+#include "rnews.h"
+#include "mbuf.h"
+
+EXTERN int debuglvl;
+char *fixgroupname();
+
+
+int openarts (g, gname)
+struct mbuf *g;
+char *gname;
+{
+     char lbuf[512], gpath[200];
+     char *p, *ngroups, *np, *ncp;
+     struct mbuf *gp;
+     int havegroup = FALSE;
+
+     /* Allocate some space for the group name stuff */
+     ngroups = (char *)malloc (strlen (gname) + 2);
+
+     if (ngroups == NULL)
+          fatal ("openarts(): can't malloc copy of newsgroup name");
+
+     sprintf (ngroups, "%s\n", gname);
+     np = ngroups;
+
+     /* Loop until we run out of given articles */
+     while (*np != '\0'   &&   *np != '\l'   &&   *np != '\n')
+       {
+          /* Search for the terminator or separator character */
+          for (ncp = np;
+               *ncp != ',' &&  *ncp != '\0' &&  *ncp != '\l' &&  *ncp != '\n';
+               ncp++);
+            {
+               *ncp = '\0';
+            }
+
+          /* Loop through the groups that are at this particular site, see if
+             there is a match */
+
+          for (gp = g;  gp != NULL; gp = gp->mbuf_next)
+            {
+               if (debuglvl > 4)
+                 {
+                    sprintf (lbuf, "Checking group '%s' and '%s'", np,
+                             ((struct groups *)gp->cbuf)->name);
+                    log (lbuf);
+                 }
+
+               /* Ok, this group matched */
+               if (strcmp(((struct groups *)gp->cbuf)->name, np) == 0)
+                 {
+                    char *gname;
+
+                    gname = NULL;
+                    havegroup = TRUE;
+
+                    if (chdir (newsdir) == ERROR)
+                      {
+                         sprintf (lbuf, "Can't chdir to '%s'", newsdir);
+                         log (lbuf);
+                         return (ABORT);
+                      }
+
+                    /* Make the directory path for this news group, if it
+                       doesn't exist */
+
+                    gname = fixgroupname (np);
+                    makepath (gname);
+
+                    if (gname != NULL)
+                      {
+                         free (gname);
+                         gname = NULL;
+                      }
+
+                    /* Form this particular article.   We should already be in
+                       the correct newsgroup's directory. */
+
+                    ((struct groups *)gp->cbuf)->max++;
+                    sprintf (gpath, "a%d", ((struct groups *)gp->cbuf)->max);
+
+                    if (debuglvl > 3)
+                      {
+                         sprintf (lbuf, "Trying: '%s' in '%s'", gpath,
+                                  ((struct groups *)gp->cbuf)->name);
+                         log (lbuf);
+                      }
+
+                    /* Try to open the article, this should truncate any files
+                       that are the same name */
+
+                    if ((((struct groups *)gp->cbuf)->artfd
+                         = fopen (gpath, "w")) == NULL)
+                      {
+                         sprintf (lbuf, "Couldn't open '%s', because %d",
+                                  gpath, errno);
+                         log (lbuf);
+                      }
+                    else
+                      {
+                         np = ncp + 1;
+                         break;
+                      }
+                 }
+            }
+          np = ncp + 1;
+       }
+
+     /* Ok, this article doesn't go to any of the groups at this site */
+     if (!havegroup)
+       {
+          if (debuglvl > 1)
+            {
+               log ("Article doesn't go to any news groups in active file.");
+               log ("Junking it.");
+            }
+
+          for (gp = g; gp != NULL; gp = gp->mbuf_next)
+            {
+               if (strncmp (((struct groups *)gp->cbuf)->name, "junk" ,4) == 0)
+                 {
+                    np = ((struct groups *)gp->cbuf)->name;
+                    if (chdir (newsdir) == ERROR)
+                      {
+                         sprintf (lbuf, "Can't chdir to '%s'", newsdir);
+                         log (lbuf);
+                         return (ABORT);
+                      }
+                    makepath (np);
+                    ((struct groups *)gp->cbuf)->max++;
+                    sprintf (gpath, "Z%d", ((struct groups *)gp->cbuf)->max);
+
+                    for (p = gpath; *p != '\0'; p++)
+                         if (*p == '.')
+                              *p='/';
+
+                    if (debuglvl > 3)
+                      {
+                         sprintf (lbuf, "Trying: '%s' in '%s'",
+                                  gpath, ((struct groups *)gp->cbuf)->name);
+                         log(lbuf);
+                      }
+
+                    if ((((struct groups *)gp->cbuf)->artfd
+                           = fopen (gpath, "w")) == NULL)
+                      {
+                         sprintf (lbuf, "Couldn't open '%s', because %d",
+                                  gpath, errno);
+                         log (lbuf);
+                      }
+                    break;
+                 }
+            }
+
+          /* This really indicates that there is a problem in the universe. 
+             Every site should have a 'junk' group */
+
+         if (gp == NULL)
+              if (debuglvl > 1)
+                   log ("No junk group.....");
+       }
+     free (ngroups);
+}