tradspool bug

[George Lindholm]

tradspool was generating tokens with random classes.

The good news is that one can now expire tradspool by
using multiple tradspool storage.conf entries with different
classes.

  George
-- 
George.Lindholm at ubc.ca       ITServices, UBC
Programmer/Analyst

phone:    604.822.4375       fax:      604.822.5116

-- Attached file included as plaintext by Listar --
-- File: tradspool.pa

*** storage/tradspool/tradspool.c	1999/08/28 00:49:47	1.1
--- storage/tradspool/tradspool.c	1999/08/28 00:01:49
***************
*** 1,5 ****
  /*
! ** $Id: tradspool.c,v 1.1 1999/08/28 00:49:47 news Exp news $
  ** tradspool -- storage manager module for traditional spool format.
  */
  
--- 1,5 ----
  /*
! ** $Id: tradspool.c,v 1.17 1999/08/26 08:14:28 kondou Exp $
  ** tradspool -- storage manager module for traditional spool format.
  */
  
***************
*** 1133,1139 ****
      char *xrefhdr, *ng, *p;
      unsigned int numxrefs;
      STORAGE_SUB	*sub;
-     STORAGECLASS class;
  
      if (article == NULL) {
  	priv.ngtp = NULL;
--- 1133,1138 ----
***************
*** 1247,1253 ****
  	token = MakeToken(priv.ngtp->ngname, artnum, 0);
  	syslog(L_ERROR, "tradspool: can't determine class: %s", TokenToText(token));
      } else {
! 	token = MakeToken(priv.ngtp->ngname, artnum, class);
      }
      art->token = &token;
      DISPOSE(path);
--- 1246,1252 ----
  	token = MakeToken(priv.ngtp->ngname, artnum, 0);
  	syslog(L_ERROR, "tradspool: can't determine class: %s", TokenToText(token));
      } else {
! 	token = MakeToken(priv.ngtp->ngname, artnum, sub->class);
      }
      art->token = &token;
      DISPOSE(path);