Cross Reference: /sendmail/contrib/expn.pl

Lines Matching refs:debug
97 # $debug : -d
129 $debug = $flag_d;
143 		print "validRequirement = $validRequirement\n" if $debug;
181 	if (! $S || ($debug == 10 && $server =~ /relay\d.UU.NET$/i)) {
204 					if ($debug || $vw);
214 				if ($debug || $vw);
276 				print "(pretending 250$1<$2>)" if ($debug && $watch);
286 				print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug;
298 						if ($debug && $newhost ne $newmxhost);
300 					print "levels = $levels, level{$u *** $server} = ".$level{"$u *** $server"}."\n" if ($debug > 1);
371 			print "avgValid = $avgValid\n" if $debug;
381 				print "Tossing some valid to avoid invalid ".&compact($u,$server)."\n" if ($avgValid > 0.0 && ($vw || $debug));
430 	print "Giveup at $file:$line!!! redirect okay = $redirect_okay; $reason\n" if $debug;
473 	if ($debug > 8) {
493 		print "Already $method fell back from $us -> \n" if $debug;
497 		print "Fallback an MX expansion $us -> \n" if $debug;
500 		print "Oldhost($host, $us) = " if $debug;
503 	print "$oldhost\n" if $debug;
505 		print "$method Fallback = ".$fall_table{$ft}."\n" if $debug;
509 		print "Falling back ($method) $us -> $newhost (from $oldhost)\n" if $debug;
513 					print "resetting oldhost $oldhost to the original: " if $debug;
515 					print "$oldhost\n" if $debug;
518 				print "mxbacktrace $user *** $newhost -> $oldhost\n" if $debug;
525 			print "Can still $method  $us: @so\n" if $debug;
528 			print "No more fallbacks for $us\n" if $debug;
548 	print "validAddr($addr) = $res\n" if $debug;
567 	print "validAddr($addr) = ???\n" if $debug;
610 				push(@ret,&read_response($2,$debug));
616 				push(@ret,&read_response($2,$debug));
674 		print "<A:$1>\n" if $debug;
676 		print "na = $newaddr\n" if $debug;
680 		print "N:$1 <A:$2> N:$3\n" if $debug;
683 		print "na = $newaddr\n" if $debug;
687 		print "A:$1 (N:$2) A:$3\n" if $debug;
699 		print "newaddr now = $newaddr\n" if $debug;
710 		print "(\@:)" if $debug;
715 		print "(\@)" if $debug;
727 	print "(?)" if $debug;
772 		print "domainify($host,$domain_host) = $host\n" if $debug;
805 	print "long = $long\n" if $debug;
808 		print "condensed fallback $host $domain_host -> $long\n" if $debug;
815 		print "FALLBACK $host.$fh = 1\n" if $debug > 7;
831 		print "domainify($host,$domain_host) = $host\n" if $debug;
842 	print "domainify($host,$domain_host) = $newhost\n" if $debug;
845 	if ($debug) {
871 		if (($debug > 3) || (defined $giveup{$host})) {
879 		print "expn($host,$addr,$name)\n" if $debug;
934 					if ($debug > 1);
963 				print "Temporary redirect taken $u *** $h -> " if $debug;
965 				print "$h\n" if $debug;
971 				print "temporary redirect taken $u *** $h -> " if $debug;
973 				print "$h\n" if $debug;
1011 		print if ($debug > 2);
1062 	print "MX($server) = $nserver\n" if $debug;
1063 	print "$server -> $nserver\n" if $vw && !$debug;
1083 		if ($debug > 1);
1086 			if ($debug || $verbose);
1089 			if ($debug || $verbose);
1113 				print "Un&domainifying($host) = " if $debug;
1115 				print "$host\n" if $debug;
1141 				print "au = $au ah = $ah\n" if $debug;
1144 					print "Rewrite! to $addr\n" if $debug;
1306 debug, flag will expose many of the inner workings so that