1 /*
2  * Copyright (c) 1983 Eric P. Allman
3  * Copyright (c) 1988 Regents of the University of California.
4  * All rights reserved.
5  *
6  * %sccs.include.redist.c%
7  *
8  *	@(#)sendmail.h	5.16 (Berkeley) 06/01/90
9  */
10 
11 /*
12 **  SENDMAIL.H -- Global definitions for sendmail.
13 */
14 
15 # ifdef _DEFINE
16 # define EXTERN
17 # ifndef lint
18 static char SmailSccsId[] =	"@(#)sendmail.h	5.16		06/01/90";
19 # endif lint
20 # else  _DEFINE
21 # define EXTERN extern
22 # endif _DEFINE
23 
24 # include <stdio.h>
25 # include <ctype.h>
26 # include <setjmp.h>
27 # include "conf.h"
28 # include "useful.h"
29 
30 # ifdef LOG
31 # include <sys/syslog.h>
32 # endif LOG
33 
34 # ifdef DAEMON
35 # ifdef VMUNIX
36 # include <sys/socket.h>
37 # include <netinet/in.h>
38 # endif VMUNIX
39 # endif DAEMON
40 
41 
42 # define PSBUFSIZE	(MAXNAME + MAXATOM)	/* size of prescan buffer */
43 
44 
45 /*
46 **  Data structure for bit maps.
47 **
48 **	Each bit in this map can be referenced by an ascii character.
49 **	This is 128 possible bits, or 12 8-bit bytes.
50 */
51 
52 #define BITMAPBYTES	16	/* number of bytes in a bit map */
53 #define BYTEBITS	8	/* number of bits in a byte */
54 
55 /* internal macros */
56 #define _BITWORD(bit)	(bit / (BYTEBITS * sizeof (int)))
57 #define _BITBIT(bit)	(1 << (bit % (BYTEBITS * sizeof (int))))
58 
59 typedef int	BITMAP[BITMAPBYTES / sizeof (int)];
60 
61 /* test bit number N */
62 #define bitnset(bit, map)	((map)[_BITWORD(bit)] & _BITBIT(bit))
63 
64 /* set bit number N */
65 #define setbitn(bit, map)	(map)[_BITWORD(bit)] |= _BITBIT(bit)
66 
67 /* clear bit number N */
68 #define clrbitn(bit, map)	(map)[_BITWORD(bit)] &= ~_BITBIT(bit)
69 
70 /* clear an entire bit map */
71 #define clrbitmap(map)		bzero((char *) map, BITMAPBYTES)
72 /*
73 **  Address structure.
74 **	Addresses are stored internally in this structure.
75 */
76 
77 struct address
78 {
79 	char		*q_paddr;	/* the printname for the address */
80 	char		*q_user;	/* user name */
81 	char		*q_ruser;	/* real user name, or NULL if q_user */
82 	char		*q_host;	/* host name */
83 	struct mailer	*q_mailer;	/* mailer to use */
84 	u_short		q_flags;	/* status flags, see below */
85 	short		q_uid;		/* user-id of receiver (if known) */
86 	short		q_gid;		/* group-id of receiver (if known) */
87 	char		*q_home;	/* home dir (local mailer only) */
88 	char		*q_fullname;	/* full name if known */
89 	struct address	*q_next;	/* chain */
90 	struct address	*q_alias;	/* address this results from */
91 	struct address	*q_tchain;	/* temporary use chain */
92 	time_t		q_timeout;	/* timeout for this address */
93 };
94 
95 typedef struct address ADDRESS;
96 
97 # define QDONTSEND	000001	/* don't send to this address */
98 # define QBADADDR	000002	/* this address is verified bad */
99 # define QGOODUID	000004	/* the q_uid q_gid fields are good */
100 # define QPRIMARY	000010	/* set from argv */
101 # define QQUEUEUP	000020	/* queue for later transmission */
102 /*
103 **  Mailer definition structure.
104 **	Every mailer known to the system is declared in this
105 **	structure.  It defines the pathname of the mailer, some
106 **	flags associated with it, and the argument vector to
107 **	pass to it.  The flags are defined in conf.c
108 **
109 **	The argument vector is expanded before actual use.  All
110 **	words except the first are passed through the macro
111 **	processor.
112 */
113 
114 struct mailer
115 {
116 	char	*m_name;	/* symbolic name of this mailer */
117 	char	*m_mailer;	/* pathname of the mailer to use */
118 	BITMAP	m_flags;	/* status flags, see below */
119 	short	m_mno;		/* mailer number internally */
120 	char	**m_argv;	/* template argument vector */
121 	short	m_s_rwset;	/* rewriting set for sender addresses */
122 	short	m_r_rwset;	/* rewriting set for recipient addresses */
123 	char	*m_eol;		/* end of line string */
124 	long	m_maxsize;	/* size limit on message to this mailer */
125 };
126 
127 typedef struct mailer	MAILER;
128 
129 /* bits for m_flags */
130 # define M_CANONICAL	'C'	/* make addresses canonical "u@dom" */
131 # define M_EXPENSIVE	'e'	/* it costs to use this mailer.... */
132 # define M_ESCFROM	'E'	/* escape From lines to >From */
133 # define M_FOPT		'f'	/* mailer takes picky -f flag */
134 # define M_HST_UPPER	'h'	/* preserve host case distinction */
135 # define M_INTERNAL	'I'	/* SMTP to another sendmail site */
136 # define M_LOCAL	'l'	/* delivery is to this host */
137 # define M_LIMITS	'L'	/* must enforce SMTP line limits */
138 # define M_MUSER	'm'	/* can handle multiple users at once */
139 # define M_NHDR		'n'	/* don't insert From line */
140 # define M_FROMPATH	'p'	/* use reverse-path in MAIL FROM: */
141 # define M_ROPT		'r'	/* mailer takes picky -r flag */
142 # define M_SECURE_PORT	'R'	/* try to send on a reserved TCP port */
143 # define M_STRIPQ	's'	/* strip quote chars from user/host */
144 # define M_RESTR	'S'	/* must be daemon to execute */
145 # define M_USR_UPPER	'u'	/* preserve user case distinction */
146 # define M_UGLYUUCP	'U'	/* this wants an ugly UUCP from line */
147 # define M_XDOT		'X'	/* use hidden-dot algorithm */
148 
149 EXTERN MAILER	*Mailer[MAXMAILERS+1];
150 
151 EXTERN MAILER	*LocalMailer;		/* ptr to local mailer */
152 EXTERN MAILER	*ProgMailer;		/* ptr to program mailer */
153 /*
154 **  Header structure.
155 **	This structure is used internally to store header items.
156 */
157 
158 struct header
159 {
160 	char		*h_field;	/* the name of the field */
161 	char		*h_value;	/* the value of that field */
162 	struct header	*h_link;	/* the next header */
163 	u_short		h_flags;	/* status bits, see below */
164 	BITMAP		h_mflags;	/* m_flags bits needed */
165 };
166 
167 typedef struct header	HDR;
168 
169 /*
170 **  Header information structure.
171 **	Defined in conf.c, this struct declares the header fields
172 **	that have some magic meaning.
173 */
174 
175 struct hdrinfo
176 {
177 	char	*hi_field;	/* the name of the field */
178 	u_short	hi_flags;	/* status bits, see below */
179 };
180 
181 extern struct hdrinfo	HdrInfo[];
182 
183 /* bits for h_flags and hi_flags */
184 # define H_EOH		00001	/* this field terminates header */
185 # define H_RCPT		00002	/* contains recipient addresses */
186 # define H_DEFAULT	00004	/* if another value is found, drop this */
187 # define H_RESENT	00010	/* this address is a "Resent-..." address */
188 # define H_CHECK	00020	/* check h_mflags against m_flags */
189 # define H_ACHECK	00040	/* ditto, but always (not just default) */
190 # define H_FORCE	00100	/* force this field, even if default */
191 # define H_TRACE	00200	/* this field contains trace information */
192 # define H_FROM		00400	/* this is a from-type field */
193 # define H_VALID	01000	/* this field has a validated value */
194 /*
195 **  Envelope structure.
196 **	This structure defines the message itself.  There is usually
197 **	only one of these -- for the message that we originally read
198 **	and which is our primary interest -- but other envelopes can
199 **	be generated during processing.  For example, error messages
200 **	will have their own envelope.
201 */
202 
203 struct envelope
204 {
205 	HDR		*e_header;	/* head of header list */
206 	long		e_msgpriority;	/* adjusted priority of this message */
207 	time_t		e_ctime;	/* time message appeared in the queue */
208 	char		*e_to;		/* the target person */
209 	char		*e_receiptto;	/* return receipt address */
210 	ADDRESS		e_from;		/* the person it is from */
211 	char		**e_fromdomain;	/* the domain part of the sender */
212 	ADDRESS		*e_sendqueue;	/* list of message recipients */
213 	ADDRESS		*e_errorqueue;	/* the queue for error responses */
214 	long		e_msgsize;	/* size of the message in bytes */
215 	int		e_nrcpts;	/* number of recipients */
216 	short		e_class;	/* msg class (priority, junk, etc.) */
217 	short		e_flags;	/* flags, see below */
218 	short		e_hopcount;	/* number of times processed */
219 	int		(*e_puthdr)();	/* function to put header of message */
220 	int		(*e_putbody)();	/* function to put body of message */
221 	struct envelope	*e_parent;	/* the message this one encloses */
222 	struct envelope *e_sibling;	/* the next envelope of interest */
223 	char		*e_df;		/* location of temp file */
224 	FILE		*e_dfp;		/* temporary file */
225 	char		*e_id;		/* code for this entry in queue */
226 	FILE		*e_xfp;		/* transcript file */
227 	char		*e_message;	/* error message */
228 	char		*e_macro[128];	/* macro definitions */
229 };
230 
231 typedef struct envelope	ENVELOPE;
232 
233 /* values for e_flags */
234 #define EF_OLDSTYLE	000001		/* use spaces (not commas) in hdrs */
235 #define EF_INQUEUE	000002		/* this message is fully queued */
236 #define EF_TIMEOUT	000004		/* this message is too old */
237 #define EF_CLRQUEUE	000010		/* disk copy is no longer needed */
238 #define EF_SENDRECEIPT	000020		/* send a return receipt */
239 #define EF_FATALERRS	000040		/* fatal errors occured */
240 #define EF_KEEPQUEUE	000100		/* keep queue files always */
241 #define EF_RESPONSE	000200		/* this is an error or return receipt */
242 #define EF_RESENT	000400		/* this message is being forwarded */
243 
244 EXTERN ENVELOPE	*CurEnv;	/* envelope currently being processed */
245 /*
246 **  Message priority classes.
247 **
248 **	The message class is read directly from the Priority: header
249 **	field in the message.
250 **
251 **	CurEnv->e_msgpriority is the number of bytes in the message plus
252 **	the creation time (so that jobs ``tend'' to be ordered correctly),
253 **	adjusted by the message class, the number of recipients, and the
254 **	amount of time the message has been sitting around.  This number
255 **	is used to order the queue.  Higher values mean LOWER priority.
256 **
257 **	Each priority class point is worth WkClassFact priority points;
258 **	each recipient is worth WkRecipFact priority points.  Each time
259 **	we reprocess a message the priority is adjusted by WkTimeFact.
260 **	WkTimeFact should normally decrease the priority so that jobs
261 **	that have historically failed will be run later; thanks go to
262 **	Jay Lepreau at Utah for pointing out the error in my thinking.
263 **
264 **	The "class" is this number, unadjusted by the age or size of
265 **	this message.  Classes with negative representations will have
266 **	error messages thrown away if they are not local.
267 */
268 
269 struct priority
270 {
271 	char	*pri_name;	/* external name of priority */
272 	int	pri_val;	/* internal value for same */
273 };
274 
275 EXTERN struct priority	Priorities[MAXPRIORITIES];
276 EXTERN int		NumPriorities;	/* pointer into Priorities */
277 /*
278 **  Rewrite rules.
279 */
280 
281 struct rewrite
282 {
283 	char	**r_lhs;	/* pattern match */
284 	char	**r_rhs;	/* substitution value */
285 	struct rewrite	*r_next;/* next in chain */
286 };
287 
288 EXTERN struct rewrite	*RewriteRules[MAXRWSETS];
289 
290 /*
291 **  Special characters in rewriting rules.
292 **	These are used internally only.
293 **	The COND* rules are actually used in macros rather than in
294 **		rewriting rules, but are given here because they
295 **		cannot conflict.
296 */
297 
298 /* left hand side items */
299 # define MATCHZANY	'\020'	/* match zero or more tokens */
300 # define MATCHANY	'\021'	/* match one or more tokens */
301 # define MATCHONE	'\022'	/* match exactly one token */
302 # define MATCHCLASS	'\023'	/* match one token in a class */
303 # define MATCHNCLASS	'\024'	/* match anything not in class */
304 # define MATCHREPL	'\025'	/* replacement on RHS for above */
305 
306 /* right hand side items */
307 # define CANONNET	'\026'	/* canonical net, next token */
308 # define CANONHOST	'\027'	/* canonical host, next token */
309 # define CANONUSER	'\030'	/* canonical user, next N tokens */
310 # define CALLSUBR	'\031'	/* call another rewriting set */
311 
312 /* conditionals in macros */
313 # define CONDIF		'\032'	/* conditional if-then */
314 # define CONDELSE	'\033'	/* conditional else */
315 # define CONDFI		'\034'	/* conditional fi */
316 
317 /* bracket characters for host name lookup */
318 # define HOSTBEGIN	'\035'	/* hostname lookup begin */
319 # define HOSTEND	'\036'	/* hostname lookup end */
320 
321 /* \001 is also reserved as the macro expansion character */
322 /*
323 **  Information about hosts that we have looked up recently.
324 **
325 **	This stuff is 4.2/3bsd specific.
326 */
327 
328 # ifdef DAEMON
329 # ifdef VMUNIX
330 
331 # define HOSTINFO	struct hostinfo
332 
333 HOSTINFO
334 {
335 	char		*ho_name;	/* name of this host */
336 	struct in_addr	ho_inaddr;	/* internet address */
337 	short		ho_flags;	/* flag bits, see below */
338 	short		ho_errno;	/* error number on last connection */
339 	short		ho_exitstat;	/* exit status from last connection */
340 };
341 
342 
343 /* flag bits */
344 #define HOF_VALID	00001		/* this entry is valid */
345 
346 # endif VMUNIX
347 # endif DAEMON
348 /*
349 **  Symbol table definitions
350 */
351 
352 struct symtab
353 {
354 	char		*s_name;	/* name to be entered */
355 	char		s_type;		/* general type (see below) */
356 	struct symtab	*s_next;	/* pointer to next in chain */
357 	union
358 	{
359 		BITMAP		sv_class;	/* bit-map of word classes */
360 		ADDRESS		*sv_addr;	/* pointer to address header */
361 		MAILER		*sv_mailer;	/* pointer to mailer */
362 		char		*sv_alias;	/* alias */
363 # ifdef HOSTINFO
364 		HOSTINFO	sv_host;	/* host information */
365 # endif HOSTINFO
366 	}	s_value;
367 };
368 
369 typedef struct symtab	STAB;
370 
371 /* symbol types */
372 # define ST_UNDEF	0	/* undefined type */
373 # define ST_CLASS	1	/* class map */
374 # define ST_ADDRESS	2	/* an address in parsed format */
375 # define ST_MAILER	3	/* a mailer header */
376 # define ST_ALIAS	4	/* an alias */
377 # define ST_HOST	5	/* host information */
378 
379 # define s_class	s_value.sv_class
380 # define s_address	s_value.sv_addr
381 # define s_mailer	s_value.sv_mailer
382 # define s_alias	s_value.sv_alias
383 # define s_host		s_value.sv_host
384 
385 extern STAB	*stab();
386 
387 /* opcodes to stab */
388 # define ST_FIND	0	/* find entry */
389 # define ST_ENTER	1	/* enter if not there */
390 /*
391 **  STRUCT EVENT -- event queue.
392 **
393 **	Maintained in sorted order.
394 **
395 **	We store the pid of the process that set this event to insure
396 **	that when we fork we will not take events intended for the parent.
397 */
398 
399 struct event
400 {
401 	time_t		ev_time;	/* time of the function call */
402 	int		(*ev_func)();	/* function to call */
403 	int		ev_arg;		/* argument to ev_func */
404 	int		ev_pid;		/* pid that set this event */
405 	struct event	*ev_link;	/* link to next item */
406 };
407 
408 typedef struct event	EVENT;
409 
410 EXTERN EVENT	*EventQueue;		/* head of event queue */
411 /*
412 **  Operation, send, and error modes
413 **
414 **	The operation mode describes the basic operation of sendmail.
415 **	This can be set from the command line, and is "send mail" by
416 **	default.
417 **
418 **	The send mode tells how to send mail.  It can be set in the
419 **	configuration file.  It's setting determines how quickly the
420 **	mail will be delivered versus the load on your system.  If the
421 **	-v (verbose) flag is given, it will be forced to SM_DELIVER
422 **	mode.
423 **
424 **	The error mode tells how to return errors.
425 */
426 
427 EXTERN char	OpMode;		/* operation mode, see below */
428 
429 #define MD_DELIVER	'm'		/* be a mail sender */
430 #define MD_ARPAFTP	'a'		/* old-style arpanet protocols */
431 #define MD_SMTP		's'		/* run SMTP on standard input */
432 #define MD_DAEMON	'd'		/* run as a daemon */
433 #define MD_VERIFY	'v'		/* verify: don't collect or deliver */
434 #define MD_TEST		't'		/* test mode: resolve addrs only */
435 #define MD_INITALIAS	'i'		/* initialize alias database */
436 #define MD_PRINT	'p'		/* print the queue */
437 #define MD_FREEZE	'z'		/* freeze the configuration file */
438 
439 
440 EXTERN char	SendMode;	/* send mode, see below */
441 
442 #define SM_DELIVER	'i'		/* interactive delivery */
443 #define SM_QUICKD	'j'		/* deliver w/o queueing */
444 #define SM_FORK		'b'		/* deliver in background */
445 #define SM_QUEUE	'q'		/* queue, don't deliver */
446 #define SM_VERIFY	'v'		/* verify only (used internally) */
447 
448 /* used only as a parameter to sendall */
449 #define SM_DEFAULT	'\0'		/* unspecified, use SendMode */
450 
451 
452 EXTERN char	ErrorMode;	/* error mode, see below */
453 
454 #define EM_PRINT	'p'		/* print errors */
455 #define EM_MAIL		'm'		/* mail back errors */
456 #define EM_WRITE	'w'		/* write back errors */
457 #define EM_BERKNET	'e'		/* special berknet processing */
458 #define EM_QUIET	'q'		/* don't print messages (stat only) */
459 
460 /* offset used to issure that the error messages for name server error
461  * codes are unique.
462  */
463 #define	MAX_ERRNO	100
464 /*
465 **  Global variables.
466 */
467 
468 EXTERN bool	FromFlag;	/* if set, "From" person is explicit */
469 EXTERN bool	NoAlias;	/* if set, don't do any aliasing */
470 EXTERN bool	ForceMail;	/* if set, mail even if already got a copy */
471 EXTERN bool	MeToo;		/* send to the sender also */
472 EXTERN bool	IgnrDot;	/* don't let dot end messages */
473 EXTERN bool	SaveFrom;	/* save leading "From" lines */
474 EXTERN bool	Verbose;	/* set if blow-by-blow desired */
475 EXTERN bool	GrabTo;		/* if set, get recipients from msg */
476 EXTERN bool	NoReturn;	/* don't return letter to sender */
477 EXTERN bool	SuprErrs;	/* set if we are suppressing errors */
478 EXTERN bool	QueueRun;	/* currently running message from the queue */
479 EXTERN bool	HoldErrs;	/* only output errors to transcript */
480 EXTERN bool	NoConnect;	/* don't connect to non-local mailers */
481 EXTERN bool	SuperSafe;	/* be extra careful, even if expensive */
482 EXTERN bool	ForkQueueRuns;	/* fork for each job when running the queue */
483 EXTERN bool	AutoRebuild;	/* auto-rebuild the alias database as needed */
484 EXTERN bool	CheckAliases;	/* parse addresses during newaliases */
485 EXTERN bool	UseNameServer;	/* use internet domain name server */
486 EXTERN int	SafeAlias;	/* minutes to wait until @:@ in alias file */
487 EXTERN time_t	TimeOut;	/* time until timeout */
488 EXTERN FILE	*InChannel;	/* input connection */
489 EXTERN FILE	*OutChannel;	/* output connection */
490 EXTERN int	RealUid;	/* when Daemon, real uid of caller */
491 EXTERN int	RealGid;	/* when Daemon, real gid of caller */
492 EXTERN int	DefUid;		/* default uid to run as */
493 EXTERN char	*DefUser;	/* default user to run as (from DefUid) */
494 EXTERN int	DefGid;		/* default gid to run as */
495 EXTERN int	OldUmask;	/* umask when sendmail starts up */
496 EXTERN int	Errors;		/* set if errors (local to single pass) */
497 EXTERN int	ExitStat;	/* exit status code */
498 EXTERN int	AliasLevel;	/* depth of aliasing */
499 EXTERN int	MotherPid;	/* proc id of parent process */
500 EXTERN int	LineNumber;	/* line number in current input */
501 EXTERN time_t	ReadTimeout;	/* timeout on reads */
502 EXTERN int	LogLevel;	/* level of logging to perform */
503 EXTERN int	FileMode;	/* mode on files */
504 EXTERN int	QueueLA;	/* load average starting forced queueing */
505 EXTERN int	RefuseLA;	/* load average refusing connections are */
506 EXTERN int	QueueFactor;	/* slope of queue function */
507 EXTERN time_t	QueueIntvl;	/* intervals between running the queue */
508 EXTERN char	*AliasFile;	/* location of alias file */
509 EXTERN char	*HelpFile;	/* location of SMTP help file */
510 EXTERN char	*StatFile;	/* location of statistics summary */
511 EXTERN char	*QueueDir;	/* location of queue directory */
512 EXTERN char	*FileName;	/* name to print on error messages */
513 EXTERN char	*SmtpPhase;	/* current phase in SMTP processing */
514 EXTERN char	*MyHostName;	/* name of this host for SMTP messages */
515 EXTERN char	*RealHostName;	/* name of host we are talking to */
516 EXTERN struct	sockaddr_in RealHostAddr;/* address of host we are talking to */
517 EXTERN char	*CurHostName;	/* current host we are dealing with */
518 EXTERN jmp_buf	TopFrame;	/* branch-to-top-of-loop-on-error frame */
519 EXTERN bool	QuickAbort;	/*  .... but only if we want a quick abort */
520 extern char	*ConfFile;	/* location of configuration file [conf.c] */
521 extern char	*FreezeFile;	/* location of frozen memory image [conf.c] */
522 extern char	Arpa_Info[];	/* the reply code for Arpanet info [conf.c] */
523 extern ADDRESS	NullAddress;	/* a null (template) address [main.c] */
524 EXTERN char	SpaceSub;	/* substitution for <lwsp> */
525 EXTERN int	WkClassFact;	/* multiplier for message class -> priority */
526 EXTERN int	WkRecipFact;	/* multiplier for # of recipients -> priority */
527 EXTERN int	WkTimeFact;	/* priority offset each time this job is run */
528 EXTERN int	CheckPointLimit;	/* deliveries before checkpointing */
529 EXTERN int	Nmx;			/* number of MX RRs */
530 EXTERN char	*PostMasterCopy;	/* address to get errs cc's */
531 EXTERN char	*MxHosts[MAXMXHOSTS+1];	/* for MX RRs */
532 EXTERN char	*TrustedUsers[MAXTRUST+1];	/* list of trusted users */
533 EXTERN char	*UserEnviron[MAXUSERENVIRON+1];	/* saved user environment */
534 /*
535 **  Trace information
536 */
537 
538 /* trace vector and macros for debugging flags */
539 EXTERN u_char	tTdvect[100];
540 # define tTd(flag, level)	(tTdvect[flag] >= level)
541 # define tTdlevel(flag)		(tTdvect[flag])
542 /*
543 **  Miscellaneous information.
544 */
545 
546 # include	<sysexits.h>
547 
548 
549 /*
550 **  Some in-line functions
551 */
552 
553 /* set exit status */
554 #define setstat(s)	{ \
555 				if (ExitStat == EX_OK || ExitStat == EX_TEMPFAIL) \
556 					ExitStat = s; \
557 			}
558 
559 /* make a copy of a string */
560 #define newstr(s)	strcpy(xalloc(strlen(s) + 1), s)
561 
562 #define STRUCTCOPY(s, d)	d = s
563 
564 
565 /*
566 **  Declarations of useful functions
567 */
568 
569 extern ADDRESS	*parseaddr();
570 extern char	*xalloc();
571 extern bool	sameaddr();
572 extern FILE	*dfopen();
573 extern EVENT	*setevent();
574 extern char	*sfgets();
575 extern char	*queuename();
576 extern time_t	curtime();
577