---------------------
PatchSet 11419 
Date: 2007/05/13 14:02:40
Author: hno
Branch: HEAD
Tag: (none) 
Log:
Add --out and --verbose command line options

Members: 
	scripts/www/build-cfg-help.pl:1.3->1.4 

Index: squid/scripts/www/build-cfg-help.pl
===================================================================
RCS file: /cvsroot/squid/squid/scripts/www/build-cfg-help.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- squid/scripts/www/build-cfg-help.pl	13 May 2007 13:49:56 -0000	1.3
+++ squid/scripts/www/build-cfg-help.pl	13 May 2007 14:02:40 -0000	1.4
@@ -2,6 +2,7 @@
 
 use strict;
 use IO::File;
+use Getopt::Long;
 
 
 # This mess is designed to parse the squid config template file
@@ -9,7 +10,7 @@
 #
 # Adrian Chadd <adrian@squid-cache.org>
 #
-# $Id: build-cfg-help.pl,v 1.3 2007/05/13 13:49:56 adrian Exp $
+# $Id: build-cfg-help.pl,v 1.4 2007/05/13 14:02:40 hno Exp $
 
 #
 # The template file is reasonably simple to parse. There's a number of
@@ -48,11 +49,15 @@
 # lines into 'state' variables until the next NAME comes up. We'll then
 # shuffle everything off to a function to generate the page.
 
+
 my ($state) = "";
 my ($path) = "/tmp";
 my ($name, $doc, $nin, @nocomment, $type, $default, $ifdef, $comment, $loc);
 my ($default_if_none);
 my (@names);
+my $verbose = '';
+
+GetOptions('verbose' => \$verbose, 'v' => \$verbose, 'out=s' => \$path);
 
 #
 # Yes yes global variables suck. Rewrite it if you must.