From 22b5fde8f7b4a7dd379aeb834a0bfdf4c232498e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20Kusalananda=20K=C3=A4h=C3=A4ri?=
<ak4@sanger.ac.uk>
Date: Mon, 13 Sep 2010 14:32:08 +0000
Subject: [PATCH] Do command line parsing.
---
.../scripts/update_database_list.pl | 26 ++++++++++++++++++-
1 file changed, 25 insertions(+), 1 deletion(-)
diff --git a/misc-scripts/production_database/scripts/update_database_list.pl b/misc-scripts/production_database/scripts/update_database_list.pl
index 4ccefefd29..acff24ffa3 100755
--- a/misc-scripts/production_database/scripts/update_database_list.pl
+++ b/misc-scripts/production_database/scripts/update_database_list.pl
@@ -3,13 +3,13 @@
use strict;
use warnings;
+use Getopt::Long qw( :config no_ignore_case );
use DBI qw( :sql_types );
my $release;
my @servers = ('ens-staging1', 'ens-staging2');
my $master = 'ens-staging1';
-
my $dbport = '3306';
my $dbuser = 'ensadmin';
my $dbpass;
@@ -19,6 +19,30 @@ my $dbropass;
my $opt_help = 0;
my $opt_about = 0;
+if ( !GetOptions( 'release|r=i' => \$release,
+ 'master|m=s' => \$master,
+ 'server|s=s@' => \@servers,
+ 'dbuser|u=s' => \$dbuser,
+ 'dbpass|p=s' => \$dbpass,
+ 'dbport|P=s' => \$dbport,
+ 'dbrouser|rou' => \$dbrouser,
+ 'dbropass|rop' => \$dbropass,
+ 'help|h!' => \$opt_help,
+ 'about!' => \$opt_about )
+ || $opt_help )
+{
+ usage();
+ exit();
+} elsif ($opt_about) {
+ about();
+ exit();
+} elsif ( !defined($release) ) {
+ print("ERROR: Release was not specified! (use -r or --release)\n");
+ usage();
+ exit();
+}
+
+
my %databases;
foreach my $server (@servers) {
my $dsn = sprintf( 'DBI:mysql:host=%s;port=%d', $server, $dbport );
--
GitLab