debug on if $ENV{'debug'} is defined.

modify navigation message to show "ok" or "fail".

1 files changed, 4 insertions, 2 deletions

diff --git a/regress/message/bounce.pl b/regress/message/bounce.pl
index 0f56c264..a5277c3f 100755
--- a/regress/message/bounce.pl
+++ b/regress/message/bounce.pl
@@ -5,7 +5,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML: bounce.pl,v 1.2 2001/04/09 15:56:53 fukachan Exp $
+# $FML: bounce.pl,v 1.3 2001/04/10 11:54:22 fukachan Exp $
 #
 
 use strict;
@@ -14,7 +14,7 @@ use lib qw(../../cpan/lib);
 use Mail::Message;
 
 for my $f (@ARGV) {
-    print "// check $f\n";
+    print "// check $f\n" if $ENV{'debug'};
     my $fh  = new FileHandle $f;
     my $msg = Mail::Message->parse( { fd => $fh } );
     my $r   = {};
@@ -22,6 +22,8 @@ for my $f (@ARGV) {
     use Mail::Bounce;
     my $bouncer = new Mail::Bounce;
     $bouncer->analyze( $msg );
+    print "\n--- result (debug)\n\n" if $ENV{'debug'};
+    print ($bouncer->address_list ? "# $f ok\n" : "# $f fail\n\n");
 
     for my $a ( $bouncer->address_list ) {
 	print "address: $a\n";