[exim-cvs] Improved handling of --verbose and --web

Commit:     02d640e51bbff6a3f48f07fc7b8c788e990e1fda
Parent:     7dafcc0c48188949d5742fa4ce5ab1b279a4a5df
Author:     Nigel Metheringham <nigel.metheringham@???>
AuthorDate: Wed Jun 20 20:18:45 2012 +0100
Committer:  Nigel Metheringham <nigel.metheringham@???>
CommitDate: Wed Jun 20 20:18:45 2012 +0100

    Improved handling of --verbose and --web

    --web was not being honoured at all.  Now is, but that means
    that the support files (CSS, JS etc) are also not generated

    --verbose was only checked on some of the debug output
---
 script/gen.pl |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/script/gen.pl b/script/gen.pl
index 17f697d..debd301 100755
--- a/script/gen.pl
+++ b/script/gen.pl
@@ -24,10 +24,10 @@ my %opt = parse_arguments();
 my %cache;    # General cache object
 do_doc( 'spec',   $_ ) foreach @{ $opt{spec}   || [] };
 do_doc( 'filter', $_ ) foreach @{ $opt{filter} || [] };
-do_web() if exists $opt{web};
+do_web() if ( $opt{web} );

 ## Add the exim-html-current symlink
-print "Symlinking exim-html-current to exim-html-$opt{latest}\n";
+print "Symlinking exim-html-current to exim-html-$opt{latest}\n" if ( $opt{verbose} );
 unlink("$opt{docroot}/exim-html-current") if ( -l "$opt{docroot}/exim-html-current" );
 symlink( "exim-html-$opt{latest}", "$opt{docroot}/exim-html-current" )
     || die "symlink to $opt{docroot}/exim-html-current failed";
@@ -125,7 +125,7 @@ sub do_doc {
     ## Generate the front page
     {
         my $path = "exim-html-$version/doc/html/spec_html/" . ( $type eq 'filter' ? $type : 'index' ) . ".html";
-        print "Generating  : docroot:/$path\n";
+        print "Generating  : docroot:/$path\n" if ( $opt{verbose} );
         transform( $xml, "$opt{tmpl}/doc/index.xsl", "$opt{docroot}/$path", );
     }

@@ -348,7 +348,7 @@ sub transform {
     my $doc = $stylesheet->transform($xml);

     ## Make the containing directory if it doesn't exist
-    make_path( ( $out_path =~ /^(.+)\/.+$/ )[0], { verbose => 1 } );
+    make_path( ( $out_path =~ /^(.+)\/.+$/ )[0], { verbose => $opt{verbose} } );

     ## Write out the document
     open my $out, '>', $out_path or die "Unable to write $out_path - $!";