[exim.git] / test / scripts / 0000-Basic / 0286

# max_rcpt and connection_max_messages (2x parallel)
need_ipv4
#
# There are deliveries in parallel in this script, and the processes that
# run in parallel may not finish in the same order on different hosts. (Indeed,
# they always seem to finish in precisely the opposite orders on Linux and
# FreeBSD.) For that reason, we do a hacked-up sort on the log file right at
# the end, to ensure that the log lines are always in the same order.
#
exim -odq a b c d e f
.
****
server PORT_S 2
220 ESMTP
EHLO
250-OK
250 HELP
MAIL FROM:
250 Sender OK
RCPT TO:
250 Recipient OK
RCPT TO:
250 Recipient OK
DATA
354 Send data
.
250 OK
MAIL FROM:
250 Sender OK
RCPT TO:
550 Recipient not OK
QUIT
250 OK
*eof
220 ESMTP
EHLO
250-OK
250 HELP
MAIL FROM:
250 Sender OK
RCPT TO:
550 Recipient not OK
RCPT TO:
250 Recipient OK
DATA
354 Send data
.
250 OK
MAIL FROM:
250 Sender OK
RCPT TO:
250 Recipient OK
DATA
354 Send data
.
250 OK
QUIT
250 OK
****
exim -q
****
exim -q
****
exim -odq a b c d e f g h
.
****
server PORT_S 2
220 ESMTP
EHLO
250-OK
250 HELP
MAIL FROM:
250 Sender OK
RCPT TO:
550 Recipient not OK
RCPT TO:
550 Recipient not OK
RSET
250 OK
MAIL FROM:
250 Sender OK
RCPT TO:
250 Recipient OK
RCPT TO:
250 Recipient OK
DATA
354 Send data
.
250 OK
QUIT
250 OK
*eof
220 ESMTP
EHLO
250-OK
250 HELP
MAIL FROM:
250 Sender OK
RCPT TO:
550 Recipient not OK
RCPT TO:
550 Recipient not OK
RSET
250 OK
MAIL FROM:
250 Sender OK
RCPT TO:
250 Recipient OK
RCPT TO:
250 Recipient OK
DATA
354 Send data
.
250 OK
QUIT
250 OK
****
exim -q
****
exim -q
****
# This is the hack to sort the log lines. Search for groups of delivery log
# lines (**, =>, and -> lines), and sort them according to the local part of
# the address.
#
sudo perl
open(IN, "DIR/spool/log/mainlog") || 
  die "Can't open DIR/spool/log/mainlog: $!\n";
@lines = <IN>;
close(IN);

for ($i = 0; $i < @lines; $i++)
  {
  next unless $lines[$i] =~ / \*\* | => | -> /;
  for ($j = $i + 1; $j < @lines; $j++)
    { last if $lines[$j] !~ / \*\* | => | -> /; }     
    
  @sublist = splice @lines, $i, $j - $i;
  @sublist = sort {
    my($x) = $a =~ /(?: \*\* | => | -> )([^@]+)/;
    my($y) = $b =~ /(?: \*\* | => | -> )([^@]+)/;
    return $x cmp $y; 
    } @sublist;
       
  splice @lines, $i, 0, @sublist;
  $i = $j; 
  }    

open (OUT, ">DIR/spool/log/mainlog") ||
  die "Can't open DIR/spool/log/mainlog: $!\n";
print OUT @lines;
close(OUT);   
****
Commit	Line	Data
	1	# max_rcpt and connection_max_messages (2x parallel)
	2	need_ipv4
	3	#
	4	# There are deliveries in parallel in this script, and the processes that
	5	# run in parallel may not finish in the same order on different hosts. (Indeed,
	6	# they always seem to finish in precisely the opposite orders on Linux and
	7	# FreeBSD.) For that reason, we do a hacked-up sort on the log file right at
	8	# the end, to ensure that the log lines are always in the same order.
	9	#
	10	exim -odq a b c d e f
	11	.
	12	****
	13	server PORT_S 2
	14	220 ESMTP
	15	EHLO
	16	250-OK
	17	250 HELP
	18	MAIL FROM:
	19	250 Sender OK
	20	RCPT TO:
	21	250 Recipient OK
	22	RCPT TO:
	23	250 Recipient OK
	24	DATA
	25	354 Send data
	26	.
	27	250 OK
	28	MAIL FROM:
	29	250 Sender OK
	30	RCPT TO:
	31	550 Recipient not OK
	32	QUIT
	33	250 OK
	34	*eof
	35	220 ESMTP
	36	EHLO
	37	250-OK
	38	250 HELP
	39	MAIL FROM:
	40	250 Sender OK
	41	RCPT TO:
	42	550 Recipient not OK
	43	RCPT TO:
	44	250 Recipient OK
	45	DATA
	46	354 Send data
	47	.
	48	250 OK
	49	MAIL FROM:
	50	250 Sender OK
	51	RCPT TO:
	52	250 Recipient OK
	53	DATA
	54	354 Send data
	55	.
	56	250 OK
	57	QUIT
	58	250 OK
	59	****
	60	exim -q
	61	****
	62	exim -q
	63	****
	64	exim -odq a b c d e f g h
	65	.
	66	****
	67	server PORT_S 2
	68	220 ESMTP
	69	EHLO
	70	250-OK
	71	250 HELP
	72	MAIL FROM:
	73	250 Sender OK
	74	RCPT TO:
	75	550 Recipient not OK
	76	RCPT TO:
	77	550 Recipient not OK
	78	RSET
	79	250 OK
	80	MAIL FROM:
	81	250 Sender OK
	82	RCPT TO:
	83	250 Recipient OK
	84	RCPT TO:
	85	250 Recipient OK
	86	DATA
	87	354 Send data
	88	.
	89	250 OK
	90	QUIT
	91	250 OK
	92	*eof
	93	220 ESMTP
	94	EHLO
	95	250-OK
	96	250 HELP
	97	MAIL FROM:
	98	250 Sender OK
	99	RCPT TO:
	100	550 Recipient not OK
	101	RCPT TO:
	102	550 Recipient not OK
	103	RSET
	104	250 OK
	105	MAIL FROM:
	106	250 Sender OK
	107	RCPT TO:
	108	250 Recipient OK
	109	RCPT TO:
	110	250 Recipient OK
	111	DATA
	112	354 Send data
	113	.
	114	250 OK
	115	QUIT
	116	250 OK
	117	****
	118	exim -q
	119	****
	120	exim -q
	121	****
	122	# This is the hack to sort the log lines. Search for groups of delivery log
	123	# lines (**, =>, and -> lines), and sort them according to the local part of
	124	# the address.
	125	#
	126	sudo perl
	127	open(IN, "DIR/spool/log/mainlog") \|\|
	128	die "Can't open DIR/spool/log/mainlog: $!\n";
	129	@lines = <IN>;
	130	close(IN);
	131
	132	for ($i = 0; $i < @lines; $i++)
	133	{
	134	next unless $lines[$i] =~ / \\ \| => \| -> /;
	135	for ($j = $i + 1; $j < @lines; $j++)
	136	{ last if $lines[$j] !~ / \\ \| => \| -> /; }
	137
	138	@sublist = splice @lines, $i, $j - $i;
	139	@sublist = sort {
	140	my($x) = $a =~ /(?: \\ \| => \| -> )([^@]+)/;
	141	my($y) = $b =~ /(?: \\ \| => \| -> )([^@]+)/;
	142	return $x cmp $y;
	143	} @sublist;
	144
	145	splice @lines, $i, 0, @sublist;
	146	$i = $j;
	147	}
	148
	149	open (OUT, ">DIR/spool/log/mainlog") \|\|
	150	die "Can't open DIR/spool/log/mainlog: $!\n";
	151	print OUT @lines;
	152	close(OUT);
	153	****