make verbose output a command line switch

This commit is contained in:
myk%mozilla.org 2004-06-29 23:00:09 +00:00
parent 1cf55b781e
commit 3773ef2cb4

View File

@ -7,6 +7,10 @@ use strict;
my $VERBOSE = 1;
use Getopt::Long;
my $VERBOSE = 0;
GetOptions("verbose" => \$VERBOSE);
# Establish a database connection.
my $dsn = "DBI:mysql:host=mecha.mozilla.org;database=downloadstats;port=3306";
my $dbh = DBI->connect($dsn,